- #+sbcl-thread
- `(sb-thread:with-recursive-lock (,lock) ,@body)
- #-(or allegro cmu lispworks sbcl-thread)
+ #+sb-thread
+ `(sb-thread:with-mutex (,lock) ,@body)
+ #+openmcl
+ `(ccl:with-lock-grabbed (,lock) ,@body)
+ #-(or allegro cmu lispworks sb-thread openmcl)