anchor.diff:            (%def-partial-pipeline name stage-keys stage-pairs aggregate-uniforms
                                    context)
             (%def-complete-pipeline name stage-keys stage-pairs aggregate-uniforms
  -                                  post context suppress-compile)))))
  +                                  post context)))))
   
   (defun+ %def-partial-pipeline (name stage-keys stage-pairs aggregate-uniforms
                                 context)
  
positive.code:              ,dispatch))
           ;;
           ;; generate the function that recompiles this pipeline
           ,(gen-recompile-func name stage-pairs post context)
           ,(unless suppress-compile `(,(recompile-name name)))))))
  
  (defun+ fallback-iuniform-func (prog-id &rest uniforms)
    (declare (ignore prog-id uniforms) (optimize (speed 3) (safety 1))))
  
negative.code:        (let ((*standard-output* (make-string-output-stream)))
           (handler-bind ((warning #'muffle-warning))
             (eval (%defpipeline-gfuncs
                    ',name ',gpipe-args ',context)))))))
  
  (defun+ %update-spec (name stage-pairs context)
    (update-pipeline-spec
  