From 3803eb324e0c0d74cf153206ad3d7346983e1a92 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 8 Jan 2004 00:16:25 +0000 Subject: [PATCH] (print_preprocess) : Only mask size if PSEUDOVECTOR_FLAG is set. --- src/ChangeLog | 5 +++++ src/print.c | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * print.c (print_preprocess) : Only mask + size if PSEUDOVECTOR_FLAG is set. + 2004-01-07 Kenichi Handa * 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; -- 2.11.4.GIT