[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master df9da94: * src/lread.c (read1): Fix int/Lisp_Object mix up.
From: |
Glenn Morris |
Subject: |
master df9da94: * src/lread.c (read1): Fix int/Lisp_Object mix up. |
Date: |
Sun, 16 Feb 2020 12:11:51 -0500 (EST) |
branch: master
commit df9da9445ed665080fbcfdd25f7a544f1403cf8e
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* 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 f39e81a..1613719 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master df9da94: * src/lread.c (read1): Fix int/Lisp_Object mix up.,
Glenn Morris <=