X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=37e89acce878bd89c0875305c58b05d02444651d;hb=402958f92506b9d3de852601b8c1ccb99b5ee558;hp=378fb4b159ce8909996660047bd21c660901f7c6;hpb=9b458bf995314b7edd1cc050bd11ede83ada4328;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 378fb4b..37e89ac 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -15,7 +15,9 @@
   #!+sb-doc
   "Mutex type."
   (name nil :type (or null simple-string))
-  (value nil))
+  (value nil)
+  #!+(and sb-lutex sb-thread)
+  (lutex (make-lutex)))
 
 (def!struct spinlock
   #!+sb-doc
@@ -34,6 +36,7 @@ and the mutex is in use, sleep until it is available"
   (with-unique-names (got mutex1)
     `(let ((,mutex1 ,mutex)
            ,got)
+       (/show0 "WITH-MUTEX")
        (unwind-protect
             ;; FIXME: async unwind in SETQ form
             (when (setq ,got (get-mutex ,mutex1 ,value ,wait-p))