X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=f1654c61e232ac7c653af7107d9bf22867e25433;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=25b0b69e8702027d735ec0b86bd39afd98ce300a;hpb=204f2fa9771ad9e55718dc76205afec7d11b3011;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 25b0b69..f1654c6 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -732,8 +732,7 @@
 	 (tail (component-tail (block-component block)))
 	 (succ (first (block-succ block))))
     (unless (or (and (eq call (block-last block)) (eq succ tail))
-		(block-delete-p block)
-		*converting-for-interpreter*)
+		(block-delete-p block))
       (when (or (and (eq (continuation-asserted-type cont) *empty-type*)
 		     (not (or ir1-p (eq (continuation-kind cont) :deleted))))
 		(eq (node-derived-type call) *empty-type*))