changeset 56356:fb855b187fa5

(Fdefmacro): Signal an error if NAME is not a symbol.
author John Paul Wallington <jpw@pobox.com>
date Tue, 06 Jul 2004 01:36:29 +0000
parents ac4a6e4361cf
children ca58dab79be1
files src/eval.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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));