From: Gabor Melis <mega@hotpop.com>
Date: Wed, 21 Mar 2007 08:26:19 +0000 (+0000)
Subject: 1.0.3.47: fixed threads tests
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=353d8da16686b5cd1d75f95017c185b50f75cfda;p=sbcl.git

1.0.3.47: fixed threads tests
---

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 97f98f4..144d3ba 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -17,7 +17,7 @@
 (use-package "ASSERTOID")
 
 (defun wait-for-threads (threads)
-  (mapc #'sb-thread:join-thread threads)
+  (mapc (lambda (thread) (sb-thread:join-thread thread :errorp nil)) threads)
   (assert (not (some #'sb-thread:thread-alive-p threads))))
 
 (assert (eql 1 (length (list-all-threads))))
@@ -55,11 +55,11 @@
 (with-test (:name '(:join-thread :nlx :default))
   (let ((sym (gensym)))
     (assert (eq sym (join-thread (make-thread (lambda () (sb-ext:quit)))
+                                 :errorp nil
                                  :default sym)))))
 
 (with-test (:name '(:join-thread :nlx :error))
-  (raises-error? (join-thread (make-thread (lambda () (sb-ext:quit)))
-                              :errorp t)))
+  (raises-error? (join-thread (make-thread (lambda () (sb-ext:quit))))))
 
 (with-test (:name '(:join-thread :multiple-values))
   (assert (equal '(1 2 3)
diff --git a/version.lisp-expr b/version.lisp-expr
index 6460028..daae2b1 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.3.46"
+"1.0.3.47"