anchor.diff:          (submit-task channel (lambda ()
                                  (setf *error-output* (make-broadcast-stream))
                                  (infinite-loop)))
  -        (sleep 0.1)
  +        (sleep 0.2)
           (submit-task channel (lambda () 'survived))
  -        (sleep 0.1)
  +        (sleep 0.2)
           (emergency-kill-tasks *kernel-task-category*)
  -        (sleep 0.1)
  +        (sleep 0.2)
           (let ((errors nil)
                 (regulars nil))
             (repeat 3
  
positive.code:                                  (error 'foo-error)))
            (signals task-killed-error
              (receive-result channel))))
        (sleep 0.1)
        (is (every #'bordeaux-threads:thread-alive-p
                   (map 'list
                        #'lparallel.kernel::thread
                        (lparallel.kernel::workers *kernel*)))))
      (sleep 0.1)
      (is (eql old-thread-count (length (bordeaux-threads:all-threads))))))
  
  (lp-base-test sleeping-worker-replacement-test
  
negative.code:         (bordeaux-threads:destroy-thread 
           (lparallel.kernel::thread
            (aref (lparallel.kernel::workers *kernel*) 0)))
          (sleep 0.2)
          (test-all-alive)
          (bordeaux-threads:destroy-thread 
           (lparallel.kernel::thread
  