Skip to content
Snippets Groups Projects
Commit f9a0b4f4 authored by pfdietz's avatar pfdietz
Browse files

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

parent d94c2f5c
No related branches found
No related tags found
No related merge requests found
...@@ -875,7 +875,7 @@ the condition to go uncaught if it cannot be classified." ...@@ -875,7 +875,7 @@ the condition to go uncaught if it cannot be classified."
(and (is-similar* (car x) (car y)) (and (is-similar* (car x) (car y))
;; If this causes stack problems, ;; If this causes stack problems,
;; convert to a loop ;; convert to a loop
(is-similar* (car x) (car y)))))) (is-similar* (cdr x) (cdr y))))))
(defmethod is-similar* ((x vector) (y vector)) (defmethod is-similar* ((x vector) (y vector))
(or (and (eq x y) t) (or (and (eq x y) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment