anchor.diff:  
   (in-package #:lparallel.kernel-util)
   
  +(defun receive-and-discard-results (channel count)
  +  (declare #.*normal-optimize*)
  +  (do-fast-receives (result channel count)
  +    (declare (ignore result))))
  +
   (defmacro with-submit-counted (&body body)
     (with-gensyms (count channel)
       `(let ((,count   0)
  
positive.code:                 (apply #'submit-task ,channel args)
                  (incf ,count))
                (receive-counted ()
                  (do-fast-receives (result ,channel ,count)
                    (declare (ignore result)))))
           (declare (inline submit-counted))
           ,@body))))
  
  (defmacro with-submit-dynamic-counted (&body body)
  
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)
  