(print_preprocess) <case Lisp_Vectorlike>: Only mask

size if PSEUDOVECTOR_FLAG is set.

2 files changed, 8 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index be56024fa04..f42395977c9 100644
--- 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 3069f732829..597345c129c 100644
--- 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;