1.0.7.12: fix clos-interrupts.impure.lisp for unithreaded builds

 * Forgot #+sb-thread from the test case.

diff --git a/tests/clos-interrupts.impure.lisp b/tests/clos-interrupts.impure.lisp
index 6195449..8935ab7 100644 (file)
--- 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)

diff --git a/version.lisp-expr b/version.lisp-expr
index dc8e058..31d5ac9 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.7.11"
+"1.0.7.12"