anchor.diff:                       (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-4fv location 1 nil ptr))
     (values))
   
  
positive.code:   (declare (optimize (speed 3) (safety 1) (debug 0)
                       (compilation-speed 0))
             (profile t))
    (%gl:uniform-1i location value)
    (values))
  
  
negative.code:                            (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))
  
  