From df9da9445ed665080fbcfdd25f7a544f1403cf8e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 16 Feb 2020 09:11:28 -0800 Subject: [PATCH] * src/lread.c (read1): Fix int/Lisp_Object mix up. Found by --enable-check-lisp-object-type. --- src/lread.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5