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 <jpw@gnu.org>
* eval.c (Fdefmacro): Signal an error if NAME is not a symbol.
2004-07-05 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 2004-07-05 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
   
* 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