/[gcl]/gcl/lsp/seqlib.c
ViewVC logotype

Diff of /gcl/lsp/seqlib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 183  T43:; Line 183  T43:;
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
# Line 191  goto TTL; Line 191  goto TTL;
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;
# Line 200  T51:; Line 200  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
# Line 231  T60:; Line 231  T60:;
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    
# Line 274  static void L8() Line 274  static void L8()
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:;
# Line 282  T68:; Line 282  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;
# Line 306  goto T80; Line 306  goto T80;
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;
# Line 324  goto T88; Line 324  goto T88;
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;
# Line 345  T75:; Line 345  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:;
# Line 363  T110:; Line 363  T110:;
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          }          }
# Line 400  static object LI9(V64,V63,va_alist) Line 400  static object LI9(V64,V63,va_alist)
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:;
# Line 408  T124:; Line 408  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;
# Line 430  T132:; Line 430  T132:;
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;}
# Line 464  static object LI10(V76,V75,va_alist) Line 464  static object LI10(V76,V75,va_alist)
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:;
# Line 472  T143:; Line 472  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;
# Line 486  T146:; Line 486  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:;
# Line 494  T151:; Line 494  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;
# Line 514  T154:; Line 514  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))){
# Line 535  goto T171; Line 535  goto T171;
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:;
# Line 546  T158:; Line 546  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;
# Line 567  goto T192; Line 567  goto T192;
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;}
# Line 612  static object LI11(V104,V103,va_alist) Line 612  static object LI11(V104,V103,va_alist)
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:;
# Line 620  T205:; Line 620  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;
# Line 669  T227:; Line 669  T227:;
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:;
# Line 703  T244:; Line 703  T244:;
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));
# Line 716  T256:; Line 716  T256:;
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:;
# Line 846  static object LI14(V160,V159,va_alist) Line 846  static object LI14(V160,V159,va_alist)
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:;
# Line 858  T281:; Line 858  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;
# Line 906  T305:; Line 906  T305:;
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:;
# Line 935  T320:; Line 935  T320:;
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;
# Line 944  T330:; Line 944  T330:;
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:;
# Line 963  T341:; Line 963  T341:;
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;
# Line 989  T351:; Line 989  T351:;
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:;
# Line 1017  T374:; Line 1017  T374:;
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:;
# Line 1043  T384:; Line 1043  T384:;
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];
# Line 1168  static object LI17(V233,V232,va_alist) Line 1168  static object LI17(V233,V232,va_alist)
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:;
# Line 1176  T413:; Line 1176  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;
# Line 1215  T427:; Line 1215  T427:;
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:;
# Line 1241  T444:; Line 1241  T444:;
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];
# Line 1358  static object LI20(V275,V274,va_alist) Line 1358  static object LI20(V275,V274,va_alist)
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:;
# Line 1366  T464:; Line 1366  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;
# Line 1417  T483:; Line 1417  T483:;
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:;
# Line 1445  T502:; Line 1445  T502:;
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];
# Line 1566  static object LI23(V322,V321,V320,va_ali Line 1566  static object LI23(V322,V321,V320,va_ali
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:;
# Line 1578  T525:; Line 1578  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;
# Line 1638  T545:; Line 1638  T545:;
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:;
# Line 1646  T551:; Line 1646  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:;
# Line 1656  T538:; Line 1656  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:;
# Line 1680  T571:; Line 1680  T571:;
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:;
# Line 1688  T577:; Line 1688  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];
# Line 1812  static object LI26(V383,V382,V381,va_ali Line 1812  static object LI26(V383,V382,V381,va_ali
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:;
# Line 1820  T599:; Line 1820  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;
# Line 1872  T618:; Line 1872  T618:;
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:;
# Line 1901  T638:; Line 1901  T638:;
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];
# Line 2024  static object LI29(V434,V433,va_alist) Line 2024  static object LI29(V434,V433,va_alist)
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:;
# Line 2032  T661:; Line 2032  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;
# Line 2073  T674:; Line 2073  T674:;
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))){
# Line 2098  T689:; Line 2098  T689:;
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];
# Line 2210  static object LI32(V476,V475,va_alist) Line 2210  static object LI32(V476,V475,va_alist)
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:;
# Line 2218  T708:; Line 2218  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;
# Line 2259  T721:; Line 2259  T721:;
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))){
# Line 2284  T736:; Line 2284  T736:;
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];
# Line 2487  static object LI36(V530,va_alist) Line 2487  static object LI36(V530,va_alist)
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){
# Line 2548  T792:; Line 2548  T792:;
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:;
# Line 2556  T828:; Line 2556  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;
# Line 2581  T840:; Line 2581  T840:;
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;
# Line 2611  T857:; Line 2611  T857:;
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;
# Line 2623  goto T862; Line 2623  goto T862;
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:;
# Line 2635  T841:; Line 2635  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))){
# Line 2658  T882:; Line 2658  T882:;
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))){
# Line 2700  goto T904; Line 2700  goto T904;
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:;
# Line 2716  T883:; Line 2716  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];
# Line 2772  T922:; Line 2772  T922:;
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:;
# Line 2780  T925:; Line 2780  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;
# Line 2794  T928:; Line 2794  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:;
# Line 2802  T933:; Line 2802  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;
# Line 2855  T946:; Line 2855  T946:;
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)){
# Line 2880  T973:; Line 2880  T973:;
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:;
# Line 2896  T972:; Line 2896  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];
# Line 2954  T995:; Line 2954  T995:;
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:;
# Line 2962  T998:; Line 2962  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;
# Line 2976  T1001:; Line 2976  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:;
# Line 2984  T1006:; Line 2984  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;
# Line 3032  T1027:; Line 3032  T1027:;
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:;
# Line 3045  goto T1044; Line 3045  goto T1044;
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:;
# Line 3076  T1055:; Line 3076  T1055:;
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];
# Line 3115  static void L39() Line 3115  static void L39()
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          }          }
# Line 3146  register object V653;long V654;long V655 Line 3146  register object V653;long V654;long V655
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)}
# Line 3160  T1080:; Line 3160  T1080:;
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;
# Line 3191  goto T1090; Line 3191  goto T1090;
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;
# Line 3226  T1086:; Line 3226  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;
# Line 3316  static object LI44(V674,V673,V672,V671,v Line 3316  static object LI44(V674,V673,V672,V671,v
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;
# Line 3358  T1161:; Line 3358  T1161:;
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:;
# Line 3379  T1174:; Line 3379  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:;
# Line 3393  T1169:; Line 3393  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];
# Line 3443  static void L45() Line 3443  static void L45()
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;
# Line 3606  TTL:; Line 3606  TTL:;
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);
# Line 3617  T1255:; Line 3617  T1255:;
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);
# Line 3651  T1269:; Line 3651  T1269:;
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;
# Line 3667  T1278:; Line 3667  T1278:;
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;
# Line 3699  T1297:; Line 3699  T1297:;
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:;
# Line 3743  T1249:; Line 3743  T1249:;
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;
# Line 3762  T1250:; Line 3762  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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26