anchor.diff:                              (body body))
       geometry
     "Get the geometry for the given body"
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (newtonbodysetcollision (%body-ptr body) (%geometry-ptr geometry))
     geometry)
   
   ;;------------------------------------------------------------
   
   (defn body-continuous-collision-mode ((body body)) (signed-byte 32)
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     ;; {TODO} translate the int returned from this
     (newtonbodygetcontinuouscollisionmode body))
   
   (defn (setf body-continuous-collision-mode) ((state (unsigned-byte 32))
                                                 (body body))
       (unsigned-byte 32)
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     ;; {TODO} translate the int returned from this
     (newtonbodysetcontinuouscollisionmode body state)
     state)
  
positive.code: (defn body-point-velocity ((body body)
                             (point (simple-array single-float (3))))
      (simple-array single-float (3))
    (with-foreign-array (p3 point '(:array :float 3))
      (with-foreign-object (r3 :float 3)
        (newtonbodygetpointvelocity (%body-ptr body) p3 r3)
  
negative.code: (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)
  