Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv32060/tests

Modified Files:
	threads.impure.lisp 
Log Message:
1.0.4.4: simplify JOIN-THREAD interface


Index: threads.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/threads.impure.lisp,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- threads.impure.lisp	21 Mar 2007 08:26:19 -0000	1.50
+++ threads.impure.lisp	26 Mar 2007 15:30:09 -0000	1.51
@@ -17,7 +17,7 @@
 (use-package "ASSERTOID")
 
 (defun wait-for-threads (threads)
-  (mapc (lambda (thread) (sb-thread:join-thread thread :errorp nil)) threads)
+  (mapc (lambda (thread) (sb-thread:join-thread thread :default nil)) threads)
   (assert (not (some #'sb-thread:thread-alive-p threads))))
 
 (assert (eql 1 (length (list-all-threads))))
@@ -55,7 +55,6 @@
 (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))