diff src/eval.c @ 56356:fb855b187fa5

(Fdefmacro): Signal an error if NAME is not a symbol.

--- a/src/eval.c	Tue Jul 06 00:06:05 2004 +0000
+++ b/src/eval.c	Tue Jul 06 01:36:29 2004 +0000
@@ -657,6 +657,7 @@
   Lisp_Object lambda_list, doc, tail;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   lambda_list = Fcar (Fcdr (args));
   tail = Fcdr (Fcdr (args));