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