HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use vectors for symbol slots
[bpt/emacs.git]
/
src
/
alloc.c
diff --git
a/src/alloc.c
b/src/alloc.c
index
3fe4601
..
a300396
100644
(file)
--- a/
src/alloc.c
+++ b/
src/alloc.c
@@
-1168,17
+1168,17
@@
usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT
void
initialize_symbol (Lisp_Object val, Lisp_Object name)
{
void
initialize_symbol (Lisp_Object val, Lisp_Object name)
{
- s
truct Lisp_Symbol *p = xmalloc (sizeof *p)
;
+ s
ym_t p
;
- scm_module_define (symbol_module, val, scm_
from_pointer (p, NULL
));
+ scm_module_define (symbol_module, val, scm_
c_make_vector (5, SCM_BOOL_F
));
p = XSYMBOL (val);
p = XSYMBOL (val);
-
p->self = val
;
+
SET_SYMBOL_SELF (p, val)
;
scm_module_define (plist_module, val, Qnil);
scm_module_define (plist_module, val, Qnil);
-
p->redirect = SYMBOL_PLAINVAL
;
+
SET_SYMBOL_REDIRECT (p, SYMBOL_PLAINVAL)
;
SET_SYMBOL_VAL (p, Qunbound);
scm_module_define (function_module, val, Qnil);
SET_SYMBOL_VAL (p, Qunbound);
scm_module_define (function_module, val, Qnil);
-
p->constant = 0
;
-
p->declared_special = false
;
+
SET_SYMBOL_CONSTANT (p, 0)
;
+
SET_SYMBOL_DECLARED_SPECIAL (p, false)
;
}
DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,
}
DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,