From 4b146b123062b5255d9fc07778bfbff37df84f6b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 14:09:49 +0000
Subject: [PATCH] Flushed cleanup hackery, since the lexenv changes make this
 unnecessary.

---
 compiler/checkgen.lisp | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 3939c5116..b399ab54e 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -342,7 +342,6 @@
 	(node-ends-block (continuation-use prev)))
       
       (let* ((prev-block (continuation-block prev))
-	     (prev-cleanup (block-start-cleanup prev-block))
 	     (new-block (continuation-block new-start))
 	     (dummy (make-continuation)))
 	(dolist (block (block-pred prev-block))
@@ -350,9 +349,6 @@
 	(ir1-convert new-start dummy (make-type-check-form types))
 	(assert (eq (continuation-block dummy) new-block))
 
-	(setf (block-start-cleanup new-block) prev-cleanup)
-	(setf (block-end-cleanup new-block) prev-cleanup)
-
 	(let ((node (continuation-use dummy)))
 	  (setf (block-last new-block) node)
 	  (delete-continuation-use node)
-- 
GitLab