220 |
def = MMcar(def_list); |
def = MMcar(def_list); |
221 |
if (endp(def) || endp(MMcdr(def)) || |
if (endp(def) || endp(MMcdr(def)) || |
222 |
type_of(MMcar(def)) != t_symbol) |
type_of(MMcar(def)) != t_symbol) |
223 |
|
/* FIXME need t read environment for setf functions |
224 |
|
&& !setf_fn_form(MMcar(def)) */ |
225 |
|
(type_of(MMcar(def))!=t_cons || type_of(MMcadar(def))!=t_symbol |
226 |
|
|| MMcadar(def)==Cnil |
227 |
|
|| !endp(MMcddar(def))))) |
228 |
FEerror("~S~%\ |
FEerror("~S~%\ |
229 |
is an illegal function definition in FLET.", |
is an illegal function definition in FLET.", |
230 |
1, def); |
1, def); |