Initial thread can spontaneously die (or be removed from ccl:all-processes)

[jlawrence]

(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.

[gb]

(In [15557]) Don't allow a thread to take interrupts before/after *CURRENT-PROCESS* is established. Fixes ticket:1042 in the trunk.