X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmacros.lisp;h=efd3db02fea2810ad3676102eb60e895eba199c2;hb=17ae4361ba5f4c1062d510f3951b0cc10e0bcd8e;hp=e7086637dca45093f0d2dc02d88ae709044c6589;hpb=f76b45e1a3bb2008540e0db90b591c591315f129;p=sbcl.git

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index e708663..efd3db0 100644
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -73,7 +73,7 @@ invoked. In that case it will store into PLACE and start over."
              ((typep ,place ',type))
           (setf ,place (check-type-error ',place ,place ',type ,type-string)))
         (let ((value (gensym)))
-          `(do ((,value ,place))
+          `(do ((,value ,place ,place))
                ((typep ,value ',type))
             (setf ,place
                   (check-type-error ',place ,value ',type ,type-string)))))))