anchor.diff:  ;;---------------------------------------------------------------
   
   (declaim (inline negate)
  -         (ftype (function (vec3)
  -                          vec3)
  +         (ftype (function (vec3) vec3)
                   negate))
   (defun negate (vector-a)
     "Return a vector that is the negative of the vector passed in"
  
positive.code: ;;---------------------------------------------------------------
  
  (declaim (inline unitp)
           (ftype (function (vec3)
                            (boolean)) unitp))
  (defun unitp (vector-a)
    "Checks if the vector is of unit length. As this is a
     floating point number it checks to see if the length is
  
negative.code: ;;----------------------------------------------------------------
  
  (declaim (inline lerp)
           (ftype (function (vec3 vec3 single-float) vec3)
                  lerp))
  (defun lerp (vector-a vector-b ammount)
    (declare (vec3 vector-a vector-b))
  