anchor.diff:                                                        :test #'string=))
                                               uniforms))
                    (context (remove stage-type context))
  +                 (draw-mode (varjo:get-primitive-type-from-context context))
  +                 (primitive (when (eq stage-type :vertex)
  +                              draw-mode))
                    (replacements
                     (loop :for (k v) :in replacements
                        :for r = (let* ((u (find k uniforms :key #'first
  
positive.code: ;;--------------------------------------------------
  
  (defun %def-gpu-function (name in-args uniforms body instancing
                            doc-string declarations equiv context)
    "This is the meat of defun-g. it is broken down as follows:
  
     [0] makes a gpu-func-spec that will be populated a stored later.
  
negative.code:                               final-uniforms
                                context
                                body
                                t
                                primitive))))))
  
  ;;--------------------------------------------------
  
  