X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvop.lisp;h=29d1a491939b8cbf5059421e6f842c8dcd23aff5;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=1a40424b55197426e4155d105126f9b03a84dbf6;hpb=a574765d57a2a288d292dec59b9429e01be37052;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index 1a40424..29d1a49 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -338,7 +338,7 @@
   ;; Elements of this list have a one-to-one correspondence with
   ;; elements of the PHYSENV-CLOSURE list of the PHYSENV object that
   ;; links to us.
-  (environment (missing-arg) :type list :read-only t)
+  (closure (missing-arg) :type list :read-only t)
   ;; the TNs that hold the OLD-FP and RETURN-PC within the function.
   ;; We always save these so that the debugger can do a backtrace,
   ;; even if the function has no return (and thus never uses them).
@@ -368,7 +368,7 @@
   ;; function as far as the debugger is concerned.
   (environment-start nil :type (or label null)))
 (defprinter (ir2-physenv)
-  environment
+  closure
   old-fp
   return-pc
   return-pc-pass)