anchor.diff:                 (return-from loop-get-task task)))))
       (declare (inline try))
       (let ((timeout 1e-3)
  +          (total   0d0)
             (fast    t))
  -      (declare (single-float timeout))
  +      (declare (single-float timeout)
  +               (double-float total))
         (loop
          (if fast
              (dotimes (i 128)
  
positive.code:            "QUEUE" "MAKE" "P" "ALIVE-P"
             "ENQUEUE" "ENQUEUE-ALL" "STOP"
             "PUSH-SELF" "PUSH-SELF-ALL"
             "CURRENT-QUEUE")
    (:import-from "WORK-STACK"
                  "TASK" "TASK-P"
                  "BULK-TASK" "BULK-TASK-P"
  
negative.code:                           (queue (weak-pointer-value weak-queue)))
                        (unless (and task queue)
                          (return-from outer))
                        (assert (not (eq task :timeout)))
                        (if (bulk-task-p task)
                            (work-stack:push stack task hint)
                            (work-stack:execute-task task))
  