diff options
| author | Stephen Berman | 2020-06-11 23:10:07 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2020-06-20 11:05:28 +0300 |
| commit | 368e140660bf84e91c67c87c47b73cfb2ea25476 (patch) | |
| tree | 27ea7f73b4a3ad65866d2b6421f6e4101cce0bf7 | |
| parent | 11e3413cff3126c54244d0ecaface36ca518bf42 (diff) | |
| download | emacs-368e140660bf84e91c67c87c47b73cfb2ea25476.tar.gz emacs-368e140660bf84e91c67c87c47b73cfb2ea25476.zip | |
Avoid crashes in 'defconst'
* src/eval.c (Fdefconst): Verify that SYMBOL is a known symbol.
(Bug#41817)
| -rw-r--r-- | src/eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 014905ce6df..16c36fa284c 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -831,6 +831,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */) | |||
| 831 | Lisp_Object sym, tem; | 831 | Lisp_Object sym, tem; |
| 832 | 832 | ||
| 833 | sym = XCAR (args); | 833 | sym = XCAR (args); |
| 834 | CHECK_SYMBOL (sym); | ||
| 834 | Lisp_Object docstring = Qnil; | 835 | Lisp_Object docstring = Qnil; |
| 835 | if (!NILP (XCDR (XCDR (args)))) | 836 | if (!NILP (XCDR (XCDR (args)))) |
| 836 | { | 837 | { |