anchor.diff:  
   #-abcl
   (lp-base-test custom-kill-task-test
  -  (sleep 0.1)
  +  (sleep 0.2)
     (let1 old-thread-count (length (bordeaux-threads:all-threads))
       (with-new-kernel (2)
         (let1 channel (make-channel)
  
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))))))
  
  #-abcl
  (lp-base-test default-kill-task-test
    (sleep 0.1)
    (let1 old-thread-count (length (bordeaux-threads:all-threads))
      (with-new-kernel (2)
        (let1 channel (make-channel)
  
negative.code:         (submit-task channel (lambda ()
                                 (setf *error-output* (make-broadcast-stream))
                                 (infinite-loop)))
          (sleep 0.2)
          (submit-task channel (lambda () 'survived))
          (sleep 0.2)
          (emergency-kill-tasks *kernel-task-category*)
          (sleep 0.2)
          (let ((errors nil)
                (regulars nil))
            (repeat 3
  