projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reduce random casting in looks_like_valid_lisp_pointer_p().
[sbcl.git]
/
src
/
compiler
/
lexenv.lisp
diff --git
a/src/compiler/lexenv.lisp
b/src/compiler/lexenv.lisp
index
54ef200
..
7e3e34e
100644
(file)
--- a/
src/compiler/lexenv.lisp
+++ b/
src/compiler/lexenv.lisp
@@
-21,7
+21,7
@@
(funs vars blocks tags
type-restrictions
lambda cleanup handled-conditions
(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
;; 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.
;; 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*))
(defun lexenv-policy (lexenv)
(or (lexenv-%policy lexenv) *policy*))