# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 894295787 0
# Node ID 8dad06385435fc170595dd09d7c3c70924b12a31
# Parent  809dbde649765e5ff9a79a154edee276e8608e27
(read1): Clear out extraneous bits at end of bool-vector.

diff -r 809dbde64976 -r 8dad06385435 src/lread.c
--- a/src/lread.c	Mon May 04 15:12:05 1998 +0000
+++ b/src/lread.c	Mon May 04 15:29:47 1998 +0000
@@ -1512,6 +1512,10 @@
 	      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),