(print_preprocess) <case Lisp_Vectorlike>: Only mask

size if PSEUDOVECTOR_FLAG is set.

diff --git a/src/ChangeLog b/src/ChangeLog
index be56024fa04d7bb6ccaf39a1a2371a29900ab0cb..f42395977c9b6514e87b55dd165610d44d2d4538 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-08  Andreas Schwab  <schwab@suse.de>
+
+       * print.c (print_preprocess) <case Lisp_Vectorlike>: Only mask
+       size if PSEUDOVECTOR_FLAG is set.
+
 2004-01-07  Kenichi Handa  <handa@m17n.org>
 
        * charset.c (Fdeclare_equiv_charset): Fix docstring.

diff --git a/src/print.c b/src/print.c
index 3069f732829a848132811705efb8a988f5512773..597345c129cc6d115989f4cca2101fb7f40cbfdd 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1342,7 +1342,9 @@ print_preprocess (obj)
          goto loop;
 
        case Lisp_Vectorlike:
-         size = XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK;
+         size = XVECTOR (obj)->size;
+         if (size & PSEUDOVECTOR_FLAG)
+           size &= PSEUDOVECTOR_SIZE_MASK;
          for (i = 0; i < size; i++)
            print_preprocess (XVECTOR (obj)->contents[i]);
          break;