diff --git a/compiler/represent.lisp b/compiler/represent.lisp index 4b3b0974bf80dcf224b1c194357f12549c191b89..7392a2aa13c74b273688465ae08bb599945d1eb4 100644 --- a/compiler/represent.lisp +++ b/compiler/represent.lisp @@ -287,10 +287,9 @@ (do ((ref refs (tn-ref-next ref))) ((null ref)) - (let* ((lambda (lambda-home - (block-lambda - (ir2-block-block - (vop-block (tn-ref-vop ref)))))) + (let* ((lambda (block-home-lambda + (ir2-block-block + (vop-block (tn-ref-vop ref))))) (tails (lambda-tail-set lambda))) (flet ((frob (fun) (setf (ir2-environment-number-stack-p