git » jacl.git » commit 328ece5

diff --git a/boot.lisp b/boot.lisp
index ae64ee1..5ed5b9a 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -518,8 +518,8 @@
 (defmacro dolist (binding &rest body)
   (let ((list# (gensym "list")))
     `(do* ((,(car binding) nil (car ,list#))
-           (,list# ,(cadr binding) (cdr ,list#)))
-          ((not ,list#) ,(caddr binding))
+          (,list# ,(cadr binding) (cdr ,list#)))
+         ((not ,list#) ,(caddr binding))
        ,@body)))
 
 ;; designators