anchor.diff:      (error 'partial-lambda-pipeline
              :partial-stages stages)))
   
  -(defun+ make-complete-lambda-pipeline (stage-pairs stage-keys aggregate-uniforms
  -                                      context post)
  +(defun+ make-complete-lambda-pipeline (stage-pairs
  +                                       stage-keys
  +                                       aggregate-uniforms
  +                                       context
  +                                       post)
     (let* ((ctx *pipeline-body-context-var*)
            (uniform-assigners (make-arg-assigners aggregate-uniforms))
            ;; we generate the func that compiles & uploads the pipeline
  
positive.code:                      (ignorable ,ctx ,@uniform-names))
              #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
              ,@(unless (typep primitive 'varjo::dynamic)
                        `((when stream
                            (assert
                             (= ,(draw-mode-group-id primitive)
                                (buffer-stream-primitive-group-id stream))
                             ()
                             'buffer-stream-has-invalid-primitive-for-stream
                             :name "<lambda>"
                             :pline-prim ',(varjo::lisp-name primitive)
                             :stream-prim (buffer-stream-primitive stream)))))
              (use-program ,ctx prog-id)
              ,@u-uploads
              (funcall implicit-uniform-upload-func prog-id ,@uniform-names)
  
negative.code:                               compiled-stages)))
                 ;;
                 ;; {todo} explain
                 ,@(mapcar λ`(,(assigner-name _) ,(assigner-body _))
                           u-lets))
            (declare (ignorable image-unit)
                     (type function implicit-uniform-upload-func)
                     (type symbol tfs-primitive)
                     (type (unsigned-byte 8) tfs-array-count))
            (use-program (cepl-context) 0)
            ;;
            ;; generate the code that actually renders
            (%post-init ,post)
  