X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdfo.lisp;h=c03fa36a727b234a217be5efc34891cf7ea96f96;hb=05525d3a5906d7a89fcb689c26177732493c40ce;hp=291a1cbd88734843caa43453d9eb703d826484ff;hpb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;p=sbcl.git

diff --git a/src/compiler/dfo.lisp b/src/compiler/dfo.lisp
index 291a1cb..c03fa36 100644
--- a/src/compiler/dfo.lisp
+++ b/src/compiler/dfo.lisp
@@ -32,7 +32,7 @@
 	  (setf (block-number block) (incf num))
 	  (setf (block-delete-p block) t)))
     (do-blocks (block component)
-      (unless (block-flag block)
+      (when (block-delete-p block)
 	(delete-block block))))
   (values))