From: Tobias R. <tri...@us...> - 2010-04-03 14:57:23
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv16624/tests Modified Files: threads.impure.lisp Log Message: 1.0.37.32: Adapt test :GC-DEADLOCK due to 1.0.37.30. Index: threads.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/threads.impure.lisp,v retrieving revision 1.75 retrieving revision 1.76 diff -u -d -r1.75 -r1.76 --- threads.impure.lisp 3 Apr 2010 14:55:39 -0000 1.75 +++ threads.impure.lisp 3 Apr 2010 14:57:14 -0000 1.76 @@ -1201,7 +1201,7 @@ (sb-thread:make-thread (lambda () (sleep (random 0.001))) - :name (list :sleep i)) + :name (format nil "SLEEP-~D" i)) (sb-thread:make-thread (lambda () ;; KLUDGE: what we are doing here is explicit, @@ -1211,7 +1211,7 @@ (sb-thread::with-all-threads-lock (sb-thread::with-session-lock (sb-thread::*session*) (sb-ext:gc)))) - :name (list :gc i))) + :name (format nil "GC-~D" i))) (error (e) (format t "~%error creating thread ~D: ~A -- backing off for retry~%" i e) (sleep 0.1) |