X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flexenv.lisp;h=7d95e9fcdc1cc4604b808315497ec2433ce1ca66;hb=993d5b779638756473181dda8d928d33038d4cc3;hp=ae3ffba4f4650ddebe9063c31b06daa528c17950;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index ae3ffba..7d95e9f 100644
--- a/src/compiler/lexenv.lisp
+++ b/src/compiler/lexenv.lisp
@@ -62,11 +62,11 @@
   ;; to get CLEANUP defined in time for the cross-compiler.
   (cleanup nil)
   ;; the current OPTIMIZE policy
-  (policy *default-policy* :type policy)
+  (policy *policy* :type policy)
   ;; the policy that takes effect in XEPs and related syntax parsing
   ;; functions. Slots in this policy may be null to indicate that the
   ;; normal value in effect.
-  (interface-policy *default-interface-policy* :type policy)
+  (interface-policy *interface-policy* :type policy)
   ;; an alist of miscellaneous options that are associated with the
   ;; lexical environment
   (options nil :type list))