diff --git a/compiler/constraint.lisp b/compiler/constraint.lisp index ab6a4530a6f7e91e0b477f6977803afc5bd121b7..506433347d056cb82e6674b4d4e4f1d1653ecda4 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))))))