From 8a658a52b8da177a66f59ac638240cdcacebb21d Mon Sep 17 00:00:00 2001
From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 18 Sep 2005 16:23:12 +0000
Subject: [PATCH] (Fdefalias): Signal an error if SYMBOL is not a symbol.

---
 src/ChangeLog | 4 ++++
 src/data.c    | 1 +
 2 files changed, 5 insertions(+)

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));
-- 
2.11.4.GIT