changeset 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 39114a2ae201
children 8792c0d44ace
files src/data.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
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));