Mercurial > emacs
changeset 85356:689fd5665496
(read1): Set pvectype for char_tables.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 17 Oct 2007 14:12:59 +0000 |
| parents | 7dcf2f1dc457 |
| children | ccd60918dd19 |
| files | src/ChangeLog src/lread.c |
| diffstat | 2 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Oct 17 08:58:23 2007 +0000 +++ b/src/ChangeLog Wed Oct 17 14:12:59 2007 +0000 @@ -1,5 +1,7 @@ 2007-10-17 Stefan Monnier <monnier@iro.umontreal.ca> + * lread.c (read1): Set pvectype for char_tables. + * lisp.h (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY) (XBUFFER_OBJFWD, XBUFFER_LOCAL_VALUE, XKBOARD_OBJFWD, XSAVE_VALUE): Add type checks.
--- a/src/lread.c Wed Oct 17 08:58:23 2007 +0000 +++ b/src/lread.c Wed Oct 17 14:12:59 2007 +0000 @@ -2207,7 +2207,7 @@ if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10) error ("Invalid size char-table"); - XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); + XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE); XCHAR_TABLE (tmp)->top = Qt; return tmp; } @@ -2220,7 +2220,7 @@ tmp = read_vector (readcharfun, 0); if (XVECTOR (tmp)->size != SUB_CHAR_TABLE_STANDARD_SLOTS) error ("Invalid size char-table"); - XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); + XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE); XCHAR_TABLE (tmp)->top = Qnil; return tmp; }