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 'blah)
  -        (sleep 0.1)
  +        (sleep 0.2)
           (let ((errors nil)
                 (regulars nil))
             (repeat 3
  
positive.code:                 (push e errors))))
            (is (= 2 (length errors)))
            (is (equal '(survived) regulars)))))
      (sleep 0.1)
      (is (eql old-thread-count (length (bordeaux-threads:all-threads))))))
  
  (lp-base-test submit-timeout-test
  
negative.code:         (receive-result channel)))))
  
  (lp-base-test active-worker-replacement-test
    (sleep 0.2)
    (let1 old-thread-count (length (bordeaux-threads:all-threads))
      (with-new-kernel (2)
        (kernel-handler-bind ((foo-error (lambda (e)
  