anchor.diff:         ',name)))
   
   (defun+ %def-complete-pipeline (name stage-keys stage-pairs aggregate-uniforms
  -                               post context
  -                               &optional suppress-compile)
  +                               post context &optional suppress-compile)
     (let* ((uniform-assigners (mapcar #'make-arg-assigners aggregate-uniforms))
            ;; we generate the func that compiles & uploads the pipeline
            ;; and also populates the pipeline's local-vars
  
positive.code:                               (mapcar λ(list (let-forms _) _1)
                                        uniform-assigners u-uploads)))))
            t)
          (defn ,name ((,ctx cepl-context)
                       (stream (or null buffer-stream))
                       ,@(when uniform-names `(&key ,@typed-uniforms)))
              (values)
            (declare (speed 3) (debug 1) (safety 1) (compilation-speed 0)
                     (ignorable ,ctx ,@uniform-names)
                     (profile t))
            #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
            ,@(unless (typep primitive 'varjo::dynamic)
                `((when stream
  
negative.code:     (%update-spec name stage-pairs context)
      (multiple-value-bind (cpr-macro dispatch)
          (def-dispatch-func name (first init-func) stage-keys
                             context primitive uniform-assigners
                             (find :static context))
        `(progn
           ,cpr-macro
           (let ((prog-id nil)
  