1.0.37.31: Use (WITH-TEST ...) consistently in threads.impure.lisp.

[sbcl.git] / src / code / thread.lisp

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 7a2e567..887ef3e 100644 (file)
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -21,6 +21,7 @@ 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