[求助]：这段程序什么意思？

dgygs

本人初学lisp,求高人指教下面的意思

(defun _@ld (file)
  (if (and (not (member file _tchatoml))
    (load (strcat _prefix file))
      )
    (setq _tchatoml (cons file _tchatoml))
  )
  (princ)
)