From 7b0b17bc6b2d956aa664035383fc4659c382bb29 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Mon, 9 Mar 2009 12:05:11 -0500 Subject: [PATCH] Specified ELEMENT-TYPE of the displaced arrays in ARRAY-EQUAL. --- floating-point.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/floating-point.lisp b/floating-point.lisp index 1068b1c..7f3d988 100644 --- a/floating-point.lisp +++ b/floating-point.lisp @@ -137,8 +137,12 @@ figures." "Return true if the elements of the array are equal." (when (equal (array-dimensions array1) (array-dimensions array2)) (every test - (make-array (reduce #'* (array-dimensions array1)) :displaced-to array1) - (make-array (reduce #'* (array-dimensions array2)) :displaced-to array2)))) + (make-array (reduce #'* (array-dimensions array1)) + :element-type (array-element-type array1) + :displaced-to array1) + (make-array (reduce #'* (array-dimensions array2)) + :element-type (array-element-type array2) + :displaced-to array2)))) (defmacro assert-array-equal (element-test expected form &rest extras) (expand-assert :equal form form expected extras -- 2.11.4.GIT