150 |
{ |
{ |
151 |
object head, fd; |
object head, fd; |
152 |
|
|
153 |
if (type_of(form) != t_cons) |
if (!consp(form)) |
154 |
return(Cnil); |
return(Cnil); |
155 |
head = MMcar(form); |
head = MMcar(form); |
156 |
if (type_of(head) != t_symbol) |
if (type_of(head) != t_symbol) |
266 |
immediately. Macro definitions are superseded by special- |
immediately. Macro definitions are superseded by special- |
267 |
form definitions. |
form definitions. |
268 |
*/ |
*/ |
269 |
if (type_of(form) != t_cons) |
if (!consp(form)) |
270 |
return(form); |
return(form); |
271 |
head = MMcar(form); |
head = MMcar(form); |
272 |
if (type_of(head) != t_symbol) |
if (type_of(head) != t_symbol) |
303 |
/* Check if the expanded form is again a macro form. If not, |
/* Check if the expanded form is again a macro form. If not, |
304 |
reset the stack and return. |
reset the stack and return. |
305 |
*/ |
*/ |
306 |
if (type_of(form) != t_cons) |
if (!consp(form)) |
307 |
goto END; |
goto END; |
308 |
head = MMcar(form); |
head = MMcar(form); |
309 |
if (type_of(head) != t_symbol) |
if (type_of(head) != t_symbol) |