From: Stefan Monnier Date: Wed, 17 Oct 2007 14:12:59 +0000 (+0000) Subject: (read1): Set pvectype for char_tables. X-Git-Tag: emacs-pretest-23.0.90~10288 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2504022a915fcecc71d08a5312af0c414b4c97cb;p=emacs.git (read1): Set pvectype for char_tables. --- diff --git a/src/ChangeLog b/src/ChangeLog index a48dc5c6438..2ba3ac06a86 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2007-10-17 Stefan Monnier + * 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. diff --git a/src/lread.c b/src/lread.c index 77eb800b41a..ee020fd43d3 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2207,7 +2207,7 @@ read1 (readcharfun, pch, first_in_list) 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 @@ read1 (readcharfun, pch, first_in_list) 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; }