anchor.diff:              lparallel.kernel::use-caller-p
               lparallel.kernel::steal-work
               lparallel.kernel::call-with-task-handler
  +            lparallel.kernel::with-task-context
               lparallel.kernel::limiter-accept-task-p
               lparallel.kernel::limiter-count
               lparallel.kernel::limiter-lock)
  
positive.code:      (make-task
        (lambda ()
          (unwind-protect/ext
           :main  (setf (result future) (call-with-task-handler
                                         (future-fn future)))
           :abort (setf (result future) (wrap-error 'task-killed-error)))))
       kernel)
      future))
  
negative.code:               (defun/wrapper ,name ,(unchecked-name name) ,lambda-list
                  ,@(unsplice docstring)
                  (let ((,kernel (check-kernel)))
                    (call-impl-fn ,kernel (lambda () (call-impl ,kernel)))))
                (eval-when (:load-toplevel :execute)
                  (with-lock-held (*registration-lock*)
                    (register-fn ',name)))
  