(read1): Set pvectype for char_tables.

diff --git a/src/ChangeLog b/src/ChangeLog
index a48dc5c64385a5464e6c0b749c909f8e754f8c91..2ba3ac06a8602fbb9f91b0d986d39f3cae330572 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/lread.c b/src/lread.c
index 77eb800b41aa488e100f751b337ae5be42193720..ee020fd43d3cf4913ddc98d89f9713ff11c3c758 100644 (file)
--- 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;
                }