# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1127060527 0
# Node ID bd15c2b64526c91d449e034e5c9fced83c45116b
# Parent  39114a2ae201aba95bf28631d807b21f358157b5
(Fdefalias): Signal an error if SYMBOL is not a symbol.

diff -r 39114a2ae201 -r bd15c2b64526 src/data.c
--- 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));