diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2020-06-11 23:10:07 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-06-20 11:05:28 +0300 |
| commit | 368e140660bf84e91c67c87c47b73cfb2ea25476 (patch) | |
| tree | 27ea7f73b4a3ad65866d2b6421f6e4101cce0bf7 /src/eval.c | |
| parent | 11e3413cff3126c54244d0ecaface36ca518bf42 (diff) | |
Avoid crashes in 'defconst'
* src/eval.c (Fdefconst): Verify that SYMBOL is a known symbol.
(Bug#41817)
Diffstat (limited to 'src/eval.c')
| -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]) */) Lisp_Object sym, tem; sym = XCAR (args); + CHECK_SYMBOL (sym); Lisp_Object docstring = Qnil; if (!NILP (XCDR (XCDR (args)))) { |