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:     (cond (id
             (assert (eql (aref (queue-threads queue) id)
                          *current-thread*))
             (work-stack:push (aref (queue-stacks queue) id) task))
            (t
             (enqueue task queue)))))
  
  
negative.code:                (work-stack:push stack task hint)
                 (work-stack:execute-task task))
             (loop while (work-stack:run-one stack)))))
       :name (format nil "Work queue worker ~A/~A" i nthread))))
  
  (defun make (nthread &optional constructor &rest arguments)
    (declare (type (and unsigned-byte fixnum) nthread)
  