201 |
goto T33; |
goto T33; |
202 |
goto T46; |
goto T46; |
203 |
T46:; |
T46:; |
204 |
|
V22 = (V20); |
205 |
base[0]= (V21); |
base[0]= (V21); |
206 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
207 |
(void) (*Lnk35)(); |
(void) (*Lnk35)(); |
208 |
vs_top=sup; |
vs_top=sup; |
209 |
V22= vs_base[0]; |
V23= vs_base[0]; |
210 |
(void)((*(LnkLI34))((V20),V22)); |
(void)((*(LnkLI34))(V22,V23)); |
211 |
goto T33; |
goto T33; |
212 |
T33:; |
T33:; |
213 |
{object V23 = (V20); |
{object V24 = (V20); |
214 |
VMR7(V23)} |
VMR7(V24)} |
215 |
base[0]=base[0]; |
base[0]=base[0]; |
216 |
return Cnil; |
return Cnil; |
217 |
} |
} |
223 |
vs_check; |
vs_check; |
224 |
check_arg(2); |
check_arg(2); |
225 |
vs_top=sup; |
vs_top=sup; |
226 |
{object V24=base[0]->c.c_cdr; |
{object V25=base[0]->c.c_cdr; |
227 |
if(endp(V24))invalid_macro_call(); |
if(endp(V25))invalid_macro_call(); |
228 |
base[2]= (V24->c.c_car); |
base[2]= (V25->c.c_car); |
229 |
V24=V24->c.c_cdr; |
V25=V25->c.c_cdr; |
230 |
if(endp(V24))invalid_macro_call(); |
if(endp(V25))invalid_macro_call(); |
231 |
base[3]= (V24->c.c_car); |
base[3]= (V25->c.c_car); |
232 |
V24=V24->c.c_cdr; |
V25=V25->c.c_cdr; |
233 |
if(!endp(V24))invalid_macro_call();} |
if(!endp(V25))invalid_macro_call();} |
234 |
{object V25; |
{object V26; |
235 |
object V26; |
object V27; |
236 |
base[6]= list(2,VV[16],base[3]); |
base[6]= list(2,VV[16],base[3]); |
237 |
base[7]= base[1]; |
base[7]= base[1]; |
238 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
239 |
Lmacroexpand(); |
Lmacroexpand(); |
240 |
vs_top=sup; |
vs_top=sup; |
241 |
V25= vs_base[0]; |
V26= vs_base[0]; |
242 |
base[6]= (V25); |
base[6]= (V26); |
243 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
244 |
Lconstantp(); |
Lconstantp(); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
247 |
goto T60;} |
goto T60;} |
248 |
base[6]= small_fixnum(15); |
base[6]= small_fixnum(15); |
249 |
base[8]= (V25); |
base[8]= (V26); |
250 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
251 |
Leval(); |
Leval(); |
252 |
vs_top=sup; |
vs_top=sup; |
255 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
256 |
Lminus(); |
Lminus(); |
257 |
vs_top=sup; |
vs_top=sup; |
258 |
V26= vs_base[0]; |
V27= vs_base[0]; |
259 |
goto T58; |
goto T58; |
260 |
goto T60; |
goto T60; |
261 |
T60:; |
T60:; |
262 |
V26= list(4,VV[17],VV[18],list(2,VV[16],base[3]),small_fixnum(2)); |
V27= list(4,VV[17],VV[18],list(2,VV[16],base[3]),small_fixnum(2)); |
263 |
goto T58; |
goto T58; |
264 |
T58:; |
T58:; |
265 |
base[6]= list(2,VV[9],list(3,VV[19],(V26),base[2])); |
base[6]= list(2,VV[9],list(3,VV[19],(V27),base[2])); |
266 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
267 |
return;} |
return;} |
268 |
} |
} |
318 |
vs_check; |
vs_check; |
319 |
check_arg(2); |
check_arg(2); |
320 |
vs_top=sup; |
vs_top=sup; |
321 |
{object V27=base[0]->c.c_cdr; |
{object V28=base[0]->c.c_cdr; |
322 |
if(endp(V27))invalid_macro_call(); |
if(endp(V28))invalid_macro_call(); |
323 |
base[2]= (V27->c.c_car); |
base[2]= (V28->c.c_car); |
324 |
V27=V27->c.c_cdr; |
V28=V28->c.c_cdr; |
325 |
if(!endp(V27))invalid_macro_call();} |
if(!endp(V28))invalid_macro_call();} |
326 |
base[3]= list(2,VV[20],base[2]); |
base[3]= list(2,VV[20],base[2]); |
327 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
328 |
return; |
return; |
335 |
vs_check; |
vs_check; |
336 |
check_arg(2); |
check_arg(2); |
337 |
vs_top=sup; |
vs_top=sup; |
338 |
{object V28=base[0]->c.c_cdr; |
{object V29=base[0]->c.c_cdr; |
339 |
if(endp(V28))invalid_macro_call(); |
if(endp(V29))invalid_macro_call(); |
340 |
base[2]= (V28->c.c_car); |
base[2]= (V29->c.c_car); |
341 |
V28=V28->c.c_cdr; |
V29=V29->c.c_cdr; |
342 |
if(!endp(V28))invalid_macro_call();} |
if(!endp(V29))invalid_macro_call();} |
343 |
base[3]= list(2,VV[21],list(3,VV[22],base[2],VV[23])); |
base[3]= list(2,VV[21],list(3,VV[22],base[2],VV[23])); |
344 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
345 |
return; |
return; |
352 |
vs_check; |
vs_check; |
353 |
check_arg(2); |
check_arg(2); |
354 |
vs_top=sup; |
vs_top=sup; |
355 |
{object V29=base[0]->c.c_cdr; |
{object V30=base[0]->c.c_cdr; |
356 |
if(endp(V29))invalid_macro_call(); |
if(endp(V30))invalid_macro_call(); |
357 |
base[2]= (V29->c.c_car); |
base[2]= (V30->c.c_car); |
358 |
V29=V29->c.c_cdr; |
V30=V30->c.c_cdr; |
359 |
if(!endp(V29))invalid_macro_call();} |
if(!endp(V30))invalid_macro_call();} |
360 |
base[3]= list(3,VV[22],base[2],VV[24]); |
base[3]= list(3,VV[22],base[2],VV[24]); |
361 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
362 |
return; |
return; |
369 |
vs_check; |
vs_check; |
370 |
check_arg(2); |
check_arg(2); |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
{object V30=base[0]->c.c_cdr; |
{object V31=base[0]->c.c_cdr; |
373 |
if(endp(V30))invalid_macro_call(); |
if(endp(V31))invalid_macro_call(); |
374 |
base[2]= (V30->c.c_car); |
base[2]= (V31->c.c_car); |
375 |
V30=V30->c.c_cdr; |
V31=V31->c.c_cdr; |
376 |
if(!endp(V30))invalid_macro_call();} |
if(!endp(V31))invalid_macro_call();} |
377 |
base[3]= list(3,VV[22],base[2],VV[25]); |
base[3]= list(3,VV[22],base[2],VV[25]); |
378 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
379 |
return; |
return; |
385 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
386 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
387 |
vs_check; |
vs_check; |
388 |
{object V31; |
{object V32; |
389 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
390 |
{object *p=vs_top; |
{object *p=vs_top; |
391 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
392 |
V31=(base[0]); |
V32=(base[0]); |
393 |
vs_top=sup; |
vs_top=sup; |
394 |
(void)simple_symlispcall(VV[36],base+1,0); |
(void)simple_symlispcall(VV[36],base+1,0); |
395 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |