diff options
author | John Paul Wallington <jpw@pobox.com> | 2004-07-06 01:36:29 +0000 |
---|---|---|
committer | John Paul Wallington <jpw@pobox.com> | 2004-07-06 01:36:29 +0000 |
commit | 63f4f3cf46e8358d97ff675ce757d576cddf164c (patch) | |
tree | 61fcb5e447a50186bf30f50685f385f372c2b1e2 /src/eval.c | |
parent | 12712bcb852ffbd0a2624c934308d917c2d9c09d (diff) | |
download | emacs-63f4f3cf46e8358d97ff675ce757d576cddf164c.tar.gz |
(Fdefmacro): Signal an error if NAME is not a symbol.
Diffstat (limited to 'src/eval.c')
-rw-r--r-- | src/eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 096755f9c77..d7cfe959158 100644 --- a/src/eval.c +++ b/src/eval.c @@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) Lisp_Object lambda_list, doc, tail; fn_name = Fcar (args); + CHECK_SYMBOL (fn_name); lambda_list = Fcar (Fcdr (args)); tail = Fcdr (Fcdr (args)); |