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