X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=85eb1c82dadf4a8df6f7551a9756a7ca6b2ddab0;hb=152c97de336af584a9b133207a772c704e3245cf;hp=887ef3e93c5172fe84b198aebcdb4d71eab93871;hpb=00616528986d795d1335a0591371e1ac9d958eed;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 887ef3e..85eb1c8 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -21,7 +21,6 @@ in future versions."
   (name          nil :type (or thread-name null))
   (%alive-p      nil :type boolean)
   (os-thread     nil :type (or integer null))
-  (whostate      nil :type (or null simple-string))
   (interruptions nil :type list)
   (result        nil :type list)
   (interruptions-lock
@@ -29,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