X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fextensions.lisp;h=da44a3465affdff4106a3d96960f8281e74ad6db;hb=0a7e5d543e632bfa478fd4a96b4d1f583c922553;hp=7dd9b959d2794c3bd15659fd479bfcfbd54cca0e;hpb=dccfa0f4e378a267744c03b1416accdf9d888987;p=sbcl.git

diff --git a/src/code/extensions.lisp b/src/code/extensions.lisp
index 7dd9b95..da44a34 100644
--- 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))))))