From: <me...@us...> - 2007-03-26 15:47:10
|
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)) |