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: 		 :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.
  (defun numerical-equal (result1 result2 &key (test #'number-equal))
    (cond
      ((and (numberp result1) (numberp result2))
  
negative.code: ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
  ;;;;
  ;;;; Additional LISP-UNIT tests and assertions
  ;;;;
  ;;;; Copyright (c) 2009, Thomas M. Hermann
  ;;;; All rights reserved.
  ;;;;
  ;;;; Redistribution and  use  in  source  and  binary  forms, with or without
  ;;;; modification, are permitted  provided  that the following conditions are
  ;;;; met:
  ;;;;
  ;;;;   o  Redistributions of  source  code  must  retain  the above copyright
  ;;;;      notice, this list of conditions and the following disclaimer.
  ;;;;   o  Redistributions in binary  form  must reproduce the above copyright
  ;;;;      notice, this list of  conditions  and  the  following disclaimer in
  ;;;;      the  documentation  and/or   other   materials  provided  with  the
  ;;;;      distribution.
  ;;;;   o  The names of the contributors may not be used to endorse or promote
  ;;;;      products derived from this software without  specific prior written
  ;;;;      permission.
  ;;;;
  ;;;; THIS SOFTWARE IS  PROVIDED  BY  THE  COPYRIGHT  HOLDERS AND CONTRIBUTORS
  ;;;; "AS IS"  AND  ANY  EXPRESS  OR  IMPLIED  WARRANTIES, INCLUDING,  BUT NOT
  ;;;; LIMITED TO, THE IMPLIED WARRANTIES  OF MERCHANTABILITY AND FITNESS FOR A
  ;;;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
  ;;;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  ;;;; EXEMPLARY, OR  CONSEQUENTIAL  DAMAGES  (INCLUDING,  BUT  NOT LIMITED TO,
  ;;;; PROCUREMENT OF  SUBSTITUTE  GOODS  OR  SERVICES;  LOSS  OF USE, DATA, OR
  ;;;; PROFITS; OR BUSINESS INTERRUPTION)  HOWEVER  CAUSED AND ON ANY THEORY OF
  ;;;; LIABILITY, WHETHER  IN  CONTRACT,  STRICT  LIABILITY, OR TORT (INCLUDING
  ;;;; NEGLIGENCE OR  OTHERWISE)  ARISING  IN  ANY  WAY  OUT OF THE USE OF THIS
  ;;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  ;;;;
  ;;;; References
  ;;;; [NumLinAlg] James W. Demmel "Applied Numerical Linear Algebra",
  ;;;;             Society for Industrial and Applied Mathematics, 1997
  