anchor.diff:         ;;
          ;; The struct that holds the gl state for this pipeline
          (declaim (type pipeline-state ,state-var))
  -       (defparameter ,state-var (make-pipeline-state))
  +       (defvar ,state-var (make-pipeline-state))
          ;;
          ;; If the prog-id isnt know this function will be called
          (defun+ ,init-func-name (state)
  
positive.code:        (let ((*standard-output* (make-string-output-stream)))
           (handler-bind ((warning #'muffle-warning))
             (eval (%defpipeline-gfuncs
                    ',name ',gpipe-args ',context)))))))
  
  (defun+ gen-update-spec (name stage-pairs context)
    `(eval-when (:compile-toplevel :load-toplevel :execute)
  
negative.code:                            state-var)
         ;;
         ;; generate the function that recompiles this pipeline
         ,(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)
  