#!+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
(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))