anchor.diff:         (let ((*standard-output* (make-string-output-stream)))
            (handler-bind ((warning #'muffle-warning))
              (eval (%defpipeline-gfuncs
  -                  ',name ',gpipe-args ',context t)))))))
  +                  ',name ',gpipe-args ',context)))))))
   
   (defun+ %update-spec (name stage-pairs context)
     (update-pipeline-spec
  
positive.code:                ;; function to call
                 (implicit-uniform-upload-func #'fallback-iuniform-func)
                 ;;
                 ;; {todo} explain
                 ,@(mapcar λ`(,(first _) -1)
                           (mapcat #'let-forms uniform-assigners))
                 ;;
  
negative.code:              ,dispatch))
           ;;
           ;; generate the function that recompiles this pipeline
           ,(gen-recompile-func name stage-pairs post context)))))
  
  (defun+ fallback-iuniform-func (prog-id &rest uniforms)
    (declare (ignore prog-id uniforms) (optimize (speed 3) (safety 1))))
  