diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp index 3939c5116ef87d32b68d9e7a66cf8f81bb2f53de..b399ab54ef937747bb8814aea77f2aede36f6494 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)