anchor.diff:  ;;---------------------------------------------------------------
   
   (declaim (inline *s)
  -         (ftype (function (vec3 single-float) vec3) *s))
  +         (ftype (function (vec3 single-float) vec3)
  +                *s))
   (defun *s (vector-a a)
     "Multiply vector by scalar"
     (declare (vec3 vector-a)
  
positive.code: ;;---------------------------------------------------------------
  
  (declaim (inline length-squared)
           (ftype (function (vec3)
                            single-float) length-squared))
  (defun length-squared (vector-a)
    "Return the squared length of the vector. A regular length
     is the square root of this value. The sqrt function is slow
  
negative.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."
  