win32: Mark all currently failing tests as such

[sbcl.git] / tests / exhaust.impure.lisp

diff --git a/tests/exhaust.impure.lisp b/tests/exhaust.impure.lisp
index 7bf0fdc..085036d 100644 (file)
--- a/tests/exhaust.impure.lisp
+++ b/tests/exhaust.impure.lisp
@@ -97,7 +97,9 @@
           (setq ok t)))
       (assert ok))))
 
-(with-test (:name (:exhaust :alien-stack) :skipped-on '(not :c-stack-is-control-stack))
+(with-test (:name (:exhaust :alien-stack)
+                  :skipped-on '(not :c-stack-is-control-stack)
+                  :fails-on :win32)
   (let ((ok nil))
     (labels ((exhaust-alien-stack (i)
                (with-alien ((integer-array (array int 500)))