(Fdefalias): Signal an error if SYMBOL is not a symbol.

2 files changed, 5 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 635b0cf5795..04c375db271 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-09-18  John Paul Wallington  <jpw@pobox.com>
+
+        * data.c (Fdefalias): Signal an error if SYMBOL is not a symbol.
+
 2005-09-18  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
         * Makefile.in (SOME_MACHINE_OBJECTS): Undo previous change.
diff --git a/src/data.c b/src/data.c
index c0c797da266..02249a887fa 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));