anchor.diff:  (defn body-set-omega-no-sleep ((body body)
                                  (vec3 (simple-array single-float (3))))
       (simple-array single-float (3))
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (with-foreign-array (v3 vec3 '(:array :float 3))
       (newtonbodysetomeganosleep (%body-ptr body) v3))
     vec3)
  
positive.code: (defn body-set-collision-scale ((body body)
                                  (scale3 (simple-array single-float (3))))
      (simple-array single-float (3))
    (newtonbodysetcollisionscale body (v:x scale3) (v:y scale3) (v:z scale3))
    scale3)
  
  
negative.code: (defn body-set-matrix-no-sleep ((body body)
                                  (mat4 (simple-array single-float (16))))
      (simple-array single-float (16))
    (declare (optimize (speed 3) (safety 1) (debug 1)))
    (with-foreign-array (m4 mat4 '(:array :float 16))
      (newtonbodysetmatrixnosleep (%body-ptr body) m4))
    mat4)
  