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