anchor.diff:                                     parallel-future:*context*))
       promise))
   
  -(defun promise-value (promise)
  +(defun parallel:promise-value (promise)
     (declare (type promise promise))
     (when (work-queue:worker-id)
       (work-queue:progress-until
  
positive.code:       (pop body))
      `(,(if wait 'future-value 'identity)
        (future (vector ,@(mapcar #'second bindings))
                (lambda ,@(mapcar #'first bindings)
                  ,@body)))))
  
  (defun %call-n-times (count function cleanup)
    (let ((future
  
negative.code:     %promise-wait
      %promise-upgrade)
  
  (defun parallel:promise (thunk &rest args)
    (let ((promise
            (make-promise (lambda (promise)
                            (declare (type promise promise))
  