From 819f15f7078c086378dc7b5a5a5fc4189b5b526c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 3 Jul 2007 10:21:21 +0000 Subject: [PATCH] 1.0.7.11: fix test WITHOUT-INTERRUPTS+GET-MUTEX * Incorrect use of JOIN-THREAD. --- tests/threads.pure.lisp | 8 +++++--- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp index 6b58125..3d7d524 100644 --- 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 --- 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" -- 1.7.10.4