(assert (not (special-operator-p 'declare)))
;;; WITH-TIMEOUT should accept more than one form in its body.
-(with-test (:name :with-timeout-forms :fails-on :win32)
+(with-test (:name :with-timeout-forms)
(handler-bind ((sb-ext:timeout #'continue))
(sb-ext:with-timeout 3
(sleep 2)
(sleep 2))))
;;; SLEEP should not cons
-(with-test (:name (sleep :non-consing) :fails-on '(not :x86-64))
+(with-test (:name (sleep :non-consing) :fails-on '(or (not :x86-64) :win32))
(ctu:assert-no-consing (sleep 0.00001)))
;;; SLEEP should work with large integers as well -- no timers