anchor.diff:         (let ((*standard-output* (make-string-output-stream)))
            (handler-bind ((warning #'muffle-warning))
              (eval (%defpipeline-gfuncs
  -                  ',name ',gpipe-args ',context)))))))
  +                  ',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)
  
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:        ;;
         ;; The struct that holds the gl state for this pipeline
         (declaim (type pipeline-state ,state-var))
         (defvar ,state-var (make-pipeline-state))
         ;;
         ;; If the prog-id isnt know this function will be called
         (defun+ ,init-func-name (state)
  