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