anchor.diff:                             state-var)
          ;;
          ;; generate the function that recompiles this pipeline
  -       ,(gen-recompile-func name stage-pairs post context)
  +       ,(gen-recompile-func name stage-pairs post context state-var)
          ;;
          ;; off to the races! Note that we upload the spec at compile
          ;; time (using eval-when)
  
positive.code:            (optimize (speed 3) (safety 0) (debug 0)))
    (values))
  
  (defun+ gen-recompile-func (name stage-pairs post context)
    (let* ((stages (mapcat λ(list (car _) (func-key->name (cdr _))) stage-pairs))
           (gpipe-args (append stages (list :post post))))
      `(defun+ ,(recompile-name name) ()
  
negative.code:        (let ((*standard-output* (make-string-output-stream)))
           (handler-bind ((warning #'muffle-warning))
             (eval (%defpipeline-gfuncs
                    ',name ',gpipe-args ',context))
             (setf ,state-var (make-pipeline-state)))))))
  
  (defun+ gen-update-spec (name stage-pairs context)
    `(eval-when (:compile-toplevel :load-toplevel :execute)
  