anchor.diff:  		 :test (lambda (f1 f2) (sigfig-equal f1 f2 significant-figures))))
   
   ;;; (ARRAY-EQUAL array1 array2) => true or false
  -;;; Return true of the elements of the array are equal.
   (defun array-equal (array1 array2 &key (test #'number-equal))
     "Return true if the elements of the array are equal."
     (when (equal (array-dimensions array1) (array-dimensions array2))
  
positive.code:   (expand-assert :equal form form expected extras :test #'complex-equal))
  
  ;;; (NUMBER-EQUAL number1 number2) => true or false
  ;;; Return true if the numbers are equal using the appropriate
  ;;; comparison.
  (defun number-equal (number1 number2 &optional (epsilon *epsilon*))
    "Return true if the numbers are equal using the appropriate
  comparison."
  
negative.code: 		 :test `(lambda (a1 a2) (array-equal a1 a2 :test ,element-test))))
  
  ;;; (NUMERICAL-EQUAL result1 result2) => true or false
  ;;;
  ;;; This is a universal wrapper created by Liam Healy. It is
  ;;; implemented to support testing in GSLL. The interface is expanded,
  ;;; but backwards compatible with previous versions.
  ;;;
  (defun numerical-equal (result1 result2 &key (test #'number-equal))
    (cond
      ((and (numberp result1) (numberp result2))
  