anchor.diff:  	   (+ exact approximate)
   	   (- (/ approximate exact) 1.0))))
   
  -;;; (EQUAL-FLOAT float1 float2 &optional epsilon) => true or false
  +;;; (FLOAT-EQUAL float1 float2 &optional epsilon) => true or false
   ;;; Return true if the absolute difference between float1 and float2
   ;;; is less than epsilon. If an epsilon is not specified and either
   ;;; float1 or float2 is single precision, the single-float-epsilon is
   ;;; used.
  -(defun equal-float (float1 float2 &optional (epsilon nil epsilonp))
  +(defun float-equal (float1 float2 &optional (epsilon nil epsilonp))
     "Return true if the absolute difference between float1 and float2 is
   less than some epsilon."
     (and
  
positive.code:            #:get-test-code #:get-tests
             #:remove-all-tests #:remove-tests
             #:logically-equal #:set-equal
  	   #:equal-float #:equal-complex #:equal-number
             #:use-debugger
             #:with-test-listener)
    )
  
negative.code:       (> (* 2.0 single-float-epsilon) (roundoff-error float1 float2)))
       (t nil))))
  
  ;;; (COMPLEX-EQUAL complex1 complex2 &optional epsilon) => true or false
  ;;; Return true if the absolute difference of the real components and
  ;;; the absolute difference of the imaginary components is less then
  ;;; epsilon. If an epsilon is not specified and either complex1 or
  ;;; complex2 is (complex single-float), the single-float-epsilon is
  ;;; used.
  (defun complex-equal (complex1 complex2 &optional (epsilon nil epsilonp))
    "Return true if the absolute difference between Re(complex1),
  Re(complex2) and the absolute difference between Im(complex1),
  Im(complex2) is less than epsilon."
  