X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flexenv.lisp;h=7e3e34e38fa9e024169997dc7814efb13157b61d;hb=7aef55b130d95c384b63422807f1848faa9aba5a;hp=54ef200368d60dd651376b1c94d8edefe80091cf;hpb=a4882e3023fdd5e777169a4cbede33605281173c;p=sbcl.git

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index 54ef200..7e3e34e 100644
--- a/src/compiler/lexenv.lisp
+++ b/src/compiler/lexenv.lisp
@@ -21,7 +21,7 @@
                            (funs vars blocks tags
                                  type-restrictions
                                  lambda cleanup handled-conditions
-                                 disabled-package-locks %policy)))
+                                 disabled-package-locks %policy user-data)))
   ;; an alist of (NAME . WHAT), where WHAT is either a FUNCTIONAL (a
   ;; local function), a DEFINED-FUN, representing an
   ;; INLINE/NOTINLINE declaration, or a list (MACRO . <function>) (a
@@ -64,7 +64,11 @@
   ;; and the global policy is stored in *POLICY*. (Because we want to
   ;; be able to affect it from :WITH-COMPILATION-UNIT.) NIL here also
   ;; works as a convenient null-lexenv identifier.
-  (%policy nil :type policy))
+  (%policy nil :type policy)
+  ;; A list associating extra user info to symbols.  The entries
+  ;; are of the form (:declare name . value),
+  ;; (:variable name key . value), or (:function name key . value)
+  (user-data nil :type list))
 
 (defun lexenv-policy (lexenv)
   (or (lexenv-%policy lexenv) *policy*))