From fde761ac8e9b4a18058b37318302908b8f3dc9dd Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 15:09:06 +0000
Subject: [PATCH] Use block-home-lambda instead of the obsolete block-lambda.

---
 compiler/represent.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index 4b3b0974b..7392a2aa1 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -287,10 +287,9 @@
   
   (do ((ref refs (tn-ref-next ref)))
       ((null ref))
-    (let* ((lambda (lambda-home
-		    (block-lambda
-		     (ir2-block-block
-		      (vop-block (tn-ref-vop ref))))))
+    (let* ((lambda (block-home-lambda
+		    (ir2-block-block
+		     (vop-block (tn-ref-vop ref)))))
 	   (tails (lambda-tail-set lambda)))
       (flet ((frob (fun)
 	       (setf (ir2-environment-number-stack-p
-- 
GitLab