anchor.diff:        (mapcar #'(lambda (x) (assert-arg-format name x)) uniforms)
         ;; now the meat
         (%def-gpu-function name in-args uniforms body instancing
  -                         doc-string declarations equiv context))))
  +                         doc-string equiv context))))
   
   (defun assert-arg-format (gfunc-name x)
     (unless (listp x)
  
positive.code:                               final-uniforms
                                context
                                body
                                t))))))
  
  ;;--------------------------------------------------
  
  
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.
  