From 67d3b149e2cdd55db5091fb0e3f9029cbf516819 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 4 May 1998 15:29:47 +0000 Subject: [PATCH] (read1): Clear out extraneous bits at end of bool-vector. --- src/lread.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/lread.c b/src/lread.c index 44d071e97e2..1f4a8c5e093 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1512,6 +1512,10 @@ read1 (readcharfun, pch, first_in_list) val = Fmake_bool_vector (length, Qnil); bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, size_in_chars); + /* Clear the extraneous bits in the last byte. */ + if (XINT (length) != size_in_chars * BITS_PER_CHAR) + XBOOL_VECTOR (val)->data[size_in_chars - 1] + &= (1 << (XINT (length) % BITS_PER_CHAR)) - 1; return val; } Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 5), -- 2.39.5