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;
|
Lisp_Object sym, tem;
|
||||||
|
|
||||||
sym = XCAR (args);
|
sym = XCAR (args);
|
||||||
|
CHECK_SYMBOL (sym);
|
||||||
Lisp_Object docstring = Qnil;
|
Lisp_Object docstring = Qnil;
|
||||||
if (!NILP (XCDR (XCDR (args))))
|
if (!NILP (XCDR (XCDR (args))))
|
||||||
{
|
{
|
||||||
|
|
Loading…
Add table
Reference in a new issue