diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index 5fa34016d3ea3e28d3ecc2862bd8b79bae41ddce..3727f28e17c3af0b6bc12048e51e6c24d275b1ff 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)