diff options
| author | Glenn Morris | 2020-02-16 09:11:28 -0800 |
|---|---|---|
| committer | Glenn Morris | 2020-02-16 09:11:28 -0800 |
| commit | df9da9445ed665080fbcfdd25f7a544f1403cf8e (patch) | |
| tree | 13557479d7ab648aa882991efb113efa0193c016 /src | |
| parent | f633e014aca727b9ccecaf8e6d69386f93c5073f (diff) | |
| download | emacs-df9da9445ed665080fbcfdd25f7a544f1403cf8e.tar.gz emacs-df9da9445ed665080fbcfdd25f7a544f1403cf8e.zip | |
* src/lread.c (read1): Fix int/Lisp_Object mix up.
Found by --enable-check-lisp-object-type.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 2976 | invalid_syntax ("Empty byte-code object"); | 2976 | invalid_syntax ("Empty byte-code object"); |
| 2977 | 2977 | ||
| 2978 | if (COMPILED_DOC_STRING < vec->header.size | 2978 | if (COMPILED_DOC_STRING < vec->header.size |
| 2979 | && AREF (tmp, COMPILED_DOC_STRING) == make_fixnum (0)) | 2979 | && EQ (AREF (tmp, COMPILED_DOC_STRING), make_fixnum (0))) |
| 2980 | { | 2980 | { |
| 2981 | /* read_list found a docstring like '(#$ . 5521)' and treated it | 2981 | /* read_list found a docstring like '(#$ . 5521)' and treated it |
| 2982 | as 0. This placeholder 0 would lead to accidental sharing in | 2982 | as 0. This placeholder 0 would lead to accidental sharing in |