- (ctu:assert-no-consing (sleep 0.00001s0))
- (locally (declare (notinline sleep))
- (ctu:assert-no-consing (sleep 0.00001s0))
- (ctu:assert-no-consing (sleep 0.00001d0))
- (ctu:assert-no-consing (sleep 1/100000003))))
+ (handler-case (sb-ext:with-timeout 5
+ (ctu:assert-no-consing (sleep 0.00001s0))
+ (locally (declare (notinline sleep))
+ (ctu:assert-no-consing (sleep 0.00001s0))
+ (ctu:assert-no-consing (sleep 0.00001d0))
+ (ctu:assert-no-consing (sleep 1/100000003))))
+ (timeout ())))