From 368e140660bf84e91c67c87c47b73cfb2ea25476 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Thu, 11 Jun 2020 23:10:07 +0200 Subject: [PATCH] Avoid crashes in 'defconst' * src/eval.c (Fdefconst): Verify that SYMBOL is a known symbol. (Bug#41817) --- src/eval.c | 1 + 1 file changed, 1 insertion(+) 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)))) { -- 2.39.2