-(with-test (:name (:with-mutex :timeout))
- (let ((m (make-mutex)))
- (with-mutex (m)
- (assert (null (join-thread (make-thread
- (lambda ()
- (with-mutex (m :timeout 0.1)
- t)))))))
- (assert (join-thread (make-thread
- (lambda ()
- (with-mutex (m :timeout 0.1)
- t)))))))
-