anchor.diff:                                final-uniforms
                                 context
                                 body
  -                              t))))))
  +                              t
  +                              primitive))))))
   
   ;;--------------------------------------------------
   
  
positive.code:        Note that this will (possibly) update the spec but will not trigger a
         recompile in the pipelines."
    (let ((spec (%make-gpu-func-spec name in-args uniforms context body instancing
                                     nil nil nil doc-string declarations
                                     nil));;[0]
          (valid-glsl-versions (get-versions-from-context context)))
      ;; this gets the functions used in the body of this function
  
negative.code: ;;--------------------------------------------------
  
  (defun %def-gpu-function (name in-args uniforms body instancing
                            doc-string 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.
  