Mercurial > emacs

diff src/eval.c @ 56052:aec6fce52afb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefun): Signal an error if NAME is not a symbol.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 12 Jun 2004 10:32:44 +0000
parents 7fd80a9c338d
children fb855b187fa5 4c90ffeb71c5
line wrap: on
line diff
--- 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);