anchor.diff:                          *current-thread*))
              (work-stack:push-all (aref (queue-stacks queue) id) tasks))
             (t
  -           (enqueue-all queue tasks)))))
  +           (enqueue-all tasks queue)))))
  
positive.code:                         *current-thread*))
             (work-stack:push (aref (queue-stacks queue) id) task))
            (t
             (enqueue queue task)))))
  
  (defun push-self-all (tasks &optional (queue *current-queue*))
    (declare (type queue queue))
  
negative.code:                       (let ((task (grab-task queue stacks i)))
                          (when task
                            (return task)))
                        (unless (condition-wait cvar lock :timeout timeout)
                          (grab-mutex lock))
                        (when (< timeout 1e0)
                          (setf timeout (* timeout 2)))))))
             (declare (type single-float timeout))
  