From 686f391f9d3dcbdf1abfed175c22b8987744f766 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 20 Jun 1990 15:38:48 +0000 Subject: [PATCH] Added code to delete the lambda when we delete the combination for a let. --- compiler/ir1util.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 22a819b17..60ae2f585 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -771,6 +771,12 @@ (typecase node (ref (delete-ref node)) (basic-combination + (when (and (eq (basic-combination-kind node) :local) + ;; Not already deleted... + (continuation-use (basic-combination-fun node))) + (let ((fun (combination-lambda node))) + (when (member (functional-kind fun) '(:let :mv-let)) + (delete-lambda fun)))) (flush-dest (basic-combination-fun node)) (dolist (arg (basic-combination-args node)) (when arg (flush-dest arg)))) -- GitLab