30 |
object sSAinhibit_macro_specialA; |
object sSAinhibit_macro_specialA; |
31 |
|
|
32 |
static void |
static void |
33 |
siLdefine_macro(void) |
FFN(siLdefine_macro)(void) |
34 |
{ |
{ |
35 |
check_arg(2); |
check_arg(2); |
36 |
if (type_of(vs_base[0]) != t_symbol) |
if (type_of(vs_base[0]) != t_symbol) |
69 |
} |
} |
70 |
|
|
71 |
static void |
static void |
72 |
Fdefmacro(object form) |
FFN(Fdefmacro)(object form) |
73 |
{ |
{ |
74 |
|
|
75 |
object *top = vs_top; |
object *top = vs_top; |
215 |
} |
} |
216 |
} |
} |
217 |
|
|
218 |
void |
LFD(Lmacroexpand_1)(void) |
|
Lmacroexpand_1(void) |
|
219 |
{ |
{ |
220 |
object exp_fun; |
object exp_fun; |
221 |
object *base=vs_base; |
object *base=vs_base; |