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

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index ae3ffba..299eda9 100644
--- a/src/compiler/lexenv.lisp
+++ b/src/compiler/lexenv.lisp
@@ -22,8 +22,7 @@
 	     (:constructor make-null-lexenv ())
 	     (:constructor internal-make-lexenv
 			   (functions variables blocks tags type-restrictions
-				      lambda cleanup policy
-				      interface-policy options)))
+				      lambda cleanup policy options)))
   ;; Alist (NAME . WHAT), where WHAT is either a Functional (a local function),
   ;; a DEFINED-FUNCTION, representing an INLINE/NOTINLINE declaration, or
   ;; a list (MACRO . <function>) (a local macro, with the specifier
@@ -62,11 +61,7 @@
   ;; to get CLEANUP defined in time for the cross-compiler.
   (cleanup nil)
   ;; the current OPTIMIZE policy
-  (policy *default-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)
+  (policy *policy* :type policy)
   ;; an alist of miscellaneous options that are associated with the
   ;; lexical environment
   (options nil :type list))