# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1087036364 0
# Node ID aec6fce52afb00e551115f96fe575cdbcd29a6d2
# Parent  0cecb3d4d5661539c5ab5fdeb27b46724a9612c7
(Fdefun): Signal an error if NAME is not a symbol.

diff -r 0cecb3d4d566 -r aec6fce52afb src/eval.c
--- a/src/eval.c	Sat Jun 12 10:26:37 2004 +0000
+++ b/src/eval.c	Sat Jun 12 10:32:44 2004 +0000
@@ -617,6 +617,7 @@
   register Lisp_Object defn;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   defn = Fcons (Qlambda, Fcdr (args));
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);