(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,
(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)
;;; 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.37.31"
+"1.0.37.32"