37 |
goto T6;} |
goto T6;} |
38 |
base[10]= VV[14]; |
base[10]= VV[14]; |
39 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
40 |
(void) (*Lnk148)(); |
(void) (*Lnk149)(); |
41 |
vs_top=sup; |
vs_top=sup; |
42 |
goto T6; |
goto T6; |
43 |
T6:; |
T6:; |
44 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[15],Cnil); |
45 |
base[11]= (VV[16]->s.s_dbind); |
base[11]= (VV[16]->s.s_dbind); |
46 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
47 |
(void) (*Lnk149)(); |
(void) (*Lnk150)(); |
48 |
vs_top=sup; |
vs_top=sup; |
49 |
bds_unwind1; |
bds_unwind1; |
50 |
base[10]= (VV[17]->s.s_dbind); |
base[10]= (VV[17]->s.s_dbind); |
130 |
base[10]= (VV[23]->s.s_dbind); |
base[10]= (VV[23]->s.s_dbind); |
131 |
base[11]= Cnil; |
base[11]= Cnil; |
132 |
base[12]= (VV[24]->s.s_dbind); |
base[12]= (VV[24]->s.s_dbind); |
133 |
(VV[3]->s.s_dbind)= simple_symlispcall(VV[150],base+10,3); |
(VV[3]->s.s_dbind)= simple_symlispcall(VV[151],base+10,3); |
134 |
if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){ |
if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){ |
135 |
goto T53;} |
goto T53;} |
136 |
vs_base=vs_top; |
vs_base=vs_top; |
140 |
T53:; |
T53:; |
141 |
{object V5; |
{object V5; |
142 |
base[10]= (VV[3]->s.s_dbind); |
base[10]= (VV[3]->s.s_dbind); |
143 |
symlispcall(VV[151],base+10,1); |
symlispcall(VV[152],base+10,1); |
144 |
Llist(); |
Llist(); |
145 |
vs_top=sup; |
vs_top=sup; |
146 |
V5= vs_base[0]; |
V5= vs_base[0]; |
165 |
goto T77; |
goto T77; |
166 |
T77:; |
T77:; |
167 |
base[11]= (V7); |
base[11]= (V7); |
168 |
(void)simple_symlispcall(VV[152],base+11,1); |
(void)simple_symlispcall(VV[153],base+11,1); |
169 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
170 |
V6= CMPcdr((V6)); |
V6= CMPcdr((V6)); |
171 |
V7= CMPcar((V6)); |
V7= CMPcar((V6)); |
180 |
(VV[26]->s.s_dbind)= Cnil; |
(VV[26]->s.s_dbind)= Cnil; |
181 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
182 |
vs_base=vs_top; |
vs_base=vs_top; |
183 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
184 |
vs_top=sup; |
vs_top=sup; |
185 |
goto T20; |
goto T20; |
186 |
T20:; |
T20:; |
209 |
goto T102;} |
goto T102;} |
210 |
base[1]= CMPcadr((V8)); |
base[1]= CMPcadr((V8)); |
211 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
212 |
(void) (*Lnk148)(); |
(void) (*Lnk149)(); |
213 |
vs_top=sup; |
vs_top=sup; |
214 |
goto T100; |
goto T100; |
215 |
goto T102; |
goto T102; |
218 |
goto T106;} |
goto T106;} |
219 |
base[2]= CMPcadr((V8)); |
base[2]= CMPcadr((V8)); |
220 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
221 |
(void) (*Lnk154)(); |
(void) (*Lnk155)(); |
222 |
vs_top=sup; |
vs_top=sup; |
223 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
224 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
321 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
322 |
base[5]= VV[33]; |
base[5]= VV[33]; |
323 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
324 |
(void) (*Lnk155)(); |
(void) (*Lnk156)(); |
325 |
vs_top=sup; |
vs_top=sup; |
326 |
V14= vs_base[0]; |
V14= vs_base[0]; |
327 |
base[4]= (V14); |
base[4]= (V14); |
328 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
329 |
(void) (*Lnk156)(); |
(void) (*Lnk157)(); |
330 |
vs_top=sup; |
vs_top=sup; |
331 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
332 |
base[4]= (V12); |
base[4]= (V12); |
388 |
T168:; |
T168:; |
389 |
bds_bind(VV[37],one_plus((VV[38]->s.s_dbind))); |
bds_bind(VV[37],one_plus((VV[38]->s.s_dbind))); |
390 |
vs_base=vs_top; |
vs_base=vs_top; |
391 |
(void) (*Lnk157)(); |
(void) (*Lnk158)(); |
392 |
vs_top=sup; |
vs_top=sup; |
393 |
V20= vs_base[0]; |
V20= vs_base[0]; |
394 |
bds_bind(VV[38],one_minus(V20)); |
bds_bind(VV[38],one_minus(V20)); |
396 |
base[25]= (VV[41]->s.s_dbind); |
base[25]= (VV[41]->s.s_dbind); |
397 |
base[26]= (VV[37]->s.s_dbind); |
base[26]= (VV[37]->s.s_dbind); |
398 |
vs_top=(vs_base=base+25)+2; |
vs_top=(vs_base=base+25)+2; |
399 |
(void) (*Lnk158)(); |
(void) (*Lnk159)(); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
V21= vs_base[0]; |
V21= vs_base[0]; |
402 |
if(V21==Cnil)goto T176; |
if(V21==Cnil)goto T176; |
405 |
goto T176; |
goto T176; |
406 |
T176:;} |
T176:;} |
407 |
vs_base=vs_top; |
vs_base=vs_top; |
408 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
409 |
vs_top=sup; |
vs_top=sup; |
410 |
V22= vs_base[0]; |
V22= vs_base[0]; |
411 |
bds_bind(VV[40],one_plus(V22)); |
bds_bind(VV[40],one_plus(V22)); |
412 |
goto T175; |
goto T175; |
413 |
T175:; |
T175:; |
414 |
vs_base=vs_top; |
vs_base=vs_top; |
415 |
(void) (*Lnk159)(); |
(void) (*Lnk160)(); |
416 |
vs_top=sup; |
vs_top=sup; |
417 |
bds_bind(VV[41],vs_base[0]); |
bds_bind(VV[41],vs_base[0]); |
418 |
bds_bind(VV[42],Cnil); |
bds_bind(VV[42],Cnil); |
448 |
if(!(type_of((V16))==t_string)){ |
if(!(type_of((V16))==t_string)){ |
449 |
goto T188;} |
goto T188;} |
450 |
vs_base=vs_top; |
vs_base=vs_top; |
451 |
(void) (*Lnk160)(); |
(void) (*Lnk161)(); |
452 |
vs_top=sup; |
vs_top=sup; |
453 |
base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind)))); |
base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind)))); |
454 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
455 |
(void) (*Lnk161)(); |
(void) (*Lnk162)(); |
456 |
vs_top=sup; |
vs_top=sup; |
457 |
goto T188; |
goto T188; |
458 |
T188:; |
T188:; |
459 |
base[25]= small_fixnum(1); |
base[25]= small_fixnum(1); |
460 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
461 |
(void) (*Lnk162)(); |
(void) (*Lnk163)(); |
462 |
vs_top=sup; |
vs_top=sup; |
463 |
(VV[47]->s.s_dbind)= Ct; |
(VV[47]->s.s_dbind)= Ct; |
464 |
if(!(type_of((V16))==t_string)){ |
if(!(type_of((V16))==t_string)){ |
465 |
goto T201;} |
goto T201;} |
466 |
(void)((*(LnkLI163))()); |
(void)((*(LnkLI164))()); |
467 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
468 |
(VV[18]->s.s_dbind)= Cnil; |
(VV[18]->s.s_dbind)= Cnil; |
469 |
goto T199; |
goto T199; |
472 |
base[25]= (V16); |
base[25]= (V16); |
473 |
base[26]= (V17); |
base[26]= (V17); |
474 |
vs_top=(vs_base=base+25)+2; |
vs_top=(vs_base=base+25)+2; |
475 |
(void) (*Lnk164)(); |
(void) (*Lnk165)(); |
476 |
vs_top=sup; |
vs_top=sup; |
477 |
goto T199; |
goto T199; |
478 |
T199:; |
T199:; |
549 |
base[26]= Cnil; |
base[26]= Cnil; |
550 |
base[27]= (VV[24]->s.s_dbind); |
base[27]= (VV[24]->s.s_dbind); |
551 |
vs_top=(vs_base=base+25)+3; |
vs_top=(vs_base=base+25)+3; |
552 |
(void) (*Lnk165)(); |
(void) (*Lnk166)(); |
553 |
vs_top=sup; |
vs_top=sup; |
554 |
(VV[3]->s.s_dbind)= vs_base[0]; |
(VV[3]->s.s_dbind)= vs_base[0]; |
555 |
if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){ |
if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){ |
576 |
base[26]= CMPcar((VV[3]->s.s_dbind)); |
base[26]= CMPcar((VV[3]->s.s_dbind)); |
577 |
base[27]= CMPcdr((VV[3]->s.s_dbind)); |
base[27]= CMPcdr((VV[3]->s.s_dbind)); |
578 |
base[28]= VV[54]; |
base[28]= VV[54]; |
579 |
symlispcall(VV[166],base+26,3); |
symlispcall(VV[167],base+26,3); |
580 |
goto T253; |
goto T253; |
581 |
goto T259; |
goto T259; |
582 |
T259:; |
T259:; |
584 |
base[27]= Cnil; |
base[27]= Cnil; |
585 |
base[28]= Cnil; |
base[28]= Cnil; |
586 |
base[29]= (VV[42]->s.s_dbind); |
base[29]= (VV[42]->s.s_dbind); |
587 |
symlispcall(VV[167],base+26,4); |
symlispcall(VV[168],base+26,4); |
588 |
goto T253; |
goto T253; |
589 |
T253:; |
T253:; |
590 |
Llist(); |
Llist(); |
650 |
T293:; |
T293:; |
651 |
base[27]= (V29); |
base[27]= (V29); |
652 |
base[28]= (VV[48]->s.s_dbind); |
base[28]= (VV[48]->s.s_dbind); |
653 |
(void)simple_symlispcall(VV[152],base+27,2); |
(void)simple_symlispcall(VV[153],base+27,2); |
654 |
princ_char(10,VV[48]); |
princ_char(10,VV[48]); |
655 |
V28= CMPcdr((V28)); |
V28= CMPcdr((V28)); |
656 |
V29= CMPcar((V28)); |
V29= CMPcar((V28)); |
664 |
T239:; |
T239:; |
665 |
princ_char(10,VV[48]); |
princ_char(10,VV[48]); |
666 |
vs_base=vs_top; |
vs_base=vs_top; |
667 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
goto T210; |
goto T210; |
670 |
T210:; |
T210:; |
698 |
while(V34!=Cnil) |
while(V34!=Cnil) |
699 |
{vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;} |
{vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;} |
700 |
vs_base=base+3;} |
vs_base=base+3;} |
701 |
(void) (*Lnk168)(); |
(void) (*Lnk169)(); |
702 |
vs_top=sup; |
vs_top=sup; |
703 |
{object V35 = vs_base[0]; |
{object V35 = vs_base[0]; |
704 |
bds_unwind1; |
bds_unwind1; |
905 |
vs_top=sup; |
vs_top=sup; |
906 |
base[0]= (V50); |
base[0]= (V50); |
907 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
908 |
(void) (*Lnk169)(); |
(void) (*Lnk170)(); |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
if(((V44))!=Cnil){ |
if(((V44))!=Cnil){ |
911 |
goto T388;} |
goto T388;} |
1006 |
bds_bind(VV[43],Ct); |
bds_bind(VV[43],Ct); |
1007 |
base[1]= (V59); |
base[1]= (V59); |
1008 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1009 |
(void) (*Lnk169)(); |
(void) (*Lnk170)(); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
bds_unwind1; |
bds_unwind1; |
1012 |
{object V62 = Cnil; |
{object V62 = Cnil; |
1074 |
base[4]= VV[81]; |
base[4]= VV[81]; |
1075 |
base[5]= (V69); |
base[5]= (V69); |
1076 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1077 |
(void) (*Lnk170)(); |
(void) (*Lnk171)(); |
1078 |
vs_top=sup; |
vs_top=sup; |
1079 |
V70= vs_base[0]; |
V70= vs_base[0]; |
1080 |
if((V70)!=Cnil){ |
if((V70)!=Cnil){ |
1163 |
goto T456; |
goto T456; |
1164 |
T456:; |
T456:; |
1165 |
vs_base=vs_top; |
vs_base=vs_top; |
1166 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
1167 |
return;} |
return;} |
1168 |
} |
} |
1169 |
} |
} |
1193 |
goto T474;} |
goto T474;} |
1194 |
goto T475; |
goto T475; |
1195 |
T475:; |
T475:; |
1196 |
(void)((*(LnkLI171))()); |
(void)((*(LnkLI172))()); |
1197 |
vs_base=vs_top; |
vs_base=vs_top; |
1198 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
1199 |
return; |
return; |
1200 |
goto T474; |
goto T474; |
1201 |
T474:; |
T474:; |
1202 |
if(((*(LnkLI172))((V77)))==Cnil){ |
if(((*(LnkLI173))((V77)))==Cnil){ |
1203 |
goto T481;} |
goto T481;} |
1204 |
(VV[39]->s.s_dbind)= (V77); |
(VV[39]->s.s_dbind)= (V77); |
1205 |
V76= one_minus((V76)); |
V76= one_minus((V76)); |
1220 |
V78= (VV[39]->s.s_dbind); |
V78= (VV[39]->s.s_dbind); |
1221 |
goto T491; |
goto T491; |
1222 |
T491:; |
T491:; |
1223 |
if(((*(LnkLI172))((V78)))!=Cnil){ |
if(((*(LnkLI173))((V78)))!=Cnil){ |
1224 |
goto T493;} |
goto T493;} |
1225 |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
1226 |
goto T492;} |
goto T492;} |
1227 |
goto T493; |
goto T493; |
1228 |
T493:; |
T493:; |
1229 |
(VV[39]->s.s_dbind)= (V78); |
(VV[39]->s.s_dbind)= (V78); |
1230 |
(void)((*(LnkLI171))()); |
(void)((*(LnkLI172))()); |
1231 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
1232 |
base[1]= VV[84]; |
base[1]= VV[84]; |
1233 |
base[3]= (VV[39]->s.s_dbind); |
base[3]= (VV[39]->s.s_dbind); |
1234 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1235 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
1236 |
vs_top=sup; |
vs_top=sup; |
1237 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1238 |
base[3]= CMPcdr((VV[36]->s.s_dbind)); |
base[3]= CMPcdr((VV[36]->s.s_dbind)); |
1274 |
goto T514;} |
goto T514;} |
1275 |
goto T515; |
goto T515; |
1276 |
T515:; |
T515:; |
1277 |
(void)((*(LnkLI171))()); |
(void)((*(LnkLI172))()); |
1278 |
vs_base=vs_top; |
vs_base=vs_top; |
1279 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
1280 |
return; |
return; |
1281 |
goto T514; |
goto T514; |
1282 |
T514:; |
T514:; |
1283 |
if(((*(LnkLI172))((V81)))==Cnil){ |
if(((*(LnkLI173))((V81)))==Cnil){ |
1284 |
goto T521;} |
goto T521;} |
1285 |
(VV[39]->s.s_dbind)= (V81); |
(VV[39]->s.s_dbind)= (V81); |
1286 |
V80= one_minus((V80)); |
V80= one_minus((V80)); |
1303 |
TTL:; |
TTL:; |
1304 |
{object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind)); |
{object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind)); |
1305 |
(VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));} |
(VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));} |
1306 |
if(((*(LnkLI172))((VV[39]->s.s_dbind)))==Cnil){ |
if(((*(LnkLI173))((VV[39]->s.s_dbind)))==Cnil){ |
1307 |
goto T533;} |
goto T533;} |
1308 |
(void)((*(LnkLI171))()); |
(void)((*(LnkLI172))()); |
1309 |
vs_base=vs_top; |
vs_base=vs_top; |
1310 |
(void) (*Lnk153)(); |
(void) (*Lnk154)(); |
1311 |
return; |
return; |
1312 |
goto T533; |
goto T533; |
1313 |
T533:; |
T533:; |
1314 |
vs_base=vs_top; |
vs_base=vs_top; |
1315 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1316 |
return; |
return; |
1317 |
} |
} |
1318 |
} |
} |
1510 |
T580:; |
T580:; |
1511 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1512 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1513 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1514 |
vs_top=sup; |
vs_top=sup; |
1515 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1516 |
goto T581; |
goto T581; |
1517 |
T581:; |
T581:; |
1518 |
base[2]= (VV[38]->s.s_dbind); |
base[2]= (VV[38]->s.s_dbind); |
1519 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1520 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1521 |
vs_top=sup; |
vs_top=sup; |
1522 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1523 |
goto T582; |
goto T582; |
1524 |
T582:; |
T582:; |
1525 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1526 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1527 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1528 |
vs_top=sup; |
vs_top=sup; |
1529 |
V103= vs_base[0]; |
V103= vs_base[0]; |
1530 |
V101= (number_compare((V101),V103)>=0?((V101)):V103); |
V101= (number_compare((V101),V103)>=0?((V101)):V103); |
1531 |
base[2]= one_plus((VV[38]->s.s_dbind)); |
base[2]= one_plus((VV[38]->s.s_dbind)); |
1532 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1533 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1534 |
vs_top=sup; |
vs_top=sup; |
1535 |
V104= vs_base[0]; |
V104= vs_base[0]; |
1536 |
V105= one_minus(V104); |
V105= one_minus(V104); |
1543 |
goto T598;} |
goto T598;} |
1544 |
base[2]= (V106); |
base[2]= (V106); |
1545 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1546 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1547 |
vs_top=sup; |
vs_top=sup; |
1548 |
V107= vs_base[0]; |
V107= vs_base[0]; |
1549 |
if(!(number_compare(V107,(V101))>=0)){ |
if(!(number_compare(V107,(V101))>=0)){ |
1565 |
T612:; |
T612:; |
1566 |
base[2]= (V106); |
base[2]= (V106); |
1567 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1568 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1569 |
vs_top=sup; |
vs_top=sup; |
1570 |
V109= vs_base[0]; |
V109= vs_base[0]; |
1571 |
if(!(number_compare(V109,(V108))>0)){ |
if(!(number_compare(V109,(V108))>0)){ |
1573 |
goto T610; |
goto T610; |
1574 |
goto T613; |
goto T613; |
1575 |
T613:; |
T613:; |
1576 |
if(((*(LnkLI172))((V106)))==Cnil){ |
if(((*(LnkLI173))((V106)))==Cnil){ |
1577 |
goto T619;} |
goto T619;} |
1578 |
(void)((*(LnkLI176))((V106))); |
(void)((*(LnkLI177))((V106))); |
1579 |
goto T619; |
goto T619; |
1580 |
T619:; |
T619:; |
1581 |
V106= number_plus((V106),small_fixnum(1)); |
V106= number_plus((V106),small_fixnum(1)); |
1587 |
base[4]= (V108); |
base[4]= (V108); |
1588 |
base[6]= (V108); |
base[6]= (V108); |
1589 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1590 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
1591 |
vs_top=sup; |
vs_top=sup; |
1592 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1593 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1620 |
{object V111; |
{object V111; |
1621 |
base[2]= (VV[39]->s.s_dbind); |
base[2]= (VV[39]->s.s_dbind); |
1622 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1623 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1624 |
vs_top=sup; |
vs_top=sup; |
1625 |
V112= vs_base[0]; |
V112= vs_base[0]; |
1626 |
V111= number_plus(V112,(V110)); |
V111= number_plus(V112,(V110)); |
1627 |
base[2]= (V111); |
base[2]= (V111); |
1628 |
base[3]= (V111); |
base[3]= (V111); |
1629 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1630 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1631 |
return;} |
return;} |
1632 |
} |
} |
1633 |
} |
} |
1649 |
register object V116; |
register object V116; |
1650 |
base[1]= one_minus((VV[40]->s.s_dbind)); |
base[1]= one_minus((VV[40]->s.s_dbind)); |
1651 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1652 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1653 |
vs_top=sup; |
vs_top=sup; |
1654 |
V117= vs_base[0]; |
V117= vs_base[0]; |
1655 |
V115= one_plus(V117); |
V115= one_plus(V117); |
1656 |
base[1]= one_plus((VV[41]->s.s_dbind)); |
base[1]= one_plus((VV[41]->s.s_dbind)); |
1657 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1658 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1659 |
vs_top=sup; |
vs_top=sup; |
1660 |
V116= vs_base[0]; |
V116= vs_base[0]; |
1661 |
goto T654; |
goto T654; |
1671 |
goto T660;} |
goto T660;} |
1672 |
base[1]= (V115); |
base[1]= (V115); |
1673 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1674 |
(void) (*Lnk180)(); |
(void) (*Lnk181)(); |
1675 |
vs_top=sup; |
vs_top=sup; |
1676 |
V119= vs_base[0]; |
V119= vs_base[0]; |
1677 |
{register object x= V119,V118= (V113); |
{register object x= V119,V118= (V113); |
1690 |
goto T670;} |
goto T670;} |
1691 |
base[1]= (V114); |
base[1]= (V114); |
1692 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1693 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1694 |
vs_top=sup; |
vs_top=sup; |
1695 |
V120= vs_base[0]; |
V120= vs_base[0]; |
1696 |
if(!(number_compare(V120,(V115))>0)){ |
if(!(number_compare(V120,(V115))>0)){ |
1700 |
goto T666; |
goto T666; |
1701 |
goto T669; |
goto T669; |
1702 |
T669:; |
T669:; |
1703 |
(void)((*(LnkLI181))((V114))); |
(void)((*(LnkLI182))((V114))); |
1704 |
V114= number_plus((V114),small_fixnum(1)); |
V114= number_plus((V114),small_fixnum(1)); |
1705 |
goto T668; |
goto T668; |
1706 |
goto T666; |
goto T666; |
1710 |
base[3]= (V115); |
base[3]= (V115); |
1711 |
base[5]= (V115); |
base[5]= (V115); |
1712 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1713 |
(void) (*Lnk180)(); |
(void) (*Lnk181)(); |
1714 |
vs_top=sup; |
vs_top=sup; |
1715 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1716 |
base[6]= (V115); |
base[6]= (V115); |
1717 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1718 |
(void) (*Lnk182)(); |
(void) (*Lnk183)(); |
1719 |
vs_top=sup; |
vs_top=sup; |
1720 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1721 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
1751 |
return; |
return; |
1752 |
goto T697; |
goto T697; |
1753 |
T697:; |
T697:; |
1754 |
if(((*(LnkLI172))((V121)))==Cnil){ |
if(((*(LnkLI173))((V121)))==Cnil){ |
1755 |
goto T702;} |
goto T702;} |
1756 |
if(((V122))==Cnil){ |
if(((V122))==Cnil){ |
1757 |
goto T705;} |
goto T705;} |
1760 |
T705:; |
T705:; |
1761 |
base[1]= (V121); |
base[1]= (V121); |
1762 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1763 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
1764 |
vs_top=sup; |
vs_top=sup; |
1765 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
1766 |
base[1]= VV[95]; |
base[1]= VV[95]; |
1817 |
base[3]= (VV[40]->s.s_dbind); |
base[3]= (VV[40]->s.s_dbind); |
1818 |
base[4]= (V123); |
base[4]= (V123); |
1819 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1820 |
(void) (*Lnk158)(); |
(void) (*Lnk159)(); |
1821 |
vs_top=sup; |
vs_top=sup; |
1822 |
V127= vs_base[0]; |
V127= vs_base[0]; |
1823 |
if(V127==Cnil)goto T735; |
if(V127==Cnil)goto T735; |
1837 |
return; |
return; |
1838 |
goto T741; |
goto T741; |
1839 |
T741:; |
T741:; |
1840 |
if(((*(LnkLI172))((V125)))==Cnil){ |
if(((*(LnkLI173))((V125)))==Cnil){ |
1841 |
goto T745;} |
goto T745;} |
1842 |
(void)((*(LnkLI176))((V125))); |
(void)((*(LnkLI177))((V125))); |
1843 |
goto T745; |
goto T745; |
1844 |
T745:; |
T745:; |
1845 |
goto T750; |
goto T750; |
1848 |
goto T752;} |
goto T752;} |
1849 |
base[3]= (V126); |
base[3]= (V126); |
1850 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1851 |
(void) (*Lnk183)(); |
(void) (*Lnk184)(); |
1852 |
vs_top=sup; |
vs_top=sup; |
1853 |
V128= vs_base[0]; |
V128= vs_base[0]; |
1854 |
if(!(number_compare(V128,(V125))>0)){ |
if(!(number_compare(V128,(V125))>0)){ |
1858 |
goto T748; |
goto T748; |
1859 |
goto T751; |
goto T751; |
1860 |
T751:; |
T751:; |
1861 |
(void)((*(LnkLI181))((V126))); |
(void)((*(LnkLI182))((V126))); |
1862 |
V126= number_plus((V126),small_fixnum(1)); |
V126= number_plus((V126),small_fixnum(1)); |
1863 |
goto T750; |
goto T750; |
1864 |
goto T748; |
goto T748; |
1885 |
{register object V131; |
{register object V131; |
1886 |
base[7]= (V130); |
base[7]= (V130); |
1887 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1888 |
(void) (*Lnk184)(); |
(void) (*Lnk185)(); |
1889 |
vs_top=sup; |
vs_top=sup; |
1890 |
V131= vs_base[0]; |
V131= vs_base[0]; |
1891 |
if(type_of((V131))==t_symbol){ |
if(type_of((V131))==t_symbol){ |
1910 |
goto T771; |
goto T771; |
1911 |
goto T783; |
goto T783; |
1912 |
T783:; |
T783:; |
1913 |
if((V132!= VV[185]) |
if((V132!= VV[186]) |
1914 |
&& (V132!= VV[186]))goto T784; |
&& (V132!= VV[187]))goto T784; |
1915 |
base[6]= CMPcdr((V131)); |
base[6]= CMPcdr((V131)); |
1916 |
goto T771; |
goto T771; |
1917 |
goto T784; |
goto T784; |
1921 |
goto T771; |
goto T771; |
1922 |
goto T785; |
goto T785; |
1923 |
T785:; |
T785:; |
1924 |
if((V132!= VV[187]))goto T786; |
if((V132!= VV[188]))goto T786; |
1925 |
base[6]= CMPcddddr((V131)); |
base[6]= CMPcddddr((V131)); |
1926 |
goto T771; |
goto T771; |
1927 |
goto T786; |
goto T786; |
1956 |
T771:; |
T771:; |
1957 |
base[8]= (V130); |
base[8]= (V130); |
1958 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1959 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
1960 |
vs_top=sup; |
vs_top=sup; |
1961 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1962 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1980 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
1981 |
base[1]= VV[103]; |
base[1]= VV[103]; |
1982 |
base[2]= (V135); |
base[2]= (V135); |
1983 |
base[3]= (*(LnkLI188))((V135)); |
base[3]= (*(LnkLI189))((V135)); |
1984 |
base[5]= (V135); |
base[5]= (V135); |
1985 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1986 |
(void) (*Lnk183)(); |
(void) (*Lnk184)(); |
1987 |
vs_top=sup; |
vs_top=sup; |
1988 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1989 |
base[6]= (V135); |
base[6]= (V135); |
1990 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1991 |
(void) (*Lnk189)(); |
(void) (*Lnk190)(); |
1992 |
vs_top=sup; |
vs_top=sup; |
1993 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1994 |
base[7]= (V135); |
base[7]= (V135); |
1995 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1996 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1997 |
vs_top=sup; |
vs_top=sup; |
1998 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1999 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2016 |
V139= Cnil; |
V139= Cnil; |
2017 |
base[0]= (V138); |
base[0]= (V138); |
2018 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2019 |
(void) (*Lnk190)(); |
(void) (*Lnk191)(); |
2020 |
vs_top=sup; |
vs_top=sup; |
2021 |
V141= vs_base[0]; |
V141= vs_base[0]; |
2022 |
{object V140= V141; |
{object V140= V141; |
2023 |
if((V140!= VV[191]))goto T812; |
if((V140!= VV[192]))goto T812; |
2024 |
base[1]= (V138); |
base[1]= (V138); |
2025 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2026 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2027 |
vs_top=sup; |
vs_top=sup; |
2028 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2029 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2030 |
(void) (*Lnk193)(); |
(void) (*Lnk194)(); |
2031 |
vs_top=sup; |
vs_top=sup; |
2032 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2033 |
goto T814;}{object V142; |
goto T814;}{object V142; |
2034 |
base[1]= (V138); |
base[1]= (V138); |
2035 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2036 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2037 |
vs_top=sup; |
vs_top=sup; |
2038 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2039 |
base[3]= (V138); |
base[3]= (V138); |
2040 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2041 |
(void) (*Lnk189)(); |
(void) (*Lnk190)(); |
2042 |
vs_top=sup; |
vs_top=sup; |
2043 |
V143= vs_base[0]; |
V143= vs_base[0]; |
2044 |
base[2]= number_plus(V143,small_fixnum(2)); |
base[2]= number_plus(V143,small_fixnum(2)); |
2045 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2046 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
2047 |
vs_top=sup; |
vs_top=sup; |
2048 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2049 |
base[2]= VV[104]; |
base[2]= VV[104]; |
2050 |
base[3]= (VV[194]->s.s_gfdef); |
base[3]= (VV[195]->s.s_gfdef); |
2051 |
base[4]= VV[105]; |
base[4]= VV[105]; |
2052 |
base[5]= (VV[195]->s.s_gfdef); |
base[5]= (VV[196]->s.s_gfdef); |
2053 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
2054 |
Lmember(); |
Lmember(); |
2055 |
vs_top=sup; |
vs_top=sup; |
2068 |
T834:; |
T834:; |
2069 |
base[1]= (V138); |
base[1]= (V138); |
2070 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2071 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2072 |
vs_top=sup; |
vs_top=sup; |
2073 |
V147= vs_base[0]; |
V147= vs_base[0]; |
2074 |
V148= (VV[195]->s.s_gfdef); |
V148= (VV[196]->s.s_gfdef); |
2075 |
V149= (VV[194]->s.s_gfdef); |
V149= (VV[195]->s.s_gfdef); |
2076 |
V150= (VFUN_NARGS=6,(*(LnkLI196))(V147,(V139),VV[107],V148,VV[104],V149)); |
V150= (VFUN_NARGS=6,(*(LnkLI197))(V147,(V139),VV[107],V148,VV[104],V149)); |
2077 |
{object V145; |
{object V145; |
2078 |
object V146= /* INLINE-ARGS */V150; |
object V146= /* INLINE-ARGS */V150; |
2079 |
if(V146==Cnil){ |
if(V146==Cnil){ |
2102 |
T818:;} |
T818:;} |
2103 |
base[0]= (V138); |
base[0]= (V138); |
2104 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2105 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2106 |
vs_top=sup; |
vs_top=sup; |
2107 |
V154= vs_base[0]; |
V154= vs_base[0]; |
2108 |
{object V155 = list(2,VV[109],V154); |
{object V155 = list(2,VV[109],V154); |
2111 |
T814:; |
T814:; |
2112 |
base[0]= (V138); |
base[0]= (V138); |
2113 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2114 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2115 |
vs_top=sup; |
vs_top=sup; |
2116 |
V156= vs_base[0]; |
V156= vs_base[0]; |
2117 |
{object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]); |
{object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]); |
2118 |
VMR24(V157)} |
VMR24(V157)} |
2119 |
goto T812; |
goto T812; |
2120 |
T812:; |
T812:; |
2121 |
if((V140!= VV[197]))goto T847; |
if((V140!= VV[198]))goto T847; |
2122 |
{object V158 = VV[112]; |
{object V158 = VV[112]; |
2123 |
VMR24(V158)} |
VMR24(V158)} |
2124 |
goto T847; |
goto T847; |
2125 |
T847:; |
T847:; |
2126 |
base[0]= (V138); |
base[0]= (V138); |
2127 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2128 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2129 |
vs_top=sup; |
vs_top=sup; |
2130 |
V159= vs_base[0]; |
V159= vs_base[0]; |
2131 |
{object V160 = list(2,VV[113],V159); |
{object V160 = list(2,VV[113],V159); |
2148 |
base[1]= VV[114]; |
base[1]= VV[114]; |
2149 |
base[3]= (VV[39]->s.s_dbind); |
base[3]= (VV[39]->s.s_dbind); |
2150 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2151 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2152 |
vs_top=sup; |
vs_top=sup; |
2153 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2154 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2179 |
{object V163; |
{object V163; |
2180 |
base[1]= (V162); |
base[1]= (V162); |
2181 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2182 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2183 |
vs_top=sup; |
vs_top=sup; |
2184 |
V163= vs_base[0]; |
V163= vs_base[0]; |
2185 |
if((V163)==Cnil){ |
if((V163)==Cnil){ |
2213 |
{register object V169; |
{register object V169; |
2214 |
base[1]= (V168); |
base[1]= (V168); |
2215 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2216 |
(void) (*Lnk184)(); |
(void) (*Lnk185)(); |
2217 |
vs_top=sup; |
vs_top=sup; |
2218 |
V169= vs_base[0]; |
V169= vs_base[0]; |
2219 |
if(!(type_of((V169))==t_symbol)){ |
if(!(type_of((V169))==t_symbol)){ |
2232 |
return; |
return; |
2233 |
goto T871; |
goto T871; |
2234 |
T871:; |
T871:; |
2235 |
if((V170!= VV[185]) |
if((V170!= VV[186]) |
2236 |
&& (V170!= VV[186]))goto T872; |
&& (V170!= VV[187]))goto T872; |
2237 |
base[1]= CMPcadr((V169)); |
base[1]= CMPcadr((V169)); |
2238 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2239 |
return; |
return; |
2240 |
goto T872; |
goto T872; |
2241 |
T872:; |
T872:; |
2242 |
if((V170!= VV[187]))goto T873; |
if((V170!= VV[188]))goto T873; |
2243 |
base[1]= CMPcar(CMPcddddr((V169))); |
base[1]= CMPcar(CMPcddddr((V169))); |
2244 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2245 |
return; |
return; |
2285 |
goto T885;} |
goto T885;} |
2286 |
base[1]= (V169); |
base[1]= (V169); |
2287 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2288 |
(void) (*Lnk198)(); |
(void) (*Lnk199)(); |
2289 |
return; |
return; |
2290 |
goto T885; |
goto T885; |
2291 |
T885:; |
T885:; |
2308 |
{object V172; |
{object V172; |
2309 |
base[1]= (V171); |
base[1]= (V171); |
2310 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2311 |
(void) (*Lnk184)(); |
(void) (*Lnk185)(); |
2312 |
vs_top=sup; |
vs_top=sup; |
2313 |
V172= vs_base[0]; |
V172= vs_base[0]; |
2314 |
if(!(type_of((V172))==t_cons)){ |
if(!(type_of((V172))==t_cons)){ |
2334 |
TTL:; |
TTL:; |
2335 |
base[0]= (VV[39]->s.s_dbind); |
base[0]= (VV[39]->s.s_dbind); |
2336 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2337 |
(void) (*Lnk199)(); |
(void) (*Lnk200)(); |
2338 |
vs_top=sup; |
vs_top=sup; |
2339 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2340 |
goto T898;} |
goto T898;} |
2345 |
{object V173; |
{object V173; |
2346 |
base[0]= (VV[39]->s.s_dbind); |
base[0]= (VV[39]->s.s_dbind); |
2347 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2348 |
(void) (*Lnk175)(); |
(void) (*Lnk176)(); |
2349 |
vs_top=sup; |
vs_top=sup; |
2350 |
V173= vs_base[0]; |
V173= vs_base[0]; |
2351 |
base[0]= (V173); |
base[0]= (V173); |
2352 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2353 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
2354 |
vs_top=sup; |
vs_top=sup; |
2355 |
V174= vs_base[0]; |
V174= vs_base[0]; |
2356 |
base[0]= one_plus((V173)); |
base[0]= one_plus((V173)); |
2357 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2358 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
2359 |
vs_top=sup; |
vs_top=sup; |
2360 |
V175= vs_base[0]; |
V175= vs_base[0]; |
2361 |
base[0]= number_plus((V173),small_fixnum(2)); |
base[0]= number_plus((V173),small_fixnum(2)); |
2362 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2363 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
2364 |
vs_top=sup; |
vs_top=sup; |
2365 |
V176= vs_base[0]; |
V176= vs_base[0]; |
2366 |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
2391 |
VMR30(V183)} |
VMR30(V183)} |
2392 |
goto T913; |
goto T913; |
2393 |
T913:; |
T913:; |
2394 |
V184= (*(LnkLI200))((V180),CMPcdr((V181))); |
V184= (*(LnkLI201))((V180),CMPcdr((V181))); |
2395 |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
2396 |
{object V185 = (V181); |
{object V185 = (V181); |
2397 |
VMR30(V185)} |
VMR30(V185)} |
2413 |
goto T916;} |
goto T916;} |
2414 |
base[1]= (V188); |
base[1]= (V188); |
2415 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2416 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2417 |
vs_top=sup; |
vs_top=sup; |
2418 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2419 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2420 |
(void) (*Lnk193)(); |
(void) (*Lnk194)(); |
2421 |
vs_top=sup; |
vs_top=sup; |
2422 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2423 |
goto T916;} |
goto T916;} |
2424 |
base[1]= (V188); |
base[1]= (V188); |
2425 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2426 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2427 |
vs_top=sup; |
vs_top=sup; |
2428 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2429 |
base[3]= (V188); |
base[3]= (V188); |
2430 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2431 |
(void) (*Lnk189)(); |
(void) (*Lnk190)(); |
2432 |
vs_top=sup; |
vs_top=sup; |
2433 |
V191= vs_base[0]; |
V191= vs_base[0]; |
2434 |
base[2]= number_plus(V191,small_fixnum(2)); |
base[2]= number_plus(V191,small_fixnum(2)); |
2435 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2436 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
2437 |
vs_top=sup; |
vs_top=sup; |
2438 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2439 |
base[2]= VV[104]; |
base[2]= VV[104]; |
2440 |
base[3]= (VV[194]->s.s_gfdef); |
base[3]= (VV[195]->s.s_gfdef); |
2441 |
base[4]= VV[105]; |
base[4]= VV[105]; |
2442 |
base[5]= (VV[195]->s.s_gfdef); |
base[5]= (VV[196]->s.s_gfdef); |
2443 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
2444 |
Lmember(); |
Lmember(); |
2445 |
vs_top=sup; |
vs_top=sup; |
2450 |
goto T916;} |
goto T916;} |
2451 |
base[1]= (V188); |
base[1]= (V188); |
2452 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2453 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2454 |
vs_top=sup; |
vs_top=sup; |
2455 |
V196= vs_base[0]; |
V196= vs_base[0]; |
2456 |
V197= (VV[195]->s.s_gfdef); |
V197= (VV[196]->s.s_gfdef); |
2457 |
V198= (VV[194]->s.s_gfdef); |
V198= (VV[195]->s.s_gfdef); |
2458 |
V199= (VFUN_NARGS=6,(*(LnkLI196))(V196,(V190),VV[107],V197,VV[104],V198)); |
V199= (VFUN_NARGS=6,(*(LnkLI197))(V196,(V190),VV[107],V197,VV[104],V198)); |
2459 |
{object V194; |
{object V194; |
2460 |
object V195= /* INLINE-ARGS */V199; |
object V195= /* INLINE-ARGS */V199; |
2461 |
if(V195==Cnil){ |
if(V195==Cnil){ |
2482 |
T942:; |
T942:; |
2483 |
base[1]= (V188); |
base[1]= (V188); |
2484 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2485 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2486 |
vs_top=sup; |
vs_top=sup; |
2487 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2488 |
base[1]= (V189); |
base[1]= (V189); |
2489 |
base[2]= Ct; |
base[2]= Ct; |
2490 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2491 |
(void) (*Lnk201)(); |
(void) (*Lnk202)(); |
2492 |
vs_top=sup; |
vs_top=sup; |
2493 |
goto T916; |
goto T916; |
2494 |
goto T926; |
goto T926; |
2495 |
T926:; |
T926:; |
2496 |
base[1]= (V188); |
base[1]= (V188); |
2497 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2498 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2499 |
vs_top=sup; |
vs_top=sup; |
2500 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2501 |
base[1]= (V189); |
base[1]= (V189); |
2502 |
base[2]= Cnil; |
base[2]= Cnil; |
2503 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2504 |
(void) (*Lnk201)(); |
(void) (*Lnk202)(); |
2505 |
vs_top=sup; |
vs_top=sup; |
2506 |
goto T916; |
goto T916; |
2507 |
T916:; |
T916:; |
2533 |
V204= one_minus((VV[39]->s.s_dbind)); |
V204= one_minus((VV[39]->s.s_dbind)); |
2534 |
base[2]= (V204); |
base[2]= (V204); |
2535 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2536 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2537 |
vs_top=sup; |
vs_top=sup; |
2538 |
V205= vs_base[0]; |
V205= vs_base[0]; |
2539 |
goto T969; |
goto T969; |
2550 |
VMR32(V206)} |
VMR32(V206)} |
2551 |
goto T970; |
goto T970; |
2552 |
T970:; |
T970:; |
2553 |
if(((*(LnkLI172))((V204)))==Cnil){ |
if(((*(LnkLI173))((V204)))==Cnil){ |
2554 |
goto T977;} |
goto T977;} |
2555 |
V207= symbol_name((V205)); |
V207= symbol_name((V205)); |
2556 |
V208= (VV[203]->s.s_gfdef); |
V208= (VV[204]->s.s_gfdef); |
2557 |
if(((VFUN_NARGS=4,(*(LnkLI202))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI203))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){ |
2558 |
goto T977;} |
goto T977;} |
2559 |
base[2]= (V204); |
base[2]= (V204); |
2560 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2561 |
(void) (*Lnk204)(); |
(void) (*Lnk205)(); |
2562 |
vs_top=sup; |
vs_top=sup; |
2563 |
{object V209 = Cnil; |
{object V209 = Cnil; |
2564 |
VMR32(V209)} |
VMR32(V209)} |
2567 |
V204= one_minus((V204)); |
V204= one_minus((V204)); |
2568 |
base[2]= (V204); |
base[2]= (V204); |
2569 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2570 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2571 |
vs_top=sup; |
vs_top=sup; |
2572 |
V205= vs_base[0]; |
V205= vs_base[0]; |
2573 |
goto T969;}} |
goto T969;}} |
2590 |
V213= one_plus((VV[39]->s.s_dbind)); |
V213= one_plus((VV[39]->s.s_dbind)); |
2591 |
base[2]= (V213); |
base[2]= (V213); |
2592 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2593 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2594 |
vs_top=sup; |
vs_top=sup; |
2595 |
V214= vs_base[0]; |
V214= vs_base[0]; |
2596 |
goto T998; |
goto T998; |
2607 |
VMR33(V215)} |
VMR33(V215)} |
2608 |
goto T999; |
goto T999; |
2609 |
T999:; |
T999:; |
2610 |
if(((*(LnkLI172))((V213)))==Cnil){ |
if(((*(LnkLI173))((V213)))==Cnil){ |
2611 |
goto T1006;} |
goto T1006;} |
2612 |
V216= symbol_name((V214)); |
V216= symbol_name((V214)); |
2613 |
V217= (VV[203]->s.s_gfdef); |
V217= (VV[204]->s.s_gfdef); |
2614 |
if(((VFUN_NARGS=4,(*(LnkLI202))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI203))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){ |
2615 |
goto T1006;} |
goto T1006;} |
2616 |
base[2]= (V213); |
base[2]= (V213); |
2617 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2618 |
(void) (*Lnk204)(); |
(void) (*Lnk205)(); |
2619 |
vs_top=sup; |
vs_top=sup; |
2620 |
{object V218 = Cnil; |
{object V218 = Cnil; |
2621 |
VMR33(V218)} |
VMR33(V218)} |
2624 |
V213= one_plus((V213)); |
V213= one_plus((V213)); |
2625 |
base[2]= (V213); |
base[2]= (V213); |
2626 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2627 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
2628 |
vs_top=sup; |
vs_top=sup; |
2629 |
V214= vs_base[0]; |
V214= vs_base[0]; |
2630 |
goto T998;}} |
goto T998;}} |
2713 |
long V229; |
long V229; |
2714 |
base[2]= (V226); |
base[2]= (V226); |
2715 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2716 |
(void) (*Lnk205)(); |
(void) (*Lnk206)(); |
2717 |
if(vs_base>=vs_top){vs_top=sup;goto T1064;} |
if(vs_base>=vs_top){vs_top=sup;goto T1064;} |
2718 |
V228= fix(vs_base[0]); |
V228= fix(vs_base[0]); |
2719 |
vs_base++; |
vs_base++; |
2918 |
{register object V245; |
{register object V245; |
2919 |
base[2]= CMPcar((V243)); |
base[2]= CMPcar((V243)); |
2920 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2921 |
(void) (*Lnk206)(); |
(void) (*Lnk207)(); |
2922 |
vs_top=sup; |
vs_top=sup; |
2923 |
V245= vs_base[0]; |
V245= vs_base[0]; |
2924 |
(V243)->c.c_car = (V245);} |
(V243)->c.c_car = (V245);} |
3005 |
V254= Cnil; |
V254= Cnil; |
3006 |
base[4]= (V251); |
base[4]= (V251); |
3007 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3008 |
(void) (*Lnk207)(); |
(void) (*Lnk208)(); |
3009 |
vs_top=sup; |
vs_top=sup; |
3010 |
{register object V255; |
{register object V255; |
3011 |
register object V256; |
register object V256; |
3033 |
base[7]= (V250); |
base[7]= (V250); |
3034 |
base[8]= (V258); |
base[8]= (V258); |
3035 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3036 |
(void) (*Lnk155)(); |
(void) (*Lnk156)(); |
3037 |
vs_top=sup; |
vs_top=sup; |
3038 |
V254= vs_base[0]; |
V254= vs_base[0]; |
3039 |
if(!((file_exists((V254))))){ |
if(!((file_exists((V254))))){ |
3090 |
base[3]= (VV[130]->s.s_dbind); |
base[3]= (VV[130]->s.s_dbind); |
3091 |
base[4]= (VV[131]->s.s_dbind); |
base[4]= (VV[131]->s.s_dbind); |
3092 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3093 |
(void) (*Lnk208)(); |
(void) (*Lnk209)(); |
3094 |
vs_top=sup; |
vs_top=sup; |
3095 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3096 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3097 |
(void) (*Lnk148)(); |
(void) (*Lnk149)(); |
3098 |
return; |
return; |
3099 |
} |
} |
3100 |
} |
} |
3247 |
{object V269;{object V270; |
{object V269;{object V270; |
3248 |
base[2]= (V268); |
base[2]= (V268); |
3249 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3250 |
(void) (*Lnk209)(); |
(void) (*Lnk210)(); |
3251 |
vs_top=sup; |
vs_top=sup; |
3252 |
V270= vs_base[0]; |
V270= vs_base[0]; |
3253 |
if(V270==Cnil)goto T1278; |
if(V270==Cnil)goto T1278; |
3273 |
base[2]= (V267); |
base[2]= (V267); |
3274 |
base[4]= (V269); |
base[4]= (V269); |
3275 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3276 |
(void) (*Lnk206)(); |
(void) (*Lnk207)(); |
3277 |
vs_top=sup; |
vs_top=sup; |
3278 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3279 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3299 |
{register long V271; |
{register long V271; |
3300 |
register object V272; |
register object V272; |
3301 |
vs_base=vs_top; |
vs_base=vs_top; |
3302 |
(void) (*Lnk210)(); |
(void) (*Lnk211)(); |
3303 |
vs_top=sup; |
vs_top=sup; |
3304 |
V271= fix(vs_base[0]); |
V271= fix(vs_base[0]); |
3305 |
V272= Cnil; |
V272= Cnil; |
3313 |
T1299:; |
T1299:; |
3314 |
base[0]= make_fixnum(V271); |
base[0]= make_fixnum(V271); |
3315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3316 |
(void) (*Lnk211)(); |
(void) (*Lnk212)(); |
3317 |
vs_top=sup; |
vs_top=sup; |
3318 |
V273= vs_base[0]; |
V273= vs_base[0]; |
3319 |
V272= make_cons(V273,(V272)); |
V272= make_cons(V273,(V272)); |
3325 |
{object V274; |
{object V274; |
3326 |
base[0]= VV[138]; |
base[0]= VV[138]; |
3327 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3328 |
(void) (*Lnk212)(); |
(void) (*Lnk213)(); |
3329 |
vs_top=sup; |
vs_top=sup; |
3330 |
V274= vs_base[0];{object V275; |
V274= vs_base[0];{object V275; |
3331 |
base[0]= VV[137]; |
base[0]= VV[137]; |
3332 |
base[1]= VV[139]; |
base[1]= VV[139]; |
3333 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3334 |
(void) (*Lnk213)(); |
(void) (*Lnk214)(); |
3335 |
vs_top=sup; |
vs_top=sup; |
3336 |
V275= vs_base[0]; |
V275= vs_base[0]; |
3337 |
if(V275==Cnil)goto T1312; |
if(V275==Cnil)goto T1312; |
3342 |
goto T1311;} |
goto T1311;} |
3343 |
base[0]= (V274); |
base[0]= (V274); |
3344 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3345 |
(void) (*Lnk206)(); |
(void) (*Lnk207)(); |
3346 |
vs_top=sup; |
vs_top=sup; |
3347 |
(VV[137]->s.s_dbind)= vs_base[0]; |
(VV[137]->s.s_dbind)= vs_base[0]; |
3348 |
goto T1311; |
goto T1311; |
3356 |
base[0]= (VV[137]->s.s_dbind); |
base[0]= (VV[137]->s.s_dbind); |
3357 |
base[1]= VV[140]; |
base[1]= VV[140]; |
3358 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3359 |
(void) (*Lnk155)(); |
(void) (*Lnk156)(); |
3360 |
vs_top=sup; |
vs_top=sup; |
3361 |
V276= vs_base[0]; |
V276= vs_base[0]; |
3362 |
(VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind)); |
(VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind)); |
3363 |
base[0]= (VV[137]->s.s_dbind); |
base[0]= (VV[137]->s.s_dbind); |
3364 |
base[1]= VV[141]; |
base[1]= VV[141]; |
3365 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3366 |
(void) (*Lnk155)(); |
(void) (*Lnk156)(); |
3367 |
vs_top=sup; |
vs_top=sup; |
3368 |
V277= vs_base[0]; |
V277= vs_base[0]; |
3369 |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
3372 |
base[2]= VV[143]; |
base[2]= VV[143]; |
3373 |
base[3]= Cnil; |
base[3]= Cnil; |
3374 |
base[4]= VV[144]; |
base[4]= VV[144]; |
3375 |
base[6]= small_fixnum(0); |
base[5]= Cnil; |
3376 |
vs_top=(vs_base=base+6)+1; |
base[6]= VV[145]; |
3377 |
(void) (*Lnk211)(); |
base[8]= small_fixnum(0); |
3378 |
|
vs_top=(vs_base=base+8)+1; |
3379 |
|
(void) (*Lnk212)(); |
3380 |
vs_top=sup; |
vs_top=sup; |
3381 |
base[5]= vs_base[0]; |
base[7]= vs_base[0]; |
3382 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+6; |
3383 |
Lmake_pathname(); |
Lmake_pathname(); |
3384 |
vs_top=sup; |
vs_top=sup; |
3385 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3392 |
vs_top=sup; |
vs_top=sup; |
3393 |
(VV[142]->s.s_dbind)= vs_base[0]; |
(VV[142]->s.s_dbind)= vs_base[0]; |
3394 |
base[0]= VV[142]; |
base[0]= VV[142]; |
3395 |
base[1]= VV[145]; |
base[1]= VV[146]; |
3396 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3397 |
(void) (*Lnk213)(); |
(void) (*Lnk214)(); |
3398 |
vs_top=sup; |
vs_top=sup; |
3399 |
base[0]= VV[146]; |
base[0]= VV[147]; |
3400 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3401 |
(void) (*Lnk209)(); |
(void) (*Lnk210)(); |
3402 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3403 |
V272= vs_base[0]; |
V272= vs_base[0]; |
3404 |
vs_base++; |
vs_base++; |
3410 |
V272= Cnil;} |
V272= Cnil;} |
3411 |
vs_top=sup; |
vs_top=sup; |
3412 |
if(((V272))==Cnil){ |
if(((V272))==Cnil){ |
3413 |
goto T1347;} |
goto T1349;} |
3414 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[15],Cnil); |
3415 |
base[1]= (VV[16]->s.s_dbind); |
base[1]= (VV[16]->s.s_dbind); |
3416 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3417 |
(void) (*Lnk149)(); |
(void) (*Lnk150)(); |
3418 |
vs_top=sup; |
vs_top=sup; |
3419 |
(VV[16]->s.s_dbind)= (V272); |
(VV[16]->s.s_dbind)= (V272); |
3420 |
base[1]= CMPcar((VV[16]->s.s_dbind)); |
base[1]= CMPcar((VV[16]->s.s_dbind)); |
3421 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3422 |
(void) (*Lnk214)(); |
(void) (*Lnk215)(); |
3423 |
bds_unwind1; |
bds_unwind1; |
3424 |
return; |
return; |
3425 |
goto T1347; |
goto T1349; |
3426 |
T1347:; |
T1349:; |
3427 |
base[0]= Cnil; |
base[0]= Cnil; |
3428 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3429 |
return;}} |
return;}} |
3440 |
vs_top=sup; |
vs_top=sup; |
3441 |
goto TTL; |
goto TTL; |
3442 |
TTL:; |
TTL:; |
3443 |
base[1]= VV[147]; |
base[1]= VV[148]; |
3444 |
base[2]= Cnil; |
base[2]= Cnil; |
3445 |
bds_bind(VV[43],Cnil); |
bds_bind(VV[43],Cnil); |
3446 |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
3447 |
if(nlj_active) |
if(nlj_active) |
3448 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
3449 |
vs_top=sup; |
vs_top=sup; |
3450 |
goto T1356;} |
goto T1358;} |
3451 |
else{ |
else{ |
3452 |
base[5]= (V278); |
base[5]= (V278); |
3453 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3454 |
(void) (*Lnk215)(); |
(void) (*Lnk216)(); |
3455 |
vs_top=sup; |
vs_top=sup; |
3456 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3457 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
3462 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3463 |
Lread_line(); |
Lread_line(); |
3464 |
vs_top=sup; |
vs_top=sup; |
3465 |
goto T1365; |
goto T1367; |
3466 |
T1365:; |
T1367:; |
3467 |
base[6]= base[4]; |
base[6]= base[4]; |
3468 |
base[7]= Cnil; |
base[7]= Cnil; |
3469 |
base[8]= base[1]; |
base[8]= base[1]; |
3472 |
vs_top=sup; |
vs_top=sup; |
3473 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3474 |
if(!((base[1])==(base[2]))){ |
if(!((base[1])==(base[2]))){ |
3475 |
goto T1372;} |
goto T1374;} |
3476 |
base[6]= Cnil; |
base[6]= Cnil; |
3477 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3478 |
goto T1361; |
goto T1363; |
3479 |
goto T1372; |
goto T1374; |
3480 |
T1372:; |
T1374:; |
3481 |
base[6]= base[2]; |
base[6]= base[2]; |
3482 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3483 |
Leval(); |
Leval(); |
3484 |
vs_top=sup; |
vs_top=sup; |
3485 |
goto T1365; |
goto T1367; |
3486 |
goto T1361; |
goto T1363; |
3487 |
T1361:; |
T1363:; |
3488 |
active=FALSE;} |
active=FALSE;} |
3489 |
base[5]=Cnil; |
base[5]=Cnil; |
3490 |
while(vs_base<vs_top) |
while(vs_base<vs_top) |
3492 |
vs_top=sup; |
vs_top=sup; |
3493 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
3494 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
3495 |
goto T1377;} |
goto T1379;} |
3496 |
base[6]= base[4]; |
base[6]= base[4]; |
3497 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3498 |
Lclose(); |
Lclose(); |
3499 |
vs_top=sup; |
vs_top=sup; |
3500 |
goto T1377; |
goto T1379; |
3501 |
T1377:; |
T1379:; |
3502 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
3503 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
3504 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
3507 |
Lby(); |
Lby(); |
3508 |
vs_top=sup; |
vs_top=sup; |
3509 |
frs_pop();} |
frs_pop();} |
3510 |
goto T1356; |
goto T1358; |
3511 |
T1356:; |
T1358:; |
3512 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
3513 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3514 |
Lby(); |
Lby(); |
3530 |
vs_top=sup; |
vs_top=sup; |
3531 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
3532 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3533 |
(void) (*Lnk216)(); |
(void) (*Lnk217)(); |
3534 |
vs_top=sup; |
vs_top=sup; |
3535 |
base[2]= (V279); |
base[2]= (V279); |
3536 |
base[3]= (V280); |
base[3]= (V280); |
3554 |
vs_top=sup; |
vs_top=sup; |
3555 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
3556 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3557 |
(void) (*Lnk216)(); |
(void) (*Lnk217)(); |
3558 |
vs_top=sup; |
vs_top=sup; |
3559 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
3560 |
{object V282; |
{object V282; |
3567 |
return; |
return; |
3568 |
} |
} |
3569 |
} |
} |
3570 |
static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* ALOAD */ |
static void LnkT217(){ call_or_link(VV[217],(void **)&Lnk217);} /* ALOAD */ |
3571 |
static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* OPEN */ |
static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* OPEN */ |
3572 |
static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* DO-F */ |
static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* DO-F */ |
3573 |
static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* SET-DIR */ |
static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* SET-DIR */ |
3574 |
static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* GETENV */ |
static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* GETENV */ |
3575 |
static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGV */ |
static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* ARGV */ |
3576 |
static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGC */ |
static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGC */ |
3577 |
static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* GET-COMMAND-ARG */ |
static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* GET-COMMAND-ARG */ |
3578 |
static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FILE-SEARCH */ |
static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* FILE-SEARCH */ |
3579 |
static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FIX-LOAD-PATH */ |
static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FIX-LOAD-PATH */ |
3580 |
static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* COERCE-SLASH-TERMINATED */ |
static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* COERCE-SLASH-TERMINATED */ |
3581 |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* PACKAGE-SIZE */ |
static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* PACKAGE-SIZE */ |
3582 |
static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* BREAK-GO */ |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* BREAK-GO */ |
3583 |
static object LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)&LnkLI202,first,ap);va_end(ap);return V1;} /* SEARCH */ |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)&LnkLI203,first,ap);va_end(ap);return V1;} /* SEARCH */ |
3584 |
static void LnkT201(){ call_or_link(VV[201],(void **)&Lnk201);} /* INTERNAL-SUPER-GO */ |
static void LnkT202(){ call_or_link(VV[202],(void **)&Lnk202);} /* INTERNAL-SUPER-GO */ |
3585 |
static object LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)&LnkLI200,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */ |
static object LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)&LnkLI201,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */ |
3586 |
static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* IHS-NOT-INTERPRETED-ENV */ |
static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* IHS-NOT-INTERPRETED-ENV */ |
3587 |
static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* COMPILED-FUNCTION-NAME */ |
3588 |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[196],(void **)&LnkLI196,first,ap);va_end(ap);return V1;} /* REMOVE */ |
static object LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[197],(void **)&LnkLI197,first,ap);va_end(ap);return V1;} /* REMOVE */ |
3589 |
static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* SPICEP */ |
static void LnkT194(){ call_or_link(VV[194],(void **)&Lnk194);} /* SPICEP */ |
3590 |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* FRS-TAG */ |
static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* FRS-TAG */ |
3591 |
static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-CLASS */ |
static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-CLASS */ |
3592 |
static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-VS */ |
static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-VS */ |
3593 |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* FRS-KIND */ |
static object LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)&LnkLI189,1,first,ap);va_end(ap);return V1;} /* FRS-KIND */ |
3594 |
static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* IHS-FUN */ |
static void LnkT185(){ call_or_link(VV[185],(void **)&Lnk185);} /* IHS-FUN */ |
3595 |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* FRS-IHS */ |
static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* FRS-IHS */ |
3596 |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* BDS-VAL */ |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* BDS-VAL */ |
3597 |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)&LnkLI181,1,first,ap);va_end(ap);return V1;} /* PRINT-FRS */ |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* PRINT-FRS */ |
3598 |
static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* BDS-VAR */ |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAR */ |
3599 |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* FRS-BDS */ |
static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* FRS-BDS */ |
3600 |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* BREAK-VS */ |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BREAK-VS */ |
3601 |
static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* VS */ |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* VS */ |
3602 |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* PRINT-IHS */ |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* PRINT-IHS */ |
3603 |
static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* IHS-VS */ |
static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* IHS-VS */ |
3604 |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* BREAK-PREVIOUS */ |
static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* BREAK-PREVIOUS */ |
3605 |
static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* IHS-FNAME */ |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-FNAME */ |
3606 |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)&LnkLI172,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */ |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */ |
3607 |
static object LnkTLI171(){return call_proc0(VV[171],(void **)&LnkLI171);} /* SET-ENV */ |
static object LnkTLI172(){return call_proc0(VV[172],(void **)&LnkLI172);} /* SET-ENV */ |
3608 |
static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* COMPLETE-PROP */ |
static void LnkT171(){ call_or_link(VV[171],(void **)&Lnk171);} /* COMPLETE-PROP */ |
3609 |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK-LEVEL */ |
static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* BREAK-LEVEL */ |
3610 |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK */ |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK */ |
3611 |
static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* DBL-READ */ |
static void LnkT166(){ call_or_link(VV[166],(void **)&Lnk166);} /* DBL-READ */ |
3612 |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* SET-BACK */ |
static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* SET-BACK */ |
3613 |
static object LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* SET-CURRENT */ |
static object LnkTLI164(){return call_proc0(VV[164],(void **)&LnkLI164);} /* SET-CURRENT */ |
3614 |
static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* CATCH-FATAL */ |
static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* CATCH-FATAL */ |
3615 |
static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* BREAK-QUIT */ |
static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* BREAK-QUIT */ |
3616 |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* SIMPLE-BACKTRACE */ |
static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* SIMPLE-BACKTRACE */ |
3617 |
static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* FRS-TOP */ |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* FRS-TOP */ |
3618 |
static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* SCH-FRS-BASE */ |
static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* SCH-FRS-BASE */ |
3619 |
static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* IHS-TOP */ |
static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* IHS-TOP */ |
3620 |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* MAKE-STRING-INPUT-STREAM */ |
static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* MAKE-STRING-INPUT-STREAM */ |
3621 |
static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-CONCATENATE */ |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* STRING-CONCATENATE */ |
3622 |
static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* READ-FROM-STRING */ |
static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* READ-FROM-STRING */ |
3623 |
static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* BREAK-CURRENT */ |
static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* BREAK-CURRENT */ |
3624 |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* PROCESS-SOME-ARGS */ |
static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* PROCESS-SOME-ARGS */ |
3625 |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* LOAD */ |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* LOAD */ |
3626 |
|
|
3627 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3628 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |