Commit e0df4389 by Liam Healy

Fix lisp-unit:numerical-equal definition

Method lisp-unit:numerical-equal on marrays always returned T; now fixed.
parent 64a0b6c2
;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
;; Time-stamp: <2009-04-15 23:24:22EDT augment.lisp>
;; Time-stamp: <2009-04-30 12:25:37EDT augment.lisp>
;; $Id: $
(in-package :gsl)
(defmethod lisp-unit:numerical-equal
((result1 marray) (result2 marray) &key (test #'lisp-unit:number-equal))
"Return true if the arrays are numerically equal according to :TEST."
(when (equal (dimensions result1) (dimensions result2))
(lisp-unit:numerical-equal (cl-array result1) (cl-array result2))
:test test))
((result1 marray) (result2 marray) &key (test #'lisp-unit:number-equal))
"Return true if the arrays are numerically equal according to :TEST."
(when (equal (dimensions result1) (dimensions result2))
(lisp-unit:numerical-equal (cl-array result1) (cl-array result2)
:test test)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment