(with-test (:name (:interrupt-thread :deferrables-unblocked))
(sb-thread:interrupt-thread sb-thread:*current-thread*
(lambda ()
(with-interrupts
(with-test (:name (:interrupt-thread :deferrables-unblocked))
(sb-thread:interrupt-thread sb-thread:*current-thread*
(lambda ()
(with-interrupts