(assert (typep (nth-value
1
(ignore-errors
(sb-sys:without-interrupts
(loop repeat 2 summing most-positive-double-float)
(sleep 2))))
(assert (typep (nth-value
1
(ignore-errors
(sb-sys:without-interrupts
(loop repeat 2 summing most-positive-double-float)
(sleep 2))))