X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fthread.lisp;h=85eb1c82dadf4a8df6f7551a9756a7ca6b2ddab0;hb=6caf3ed5713773cb423f46bf40a29f2438c97c78;hp=7a2e567a02526a78193f3eeff1847a4e33028811;hpb=17fc7b64d2125ab8cb9d19c5e730c8ea5de38d1b;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 7a2e567..85eb1c8 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -28,7 +28,8 @@ in future versions."
    :type mutex)
   (result-lock
    (make-mutex :name "thread result lock")
-   :type mutex))
+   :type mutex)
+  waiting-for)
 
 (def!struct mutex
   #!+sb-doc