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