(assert-timeout
(let ((sem (sb-thread::make-semaphore :count 0)))
(sb-sys:with-deadline (:seconds 1)
(sb-thread::wait-on-semaphore sem)))))
(assert-timeout
(let ((sem (sb-thread::make-semaphore :count 0)))
(sb-sys:with-deadline (:seconds 1)
(sb-thread::wait-on-semaphore sem)))))