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