From: Glenn Morris <rgm@gnu.org>
Date: Sun, 16 Feb 2020 17:11:28 +0000 (-0800)
Subject: * src/lread.c (read1): Fix int/Lisp_Object mix up.
X-Git-Tag: emacs-28.0.90~7875
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df9da9445ed665080fbcfdd25f7a544f1403cf8e;p=emacs.git

* src/lread.c (read1): Fix int/Lisp_Object mix up.

Found by --enable-check-lisp-object-type.
---

diff --git a/src/lread.c b/src/lread.c
index f39e81ae2cf..1613719eb1d 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2976,7 +2976,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
 	    invalid_syntax ("Empty byte-code object");
 
 	  if (COMPILED_DOC_STRING < vec->header.size
-	      && AREF (tmp, COMPILED_DOC_STRING) == make_fixnum (0))
+	      && EQ (AREF (tmp, COMPILED_DOC_STRING), make_fixnum (0)))
 	    {
 	      /* read_list found a docstring like '(#$ . 5521)' and treated it
 		 as 0.  This placeholder 0 would lead to accidental sharing in