anchor.diff:                  (apply #'submit-task ,channel args)
                   (incf ,count))
                 (receive-counted ()
  -                (do-fast-receives (result ,channel ,count)
  -                  (declare (ignore result)))))
  -         (declare (inline submit-counted))
  +                (receive-and-discard-results ,channel ,count)))
  +         (declare (inline submit-counted receive-counted)
  +                  (dynamic-extent #'submit-counted #'receive-counted))
            ,@body))))
   
   (defmacro with-submit-dynamic-counted (&body body)
  
positive.code: 
  (in-package #:lparallel.kernel-util)
  
  (defmacro with-submit-counted (&body body)
    (with-gensyms (count channel)
      `(let ((,count   0)
  
negative.code:                 (submit-task
                   ,channel #'indexing-wrapper ,array index function args))
                (receive-indexed ()
                  (receive-and-discard-results ,channel ,count)
                  ,array))
           (declare (inline submit-indexed receive-indexed))
           (declare (dynamic-extent #'submit-indexed #'receive-indexed))
           ,@body))))
  
  (defmacro with-submit-cancelable (&body body)
  