anchor.diff:  		 :test `(lambda (a1 a2) (array-equal a1 a2 :test ,element-test))))
   
   ;;; (NUMERICAL-EQUAL result1 result2) => true or false
  -;;; This is a universal wrapper function used by Liam Healy. It is
  -;;; implemented to support testing in GSLL. While the interface is
  -;;; identical to previous versions, the implementation details are
  -;;; slightly different to use the routines here.
  +;;;
  +;;; 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))
  
positive.code: ;;;-*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
  
  ;;;; References
  ;;;; [NumLinAlg] James W. Demmel "Applied Numerical Linear Algebra",
  ;;;;             Society for Industrial and Applied Mathematics, 1997
  
negative.code:   (expand-assert :equal form form expected extras :test #'complex-equal))
  
  ;;; (NUMBER-EQUAL number1 number2) => true or false
  (defun number-equal (number1 number2 &optional (epsilon *epsilon*))
    "Return true if the numbers are equal using the appropriate
  comparison."
  