X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=2e1db870749b936af3eb91ba15f7d9e9244f9430;hb=eb5265ab22a2b1cae18bbdf43c871dba9b5927ea;hp=c86f145ef5bd78a5a43284f04ee1aaf9957595fd;hpb=148e3820ad314a9b59d0133c1d60eaac4af9118b;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index c86f145..2e1db87 100644
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -200,7 +200,7 @@
 
     (do-blocks (block component)
       (unless (block-flag block)
-	(event control-deleted-block (continuation-next (block-start block)))
+	(event control-deleted-block (block-start-node block))
 	(delete-block block))))
 
   (let ((2comp (component-info component)))