From: Stephen Berman <stephen.berman@gmx.net>
Date: Thu, 11 Jun 2020 21:10:07 +0000 (+0200)
Subject: Avoid crashes in 'defconst'
X-Git-Tag: emacs-27.1-rc1~61
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=368e140660bf84e91c67c87c47b73cfb2ea25476;p=emacs.git

Avoid crashes in 'defconst'

* src/eval.c (Fdefconst): Verify that SYMBOL is a known symbol.
(Bug#41817)
---

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))))
     {