0.6.9.17:

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

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index ae3ffba..7d95e9f 100644 (file)
--- 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))