Parent Directory | Revision Log | Patch
revision 1.245 by lektu, Mon Jun 27 05:59:23 2005 UTC | revision 1.246 by rms, Tue Jun 28 02:27:38 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 ("Cannot defvar a constant symbol: %s", | error ("Constant symbol `%s' specified in defvar", |
811 | SDATA (SYMBOL_NAME (sym))); | SDATA (SYMBOL_NAME (sym))); |
812 | ||
813 | tail = Fcdr (args); | tail = Fcdr (args); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |