(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
:type mutex)
(result-lock
(make-mutex :name "thread result lock")
- :type mutex))
+ :type mutex)
+ waiting-for)
(def!struct mutex
#!+sb-doc