anchor.diff:                 (work-stack:push stack task hint)
                  (work-stack:execute-task task))
              (loop while (work-stack:run-one stack)))))
  -     :name "Work queue worker")))
  +     :name (format nil "Work queue worker ~A/~A" i nthread))))
   
   (defun make (nthread &optional constructor &rest arguments)
     (declare (type (and unsigned-byte fixnum) nthread)
  
positive.code:     (cond (id
             (assert (eql (aref (queue-threads queue) id)
                          *current-thread*))
             (work-stack:push-all (aref (queue-stacks queue) id) tasks))
            (t
             (enqueue-all tasks queue)))))
  
negative.code:          (state  (queue-state  wqueue))
           (queue  (queue-queue  wqueue))
           (stacks (queue-stacks wqueue))
           (nthread (queue-nthread wqueue))
           (stack  (aref stacks i))
           (hint   (float (/ i nthread) 1d0)))
      (make-thread
       (lambda (&aux (*worker-id* i) (*current-queue* wqueue) (*worker-hint* hint))
         (loop named outer do
           (let* ((timeout 1e-4)
                  (task
  