X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-interrupts.impure.lisp;h=8d7ec67e255f3dd12788c21621421bbb25672278;hb=31f68584d0732dc0d17f379773e5f87f1e5a78ad;hp=8935ab749b377b0929725f4e243f87b0a857ff2c;hpb=5220c88e72ab4e16e7f9250a33e0ce35e41defbb;p=sbcl.git

diff --git a/tests/clos-interrupts.impure.lisp b/tests/clos-interrupts.impure.lisp
index 8935ab7..8d7ec67 100644
--- a/tests/clos-interrupts.impure.lisp
+++ b/tests/clos-interrupts.impure.lisp
@@ -77,7 +77,9 @@
 (defmethod compute-test ((x symbol) (y symbol))
   'symbol)
 
-(compute-test 1 2)
+(test-util:with-test (:name :compute-test
+                            :fails-on (and :win32 (not :sb-thread)))
+  (compute-test 1 2)
 
-;;; Check that we actually interrupted something.
-(assert (equal (list #'compute-test) *interrupted-gfs*))
+  ;; Check that we actually interrupted something.
+  (assert (equal (list #'compute-test) *interrupted-gfs*)))