anchor.diff:  				       (vc-b vector-b)) 3
         (/ vc-a vc-b)))
   
  -;----------------------------------------------------------------
  +;;---------------------------------------------------------------
   
   (declaim (inline negate)
   	 (ftype (function ((simple-array single-float (3))) 
  
positive.code: 	vector-a
  	(v* vector-a (c-inv-sqrt len)))))
  
  ;----------------------------------------------------------------
  
  (declaim (inline cross)
  	 (ftype (function ((simple-array single-float (3)) 
  
negative.code:   (apply-across-elements make-vector3 ((vc-a vector-a)) 3
      (* vc-a a)))
  
  ;;---------------------------------------------------------------
  
  (declaim (inline v*vec)
  	 (ftype (function ((simple-array single-float (3)) 
  