Ticket #1042 (closed defect: fixed)
Initial thread can spontaneously die (or be removed from ccl:all-processes)
|Reported by:||jlawrence||Owned by:|
|Component:||Runtime (threads, GC)||Version:||trunk|
(defun test (thread-count) (let ((threads (loop repeat thread-count collect (ccl:process-run-function "test" (lambda ()))))) ;;(sleep 0.01) (mapc #'ccl:process-kill threads))) (defun run () (loop (assert (find "Initial" (ccl:all-processes) :key #'ccl:process-name :test #'string=)) (test 10) (format t ".")))
The assertion fails within 100 iterations on dx86cl64, dx86cl, and lx86cl. With the SLEEP call I did not see a failure for 20k iterations.