Avoid crashes in 'defconst'
* src/eval.c (Fdefconst): Verify that SYMBOL is a known symbol. (Bug#41817)
This commit is contained in:
parent
11e3413cff
commit
368e140660
1 changed files with 1 additions and 0 deletions
|
@ -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))))
|
||||
{
|
||||
|
|
Loading…
Add table
Reference in a new issue