X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=47e476afd27e8843eb1bafc28117cb2c8003a9a0;hb=18936f9085457bc1b55d7345e7f1287e6abb85a5;hp=a65faac30ae8f29bf18003726336de7918c890fb;hpb=c1452f3a1f16e7e198367bbee0d032400966bd31;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index a65faac..47e476a 100644
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -637,7 +637,7 @@
                        ((atom subtree) subtree)
                        (t (let ((car (s (car subtree)))
                                 (cdr (s (cdr subtree))))
-                            (if (and (eq car (car subtreE))
+                            (if (and (eq car (car subtree))
                                      (eq cdr (cdr subtree)))
                                 subtree
                                 (cons car cdr))))))))