diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/data.c | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 635b0cf579..04c375db27 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2005-09-18 John Paul Wallington <[email protected]> + + * data.c (Fdefalias): Signal an error if SYMBOL is not a symbol. + 2005-09-18 YAMAMOTO Mitsuharu <[email protected]> * Makefile.in (SOME_MACHINE_OBJECTS): Undo previous change. diff --git a/src/data.c b/src/data.c index c0c797da26..02249a887f 100644 --- a/src/data.c +++ b/src/data.c @@ -719,6 +719,7 @@ determined by DEFINITION. */) (symbol, definition, docstring) register Lisp_Object symbol, definition, docstring; { + CHECK_SYMBOL (symbol); if (CONSP (XSYMBOL (symbol)->function) && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) LOADHIST_ATTACH (Fcons (Qt, symbol)); |