anchor.diff:        (> (* 2.0 single-float-epsilon) (roundoff-error float1 float2)))
        (t nil))))
   
  -;;; (EQUAL-COMPLEX complex1 complex2 &optional epsilon) => true or false
  +;;; (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 equal-complex (complex1 complex2 &optional (epsilon nil epsilonp))
  +(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."
  
positive.code: 	   (+ exact approximate)
  	   (- (/ approximate exact) 1.0))))
  
  ;;; (EQUAL-FLOAT 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))
    "Return true if the absolute difference between float1 and float2 is
  less than some epsilon."
    (and
  
negative.code:            #:get-test-code #:get-tests
             #:remove-all-tests #:remove-tests
             #:logically-equal #:set-equal
  	   #:float-equal #:complex-equal #:number-equal
             #:use-debugger
             #:with-test-listener)
    )
  