diff src/data.c @ 65600:bd15c2b64526

(Fdefalias): Signal an error if SYMBOL is not a symbol.
author John Paul Wallington <jpw@pobox.com>
date Sun, 18 Sep 2005 16:22:07 +0000
parents a0d1312ede66
children 7e10b1cb2a67 2a679c81f552 fa0da9b57058
line wrap: on
line diff
--- a/src/data.c	Sun Sep 18 14:04:46 2005 +0000
+++ b/src/data.c	Sun Sep 18 16:22:07 2005 +0000
@@ -719,6 +719,7 @@
      (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));