X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=dc92196257be4990de42db47c265501dae8b744e;hb=b411b7d5ee00409d531a8b0b4fcfc4d1d3c5c1d9;hp=029633c5a22e3eec6d6fcebbe01e0d9e0eafcab1;hpb=a05af4f16fc6a79f3725b9c7b46d5967b3dfcaf7;p=sbcl.git diff --git a/src/code/thread.lisp b/src/code/thread.lisp index 029633c..dc92196 100644 --- a/src/code/thread.lisp +++ b/src/code/thread.lisp @@ -66,9 +66,9 @@ stale value, use MUTEX-OWNER instead." (sb!xc:defmacro with-mutex ((mutex &key (value '*current-thread*) (wait-p t)) &body body) #!+sb-doc - "Acquire MUTEX for the dynamic scope of BODY, setting it to -NEW-VALUE or some suitable default value if NIL. If WAIT-P is non-NIL -and the mutex is in use, sleep until it is available" + "Acquire MUTEX for the dynamic scope of BODY, setting it to VALUE or +some suitable default value if NIL. If WAIT-P is non-NIL and the mutex +is in use, sleep until it is available" `(dx-flet ((with-mutex-thunk () ,@body)) (call-with-mutex #'with-mutex-thunk