Mercurial > emacs

changeset 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 0cecb3d4d566
children 74fb6de92a7f
files src/eval.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
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);