最近我试着阅读关于cl-mysql的代码,但是却陷入了困境#+.
试图google它,但没有工作,所以转到这里
(defun make-lock (name)
#+sb-thread (sb-thread:make-mutex :name name)
#+ecl (mp:make-lock :name name)
#+armedbear (ext:make-thread-lock)
#+ (and clisp mt) (mt:make-mutex :name name)
#+allegro (mp:make-process-lock :name name))
看起来它适用于不同的后端lisp编译器.但仍然不知道为什么写这样的东西.他说,任何人都可以帮助我说清楚.