From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 4 May 1998 15:29:47 +0000 (+0000)
Subject: (read1): Clear out extraneous bits at end of bool-vector.
X-Git-Tag: emacs-20.3~1142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67d3b149e2cdd55db5091fb0e3f9029cbf516819;p=emacs.git

(read1): Clear out extraneous bits at end of bool-vector.
---

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),