X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmacros.lisp;h=c92c88a25f2594582889ff02a274b9bfd820b7fe;hb=f73c1f391342c797b8daebe4e8c27e5923341b6d;hp=fe192640ebc7d60e6ba444ad1df03fe7a465bdc0;hpb=79c8aba8d1af834f7c1db289f33ede663fdbb7eb;p=sbcl.git

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index fe19264..c92c88a 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -644,7 +644,9 @@
            for ,n-prev = (when ,node-var (node-prev ,node-var))
            and ,lvar = (when (and ,node-var (valued-node-p ,node-var))
 			 (node-lvar ,node-var))
-           while ,node-var
+           while ,(if restart-p
+                      `(and ,node-var (not (block-to-be-deleted-p ,n-block)))
+                      node-var)
            do (progn
                 ,@body))))