- (assert (eq (join-thread
- (make-thread #'(lambda ()
- (sb-sys:with-deadline (:seconds 0.0)
- (handler-case
- (grab-mutex m :timeout 0.0)
- (sb-sys:deadline-timeout ()
- :deadline))))))
- :deadline)))))
+ (let ((th (make-thread #'(lambda ()
+ (sb-sys:with-deadline (:seconds 0.0)
+ (handler-case
+ (grab-mutex m :timeout 0.0)
+ (sb-sys:deadline-timeout ()
+ (signal-semaphore w)
+ :deadline)))))))
+ (wait-on-semaphore w)
+ (assert (eq (join-thread th) :deadline))))))