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) (*Lnk147)(); |
(void) (*Lnk148)(); |
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) (*Lnk148)(); |
(void) (*Lnk149)(); |
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[149],base+10,3); |
(VV[3]->s.s_dbind)= simple_symlispcall(VV[150],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[150],base+10,1); |
symlispcall(VV[151],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[151],base+11,1); |
(void)simple_symlispcall(VV[152],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) (*Lnk152)(); |
(void) (*Lnk153)(); |
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) (*Lnk147)(); |
(void) (*Lnk148)(); |
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) (*Lnk153)(); |
(void) (*Lnk154)(); |
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) (*Lnk154)(); |
(void) (*Lnk155)(); |
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) (*Lnk155)(); |
(void) (*Lnk156)(); |
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) (*Lnk156)(); |
(void) (*Lnk157)(); |
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) (*Lnk157)(); |
(void) (*Lnk158)(); |
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) (*Lnk158)(); |
(void) (*Lnk159)(); |
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) (*Lnk158)(); |
(void) (*Lnk159)(); |
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) (*Lnk159)(); |
(void) (*Lnk160)(); |
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) (*Lnk160)(); |
(void) (*Lnk161)(); |
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) (*Lnk161)(); |
(void) (*Lnk162)(); |
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)((*(LnkLI162))()); |
(void)((*(LnkLI163))()); |
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) (*Lnk163)(); |
(void) (*Lnk164)(); |
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) (*Lnk164)(); |
(void) (*Lnk165)(); |
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[165],base+26,3); |
symlispcall(VV[166],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[166],base+26,4); |
symlispcall(VV[167],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[151],base+27,2); |
(void)simple_symlispcall(VV[152],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) (*Lnk152)(); |
(void) (*Lnk153)(); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
goto T210; |
goto T210; |
670 |
T210:; |
T210:; |
700 |
while(V34!=Cnil) |
while(V34!=Cnil) |
701 |
{vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;} |
{vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;} |
702 |
vs_base=base+3;} |
vs_base=base+3;} |
703 |
(void) (*Lnk167)(); |
(void) (*Lnk168)(); |
704 |
vs_top=sup; |
vs_top=sup; |
705 |
{object V35 = vs_base[0]; |
{object V35 = vs_base[0]; |
706 |
bds_unwind1; |
bds_unwind1; |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
base[0]= (V50); |
base[0]= (V50); |
911 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
912 |
(void) (*Lnk168)(); |
(void) (*Lnk169)(); |
913 |
vs_top=sup; |
vs_top=sup; |
914 |
if(((V44))!=Cnil){ |
if(((V44))!=Cnil){ |
915 |
goto T388;} |
goto T388;} |
1011 |
bds_bind(VV[43],Ct); |
bds_bind(VV[43],Ct); |
1012 |
base[1]= (V59); |
base[1]= (V59); |
1013 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1014 |
(void) (*Lnk168)(); |
(void) (*Lnk169)(); |
1015 |
vs_top=sup; |
vs_top=sup; |
1016 |
bds_unwind1; |
bds_unwind1; |
1017 |
{object V62 = Cnil; |
{object V62 = Cnil; |
1079 |
base[4]= VV[81]; |
base[4]= VV[81]; |
1080 |
base[5]= (V69); |
base[5]= (V69); |
1081 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1082 |
(void) (*Lnk169)(); |
(void) (*Lnk170)(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
V70= vs_base[0]; |
V70= vs_base[0]; |
1085 |
if((V70)!=Cnil){ |
if((V70)!=Cnil){ |
1168 |
goto T456; |
goto T456; |
1169 |
T456:; |
T456:; |
1170 |
vs_base=vs_top; |
vs_base=vs_top; |
1171 |
(void) (*Lnk152)(); |
(void) (*Lnk153)(); |
1172 |
return;} |
return;} |
1173 |
} |
} |
1174 |
} |
} |
1198 |
goto T474;} |
goto T474;} |
1199 |
goto T475; |
goto T475; |
1200 |
T475:; |
T475:; |
1201 |
(void)((*(LnkLI170))()); |
(void)((*(LnkLI171))()); |
1202 |
vs_base=vs_top; |
vs_base=vs_top; |
1203 |
(void) (*Lnk152)(); |
(void) (*Lnk153)(); |
1204 |
return; |
return; |
1205 |
goto T474; |
goto T474; |
1206 |
T474:; |
T474:; |
1207 |
if(((*(LnkLI171))((V77)))==Cnil){ |
if(((*(LnkLI172))((V77)))==Cnil){ |
1208 |
goto T481;} |
goto T481;} |
1209 |
(VV[39]->s.s_dbind)= (V77); |
(VV[39]->s.s_dbind)= (V77); |
1210 |
V76= one_minus((V76)); |
V76= one_minus((V76)); |
1225 |
V78= (VV[39]->s.s_dbind); |
V78= (VV[39]->s.s_dbind); |
1226 |
goto T491; |
goto T491; |
1227 |
T491:; |
T491:; |
1228 |
if(((*(LnkLI171))((V78)))!=Cnil){ |
if(((*(LnkLI172))((V78)))!=Cnil){ |
1229 |
goto T493;} |
goto T493;} |
1230 |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
1231 |
goto T492;} |
goto T492;} |
1232 |
goto T493; |
goto T493; |
1233 |
T493:; |
T493:; |
1234 |
(VV[39]->s.s_dbind)= (V78); |
(VV[39]->s.s_dbind)= (V78); |
1235 |
(void)((*(LnkLI170))()); |
(void)((*(LnkLI171))()); |
1236 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
1237 |
base[1]= VV[84]; |
base[1]= VV[84]; |
1238 |
base[3]= (VV[39]->s.s_dbind); |
base[3]= (VV[39]->s.s_dbind); |
1239 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1240 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
1241 |
vs_top=sup; |
vs_top=sup; |
1242 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1243 |
base[3]= CMPcdr((VV[36]->s.s_dbind)); |
base[3]= CMPcdr((VV[36]->s.s_dbind)); |
1279 |
goto T514;} |
goto T514;} |
1280 |
goto T515; |
goto T515; |
1281 |
T515:; |
T515:; |
1282 |
(void)((*(LnkLI170))()); |
(void)((*(LnkLI171))()); |
1283 |
vs_base=vs_top; |
vs_base=vs_top; |
1284 |
(void) (*Lnk152)(); |
(void) (*Lnk153)(); |
1285 |
return; |
return; |
1286 |
goto T514; |
goto T514; |
1287 |
T514:; |
T514:; |
1288 |
if(((*(LnkLI171))((V81)))==Cnil){ |
if(((*(LnkLI172))((V81)))==Cnil){ |
1289 |
goto T521;} |
goto T521;} |
1290 |
(VV[39]->s.s_dbind)= (V81); |
(VV[39]->s.s_dbind)= (V81); |
1291 |
V80= one_minus((V80)); |
V80= one_minus((V80)); |
1308 |
TTL:; |
TTL:; |
1309 |
{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)); |
1310 |
(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));} |
1311 |
if(((*(LnkLI171))((VV[39]->s.s_dbind)))==Cnil){ |
if(((*(LnkLI172))((VV[39]->s.s_dbind)))==Cnil){ |
1312 |
goto T533;} |
goto T533;} |
1313 |
(void)((*(LnkLI170))()); |
(void)((*(LnkLI171))()); |
1314 |
vs_base=vs_top; |
vs_base=vs_top; |
1315 |
(void) (*Lnk152)(); |
(void) (*Lnk153)(); |
1316 |
return; |
return; |
1317 |
goto T533; |
goto T533; |
1318 |
T533:; |
T533:; |
1319 |
vs_base=vs_top; |
vs_base=vs_top; |
1320 |
(void) (*Lnk173)(); |
(void) (*Lnk174)(); |
1321 |
return; |
return; |
1322 |
} |
} |
1323 |
} |
} |
1515 |
T580:; |
T580:; |
1516 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1517 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1518 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1519 |
vs_top=sup; |
vs_top=sup; |
1520 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1521 |
goto T581; |
goto T581; |
1522 |
T581:; |
T581:; |
1523 |
base[2]= (VV[38]->s.s_dbind); |
base[2]= (VV[38]->s.s_dbind); |
1524 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1525 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1526 |
vs_top=sup; |
vs_top=sup; |
1527 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1528 |
goto T582; |
goto T582; |
1529 |
T582:; |
T582:; |
1530 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1531 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1532 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1533 |
vs_top=sup; |
vs_top=sup; |
1534 |
V103= vs_base[0]; |
V103= vs_base[0]; |
1535 |
V101= (number_compare((V101),V103)>=0?((V101)):V103); |
V101= (number_compare((V101),V103)>=0?((V101)):V103); |
1536 |
base[2]= one_plus((VV[38]->s.s_dbind)); |
base[2]= one_plus((VV[38]->s.s_dbind)); |
1537 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1538 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1539 |
vs_top=sup; |
vs_top=sup; |
1540 |
V104= vs_base[0]; |
V104= vs_base[0]; |
1541 |
V105= one_minus(V104); |
V105= one_minus(V104); |
1548 |
goto T598;} |
goto T598;} |
1549 |
base[2]= (V106); |
base[2]= (V106); |
1550 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1551 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1552 |
vs_top=sup; |
vs_top=sup; |
1553 |
V107= vs_base[0]; |
V107= vs_base[0]; |
1554 |
if(!(number_compare(V107,(V101))>=0)){ |
if(!(number_compare(V107,(V101))>=0)){ |
1570 |
T612:; |
T612:; |
1571 |
base[2]= (V106); |
base[2]= (V106); |
1572 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1573 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1574 |
vs_top=sup; |
vs_top=sup; |
1575 |
V109= vs_base[0]; |
V109= vs_base[0]; |
1576 |
if(!(number_compare(V109,(V108))>0)){ |
if(!(number_compare(V109,(V108))>0)){ |
1578 |
goto T610; |
goto T610; |
1579 |
goto T613; |
goto T613; |
1580 |
T613:; |
T613:; |
1581 |
if(((*(LnkLI171))((V106)))==Cnil){ |
if(((*(LnkLI172))((V106)))==Cnil){ |
1582 |
goto T619;} |
goto T619;} |
1583 |
(void)((*(LnkLI175))((V106))); |
(void)((*(LnkLI176))((V106))); |
1584 |
goto T619; |
goto T619; |
1585 |
T619:; |
T619:; |
1586 |
V106= number_plus((V106),small_fixnum(1)); |
V106= number_plus((V106),small_fixnum(1)); |
1592 |
base[4]= (V108); |
base[4]= (V108); |
1593 |
base[6]= (V108); |
base[6]= (V108); |
1594 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1595 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
1596 |
vs_top=sup; |
vs_top=sup; |
1597 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1598 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1625 |
{object V111; |
{object V111; |
1626 |
base[2]= (VV[39]->s.s_dbind); |
base[2]= (VV[39]->s.s_dbind); |
1627 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1628 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1629 |
vs_top=sup; |
vs_top=sup; |
1630 |
V112= vs_base[0]; |
V112= vs_base[0]; |
1631 |
V111= number_plus(V112,(V110)); |
V111= number_plus(V112,(V110)); |
1632 |
base[2]= (V111); |
base[2]= (V111); |
1633 |
base[3]= (V111); |
base[3]= (V111); |
1634 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1635 |
(void) (*Lnk177)(); |
(void) (*Lnk178)(); |
1636 |
return;} |
return;} |
1637 |
} |
} |
1638 |
} |
} |
1654 |
register object V116; |
register object V116; |
1655 |
base[1]= one_minus((VV[40]->s.s_dbind)); |
base[1]= one_minus((VV[40]->s.s_dbind)); |
1656 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1657 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1658 |
vs_top=sup; |
vs_top=sup; |
1659 |
V117= vs_base[0]; |
V117= vs_base[0]; |
1660 |
V115= one_plus(V117); |
V115= one_plus(V117); |
1661 |
base[1]= one_plus((VV[41]->s.s_dbind)); |
base[1]= one_plus((VV[41]->s.s_dbind)); |
1662 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1663 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1664 |
vs_top=sup; |
vs_top=sup; |
1665 |
V116= vs_base[0]; |
V116= vs_base[0]; |
1666 |
goto T654; |
goto T654; |
1676 |
goto T660;} |
goto T660;} |
1677 |
base[1]= (V115); |
base[1]= (V115); |
1678 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1679 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1680 |
vs_top=sup; |
vs_top=sup; |
1681 |
V119= vs_base[0]; |
V119= vs_base[0]; |
1682 |
{register object x= V119,V118= (V113); |
{register object x= V119,V118= (V113); |
1695 |
goto T670;} |
goto T670;} |
1696 |
base[1]= (V114); |
base[1]= (V114); |
1697 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1698 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
1699 |
vs_top=sup; |
vs_top=sup; |
1700 |
V120= vs_base[0]; |
V120= vs_base[0]; |
1701 |
if(!(number_compare(V120,(V115))>0)){ |
if(!(number_compare(V120,(V115))>0)){ |
1705 |
goto T666; |
goto T666; |
1706 |
goto T669; |
goto T669; |
1707 |
T669:; |
T669:; |
1708 |
(void)((*(LnkLI180))((V114))); |
(void)((*(LnkLI181))((V114))); |
1709 |
V114= number_plus((V114),small_fixnum(1)); |
V114= number_plus((V114),small_fixnum(1)); |
1710 |
goto T668; |
goto T668; |
1711 |
goto T666; |
goto T666; |
1715 |
base[3]= (V115); |
base[3]= (V115); |
1716 |
base[5]= (V115); |
base[5]= (V115); |
1717 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1718 |
(void) (*Lnk179)(); |
(void) (*Lnk180)(); |
1719 |
vs_top=sup; |
vs_top=sup; |
1720 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1721 |
base[6]= (V115); |
base[6]= (V115); |
1722 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1723 |
(void) (*Lnk181)(); |
(void) (*Lnk182)(); |
1724 |
vs_top=sup; |
vs_top=sup; |
1725 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1726 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
1756 |
return; |
return; |
1757 |
goto T697; |
goto T697; |
1758 |
T697:; |
T697:; |
1759 |
if(((*(LnkLI171))((V121)))==Cnil){ |
if(((*(LnkLI172))((V121)))==Cnil){ |
1760 |
goto T702;} |
goto T702;} |
1761 |
if(((V122))==Cnil){ |
if(((V122))==Cnil){ |
1762 |
goto T705;} |
goto T705;} |
1765 |
T705:; |
T705:; |
1766 |
base[1]= (V121); |
base[1]= (V121); |
1767 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1768 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
1769 |
vs_top=sup; |
vs_top=sup; |
1770 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
1771 |
base[1]= VV[95]; |
base[1]= VV[95]; |
1822 |
base[3]= (VV[40]->s.s_dbind); |
base[3]= (VV[40]->s.s_dbind); |
1823 |
base[4]= (V123); |
base[4]= (V123); |
1824 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1825 |
(void) (*Lnk157)(); |
(void) (*Lnk158)(); |
1826 |
vs_top=sup; |
vs_top=sup; |
1827 |
V127= vs_base[0]; |
V127= vs_base[0]; |
1828 |
if(V127==Cnil)goto T735; |
if(V127==Cnil)goto T735; |
1842 |
return; |
return; |
1843 |
goto T741; |
goto T741; |
1844 |
T741:; |
T741:; |
1845 |
if(((*(LnkLI171))((V125)))==Cnil){ |
if(((*(LnkLI172))((V125)))==Cnil){ |
1846 |
goto T745;} |
goto T745;} |
1847 |
(void)((*(LnkLI175))((V125))); |
(void)((*(LnkLI176))((V125))); |
1848 |
goto T745; |
goto T745; |
1849 |
T745:; |
T745:; |
1850 |
goto T750; |
goto T750; |
1853 |
goto T752;} |
goto T752;} |
1854 |
base[3]= (V126); |
base[3]= (V126); |
1855 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1856 |
(void) (*Lnk182)(); |
(void) (*Lnk183)(); |
1857 |
vs_top=sup; |
vs_top=sup; |
1858 |
V128= vs_base[0]; |
V128= vs_base[0]; |
1859 |
if(!(number_compare(V128,(V125))>0)){ |
if(!(number_compare(V128,(V125))>0)){ |
1863 |
goto T748; |
goto T748; |
1864 |
goto T751; |
goto T751; |
1865 |
T751:; |
T751:; |
1866 |
(void)((*(LnkLI180))((V126))); |
(void)((*(LnkLI181))((V126))); |
1867 |
V126= number_plus((V126),small_fixnum(1)); |
V126= number_plus((V126),small_fixnum(1)); |
1868 |
goto T750; |
goto T750; |
1869 |
goto T748; |
goto T748; |
1890 |
{register object V131; |
{register object V131; |
1891 |
base[7]= (V130); |
base[7]= (V130); |
1892 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1893 |
(void) (*Lnk183)(); |
(void) (*Lnk184)(); |
1894 |
vs_top=sup; |
vs_top=sup; |
1895 |
V131= vs_base[0]; |
V131= vs_base[0]; |
1896 |
if(type_of((V131))==t_symbol){ |
if(type_of((V131))==t_symbol){ |
1915 |
goto T771; |
goto T771; |
1916 |
goto T783; |
goto T783; |
1917 |
T783:; |
T783:; |
1918 |
if((V132!= VV[184]) |
if((V132!= VV[185]) |
1919 |
&& (V132!= VV[185]))goto T784; |
&& (V132!= VV[186]))goto T784; |
1920 |
base[6]= CMPcdr((V131)); |
base[6]= CMPcdr((V131)); |
1921 |
goto T771; |
goto T771; |
1922 |
goto T784; |
goto T784; |
1926 |
goto T771; |
goto T771; |
1927 |
goto T785; |
goto T785; |
1928 |
T785:; |
T785:; |
1929 |
if((V132!= VV[186]))goto T786; |
if((V132!= VV[187]))goto T786; |
1930 |
base[6]= CMPcddddr((V131)); |
base[6]= CMPcddddr((V131)); |
1931 |
goto T771; |
goto T771; |
1932 |
goto T786; |
goto T786; |
1961 |
T771:; |
T771:; |
1962 |
base[8]= (V130); |
base[8]= (V130); |
1963 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1964 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1967 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1985 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
1986 |
base[1]= VV[103]; |
base[1]= VV[103]; |
1987 |
base[2]= (V135); |
base[2]= (V135); |
1988 |
base[3]= (*(LnkLI187))((V135)); |
base[3]= (*(LnkLI188))((V135)); |
1989 |
base[5]= (V135); |
base[5]= (V135); |
1990 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1991 |
(void) (*Lnk182)(); |
(void) (*Lnk183)(); |
1992 |
vs_top=sup; |
vs_top=sup; |
1993 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1994 |
base[6]= (V135); |
base[6]= (V135); |
1995 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1996 |
(void) (*Lnk188)(); |
(void) (*Lnk189)(); |
1997 |
vs_top=sup; |
vs_top=sup; |
1998 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1999 |
base[7]= (V135); |
base[7]= (V135); |
2000 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2001 |
(void) (*Lnk178)(); |
(void) (*Lnk179)(); |
2002 |
vs_top=sup; |
vs_top=sup; |
2003 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2004 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2021 |
V139= Cnil; |
V139= Cnil; |
2022 |
base[0]= (V138); |
base[0]= (V138); |
2023 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2024 |
(void) (*Lnk189)(); |
(void) (*Lnk190)(); |
2025 |
vs_top=sup; |
vs_top=sup; |
2026 |
V141= vs_base[0]; |
V141= vs_base[0]; |
2027 |
{object V140= V141; |
{object V140= V141; |
2028 |
if((V140!= VV[190]))goto T812; |
if((V140!= VV[191]))goto T812; |
2029 |
base[1]= (V138); |
base[1]= (V138); |
2030 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2031 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2032 |
vs_top=sup; |
vs_top=sup; |
2033 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2034 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2035 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2036 |
vs_top=sup; |
vs_top=sup; |
2037 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2038 |
goto T814;}{object V142; |
goto T814;}{object V142; |
2039 |
base[1]= (V138); |
base[1]= (V138); |
2040 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2041 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2042 |
vs_top=sup; |
vs_top=sup; |
2043 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2044 |
base[3]= (V138); |
base[3]= (V138); |
2045 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2046 |
(void) (*Lnk188)(); |
(void) (*Lnk189)(); |
2047 |
vs_top=sup; |
vs_top=sup; |
2048 |
V143= vs_base[0]; |
V143= vs_base[0]; |
2049 |
base[2]= number_plus(V143,small_fixnum(2)); |
base[2]= number_plus(V143,small_fixnum(2)); |
2050 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2051 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
2052 |
vs_top=sup; |
vs_top=sup; |
2053 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2054 |
base[2]= VV[104]; |
base[2]= VV[104]; |
2055 |
base[3]= (VV[193]->s.s_gfdef); |
base[3]= (VV[194]->s.s_gfdef); |
2056 |
base[4]= VV[105]; |
base[4]= VV[105]; |
2057 |
base[5]= (VV[194]->s.s_gfdef); |
base[5]= (VV[195]->s.s_gfdef); |
2058 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
2059 |
Lmember(); |
Lmember(); |
2060 |
vs_top=sup; |
vs_top=sup; |
2073 |
T834:; |
T834:; |
2074 |
base[1]= (V138); |
base[1]= (V138); |
2075 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2076 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2077 |
vs_top=sup; |
vs_top=sup; |
2078 |
V147= vs_base[0]; |
V147= vs_base[0]; |
2079 |
V148= (VV[194]->s.s_gfdef); |
V148= (VV[195]->s.s_gfdef); |
2080 |
V149= (VV[193]->s.s_gfdef); |
V149= (VV[194]->s.s_gfdef); |
2081 |
V150= (VFUN_NARGS=6,(*(LnkLI195))(V147,(V139),VV[107],V148,VV[104],V149)); |
V150= (VFUN_NARGS=6,(*(LnkLI196))(V147,(V139),VV[107],V148,VV[104],V149)); |
2082 |
{object V145; |
{object V145; |
2083 |
object V146= /* INLINE-ARGS */V150; |
object V146= /* INLINE-ARGS */V150; |
2084 |
if(V146==Cnil){ |
if(V146==Cnil){ |
2107 |
T818:;} |
T818:;} |
2108 |
base[0]= (V138); |
base[0]= (V138); |
2109 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2110 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2111 |
vs_top=sup; |
vs_top=sup; |
2112 |
V154= vs_base[0]; |
V154= vs_base[0]; |
2113 |
{object V155 = list(2,VV[109],V154); |
{object V155 = list(2,VV[109],V154); |
2116 |
T814:; |
T814:; |
2117 |
base[0]= (V138); |
base[0]= (V138); |
2118 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2119 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2120 |
vs_top=sup; |
vs_top=sup; |
2121 |
V156= vs_base[0]; |
V156= vs_base[0]; |
2122 |
{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]); |
2123 |
VMR24(V157)} |
VMR24(V157)} |
2124 |
goto T812; |
goto T812; |
2125 |
T812:; |
T812:; |
2126 |
if((V140!= VV[196]))goto T847; |
if((V140!= VV[197]))goto T847; |
2127 |
{object V158 = VV[112]; |
{object V158 = VV[112]; |
2128 |
VMR24(V158)} |
VMR24(V158)} |
2129 |
goto T847; |
goto T847; |
2130 |
T847:; |
T847:; |
2131 |
base[0]= (V138); |
base[0]= (V138); |
2132 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2133 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2134 |
vs_top=sup; |
vs_top=sup; |
2135 |
V159= vs_base[0]; |
V159= vs_base[0]; |
2136 |
{object V160 = list(2,VV[113],V159); |
{object V160 = list(2,VV[113],V159); |
2153 |
base[1]= VV[114]; |
base[1]= VV[114]; |
2154 |
base[3]= (VV[39]->s.s_dbind); |
base[3]= (VV[39]->s.s_dbind); |
2155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2156 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2157 |
vs_top=sup; |
vs_top=sup; |
2158 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2159 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2184 |
{object V163; |
{object V163; |
2185 |
base[1]= (V162); |
base[1]= (V162); |
2186 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2187 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2188 |
vs_top=sup; |
vs_top=sup; |
2189 |
V163= vs_base[0]; |
V163= vs_base[0]; |
2190 |
if((V163)==Cnil){ |
if((V163)==Cnil){ |
2218 |
{register object V169; |
{register object V169; |
2219 |
base[1]= (V168); |
base[1]= (V168); |
2220 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2221 |
(void) (*Lnk183)(); |
(void) (*Lnk184)(); |
2222 |
vs_top=sup; |
vs_top=sup; |
2223 |
V169= vs_base[0]; |
V169= vs_base[0]; |
2224 |
if(!(type_of((V169))==t_symbol)){ |
if(!(type_of((V169))==t_symbol)){ |
2237 |
return; |
return; |
2238 |
goto T871; |
goto T871; |
2239 |
T871:; |
T871:; |
2240 |
if((V170!= VV[184]) |
if((V170!= VV[185]) |
2241 |
&& (V170!= VV[185]))goto T872; |
&& (V170!= VV[186]))goto T872; |
2242 |
base[1]= CMPcadr((V169)); |
base[1]= CMPcadr((V169)); |
2243 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2244 |
return; |
return; |
2245 |
goto T872; |
goto T872; |
2246 |
T872:; |
T872:; |
2247 |
if((V170!= VV[186]))goto T873; |
if((V170!= VV[187]))goto T873; |
2248 |
base[1]= CMPcar(CMPcddddr((V169))); |
base[1]= CMPcar(CMPcddddr((V169))); |
2249 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2250 |
return; |
return; |
2290 |
goto T885;} |
goto T885;} |
2291 |
base[1]= (V169); |
base[1]= (V169); |
2292 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2293 |
(void) (*Lnk197)(); |
(void) (*Lnk198)(); |
2294 |
return; |
return; |
2295 |
goto T885; |
goto T885; |
2296 |
T885:; |
T885:; |
2313 |
{object V172; |
{object V172; |
2314 |
base[1]= (V171); |
base[1]= (V171); |
2315 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2316 |
(void) (*Lnk183)(); |
(void) (*Lnk184)(); |
2317 |
vs_top=sup; |
vs_top=sup; |
2318 |
V172= vs_base[0]; |
V172= vs_base[0]; |
2319 |
if(!(type_of((V172))==t_cons)){ |
if(!(type_of((V172))==t_cons)){ |
2339 |
TTL:; |
TTL:; |
2340 |
base[0]= (VV[39]->s.s_dbind); |
base[0]= (VV[39]->s.s_dbind); |
2341 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2342 |
(void) (*Lnk198)(); |
(void) (*Lnk199)(); |
2343 |
vs_top=sup; |
vs_top=sup; |
2344 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2345 |
goto T898;} |
goto T898;} |
2350 |
{object V173; |
{object V173; |
2351 |
base[0]= (VV[39]->s.s_dbind); |
base[0]= (VV[39]->s.s_dbind); |
2352 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2353 |
(void) (*Lnk174)(); |
(void) (*Lnk175)(); |
2354 |
vs_top=sup; |
vs_top=sup; |
2355 |
V173= vs_base[0]; |
V173= vs_base[0]; |
2356 |
base[0]= (V173); |
base[0]= (V173); |
2357 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2358 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
2359 |
vs_top=sup; |
vs_top=sup; |
2360 |
V174= vs_base[0]; |
V174= vs_base[0]; |
2361 |
base[0]= one_plus((V173)); |
base[0]= one_plus((V173)); |
2362 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2363 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
2364 |
vs_top=sup; |
vs_top=sup; |
2365 |
V175= vs_base[0]; |
V175= vs_base[0]; |
2366 |
base[0]= number_plus((V173),small_fixnum(2)); |
base[0]= number_plus((V173),small_fixnum(2)); |
2367 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2368 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
2369 |
vs_top=sup; |
vs_top=sup; |
2370 |
V176= vs_base[0]; |
V176= vs_base[0]; |
2371 |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
2396 |
VMR30(V183)} |
VMR30(V183)} |
2397 |
goto T913; |
goto T913; |
2398 |
T913:; |
T913:; |
2399 |
V184= (*(LnkLI199))((V180),CMPcdr((V181))); |
V184= (*(LnkLI200))((V180),CMPcdr((V181))); |
2400 |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
2401 |
{object V185 = (V181); |
{object V185 = (V181); |
2402 |
VMR30(V185)} |
VMR30(V185)} |
2418 |
goto T916;} |
goto T916;} |
2419 |
base[1]= (V188); |
base[1]= (V188); |
2420 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2421 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2422 |
vs_top=sup; |
vs_top=sup; |
2423 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2424 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2425 |
(void) (*Lnk192)(); |
(void) (*Lnk193)(); |
2426 |
vs_top=sup; |
vs_top=sup; |
2427 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2428 |
goto T916;} |
goto T916;} |
2429 |
base[1]= (V188); |
base[1]= (V188); |
2430 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2431 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2432 |
vs_top=sup; |
vs_top=sup; |
2433 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2434 |
base[3]= (V188); |
base[3]= (V188); |
2435 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2436 |
(void) (*Lnk188)(); |
(void) (*Lnk189)(); |
2437 |
vs_top=sup; |
vs_top=sup; |
2438 |
V191= vs_base[0]; |
V191= vs_base[0]; |
2439 |
base[2]= number_plus(V191,small_fixnum(2)); |
base[2]= number_plus(V191,small_fixnum(2)); |
2440 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2441 |
(void) (*Lnk176)(); |
(void) (*Lnk177)(); |
2442 |
vs_top=sup; |
vs_top=sup; |
2443 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2444 |
base[2]= VV[104]; |
base[2]= VV[104]; |
2445 |
base[3]= (VV[193]->s.s_gfdef); |
base[3]= (VV[194]->s.s_gfdef); |
2446 |
base[4]= VV[105]; |
base[4]= VV[105]; |
2447 |
base[5]= (VV[194]->s.s_gfdef); |
base[5]= (VV[195]->s.s_gfdef); |
2448 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
2449 |
Lmember(); |
Lmember(); |
2450 |
vs_top=sup; |
vs_top=sup; |
2455 |
goto T916;} |
goto T916;} |
2456 |
base[1]= (V188); |
base[1]= (V188); |
2457 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2458 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2459 |
vs_top=sup; |
vs_top=sup; |
2460 |
V196= vs_base[0]; |
V196= vs_base[0]; |
2461 |
V197= (VV[194]->s.s_gfdef); |
V197= (VV[195]->s.s_gfdef); |
2462 |
V198= (VV[193]->s.s_gfdef); |
V198= (VV[194]->s.s_gfdef); |
2463 |
V199= (VFUN_NARGS=6,(*(LnkLI195))(V196,(V190),VV[107],V197,VV[104],V198)); |
V199= (VFUN_NARGS=6,(*(LnkLI196))(V196,(V190),VV[107],V197,VV[104],V198)); |
2464 |
{object V194; |
{object V194; |
2465 |
object V195= /* INLINE-ARGS */V199; |
object V195= /* INLINE-ARGS */V199; |
2466 |
if(V195==Cnil){ |
if(V195==Cnil){ |
2487 |
T942:; |
T942:; |
2488 |
base[1]= (V188); |
base[1]= (V188); |
2489 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2490 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2491 |
vs_top=sup; |
vs_top=sup; |
2492 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2493 |
base[1]= (V189); |
base[1]= (V189); |
2494 |
base[2]= Ct; |
base[2]= Ct; |
2495 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2496 |
(void) (*Lnk200)(); |
(void) (*Lnk201)(); |
2497 |
vs_top=sup; |
vs_top=sup; |
2498 |
goto T916; |
goto T916; |
2499 |
goto T926; |
goto T926; |
2500 |
T926:; |
T926:; |
2501 |
base[1]= (V188); |
base[1]= (V188); |
2502 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2503 |
(void) (*Lnk191)(); |
(void) (*Lnk192)(); |
2504 |
vs_top=sup; |
vs_top=sup; |
2505 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2506 |
base[1]= (V189); |
base[1]= (V189); |
2507 |
base[2]= Cnil; |
base[2]= Cnil; |
2508 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2509 |
(void) (*Lnk200)(); |
(void) (*Lnk201)(); |
2510 |
vs_top=sup; |
vs_top=sup; |
2511 |
goto T916; |
goto T916; |
2512 |
T916:; |
T916:; |
2538 |
V204= one_minus((VV[39]->s.s_dbind)); |
V204= one_minus((VV[39]->s.s_dbind)); |
2539 |
base[2]= (V204); |
base[2]= (V204); |
2540 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2541 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2542 |
vs_top=sup; |
vs_top=sup; |
2543 |
V205= vs_base[0]; |
V205= vs_base[0]; |
2544 |
goto T969; |
goto T969; |
2555 |
VMR32(V206)} |
VMR32(V206)} |
2556 |
goto T970; |
goto T970; |
2557 |
T970:; |
T970:; |
2558 |
if(((*(LnkLI171))((V204)))==Cnil){ |
if(((*(LnkLI172))((V204)))==Cnil){ |
2559 |
goto T977;} |
goto T977;} |
2560 |
V207= symbol_name((V205)); |
V207= symbol_name((V205)); |
2561 |
V208= (VV[202]->s.s_gfdef); |
V208= (VV[203]->s.s_gfdef); |
2562 |
if(((VFUN_NARGS=4,(*(LnkLI201))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI202))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){ |
2563 |
goto T977;} |
goto T977;} |
2564 |
base[2]= (V204); |
base[2]= (V204); |
2565 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2566 |
(void) (*Lnk203)(); |
(void) (*Lnk204)(); |
2567 |
vs_top=sup; |
vs_top=sup; |
2568 |
{object V209 = Cnil; |
{object V209 = Cnil; |
2569 |
VMR32(V209)} |
VMR32(V209)} |
2572 |
V204= one_minus((V204)); |
V204= one_minus((V204)); |
2573 |
base[2]= (V204); |
base[2]= (V204); |
2574 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2575 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2576 |
vs_top=sup; |
vs_top=sup; |
2577 |
V205= vs_base[0]; |
V205= vs_base[0]; |
2578 |
goto T969;}} |
goto T969;}} |
2595 |
V213= one_plus((VV[39]->s.s_dbind)); |
V213= one_plus((VV[39]->s.s_dbind)); |
2596 |
base[2]= (V213); |
base[2]= (V213); |
2597 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2598 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2599 |
vs_top=sup; |
vs_top=sup; |
2600 |
V214= vs_base[0]; |
V214= vs_base[0]; |
2601 |
goto T998; |
goto T998; |
2612 |
VMR33(V215)} |
VMR33(V215)} |
2613 |
goto T999; |
goto T999; |
2614 |
T999:; |
T999:; |
2615 |
if(((*(LnkLI171))((V213)))==Cnil){ |
if(((*(LnkLI172))((V213)))==Cnil){ |
2616 |
goto T1006;} |
goto T1006;} |
2617 |
V216= symbol_name((V214)); |
V216= symbol_name((V214)); |
2618 |
V217= (VV[202]->s.s_gfdef); |
V217= (VV[203]->s.s_gfdef); |
2619 |
if(((VFUN_NARGS=4,(*(LnkLI201))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI202))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){ |
2620 |
goto T1006;} |
goto T1006;} |
2621 |
base[2]= (V213); |
base[2]= (V213); |
2622 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2623 |
(void) (*Lnk203)(); |
(void) (*Lnk204)(); |
2624 |
vs_top=sup; |
vs_top=sup; |
2625 |
{object V218 = Cnil; |
{object V218 = Cnil; |
2626 |
VMR33(V218)} |
VMR33(V218)} |
2629 |
V213= one_plus((V213)); |
V213= one_plus((V213)); |
2630 |
base[2]= (V213); |
base[2]= (V213); |
2631 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2632 |
(void) (*Lnk172)(); |
(void) (*Lnk173)(); |
2633 |
vs_top=sup; |
vs_top=sup; |
2634 |
V214= vs_base[0]; |
V214= vs_base[0]; |
2635 |
goto T998;}} |
goto T998;}} |
2643 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
2644 |
goto TTL; |
goto TTL; |
2645 |
TTL:; |
TTL:; |
2646 |
{register object V219; |
{object V219; |
2647 |
object V220; |
object V220; |
2648 |
V219= VV[121]; |
V219= VV[121]; |
2649 |
V220= CMPcar((V219)); |
V220= CMPcar((V219)); |
2697 |
T1041:; |
T1041:; |
2698 |
V222= Cnil; |
V222= Cnil; |
2699 |
V223= Cnil; |
V223= Cnil; |
2700 |
{long V225; |
{object V225; |
2701 |
register long V226; |
register object V226; |
2702 |
base[0]= (V221); |
base[2]= (V221); |
2703 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
2704 |
(void) (*Lnk204)(); |
Lpackage_use_list(); |
2705 |
if(vs_base>=vs_top){vs_top=sup;goto T1051;} |
vs_top=sup; |
2706 |
V225= fix(vs_base[0]); |
V227= vs_base[0]; |
2707 |
vs_base++; |
V225= make_cons((V221),V227); |
2708 |
if(vs_base>=vs_top){vs_top=sup;goto T1052;} |
V226= CMPcar((V225)); |
2709 |
V226= fix(vs_base[0]); |
goto T1054; |
2710 |
vs_top=sup; |
T1054:; |
2711 |
goto T1053; |
if(!(((V225))==Cnil)){ |
2712 |
goto T1051; |
goto T1055;} |
|
T1051:; |
|
|
V225= fix(Cnil); |
|
|
goto T1052; |
|
|
T1052:; |
|
|
V226= fix(Cnil); |
|
|
goto T1053; |
|
|
T1053:; |
|
|
{object V227; |
|
|
register object V228; |
|
|
V229 = make_fixnum(V226); |
|
|
V230 = make_fixnum(V225); |
|
|
V227= number_plus(V229,V230); |
|
|
V228= small_fixnum(0); |
|
|
goto T1057; |
|
|
T1057:; |
|
|
if(!(number_compare((V228),(V227))>=0)){ |
|
|
goto T1058;} |
|
2713 |
V222= Cnil; |
V222= Cnil; |
2714 |
goto T1040; |
goto T1040; |
2715 |
goto T1058; |
goto T1055; |
2716 |
T1058:; |
T1055:; |
2717 |
V231 = make_fixnum(V226); |
{long V228; |
2718 |
if(!(number_compare((V228),V231)<0)){ |
long V229; |
2719 |
goto T1069;} |
base[2]= (V226); |
2720 |
base[1]= (V221); |
vs_top=(vs_base=base+2)+1; |
2721 |
base[2]= (V228); |
(void) (*Lnk205)(); |
2722 |
vs_top=(vs_base=base+1)+2; |
if(vs_base>=vs_top){vs_top=sup;goto T1064;} |
2723 |
siLpackage_internal(); |
V228= fix(vs_base[0]); |
2724 |
vs_top=sup; |
vs_base++; |
2725 |
V223= vs_base[0]; |
if(vs_base>=vs_top){vs_top=sup;goto T1065;} |
2726 |
goto T1067; |
V229= fix(vs_base[0]); |
|
goto T1069; |
|
|
T1069:; |
|
|
base[1]= (V221); |
|
|
V232 = make_fixnum(V226); |
|
|
base[2]= number_minus((V228),V232); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
siLpackage_external(); |
|
2727 |
vs_top=sup; |
vs_top=sup; |
2728 |
V223= vs_base[0]; |
goto T1066; |
2729 |
goto T1067; |
goto T1064; |
2730 |
T1067:; |
T1064:; |
2731 |
|
V228= fix(Cnil); |
2732 |
goto T1065; |
goto T1065; |
2733 |
T1065:; |
T1065:; |
2734 |
if(((V223))!=Cnil){ |
V229= fix(Cnil); |
2735 |
|
goto T1066; |
2736 |
|
T1066:; |
2737 |
|
if(((V221))==((V226))){ |
2738 |
|
goto T1067;} |
2739 |
|
V229= 0; |
2740 |
|
goto T1067; |
2741 |
|
T1067:; |
2742 |
|
{object V230; |
2743 |
|
register object V231; |
2744 |
|
V232 = make_fixnum(V229); |
2745 |
|
V233 = make_fixnum(V228); |
2746 |
|
V230= number_plus(V232,V233); |
2747 |
|
V231= small_fixnum(0); |
2748 |
|
goto T1074; |
2749 |
|
T1074:; |
2750 |
|
if(!(number_compare((V231),(V230))>=0)){ |
2751 |
goto T1075;} |
goto T1075;} |
2752 |
goto T1066; |
goto T1061; |
2753 |
goto T1075; |
goto T1075; |
2754 |
T1075:; |
T1075:; |
2755 |
V222= CMPcar((V223)); |
V234 = make_fixnum(V229); |
2756 |
{object V233 =((V222))->s.s_plist; |
if(!(number_compare((V231),V234)<0)){ |
2757 |
object ind= VV[54]; |
goto T1084;} |
2758 |
while(V233!=Cnil){ |
base[3]= (V226); |
2759 |
if(V233->c.c_car==ind){ |
base[4]= (V231); |
2760 |
if(((V233->c.c_cdr->c.c_car))==Cnil){ |
vs_top=(vs_base=base+3)+2; |
2761 |
goto T1080;} |
siLpackage_internal(); |
2762 |
|
vs_top=sup; |
2763 |
|
V223= vs_base[0]; |
2764 |
goto T1082; |
goto T1082; |
2765 |
}else V233=V233->c.c_cdr->c.c_cdr;} |
goto T1084; |
2766 |
goto T1080;} |
T1084:; |
2767 |
|
base[3]= (V226); |
2768 |
|
V235 = make_fixnum(V229); |
2769 |
|
base[4]= number_minus((V231),V235); |
2770 |
|
vs_top=(vs_base=base+3)+2; |
2771 |
|
siLpackage_external(); |
2772 |
|
vs_top=sup; |
2773 |
|
V223= vs_base[0]; |
2774 |
goto T1082; |
goto T1082; |
2775 |
T1082:; |
T1082:; |
2776 |
base[1]= (VV[48]->s.s_dbind); |
goto T1080; |
2777 |
base[2]= VV[124]; |
T1080:; |
2778 |
base[3]= (V222); |
if(((V223))!=Cnil){ |
2779 |
{object V234 =((V222))->s.s_plist; |
goto T1090;} |
2780 |
|
goto T1081; |
2781 |
|
goto T1090; |
2782 |
|
T1090:; |
2783 |
|
V222= CMPcar((V223)); |
2784 |
|
if(((V226))==((V221))){ |
2785 |
|
goto T1096;} |
2786 |
|
base[4]= symbol_name((V222)); |
2787 |
|
base[5]= (V221); |
2788 |
|
vs_top=(vs_base=base+4)+2; |
2789 |
|
Lfind_symbol(); |
2790 |
|
Llist(); |
2791 |
|
vs_top=sup; |
2792 |
|
base[3]= vs_base[0]; |
2793 |
|
vs_top=(vs_base=base+3)+1; |
2794 |
|
Llast(); |
2795 |
|
vs_top=sup; |
2796 |
|
V236= vs_base[0]; |
2797 |
|
if(!((VV[124])==(CMPcar(V236)))){ |
2798 |
|
goto T1095;} |
2799 |
|
goto T1096; |
2800 |
|
T1096:; |
2801 |
|
{object V237 =((V222))->s.s_plist; |
2802 |
|
object ind= VV[54]; |
2803 |
|
while(V237!=Cnil){ |
2804 |
|
if(V237->c.c_car==ind){ |
2805 |
|
if(((V237->c.c_cdr->c.c_car))==Cnil){ |
2806 |
|
goto T1105;} |
2807 |
|
goto T1107; |
2808 |
|
}else V237=V237->c.c_cdr->c.c_cdr;} |
2809 |
|
goto T1105;} |
2810 |
|
goto T1107; |
2811 |
|
T1107:; |
2812 |
|
base[3]= (VV[48]->s.s_dbind); |
2813 |
|
base[4]= VV[125]; |
2814 |
|
base[5]= (V222); |
2815 |
|
{object V238 =((V222))->s.s_plist; |
2816 |
object ind= VV[54]; |
object ind= VV[54]; |
2817 |
while(V234!=Cnil){ |
while(V238!=Cnil){ |
2818 |
if(V234->c.c_car==ind){ |
if(V238->c.c_car==ind){ |
2819 |
base[4]= (V234->c.c_cdr->c.c_car); |
base[6]= (V238->c.c_cdr->c.c_car); |
2820 |
goto T1086; |
goto T1111; |
2821 |
}else V234=V234->c.c_cdr->c.c_cdr;} |
}else V238=V238->c.c_cdr->c.c_cdr;} |
2822 |
base[4]= Cnil;} |
base[6]= Cnil;} |
2823 |
goto T1086; |
goto T1111; |
2824 |
T1086:; |
T1111:; |
2825 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+3)+4; |
2826 |
Lformat(); |
Lformat(); |
2827 |
vs_top=sup; |
vs_top=sup; |
2828 |
goto T1080; |
goto T1105; |
2829 |
T1080:; |
T1105:; |
2830 |
|
goto T1095; |
2831 |
|
T1095:; |
2832 |
V223= CMPcdr((V223)); |
V223= CMPcdr((V223)); |
2833 |
goto T1065; |
goto T1080; |
2834 |
goto T1066; |
goto T1081; |
2835 |
T1066:; |
T1081:; |
2836 |
goto T1063; |
goto T1078; |
2837 |
goto T1063; |
goto T1078; |
2838 |
T1063:; |
T1078:; |
2839 |
V228= one_plus((V228)); |
V231= one_plus((V231)); |
2840 |
goto T1057;}}} |
goto T1074;}} |
2841 |
|
goto T1061; |
2842 |
|
T1061:; |
2843 |
|
V225= CMPcdr((V225)); |
2844 |
|
V226= CMPcar((V225)); |
2845 |
|
goto T1054;}} |
2846 |
goto T1040; |
goto T1040; |
2847 |
T1040:; |
T1040:; |
2848 |
vs_base=vs_top=base+0; |
vs_base=vs_top=base+0; |
2849 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
2850 |
vs_top=sup; |
vs_top=sup; |
2851 |
{object V235 = vs_base[0]; |
{object V239 = vs_base[0]; |
2852 |
VMR34(V235)} |
VMR34(V239)} |
2853 |
base[0]=base[0]; |
base[0]=base[0]; |
2854 |
return Cnil; |
return Cnil; |
2855 |
} |
} |
2859 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2860 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2861 |
vs_check; |
vs_check; |
2862 |
{register object V236; |
{register object V240; |
2863 |
V236=(base[0]); |
V240=(base[0]); |
2864 |
vs_top=sup; |
vs_top=sup; |
2865 |
goto TTL; |
goto TTL; |
2866 |
TTL:; |
TTL:; |
2867 |
if(!(type_of((V236))==t_string)){ |
if(!(type_of((V240))==t_string)){ |
2868 |
goto T1093;} |
goto T1123;} |
2869 |
goto T1092; |
goto T1122; |
2870 |
goto T1093; |
goto T1123; |
2871 |
T1093:; |
T1123:; |
2872 |
base[1]= VV[125]; |
base[1]= VV[126]; |
2873 |
base[2]= (V236); |
base[2]= (V240); |
2874 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2875 |
Lerror(); |
Lerror(); |
2876 |
vs_top=sup; |
vs_top=sup; |
2877 |
goto T1092; |
goto T1122; |
2878 |
T1092:; |
T1122:; |
2879 |
{long V237; |
{long V241; |
2880 |
V237= (long)((V236))->v.v_fillp; |
V241= (long)((V240))->v.v_fillp; |
2881 |
if(!((V237)>(0))){ |
if(!((V241)>(0))){ |
2882 |
goto T1099;} |
goto T1129;} |
2883 |
if((((V236))->ust.ust_self[(long)(V237)-(1)])==(47)){ |
if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){ |
2884 |
goto T1097;} |
goto T1127;} |
2885 |
goto T1099; |
goto T1129; |
2886 |
T1099:; |
T1129:; |
2887 |
base[1]= Cnil; |
base[1]= Cnil; |
2888 |
base[2]= VV[127]; |
base[2]= VV[128]; |
2889 |
base[3]= (V236); |
base[3]= (V240); |
2890 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2891 |
Lformat(); |
Lformat(); |
2892 |
vs_top=sup; |
vs_top=sup; |
2893 |
V236= vs_base[0];} |
V240= vs_base[0];} |
2894 |
goto T1097; |
goto T1127; |
2895 |
T1097:; |
T1127:; |
2896 |
base[1]= (V236); |
base[1]= (V240); |
2897 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2898 |
return; |
return; |
2899 |
} |
} |
2904 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2905 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2906 |
vs_check; |
vs_check; |
2907 |
{object V238; |
{object V242; |
2908 |
V238=(base[0]); |
V242=(base[0]); |
2909 |
vs_top=sup; |
vs_top=sup; |
2910 |
goto TTL; |
goto TTL; |
2911 |
TTL:; |
TTL:; |
2912 |
if(equal((V238),(VV[128]->s.s_dbind))){ |
if(equal((V242),(VV[129]->s.s_dbind))){ |
2913 |
goto T1107;} |
goto T1137;} |
|
{register object V239; |
|
|
V239= (V238); |
|
|
goto T1112; |
|
|
T1112:; |
|
|
if(!(type_of((V239))!=t_cons)){ |
|
|
goto T1113;} |
|
|
goto T1110; |
|
|
goto T1113; |
|
|
T1113:; |
|
|
{register object V241; |
|
|
base[2]= CMPcar((V239)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk205)(); |
|
|
vs_top=sup; |
|
|
V241= vs_base[0]; |
|
|
(V239)->c.c_car = (V241);} |
|
|
V239= CMPcdr((V239)); |
|
|
goto T1112;} |
|
|
goto T1110; |
|
|
T1110:; |
|
|
{register object V242; |
|
|
V242= (V238); |
|
|
goto T1125; |
|
|
T1125:; |
|
|
if(!(type_of((V242))!=t_cons)){ |
|
|
goto T1126;} |
|
|
goto T1107; |
|
|
goto T1126; |
|
|
T1126:; |
|
2914 |
{register object V243; |
{register object V243; |
2915 |
V243= (V242); |
V243= (V242); |
2916 |
goto T1132; |
goto T1142; |
2917 |
T1132:; |
T1142:; |
2918 |
if(!(type_of(CMPcdr((V243)))!=t_cons)){ |
if(!(type_of((V243))!=t_cons)){ |
2919 |
goto T1133;} |
goto T1143;} |
2920 |
goto T1130; |
goto T1140; |
2921 |
goto T1133; |
goto T1143; |
2922 |
T1133:; |
T1143:; |
2923 |
if(!(equal(CMPcadr((V243)),CMPcar((V242))))){ |
{register object V245; |
2924 |
goto T1137;} |
base[2]= CMPcar((V243)); |
2925 |
{register object V244; |
vs_top=(vs_base=base+2)+1; |
2926 |
register object V245; |
(void) (*Lnk206)(); |
2927 |
V244= (V243); |
vs_top=sup; |
2928 |
V245= CMPcddr((V243)); |
V245= vs_base[0]; |
2929 |
((V244))->c.c_cdr = (V245);} |
(V243)->c.c_car = (V245);} |
2930 |
|
V243= CMPcdr((V243)); |
2931 |
|
goto T1142;} |
2932 |
|
goto T1140; |
2933 |
|
T1140:; |
2934 |
|
{register object V246; |
2935 |
|
V246= (V242); |
2936 |
|
goto T1155; |
2937 |
|
T1155:; |
2938 |
|
if(!(type_of((V246))!=t_cons)){ |
2939 |
|
goto T1156;} |
2940 |
|
goto T1137; |
2941 |
|
goto T1156; |
2942 |
|
T1156:; |
2943 |
|
{register object V247; |
2944 |
|
V247= (V246); |
2945 |
|
goto T1162; |
2946 |
|
T1162:; |
2947 |
|
if(!(type_of(CMPcdr((V247)))!=t_cons)){ |
2948 |
|
goto T1163;} |
2949 |
|
goto T1160; |
2950 |
|
goto T1163; |
2951 |
|
T1163:; |
2952 |
|
if(!(equal(CMPcadr((V247)),CMPcar((V246))))){ |
2953 |
|
goto T1167;} |
2954 |
|
{register object V248; |
2955 |
|
register object V249; |
2956 |
|
V248= (V247); |
2957 |
|
V249= CMPcddr((V247)); |
2958 |
|
((V248))->c.c_cdr = (V249);} |
2959 |
|
goto T1167; |
2960 |
|
T1167:; |
2961 |
|
V247= CMPcdr((V247)); |
2962 |
|
goto T1162;} |
2963 |
|
goto T1160; |
2964 |
|
T1160:; |
2965 |
|
V246= CMPcdr((V246)); |
2966 |
|
goto T1155;} |
2967 |
goto T1137; |
goto T1137; |
2968 |
T1137:; |
T1137:; |
2969 |
V243= CMPcdr((V243)); |
(VV[129]->s.s_dbind)= (V242); |
2970 |
goto T1132;} |
base[1]= (VV[129]->s.s_dbind); |
|
goto T1130; |
|
|
T1130:; |
|
|
V242= CMPcdr((V242)); |
|
|
goto T1125;} |
|
|
goto T1107; |
|
|
T1107:; |
|
|
(VV[128]->s.s_dbind)= (V238); |
|
|
base[1]= (VV[128]->s.s_dbind); |
|
2971 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2972 |
return; |
return; |
2973 |
} |
} |
2979 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
2980 |
vs_check; |
vs_check; |
2981 |
bds_check; |
bds_check; |
2982 |
{register object V246; |
{register object V250; |
2983 |
object V247; |
object V251; |
2984 |
object V248; |
object V252; |
2985 |
object V249; |
object V253; |
2986 |
V246=(base[0]); |
V250=(base[0]); |
2987 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2988 |
if(vs_base>=vs_top){vs_top=sup;goto T1150;} |
if(vs_base>=vs_top){vs_top=sup;goto T1180;} |
2989 |
V247=(base[1]); |
V251=(base[1]); |
2990 |
vs_base++; |
vs_base++; |
2991 |
if(vs_base>=vs_top){vs_top=sup;goto T1151;} |
if(vs_base>=vs_top){vs_top=sup;goto T1181;} |
2992 |
V248=(base[2]); |
V252=(base[2]); |
2993 |
vs_base++; |
vs_base++; |
2994 |
if(vs_base>=vs_top){vs_top=sup;goto T1152;} |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
2995 |
V249=(base[3]); |
V253=(base[3]); |
2996 |
vs_top=sup; |
vs_top=sup; |
2997 |
goto T1153; |
goto T1183; |
2998 |
goto T1150; |
goto T1180; |
2999 |
T1150:; |
T1180:; |
3000 |
V247= (VV[129]->s.s_dbind); |
V251= (VV[130]->s.s_dbind); |
3001 |
goto T1151; |
goto T1181; |
3002 |
T1151:; |
T1181:; |
3003 |
V248= (VV[130]->s.s_dbind); |
V252= (VV[131]->s.s_dbind); |
3004 |
goto T1152; |
goto T1182; |
3005 |
T1152:; |
T1182:; |
3006 |
V249= Ct; |
V253= Ct; |
3007 |
goto T1153; |
goto T1183; |
3008 |
T1153:; |
T1183:; |
3009 |
{register object V250; |
{register object V254; |
3010 |
V250= Cnil; |
V254= Cnil; |
3011 |
base[4]= (V247); |
base[4]= (V251); |
3012 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3013 |
(void) (*Lnk206)(); |
(void) (*Lnk207)(); |
3014 |
vs_top=sup; |
vs_top=sup; |
3015 |
{register object V251; |
{register object V255; |
3016 |
register object V252; |
register object V256; |
3017 |
V251= (V247); |
V255= (V251); |
3018 |
V252= CMPcar((V251)); |
V256= CMPcar((V255)); |
3019 |
goto T1164; |
goto T1194; |
3020 |
T1164:; |
T1194:; |
3021 |
if(!(((V251))==Cnil)){ |
if(!(((V255))==Cnil)){ |
3022 |
goto T1165;} |
goto T1195;} |
3023 |
goto T1160; |
goto T1190; |
3024 |
goto T1165; |
goto T1195; |
3025 |
T1165:; |
T1195:; |
3026 |
{register object V253; |
{register object V257; |
3027 |
register object V254; |
register object V258; |
3028 |
V253= (V248); |
V257= (V252); |
3029 |
V254= CMPcar((V253)); |
V258= CMPcar((V257)); |
3030 |
goto T1173; |
goto T1203; |
3031 |
T1173:; |
T1203:; |
3032 |
if(!(((V253))==Cnil)){ |
if(!(((V257))==Cnil)){ |
3033 |
goto T1174;} |
goto T1204;} |
3034 |
goto T1169; |
goto T1199; |
3035 |
goto T1174; |
goto T1204; |
3036 |
T1174:; |
T1204:; |
3037 |
base[6]= (V252); |
base[6]= (V256); |
3038 |
base[7]= (V246); |
base[7]= (V250); |
3039 |
base[8]= (V254); |
base[8]= (V258); |
3040 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3041 |
(void) (*Lnk154)(); |
(void) (*Lnk155)(); |
3042 |
vs_top=sup; |
vs_top=sup; |
3043 |
V250= vs_base[0]; |
V254= vs_base[0]; |
3044 |
if(!((file_exists((V250))))){ |
if(!((file_exists((V254))))){ |
3045 |
goto T1178;} |
goto T1208;} |
3046 |
base[6]= (V250); |
base[6]= (V254); |
3047 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3048 |
return; |
return; |
3049 |
goto T1178; |
goto T1208; |
3050 |
T1178:; |
T1208:; |
3051 |
V253= CMPcdr((V253)); |
V257= CMPcdr((V257)); |
3052 |
V254= CMPcar((V253)); |
V258= CMPcar((V257)); |
3053 |
goto T1173;} |
goto T1203;} |
3054 |
goto T1169; |
goto T1199; |
3055 |
T1169:; |
T1199:; |
3056 |
V251= CMPcdr((V251)); |
V255= CMPcdr((V255)); |
3057 |
V252= CMPcar((V251)); |
V256= CMPcar((V255)); |
3058 |
goto T1164;} |
goto T1194;} |
3059 |
goto T1160; |
goto T1190; |
3060 |
T1160:; |
T1190:; |
3061 |
if(((V249))==Cnil){ |
if(((V253))==Cnil){ |
3062 |
goto T1196;} |
goto T1226;} |
3063 |
bds_bind(VV[131],Cnil); |
bds_bind(VV[132],Cnil); |
3064 |
base[5]= VV[132]; |
base[5]= VV[133]; |
3065 |
base[6]= VV[133]; |
base[6]= VV[134]; |
3066 |
base[7]= (V247); |
base[7]= (V251); |
3067 |
base[8]= (V246); |
base[8]= (V250); |
3068 |
base[9]= (V248); |
base[9]= (V252); |
3069 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
3070 |
Lcerror(); |
Lcerror(); |
3071 |
vs_top=sup; |
vs_top=sup; |
3072 |
base[5]= (VV[131]->s.s_dbind); |
base[5]= (VV[132]->s.s_dbind); |
3073 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3074 |
bds_unwind1; |
bds_unwind1; |
3075 |
return; |
return; |
3076 |
goto T1196; |
goto T1226; |
3077 |
T1196:; |
T1226:; |
3078 |
base[4]= Cnil; |
base[4]= Cnil; |
3079 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3080 |
return;} |
return;} |
3086 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3087 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
3088 |
vs_check; |
vs_check; |
3089 |
{object V255; |
{object V259; |
3090 |
V255=(base[0]); |
V259=(base[0]); |
3091 |
vs_top=sup; |
vs_top=sup; |
3092 |
goto TTL; |
goto TTL; |
3093 |
TTL:; |
TTL:; |
3094 |
base[2]= (V255); |
base[2]= (V259); |
3095 |
base[3]= (VV[129]->s.s_dbind); |
base[3]= (VV[130]->s.s_dbind); |
3096 |
base[4]= (VV[130]->s.s_dbind); |
base[4]= (VV[131]->s.s_dbind); |
3097 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3098 |
(void) (*Lnk207)(); |
(void) (*Lnk208)(); |
3099 |
vs_top=sup; |
vs_top=sup; |
3100 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3101 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3102 |
(void) (*Lnk147)(); |
(void) (*Lnk148)(); |
3103 |
return; |
return; |
3104 |
} |
} |
3105 |
} |
} |
3113 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3114 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
3115 |
vs_top=sup; |
vs_top=sup; |
3116 |
bds_bind(VV[134],Ct); |
bds_bind(VV[135],Ct); |
3117 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
3118 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3119 |
Lfboundp(); |
Lfboundp(); |
3120 |
vs_top=sup; |
vs_top=sup; |
3121 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3122 |
goto T1208;} |
goto T1238;} |
3123 |
base[3]= Ct; |
base[3]= Ct; |
3124 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3125 |
bds_unwind1; |
bds_unwind1; |
3126 |
return; |
return; |
3127 |
goto T1208; |
goto T1238; |
3128 |
T1208:; |
T1238:; |
3129 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
3130 |
base[4]= |
base[4]= |
3131 |
make_cclosure_new(LC45,Cnil,base[1],Cdata); |
make_cclosure_new(LC45,Cnil,base[1],Cdata); |
3144 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3145 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
3146 |
vs_top=sup; |
vs_top=sup; |
3147 |
bds_bind(VV[134],Ct); |
bds_bind(VV[135],Ct); |
3148 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
3149 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3150 |
Lfboundp(); |
Lfboundp(); |
3151 |
vs_top=sup; |
vs_top=sup; |
3152 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3153 |
goto T1213;} |
goto T1243;} |
3154 |
base[3]= Ct; |
base[3]= Ct; |
3155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3156 |
bds_unwind1; |
bds_unwind1; |
3157 |
return; |
return; |
3158 |
goto T1213; |
goto T1243; |
3159 |
T1213:; |
T1243:; |
3160 |
{object V256; |
{object V260; |
3161 |
object V257; |
object V261; |
3162 |
V256= (base[0]->c.c_car); |
V260= (base[0]->c.c_car); |
3163 |
V257= |
V261= |
3164 |
make_cclosure_new(LC46,Cnil,base[1],Cdata); |
make_cclosure_new(LC46,Cnil,base[1],Cdata); |
3165 |
base[4]= (V256); |
base[4]= (V260); |
3166 |
base[5]= make_cons(VV[135],(V257)); |
base[5]= make_cons(VV[136],(V261)); |
3167 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3168 |
siLfset(); |
siLfset(); |
3169 |
vs_top=sup; |
vs_top=sup; |
3170 |
base[4]= (V257); |
base[4]= (V261); |
3171 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3172 |
bds_unwind1; |
bds_unwind1; |
3173 |
return;} |
return;} |
3178 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3179 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM41; VC41 |
3180 |
vs_check; |
vs_check; |
3181 |
{register object V258; |
{register object V262; |
3182 |
register object V259; |
register object V263; |
3183 |
V258=(base[0]); |
V262=(base[0]); |
3184 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
3185 |
if(vs_base>=vs_top){vs_top=sup;goto T1221;} |
if(vs_base>=vs_top){vs_top=sup;goto T1251;} |
3186 |
V259=(base[1]); |
V263=(base[1]); |
3187 |
vs_top=sup; |
vs_top=sup; |
3188 |
goto T1222; |
goto T1252; |
3189 |
goto T1221; |
goto T1251; |
3190 |
T1221:; |
T1251:; |
3191 |
V259= Cnil; |
V263= Cnil; |
3192 |
goto T1222; |
goto T1252; |
3193 |
T1222:; |
T1252:; |
3194 |
{register object V260; |
{register object V264; |
3195 |
V260= (VV[16]->s.s_dbind); |
V264= (VV[16]->s.s_dbind); |
3196 |
goto T1226; |
goto T1256; |
3197 |
T1226:; |
T1256:; |
3198 |
V260= CMPcdr((V260)); |
V264= CMPcdr((V264)); |
3199 |
if((V260)!=Cnil){ |
if((V264)!=Cnil){ |
3200 |
goto T1230;} |
goto T1260;} |
3201 |
base[2]= Cnil; |
base[2]= Cnil; |
3202 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3203 |
return; |
return; |
3204 |
goto T1230; |
goto T1260; |
3205 |
T1230:; |
T1260:; |
3206 |
{register object V261; |
{register object V265; |
3207 |
V261= CMPcar((V260)); |
V265= CMPcar((V264)); |
3208 |
if(!((((V261))->ust.ust_self[0])==(((V258))->ust.ust_self[0]))){ |
if(!((((V265))->ust.ust_self[0])==(((V262))->ust.ust_self[0]))){ |
3209 |
goto T1227;} |
goto T1257;} |
3210 |
if(!((((V261))->ust.ust_self[1])==(((V258))->ust.ust_self[1]))){ |
if(!((((V265))->ust.ust_self[1])==(((V262))->ust.ust_self[1]))){ |
3211 |
goto T1227;} |
goto T1257;} |
3212 |
if(!(equal((V261),(V258)))){ |
if(!(equal((V265),(V262)))){ |
3213 |
goto T1227;} |
goto T1257;} |
3214 |
{register object V262; |
{register object V266; |
3215 |
V262= (V259); |
V266= (V263); |
3216 |
if(((V262))==Cnil){ |
if(((V266))==Cnil){ |
3217 |
goto T1239;} |
goto T1269;} |
3218 |
base[2]= (V262); |
base[2]= (V266); |
3219 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3220 |
return; |
return; |
3221 |
goto T1239; |
goto T1269; |
3222 |
T1239:; |
T1269:; |
3223 |
if((CMPcadr((V260)))==Cnil){ |
if((CMPcadr((V264)))==Cnil){ |
3224 |
goto T1242;} |
goto T1272;} |
3225 |
base[2]= CMPcadr((V260)); |
base[2]= CMPcadr((V264)); |
3226 |
base[3]= CMPcdr((V260)); |
base[3]= CMPcdr((V264)); |
3227 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3228 |
return; |
return; |
3229 |
goto T1242; |
goto T1272; |
3230 |
T1242:; |
T1272:; |
3231 |
base[2]= Ct; |
base[2]= Ct; |
3232 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3233 |
return;}} |
return;}} |
3234 |
goto T1227; |
goto T1257; |
3235 |
T1227:; |
T1257:; |
3236 |
goto T1226;} |
goto T1256;} |
3237 |
} |
} |
3238 |
} |
} |
3239 |
/* function definition for SET-DIR */ |
/* function definition for SET-DIR */ |
3242 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3243 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
3244 |
vs_check; |
vs_check; |
3245 |
{object V263; |
{object V267; |
3246 |
object V264; |
object V268; |
3247 |
V263=(base[0]); |
V267=(base[0]); |
3248 |
V264=(base[1]); |
V268=(base[1]); |
3249 |
vs_top=sup; |
vs_top=sup; |
3250 |
goto TTL; |
goto TTL; |
3251 |
TTL:; |
TTL:; |
3252 |
{object V265;{object V266; |
{object V269;{object V270; |
3253 |
base[2]= (V264); |
base[2]= (V268); |
3254 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3255 |
(void) (*Lnk208)(); |
(void) (*Lnk209)(); |
3256 |
vs_top=sup; |
vs_top=sup; |
3257 |
V266= vs_base[0]; |
V270= vs_base[0]; |
3258 |
if(V266==Cnil)goto T1248; |
if(V270==Cnil)goto T1278; |
3259 |
V265= V266; |
V269= V270; |
3260 |
goto T1247; |
goto T1277; |
3261 |
goto T1248; |
goto T1278; |
3262 |
T1248:;} |
T1278:;} |
3263 |
if(((V263))->s.s_dbind!=OBJNULL){ |
if(((V267))->s.s_dbind!=OBJNULL){ |
3264 |
goto T1251;} |
goto T1281;} |
3265 |
V265= Cnil; |
V269= Cnil; |
3266 |
goto T1247; |
goto T1277; |
3267 |
goto T1251; |
goto T1281; |
3268 |
T1251:; |
T1281:; |
3269 |
base[2]= (V263); |
base[2]= (V267); |
3270 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3271 |
Lsymbol_value(); |
Lsymbol_value(); |
3272 |
vs_top=sup; |
vs_top=sup; |
3273 |
V265= vs_base[0]; |
V269= vs_base[0]; |
3274 |
goto T1247; |
goto T1277; |
3275 |
T1247:; |
T1277:; |
3276 |
if(((V265))==Cnil){ |
if(((V269))==Cnil){ |
3277 |
goto T1255;} |
goto T1285;} |
3278 |
base[2]= (V263); |
base[2]= (V267); |
3279 |
base[4]= (V265); |
base[4]= (V269); |
3280 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3281 |
(void) (*Lnk205)(); |
(void) (*Lnk206)(); |
3282 |
vs_top=sup; |
vs_top=sup; |
3283 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3284 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3285 |
Lset(); |
Lset(); |
3286 |
return; |
return; |
3287 |
goto T1255; |
goto T1285; |
3288 |
T1255:; |
T1285:; |
3289 |
base[2]= Cnil; |
base[2]= Cnil; |
3290 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3291 |
return;} |
return;} |
3301 |
vs_top=sup; |
vs_top=sup; |
3302 |
goto TTL; |
goto TTL; |
3303 |
TTL:; |
TTL:; |
3304 |
{register long V267; |
{register long V271; |
3305 |
register object V268; |
register object V272; |
3306 |
vs_base=vs_top; |
vs_base=vs_top; |
|
(void) (*Lnk209)(); |
|
|
vs_top=sup; |
|
|
V267= fix(vs_base[0]); |
|
|
V268= Cnil; |
|
|
goto T1264; |
|
|
T1264:; |
|
|
V267= (long)(V267)-(1); |
|
|
if(!((V267)<(0))){ |
|
|
goto T1269;} |
|
|
goto T1262; |
|
|
goto T1269; |
|
|
T1269:; |
|
|
base[0]= make_fixnum(V267); |
|
|
vs_top=(vs_base=base+0)+1; |
|
3307 |
(void) (*Lnk210)(); |
(void) (*Lnk210)(); |
3308 |
vs_top=sup; |
vs_top=sup; |
3309 |
V269= vs_base[0]; |
V271= fix(vs_base[0]); |
3310 |
V268= make_cons(V269,(V268)); |
V272= Cnil; |
3311 |
goto T1264; |
goto T1294; |
3312 |
goto T1262; |
T1294:; |
3313 |
T1262:; |
V271= (long)(V271)-(1); |
3314 |
(VV[16]->s.s_dbind)= (V268); |
if(!((V271)<(0))){ |
3315 |
V268= (VV[136]->s.s_dbind); |
goto T1299;} |
3316 |
{object V270; |
goto T1292; |
3317 |
base[0]= VV[137]; |
goto T1299; |
3318 |
|
T1299:; |
3319 |
|
base[0]= make_fixnum(V271); |
3320 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3321 |
(void) (*Lnk211)(); |
(void) (*Lnk211)(); |
3322 |
vs_top=sup; |
vs_top=sup; |
3323 |
V270= vs_base[0];{object V271; |
V273= vs_base[0]; |
3324 |
base[0]= VV[136]; |
V272= make_cons(V273,(V272)); |
3325 |
base[1]= VV[138]; |
goto T1294; |
3326 |
vs_top=(vs_base=base+0)+2; |
goto T1292; |
3327 |
(void) (*Lnk212)(); |
T1292:; |
3328 |
vs_top=sup; |
(VV[16]->s.s_dbind)= (V272); |
3329 |
V271= vs_base[0]; |
V272= (VV[137]->s.s_dbind); |
3330 |
if(V271==Cnil)goto T1282; |
{object V274; |
3331 |
goto T1281; |
base[0]= VV[138]; |
|
goto T1282; |
|
|
T1282:;} |
|
|
if(((V270))==Cnil){ |
|
|
goto T1281;} |
|
|
base[0]= (V270); |
|
3332 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3333 |
(void) (*Lnk205)(); |
(void) (*Lnk212)(); |
3334 |
vs_top=sup; |
vs_top=sup; |
3335 |
(VV[136]->s.s_dbind)= vs_base[0]; |
V274= vs_base[0];{object V275; |
3336 |
goto T1281; |
base[0]= VV[137]; |
|
T1281:; |
|
|
if(((VV[129]->s.s_dbind))==Cnil){ |
|
|
goto T1291;} |
|
|
if(equal((V268),(VV[136]->s.s_dbind))){ |
|
|
goto T1290;} |
|
|
goto T1291; |
|
|
T1291:; |
|
|
base[0]= (VV[136]->s.s_dbind); |
|
3337 |
base[1]= VV[139]; |
base[1]= VV[139]; |
3338 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3339 |
(void) (*Lnk154)(); |
(void) (*Lnk213)(); |
3340 |
vs_top=sup; |
vs_top=sup; |
3341 |
V272= vs_base[0]; |
V275= vs_base[0]; |
3342 |
(VV[129]->s.s_dbind)= make_cons(V272,(VV[129]->s.s_dbind)); |
if(V275==Cnil)goto T1312; |
3343 |
base[0]= (VV[136]->s.s_dbind); |
goto T1311; |
3344 |
|
goto T1312; |
3345 |
|
T1312:;} |
3346 |
|
if(((V274))==Cnil){ |
3347 |
|
goto T1311;} |
3348 |
|
base[0]= (V274); |
3349 |
|
vs_top=(vs_base=base+0)+1; |
3350 |
|
(void) (*Lnk206)(); |
3351 |
|
vs_top=sup; |
3352 |
|
(VV[137]->s.s_dbind)= vs_base[0]; |
3353 |
|
goto T1311; |
3354 |
|
T1311:; |
3355 |
|
if(((VV[130]->s.s_dbind))==Cnil){ |
3356 |
|
goto T1321;} |
3357 |
|
if(equal((V272),(VV[137]->s.s_dbind))){ |
3358 |
|
goto T1320;} |
3359 |
|
goto T1321; |
3360 |
|
T1321:; |
3361 |
|
base[0]= (VV[137]->s.s_dbind); |
3362 |
base[1]= VV[140]; |
base[1]= VV[140]; |
3363 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3364 |
(void) (*Lnk154)(); |
(void) (*Lnk155)(); |
3365 |
vs_top=sup; |
vs_top=sup; |
3366 |
V273= vs_base[0]; |
V276= vs_base[0]; |
3367 |
(VV[129]->s.s_dbind)= make_cons(V273,(VV[129]->s.s_dbind)); |
(VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind)); |
3368 |
goto T1290; |
base[0]= (VV[137]->s.s_dbind); |
3369 |
T1290:; |
base[1]= VV[141]; |
3370 |
base[2]= VV[142]; |
vs_top=(vs_base=base+0)+2; |
3371 |
|
(void) (*Lnk155)(); |
3372 |
|
vs_top=sup; |
3373 |
|
V277= vs_base[0]; |
3374 |
|
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
3375 |
|
goto T1320; |
3376 |
|
T1320:; |
3377 |
|
base[2]= VV[143]; |
3378 |
base[3]= Cnil; |
base[3]= Cnil; |
3379 |
base[4]= VV[143]; |
base[4]= VV[144]; |
3380 |
base[6]= small_fixnum(0); |
base[6]= small_fixnum(0); |
3381 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3382 |
(void) (*Lnk210)(); |
(void) (*Lnk211)(); |
3383 |
vs_top=sup; |
vs_top=sup; |
3384 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
3385 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
3393 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3394 |
Lnamestring(); |
Lnamestring(); |
3395 |
vs_top=sup; |
vs_top=sup; |
3396 |
(VV[141]->s.s_dbind)= vs_base[0]; |
(VV[142]->s.s_dbind)= vs_base[0]; |
3397 |
base[0]= VV[141]; |
base[0]= VV[142]; |
3398 |
base[1]= VV[144]; |
base[1]= VV[145]; |
3399 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3400 |
(void) (*Lnk212)(); |
(void) (*Lnk213)(); |
3401 |
vs_top=sup; |
vs_top=sup; |
3402 |
base[0]= VV[145]; |
base[0]= VV[146]; |
3403 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3404 |
(void) (*Lnk208)(); |
(void) (*Lnk209)(); |
3405 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3406 |
V268= vs_base[0]; |
V272= vs_base[0]; |
3407 |
vs_base++; |
vs_base++; |
3408 |
}else{ |
}else{ |
3409 |
V268= Cnil;} |
V272= Cnil;} |
3410 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3411 |
V268= vs_base[0]; |
V272= vs_base[0]; |
3412 |
}else{ |
}else{ |
3413 |
V268= Cnil;} |
V272= Cnil;} |
3414 |
vs_top=sup; |
vs_top=sup; |
3415 |
if(((V268))==Cnil){ |
if(((V272))==Cnil){ |
3416 |
goto T1317;} |
goto T1347;} |
3417 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[15],Cnil); |
3418 |
base[1]= (VV[16]->s.s_dbind); |
base[1]= (VV[16]->s.s_dbind); |
3419 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3420 |
(void) (*Lnk148)(); |
(void) (*Lnk149)(); |
3421 |
vs_top=sup; |
vs_top=sup; |
3422 |
(VV[16]->s.s_dbind)= (V268); |
(VV[16]->s.s_dbind)= (V272); |
3423 |
base[1]= CMPcar((VV[16]->s.s_dbind)); |
base[1]= CMPcar((VV[16]->s.s_dbind)); |
3424 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3425 |
(void) (*Lnk213)(); |
(void) (*Lnk214)(); |
3426 |
bds_unwind1; |
bds_unwind1; |
3427 |
return; |
return; |
3428 |
goto T1317; |
goto T1347; |
3429 |
T1317:; |
T1347:; |
3430 |
base[0]= Cnil; |
base[0]= Cnil; |
3431 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3432 |
return;}} |
return;}} |
3438 |
register object *VOL sup=base+VM44; VC44 |
register object *VOL sup=base+VM44; VC44 |
3439 |
vs_check; |
vs_check; |
3440 |
bds_check; |
bds_check; |
3441 |
{VOL object V274; |
{VOL object V278; |
3442 |
V274=(base[0]); |
V278=(base[0]); |
3443 |
vs_top=sup; |
vs_top=sup; |
3444 |
goto TTL; |
goto TTL; |
3445 |
TTL:; |
TTL:; |
3446 |
base[1]= VV[146]; |
base[1]= VV[147]; |
3447 |
base[2]= Cnil; |
base[2]= Cnil; |
3448 |
bds_bind(VV[43],Cnil); |
bds_bind(VV[43],Cnil); |
3449 |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
3450 |
if(nlj_active) |
if(nlj_active) |
3451 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
3452 |
vs_top=sup; |
vs_top=sup; |
3453 |
goto T1326;} |
goto T1356;} |
3454 |
else{ |
else{ |
3455 |
base[5]= (V274); |
base[5]= (V278); |
3456 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3457 |
(void) (*Lnk214)(); |
(void) (*Lnk215)(); |
3458 |
vs_top=sup; |
vs_top=sup; |
3459 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3460 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
3465 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3466 |
Lread_line(); |
Lread_line(); |
3467 |
vs_top=sup; |
vs_top=sup; |
3468 |
goto T1335; |
goto T1365; |
3469 |
T1335:; |
T1365:; |
3470 |
base[6]= base[4]; |
base[6]= base[4]; |
3471 |
base[7]= Cnil; |
base[7]= Cnil; |
3472 |
base[8]= base[1]; |
base[8]= base[1]; |
3475 |
vs_top=sup; |
vs_top=sup; |
3476 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3477 |
if(!((base[1])==(base[2]))){ |
if(!((base[1])==(base[2]))){ |
3478 |
goto T1342;} |
goto T1372;} |
3479 |
base[6]= Cnil; |
base[6]= Cnil; |
3480 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3481 |
goto T1331; |
goto T1361; |
3482 |
goto T1342; |
goto T1372; |
3483 |
T1342:; |
T1372:; |
3484 |
base[6]= base[2]; |
base[6]= base[2]; |
3485 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3486 |
Leval(); |
Leval(); |
3487 |
vs_top=sup; |
vs_top=sup; |
3488 |
goto T1335; |
goto T1365; |
3489 |
goto T1331; |
goto T1361; |
3490 |
T1331:; |
T1361:; |
3491 |
active=FALSE;} |
active=FALSE;} |
3492 |
base[5]=Cnil; |
base[5]=Cnil; |
3493 |
while(vs_base<vs_top) |
while(vs_base<vs_top) |
3495 |
vs_top=sup; |
vs_top=sup; |
3496 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
3497 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
3498 |
goto T1347;} |
goto T1377;} |
3499 |
base[6]= base[4]; |
base[6]= base[4]; |
3500 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3501 |
Lclose(); |
Lclose(); |
3502 |
vs_top=sup; |
vs_top=sup; |
3503 |
goto T1347; |
goto T1377; |
3504 |
T1347:; |
T1377:; |
3505 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
3506 |
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)); |
3507 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
3510 |
Lby(); |
Lby(); |
3511 |
vs_top=sup; |
vs_top=sup; |
3512 |
frs_pop();} |
frs_pop();} |
3513 |
goto T1326; |
goto T1356; |
3514 |
T1326:; |
T1356:; |
3515 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
3516 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3517 |
Lby(); |
Lby(); |
3526 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3527 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM45; VC45 |
3528 |
vs_check; |
vs_check; |
3529 |
{object V275; |
{object V279; |
3530 |
object V276; |
object V280; |
3531 |
V275=(base[0]); |
V279=(base[0]); |
3532 |
V276=(base[1]); |
V280=(base[1]); |
3533 |
vs_top=sup; |
vs_top=sup; |
3534 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
3535 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3536 |
(void) (*Lnk215)(); |
(void) (*Lnk216)(); |
3537 |
vs_top=sup; |
vs_top=sup; |
3538 |
base[2]= (V275); |
base[2]= (V279); |
3539 |
base[3]= (V276); |
base[3]= (V280); |
3540 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3541 |
super_funcall_no_event((base0[1]->c.c_car)); |
super_funcall_no_event((base0[1]->c.c_car)); |
3542 |
return; |
return; |
3549 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3550 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3551 |
vs_check; |
vs_check; |
3552 |
{object V277; |
{object V281; |
3553 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
3554 |
{object *p=vs_top; |
{object *p=vs_top; |
3555 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
3556 |
V277=(base[0]); |
V281=(base[0]); |
3557 |
vs_top=sup; |
vs_top=sup; |
3558 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
3559 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3560 |
(void) (*Lnk215)(); |
(void) (*Lnk216)(); |
3561 |
vs_top=sup; |
vs_top=sup; |
3562 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
3563 |
{object V278; |
{object V282; |
3564 |
V278= (V277); |
V282= (V281); |
3565 |
vs_top=base+2; |
vs_top=base+2; |
3566 |
while(V278!=Cnil) |
while(V282!=Cnil) |
3567 |
{vs_push((V278)->c.c_car);V278=(V278)->c.c_cdr;} |
{vs_push((V282)->c.c_car);V282=(V282)->c.c_cdr;} |
3568 |
vs_base=base+2;} |
vs_base=base+2;} |
3569 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
3570 |
return; |
return; |
3571 |
} |
} |
3572 |
} |
} |
3573 |
static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* ALOAD */ |
static void LnkT216(){ call_or_link(VV[216],(void **)&Lnk216);} /* ALOAD */ |
3574 |
static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* OPEN */ |
static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* OPEN */ |
3575 |
static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* DO-F */ |
static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* DO-F */ |
3576 |
static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* SET-DIR */ |
static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* SET-DIR */ |
3577 |
static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* GETENV */ |
static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* GETENV */ |
3578 |
static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGV */ |
static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* ARGV */ |
3579 |
static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* ARGC */ |
static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGC */ |
3580 |
static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* GET-COMMAND-ARG */ |
static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* GET-COMMAND-ARG */ |
3581 |
static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FILE-SEARCH */ |
static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* FILE-SEARCH */ |
3582 |
static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* FIX-LOAD-PATH */ |
static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FIX-LOAD-PATH */ |
3583 |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */ |
static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* COERCE-SLASH-TERMINATED */ |
3584 |
static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */ |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* PACKAGE-SIZE */ |
3585 |
static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */ |
static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* BREAK-GO */ |
3586 |
static object LnkTLI201(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[201],(void **)&LnkLI201,ap);va_end(ap);return V1;} /* SEARCH */ |
static object LnkTLI202(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[202],(void **)&LnkLI202,ap);va_end(ap);return V1;} /* SEARCH */ |
3587 |
static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */ |
static void LnkT201(){ call_or_link(VV[201],(void **)&Lnk201);} /* INTERNAL-SUPER-GO */ |
3588 |
static object LnkTLI199(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[199],(void **)&LnkLI199,2,ap);va_end(ap);return V1;} /* LIST-DELQ */ |
static object LnkTLI200(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[200],(void **)&LnkLI200,2,ap);va_end(ap);return V1;} /* LIST-DELQ */ |
3589 |
static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */ |
static void LnkT199(){ call_or_link(VV[199],(void **)&Lnk199);} /* IHS-NOT-INTERPRETED-ENV */ |
3590 |
static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* COMPILED-FUNCTION-NAME */ |
3591 |
static object LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[195],(void **)&LnkLI195,ap);va_end(ap);return V1;} /* REMOVE */ |
static object LnkTLI196(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[196],(void **)&LnkLI196,ap);va_end(ap);return V1;} /* REMOVE */ |
3592 |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */ |
static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* SPICEP */ |
3593 |
static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */ |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* FRS-TAG */ |
3594 |
static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */ |
static void LnkT190(){ call_or_link(VV[190],(void **)&Lnk190);} /* FRS-CLASS */ |
3595 |
static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */ |
static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-VS */ |
3596 |
static object LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* FRS-KIND */ |
static object LnkTLI188(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[188],(void **)&LnkLI188,1,ap);va_end(ap);return V1;} /* FRS-KIND */ |
3597 |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */ |
static void LnkT184(){ call_or_link(VV[184],(void **)&Lnk184);} /* IHS-FUN */ |
3598 |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */ |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* FRS-IHS */ |
3599 |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */ |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* BDS-VAL */ |
3600 |
static object LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* PRINT-FRS */ |
static object LnkTLI181(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[181],(void **)&LnkLI181,1,ap);va_end(ap);return V1;} /* PRINT-FRS */ |
3601 |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */ |
static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* BDS-VAR */ |
3602 |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */ |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* FRS-BDS */ |
3603 |
static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */ |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* BREAK-VS */ |
3604 |
static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */ |
static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* VS */ |
3605 |
static object LnkTLI175(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[175],(void **)&LnkLI175,1,ap);va_end(ap);return V1;} /* PRINT-IHS */ |
static object LnkTLI176(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[176],(void **)&LnkLI176,1,ap);va_end(ap);return V1;} /* PRINT-IHS */ |
3606 |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */ |
static void LnkT175(){ call_or_link(VV[175],(void **)&Lnk175);} /* IHS-VS */ |
3607 |
static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */ |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* BREAK-PREVIOUS */ |
3608 |
static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */ |
static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* IHS-FNAME */ |
3609 |
static object LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */ |
static object LnkTLI172(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[172],(void **)&LnkLI172,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */ |
3610 |
static object LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */ |
static object LnkTLI171(){return call_proc0(VV[171],(void **)&LnkLI171);} /* SET-ENV */ |
3611 |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */ |
static void LnkT170(){ call_or_link(VV[170],(void **)&Lnk170);} /* COMPLETE-PROP */ |
3612 |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */ |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* BREAK-LEVEL */ |
3613 |
static void LnkT167(){ call_or_link(VV[167],(void **)&Lnk167);} /* BREAK */ |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK */ |
3614 |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* DBL-READ */ |
static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* DBL-READ */ |
3615 |
static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* SET-BACK */ |
static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* SET-BACK */ |
3616 |
static object LnkTLI162(){return call_proc0(VV[162],(void **)&LnkLI162);} /* SET-CURRENT */ |
static object LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* SET-CURRENT */ |
3617 |
static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* CATCH-FATAL */ |
static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* CATCH-FATAL */ |
3618 |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* BREAK-QUIT */ |
static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* BREAK-QUIT */ |
3619 |
static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* SIMPLE-BACKTRACE */ |
static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* SIMPLE-BACKTRACE */ |
3620 |
static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* FRS-TOP */ |
static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* FRS-TOP */ |
3621 |
static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* SCH-FRS-BASE */ |
static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* SCH-FRS-BASE */ |
3622 |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* IHS-TOP */ |
static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* IHS-TOP */ |
3623 |
static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* MAKE-STRING-INPUT-STREAM */ |
static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* MAKE-STRING-INPUT-STREAM */ |
3624 |
static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* STRING-CONCATENATE */ |
static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-CONCATENATE */ |
3625 |
static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* READ-FROM-STRING */ |
static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* READ-FROM-STRING */ |
3626 |
static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* BREAK-CURRENT */ |
static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* BREAK-CURRENT */ |
3627 |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* PROCESS-SOME-ARGS */ |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* PROCESS-SOME-ARGS */ |
3628 |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* LOAD */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* LOAD */ |
3629 |
|
|
3630 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3631 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |