183 |
} |
} |
184 |
/* local entry for function THE-END */ |
/* local entry for function THE-END */ |
185 |
|
|
186 |
static long LI6(V34,V35) |
static object LI6(V34,V35) |
187 |
|
|
188 |
register object V34;object V35; |
register object V34;object V35; |
189 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
191 |
TTL:; |
TTL:; |
192 |
if(!(type_of((V34))==t_fixnum)){ |
if(!(type_of((V34))==t_fixnum)){ |
193 |
goto T48;} |
goto T48;} |
194 |
if(!((fix((V34)))<=(length((V35))))){ |
if(!((fix((V34)))<=((long)length((V35))))){ |
195 |
goto T51;} |
goto T51;} |
196 |
goto T50; |
goto T50; |
197 |
goto T51; |
goto T51; |
200 |
goto T50; |
goto T50; |
201 |
T50:; |
T50:; |
202 |
{long V36 = fix((V34)); |
{long V36 = fix((V34)); |
203 |
VMR6(V36)} |
VMR6((object)V36)} |
204 |
goto T48; |
goto T48; |
205 |
T48:; |
T48:; |
206 |
if(((V34))!=Cnil){ |
if(((V34))!=Cnil){ |
207 |
goto T54;} |
goto T54;} |
208 |
{long V37 = length((V35)); |
{long V37 = (long)length((V35)); |
209 |
VMR6(V37)} |
VMR6((object)V37)} |
210 |
goto T54; |
goto T54; |
211 |
T54:; |
T54:; |
212 |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
213 |
VMR6(V38)} |
VMR6((object)V38)} |
214 |
} |
} |
215 |
/* local entry for function THE-START */ |
/* local entry for function THE-START */ |
216 |
|
|
217 |
static long LI7(V40) |
static object LI7(V40) |
218 |
|
|
219 |
register object V40; |
register object V40; |
220 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
231 |
goto T59; |
goto T59; |
232 |
T59:; |
T59:; |
233 |
{long V41 = fix((V40)); |
{long V41 = fix((V40)); |
234 |
VMR7(V41)} |
VMR7((object)V41)} |
235 |
goto T57; |
goto T57; |
236 |
T57:; |
T57:; |
237 |
if(((V40))!=Cnil){ |
if(((V40))!=Cnil){ |
238 |
goto T63;} |
goto T63;} |
239 |
{long V42 = 0; |
{long V42 = 0; |
240 |
VMR7(V42)} |
VMR7((object)V42)} |
241 |
goto T63; |
goto T63; |
242 |
T63:; |
T63:; |
243 |
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
244 |
VMR7(V43)} |
VMR7((object)V43)} |
245 |
} |
} |
246 |
/* function definition for REDUCE */ |
/* function definition for REDUCE */ |
247 |
|
|
274 |
{register long V52; |
{register long V52; |
275 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
276 |
goto T68;} |
goto T68;} |
277 |
V52= (*(LnkLI34))((V47)); |
V52= (long)(*(LnkLI34))((V47)); |
278 |
goto T66; |
goto T66; |
279 |
goto T68; |
goto T68; |
280 |
T68:; |
T68:; |
282 |
goto T66; |
goto T66; |
283 |
T66:; |
T66:; |
284 |
{register long V53; |
{register long V53; |
285 |
V53= (*(LnkLI35))((V48),(V45)); |
V53= (long)(*(LnkLI35))((V48),(V45)); |
286 |
if(!((V52)<=(V53))){ |
if(!((V52)<=(V53))){ |
287 |
goto T72;} |
goto T72;} |
288 |
goto T71; |
goto T71; |
306 |
T80:; |
T80:; |
307 |
V56= elt((V45),V52); |
V56= elt((V45),V52); |
308 |
V49= ( |
V49= ( |
309 |
(type_of((V51)) == t_sfun ?(*(object (*)())(((V51))->sfn.sfn_self)): |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
310 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
311 |
V52= (1)+(V52); |
V52= (long)(1)+(V52); |
312 |
goto T77; |
goto T77; |
313 |
T77:; |
T77:; |
314 |
{register object V57; |
{register object V57; |
324 |
T88:; |
T88:; |
325 |
{object V59; |
{object V59; |
326 |
V59= elt((V45),V52); |
V59= elt((V45),V52); |
327 |
V52= (1)+(V52); |
V52= (long)(1)+(V52); |
328 |
base[12]= (V59);} |
base[12]= (V59);} |
329 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
330 |
super_funcall_no_event((V51)); |
super_funcall_no_event((V51)); |
331 |
vs_top=sup; |
vs_top=sup; |
332 |
V58= vs_base[0]; |
V58= vs_base[0]; |
333 |
V57= ( |
V57= ( |
334 |
(type_of((V44)) == t_sfun ?(*(object (*)())(((V44))->sfn.sfn_self)): |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
335 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); |
(fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); |
336 |
goto T87;} |
goto T87;} |
337 |
goto T75; |
goto T75; |
345 |
return; |
return; |
346 |
goto T103; |
goto T103; |
347 |
T103:; |
T103:; |
348 |
V53= (V53)+(-1); |
V53= (long)(V53)+(-1); |
349 |
V60= elt((V45),V53); |
V60= elt((V45),V53); |
350 |
V49= ( |
V49= ( |
351 |
(type_of((V51)) == t_sfun ?(*(object (*)())(((V51))->sfn.sfn_self)): |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
352 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); |
353 |
goto T100; |
goto T100; |
354 |
T100:; |
T100:; |
363 |
return; |
return; |
364 |
goto T111; |
goto T111; |
365 |
T111:; |
T111:; |
366 |
V53= (-1)+(V53); |
V53= (long)(-1)+(V53); |
367 |
base[12]= elt((V45),V53); |
base[12]= elt((V45),V53); |
368 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
369 |
super_funcall_no_event((V51)); |
super_funcall_no_event((V51)); |
370 |
vs_top=sup; |
vs_top=sup; |
371 |
V62= vs_base[0]; |
V62= vs_base[0]; |
372 |
V61= ( |
V61= ( |
373 |
(type_of((V44)) == t_sfun ?(*(object (*)())(((V44))->sfn.sfn_self)): |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
374 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); |
(fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); |
375 |
goto T110;}}} |
goto T110;}}} |
376 |
} |
} |
400 |
{long V69; |
{long V69; |
401 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
402 |
goto T124;} |
goto T124;} |
403 |
V69= (*(LnkLI34))((V67)); |
V69= (long)(*(LnkLI34))((V67)); |
404 |
goto T122; |
goto T122; |
405 |
goto T124; |
goto T124; |
406 |
T124:; |
T124:; |
408 |
goto T122; |
goto T122; |
409 |
T122:; |
T122:; |
410 |
{register long V70; |
{register long V70; |
411 |
V70= (*(LnkLI35))((V68),(V65)); |
V70= (long)(*(LnkLI35))((V68),(V65)); |
412 |
if(!((V69)<=(V70))){ |
if(!((V69)<=(V70))){ |
413 |
goto T128;} |
goto T128;} |
414 |
goto T127; |
goto T127; |
430 |
goto T133; |
goto T133; |
431 |
T133:; |
T133:; |
432 |
(void)(elt_set((V65),V73,(V66))); |
(void)(elt_set((V65),V73,(V66))); |
433 |
V73= (1)+(V73); |
V73= (long)(1)+(V73); |
434 |
goto T132;}}} |
goto T132;}}} |
435 |
va_end(ap); |
va_end(ap); |
436 |
return Cnil;} |
return Cnil;} |
464 |
{long V83; |
{long V83; |
465 |
if(((V79))==Cnil){ |
if(((V79))==Cnil){ |
466 |
goto T143;} |
goto T143;} |
467 |
V83= (*(LnkLI34))((V79)); |
V83= (long)(*(LnkLI34))((V79)); |
468 |
goto T141; |
goto T141; |
469 |
goto T143; |
goto T143; |
470 |
T143:; |
T143:; |
472 |
goto T141; |
goto T141; |
473 |
T141:; |
T141:; |
474 |
{long V84; |
{long V84; |
475 |
V84= (*(LnkLI35))((V80),(V77)); |
V84= (long)(*(LnkLI35))((V80),(V77)); |
476 |
if(!((V83)<=(V84))){ |
if(!((V83)<=(V84))){ |
477 |
goto T147;} |
goto T147;} |
478 |
goto T146; |
goto T146; |
486 |
{long V87; |
{long V87; |
487 |
if(((V81))==Cnil){ |
if(((V81))==Cnil){ |
488 |
goto T151;} |
goto T151;} |
489 |
V87= (*(LnkLI34))((V81)); |
V87= (long)(*(LnkLI34))((V81)); |
490 |
goto T149; |
goto T149; |
491 |
goto T151; |
goto T151; |
492 |
T151:; |
T151:; |
494 |
goto T149; |
goto T149; |
495 |
T149:; |
T149:; |
496 |
{long V88; |
{long V88; |
497 |
V88= (*(LnkLI35))((V82),(V78)); |
V88= (long)(*(LnkLI35))((V82),(V78)); |
498 |
if(!((V87)<=(V88))){ |
if(!((V87)<=(V88))){ |
499 |
goto T155;} |
goto T155;} |
500 |
goto T154; |
goto T154; |
514 |
register long V93; |
register long V93; |
515 |
register long V94; |
register long V94; |
516 |
V91= 0; |
V91= 0; |
517 |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
518 |
goto T165;} |
goto T165;} |
519 |
V92= (V84)-(V83); |
V92= (long)(V84)-(V83); |
520 |
goto T163; |
goto T163; |
521 |
goto T165; |
goto T165; |
522 |
T165:; |
T165:; |
523 |
V92= (V88)-(V87); |
V92= (long)(V88)-(V87); |
524 |
goto T163; |
goto T163; |
525 |
T163:; |
T163:; |
526 |
V93= (V83)+((-1)+(V92)); |
V93= (long)(V83)+((long)(-1)+(V92)); |
527 |
V94= (V87)+((-1)+(V92)); |
V94= (long)(V87)+((long)(-1)+(V92)); |
528 |
goto T170; |
goto T170; |
529 |
T170:; |
T170:; |
530 |
if(!((V91)>=(V92))){ |
if(!((V91)>=(V92))){ |
535 |
T171:; |
T171:; |
536 |
V96= elt((V78),V94); |
V96= elt((V78),V94); |
537 |
(void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); |
(void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); |
538 |
V91= (1)+(V91); |
V91= (long)(1)+(V91); |
539 |
V93= (-1)+(V93); |
V93= (long)(-1)+(V93); |
540 |
V94= (-1)+(V94); |
V94= (long)(-1)+(V94); |
541 |
goto T170;} |
goto T170;} |
542 |
goto T158; |
goto T158; |
543 |
T158:; |
T158:; |
546 |
register long V99; |
register long V99; |
547 |
register long V100; |
register long V100; |
548 |
V97= 0; |
V97= 0; |
549 |
if(!(((V84)-(V83))<((V88)-(V87)))){ |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
550 |
goto T186;} |
goto T186;} |
551 |
V98= (V84)-(V83); |
V98= (long)(V84)-(V83); |
552 |
goto T184; |
goto T184; |
553 |
goto T186; |
goto T186; |
554 |
T186:; |
T186:; |
555 |
V98= (V88)-(V87); |
V98= (long)(V88)-(V87); |
556 |
goto T184; |
goto T184; |
557 |
T184:; |
T184:; |
558 |
V99= V83; |
V99= V83; |
567 |
T192:; |
T192:; |
568 |
V102= elt((V78),V100); |
V102= elt((V78),V100); |
569 |
(void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); |
(void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); |
570 |
V97= (1)+(V97); |
V97= (long)(1)+(V97); |
571 |
V99= (1)+(V99); |
V99= (long)(1)+(V99); |
572 |
V100= (1)+(V100); |
V100= (long)(1)+(V100); |
573 |
goto T191;}}}}} |
goto T191;}}}}} |
574 |
va_end(ap); |
va_end(ap); |
575 |
return Cnil;} |
return Cnil;} |
612 |
{long V114; |
{long V114; |
613 |
if(((V110))==Cnil){ |
if(((V110))==Cnil){ |
614 |
goto T205;} |
goto T205;} |
615 |
V114= (*(LnkLI34))((V110)); |
V114= (long)(*(LnkLI34))((V110)); |
616 |
goto T203; |
goto T203; |
617 |
goto T205; |
goto T205; |
618 |
T205:; |
T205:; |
620 |
goto T203; |
goto T203; |
621 |
T203:; |
T203:; |
622 |
{long V115; |
{long V115; |
623 |
V115= (*(LnkLI35))((V111),(V106)); |
V115= (long)(*(LnkLI35))((V111),(V106)); |
624 |
if(!((V114)<=(V115))){ |
if(!((V114)<=(V115))){ |
625 |
goto T209;} |
goto T209;} |
626 |
goto T208; |
goto T208; |
669 |
{register object V122; |
{register object V122; |
670 |
V122= car((V119)); |
V122= car((V119)); |
671 |
V119= cdr((V119));} |
V119= cdr((V119));} |
672 |
V121= (1)+(V121); |
V121= (long)(1)+(V121); |
673 |
goto T226;} |
goto T226;} |
674 |
goto T223; |
goto T223; |
675 |
T223:; |
T223:; |
703 |
V126= vs_base[0]; |
V126= vs_base[0]; |
704 |
if(((*(LnkLI41))((V108),(V109),(V105),V126))==Cnil){ |
if(((*(LnkLI41))((V108),(V109),(V105),V126))==Cnil){ |
705 |
goto T256;} |
goto T256;} |
706 |
V124= (1)+(V124); |
V124= (long)(1)+(V124); |
707 |
{register object V127; |
{register object V127; |
708 |
V127= car((V119)); |
V127= car((V119)); |
709 |
V119= cdr((V119)); |
V119= cdr((V119)); |
716 |
V119= cdr((V119));} |
V119= cdr((V119));} |
717 |
goto T254; |
goto T254; |
718 |
T254:; |
T254:; |
719 |
V123= (1)+(V123); |
V123= (long)(1)+(V123); |
720 |
goto T243;}} |
goto T243;}} |
721 |
goto T221; |
goto T221; |
722 |
T221:; |
T221:; |
846 |
}else{ |
}else{ |
847 |
V169=(Vcs[8]);} |
V169=(Vcs[8]);} |
848 |
{long V170; |
{long V170; |
849 |
V170= length((V162)); |
V170= (long)length((V162)); |
850 |
{register long V171; |
{register long V171; |
851 |
if(((V166))==Cnil){ |
if(((V166))==Cnil){ |
852 |
goto T281;} |
goto T281;} |
853 |
V171= (*(LnkLI34))((V166)); |
V171= (long)(*(LnkLI34))((V166)); |
854 |
goto T279; |
goto T279; |
855 |
goto T281; |
goto T281; |
856 |
T281:; |
T281:; |
858 |
goto T279; |
goto T279; |
859 |
T279:; |
T279:; |
860 |
{register long V172; |
{register long V172; |
861 |
V172= (*(LnkLI35))((V167),(V162)); |
V172= (long)(*(LnkLI35))((V167),(V162)); |
862 |
if(!((V171)<=(V172))){ |
if(!((V171)<=(V172))){ |
863 |
goto T285;} |
goto T285;} |
864 |
goto T284; |
goto T284; |
906 |
{object V179; |
{object V179; |
907 |
V179= car((V177)); |
V179= car((V177)); |
908 |
V177= cdr((V177));} |
V177= cdr((V177));} |
909 |
V178= (1)+(V178); |
V178= (long)(1)+(V178); |
910 |
goto T304;} |
goto T304;} |
911 |
goto T301; |
goto T301; |
912 |
T301:; |
T301:; |
935 |
V183= vs_base[0]; |
V183= vs_base[0]; |
936 |
if(((*(LnkLI41))((V164),(V165),(V161),V183))==Cnil){ |
if(((*(LnkLI41))((V164),(V165),(V161),V183))==Cnil){ |
937 |
goto T330;} |
goto T330;} |
938 |
V181= (1)+(V181); |
V181= (long)(1)+(V181); |
939 |
if(type_of((V177))!=t_cons)FEwrong_type_argument(Scons,(V177)); |
if(type_of((V177))!=t_cons)FEwrong_type_argument(Scons,(V177)); |
940 |
((V177))->c.c_cdr = cddr((V177)); |
((V177))->c.c_cdr = cddr((V177)); |
941 |
goto T328; |
goto T328; |
944 |
V177= cdr((V177)); |
V177= cdr((V177)); |
945 |
goto T328; |
goto T328; |
946 |
T328:; |
T328:; |
947 |
V180= (1)+(V180); |
V180= (long)(1)+(V180); |
948 |
goto T319;}} |
goto T319;}} |
949 |
goto T297; |
goto T297; |
950 |
T297:; |
T297:; |
963 |
long V190; |
long V190; |
964 |
long V191; |
long V191; |
965 |
V192= (*(LnkLI47))((V162)); |
V192= (*(LnkLI47))((V162)); |
966 |
V193 = make_fixnum((V170)-(V175)); |
V193 = make_fixnum((long)(V170)-(V175)); |
967 |
V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193)); |
V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193)); |
968 |
V189= 0; |
V189= 0; |
969 |
V190= 0; |
V190= 0; |
989 |
V195= vs_base[0]; |
V195= vs_base[0]; |
990 |
if(((*(LnkLI41))((V164),(V165),(V161),V195))==Cnil){ |
if(((*(LnkLI41))((V164),(V165),(V161),V195))==Cnil){ |
991 |
goto T357;} |
goto T357;} |
992 |
V191= (1)+(V191); |
V191= (long)(1)+(V191); |
993 |
goto T355; |
goto T355; |
994 |
goto T357; |
goto T357; |
995 |
T357:; |
T357:; |
996 |
V196= elt((V162),V189); |
V196= elt((V162),V189); |
997 |
(void)(elt_set((V188),V190,/* INLINE-ARGS */V196)); |
(void)(elt_set((V188),V190,/* INLINE-ARGS */V196)); |
998 |
V190= (1)+(V190); |
V190= (long)(1)+(V190); |
999 |
goto T355; |
goto T355; |
1000 |
T355:; |
T355:; |
1001 |
V189= (1)+(V189); |
V189= (long)(1)+(V189); |
1002 |
goto T350;}} |
goto T350;}} |
1003 |
goto T294; |
goto T294; |
1004 |
T294:; |
T294:; |
1017 |
long V203; |
long V203; |
1018 |
long V204; |
long V204; |
1019 |
V205= (*(LnkLI47))((V162)); |
V205= (*(LnkLI47))((V162)); |
1020 |
V206 = make_fixnum((V170)-(V175)); |
V206 = make_fixnum((long)(V170)-(V175)); |
1021 |
V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206)); |
V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206)); |
1022 |
V202= (-1)+(V170); |
V202= (long)(-1)+(V170); |
1023 |
V203= ((-1)+(V172))-(V197); |
V203= (long)((long)(-1)+(V172))-(V197); |
1024 |
V204= 0; |
V204= 0; |
1025 |
goto T383; |
goto T383; |
1026 |
T383:; |
T383:; |
1043 |
V208= vs_base[0]; |
V208= vs_base[0]; |
1044 |
if(((*(LnkLI41))((V164),(V165),(V161),V208))==Cnil){ |
if(((*(LnkLI41))((V164),(V165),(V161),V208))==Cnil){ |
1045 |
goto T390;} |
goto T390;} |
1046 |
V204= (1)+(V204); |
V204= (long)(1)+(V204); |
1047 |
goto T388; |
goto T388; |
1048 |
goto T390; |
goto T390; |
1049 |
T390:; |
T390:; |
1050 |
V209= elt((V162),V202); |
V209= elt((V162),V202); |
1051 |
(void)(elt_set((V201),V203,/* INLINE-ARGS */V209)); |
(void)(elt_set((V201),V203,/* INLINE-ARGS */V209)); |
1052 |
V203= (-1)+(V203); |
V203= (long)(-1)+(V203); |
1053 |
goto T388; |
goto T388; |
1054 |
T388:; |
T388:; |
1055 |
V202= (-1)+(V202); |
V202= (long)(-1)+(V202); |
1056 |
goto T383;}}}}}} |
goto T383;}}}}}} |
1057 |
va_end(ap); |
va_end(ap); |
1058 |
base[0]=base[0]; |
base[0]=base[0]; |
1168 |
{long V242; |
{long V242; |
1169 |
if(((V239))==Cnil){ |
if(((V239))==Cnil){ |
1170 |
goto T413;} |
goto T413;} |
1171 |
V242= (*(LnkLI34))((V239)); |
V242= (long)(*(LnkLI34))((V239)); |
1172 |
goto T411; |
goto T411; |
1173 |
goto T413; |
goto T413; |
1174 |
T413:; |
T413:; |
1176 |
goto T411; |
goto T411; |
1177 |
T411:; |
T411:; |
1178 |
{long V243; |
{long V243; |
1179 |
V243= (*(LnkLI35))((V240),(V235)); |
V243= (long)(*(LnkLI35))((V240),(V235)); |
1180 |
if(!((V242)<=(V243))){ |
if(!((V242)<=(V243))){ |
1181 |
goto T417;} |
goto T417;} |
1182 |
goto T416; |
goto T416; |
1215 |
V249= vs_base[0]; |
V249= vs_base[0]; |
1216 |
if(((*(LnkLI41))((V237),(V238),(V234),V249))==Cnil){ |
if(((*(LnkLI41))((V237),(V238),(V234),V249))==Cnil){ |
1217 |
goto T431;} |
goto T431;} |
1218 |
V247= (1)+(V247); |
V247= (long)(1)+(V247); |
1219 |
goto T431; |
goto T431; |
1220 |
T431:; |
T431:; |
1221 |
V246= (1)+(V246); |
V246= (long)(1)+(V246); |
1222 |
goto T426;} |
goto T426;} |
1223 |
goto T421; |
goto T421; |
1224 |
T421:; |
T421:; |
1225 |
{register long V250; |
{register long V250; |
1226 |
register long V251; |
register long V251; |
1227 |
V250= (-1)+(V243); |
V250= (long)(-1)+(V243); |
1228 |
V251= 0; |
V251= 0; |
1229 |
goto T443; |
goto T443; |
1230 |
T443:; |
T443:; |
1241 |
V253= vs_base[0]; |
V253= vs_base[0]; |
1242 |
if(((*(LnkLI41))((V237),(V238),(V234),V253))==Cnil){ |
if(((*(LnkLI41))((V237),(V238),(V234),V253))==Cnil){ |
1243 |
goto T448;} |
goto T448;} |
1244 |
V251= (1)+(V251); |
V251= (long)(1)+(V251); |
1245 |
goto T448; |
goto T448; |
1246 |
T448:; |
T448:; |
1247 |
V250= (-1)+(V250); |
V250= (long)(-1)+(V250); |
1248 |
goto T443;}}} |
goto T443;}}} |
1249 |
va_end(ap); |
va_end(ap); |
1250 |
base[0]=base[0]; |
base[0]=base[0]; |
1358 |
{long V285; |
{long V285; |
1359 |
if(((V281))==Cnil){ |
if(((V281))==Cnil){ |
1360 |
goto T464;} |
goto T464;} |
1361 |
V285= (*(LnkLI34))((V281)); |
V285= (long)(*(LnkLI34))((V281)); |
1362 |
goto T462; |
goto T462; |
1363 |
goto T464; |
goto T464; |
1364 |
T464:; |
T464:; |
1366 |
goto T462; |
goto T462; |
1367 |
T462:; |
T462:; |
1368 |
{long V286; |
{long V286; |
1369 |
V286= (*(LnkLI35))((V282),(V277)); |
V286= (long)(*(LnkLI35))((V282),(V277)); |
1370 |
if(!((V285)<=(V286))){ |
if(!((V285)<=(V286))){ |
1371 |
goto T468;} |
goto T468;} |
1372 |
goto T467; |
goto T467; |
1417 |
V293= vs_base[0]; |
V293= vs_base[0]; |
1418 |
if(((*(LnkLI41))((V279),(V280),(V276),V293))==Cnil){ |
if(((*(LnkLI41))((V279),(V280),(V276),V293))==Cnil){ |
1419 |
goto T487;} |
goto T487;} |
1420 |
V291= (1)+(V291); |
V291= (long)(1)+(V291); |
1421 |
goto T487; |
goto T487; |
1422 |
T487:; |
T487:; |
1423 |
V290= (1)+(V290); |
V290= (long)(1)+(V290); |
1424 |
goto T482;} |
goto T482;} |
1425 |
goto T477; |
goto T477; |
1426 |
T477:; |
T477:; |
1427 |
{register long V294; |
{register long V294; |
1428 |
register long V295; |
register long V295; |
1429 |
V294= (-1)+(V286); |
V294= (long)(-1)+(V286); |
1430 |
V295= 0; |
V295= 0; |
1431 |
goto T501; |
goto T501; |
1432 |
T501:; |
T501:; |
1445 |
V297= vs_base[0]; |
V297= vs_base[0]; |
1446 |
if(((*(LnkLI41))((V279),(V280),(V276),V297))==Cnil){ |
if(((*(LnkLI41))((V279),(V280),(V276),V297))==Cnil){ |
1447 |
goto T506;} |
goto T506;} |
1448 |
V295= (1)+(V295); |
V295= (long)(1)+(V295); |
1449 |
goto T506; |
goto T506; |
1450 |
T506:; |
T506:; |
1451 |
V294= (-1)+(V294); |
V294= (long)(-1)+(V294); |
1452 |
goto T501;}}}} |
goto T501;}}}} |
1453 |
va_end(ap); |
va_end(ap); |
1454 |
base[0]=base[0]; |
base[0]=base[0]; |
1566 |
}else{ |
}else{ |
1567 |
V332=(Vcs[9]);} |
V332=(Vcs[9]);} |
1568 |
{long V333; |
{long V333; |
1569 |
V333= length((V325)); |
V333= (long)length((V325)); |
1570 |
{long V334; |
{long V334; |
1571 |
if(((V329))==Cnil){ |
if(((V329))==Cnil){ |
1572 |
goto T525;} |
goto T525;} |
1573 |
V334= (*(LnkLI34))((V329)); |
V334= (long)(*(LnkLI34))((V329)); |
1574 |
goto T523; |
goto T523; |
1575 |
goto T525; |
goto T525; |
1576 |
T525:; |
T525:; |
1578 |
goto T523; |
goto T523; |
1579 |
T523:; |
T523:; |
1580 |
{long V335; |
{long V335; |
1581 |
V335= (*(LnkLI35))((V330),(V325)); |
V335= (long)(*(LnkLI35))((V330),(V325)); |
1582 |
if(!((V334)<=(V335))){ |
if(!((V334)<=(V335))){ |
1583 |
goto T529;} |
goto T529;} |
1584 |
goto T528; |
goto T528; |
1638 |
if(((*(LnkLI41))((V327),(V328),(V324),V345))==Cnil){ |
if(((*(LnkLI41))((V327),(V328),(V324),V345))==Cnil){ |
1639 |
goto T551;} |
goto T551;} |
1640 |
(void)(elt_set((V339),V340,(V323))); |
(void)(elt_set((V339),V340,(V323))); |
1641 |
V341= (1)+(V341); |
V341= (long)(1)+(V341); |
1642 |
goto T549; |
goto T549; |
1643 |
goto T551; |
goto T551; |
1644 |
T551:; |
T551:; |
1646 |
(void)(elt_set((V339),V340,/* INLINE-ARGS */V346)); |
(void)(elt_set((V339),V340,/* INLINE-ARGS */V346)); |
1647 |
goto T549; |
goto T549; |
1648 |
T549:; |
T549:; |
1649 |
V340= (1)+(V340); |
V340= (long)(1)+(V340); |
1650 |
goto T544;} |
goto T544;} |
1651 |
goto T538; |
goto T538; |
1652 |
T538:; |
T538:; |
1656 |
V350= (*(LnkLI47))((V325)); |
V350= (*(LnkLI47))((V325)); |
1657 |
V351 = make_fixnum(V333); |
V351 = make_fixnum(V333); |
1658 |
V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351)); |
V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351)); |
1659 |
V348= (-1)+(V333); |
V348= (long)(-1)+(V333); |
1660 |
V349= 0; |
V349= 0; |
1661 |
goto T570; |
goto T570; |
1662 |
T570:; |
T570:; |
1680 |
if(((*(LnkLI41))((V327),(V328),(V324),V353))==Cnil){ |
if(((*(LnkLI41))((V327),(V328),(V324),V353))==Cnil){ |
1681 |
goto T577;} |
goto T577;} |
1682 |
(void)(elt_set((V347),V348,(V323))); |
(void)(elt_set((V347),V348,(V323))); |
1683 |
V349= (1)+(V349); |
V349= (long)(1)+(V349); |
1684 |
goto T575; |
goto T575; |
1685 |
goto T577; |
goto T577; |
1686 |
T577:; |
T577:; |
1688 |
(void)(elt_set((V347),V348,/* INLINE-ARGS */V354)); |
(void)(elt_set((V347),V348,/* INLINE-ARGS */V354)); |
1689 |
goto T575; |
goto T575; |
1690 |
T575:; |
T575:; |
1691 |
V348= (-1)+(V348); |
V348= (long)(-1)+(V348); |
1692 |
goto T570;}}}}} |
goto T570;}}}}} |
1693 |
va_end(ap); |
va_end(ap); |
1694 |
base[0]=base[0]; |
base[0]=base[0]; |
1812 |
{long V394; |
{long V394; |
1813 |
if(((V390))==Cnil){ |
if(((V390))==Cnil){ |
1814 |
goto T599;} |
goto T599;} |
1815 |
V394= (*(LnkLI34))((V390)); |
V394= (long)(*(LnkLI34))((V390)); |
1816 |
goto T597; |
goto T597; |
1817 |
goto T599; |
goto T599; |
1818 |
T599:; |
T599:; |
1820 |
goto T597; |
goto T597; |
1821 |
T597:; |
T597:; |
1822 |
{long V395; |
{long V395; |
1823 |
V395= (*(LnkLI35))((V391),(V386)); |
V395= (long)(*(LnkLI35))((V391),(V386)); |
1824 |
if(!((V394)<=(V395))){ |
if(!((V394)<=(V395))){ |
1825 |
goto T603;} |
goto T603;} |
1826 |
goto T602; |
goto T602; |
1872 |
if(((*(LnkLI41))((V388),(V389),(V385),V402))==Cnil){ |
if(((*(LnkLI41))((V388),(V389),(V385),V402))==Cnil){ |
1873 |
goto T622;} |
goto T622;} |
1874 |
(void)(elt_set((V386),V399,(V384))); |
(void)(elt_set((V386),V399,(V384))); |
1875 |
V400= (1)+(V400); |
V400= (long)(1)+(V400); |
1876 |
goto T622; |
goto T622; |
1877 |
T622:; |
T622:; |
1878 |
V399= (1)+(V399); |
V399= (long)(1)+(V399); |
1879 |
goto T617;} |
goto T617;} |
1880 |
goto T612; |
goto T612; |
1881 |
T612:; |
T612:; |
1882 |
{register long V403; |
{register long V403; |
1883 |
register long V404; |
register long V404; |
1884 |
V403= (-1)+(V395); |
V403= (long)(-1)+(V395); |
1885 |
V404= 0; |
V404= 0; |
1886 |
goto T637; |
goto T637; |
1887 |
T637:; |
T637:; |
1901 |
if(((*(LnkLI41))((V388),(V389),(V385),V406))==Cnil){ |
if(((*(LnkLI41))((V388),(V389),(V385),V406))==Cnil){ |
1902 |
goto T642;} |
goto T642;} |
1903 |
(void)(elt_set((V386),V403,(V384))); |
(void)(elt_set((V386),V403,(V384))); |
1904 |
V404= (1)+(V404); |
V404= (long)(1)+(V404); |
1905 |
goto T642; |
goto T642; |
1906 |
T642:; |
T642:; |
1907 |
V403= (-1)+(V403); |
V403= (long)(-1)+(V403); |
1908 |
goto T637;}}}} |
goto T637;}}}} |
1909 |
va_end(ap); |
va_end(ap); |
1910 |
base[0]=base[0]; |
base[0]=base[0]; |
2024 |
{long V443; |
{long V443; |
2025 |
if(((V440))==Cnil){ |
if(((V440))==Cnil){ |
2026 |
goto T661;} |
goto T661;} |
2027 |
V443= (*(LnkLI34))((V440)); |
V443= (long)(*(LnkLI34))((V440)); |
2028 |
goto T659; |
goto T659; |
2029 |
goto T661; |
goto T661; |
2030 |
T661:; |
T661:; |
2032 |
goto T659; |
goto T659; |
2033 |
T659:; |
T659:; |
2034 |
{long V444; |
{long V444; |
2035 |
V444= (*(LnkLI35))((V441),(V436)); |
V444= (long)(*(LnkLI35))((V441),(V436)); |
2036 |
if(!((V443)<=(V444))){ |
if(!((V443)<=(V444))){ |
2037 |
goto T665;} |
goto T665;} |
2038 |
goto T664; |
goto T664; |
2073 |
VMR29(V450)} |
VMR29(V450)} |
2074 |
goto T678; |
goto T678; |
2075 |
T678:; |
T678:; |
2076 |
V447= (1)+(V447); |
V447= (long)(1)+(V447); |
2077 |
goto T673;} |
goto T673;} |
2078 |
goto T669; |
goto T669; |
2079 |
T669:; |
T669:; |
2080 |
{register long V451; |
{register long V451; |
2081 |
V451= (-1)+(V444); |
V451= (long)(-1)+(V444); |
2082 |
goto T688; |
goto T688; |
2083 |
T688:; |
T688:; |
2084 |
if(!((V451)<(V443))){ |
if(!((V451)<(V443))){ |
2098 |
VMR29(V454)} |
VMR29(V454)} |
2099 |
goto T693; |
goto T693; |
2100 |
T693:; |
T693:; |
2101 |
V451= (-1)+(V451); |
V451= (long)(-1)+(V451); |
2102 |
goto T688;}}} |
goto T688;}}} |
2103 |
va_end(ap); |
va_end(ap); |
2104 |
base[0]=base[0]; |
base[0]=base[0]; |
2210 |
{long V485; |
{long V485; |
2211 |
if(((V482))==Cnil){ |
if(((V482))==Cnil){ |
2212 |
goto T708;} |
goto T708;} |
2213 |
V485= (*(LnkLI34))((V482)); |
V485= (long)(*(LnkLI34))((V482)); |
2214 |
goto T706; |
goto T706; |
2215 |
goto T708; |
goto T708; |
2216 |
T708:; |
T708:; |
2218 |
goto T706; |
goto T706; |
2219 |
T706:; |
T706:; |
2220 |
{long V486; |
{long V486; |
2221 |
V486= (*(LnkLI35))((V483),(V478)); |
V486= (long)(*(LnkLI35))((V483),(V478)); |
2222 |
if(!((V485)<=(V486))){ |
if(!((V485)<=(V486))){ |
2223 |
goto T712;} |
goto T712;} |
2224 |
goto T711; |
goto T711; |
2259 |
VMR32(V492)} |
VMR32(V492)} |
2260 |
goto T725; |
goto T725; |
2261 |
T725:; |
T725:; |
2262 |
V489= (1)+(V489); |
V489= (long)(1)+(V489); |
2263 |
goto T720;} |
goto T720;} |
2264 |
goto T716; |
goto T716; |
2265 |
T716:; |
T716:; |
2266 |
{register long V493; |
{register long V493; |
2267 |
V493= (-1)+(V486); |
V493= (long)(-1)+(V486); |
2268 |
goto T735; |
goto T735; |
2269 |
T735:; |
T735:; |
2270 |
if(!((V493)<(V485))){ |
if(!((V493)<(V485))){ |
2284 |
VMR32(V496)} |
VMR32(V496)} |
2285 |
goto T740; |
goto T740; |
2286 |
T740:; |
T740:; |
2287 |
V493= (-1)+(V493); |
V493= (long)(-1)+(V493); |
2288 |
goto T735;}}} |
goto T735;}}} |
2289 |
va_end(ap); |
va_end(ap); |
2290 |
base[0]=base[0]; |
base[0]=base[0]; |
2487 |
}else{ |
}else{ |
2488 |
V537=(Vcs[6]);} |
V537=(Vcs[6]);} |
2489 |
{long V538; |
{long V538; |
2490 |
V538= length((V531)); |
V538= (long)length((V531)); |
2491 |
if((V533)==Cnil){ |
if((V533)==Cnil){ |
2492 |
goto T791;} |
goto T791;} |
2493 |
if((V534)==Cnil){ |
if((V534)==Cnil){ |
2548 |
{register long V542; |
{register long V542; |
2549 |
if(((V535))==Cnil){ |
if(((V535))==Cnil){ |
2550 |
goto T828;} |
goto T828;} |
2551 |
V542= (*(LnkLI34))((V535)); |
V542= (long)(*(LnkLI34))((V535)); |
2552 |
goto T826; |
goto T826; |
2553 |
goto T828; |
goto T828; |
2554 |
T828:; |
T828:; |
2556 |
goto T826; |
goto T826; |
2557 |
T826:; |
T826:; |
2558 |
{register long V543; |
{register long V543; |
2559 |
V543= (*(LnkLI35))((V536),(V531)); |
V543= (long)(*(LnkLI35))((V536),(V531)); |
2560 |
if(!((V542)<=(V543))){ |
if(!((V542)<=(V543))){ |
2561 |
goto T832;} |
goto T832;} |
2562 |
goto T831; |
goto T831; |
2581 |
register long V549; |
register long V549; |
2582 |
long V550; |
long V550; |
2583 |
V551= (*(LnkLI47))((V531)); |
V551= (*(LnkLI47))((V531)); |
2584 |
V552 = make_fixnum((V538)-(V546)); |
V552 = make_fixnum((long)(V538)-(V546)); |
2585 |
V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552)); |
V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552)); |
2586 |
V549= 0; |
V549= 0; |
2587 |
V550= 0; |
V550= 0; |
2611 |
super_funcall_no_event((V537)); |
super_funcall_no_event((V537)); |
2612 |
vs_top=sup; |
vs_top=sup; |
2613 |
V555= vs_base[0]; |
V555= vs_base[0]; |
2614 |
V556 = make_fixnum((1)+(V549)); |
V556 = make_fixnum((long)(1)+(V549)); |
2615 |
V557 = make_fixnum(V543); |
V557 = make_fixnum(V543); |
2616 |
V554= (VFUN_NARGS=12,(*(LnkLI52))(V555,(V531),VV[11],(V533),VV[12],(V534),VV[13],V556,VV[14],V557,VV[16],(V537))); |
V554= (VFUN_NARGS=12,(*(LnkLI52))(V555,(V531),VV[11],(V533),VV[12],(V534),VV[13],V556,VV[14],V557,VV[16],(V537))); |
2617 |
goto T854; |
goto T854; |
2623 |
T862:; |
T862:; |
2624 |
V558= elt((V531),V549); |
V558= elt((V531),V549); |
2625 |
(void)(elt_set((V548),V550,/* INLINE-ARGS */V558)); |
(void)(elt_set((V548),V550,/* INLINE-ARGS */V558)); |
2626 |
V550= (1)+(V550);} |
V550= (long)(1)+(V550);} |
2627 |
goto T853; |
goto T853; |
2628 |
T853:; |
T853:; |
2629 |
V549= (1)+(V549); |
V549= (long)(1)+(V549); |
2630 |
goto T848;} |
goto T848;} |
2631 |
goto T841; |
goto T841; |
2632 |
T841:; |
T841:; |
2635 |
super_funcall_no_event((V537)); |
super_funcall_no_event((V537)); |
2636 |
vs_top=sup; |
vs_top=sup; |
2637 |
V559= vs_base[0]; |
V559= vs_base[0]; |
2638 |
V560 = make_fixnum((1)+(V547)); |
V560 = make_fixnum((long)(1)+(V547)); |
2639 |
V561 = make_fixnum(V543); |
V561 = make_fixnum(V543); |
2640 |
if(((VFUN_NARGS=12,(*(LnkLI52))(V559,(V531),VV[11],(V533),VV[12],(V534),VV[13],V560,VV[14],V561,VV[16],(V537))))==Cnil){ |
if(((VFUN_NARGS=12,(*(LnkLI52))(V559,(V531),VV[11],(V533),VV[12],(V534),VV[13],V560,VV[14],V561,VV[16],(V537))))==Cnil){ |
2641 |
goto T870;} |
goto T870;} |
2642 |
V546= (1)+(V546); |
V546= (long)(1)+(V546); |
2643 |
goto T870; |
goto T870; |
2644 |
T870:; |
T870:; |
2645 |
V547= (1)+(V547); |
V547= (long)(1)+(V547); |
2646 |
goto T840;} |
goto T840;} |
2647 |
goto T835; |
goto T835; |
2648 |
T835:; |
T835:; |
2649 |
{long V562; |
{long V562; |
2650 |
long V563; |
long V563; |
2651 |
V562= 0; |
V562= 0; |
2652 |
V563= (-1)+(V543); |
V563= (long)(-1)+(V543); |
2653 |
goto T882; |
goto T882; |
2654 |
T882:; |
T882:; |
2655 |
if(!((V563)<(V542))){ |
if(!((V563)<(V542))){ |
2658 |
register long V565; |
register long V565; |
2659 |
long V566; |
long V566; |
2660 |
V567= (*(LnkLI47))((V531)); |
V567= (*(LnkLI47))((V531)); |
2661 |
V568 = make_fixnum((V538)-(V562)); |
V568 = make_fixnum((long)(V538)-(V562)); |
2662 |
V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568)); |
V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568)); |
2663 |
V565= (-1)+(V538); |
V565= (long)(-1)+(V538); |
2664 |
V566= ((-1)+(V538))-(V562); |
V566= (long)((long)(-1)+(V538))-(V562); |
2665 |
goto T890; |
goto T890; |
2666 |
T890:; |
T890:; |
2667 |
if(!((V565)<(0))){ |
if(!((V565)<(0))){ |
2700 |
T904:; |
T904:; |
2701 |
V574= elt((V531),V565); |
V574= elt((V531),V565); |
2702 |
(void)(elt_set((V564),V566,/* INLINE-ARGS */V574)); |
(void)(elt_set((V564),V566,/* INLINE-ARGS */V574)); |
2703 |
V566= (-1)+(V566);} |
V566= (long)(-1)+(V566);} |
2704 |
goto T895; |
goto T895; |
2705 |
T895:; |
T895:; |
2706 |
V565= (-1)+(V565); |
V565= (long)(-1)+(V565); |
2707 |
goto T890;} |
goto T890;} |
2708 |
goto T883; |
goto T883; |
2709 |
T883:; |
T883:; |
2716 |
V577 = make_fixnum(V563); |
V577 = make_fixnum(V563); |
2717 |
if(((VFUN_NARGS=14,(*(LnkLI52))(V575,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V576,VV[14],V577,VV[16],(V537))))==Cnil){ |
if(((VFUN_NARGS=14,(*(LnkLI52))(V575,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V576,VV[14],V577,VV[16],(V537))))==Cnil){ |
2718 |
goto T912;} |
goto T912;} |
2719 |
V562= (1)+(V562); |
V562= (long)(1)+(V562); |
2720 |
goto T912; |
goto T912; |
2721 |
T912:; |
T912:; |
2722 |
V563= (-1)+(V563); |
V563= (long)(-1)+(V563); |
2723 |
goto T882;}}}} |
goto T882;}}}} |
2724 |
va_end(ap); |
va_end(ap); |
2725 |
base[0]=base[0]; |
base[0]=base[0]; |
2772 |
{register long V590; |
{register long V590; |
2773 |
if(((V586))==Cnil){ |
if(((V586))==Cnil){ |
2774 |
goto T925;} |
goto T925;} |
2775 |
V590= (*(LnkLI34))((V586)); |
V590= (long)(*(LnkLI34))((V586)); |
2776 |
goto T923; |
goto T923; |
2777 |
goto T925; |
goto T925; |
2778 |
T925:; |
T925:; |
2780 |
goto T923; |
goto T923; |
2781 |
T923:; |
T923:; |
2782 |
{register long V591; |
{register long V591; |
2783 |
V591= (*(LnkLI35))((V588),(V580)); |
V591= (long)(*(LnkLI35))((V588),(V580)); |
2784 |
if(!((V590)<=(V591))){ |
if(!((V590)<=(V591))){ |
2785 |
goto T929;} |
goto T929;} |
2786 |
goto T928; |
goto T928; |
2794 |
{register long V594; |
{register long V594; |
2795 |
if(((V587))==Cnil){ |
if(((V587))==Cnil){ |
2796 |
goto T933;} |
goto T933;} |
2797 |
V594= (*(LnkLI34))((V587)); |
V594= (long)(*(LnkLI34))((V587)); |
2798 |
goto T931; |
goto T931; |
2799 |
goto T933; |
goto T933; |
2800 |
T933:; |
T933:; |
2802 |
goto T931; |
goto T931; |
2803 |
T931:; |
T931:; |
2804 |
{register long V595; |
{register long V595; |
2805 |
V595= (*(LnkLI35))((V589),(V581)); |
V595= (long)(*(LnkLI35))((V589),(V581)); |
2806 |
if(!((V594)<=(V595))){ |
if(!((V594)<=(V595))){ |
2807 |
goto T937;} |
goto T937;} |
2808 |
goto T936; |
goto T936; |
2855 |
VMR37(V604)} |
VMR37(V604)} |
2856 |
goto T957; |
goto T957; |
2857 |
T957:; |
T957:; |
2858 |
V598= (1)+(V598); |
V598= (long)(1)+(V598); |
2859 |
V599= (1)+(V599); |
V599= (long)(1)+(V599); |
2860 |
goto T945;} |
goto T945;} |
2861 |
goto T940; |
goto T940; |
2862 |
T940:; |
T940:; |
2863 |
{register long V605; |
{register long V605; |
2864 |
register long V606; |
register long V606; |
2865 |
V605= (-1)+(V591); |
V605= (long)(-1)+(V591); |
2866 |
V606= (-1)+(V595); |
V606= (long)(-1)+(V595); |
2867 |
goto T971; |
goto T971; |
2868 |
T971:; |
T971:; |
2869 |
if((V605)<(V590)){ |
if((V605)<(V590)){ |
2880 |
VMR37(V607)} |
VMR37(V607)} |
2881 |
goto T978; |
goto T978; |
2882 |
T978:; |
T978:; |
2883 |
{object V608 = make_fixnum((1)+(V605)); |
{object V608 = make_fixnum((long)(1)+(V605)); |
2884 |
VMR37(V608)} |
VMR37(V608)} |
2885 |
goto T972; |
goto T972; |
2886 |
T972:; |
T972:; |
2896 |
V610= vs_base[0]; |
V610= vs_base[0]; |
2897 |
if(((*(LnkLI41))((V583),(V584),V609,V610))!=Cnil){ |
if(((*(LnkLI41))((V583),(V584),V609,V610))!=Cnil){ |
2898 |
goto T983;} |
goto T983;} |
2899 |
{object V611 = make_fixnum((1)+(V605)); |
{object V611 = make_fixnum((long)(1)+(V605)); |
2900 |
VMR37(V611)} |
VMR37(V611)} |
2901 |
goto T983; |
goto T983; |
2902 |
T983:; |
T983:; |
2903 |
V605= (-1)+(V605); |
V605= (long)(-1)+(V605); |
2904 |
V606= (-1)+(V606); |
V606= (long)(-1)+(V606); |
2905 |
goto T971;}}}}} |
goto T971;}}}}} |
2906 |
va_end(ap); |
va_end(ap); |
2907 |
base[0]=base[0]; |
base[0]=base[0]; |
2954 |
{long V624; |
{long V624; |
2955 |
if(((V620))==Cnil){ |
if(((V620))==Cnil){ |
2956 |
goto T998;} |
goto T998;} |
2957 |
V624= (*(LnkLI34))((V620)); |
V624= (long)(*(LnkLI34))((V620)); |
2958 |
goto T996; |
goto T996; |
2959 |
goto T998; |
goto T998; |
2960 |
T998:; |
T998:; |
2962 |
goto T996; |
goto T996; |
2963 |
T996:; |
T996:; |
2964 |
{long V625; |
{long V625; |
2965 |
V625= (*(LnkLI35))((V622),(V614)); |
V625= (long)(*(LnkLI35))((V622),(V614)); |
2966 |
if(!((V624)<=(V625))){ |
if(!((V624)<=(V625))){ |
2967 |
goto T1002;} |
goto T1002;} |
2968 |
goto T1001; |
goto T1001; |
2976 |
{register long V628; |
{register long V628; |
2977 |
if(((V621))==Cnil){ |
if(((V621))==Cnil){ |
2978 |
goto T1006;} |
goto T1006;} |
2979 |
V628= (*(LnkLI34))((V621)); |
V628= (long)(*(LnkLI34))((V621)); |
2980 |
goto T1004; |
goto T1004; |
2981 |
goto T1006; |
goto T1006; |
2982 |
T1006:; |
T1006:; |
2984 |
goto T1004; |
goto T1004; |
2985 |
T1004:; |
T1004:; |
2986 |
{long V629; |
{long V629; |
2987 |
V629= (*(LnkLI35))((V623),(V615)); |
V629= (long)(*(LnkLI35))((V623),(V615)); |
2988 |
if(!((V628)<=(V629))){ |
if(!((V628)<=(V629))){ |
2989 |
goto T1010;} |
goto T1010;} |
2990 |
goto T1009; |
goto T1009; |
3032 |
goto T1018; |
goto T1018; |
3033 |
goto T1030; |
goto T1030; |
3034 |
T1030:; |
T1030:; |
3035 |
V632= (1)+(V632); |
V632= (long)(1)+(V632); |
3036 |
V633= (1)+(V633); |
V633= (long)(1)+(V633); |
3037 |
goto T1022;} |
goto T1022;} |
3038 |
goto T1018; |
goto T1018; |
3039 |
T1018:; |
T1018:; |
3040 |
V628= (1)+(V628); |
V628= (long)(1)+(V628); |
3041 |
goto T1016; |
goto T1016; |
3042 |
goto T1013; |
goto T1013; |
3043 |
T1013:; |
T1013:; |
3045 |
T1044:; |
T1044:; |
3046 |
{register long V638; |
{register long V638; |
3047 |
register long V639; |
register long V639; |
3048 |
V638= (-1)+(V625); |
V638= (long)(-1)+(V625); |
3049 |
V639= (-1)+(V629); |
V639= (long)(-1)+(V629); |
3050 |
goto T1050; |
goto T1050; |
3051 |
T1050:; |
T1050:; |
3052 |
if(!((V638)<(V624))){ |
if(!((V638)<(V624))){ |
3053 |
goto T1051;} |
goto T1051;} |
3054 |
{object V640 = make_fixnum((1)+(V639)); |
{object V640 = make_fixnum((long)(1)+(V639)); |
3055 |
VMR38(V640)} |
VMR38(V640)} |
3056 |
goto T1051; |
goto T1051; |
3057 |
T1051:; |
T1051:; |
3076 |
goto T1046; |
goto T1046; |
3077 |
goto T1058; |
goto T1058; |
3078 |
T1058:; |
T1058:; |
3079 |
V638= (-1)+(V638); |
V638= (long)(-1)+(V638); |
3080 |
V639= (-1)+(V639); |
V639= (long)(-1)+(V639); |
3081 |
goto T1050;} |
goto T1050;} |
3082 |
goto T1046; |
goto T1046; |
3083 |
T1046:; |
T1046:; |
3084 |
V629= (-1)+(V629); |
V629= (long)(-1)+(V629); |
3085 |
goto T1044;}}}} |
goto T1044;}}}} |
3086 |
va_end(ap); |
va_end(ap); |
3087 |
base[0]=base[0]; |
base[0]=base[0]; |
3115 |
return; |
return; |
3116 |
goto T1073; |
goto T1073; |
3117 |
T1073:; |
T1073:; |
3118 |
base[4]= (*(LnkLI56))((V644),0,length((V644)),(V645),(V646)); |
base[4]= (*(LnkLI56))((V644),0,(long)length((V644)),(V645),(V646)); |
3119 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3120 |
return; |
return; |
3121 |
} |
} |
3146 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
3147 |
goto TTL; |
goto TTL; |
3148 |
TTL:; |
TTL:; |
3149 |
if(!((V655)<=((1)+(V654)))){ |
if(!((V655)<=((long)(1)+(V654)))){ |
3150 |
goto T1080;} |
goto T1080;} |
3151 |
{object V658 = (V653); |
{object V658 = (V653); |
3152 |
VMR41(V658)} |
VMR41(V658)} |
3160 |
V660= V655; |
V660= V655; |
3161 |
V661= elt((V653),V654); |
V661= elt((V653),V654); |
3162 |
V662= ( |
V662= ( |
3163 |
(type_of((V657)) == t_sfun ?(*(object (*)())(((V657))->sfn.sfn_self)): |
(type_of((V657)) == t_sfun ?(*(((V657))->sfn.sfn_self)): |
3164 |
(fcall.fun=((V657)),fcall.argd=1,fcalln))((V661))); |
(fcall.fun=((V657)),fcall.argd=1,fcalln))((V661))); |
3165 |
goto T1088; |
goto T1088; |
3166 |
T1088:; |
T1088:; |
3167 |
goto T1092; |
goto T1092; |
3168 |
T1092:; |
T1092:; |
3169 |
V660= (-1)+(V660); |
V660= (long)(-1)+(V660); |
3170 |
if((V659)<(V660)){ |
if((V659)<(V660)){ |
3171 |
goto T1096;} |
goto T1096;} |
3172 |
goto T1086; |
goto T1086; |
3191 |
T1090:; |
T1090:; |
3192 |
goto T1107; |
goto T1107; |
3193 |
T1107:; |
T1107:; |
3194 |
V659= (1)+(V659); |
V659= (long)(1)+(V659); |
3195 |
if((V659)<(V660)){ |
if((V659)<(V660)){ |
3196 |
goto T1111;} |
goto T1111;} |
3197 |
goto T1086; |
goto T1086; |
3226 |
(void)(elt_set((V653),V654,/* INLINE-ARGS */V665)); |
(void)(elt_set((V653),V654,/* INLINE-ARGS */V665)); |
3227 |
(void)(elt_set((V653),V659,(V661))); |
(void)(elt_set((V653),V659,(V661))); |
3228 |
(void)((*(LnkLI56))((V653),V654,V659,(V656),(V657))); |
(void)((*(LnkLI56))((V653),V654,V659,(V656),(V657))); |
3229 |
V654= (1)+(V659); |
V654= (long)(1)+(V659); |
3230 |
goto TTL;} |
goto TTL;} |
3231 |
base[0]=base[0]; |
base[0]=base[0]; |
3232 |
return Cnil; |
return Cnil; |
3316 |
V679=(Vcs[4]);} |
V679=(Vcs[4]);} |
3317 |
{long V680; |
{long V680; |
3318 |
long V681; |
long V681; |
3319 |
V680= length((V676)); |
V680= (long)length((V676)); |
3320 |
V681= length((V677)); |
V681= (long)length((V677)); |
3321 |
{register object V682; |
{register object V682; |
3322 |
register long V683; |
register long V683; |
3323 |
register long V684; |
register long V684; |
3324 |
register long V685; |
register long V685; |
3325 |
V686 = make_fixnum((V680)+(V681)); |
V686 = make_fixnum((long)(V680)+(V681)); |
3326 |
V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686)); |
V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686)); |
3327 |
V683= 0; |
V683= 0; |
3328 |
V684= 0; |
V684= 0; |
3358 |
goto T1174;} |
goto T1174;} |
3359 |
V688= elt((V676),V684); |
V688= elt((V676),V684); |
3360 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V688)); |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V688)); |
3361 |
V684= (1)+(V684); |
V684= (long)(1)+(V684); |
3362 |
goto T1167; |
goto T1167; |
3363 |
goto T1174; |
goto T1174; |
3364 |
T1174:; |
T1174:; |
3379 |
goto T1183;} |
goto T1183;} |
3380 |
V689= elt((V677),V685); |
V689= elt((V677),V685); |
3381 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V689)); |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V689)); |
3382 |
V685= (1)+(V685); |
V685= (long)(1)+(V685); |
3383 |
goto T1167; |
goto T1167; |
3384 |
goto T1183; |
goto T1183; |
3385 |
T1183:; |
T1183:; |
3386 |
V690= elt((V676),V684); |
V690= elt((V676),V684); |
3387 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V690)); |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V690)); |
3388 |
V684= (1)+(V684); |
V684= (long)(1)+(V684); |
3389 |
goto T1167; |
goto T1167; |
3390 |
goto T1169; |
goto T1169; |
3391 |
T1169:; |
T1169:; |
3393 |
goto T1194;} |
goto T1194;} |
3394 |
V691= elt((V676),V684); |
V691= elt((V676),V684); |
3395 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V691)); |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V691)); |
3396 |
V684= (1)+(V684); |
V684= (long)(1)+(V684); |
3397 |
goto T1167; |
goto T1167; |
3398 |
goto T1194; |
goto T1194; |
3399 |
T1194:; |
T1194:; |
3400 |
V692= elt((V677),V685); |
V692= elt((V677),V685); |
3401 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V692)); |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V692)); |
3402 |
V685= (1)+(V685); |
V685= (long)(1)+(V685); |
3403 |
goto T1167; |
goto T1167; |
3404 |
T1167:; |
T1167:; |
3405 |
V683= (1)+(V683); |
V683= (long)(1)+(V683); |
3406 |
goto T1160;}} |
goto T1160;}} |
3407 |
va_end(ap); |
va_end(ap); |
3408 |
base[0]=base[0]; |
base[0]=base[0]; |
3443 |
goto T1204; |
goto T1204; |
3444 |
goto T1206; |
goto T1206; |
3445 |
T1206:; |
T1206:; |
3446 |
base[3]= make_fixnum(length((V693))); |
base[3]= make_fixnum((long)length((V693))); |
3447 |
goto T1204; |
goto T1204; |
3448 |
T1204:; |
T1204:; |
3449 |
{object V697; |
{object V697; |
3606 |
V723= Cnil; |
V723= Cnil; |
3607 |
V724= Cnil; |
V724= Cnil; |
3608 |
V725= Cnil; |
V725= Cnil; |
3609 |
V719= length((V718)); |
V719= (long)length((V718)); |
3610 |
if(!((V719)<(2))){ |
if(!((V719)<(2))){ |
3611 |
goto T1255;} |
goto T1255;} |
3612 |
base[1]= (V718); |
base[1]= (V718); |
3617 |
if(!((V719)==(2))){ |
if(!((V719)==(2))){ |
3618 |
goto T1253;} |
goto T1253;} |
3619 |
V724= ( |
V724= ( |
3620 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3621 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); |
3622 |
V725= ( |
V725= ( |
3623 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3624 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V718)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V718)))); |
3625 |
base[1]= (V724); |
base[1]= (V724); |
3626 |
base[2]= (V725); |
base[2]= (V725); |
3651 |
return; |
return; |
3652 |
goto T1253; |
goto T1253; |
3653 |
T1253:; |
T1253:; |
3654 |
V719= (V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); |
V719= (long)(V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); |
3655 |
{long V726; |
{long V726; |
3656 |
register object V727; |
register object V727; |
3657 |
V726= 1; |
V726= 1; |
3667 |
goto T1275; |
goto T1275; |
3668 |
goto T1279; |
goto T1279; |
3669 |
T1279:; |
T1279:; |
3670 |
V726= (1)+(V726); |
V726= (long)(1)+(V726); |
3671 |
V727= cdr((V727)); |
V727= cdr((V727)); |
3672 |
goto T1278;} |
goto T1278;} |
3673 |
goto T1275; |
goto T1275; |
3699 |
V722= make_cons(Cnil,Cnil); |
V722= make_cons(Cnil,Cnil); |
3700 |
V723= (V722); |
V723= (V722); |
3701 |
V724= ( |
V724= ( |
3702 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3703 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
3704 |
V725= ( |
V725= ( |
3705 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3706 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
3707 |
goto T1248; |
goto T1248; |
3708 |
T1248:; |
T1248:; |
3743 |
goto T1325; |
goto T1325; |
3744 |
T1325:; |
T1325:; |
3745 |
V724= ( |
V724= ( |
3746 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3747 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
3748 |
goto T1248; |
goto T1248; |
3749 |
goto T1250; |
goto T1250; |
3762 |
goto T1336; |
goto T1336; |
3763 |
T1336:; |
T1336:; |
3764 |
V725= ( |
V725= ( |
3765 |
(type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3766 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
3767 |
goto T1248;} |
goto T1248;} |
3768 |
} |
} |
3769 |
} |
} |
3770 |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */ |
3771 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,2,ap);} /* COERCE */ |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,2,ap);va_end(ap);return V1;} /* COERCE */ |
3772 |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* SORT */ |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* SORT */ |
3773 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,81925,ap);} /* QUICK-SORT */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */ |
3774 |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* LIST-MERGE-SORT */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* LIST-MERGE-SORT */ |
3775 |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[54],(void **)&LnkLI54,ap);} /* DELETE-DUPLICATES */ |
static object LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[54],(void **)&LnkLI54,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */ |
3776 |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* MEMBER1 */ |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* MEMBER1 */ |
3777 |
static object LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[52],(void **)&LnkLI52,ap);} /* POSITION */ |
static object LnkTLI52(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[52],(void **)&LnkLI52,ap);va_end(ap);return V1;} /* POSITION */ |
3778 |
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[51],(void **)&LnkLI51,ap);} /* FIND */ |
static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[51],(void **)&LnkLI51,ap);va_end(ap);return V1;} /* FIND */ |
3779 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* NSUBSTITUTE */ |
static object LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* NSUBSTITUTE */ |
3780 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],(void **)&LnkLI49,ap);} /* SUBSTITUTE */ |
static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[49],(void **)&LnkLI49,ap);va_end(ap);return V1;} /* SUBSTITUTE */ |
3781 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* COUNT */ |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* COUNT */ |
3782 |
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,1,ap);} /* SEQTYPE */ |
static object LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[47],(void **)&LnkLI47,1,ap);va_end(ap);return V1;} /* SEQTYPE */ |
3783 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[46],(void **)&LnkLI46,ap);} /* MAKE-SEQUENCE */ |
static object LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[46],(void **)&LnkLI46,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
3784 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* INTERNAL-COUNT */ |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */ |
3785 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],(void **)&LnkLI43,ap);} /* REMOVE */ |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[43],(void **)&LnkLI43,ap);va_end(ap);return V1;} /* REMOVE */ |
3786 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[42],(void **)&LnkLI42,ap);} /* DELETE */ |
static object LnkTLI42(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[42],(void **)&LnkLI42,ap);va_end(ap);return V1;} /* DELETE */ |
3787 |
static object LnkTLI41(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[41],(void **)&LnkLI41,4,ap);} /* CALL-TEST */ |
static object LnkTLI41(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[41],(void **)&LnkLI41,4,ap);va_end(ap);return V1;} /* CALL-TEST */ |
3788 |
static object LnkTLI40(){return call_proc0(VV[40],(void **)&LnkLI40);} /* TEST-ERROR */ |
static object LnkTLI40(){return call_proc0(VV[40],(void **)&LnkLI40);} /* TEST-ERROR */ |
3789 |
static long LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[35],(void **)&LnkLI35,258,ap);} /* THE-END */ |
static object LnkTLI35(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[35],(void **)&LnkLI35,258,ap);va_end(ap);return V1;} /* THE-END */ |
3790 |
static long LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[34],(void **)&LnkLI34,257,ap);} /* THE-START */ |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,257,ap);va_end(ap);return V1;} /* THE-START */ |
3791 |
static object LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],(void **)&LnkLI31,ap);} /* BAD-SEQ-LIMIT */ |
static object LnkTLI31(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[31],(void **)&LnkLI31,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */ |
3792 |
|
|
3793 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3794 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |