From 69410484f228767bdce802b93ef5b4dc73940023 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 27 Jun 2005 06:00:54 +0000 Subject: [PATCH] (Fdefvar): Don't try to set constant symbols. --- src/ChangeLog | 4 ++++ src/eval.c | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 046d1a321fe..dcc8d0f2bd5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2005-06-27 Juanma Barranquero + + * eval.c (Fdefvar): Don't try to set constant symbols. + 2005-06-25 Richard M. Stallman * macfns.c (Fx_show_tip): Pass new arg to try_window. diff --git a/src/eval.c b/src/eval.c index c33021da7b7..589bf593f15 100644 --- a/src/eval.c +++ b/src/eval.c @@ -806,6 +806,10 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) register Lisp_Object sym, tem, tail; sym = Fcar (args); + if (SYMBOL_CONSTANT_P (sym)) + error ("Cannot defvar a constant symbol: %s", + SDATA (SYMBOL_NAME (sym))); + tail = Fcdr (args); if (!NILP (Fcdr (Fcdr (tail)))) error ("Too many arguments"); -- 2.39.2