:type mutex)
(result-lock
(make-mutex :name "thread result lock")
- :type mutex))
+ :type mutex)
+ waiting-for)
(def!struct mutex
#!+sb-doc
"Mutex type."
(name nil :type (or null thread-name))
(%owner nil :type (or null thread))
- #!+(and (not sb-lutex) sb-thread)
- (state 0 :type fixnum)
- #!+(and sb-lutex sb-thread)
- (lutex (make-lutex)))
+ #!+(and sb-thread sb-futex)
+ (state 0 :type fixnum))
(defun mutex-value (mutex)
"Current owner of the mutex, NIL if the mutex is free. May return a
(name nil :type (or null thread-name))
(value nil))
+(sb!xc:defmacro without-thread-waiting-for ((&key already-without-interrupts) &body body)
+ (with-unique-names (thread prev)
+ (let ((without (if already-without-interrupts
+ 'progn
+ 'without-interrupts))
+ (with (if already-without-interrupts
+ 'progn
+ 'with-local-interrupts)))
+ `(let* ((,thread *current-thread*)
+ (,prev (thread-waiting-for ,thread)))
+ (flet ((exec () ,@body))
+ (if ,prev
+ (,without
+ (unwind-protect
+ (progn
+ (setf (thread-waiting-for ,thread) nil)
+ (,with (exec)))
+ (setf (thread-waiting-for ,thread) ,prev)))
+ (exec)))))))
+
(sb!xc:defmacro with-mutex ((mutex &key (value '*current-thread*) (wait-p t))
&body body)
#!+sb-doc