# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1089077789 0
# Node ID fb855b187fa56d8e038e438b285d2283850c6610
# Parent  ac4a6e4361cf65e7a3f210efc1a345b6f1f6f3ed
(Fdefmacro): Signal an error if NAME is not a symbol.

diff -r ac4a6e4361cf -r fb855b187fa5 src/eval.c
--- 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));