diff options
| author | John Paul Wallington | 2004-07-06 01:38:58 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-07-06 01:38:58 +0000 |
| commit | 8e975df9c8dee54225ebc71ccf7a7746e05fae2d (patch) | |
| tree | 6ca4bb445e6a9a0c26f5c043ebc28a1d5e834875 /src/eval.c | |
| parent | 6f1df6d9d69af4e3895eebde2a48dd4bdba1832f (diff) | |
| download | emacs-8e975df9c8dee54225ebc71ccf7a7746e05fae2d.tar.gz emacs-8e975df9c8dee54225ebc71ccf7a7746e05fae2d.zip | |
(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...) */) | |||
| 657 | Lisp_Object lambda_list, doc, tail; | 657 | Lisp_Object lambda_list, doc, tail; |
| 658 | 658 | ||
| 659 | fn_name = Fcar (args); | 659 | fn_name = Fcar (args); |
| 660 | CHECK_SYMBOL (fn_name); | ||
| 660 | lambda_list = Fcar (Fcdr (args)); | 661 | lambda_list = Fcar (Fcdr (args)); |
| 661 | tail = Fcdr (Fcdr (args)); | 662 | tail = Fcdr (Fcdr (args)); |
| 662 | 663 | ||