From 8c56be4f43d4f782ea6544fe074fe15250bea6f9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 14:52:33 +0000
Subject: [PATCH] Use block-environment instead of obsolete block-lambda, use
 block-start to test for head/tail block instead of block-lambda.

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

diff --git a/compiler/life.lisp b/compiler/life.lisp
index b00bf1ca6..7c60f059d 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -477,7 +477,7 @@
 			  prev))))
 
 	  (dolist (b (block-succ block))
-	    (when (and (block-lambda b)
+	    (when (and (block-start b)
 		       (propagate-live-tns last (block-info b)))
 	      (setq did-something t)))
 
@@ -757,9 +757,8 @@
     (do ((conf (tn-global-conflicts y) (global-conflicts-tn-next conf)))
 	((null conf)
 	 nil)
-      (when (eq (lambda-environment
-		 (block-lambda
-		  (ir2-block-block (global-conflicts-block conf))))
+      (when (eq (block-environment
+		 (ir2-block-block (global-conflicts-block conf)))
 		env)
 	(return t)))))
 
@@ -770,9 +769,7 @@
 ;;;
 (defun tns-conflict-environment-local (x y)
   (declare (type tn x y))
-  (eq (lambda-environment
-       (block-lambda
-	(ir2-block-block (tn-local y))))
+  (eq (block-environment (ir2-block-block (tn-local y)))
       (tn-environment x)))
 
 
-- 
GitLab