From 9a5030ecd0b3e7e75034f7a4358833e52d613ffc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Jul 1990 14:11:20 +0000 Subject: [PATCH] Use NODE-HOME-LAMBDA instead of obsolete BLOCK-LAMBDA. --- compiler/constraint.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/constraint.lisp b/compiler/constraint.lisp index ab6a4530a..506433347 100644 --- a/compiler/constraint.lisp +++ b/compiler/constraint.lisp @@ -404,7 +404,7 @@ (let ((home (lambda-home (lambda-var-home var)))) (flet ((frob (l) (dolist (node l nil) - (unless (eq (lambda-home (block-lambda (node-block node))) home) + (unless (eq (node-home-lambda node) home) (return t))))) (or (frob (leaf-refs var)) (frob (basic-var-sets var)))))) -- GitLab