anchor.diff:                (lambda ,(mapcar #'first bindings)
                   ,@body)))))
   
  -(defconstant +chunk-size+ 128)
  +(defconstant +chunk-size+ 1024)
   
   (defstruct (parallel:stream
               (:constructor %make-stream))
  
positive.code:              (prog1 stream
                 (setf (stream-index stream) index))
               (setf (stream-%next stream)
                     (future-value (stream-next stream)))))))
  
  (defun parallel:tail-prefetch (stream)
    (when (and (stream-p stream)
  
negative.code:   (values-list (future-%values future)))
  
  (defun parallel:future-value* (future)
    (unless (future-p future)
      (return-from parallel:future-value* future))
    (loop
      (multiple-value-call
          (lambda (&optional (value nil value-p) &rest values)
  