250 |
void |
void |
251 |
Fsetf(object form) |
Fsetf(object form) |
252 |
{ |
{ |
253 |
object result; |
object result,*t,*t1; |
254 |
if (endp(form)) { |
if (endp(form)) { |
255 |
vs_base = vs_top; |
vs_base = vs_top; |
256 |
vs_push(Cnil); |
vs_push(Cnil); |
263 |
result = setf(MMcar(form), MMcadr(form)); |
result = setf(MMcar(form), MMcadr(form)); |
264 |
form = MMcddr(form); |
form = MMcddr(form); |
265 |
} while (!endp(form)); |
} while (!endp(form)); |
266 |
|
t=vs_base; |
267 |
|
t1=vs_top; |
268 |
vs_top = vs_base = top; |
vs_top = vs_base = top; |
269 |
vs_push(result); |
for (;t<t1;t++) |
270 |
|
vs_push(*t); |
271 |
|
|
272 |
} |
} |
273 |
} |
} |
298 |
|
|
299 |
if (type_of(place) != t_cons) { |
if (type_of(place) != t_cons) { |
300 |
setq(place, result=Ieval(form)); |
setq(place, result=Ieval(form)); |
301 |
|
vs_top=vs_base+1; |
302 |
return result; |
return result; |
303 |
} |
} |
304 |
fun = place->c.c_car; |
fun = place->c.c_car; |