git » jacl.git » commit 84f7853

diff --git a/boot.lisp b/boot.lisp
index ae00408..27db87d 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -383,24 +383,23 @@
      end)
     ret))
 
-
 (%export 'dolist)
 (defmacro dolist (binding &rest body)
   (let ((var (car binding))
-        (list (gensym "list"))
+        (list# (gensym "list"))
         (result-form (caddr binding))
-        (begin (gensym "begin"))
-        (end (gensym "end")))
+        (begin# (gensym "begin"))
+        (end# (gensym "end")))
     `(let ((,var nil)
-           (,list ,(cadr binding)))
+           (,list# ,(cadr binding)))
        (tagbody
-        ,begin
-        (if (null ,list) (go ,end))
-        (setq ,var (car ,list))
+        ,begin#
+        (if (null ,list#) (go ,end#))
+        (setq ,var (car ,list#))
         ,@body
-        (setq ,list (cdr ,list))
-        (go ,begin)
-        ,end)
+        (setq ,list# (cdr ,list#))
+        (go ,begin#)
+        ,end#)
        (setq ,var nil)
        ,result-form)))