#+sb-thread (sb-thread:make-mutex :name name)
#+scl (thread:make-lock name)
#-(or allegro cmu lispworks openmcl sb-thread scl) (declare (ignore name))
#+sb-thread (sb-thread:make-mutex :name name)
#+scl (thread:make-lock name)
#-(or allegro cmu lispworks openmcl sb-thread scl) (declare (ignore name))