anchor.diff:                                (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)
  +        (,def ,name ,@signature
             (declare (speed 3) (debug 1) (safety 1) (compilation-speed 0)
                      (ignorable ,ctx ,@uniform-names)
  -                   (profile t))
  +                   ,@(when static `((profile t))))
             #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
             ,@(unless (typep primitive 'varjo::dynamic)
                 `((when stream
  
positive.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)
        `(progn
           ,cpr-macro
           (let ((prog-id nil)
  
negative.code:           whole))
       `(progn
          (defun+ ,(symb :%touch- name) (&key verbose)
            #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
            (unless prog-id
              (setf prog-id (,init-func-name)))
            (when verbose
  