diff options
| author | Juanma Barranquero <[email protected]> | 2005-06-27 06:00:54 +0000 |
|---|---|---|
| committer | Juanma Barranquero <[email protected]> | 2005-06-27 06:00:54 +0000 |
| commit | 69410484f228767bdce802b93ef5b4dc73940023 (patch) | |
| tree | 09fe38f3fbf4e0222947286e3982628914a94917 /src/eval.c | |
| parent | 007c55a45ff5b367b3a9932c13cc3186fe8a4b22 (diff) | |
(Fdefvar): Don't try to set constant symbols.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index c33021da7b..589bf593f1 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"); |