Mercurial > emacs

comparison src/eval.c @ 63790:b5df2fc9aa4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefvar): Don't try to set constant symbols.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Jun 2005 05:59:23 +0000
parents 60a9b2133cf1
children 9f9033650ce4
comparison
equal deleted inserted replaced
63789:ac833c86f212 63790:b5df2fc9aa4e
804 Lisp_Object args; 804 Lisp_Object args;
805 { 805 {
806 register Lisp_Object sym, tem, tail; 806 register Lisp_Object sym, tem, tail;
807 807
808 sym = Fcar (args); 808 sym = Fcar (args);
809 if (SYMBOL_CONSTANT_P (sym))
810 error ("Cannot defvar a constant symbol: %s",
811 SDATA (SYMBOL_NAME (sym)));
812
809 tail = Fcdr (args); 813 tail = Fcdr (args);
810 if (!NILP (Fcdr (Fcdr (tail)))) 814 if (!NILP (Fcdr (Fcdr (tail))))
811 error ("Too many arguments"); 815 error ("Too many arguments");
812 816
813 tem = Fdefault_boundp (sym); 817 tem = Fdefault_boundp (sym);