src/code/cross-thread.lisp

   1 (in-package :sb!thread)
   2
   3 (defun make-mutex (&key name value) nil)
   4
   5 (defmacro with-recursive-lock ((mutex) &body body)
   6   `(progn ,@body))
   7