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)))) |