1.0.7.11: fix test WITHOUT-INTERRUPTS+GET-MUTEX

 * Incorrect use of JOIN-THREAD.

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index 6b58125..3d7d524 100644 (file)
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -58,10 +58,11 @@
             :fails-on :sb-lutex)
   (let* ((lock (make-mutex))
          (foo (get-mutex lock))
+         (bar nil)
          (thread (make-thread (lambda ()
                                 (sb-sys:without-interrupts
-                                  (with-mutex (lock)
-                                    :fini))))))
+                                    (with-mutex (lock)
+                                      (setf bar t)))))))
     (sleep 1)
     (assert (thread-alive-p thread))
     (terminate-thread thread)
@@ -70,4 +71,5 @@
     (release-mutex lock)
     (sleep 1)
     (assert (not (thread-alive-p thread)))
-    (assert (eq :fini (join-thread thread)))))
+    (assert (eq :aborted (join-thread thread :default :aborted)))
+    (assert bar)))

diff --git a/version.lisp-expr b/version.lisp-expr
index 7c80488..dc8e058 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.10"
+"1.0.7.11"