0.pre8.34
[sbcl.git] / 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