anchor.diff:  ;;---------------------------------------------------------------
   
   (declaim (inline =)
  -         (ftype (function (vec3
  -                           vec3)
  -                          (boolean)) =))
  +         (ftype (function (vec3 vec3) (boolean))
  +                =))
   (defun = (vector-a vector-b)
     "Returns either t if the two vectors are equal.
      Otherwise it returns nil."
  
positive.code: ;;----------------------------------------------------------------
  
  (declaim (inline dot)
           (ftype (function (vec3
                             vec3)
                            single-float)
                  dot))
  (defun dot (vector-a vector-b)
    "Return the dot product of the vector-a and vector-b."
  
negative.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
  