anchor.diff:                             (ptr foreign-pointer))
       (values)
     (declare (profile t))
  +  #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
     (%gl:uniform-matrix-3fv location count nil ptr)
     (values))
   
  
positive.code:   (declare (optimize (speed 3) (safety 1) (debug 0)
                       (compilation-speed 0))
             (profile t))
    (%gl:uniform-1f location value)
    (values))
  
  
negative.code:                      (compilation-speed 0))
             (profile t))
    (cffi-sys:with-pointer-to-vector-data (ptr value)
      #+sbcl(declare (sb-ext:muffle-conditions sb-ext:compiler-note))
      (%gl:uniform-matrix-2fv location 1 ptr))
    (values))
  
  