anchor.diff:      (cond (id
              (assert (eql (aref (queue-threads queue) id)
                           *current-thread*))
  -           (work-stack:push-all (aref (queue-stacks queue) id) tasks))
  +           (work-stack:push-all (aref (queue-stacks queue) id) tasks *worker-hint*))
             (t
              (enqueue-all tasks queue)))))
  
positive.code:          (state  (queue-state  wqueue))
           (queue  (queue-queue  wqueue))
           (stacks (queue-stacks wqueue))
           (stack  (aref stacks i))
           (hint   (float (/ i (queue-nthread wqueue)) 1d0)))
      (make-thread
       (lambda (&aux (*worker-id* i) (*current-queue* wqueue))
         (loop named outer do
           (let* ((timeout 1e-4)
                  (task
  
negative.code:           (return-from grab-task task))))))
  
  (defvar *worker-id* nil)
  (defvar *worker-hint* 0)
  (defvar *current-queue* nil)
  
  (defun %make-worker (wqueue i)
  