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