anchor.diff:                              state-var state-tag is-compute)
           ;;
           ;; generate the function that recompiles this pipeline
  -        ,(gen-recompile-func name stage-pairs post context)
  +        ,(gen-recompile-func name original-gpipe-args context)
           ;;
           ;; off to the races! Note that we upload the spec at compile
           ;; time (using eval-when)
  
positive.code:   (assert-valid-gpipe-form name gpipe-args)
    (%defpipeline-gfuncs name gpipe-args context))
  
  (defun+ %defpipeline-gfuncs
      (name gpipe-args context)
    ;;
    ;; {todo} explain
    (destructuring-bind (stage-pairs post) (parse-gpipe-args gpipe-args)
      ;;
      (let* ((func-specs (mapcar #'cdr stage-pairs))
  
negative.code: (declaim (sb-ext:freeze-type pipeline-state))
  
  (defun+ %def-complete-pipeline (name
                                  original-gpipe-args
                                  stage-pairs
                                  aggregate-actual-uniforms
                                  aggregate-public-uniforms
  