Commit 8e975df9 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

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

parent 6f1df6d9
2004-07-06 John Paul Wallington <>
* eval.c (Fdefmacro): Signal an error if NAME is not a symbol.
2004-07-05 Jan Dj,Ad(Brv <> 2004-07-05 Jan Dj,Ad(Brv <>
* macterm.c (mac_initialize_display_info): Use CGGetActiveDisplayList * macterm.c (mac_initialize_display_info): Use CGGetActiveDisplayList
...@@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) ...@@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */)
Lisp_Object lambda_list, doc, tail; Lisp_Object lambda_list, doc, tail;
fn_name = Fcar (args); fn_name = Fcar (args);
CHECK_SYMBOL (fn_name);
lambda_list = Fcar (Fcdr (args)); lambda_list = Fcar (Fcdr (args));
tail = Fcdr (Fcdr (args)); tail = Fcdr (Fcdr (args));
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment