/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.248 by lute, Mon Jul 4 16:06:30 2005 UTC revision 1.249 by rms, Sat Jul 9 03:42:43 2005 UTC
# Line 807  usage: (defvar SYMBOL &optional INITVALU Line 807  usage: (defvar SYMBOL &optional INITVALU
807    
808    sym = Fcar (args);    sym = Fcar (args);
809    if (SYMBOL_CONSTANT_P (sym))    if (SYMBOL_CONSTANT_P (sym))
810      error ("Constant symbol `%s' specified in defvar",      {
811             SDATA (SYMBOL_NAME (sym)));        /* For updward compatibility, allow (defvar :foo (quote :foo)).  */
812          tem = Fcar (Fcdr (args));
813          if (! (CONSP (tem)
814                 && EQ (XCAR (tem), Qquote)
815                 && CONSP (XCDR (tem))
816                 && EQ (XCAR (XCDR (tem)), sym)))
817            error ("Constant symbol `%s' specified in defvar",
818                   SDATA (SYMBOL_NAME (sym)));
819        }
820    
821    tail = Fcdr (args);    tail = Fcdr (args);
822    if (!NILP (Fcdr (Fcdr (tail))))    if (!NILP (Fcdr (Fcdr (tail))))

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26