0.6.12.29:

[sbcl.git] / src / code / extensions.lisp

diff --git a/src/code/extensions.lisp b/src/code/extensions.lisp
index 7dd9b95..da44a34 100644 (file)
--- a/src/code/extensions.lisp
+++ b/src/code/extensions.lisp
@@ -98,7 +98,7 @@
         (do ((y x (safe-cddr y))
              (started-p nil t)
              (z x (cdr z)))
-            ((or (not z) (not y)) nil)
+            ((not (and (consp z) (consp y))) nil)
           (when (and started-p (eq y z))
             (return t))))))