X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-interrupts.impure.lisp;h=8d7ec67e255f3dd12788c21621421bbb25672278;hb=5877e8c2334bd87490be385af21ed9bc494f19e2;hp=e3a100e6bff14c5d562a3c38dea67de1c505d3c5;hpb=f9663e4a4c35614fcba5812882f9ed812cbcf62d;p=sbcl.git

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