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

diff --git a/src/ChangeLog b/src/ChangeLog
index 635b0cf5795b8279111fc86cc01931a92ff883ca..04c375db271de5d7591ca802b936a4fd7c05c6cb 100644 (file)
--- 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 c0c797da266ff80cc3245a1f279ef4c45e669d63..02249a887fa8284997a60735300cd19620cea4cb 100644 (file)
--- 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));