From f9a0b4f40a5b1219f343a59267ecc238023c277e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 8 Oct 2004 12:56:23 +0000
Subject: [PATCH] Fix bug in 'is-similar*' spotted by PG

---
 ansi-tests/ansi-aux.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index 5fa34016..3727f28e 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -875,7 +875,7 @@ the condition to go uncaught if it cannot be classified."
 	(and (is-similar* (car x) (car y))
 	     ;; If this causes stack problems,
 	     ;; convert to a loop
-	     (is-similar* (car x) (car y))))))
+	     (is-similar* (cdr x) (cdr y))))))
 
 (defmethod is-similar* ((x vector) (y vector))
   (or (and (eq x y) t)
-- 
GitLab