anchor.diff:  ;; [TODO] shouldnt this return a zero vector in event of zero
   ;; length? does it matter?
   (declaim (inline normalize)
  -         (ftype (function (vec3)
  -                          vec3)
  +         (ftype (function (vec3) vec3)
                   normalize))
   (defun normalize (vector-a)
     "This normalizes the vector, it makes sure a zero length
  
positive.code: ;;---------------------------------------------------------------
  
  (declaim (inline *s)
           (ftype (function (vec3 single-float) vec3) *s))
  (defun *s (vector-a a)
    "Multiply vector by scalar"
    (declare (vec3 vector-a)
  
negative.code: ;;---------------------------------------------------------------
  
  (declaim (inline =)
           (ftype (function (vec3 vec3) (boolean))
                  =))
  (defun = (vector-a vector-b)
    "Returns either t if the two vectors are equal.
     Otherwise it returns nil."
  