154 |
} |
} |
155 |
/* local entry for function THE-END */ |
/* local entry for function THE-END */ |
156 |
|
|
157 |
static int LI6(V34,V35) |
static long LI6(V34,V35) |
158 |
|
|
159 |
register object V34;object V35; |
register object V34;object V35; |
160 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
167 |
T51:; |
T51:; |
168 |
(void)((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
(void)((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
169 |
T50:; |
T50:; |
170 |
{int V36 = fix((V34)); |
{long V36 = fix((V34)); |
171 |
VMR6(V36)} |
VMR6(V36)} |
172 |
T48:; |
T48:; |
173 |
if(((V34))!=Cnil){ |
if(((V34))!=Cnil){ |
174 |
goto T54;} |
goto T54;} |
175 |
{int V37 = length((V35)); |
{long V37 = length((V35)); |
176 |
VMR6(V37)} |
VMR6(V37)} |
177 |
T54:; |
T54:; |
178 |
{int V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
179 |
VMR6(V38)} |
VMR6(V38)} |
180 |
} |
} |
181 |
/* local entry for function THE-START */ |
/* local entry for function THE-START */ |
182 |
|
|
183 |
static int LI7(V40) |
static long LI7(V40) |
184 |
|
|
185 |
register object V40; |
register object V40; |
186 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
193 |
T60:; |
T60:; |
194 |
(void)((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
(void)((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
195 |
T59:; |
T59:; |
196 |
{int V41 = fix((V40)); |
{long V41 = fix((V40)); |
197 |
VMR7(V41)} |
VMR7(V41)} |
198 |
T57:; |
T57:; |
199 |
if(((V40))!=Cnil){ |
if(((V40))!=Cnil){ |
200 |
goto T63;} |
goto T63;} |
201 |
{int V42 = 0; |
{long V42 = 0; |
202 |
VMR7(V42)} |
VMR7(V42)} |
203 |
T63:; |
T63:; |
204 |
{int V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
205 |
VMR7(V43)} |
VMR7(V43)} |
206 |
} |
} |
207 |
/* function definition for REDUCE */ |
/* function definition for REDUCE */ |
232 |
V51= symbol_function(VV[33]); |
V51= symbol_function(VV[33]); |
233 |
}else{ |
}else{ |
234 |
V51=(base[6]);} |
V51=(base[6]);} |
235 |
{register int V52; |
{register long V52; |
236 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
237 |
goto T68;} |
goto T68;} |
238 |
V52= (*(LnkLI34))((V47)); |
V52= (*(LnkLI34))((V47)); |
240 |
T68:; |
T68:; |
241 |
V52= 0; |
V52= 0; |
242 |
T66:; |
T66:; |
243 |
{register int V53; |
{register long V53; |
244 |
V53= (*(LnkLI35))((V48),(V45)); |
V53= (*(LnkLI35))((V48),(V45)); |
245 |
if(!((V52)<=(V53))){ |
if(!((V52)<=(V53))){ |
246 |
goto T72;} |
goto T72;} |
344 |
parse_key_new(narg,Vcs +2,&LI9key,ap); |
parse_key_new(narg,Vcs +2,&LI9key,ap); |
345 |
V67=(Vcs[2]); |
V67=(Vcs[2]); |
346 |
V68=(Vcs[3]); |
V68=(Vcs[3]); |
347 |
{int V69; |
{long V69; |
348 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
349 |
goto T124;} |
goto T124;} |
350 |
V69= (*(LnkLI34))((V67)); |
V69= (*(LnkLI34))((V67)); |
352 |
T124:; |
T124:; |
353 |
V69= 0; |
V69= 0; |
354 |
T122:; |
T122:; |
355 |
{register int V70; |
{register long V70; |
356 |
V70= (*(LnkLI35))((V68),(V65)); |
V70= (*(LnkLI35))((V68),(V65)); |
357 |
if(!((V69)<=(V70))){ |
if(!((V69)<=(V70))){ |
358 |
goto T128;} |
goto T128;} |
362 |
V72 = make_fixnum(V70); |
V72 = make_fixnum(V70); |
363 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72))); |
364 |
T127:; |
T127:; |
365 |
{register int V73; |
{register long V73; |
366 |
V73= V69; |
V73= V69; |
367 |
T132:; |
T132:; |
368 |
if(!((V73)>=(V70))){ |
if(!((V73)>=(V70))){ |
399 |
V80=(Vcs[3]); |
V80=(Vcs[3]); |
400 |
V81=(Vcs[4]); |
V81=(Vcs[4]); |
401 |
V82=(Vcs[5]); |
V82=(Vcs[5]); |
402 |
{int V83; |
{long V83; |
403 |
if(((V79))==Cnil){ |
if(((V79))==Cnil){ |
404 |
goto T143;} |
goto T143;} |
405 |
V83= (*(LnkLI34))((V79)); |
V83= (*(LnkLI34))((V79)); |
407 |
T143:; |
T143:; |
408 |
V83= 0; |
V83= 0; |
409 |
T141:; |
T141:; |
410 |
{int V84; |
{long V84; |
411 |
V84= (*(LnkLI35))((V80),(V77)); |
V84= (*(LnkLI35))((V80),(V77)); |
412 |
if(!((V83)<=(V84))){ |
if(!((V83)<=(V84))){ |
413 |
goto T147;} |
goto T147;} |
417 |
V86 = make_fixnum(V84); |
V86 = make_fixnum(V84); |
418 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86))); |
419 |
T146:; |
T146:; |
420 |
{int V87; |
{long V87; |
421 |
if(((V81))==Cnil){ |
if(((V81))==Cnil){ |
422 |
goto T151;} |
goto T151;} |
423 |
V87= (*(LnkLI34))((V81)); |
V87= (*(LnkLI34))((V81)); |
425 |
T151:; |
T151:; |
426 |
V87= 0; |
V87= 0; |
427 |
T149:; |
T149:; |
428 |
{int V88; |
{long V88; |
429 |
V88= (*(LnkLI35))((V82),(V78)); |
V88= (*(LnkLI35))((V82),(V78)); |
430 |
if(!((V87)<=(V88))){ |
if(!((V87)<=(V88))){ |
431 |
goto T155;} |
goto T155;} |
439 |
goto T158;} |
goto T158;} |
440 |
if(!((V83)>(V87))){ |
if(!((V83)>(V87))){ |
441 |
goto T158;} |
goto T158;} |
442 |
{register int V91; |
{register long V91; |
443 |
int V92; |
long V92; |
444 |
register int V93; |
register long V93; |
445 |
register int V94; |
register long V94; |
446 |
V91= 0; |
V91= 0; |
447 |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
448 |
goto T165;} |
goto T165;} |
466 |
V94= (-1)+(V94); |
V94= (-1)+(V94); |
467 |
goto T170;} |
goto T170;} |
468 |
T158:; |
T158:; |
469 |
{register int V97; |
{register long V97; |
470 |
int V98; |
long V98; |
471 |
register int V99; |
register long V99; |
472 |
register int V100; |
register long V100; |
473 |
V97= 0; |
V97= 0; |
474 |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
475 |
goto T186;} |
goto T186;} |
527 |
V113= symbol_function(VV[33]); |
V113= symbol_function(VV[33]); |
528 |
}else{ |
}else{ |
529 |
V113=(Vcs[8]);} |
V113=(Vcs[8]);} |
530 |
{int V114; |
{long V114; |
531 |
if(((V110))==Cnil){ |
if(((V110))==Cnil){ |
532 |
goto T205;} |
goto T205;} |
533 |
V114= (*(LnkLI34))((V110)); |
V114= (*(LnkLI34))((V110)); |
535 |
T205:; |
T205:; |
536 |
V114= 0; |
V114= 0; |
537 |
T203:; |
T203:; |
538 |
{int V115; |
{long V115; |
539 |
V115= (*(LnkLI35))((V111),(V106)); |
V115= (*(LnkLI35))((V111),(V106)); |
540 |
if(!((V114)<=(V115))){ |
if(!((V114)<=(V115))){ |
541 |
goto T209;} |
goto T209;} |
545 |
V117 = make_fixnum(V115); |
V117 = make_fixnum(V115); |
546 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117))); |
547 |
T208:; |
T208:; |
548 |
{int V118; |
{long V118; |
549 |
if(((V112))!=Cnil){ |
if(((V112))!=Cnil){ |
550 |
goto T213;} |
goto T213;} |
551 |
V118= 2147483647; |
V118= 2147483647; |
567 |
register object V120; |
register object V120; |
568 |
V119= (V106); |
V119= (V106); |
569 |
V120= Cnil; |
V120= Cnil; |
570 |
{register int V121; |
{register long V121; |
571 |
V121= 0; |
V121= 0; |
572 |
T226:; |
T226:; |
573 |
if(!((V121)>=(V114))){ |
if(!((V121)>=(V114))){ |
581 |
V121= (1)+(V121); |
V121= (1)+(V121); |
582 |
goto T226;} |
goto T226;} |
583 |
T223:; |
T223:; |
584 |
{register int V123; |
{register long V123; |
585 |
register int V124; |
register long V124; |
586 |
V123= V114; |
V123= V114; |
587 |
V124= 0; |
V124= 0; |
588 |
T243:; |
T243:; |
736 |
V169= symbol_function(VV[33]); |
V169= symbol_function(VV[33]); |
737 |
}else{ |
}else{ |
738 |
V169=(Vcs[8]);} |
V169=(Vcs[8]);} |
739 |
{int V170; |
{long V170; |
740 |
V170= length((V162)); |
V170= length((V162)); |
741 |
{register int V171; |
{register long V171; |
742 |
if(((V166))==Cnil){ |
if(((V166))==Cnil){ |
743 |
goto T281;} |
goto T281;} |
744 |
V171= (*(LnkLI34))((V166)); |
V171= (*(LnkLI34))((V166)); |
746 |
T281:; |
T281:; |
747 |
V171= 0; |
V171= 0; |
748 |
T279:; |
T279:; |
749 |
{register int V172; |
{register long V172; |
750 |
V172= (*(LnkLI35))((V167),(V162)); |
V172= (*(LnkLI35))((V167),(V162)); |
751 |
if(!((V171)<=(V172))){ |
if(!((V171)<=(V172))){ |
752 |
goto T285;} |
goto T285;} |
756 |
V174 = make_fixnum(V172); |
V174 = make_fixnum(V172); |
757 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174))); |
758 |
T284:; |
T284:; |
759 |
{register int V175; |
{register long V175; |
760 |
if(((V168))!=Cnil){ |
if(((V168))!=Cnil){ |
761 |
goto T289;} |
goto T289;} |
762 |
V175= 2147483647; |
V175= 2147483647; |
778 |
register object V177; |
register object V177; |
779 |
V176= make_cons(Cnil,(V162)); |
V176= make_cons(Cnil,(V162)); |
780 |
V177= (V176); |
V177= (V176); |
781 |
{int V178; |
{long V178; |
782 |
V178= 0; |
V178= 0; |
783 |
T304:; |
T304:; |
784 |
if(!((V178)>=(V171))){ |
if(!((V178)>=(V171))){ |
791 |
V178= (1)+(V178); |
V178= (1)+(V178); |
792 |
goto T304;} |
goto T304;} |
793 |
T301:; |
T301:; |
794 |
{int V180; |
{long V180; |
795 |
int V181; |
long V181; |
796 |
V180= V171; |
V180= V171; |
797 |
V181= 0; |
V181= 0; |
798 |
T319:; |
T319:; |
823 |
V180= (1)+(V180); |
V180= (1)+(V180); |
824 |
goto T319;}} |
goto T319;}} |
825 |
T297:; |
T297:; |
826 |
{int V184; |
{long V184; |
827 |
V185 = make_fixnum(V171); |
V185 = make_fixnum(V171); |
828 |
V186 = make_fixnum(V172); |
V186 = make_fixnum(V172); |
829 |
V187 = make_fixnum(V175); |
V187 = make_fixnum(V175); |
833 |
V175= V184; |
V175= V184; |
834 |
T341:; |
T341:; |
835 |
{object V188; |
{object V188; |
836 |
register int V189; |
register long V189; |
837 |
int V190; |
long V190; |
838 |
int V191; |
long V191; |
839 |
V192= (*(LnkLI47))((V162)); |
V192= (*(LnkLI47))((V162)); |
840 |
V193 = make_fixnum((V170)-(V175)); |
V193 = make_fixnum((V170)-(V175)); |
841 |
V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193)); |
V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193)); |
871 |
V189= (1)+(V189); |
V189= (1)+(V189); |
872 |
goto T350;}} |
goto T350;}} |
873 |
T294:; |
T294:; |
874 |
{int V197; |
{long V197; |
875 |
V198 = make_fixnum(V171); |
V198 = make_fixnum(V171); |
876 |
V199 = make_fixnum(V172); |
V199 = make_fixnum(V172); |
877 |
V200 = make_fixnum(V175); |
V200 = make_fixnum(V175); |
881 |
V175= V197; |
V175= V197; |
882 |
T374:; |
T374:; |
883 |
{object V201; |
{object V201; |
884 |
register int V202; |
register long V202; |
885 |
int V203; |
long V203; |
886 |
int V204; |
long V204; |
887 |
V205= (*(LnkLI47))((V162)); |
V205= (*(LnkLI47))((V162)); |
888 |
V206 = make_fixnum((V170)-(V175)); |
V206 = make_fixnum((V170)-(V175)); |
889 |
V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206)); |
V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206)); |
1019 |
V241= symbol_function(VV[33]); |
V241= symbol_function(VV[33]); |
1020 |
}else{ |
}else{ |
1021 |
V241=(Vcs[7]);} |
V241=(Vcs[7]);} |
1022 |
{int V242; |
{long V242; |
1023 |
if(((V239))==Cnil){ |
if(((V239))==Cnil){ |
1024 |
goto T413;} |
goto T413;} |
1025 |
V242= (*(LnkLI34))((V239)); |
V242= (*(LnkLI34))((V239)); |
1027 |
T413:; |
T413:; |
1028 |
V242= 0; |
V242= 0; |
1029 |
T411:; |
T411:; |
1030 |
{int V243; |
{long V243; |
1031 |
V243= (*(LnkLI35))((V240),(V235)); |
V243= (*(LnkLI35))((V240),(V235)); |
1032 |
if(!((V242)<=(V243))){ |
if(!((V242)<=(V243))){ |
1033 |
goto T417;} |
goto T417;} |
1045 |
T419:; |
T419:; |
1046 |
if(((V236))!=Cnil){ |
if(((V236))!=Cnil){ |
1047 |
goto T421;} |
goto T421;} |
1048 |
{register int V246; |
{register long V246; |
1049 |
register int V247; |
register long V247; |
1050 |
V246= V242; |
V246= V242; |
1051 |
V247= 0; |
V247= 0; |
1052 |
T426:; |
T426:; |
1067 |
V246= (1)+(V246); |
V246= (1)+(V246); |
1068 |
goto T426;} |
goto T426;} |
1069 |
T421:; |
T421:; |
1070 |
{register int V250; |
{register long V250; |
1071 |
register int V251; |
register long V251; |
1072 |
V250= (-1)+(V243); |
V250= (-1)+(V243); |
1073 |
V251= 0; |
V251= 0; |
1074 |
T443:; |
T443:; |
1187 |
V284= symbol_function(VV[33]); |
V284= symbol_function(VV[33]); |
1188 |
}else{ |
}else{ |
1189 |
V284=(Vcs[8]);} |
V284=(Vcs[8]);} |
1190 |
{int V285; |
{long V285; |
1191 |
if(((V281))==Cnil){ |
if(((V281))==Cnil){ |
1192 |
goto T464;} |
goto T464;} |
1193 |
V285= (*(LnkLI34))((V281)); |
V285= (*(LnkLI34))((V281)); |
1195 |
T464:; |
T464:; |
1196 |
V285= 0; |
V285= 0; |
1197 |
T462:; |
T462:; |
1198 |
{int V286; |
{long V286; |
1199 |
V286= (*(LnkLI35))((V282),(V277)); |
V286= (*(LnkLI35))((V282),(V277)); |
1200 |
if(!((V285)<=(V286))){ |
if(!((V285)<=(V286))){ |
1201 |
goto T468;} |
goto T468;} |
1205 |
V288 = make_fixnum(V286); |
V288 = make_fixnum(V286); |
1206 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288))); |
1207 |
T467:; |
T467:; |
1208 |
{int V289; |
{long V289; |
1209 |
if(((V283))!=Cnil){ |
if(((V283))!=Cnil){ |
1210 |
goto T472;} |
goto T472;} |
1211 |
V289= 2147483647; |
V289= 2147483647; |
1221 |
T475:; |
T475:; |
1222 |
if(((V278))!=Cnil){ |
if(((V278))!=Cnil){ |
1223 |
goto T477;} |
goto T477;} |
1224 |
{register int V290; |
{register long V290; |
1225 |
register int V291; |
register long V291; |
1226 |
V290= V285; |
V290= V285; |
1227 |
V291= 0; |
V291= 0; |
1228 |
T482:; |
T482:; |
1245 |
V290= (1)+(V290); |
V290= (1)+(V290); |
1246 |
goto T482;} |
goto T482;} |
1247 |
T477:; |
T477:; |
1248 |
{register int V294; |
{register long V294; |
1249 |
register int V295; |
register long V295; |
1250 |
V294= (-1)+(V286); |
V294= (-1)+(V286); |
1251 |
V295= 0; |
V295= 0; |
1252 |
T501:; |
T501:; |
1373 |
V332= symbol_function(VV[33]); |
V332= symbol_function(VV[33]); |
1374 |
}else{ |
}else{ |
1375 |
V332=(Vcs[9]);} |
V332=(Vcs[9]);} |
1376 |
{int V333; |
{long V333; |
1377 |
V333= length((V325)); |
V333= length((V325)); |
1378 |
{int V334; |
{long V334; |
1379 |
if(((V329))==Cnil){ |
if(((V329))==Cnil){ |
1380 |
goto T525;} |
goto T525;} |
1381 |
V334= (*(LnkLI34))((V329)); |
V334= (*(LnkLI34))((V329)); |
1383 |
T525:; |
T525:; |
1384 |
V334= 0; |
V334= 0; |
1385 |
T523:; |
T523:; |
1386 |
{int V335; |
{long V335; |
1387 |
V335= (*(LnkLI35))((V330),(V325)); |
V335= (*(LnkLI35))((V330),(V325)); |
1388 |
if(!((V334)<=(V335))){ |
if(!((V334)<=(V335))){ |
1389 |
goto T529;} |
goto T529;} |
1393 |
V337 = make_fixnum(V335); |
V337 = make_fixnum(V335); |
1394 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337))); |
1395 |
T528:; |
T528:; |
1396 |
{int V338; |
{long V338; |
1397 |
if(((V331))!=Cnil){ |
if(((V331))!=Cnil){ |
1398 |
goto T533;} |
goto T533;} |
1399 |
V338= 2147483647; |
V338= 2147483647; |
1410 |
if(((V326))!=Cnil){ |
if(((V326))!=Cnil){ |
1411 |
goto T538;} |
goto T538;} |
1412 |
{register object V339; |
{register object V339; |
1413 |
register int V340; |
register long V340; |
1414 |
register int V341; |
register long V341; |
1415 |
V342= (*(LnkLI47))((V325)); |
V342= (*(LnkLI47))((V325)); |
1416 |
V343 = make_fixnum(V333); |
V343 = make_fixnum(V333); |
1417 |
V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343)); |
V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343)); |
1447 |
goto T544;} |
goto T544;} |
1448 |
T538:; |
T538:; |
1449 |
{register object V347; |
{register object V347; |
1450 |
register int V348; |
register long V348; |
1451 |
register int V349; |
register long V349; |
1452 |
V350= (*(LnkLI47))((V325)); |
V350= (*(LnkLI47))((V325)); |
1453 |
V351 = make_fixnum(V333); |
V351 = make_fixnum(V333); |
1454 |
V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351)); |
V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351)); |
1591 |
V393= symbol_function(VV[33]); |
V393= symbol_function(VV[33]); |
1592 |
}else{ |
}else{ |
1593 |
V393=(Vcs[9]);} |
V393=(Vcs[9]);} |
1594 |
{int V394; |
{long V394; |
1595 |
if(((V390))==Cnil){ |
if(((V390))==Cnil){ |
1596 |
goto T599;} |
goto T599;} |
1597 |
V394= (*(LnkLI34))((V390)); |
V394= (*(LnkLI34))((V390)); |
1599 |
T599:; |
T599:; |
1600 |
V394= 0; |
V394= 0; |
1601 |
T597:; |
T597:; |
1602 |
{int V395; |
{long V395; |
1603 |
V395= (*(LnkLI35))((V391),(V386)); |
V395= (*(LnkLI35))((V391),(V386)); |
1604 |
if(!((V394)<=(V395))){ |
if(!((V394)<=(V395))){ |
1605 |
goto T603;} |
goto T603;} |
1609 |
V397 = make_fixnum(V395); |
V397 = make_fixnum(V395); |
1610 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397))); |
1611 |
T602:; |
T602:; |
1612 |
{int V398; |
{long V398; |
1613 |
if(((V392))!=Cnil){ |
if(((V392))!=Cnil){ |
1614 |
goto T607;} |
goto T607;} |
1615 |
V398= 2147483647; |
V398= 2147483647; |
1625 |
T610:; |
T610:; |
1626 |
if(((V387))!=Cnil){ |
if(((V387))!=Cnil){ |
1627 |
goto T612;} |
goto T612;} |
1628 |
{register int V399; |
{register long V399; |
1629 |
register int V400; |
register long V400; |
1630 |
V399= V394; |
V399= V394; |
1631 |
V400= 0; |
V400= 0; |
1632 |
T617:; |
T617:; |
1650 |
V399= (1)+(V399); |
V399= (1)+(V399); |
1651 |
goto T617;} |
goto T617;} |
1652 |
T612:; |
T612:; |
1653 |
{register int V403; |
{register long V403; |
1654 |
register int V404; |
register long V404; |
1655 |
V403= (-1)+(V395); |
V403= (-1)+(V395); |
1656 |
V404= 0; |
V404= 0; |
1657 |
T637:; |
T637:; |
1779 |
V442= symbol_function(VV[33]); |
V442= symbol_function(VV[33]); |
1780 |
}else{ |
}else{ |
1781 |
V442=(Vcs[7]);} |
V442=(Vcs[7]);} |
1782 |
{int V443; |
{long V443; |
1783 |
if(((V440))==Cnil){ |
if(((V440))==Cnil){ |
1784 |
goto T661;} |
goto T661;} |
1785 |
V443= (*(LnkLI34))((V440)); |
V443= (*(LnkLI34))((V440)); |
1787 |
T661:; |
T661:; |
1788 |
V443= 0; |
V443= 0; |
1789 |
T659:; |
T659:; |
1790 |
{int V444; |
{long V444; |
1791 |
V444= (*(LnkLI35))((V441),(V436)); |
V444= (*(LnkLI35))((V441),(V436)); |
1792 |
if(!((V443)<=(V444))){ |
if(!((V443)<=(V444))){ |
1793 |
goto T665;} |
goto T665;} |
1805 |
T667:; |
T667:; |
1806 |
if(((V437))!=Cnil){ |
if(((V437))!=Cnil){ |
1807 |
goto T669;} |
goto T669;} |
1808 |
{register int V447; |
{register long V447; |
1809 |
V447= V443; |
V447= V443; |
1810 |
T673:; |
T673:; |
1811 |
if(!((V447)>=(V444))){ |
if(!((V447)>=(V444))){ |
1826 |
V447= (1)+(V447); |
V447= (1)+(V447); |
1827 |
goto T673;} |
goto T673;} |
1828 |
T669:; |
T669:; |
1829 |
{register int V451; |
{register long V451; |
1830 |
V451= (-1)+(V444); |
V451= (-1)+(V444); |
1831 |
T688:; |
T688:; |
1832 |
if(!((V451)<(V443))){ |
if(!((V451)<(V443))){ |
1943 |
V484= symbol_function(VV[33]); |
V484= symbol_function(VV[33]); |
1944 |
}else{ |
}else{ |
1945 |
V484=(Vcs[7]);} |
V484=(Vcs[7]);} |
1946 |
{int V485; |
{long V485; |
1947 |
if(((V482))==Cnil){ |
if(((V482))==Cnil){ |
1948 |
goto T708;} |
goto T708;} |
1949 |
V485= (*(LnkLI34))((V482)); |
V485= (*(LnkLI34))((V482)); |
1951 |
T708:; |
T708:; |
1952 |
V485= 0; |
V485= 0; |
1953 |
T706:; |
T706:; |
1954 |
{int V486; |
{long V486; |
1955 |
V486= (*(LnkLI35))((V483),(V478)); |
V486= (*(LnkLI35))((V483),(V478)); |
1956 |
if(!((V485)<=(V486))){ |
if(!((V485)<=(V486))){ |
1957 |
goto T712;} |
goto T712;} |
1969 |
T714:; |
T714:; |
1970 |
if(((V479))!=Cnil){ |
if(((V479))!=Cnil){ |
1971 |
goto T716;} |
goto T716;} |
1972 |
{register int V489; |
{register long V489; |
1973 |
V489= V485; |
V489= V485; |
1974 |
T720:; |
T720:; |
1975 |
if(!((V489)>=(V486))){ |
if(!((V489)>=(V486))){ |
1990 |
V489= (1)+(V489); |
V489= (1)+(V489); |
1991 |
goto T720;} |
goto T720;} |
1992 |
T716:; |
T716:; |
1993 |
{register int V493; |
{register long V493; |
1994 |
V493= (-1)+(V486); |
V493= (-1)+(V486); |
1995 |
T735:; |
T735:; |
1996 |
if(!((V493)<(V485))){ |
if(!((V493)<(V485))){ |
2190 |
V537= symbol_function(VV[33]); |
V537= symbol_function(VV[33]); |
2191 |
}else{ |
}else{ |
2192 |
V537=(Vcs[6]);} |
V537=(Vcs[6]);} |
2193 |
{int V538; |
{long V538; |
2194 |
V538= length((V531)); |
V538= length((V531)); |
2195 |
if((V533)==Cnil){ |
if((V533)==Cnil){ |
2196 |
goto T791;} |
goto T791;} |
2242 |
T810:; |
T810:; |
2243 |
goto T805;} |
goto T805;} |
2244 |
T792:; |
T792:; |
2245 |
{register int V542; |
{register long V542; |
2246 |
if(((V535))==Cnil){ |
if(((V535))==Cnil){ |
2247 |
goto T828;} |
goto T828;} |
2248 |
V542= (*(LnkLI34))((V535)); |
V542= (*(LnkLI34))((V535)); |
2250 |
T828:; |
T828:; |
2251 |
V542= 0; |
V542= 0; |
2252 |
T826:; |
T826:; |
2253 |
{register int V543; |
{register long V543; |
2254 |
V543= (*(LnkLI35))((V536),(V531)); |
V543= (*(LnkLI35))((V536),(V531)); |
2255 |
if(!((V542)<=(V543))){ |
if(!((V542)<=(V543))){ |
2256 |
goto T832;} |
goto T832;} |
2262 |
T831:; |
T831:; |
2263 |
if(((V532))!=Cnil){ |
if(((V532))!=Cnil){ |
2264 |
goto T835;} |
goto T835;} |
2265 |
{int V546; |
{long V546; |
2266 |
int V547; |
long V547; |
2267 |
V546= 0; |
V546= 0; |
2268 |
V547= V542; |
V547= V542; |
2269 |
T840:; |
T840:; |
2270 |
if(!((V547)>=(V543))){ |
if(!((V547)>=(V543))){ |
2271 |
goto T841;} |
goto T841;} |
2272 |
{object V548; |
{object V548; |
2273 |
register int V549; |
register long V549; |
2274 |
int V550; |
long V550; |
2275 |
V551= (*(LnkLI47))((V531)); |
V551= (*(LnkLI47))((V531)); |
2276 |
V552 = make_fixnum((V538)-(V546)); |
V552 = make_fixnum((V538)-(V546)); |
2277 |
V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552)); |
V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552)); |
2328 |
V547= (1)+(V547); |
V547= (1)+(V547); |
2329 |
goto T840;} |
goto T840;} |
2330 |
T835:; |
T835:; |
2331 |
{int V562; |
{long V562; |
2332 |
int V563; |
long V563; |
2333 |
V562= 0; |
V562= 0; |
2334 |
V563= (-1)+(V543); |
V563= (-1)+(V543); |
2335 |
T882:; |
T882:; |
2336 |
if(!((V563)<(V542))){ |
if(!((V563)<(V542))){ |
2337 |
goto T883;} |
goto T883;} |
2338 |
{object V564; |
{object V564; |
2339 |
register int V565; |
register long V565; |
2340 |
int V566; |
long V566; |
2341 |
V567= (*(LnkLI47))((V531)); |
V567= (*(LnkLI47))((V531)); |
2342 |
V568 = make_fixnum((V538)-(V562)); |
V568 = make_fixnum((V538)-(V562)); |
2343 |
V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568)); |
V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568)); |
2436 |
goto T922;} |
goto T922;} |
2437 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
2438 |
T922:; |
T922:; |
2439 |
{register int V590; |
{register long V590; |
2440 |
if(((V586))==Cnil){ |
if(((V586))==Cnil){ |
2441 |
goto T925;} |
goto T925;} |
2442 |
V590= (*(LnkLI34))((V586)); |
V590= (*(LnkLI34))((V586)); |
2444 |
T925:; |
T925:; |
2445 |
V590= 0; |
V590= 0; |
2446 |
T923:; |
T923:; |
2447 |
{register int V591; |
{register long V591; |
2448 |
V591= (*(LnkLI35))((V588),(V580)); |
V591= (*(LnkLI35))((V588),(V580)); |
2449 |
if(!((V590)<=(V591))){ |
if(!((V590)<=(V591))){ |
2450 |
goto T929;} |
goto T929;} |
2454 |
V593 = make_fixnum(V591); |
V593 = make_fixnum(V591); |
2455 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593))); |
2456 |
T928:; |
T928:; |
2457 |
{register int V594; |
{register long V594; |
2458 |
if(((V587))==Cnil){ |
if(((V587))==Cnil){ |
2459 |
goto T933;} |
goto T933;} |
2460 |
V594= (*(LnkLI34))((V587)); |
V594= (*(LnkLI34))((V587)); |
2462 |
T933:; |
T933:; |
2463 |
V594= 0; |
V594= 0; |
2464 |
T931:; |
T931:; |
2465 |
{register int V595; |
{register long V595; |
2466 |
V595= (*(LnkLI35))((V589),(V581)); |
V595= (*(LnkLI35))((V589),(V581)); |
2467 |
if(!((V594)<=(V595))){ |
if(!((V594)<=(V595))){ |
2468 |
goto T937;} |
goto T937;} |
2474 |
T936:; |
T936:; |
2475 |
if(((V582))!=Cnil){ |
if(((V582))!=Cnil){ |
2476 |
goto T940;} |
goto T940;} |
2477 |
{register int V598; |
{register long V598; |
2478 |
register int V599; |
register long V599; |
2479 |
V598= V590; |
V598= V590; |
2480 |
V599= V594; |
V599= V594; |
2481 |
T945:; |
T945:; |
2513 |
V599= (1)+(V599); |
V599= (1)+(V599); |
2514 |
goto T945;} |
goto T945;} |
2515 |
T940:; |
T940:; |
2516 |
{register int V605; |
{register long V605; |
2517 |
register int V606; |
register long V606; |
2518 |
V605= (-1)+(V591); |
V605= (-1)+(V591); |
2519 |
V606= (-1)+(V595); |
V606= (-1)+(V595); |
2520 |
T971:; |
T971:; |
2594 |
goto T995;} |
goto T995;} |
2595 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
2596 |
T995:; |
T995:; |
2597 |
{int V624; |
{long V624; |
2598 |
if(((V620))==Cnil){ |
if(((V620))==Cnil){ |
2599 |
goto T998;} |
goto T998;} |
2600 |
V624= (*(LnkLI34))((V620)); |
V624= (*(LnkLI34))((V620)); |
2602 |
T998:; |
T998:; |
2603 |
V624= 0; |
V624= 0; |
2604 |
T996:; |
T996:; |
2605 |
{int V625; |
{long V625; |
2606 |
V625= (*(LnkLI35))((V622),(V614)); |
V625= (*(LnkLI35))((V622),(V614)); |
2607 |
if(!((V624)<=(V625))){ |
if(!((V624)<=(V625))){ |
2608 |
goto T1002;} |
goto T1002;} |
2612 |
V627 = make_fixnum(V625); |
V627 = make_fixnum(V625); |
2613 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627))); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627))); |
2614 |
T1001:; |
T1001:; |
2615 |
{register int V628; |
{register long V628; |
2616 |
if(((V621))==Cnil){ |
if(((V621))==Cnil){ |
2617 |
goto T1006;} |
goto T1006;} |
2618 |
V628= (*(LnkLI34))((V621)); |
V628= (*(LnkLI34))((V621)); |
2620 |
T1006:; |
T1006:; |
2621 |
V628= 0; |
V628= 0; |
2622 |
T1004:; |
T1004:; |
2623 |
{int V629; |
{long V629; |
2624 |
V629= (*(LnkLI35))((V623),(V615)); |
V629= (*(LnkLI35))((V623),(V615)); |
2625 |
if(!((V628)<=(V629))){ |
if(!((V628)<=(V629))){ |
2626 |
goto T1010;} |
goto T1010;} |
2633 |
if(((V616))!=Cnil){ |
if(((V616))!=Cnil){ |
2634 |
goto T1013;} |
goto T1013;} |
2635 |
T1016:; |
T1016:; |
2636 |
{register int V632; |
{register long V632; |
2637 |
register int V633; |
register long V633; |
2638 |
V632= V624; |
V632= V624; |
2639 |
V633= V628; |
V633= V628; |
2640 |
T1022:; |
T1022:; |
2670 |
goto T1016; |
goto T1016; |
2671 |
T1013:; |
T1013:; |
2672 |
T1044:; |
T1044:; |
2673 |
{register int V638; |
{register long V638; |
2674 |
register int V639; |
register long V639; |
2675 |
V638= (-1)+(V625); |
V638= (-1)+(V625); |
2676 |
V639= (-1)+(V629); |
V639= (-1)+(V629); |
2677 |
T1050:; |
T1050:; |
2759 |
|
|
2760 |
static object LI42(V653,V654,V655,V656,V657) |
static object LI42(V653,V654,V655,V656,V657) |
2761 |
|
|
2762 |
register object V653;int V654;int V655;register object V656;register object V657; |
register object V653;long V654;long V655;register object V656;register object V657; |
2763 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2764 |
TTL:; |
TTL:; |
2765 |
if(!((V655)<=((1)+(V654)))){ |
if(!((V655)<=((1)+(V654)))){ |
2767 |
{object V658 = (V653); |
{object V658 = (V653); |
2768 |
VMR41(V658)} |
VMR41(V658)} |
2769 |
T1080:; |
T1080:; |
2770 |
{register int V659; |
{register long V659; |
2771 |
register int V660; |
register long V660; |
2772 |
object V661; |
object V661; |
2773 |
register object V662; |
register object V662; |
2774 |
V659= V654; |
V659= V654; |
2913 |
V679= symbol_function(VV[33]); |
V679= symbol_function(VV[33]); |
2914 |
}else{ |
}else{ |
2915 |
V679=(Vcs[4]);} |
V679=(Vcs[4]);} |
2916 |
{int V680; |
{long V680; |
2917 |
int V681; |
long V681; |
2918 |
V680= length((V676)); |
V680= length((V676)); |
2919 |
V681= length((V677)); |
V681= length((V677)); |
2920 |
{register object V682; |
{register object V682; |
2921 |
register int V683; |
register long V683; |
2922 |
register int V684; |
register long V684; |
2923 |
register int V685; |
register long V685; |
2924 |
V686 = make_fixnum((V680)+(V681)); |
V686 = make_fixnum((V680)+(V681)); |
2925 |
V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686)); |
V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686)); |
2926 |
V683= 0; |
V683= 0; |
3171 |
V718=(base[0]); |
V718=(base[0]); |
3172 |
vs_top=sup; |
vs_top=sup; |
3173 |
TTL:; |
TTL:; |
3174 |
{int V719; |
{long V719; |
3175 |
register object V720; |
register object V720; |
3176 |
register object V721; |
register object V721; |
3177 |
object V722; |
object V722; |
3227 |
return; |
return; |
3228 |
T1253:; |
T1253:; |
3229 |
V719= (V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); |
V719= (V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); |
3230 |
{int V726; |
{long V726; |
3231 |
register object V727; |
register object V727; |
3232 |
V726= 1; |
V726= 1; |
3233 |
V727= (V718); |
V727= (V718); |
3349 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[42],&LnkLI42,ap);} /* DELETE */ |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[42],&LnkLI42,ap);} /* DELETE */ |
3350 |
static object LnkTLI41(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[41],&LnkLI41,4,ap);} /* CALL-TEST */ |
static object LnkTLI41(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[41],&LnkLI41,4,ap);} /* CALL-TEST */ |
3351 |
static object LnkTLI40(){return call_proc0(VV[40],&LnkLI40);} /* TEST-ERROR */ |
static object LnkTLI40(){return call_proc0(VV[40],&LnkLI40);} /* TEST-ERROR */ |
3352 |
static int LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[35],&LnkLI35,258,ap);} /* THE-END */ |
static long LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[35],&LnkLI35,258,ap);} /* THE-END */ |
3353 |
static int LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[34],&LnkLI34,257,ap);} /* THE-START */ |
static long LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[34],&LnkLI34,257,ap);} /* THE-START */ |
3354 |
static object LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* BAD-SEQ-LIMIT */ |
static object LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* BAD-SEQ-LIMIT */ |
3355 |
|
|
3356 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |