1 files changed, 1 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c
index e1da1def446..096755f9c77 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -617,6 +617,7 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...)  */)
  register Lisp_Object defn;
  fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
  defn = Fcons (Qlambda, Fcdr (args));
  if (!NILP (Vpurify_flag))
    defn = Fpurecopy (defn);

diff --git a/src/eval.c b/src/eval.c index e1da1def446..096755f9c77 100644 --- a/src/eval.c +++ b/src/eval.c
@@ -617,6 +617,7 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */)
617	register Lisp_Object defn;	617	register Lisp_Object defn;
618		618
619	fn_name = Fcar (args);	619	fn_name = Fcar (args);
		620	CHECK_SYMBOL (fn_name);
620	defn = Fcons (Qlambda, Fcdr (args));	621	defn = Fcons (Qlambda, Fcdr (args));
621	if (!NILP (Vpurify_flag))	622	if (!NILP (Vpurify_flag))
622	defn = Fpurecopy (defn);	623	defn = Fpurecopy (defn);