0.pre7.51:

[sbcl.git] / src / compiler / represent.lisp

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 3f049b3..66fd31b 100644 (file)
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -317,9 +317,9 @@
                     (vop-block (tn-ref-vop ref)))))
           (tails (lambda-tail-set lambda)))
       (flet ((frob (fun)
-              (setf (ir2-environment-number-stack-p
-                     (environment-info
-                      (lambda-environment fun)))
+              (setf (ir2-physenv-number-stack-p
+                     (physenv-info
+                      (lambda-physenv fun)))
                     t)))
        (frob lambda)
        (when tails