anchor.diff:                                (geometry geometry)
                                 (mass single-float))
       null
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (newtonbodysetmassproperties (%body-ptr body) mass (%geometry-ptr geometry))
     nil)
   
   ;;------------------------------------------------------------
   
   (defn body-inertia-matrix4 ((body body)) (simple-array single-float (16))
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (with-foreign-object (m4 :float 16)
       (newtonbodygetinertiamatrix (%body-ptr body) m4)
       (ptr->m4 m4)))
   
   (defn body-inverse-intertia-matrix4 ((body body))
       (simple-array single-float (16))
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (with-foreign-object (m4 :float 16)
       (newtonbodygetinvinertiamatrix (%body-ptr body) m4)
       (ptr->m4 m4)))
  
positive.code: ;;------------------------------------------------------------
  
  (defn free-body ((body body)) null
    (declare (profile t))
    (newtondestroybody (%body-ptr body))
    nil)
  
  (defn body-destructor-callback ((body body))
      (or null (function (body) t))
    (declare (profile t))
    (%body-destructor-callback body))
  
  
negative.code: (defn body-aabb ((body body))
      (values (simple-array single-float (3))
              (simple-array single-float (3)))
    (declare (optimize (speed 3) (safety 1) (debug 1)))
    (with-foreign-objects ((p0 :float 3)
                           (p1 :float 3))
      (newtonbodygetaabb (%body-ptr body) p0 p1)
  