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

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index 7bbaaf5..299eda9 100644
--- a/src/compiler/lexenv.lisp
+++ b/src/compiler/lexenv.lisp
@@ -22,12 +22,11 @@
 	     (:constructor make-null-lexenv ())
 	     (:constructor internal-make-lexenv
 			   (functions variables blocks tags type-restrictions
-				      lambda cleanup cookie
-				      interface-cookie options)))
-  ;; Alist (name . what), where What is either a Functional (a local function),
+				      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
-  ;; expander.)    Note that Name may be a (SETF <name>) function.
+  ;; expander.) Note that NAME may be a (SETF <name>) function.
   (functions nil :type list)
   ;; an alist translating variable names to LEAF structures. A special
   ;; binding is indicated by a :SPECIAL GLOBAL-VAR leaf. Each special
@@ -61,12 +60,8 @@
   ;; FIXME: This should be :TYPE (OR CLEANUP NULL), but it was too hard
   ;; to get CLEANUP defined in time for the cross-compiler.
   (cleanup nil)
-  ;; The representation of the current OPTIMIZE policy.
-  (cookie *default-cookie* :type cookie)
-  ;; the policy that takes effect in XEPs and related syntax parsing
-  ;; functions. Slots in this cookie may be null to indicate that the
-  ;; normal value in effect.
-  (interface-cookie *default-interface-cookie* :type cookie)
+  ;; the current OPTIMIZE policy
+  (policy *policy* :type policy)
   ;; an alist of miscellaneous options that are associated with the
   ;; lexical environment
   (options nil :type list))