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