X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-interrupts.impure.lisp;h=e3a100e6bff14c5d562a3c38dea67de1c505d3c5;hb=b14aefb22fd710673b1a1005add3c0425713d2a0;hp=619544977210b4a32ed9a54563d9f28c0c88e483;hpb=d38be21048d0a9df3add788415fbdddaf9784580;p=sbcl.git

diff --git a/tests/clos-interrupts.impure.lisp b/tests/clos-interrupts.impure.lisp
index 6195449..e3a100e 100644
--- a/tests/clos-interrupts.impure.lisp
+++ b/tests/clos-interrupts.impure.lisp
@@ -49,14 +49,16 @@
           (*interrupting* t))
       ;; Test both interrupting yourself and using another thread
       ;; for to interrupting.
-      (write-line "interrupt-1")
-      (sb-thread:join-thread (sb-thread:make-thread
-                              (lambda ()
-                                (sb-thread:interrupt-thread
-                                 self
-                                 (lambda ()
-                                   (compute-test 1 2))))))
-      (write-line "interrupt-2")
+      #+sb-thread
+      (progn
+        (write-line "/interrupt-other")
+        (sb-thread:join-thread (sb-thread:make-thread
+                                (lambda ()
+                                  (sb-thread:interrupt-thread
+                                   self
+                                   (lambda ()
+                                     (compute-test 1 2)))))))
+      (write-line "/interrupt-self")
       (sb-thread:interrupt-thread self (lambda () (compute-test 1 2))))))
 
 (defvar *interrupted-gfs* nil)
@@ -75,7 +77,8 @@
 (defmethod compute-test ((x symbol) (y symbol))
   'symbol)
 
-(compute-test 1 2)
+(test-util:with-test (:name :compute-test :fails-on :win32)
+  (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*)))