From 0790738dfe7777c037fdb72e67b448e5da5f04a2 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 21 Feb 2003 03:43:35 +0000 Subject: [PATCH] Fixed problem in equalp-with-case when one element is an array and the other is not. --- ansi-tests/rt.lsp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 7fbc7fbb..f218a59b 100644 --- a/ansi-tests/rt.lsp +++ b/ansi-tests/rt.lsp @@ -146,10 +146,11 @@ them.") |# ((typep x 'array) - (let ((size (array-total-size x))) - (loop for i from 0 below size - always (equalp-with-case (row-major-aref x i) - (row-major-aref y i))))) + (and (typep y 'array) + (let ((size (array-total-size x))) + (loop for i from 0 below size + always (equalp-with-case (row-major-aref x i) + (row-major-aref y i)))))) (t (eql x y)))) -- GitLab