[Sbcl-commits] CVS: sbcl/src/code macros.lisp,1.49,1.50

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15167/src/code

Modified Files:
	macros.lisp 
Log Message:
0.9.17.4:
	Fix the STORE-VALUE restart for CHECK-TYPE on non-variable places
        (DO considered harmful).


Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/macros.lisp,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- macros.lisp	22 Aug 2006 17:01:39 -0000	1.49
+++ macros.lisp	2 Oct 2006 06:38:36 -0000	1.50
@@ -73,7 +73,7 @@
              ((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)))))))