From 943c67459e3816995ac2c7d3f0c58ae9cad0b5a2 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 15:09:42 +0000
Subject: [PATCH] Use block-environment instead of the obsolete block-lambda. 
 Use block-start to determine whether a block is a dummy head/tail, rather
 than block-lambda.

---
 compiler/stack.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/stack.lisp b/compiler/stack.lisp
index 82191af02..edd10adce 100644
--- a/compiler/stack.lisp
+++ b/compiler/stack.lisp
@@ -95,9 +95,7 @@
 	(dolist (pred (block-pred block))
 	  (if (eq pred (component-head (block-component block)))
 	      (assert (find block
-			    (environment-nlx-info
-			     (lambda-environment
-			      (block-lambda block)))
+			    (environment-nlx-info (block-environment block))
 			    :key #'nlx-info-target))
 	      (let ((pred-stack (ir2-block-end-stack (block-info pred))))
 		(unless (tailp new-stack pred-stack)
@@ -236,7 +234,7 @@
     (do-blocks (block component)
       (let ((top (car (ir2-block-end-stack (block-info block)))))
 	(dolist (succ (block-succ block))
-	  (when (and (block-lambda succ)
+	  (when (and (block-start succ)
 		     (not (eq (car (ir2-block-start-stack (block-info succ)))
 			      top)))
 	    (discard-unused-values block succ))))))
-- 
GitLab