anchor.diff:     (floatp float2)
      (cond
        ((and (zerop float1) (zerop float2)))
  -     (epsilonp
  +     (epsilon
         (> epsilon (roundoff-error float1 float2)))
        ((and (typep float1 'double-float) (typep float2 'double-float))
         (> (* 2.0 double-float-epsilon) (roundoff-error float1 float2)))
  
positive.code: ;;; 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 float-equal (float1 float2 &optional (epsilon nil epsilonp))
    "Return true if the absolute difference between float1 and float2 is
  less than some epsilon."
    (and
  
negative.code:            #:remove-all-tests #:remove-tests
             #:logically-equal #:set-equal
  	   #:float-equal #:complex-equal #:number-equal
  	   #:array-equal
             #:use-debugger
             #:with-test-listener)
    )
  