Commit f9a0b4f4 authored by pfdietz's avatar pfdietz

Fix bug in 'is-similar*' spotted by PG

parent d94c2f5c
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment