/[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.10 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.11 by camm, Tue Oct 15 19:39:30 2002 UTC
# Line 163  T39:; Line 163  T39:;
163  goto T40;  goto T40;
164  T40:;  T40:;
165          base[0]= VV[8];          base[0]= VV[8];
166            base[1]= VV[9];
167          if(((V30))==Cnil){          if(((V30))==Cnil){
168          goto T45;}          goto T46;}
169          base[1]= list(2,(V29),(V30));          base[2]= list(2,(V29),(V30));
170          goto T43;          goto T44;
171  goto T45;  goto T46;
172  T45:;  T46:;
173          base[1]= (V29);          base[2]= (V29);
174  goto T43;  goto T44;
175  T43:;  T44:;
176          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+3;
177          Lerror();          (void) (*Lnk32)();
178          vs_top=sup;          vs_top=sup;
179          {object V31 = vs_base[0];          {object V31 = vs_base[0];
180          VMR5(V31)}          VMR5(V31)}
# Line 190  register object V34;object V35; Line 191  register object V34;object V35;
191  goto TTL;  goto TTL;
192  TTL:;  TTL:;
193          if(!(type_of((V34))==t_fixnum)){          if(!(type_of((V34))==t_fixnum)){
194          goto T48;}          goto T49;}
195          if(!((fix((V34)))<=((long)length((V35))))){          if(!((fix((V34)))<=((long)length((V35))))){
196          goto T51;}          goto T52;}
197          goto T50;          goto T51;
198    goto T52;
199    T52:;
200            (void)((VFUN_NARGS=1,(*(LnkLI33))((V34))));
201  goto T51;  goto T51;
202  T51:;  T51:;
         (void)((VFUN_NARGS=1,(*(LnkLI31))((V34))));  
 goto T50;  
 T50:;  
203          {long V36 = fix((V34));          {long V36 = fix((V34));
204          VMR6((object)V36)}          VMR6((object)V36)}
205  goto T48;  goto T49;
206  T48:;  T49:;
207          if(((V34))!=Cnil){          if(((V34))!=Cnil){
208          goto T54;}          goto T55;}
209          {long V37 = (long)length((V35));          {long V37 = (long)length((V35));
210          VMR6((object)V37)}          VMR6((object)V37)}
211  goto T54;  goto T55;
212  T54:;  T55:;
213          {long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34))));          {long V38 = fix((VFUN_NARGS=1,(*(LnkLI33))((V34))));
214          VMR6((object)V38)}          VMR6((object)V38)}
215  }  }
216  /*      local entry for function THE-START      */  /*      local entry for function THE-START      */
# Line 221  register object V40; Line 222  register object V40;
222  goto TTL;  goto TTL;
223  TTL:;  TTL:;
224          if(!(type_of((V40))==t_fixnum)){          if(!(type_of((V40))==t_fixnum)){
225          goto T57;}          goto T58;}
226          if(!((fix((V40)))>=(0))){          if(!((fix((V40)))>=(0))){
227          goto T60;}          goto T61;}
228          goto T59;          goto T60;
229    goto T61;
230    T61:;
231            (void)((VFUN_NARGS=1,(*(LnkLI33))((V40))));
232  goto T60;  goto T60;
233  T60:;  T60:;
         (void)((VFUN_NARGS=1,(*(LnkLI31))((V40))));  
 goto T59;  
 T59:;  
234          {long V41 = fix((V40));          {long V41 = fix((V40));
235          VMR7((object)V41)}          VMR7((object)V41)}
236  goto T57;  goto T58;
237  T57:;  T58:;
238          if(((V40))!=Cnil){          if(((V40))!=Cnil){
239          goto T63;}          goto T64;}
240          {long V42 = 0;          {long V42 = 0;
241          VMR7((object)V42)}          VMR7((object)V42)}
242  goto T63;  goto T64;
243  T63:;  T64:;
244          {long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40))));          {long V43 = fix((VFUN_NARGS=1,(*(LnkLI33))((V40))));
245          VMR7((object)V43)}          VMR7((object)V43)}
246  }  }
247  /*      function definition for REDUCE  */  /*      function definition for REDUCE  */
# Line 258  static void L8() Line 259  static void L8()
259          object V50;          object V50;
260          register object V51;          register object V51;
261          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
262          parse_key(vs_base+2,FALSE,FALSE,5,VV[10],VV[13],VV[14],VV[32],VV[16]);          parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]);
263          V44=(base[0]);          V44=(base[0]);
264          V45=(base[1]);          V45=(base[1]);
265          vs_top=sup;          vs_top=sup;
# Line 268  static void L8() Line 269  static void L8()
269          V49=(base[5]);          V49=(base[5]);
270          V50=(base[10]);          V50=(base[10]);
271          if(base[11]==Cnil){          if(base[11]==Cnil){
272          V51= symbol_function(VV[33]);          V51= symbol_function(VV[35]);
273          }else{          }else{
274          V51=(base[6]);}          V51=(base[6]);}
275          {register long V52;          {register long V52;
276          if(((V47))==Cnil){          if(((V47))==Cnil){
277          goto T68;}          goto T69;}
278          V52= (long)(*(LnkLI34))((V47));          V52= (long)(*(LnkLI36))((V47));
279          goto T66;          goto T67;
280  goto T68;  goto T69;
281  T68:;  T69:;
282          V52= 0;          V52= 0;
283  goto T66;  goto T67;
284  T66:;  T67:;
285          {register long V53;          {register long V53;
286          V53= (long)(*(LnkLI35))((V48),(V45));          V53= (long)(*(LnkLI37))((V48),(V45));
287          if(!((V52)<=(V53))){          if(!((V52)<=(V53))){
288          goto T72;}          goto T73;}
289          goto T71;          goto T72;
290  goto T72;  goto T73;
291  T72:;  T73:;
292          V54 = make_fixnum(V52);          V54 = make_fixnum(V52);
293          V55 = make_fixnum(V53);          V55 = make_fixnum(V53);
294          (void)((VFUN_NARGS=2,(*(LnkLI31))(V54,V55)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V54,V55)));
295  goto T71;  goto T72;
296  T71:;  T72:;
297          if(((V46))!=Cnil){          if(((V46))!=Cnil){
298          goto T75;}          goto T76;}
299          if(((V50))!=Cnil){          if(((V50))!=Cnil){
300          goto T77;}          goto T78;}
301          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
302          goto T80;}          goto T81;}
303          vs_base=vs_top;          vs_base=vs_top;
304          super_funcall_no_event((V44));          super_funcall_no_event((V44));
305          return;          return;
306  goto T80;  goto T81;
307  T80:;  T81:;
308          V56= elt((V45),V52);          V56= elt((V45),V52);
309          V49= (          V49= (
310          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):
311          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56));          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56));
312          V52= (long)(1)+(V52);          V52= (long)(1)+(V52);
313  goto T77;  goto T78;
314  T77:;  T78:;
315          {register object V57;          {register object V57;
316          V57= (V49);          V57= (V49);
317  goto T87;  goto T88;
318  T87:;  T88:;
319          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
320          goto T88;}          goto T89;}
321          base[12]= (V57);          base[12]= (V57);
322          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
323          return;          return;
324  goto T88;  goto T89;
325  T88:;  T89:;
326          {object V59;          {object V59;
327          V59= elt((V45),V52);          V59= elt((V45),V52);
328          V52= (long)(1)+(V52);          V52= (long)(1)+(V52);
# Line 333  T88:; Line 334  T88:;
334          V57= (          V57= (
335          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):
336          (fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58));          (fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58));
337          goto T87;}          goto T88;}
338  goto T75;  goto T76;
339  T75:;  T76:;
340          if(((V50))!=Cnil){          if(((V50))!=Cnil){
341          goto T100;}          goto T101;}
342          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
343          goto T103;}          goto T104;}
344          vs_base=vs_top;          vs_base=vs_top;
345          super_funcall_no_event((V44));          super_funcall_no_event((V44));
346          return;          return;
347  goto T103;  goto T104;
348  T103:;  T104:;
349          V53= (long)(V53)+(-1);          V53= (long)(V53)+(-1);
350          V60= elt((V45),V53);          V60= elt((V45),V53);
351          V49= (          V49= (
352          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):
353          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60));          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60));
354  goto T100;  goto T101;
355  T100:;  T101:;
356          {register object V61;          {register object V61;
357          V61= (V49);          V61= (V49);
358  goto T110;  goto T111;
359  T110:;  T111:;
360          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
361          goto T111;}          goto T112;}
362          base[12]= (V61);          base[12]= (V61);
363          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
364          return;          return;
365  goto T111;  goto T112;
366  T111:;  T112:;
367          V53= (long)(-1)+(V53);          V53= (long)(-1)+(V53);
368          base[12]= elt((V45),V53);          base[12]= elt((V45),V53);
369          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
# Line 372  T111:; Line 373  T111:;
373          V61= (          V61= (
374          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):
375          (fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61)));          (fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61)));
376          goto T110;}}}          goto T111;}}}
377          }          }
378  }  }
379  /*      local entry for function FILL   */  /*      local entry for function FILL   */
# Line 399  static object LI9(V64,V63,va_alist) Line 400  static object LI9(V64,V63,va_alist)
400          V68=(Vcs[3]);          V68=(Vcs[3]);
401          {long V69;          {long V69;
402          if(((V67))==Cnil){          if(((V67))==Cnil){
403          goto T124;}          goto T125;}
404          V69= (long)(*(LnkLI34))((V67));          V69= (long)(*(LnkLI36))((V67));
405          goto T122;          goto T123;
406  goto T124;  goto T125;
407  T124:;  T125:;
408          V69= 0;          V69= 0;
409  goto T122;  goto T123;
410  T122:;  T123:;
411          {register long V70;          {register long V70;
412          V70= (long)(*(LnkLI35))((V68),(V65));          V70= (long)(*(LnkLI37))((V68),(V65));
413          if(!((V69)<=(V70))){          if(!((V69)<=(V70))){
414          goto T128;}          goto T129;}
415          goto T127;          goto T128;
416  goto T128;  goto T129;
417  T128:;  T129:;
418          V71 = make_fixnum(V69);          V71 = make_fixnum(V69);
419          V72 = make_fixnum(V70);          V72 = make_fixnum(V70);
420          (void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V71,V72)));
421  goto T127;  goto T128;
422  T127:;  T128:;
423          {register long V73;          {register long V73;
424          V73= V69;          V73= V69;
425  goto T132;  goto T133;
426  T132:;  T133:;
427          if(!((V73)>=(V70))){          if(!((V73)>=(V70))){
428          goto T133;}          goto T134;}
429          {object V74 = (V65);          {object V74 = (V65);
430          VMR9(V74)}          VMR9(V74)}
431  goto T133;  goto T134;
432  T133:;  T134:;
433          (void)(elt_set((V65),V73,(V66)));          (void)(elt_set((V65),V73,(V66)));
434          V73= (long)(1)+(V73);          V73= (long)(1)+(V73);
435          goto T132;}}}          goto T133;}}}
436          va_end(ap);          va_end(ap);
437          return Cnil;}          return Cnil;}
438          }}          }}
# Line 463  static object LI10(V76,V75,va_alist) Line 464  static object LI10(V76,V75,va_alist)
464          V82=(Vcs[5]);          V82=(Vcs[5]);
465          {long V83;          {long V83;
466          if(((V79))==Cnil){          if(((V79))==Cnil){
467          goto T143;}          goto T144;}
468          V83= (long)(*(LnkLI34))((V79));          V83= (long)(*(LnkLI36))((V79));
469          goto T141;          goto T142;
470  goto T143;  goto T144;
471  T143:;  T144:;
472          V83= 0;          V83= 0;
473  goto T141;  goto T142;
474  T141:;  T142:;
475          {long V84;          {long V84;
476          V84= (long)(*(LnkLI35))((V80),(V77));          V84= (long)(*(LnkLI37))((V80),(V77));
477          if(!((V83)<=(V84))){          if(!((V83)<=(V84))){
478          goto T147;}          goto T148;}
479          goto T146;          goto T147;
480  goto T147;  goto T148;
481  T147:;  T148:;
482          V85 = make_fixnum(V83);          V85 = make_fixnum(V83);
483          V86 = make_fixnum(V84);          V86 = make_fixnum(V84);
484          (void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V85,V86)));
485  goto T146;  goto T147;
486  T146:;  T147:;
487          {long V87;          {long V87;
488          if(((V81))==Cnil){          if(((V81))==Cnil){
489          goto T151;}          goto T152;}
490          V87= (long)(*(LnkLI34))((V81));          V87= (long)(*(LnkLI36))((V81));
491          goto T149;          goto T150;
492  goto T151;  goto T152;
493  T151:;  T152:;
494          V87= 0;          V87= 0;
495  goto T149;  goto T150;
496  T149:;  T150:;
497          {long V88;          {long V88;
498          V88= (long)(*(LnkLI35))((V82),(V78));          V88= (long)(*(LnkLI37))((V82),(V78));
499          if(!((V87)<=(V88))){          if(!((V87)<=(V88))){
500          goto T155;}          goto T156;}
501          goto T154;          goto T155;
502  goto T155;  goto T156;
503  T155:;  T156:;
504          V89 = make_fixnum(V87);          V89 = make_fixnum(V87);
505          V90 = make_fixnum(V88);          V90 = make_fixnum(V88);
506          (void)((VFUN_NARGS=2,(*(LnkLI31))(V89,V90)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V89,V90)));
507  goto T154;  goto T155;
508  T154:;  T155:;
509          if(!(((V77))==((V78)))){          if(!(((V77))==((V78)))){
510          goto T158;}          goto T159;}
511          if(!((V83)>(V87))){          if(!((V83)>(V87))){
512          goto T158;}          goto T159;}
513          {register long V91;          {register long V91;
514          long V92;          long V92;
515          register long V93;          register long V93;
516          register long V94;          register long V94;
517          V91= 0;          V91= 0;
518          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){
519          goto T165;}          goto T166;}
520          V92= (long)(V84)-(V83);          V92= (long)(V84)-(V83);
521          goto T163;          goto T164;
522  goto T165;  goto T166;
523  T165:;  T166:;
524          V92= (long)(V88)-(V87);          V92= (long)(V88)-(V87);
525  goto T163;  goto T164;
526  T163:;  T164:;
527          V93= (long)(V83)+((long)(-1)+(V92));          V93= (long)(V83)+((long)(-1)+(V92));
528          V94= (long)(V87)+((long)(-1)+(V92));          V94= (long)(V87)+((long)(-1)+(V92));
529  goto T170;  goto T171;
530  T170:;  T171:;
531          if(!((V91)>=(V92))){          if(!((V91)>=(V92))){
532          goto T171;}          goto T172;}
533          {object V95 = (V77);          {object V95 = (V77);
534          VMR10(V95)}          VMR10(V95)}
535  goto T171;  goto T172;
536  T171:;  T172:;
537          V96= elt((V78),V94);          V96= elt((V78),V94);
538          (void)(elt_set((V77),V93,/* INLINE-ARGS */V96));          (void)(elt_set((V77),V93,/* INLINE-ARGS */V96));
539          V91= (long)(1)+(V91);          V91= (long)(1)+(V91);
540          V93= (long)(-1)+(V93);          V93= (long)(-1)+(V93);
541          V94= (long)(-1)+(V94);          V94= (long)(-1)+(V94);
542          goto T170;}          goto T171;}
543  goto T158;  goto T159;
544  T158:;  T159:;
545          {register long V97;          {register long V97;
546          long V98;          long V98;
547          register long V99;          register long V99;
548          register long V100;          register long V100;
549          V97= 0;          V97= 0;
550          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){
551          goto T186;}          goto T187;}
552          V98= (long)(V84)-(V83);          V98= (long)(V84)-(V83);
553          goto T184;          goto T185;
554  goto T186;  goto T187;
555  T186:;  T187:;
556          V98= (long)(V88)-(V87);          V98= (long)(V88)-(V87);
557  goto T184;  goto T185;
558  T184:;  T185:;
559          V99= V83;          V99= V83;
560          V100= V87;          V100= V87;
561  goto T191;  goto T192;
562  T191:;  T192:;
563          if(!((V97)>=(V98))){          if(!((V97)>=(V98))){
564          goto T192;}          goto T193;}
565          {object V101 = (V77);          {object V101 = (V77);
566          VMR10(V101)}          VMR10(V101)}
567  goto T192;  goto T193;
568  T192:;  T193:;
569          V102= elt((V78),V100);          V102= elt((V78),V100);
570          (void)(elt_set((V77),V99,/* INLINE-ARGS */V102));          (void)(elt_set((V77),V99,/* INLINE-ARGS */V102));
571          V97= (long)(1)+(V97);          V97= (long)(1)+(V97);
572          V99= (long)(1)+(V99);          V99= (long)(1)+(V99);
573          V100= (long)(1)+(V100);          V100= (long)(1)+(V100);
574          goto T191;}}}}}          goto T192;}}}}}
575          va_end(ap);          va_end(ap);
576          return Cnil;}          return Cnil;}
577          }}          }}
# Line 606  static object LI11(V104,V103,va_alist) Line 607  static object LI11(V104,V103,va_alist)
607          V111=(Vcs[6]);          V111=(Vcs[6]);
608          V112=(Vcs[7]);          V112=(Vcs[7]);
609          if(Vcs[8]==0){          if(Vcs[8]==0){
610          V113= symbol_function(VV[33]);          V113= symbol_function(VV[35]);
611          }else{          }else{
612          V113=(Vcs[8]);}          V113=(Vcs[8]);}
613          if(!(((V113))==(Cnil))){          if(!(((V113))==(Cnil))){
614          goto T203;}          goto T204;}
615          V113= symbol_function(VV[33]);          V113= symbol_function(VV[35]);
616  goto T203;  goto T204;
617  T203:;  T204:;
618          {long V114;          {long V114;
619          if(((V110))==Cnil){          if(((V110))==Cnil){
620          goto T209;}          goto T210;}
621          V114= (long)(*(LnkLI34))((V110));          V114= (long)(*(LnkLI36))((V110));
622          goto T207;          goto T208;
623  goto T209;  goto T210;
624  T209:;  T210:;
625          V114= 0;          V114= 0;
626  goto T207;  goto T208;
627  T207:;  T208:;
628          {long V115;          {long V115;
629          V115= (long)(*(LnkLI35))((V111),(V106));          V115= (long)(*(LnkLI37))((V111),(V106));
630          if(!((V114)<=(V115))){          if(!((V114)<=(V115))){
631          goto T213;}          goto T214;}
632          goto T212;          goto T213;
633  goto T213;  goto T214;
634  T213:;  T214:;
635          V116 = make_fixnum(V114);          V116 = make_fixnum(V114);
636          V117 = make_fixnum(V115);          V117 = make_fixnum(V115);
637          (void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V116,V117)));
638  goto T212;  goto T213;
639  T212:;  T213:;
640          {long V118;          {long V118;
641          if(((V112))!=Cnil){          if(((V112))!=Cnil){
642          goto T217;}          goto T218;}
643          V118= 2147483647;          V118= 2147483647;
644          goto T215;          goto T216;
645  goto T217;  goto T218;
646  T217:;  T218:;
647          V118= fix((V112));          V118= fix((V112));
648  goto T215;  goto T216;
649  T215:;  T216:;
650          if((V108)==Cnil){          if((V108)==Cnil){
651          goto T220;}          goto T221;}
652          if((V109)==Cnil){          if((V109)==Cnil){
653          goto T220;}          goto T221;}
654          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
655  goto T220;  goto T221;
656  T220:;  T221:;
657          if(((V107))!=Cnil){          if(((V107))!=Cnil){
658          goto T222;}          goto T223;}
659          if(!(type_of((V106))==t_cons||((V106))==Cnil)){          if(!(type_of((V106))==t_cons||((V106))==Cnil)){
660          goto T225;}          goto T226;}
661          {register object V119;          {register object V119;
662          register object V120;          register object V120;
663          V119= (V106);          V119= (V106);
664          V120= Cnil;          V120= Cnil;
665          {register long V121;          {register long V121;
666          V121= 0;          V121= 0;
 goto T230;  
 T230:;  
         if(!((V121)>=(V114))){  
         goto T231;}  
         goto T227;  
667  goto T231;  goto T231;
668  T231:;  T231:;
669            if(!((V121)>=(V114))){
670            goto T232;}
671            goto T228;
672    goto T232;
673    T232:;
674          {register object V122;          {register object V122;
675          V122= car((V119));          V122= car((V119));
676          V120= make_cons((V122),(V120));}          V120= make_cons((V122),(V120));}
# Line 677  T231:; Line 678  T231:;
678          V123= car((V119));          V123= car((V119));
679          V119= cdr((V119));}          V119= cdr((V119));}
680          V121= (long)(1)+(V121);          V121= (long)(1)+(V121);
681          goto T230;}          goto T231;}
682  goto T227;  goto T228;
683  T227:;  T228:;
684          {register long V124;          {register long V124;
685          register long V125;          register long V125;
686          V124= V114;          V124= V114;
687          V125= 0;          V125= 0;
688  goto T248;  goto T249;
689  T248:;  T249:;
690          if((V124)>=(V115)){          if((V124)>=(V115)){
691          goto T250;}          goto T251;}
692          if((V125)>=(V118)){          if((V125)>=(V118)){
693          goto T250;}          goto T251;}
694          if(!(endp_prop((V119)))){          if(!(endp_prop((V119)))){
695          goto T249;}          goto T250;}
696  goto T250;  goto T251;
697  T250:;  T251:;
698          base[0]= (V120);          base[0]= (V120);
699          base[1]= (V119);          base[1]= (V119);
700          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 701  T250:; Line 702  T250:;
702          vs_top=sup;          vs_top=sup;
703          {object V126 = vs_base[0];          {object V126 = vs_base[0];
704          VMR11(V126)}          VMR11(V126)}
705  goto T249;  goto T250;
706  T249:;  T250:;
707          base[0]= car((V119));          base[0]= car((V119));
708          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
709          super_funcall_no_event((V113));          super_funcall_no_event((V113));
710          vs_top=sup;          vs_top=sup;
711          V127= vs_base[0];          V127= vs_base[0];
712          if(((*(LnkLI41))((V108),(V109),(V105),V127))==Cnil){          if(((*(LnkLI43))((V108),(V109),(V105),V127))==Cnil){
713          goto T261;}          goto T262;}
714          V125= (long)(1)+(V125);          V125= (long)(1)+(V125);
715          {register object V128;          {register object V128;
716          V128= car((V119));          V128= car((V119));
717          V119= cdr((V119));          V119= cdr((V119));
718          goto T259;}          goto T260;}
719  goto T261;  goto T262;
720  T261:;  T262:;
721          {register object V129;          {register object V129;
722          V129= car((V119));          V129= car((V119));
723          V120= make_cons((V129),(V120));}          V120= make_cons((V129),(V120));}
724          {register object V130;          {register object V130;
725          V130= car((V119));          V130= car((V119));
726          V119= cdr((V119));}          V119= cdr((V119));}
727  goto T259;  goto T260;
728  T259:;  T260:;
729          V124= (long)(1)+(V124);          V124= (long)(1)+(V124);
730          goto T248;}}          goto T249;}}
731  goto T225;  goto T226;
732  T225:;  T226:;
733          V131 = make_fixnum(V114);          V131 = make_fixnum(V114);
734          V132 = make_fixnum(V115);          V132 = make_fixnum(V115);
735          V133 = make_fixnum(V118);          V133 = make_fixnum(V118);
736          {object V134 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V131,VV[14],V132,VV[15],V133,VV[16],(V113)));          {object V134 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V131,VV[15],V132,VV[16],V133,VV[17],(V113)));
737          VMR11(V134)}          VMR11(V134)}
738  goto T222;  goto T223;
739  T222:;  T223:;
740          V135 = make_fixnum(V114);          V135 = make_fixnum(V114);
741          V136 = make_fixnum(V115);          V136 = make_fixnum(V115);
742          V137 = make_fixnum(V118);          V137 = make_fixnum(V118);
743          {object V138 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V135,VV[14],V136,VV[15],V137,VV[16],(V113)));          {object V138 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V135,VV[15],V136,VV[16],V137,VV[17],(V113)));
744          VMR11(V138)}}}}          VMR11(V138)}}}}
745          va_end(ap);          va_end(ap);
746          base[0]=base[0];          base[0]=base[0];
# Line 773  static object LI12(V140,V139,va_alist) Line 774  static object LI12(V140,V139,va_alist)
774          V145=(Vcs[4]);          V145=(Vcs[4]);
775          V146=(Vcs[5]);          V146=(Vcs[5]);
776          if(Vcs[6]==0){          if(Vcs[6]==0){
777          V147= symbol_function(VV[33]);          V147= symbol_function(VV[35]);
778          }else{          }else{
779          V147=(Vcs[6]);}          V147=(Vcs[6]);}
780          if(!(((V147))==(Cnil))){          if(!(((V147))==(Cnil))){
781          goto T280;}          goto T281;}
782          V147= symbol_function(VV[33]);          V147= symbol_function(VV[35]);
783  goto T280;  goto T281;
784  T280:;  T281:;
785          V148= symbol_function(VV[44]);          V148= symbol_function(VV[46]);
786          {object V149 = (VFUN_NARGS=14,(*(LnkLI43))((V141),(V142),VV[10],(V143),VV[11],V148,VV[13],(V144),VV[14],(V145),VV[15],(V146),VV[16],(V147)));          {object V149 = (VFUN_NARGS=14,(*(LnkLI45))((V141),(V142),VV[11],(V143),VV[12],V148,VV[14],(V144),VV[15],(V145),VV[16],(V146),VV[17],(V147)));
787          VMR12(V149)}          VMR12(V149)}
788          va_end(ap);          va_end(ap);
789          return Cnil;}          return Cnil;}
# Line 815  static object LI13(V151,V150,va_alist) Line 816  static object LI13(V151,V150,va_alist)
816          V156=(Vcs[4]);          V156=(Vcs[4]);
817          V157=(Vcs[5]);          V157=(Vcs[5]);
818          if(Vcs[6]==0){          if(Vcs[6]==0){
819          V158= symbol_function(VV[33]);          V158= symbol_function(VV[35]);
820          }else{          }else{
821          V158=(Vcs[6]);}          V158=(Vcs[6]);}
822          if(!(((V158))==(Cnil))){          if(!(((V158))==(Cnil))){
823          goto T286;}          goto T287;}
824          V158= symbol_function(VV[33]);          V158= symbol_function(VV[35]);
825  goto T286;  goto T287;
826  T286:;  T287:;
827          V159= symbol_function(VV[44]);          V159= symbol_function(VV[46]);
828          {object V160 = (VFUN_NARGS=14,(*(LnkLI43))((V152),(V153),VV[10],(V154),VV[12],V159,VV[13],(V155),VV[14],(V156),VV[15],(V157),VV[16],(V158)));          {object V160 = (VFUN_NARGS=14,(*(LnkLI45))((V152),(V153),VV[11],(V154),VV[13],V159,VV[14],(V155),VV[15],(V156),VV[16],(V157),VV[17],(V158)));
829          VMR13(V160)}          VMR13(V160)}
830          va_end(ap);          va_end(ap);
831          return Cnil;}          return Cnil;}
# Line 861  static object LI14(V162,V161,va_alist) Line 862  static object LI14(V162,V161,va_alist)
862          V169=(Vcs[6]);          V169=(Vcs[6]);
863          V170=(Vcs[7]);          V170=(Vcs[7]);
864          if(Vcs[8]==0){          if(Vcs[8]==0){
865          V171= symbol_function(VV[33]);          V171= symbol_function(VV[35]);
866          }else{          }else{
867          V171=(Vcs[8]);}          V171=(Vcs[8]);}
868          {long V172;          {long V172;
869          V172= (long)length((V164));          V172= (long)length((V164));
870          if(!(((V171))==(Cnil))){          if(!(((V171))==(Cnil))){
871          goto T293;}          goto T294;}
872          V171= symbol_function(VV[33]);          V171= symbol_function(VV[35]);
873  goto T293;  goto T294;
874  T293:;  T294:;
875          {register long V173;          {register long V173;
876          if(((V168))==Cnil){          if(((V168))==Cnil){
877          goto T299;}          goto T300;}
878          V173= (long)(*(LnkLI34))((V168));          V173= (long)(*(LnkLI36))((V168));
879          goto T297;          goto T298;
880  goto T299;  goto T300;
881  T299:;  T300:;
882          V173= 0;          V173= 0;
883  goto T297;  goto T298;
884  T297:;  T298:;
885          {long V174;          {long V174;
886          V174= (long)(*(LnkLI35))((V169),(V164));          V174= (long)(*(LnkLI37))((V169),(V164));
887          if(!((V173)<=(V174))){          if(!((V173)<=(V174))){
888          goto T303;}          goto T304;}
889          goto T302;          goto T303;
890  goto T303;  goto T304;
891  T303:;  T304:;
892          V175 = make_fixnum(V173);          V175 = make_fixnum(V173);
893          V176 = make_fixnum(V174);          V176 = make_fixnum(V174);
894          (void)((VFUN_NARGS=2,(*(LnkLI31))(V175,V176)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V175,V176)));
895  goto T302;  goto T303;
896  T302:;  T303:;
897          {register long V177;          {register long V177;
898          if(((V170))!=Cnil){          if(((V170))!=Cnil){
899          goto T307;}          goto T308;}
900          V177= 2147483647;          V177= 2147483647;
901          goto T305;          goto T306;
902  goto T307;  goto T308;
903  T307:;  T308:;
904          V177= fix((V170));          V177= fix((V170));
905  goto T305;  goto T306;
906  T305:;  T306:;
907          if((V166)==Cnil){          if((V166)==Cnil){
908          goto T310;}          goto T311;}
909          if((V167)==Cnil){          if((V167)==Cnil){
910          goto T310;}          goto T311;}
911          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
912  goto T310;  goto T311;
913  T310:;  T311:;
914          if(((V165))!=Cnil){          if(((V165))!=Cnil){
915          goto T312;}          goto T313;}
916          if(!(type_of((V164))==t_cons||((V164))==Cnil)){          if(!(type_of((V164))==t_cons||((V164))==Cnil)){
917          goto T315;}          goto T316;}
918          {object V178;          {object V178;
919          register object V179;          register object V179;
920          V178= make_cons(Cnil,(V164));          V178= make_cons(Cnil,(V164));
921          V179= (V178);          V179= (V178);
922          {long V180;          {long V180;
923          V180= 0;          V180= 0;
 goto T322;  
 T322:;  
         if(!((V180)>=(V173))){  
         goto T323;}  
         goto T319;  
924  goto T323;  goto T323;
925  T323:;  T323:;
926            if(!((V180)>=(V173))){
927            goto T324;}
928            goto T320;
929    goto T324;
930    T324:;
931          {object V181;          {object V181;
932          V181= car((V179));          V181= car((V179));
933          V179= cdr((V179));}          V179= cdr((V179));}
934          V180= (long)(1)+(V180);          V180= (long)(1)+(V180);
935          goto T322;}          goto T323;}
936  goto T319;  goto T320;
937  T319:;  T320:;
938          {long V182;          {long V182;
939          long V183;          long V183;
940          V182= V173;          V182= V173;
941          V183= 0;          V183= 0;
942  goto T337;  goto T338;
943  T337:;  T338:;
944          if((V182)>=(V174)){          if((V182)>=(V174)){
945          goto T339;}          goto T340;}
946          if((V183)>=(V177)){          if((V183)>=(V177)){
947          goto T339;}          goto T340;}
948          if(!(endp_prop(cdr((V179))))){          if(!(endp_prop(cdr((V179))))){
949          goto T338;}          goto T339;}
950  goto T339;  goto T340;
951  T339:;  T340:;
952          {object V184 = cdr((V178));          {object V184 = cdr((V178));
953          VMR14(V184)}          VMR14(V184)}
954  goto T338;  goto T339;
955  T338:;  T339:;
956          base[1]= cadr((V179));          base[1]= cadr((V179));
957          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
958          super_funcall_no_event((V171));          super_funcall_no_event((V171));
959          vs_top=sup;          vs_top=sup;
960          V185= vs_base[0];          V185= vs_base[0];
961          if(((*(LnkLI41))((V166),(V167),(V163),V185))==Cnil){          if(((*(LnkLI43))((V166),(V167),(V163),V185))==Cnil){
962          goto T348;}          goto T349;}
963          V183= (long)(1)+(V183);          V183= (long)(1)+(V183);
964          if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179));          if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179));
965          ((V179))->c.c_cdr = cddr((V179));          ((V179))->c.c_cdr = cddr((V179));
966          goto T346;          goto T347;
967  goto T348;  goto T349;
968  T348:;  T349:;
969          V179= cdr((V179));          V179= cdr((V179));
970  goto T346;  goto T347;
971  T346:;  T347:;
972          V182= (long)(1)+(V182);          V182= (long)(1)+(V182);
973          goto T337;}}          goto T338;}}
974  goto T315;  goto T316;
975  T315:;  T316:;
976          {long V186;          {long V186;
977          V187 = make_fixnum(V173);          V187 = make_fixnum(V173);
978          V188 = make_fixnum(V174);          V188 = make_fixnum(V174);
979          V189 = make_fixnum(V177);          V189 = make_fixnum(V177);
980          V186= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V187,VV[14],V188,VV[15],V189,VV[16],(V171))));          V186= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V187,VV[15],V188,VV[16],V189,VV[17],(V171))));
981          if(!((V186)<(V177))){          if(!((V186)<(V177))){
982          goto T359;}          goto T360;}
983          V177= V186;          V177= V186;
984  goto T359;  goto T360;
985  T359:;  T360:;
986          {object V190;          {object V190;
987          register long V191;          register long V191;
988          long V192;          long V192;
989          long V193;          long V193;
990          V194= (*(LnkLI47))((V164));          V194= (*(LnkLI49))((V164));
991          V195 = make_fixnum((long)(V172)-(V177));          V195 = make_fixnum((long)(V172)-(V177));
992          V190= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V194,V195));          V190= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V194,V195));
993          V191= 0;          V191= 0;
994          V192= 0;          V192= 0;
995          V193= 0;          V193= 0;
996  goto T368;  goto T369;
997  T368:;  T369:;
998          if(!((V191)>=(V172))){          if(!((V191)>=(V172))){
999          goto T369;}          goto T370;}
1000          {object V196 = (V190);          {object V196 = (V190);
1001          VMR14(V196)}          VMR14(V196)}
1002  goto T369;  goto T370;
1003  T369:;  T370:;
1004          if(!((V173)<=(V191))){          if(!((V173)<=(V191))){
1005          goto T375;}          goto T376;}
1006          if(!((V191)<(V174))){          if(!((V191)<(V174))){
1007          goto T375;}          goto T376;}
1008          if(!((V193)<(V177))){          if(!((V193)<(V177))){
1009          goto T375;}          goto T376;}
1010          base[0]= elt((V164),V191);          base[0]= elt((V164),V191);
1011          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1012          super_funcall_no_event((V171));          super_funcall_no_event((V171));
1013          vs_top=sup;          vs_top=sup;
1014          V197= vs_base[0];          V197= vs_base[0];
1015          if(((*(LnkLI41))((V166),(V167),(V163),V197))==Cnil){          if(((*(LnkLI43))((V166),(V167),(V163),V197))==Cnil){
1016          goto T375;}          goto T376;}
1017          V193= (long)(1)+(V193);          V193= (long)(1)+(V193);
1018          goto T373;          goto T374;
1019  goto T375;  goto T376;
1020  T375:;  T376:;
1021          V198= elt((V164),V191);          V198= elt((V164),V191);
1022          (void)(elt_set((V190),V192,/* INLINE-ARGS */V198));          (void)(elt_set((V190),V192,/* INLINE-ARGS */V198));
1023          V192= (long)(1)+(V192);          V192= (long)(1)+(V192);
1024  goto T373;  goto T374;
1025  T373:;  T374:;
1026          V191= (long)(1)+(V191);          V191= (long)(1)+(V191);
1027          goto T368;}}          goto T369;}}
1028  goto T312;  goto T313;
1029  T312:;  T313:;
1030          {long V199;          {long V199;
1031          V200 = make_fixnum(V173);          V200 = make_fixnum(V173);
1032          V201 = make_fixnum(V174);          V201 = make_fixnum(V174);
1033          V202 = make_fixnum(V177);          V202 = make_fixnum(V177);
1034          V199= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V200,VV[14],V201,VV[15],V202,VV[16],(V171))));          V199= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V200,VV[15],V201,VV[16],V202,VV[17],(V171))));
1035          if(!((V199)<(V177))){          if(!((V199)<(V177))){
1036          goto T392;}          goto T393;}
1037          V177= V199;          V177= V199;
1038  goto T392;  goto T393;
1039  T392:;  T393:;
1040          {object V203;          {object V203;
1041          register long V204;          register long V204;
1042          long V205;          long V205;
1043          long V206;          long V206;
1044          V207= (*(LnkLI47))((V164));          V207= (*(LnkLI49))((V164));
1045          V208 = make_fixnum((long)(V172)-(V177));          V208 = make_fixnum((long)(V172)-(V177));
1046          V203= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V207,V208));          V203= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V207,V208));
1047          V204= (long)(-1)+(V172);          V204= (long)(-1)+(V172);
1048          V205= (long)(-1)+((long)(V172)-(V177));          V205= (long)(-1)+((long)(V172)-(V177));
1049          V206= 0;          V206= 0;
1050  goto T401;  goto T402;
1051  T401:;  T402:;
1052          if(!((V204)<(0))){          if(!((V204)<(0))){
1053          goto T402;}          goto T403;}
1054          {object V209 = (V203);          {object V209 = (V203);
1055          VMR14(V209)}          VMR14(V209)}
1056  goto T402;  goto T403;
1057  T402:;  T403:;
1058          if(!((V173)<=(V204))){          if(!((V173)<=(V204))){
1059          goto T408;}          goto T409;}
1060          if(!((V204)<(V174))){          if(!((V204)<(V174))){
1061          goto T408;}          goto T409;}
1062          if(!((V206)<(V177))){          if(!((V206)<(V177))){
1063          goto T408;}          goto T409;}
1064          base[0]= elt((V164),V204);          base[0]= elt((V164),V204);
1065          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1066          super_funcall_no_event((V171));          super_funcall_no_event((V171));
1067          vs_top=sup;          vs_top=sup;
1068          V210= vs_base[0];          V210= vs_base[0];
1069          if(((*(LnkLI41))((V166),(V167),(V163),V210))==Cnil){          if(((*(LnkLI43))((V166),(V167),(V163),V210))==Cnil){
1070          goto T408;}          goto T409;}
1071          V206= (long)(1)+(V206);          V206= (long)(1)+(V206);
1072          goto T406;          goto T407;
1073  goto T408;  goto T409;
1074  T408:;  T409:;
1075          V211= elt((V164),V204);          V211= elt((V164),V204);
1076          (void)(elt_set((V203),V205,/* INLINE-ARGS */V211));          (void)(elt_set((V203),V205,/* INLINE-ARGS */V211));
1077          V205= (long)(-1)+(V205);          V205= (long)(-1)+(V205);
1078  goto T406;  goto T407;
1079  T406:;  T407:;
1080          V204= (long)(-1)+(V204);          V204= (long)(-1)+(V204);
1081          goto T401;}}}}}}          goto T402;}}}}}}
1082          va_end(ap);          va_end(ap);
1083          base[0]=base[0];          base[0]=base[0];
1084          return Cnil;}          return Cnil;}
# Line 1110  static object LI15(V213,V212,va_alist) Line 1111  static object LI15(V213,V212,va_alist)
1111          V218=(Vcs[4]);          V218=(Vcs[4]);
1112          V219=(Vcs[5]);          V219=(Vcs[5]);
1113          if(Vcs[6]==0){          if(Vcs[6]==0){
1114          V220= symbol_function(VV[33]);          V220= symbol_function(VV[35]);
1115          }else{          }else{
1116          V220=(Vcs[6]);}          V220=(Vcs[6]);}
1117          if(!(((V220))==(Cnil))){          if(!(((V220))==(Cnil))){
1118          goto T425;}          goto T426;}
1119          V220= symbol_function(VV[33]);          V220= symbol_function(VV[35]);
1120  goto T425;  goto T426;
1121  T425:;  T426:;
1122          V221= symbol_function(VV[44]);          V221= symbol_function(VV[46]);
1123          {object V222 = (VFUN_NARGS=14,(*(LnkLI42))((V214),(V215),VV[10],(V216),VV[11],V221,VV[13],(V217),VV[14],(V218),VV[15],(V219),VV[16],(V220)));          {object V222 = (VFUN_NARGS=14,(*(LnkLI44))((V214),(V215),VV[11],(V216),VV[12],V221,VV[14],(V217),VV[15],(V218),VV[16],(V219),VV[17],(V220)));
1124          VMR15(V222)}          VMR15(V222)}
1125          va_end(ap);          va_end(ap);
1126          return Cnil;}          return Cnil;}
# Line 1152  static object LI16(V224,V223,va_alist) Line 1153  static object LI16(V224,V223,va_alist)
1153          V229=(Vcs[4]);          V229=(Vcs[4]);
1154          V230=(Vcs[5]);          V230=(Vcs[5]);
1155          if(Vcs[6]==0){          if(Vcs[6]==0){
1156          V231= symbol_function(VV[33]);          V231= symbol_function(VV[35]);
1157          }else{          }else{
1158          V231=(Vcs[6]);}          V231=(Vcs[6]);}
1159          if(!(((V231))==(Cnil))){          if(!(((V231))==(Cnil))){
1160          goto T431;}          goto T432;}
1161          V231= symbol_function(VV[33]);          V231= symbol_function(VV[35]);
1162  goto T431;  goto T432;
1163  T431:;  T432:;
1164          V232= symbol_function(VV[44]);          V232= symbol_function(VV[46]);
1165          {object V233 = (VFUN_NARGS=14,(*(LnkLI42))((V225),(V226),VV[10],(V227),VV[12],V232,VV[13],(V228),VV[14],(V229),VV[15],(V230),VV[16],(V231)));          {object V233 = (VFUN_NARGS=14,(*(LnkLI44))((V225),(V226),VV[11],(V227),VV[13],V232,VV[14],(V228),VV[15],(V229),VV[16],(V230),VV[17],(V231)));
1166          VMR16(V233)}          VMR16(V233)}
1167          va_end(ap);          va_end(ap);
1168          return Cnil;}          return Cnil;}
# Line 1196  static object LI17(V235,V234,va_alist) Line 1197  static object LI17(V235,V234,va_alist)
1197          V241=(Vcs[5]);          V241=(Vcs[5]);
1198          V242=(Vcs[6]);          V242=(Vcs[6]);
1199          if(Vcs[7]==0){          if(Vcs[7]==0){
1200          V243= symbol_function(VV[33]);          V243= symbol_function(VV[35]);
1201          }else{          }else{
1202          V243=(Vcs[7]);}          V243=(Vcs[7]);}
1203          if(!(((V243))==(Cnil))){          if(!(((V243))==(Cnil))){
1204          goto T437;}          goto T438;}
1205          V243= symbol_function(VV[33]);          V243= symbol_function(VV[35]);
1206  goto T437;  goto T438;
1207  T437:;  T438:;
1208          {long V244;          {long V244;
1209          if(((V241))==Cnil){          if(((V241))==Cnil){
1210          goto T443;}          goto T444;}
1211          V244= (long)(*(LnkLI34))((V241));          V244= (long)(*(LnkLI36))((V241));
1212          goto T441;          goto T442;
1213  goto T443;  goto T444;
1214  T443:;  T444:;
1215          V244= 0;          V244= 0;
1216  goto T441;  goto T442;
1217  T441:;  T442:;
1218          {long V245;          {long V245;
1219          V245= (long)(*(LnkLI35))((V242),(V237));          V245= (long)(*(LnkLI37))((V242),(V237));
1220          if(!((V244)<=(V245))){          if(!((V244)<=(V245))){
1221          goto T447;}          goto T448;}
1222          goto T446;          goto T447;
1223  goto T447;  goto T448;
1224  T447:;  T448:;
1225          V246 = make_fixnum(V244);          V246 = make_fixnum(V244);
1226          V247 = make_fixnum(V245);          V247 = make_fixnum(V245);
1227          (void)((VFUN_NARGS=2,(*(LnkLI31))(V246,V247)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V246,V247)));
1228  goto T446;  goto T447;
1229  T446:;  T447:;
1230          if((V239)==Cnil){          if((V239)==Cnil){
1231          goto T449;}          goto T450;}
1232          if((V240)==Cnil){          if((V240)==Cnil){
1233          goto T449;}          goto T450;}
1234          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
1235  goto T449;  goto T450;
1236  T449:;  T450:;
1237          if(((V238))!=Cnil){          if(((V238))!=Cnil){
1238          goto T451;}          goto T452;}
1239          {register long V248;          {register long V248;
1240          register long V249;          register long V249;
1241          V248= V244;          V248= V244;
1242          V249= 0;          V249= 0;
1243  goto T456;  goto T457;
1244  T456:;  T457:;
1245          if(!((V248)>=(V245))){          if(!((V248)>=(V245))){
1246          goto T457;}          goto T458;}
1247          {object V250 = make_fixnum(V249);          {object V250 = make_fixnum(V249);
1248          VMR17(V250)}          VMR17(V250)}
1249  goto T457;  goto T458;
1250  T457:;  T458:;
1251          base[0]= elt((V237),V248);          base[0]= elt((V237),V248);
1252          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1253          super_funcall_no_event((V243));          super_funcall_no_event((V243));
1254          vs_top=sup;          vs_top=sup;
1255          V251= vs_base[0];          V251= vs_base[0];
1256          if(((*(LnkLI41))((V239),(V240),(V236),V251))==Cnil){          if(((*(LnkLI43))((V239),(V240),(V236),V251))==Cnil){
1257          goto T461;}          goto T462;}
1258          V249= (long)(1)+(V249);          V249= (long)(1)+(V249);
1259  goto T461;  goto T462;
1260  T461:;  T462:;
1261          V248= (long)(1)+(V248);          V248= (long)(1)+(V248);
1262          goto T456;}          goto T457;}
1263  goto T451;  goto T452;
1264  T451:;  T452:;
1265          {register long V252;          {register long V252;
1266          register long V253;          register long V253;
1267          V252= (long)(-1)+(V245);          V252= (long)(-1)+(V245);
1268          V253= 0;          V253= 0;
1269  goto T473;  goto T474;
1270  T473:;  T474:;
1271          if(!((V252)<(V244))){          if(!((V252)<(V244))){
1272          goto T474;}          goto T475;}
1273          {object V254 = make_fixnum(V253);          {object V254 = make_fixnum(V253);
1274          VMR17(V254)}          VMR17(V254)}
1275  goto T474;  goto T475;
1276  T474:;  T475:;
1277          base[0]= elt((V237),V252);          base[0]= elt((V237),V252);
1278          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1279          super_funcall_no_event((V243));          super_funcall_no_event((V243));
1280          vs_top=sup;          vs_top=sup;
1281          V255= vs_base[0];          V255= vs_base[0];
1282          if(((*(LnkLI41))((V239),(V240),(V236),V255))==Cnil){          if(((*(LnkLI43))((V239),(V240),(V236),V255))==Cnil){
1283          goto T478;}          goto T479;}
1284          V253= (long)(1)+(V253);          V253= (long)(1)+(V253);
1285  goto T478;  goto T479;
1286  T478:;  T479:;
1287          V252= (long)(-1)+(V252);          V252= (long)(-1)+(V252);
1288          goto T473;}}}          goto T474;}}}
1289          va_end(ap);          va_end(ap);
1290          base[0]=base[0];          base[0]=base[0];
1291          return Cnil;}          return Cnil;}
# Line 1315  static object LI18(V257,V256,va_alist) Line 1316  static object LI18(V257,V256,va_alist)
1316          V261=(Vcs[3]);          V261=(Vcs[3]);
1317          V262=(Vcs[4]);          V262=(Vcs[4]);
1318          if(Vcs[5]==0){          if(Vcs[5]==0){
1319          V263= symbol_function(VV[33]);          V263= symbol_function(VV[35]);
1320          }else{          }else{
1321          V263=(Vcs[5]);}          V263=(Vcs[5]);}
1322          if(!(((V263))==(Cnil))){          if(!(((V263))==(Cnil))){
1323          goto T488;}          goto T489;}
1324          V263= symbol_function(VV[33]);          V263= symbol_function(VV[35]);
1325  goto T488;  goto T489;
1326  T488:;  T489:;
1327          V264= symbol_function(VV[44]);          V264= symbol_function(VV[46]);
1328          {object V265 = (VFUN_NARGS=12,(*(LnkLI48))((V258),(V259),VV[10],(V260),VV[11],V264,VV[13],(V261),VV[14],(V262),VV[16],(V263)));          {object V265 = (VFUN_NARGS=12,(*(LnkLI50))((V258),(V259),VV[11],(V260),VV[12],V264,VV[14],(V261),VV[15],(V262),VV[17],(V263)));
1329          VMR18(V265)}          VMR18(V265)}
1330          va_end(ap);          va_end(ap);
1331          return Cnil;}          return Cnil;}
# Line 1355  static object LI19(V267,V266,va_alist) Line 1356  static object LI19(V267,V266,va_alist)
1356          V271=(Vcs[3]);          V271=(Vcs[3]);
1357          V272=(Vcs[4]);          V272=(Vcs[4]);
1358          if(Vcs[5]==0){          if(Vcs[5]==0){
1359          V273= symbol_function(VV[33]);          V273= symbol_function(VV[35]);
1360          }else{          }else{
1361          V273=(Vcs[5]);}          V273=(Vcs[5]);}
1362          if(!(((V273))==(Cnil))){          if(!(((V273))==(Cnil))){
1363          goto T494;}          goto T495;}
1364          V273= symbol_function(VV[33]);          V273= symbol_function(VV[35]);
1365  goto T494;  goto T495;
1366  T494:;  T495:;
1367          V274= symbol_function(VV[44]);          V274= symbol_function(VV[46]);
1368          {object V275 = (VFUN_NARGS=12,(*(LnkLI48))((V268),(V269),VV[10],(V270),VV[12],V274,VV[13],(V271),VV[14],(V272),VV[16],(V273)));          {object V275 = (VFUN_NARGS=12,(*(LnkLI50))((V268),(V269),VV[11],(V270),VV[13],V274,VV[14],(V271),VV[15],(V272),VV[17],(V273)));
1369          VMR19(V275)}          VMR19(V275)}
1370          va_end(ap);          va_end(ap);
1371          return Cnil;}          return Cnil;}
# Line 1401  static object LI20(V277,V276,va_alist) Line 1402  static object LI20(V277,V276,va_alist)
1402          V284=(Vcs[6]);          V284=(Vcs[6]);
1403          V285=(Vcs[7]);          V285=(Vcs[7]);
1404          if(Vcs[8]==0){          if(Vcs[8]==0){
1405          V286= symbol_function(VV[33]);          V286= symbol_function(VV[35]);
1406          }else{          }else{
1407          V286=(Vcs[8]);}          V286=(Vcs[8]);}
1408          if(!(((V286))==(Cnil))){          if(!(((V286))==(Cnil))){
1409          goto T500;}          goto T501;}
1410          V286= symbol_function(VV[33]);          V286= symbol_function(VV[35]);
1411  goto T500;  goto T501;
1412  T500:;  T501:;
1413          {long V287;          {long V287;
1414          if(((V283))==Cnil){          if(((V283))==Cnil){
1415          goto T506;}          goto T507;}
1416          V287= (long)(*(LnkLI34))((V283));          V287= (long)(*(LnkLI36))((V283));
1417          goto T504;          goto T505;
1418  goto T506;  goto T507;
1419  T506:;  T507:;
1420          V287= 0;          V287= 0;
1421  goto T504;  goto T505;
1422  T504:;  T505:;
1423          {long V288;          {long V288;
1424          V288= (long)(*(LnkLI35))((V284),(V279));          V288= (long)(*(LnkLI37))((V284),(V279));
1425          if(!((V287)<=(V288))){          if(!((V287)<=(V288))){
1426          goto T510;}          goto T511;}
1427          goto T509;          goto T510;
1428  goto T510;  goto T511;
1429  T510:;  T511:;
1430          V289 = make_fixnum(V287);          V289 = make_fixnum(V287);
1431          V290 = make_fixnum(V288);          V290 = make_fixnum(V288);
1432          (void)((VFUN_NARGS=2,(*(LnkLI31))(V289,V290)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V289,V290)));
1433  goto T509;  goto T510;
1434  T509:;  T510:;
1435          {long V291;          {long V291;
1436          if(((V285))!=Cnil){          if(((V285))!=Cnil){
1437          goto T514;}          goto T515;}
1438          V291= 2147483647;          V291= 2147483647;
1439          goto T512;          goto T513;
1440  goto T514;  goto T515;
1441  T514:;  T515:;
1442          V291= fix((V285));          V291= fix((V285));
1443  goto T512;  goto T513;
1444  T512:;  T513:;
1445          if((V281)==Cnil){          if((V281)==Cnil){
1446          goto T517;}          goto T518;}
1447          if((V282)==Cnil){          if((V282)==Cnil){
1448          goto T517;}          goto T518;}
1449          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
1450  goto T517;  goto T518;
1451  T517:;  T518:;
1452          if(((V280))!=Cnil){          if(((V280))!=Cnil){
1453          goto T519;}          goto T520;}
1454          {register long V292;          {register long V292;
1455          register long V293;          register long V293;
1456          V292= V287;          V292= V287;
1457          V293= 0;          V293= 0;
1458  goto T524;  goto T525;
1459  T524:;  T525:;
1460          if(!((V292)>=(V288))){          if(!((V292)>=(V288))){
1461          goto T525;}          goto T526;}
1462          {object V294 = make_fixnum(V293);          {object V294 = make_fixnum(V293);
1463          VMR20(V294)}          VMR20(V294)}
1464  goto T525;  goto T526;
1465  T525:;  T526:;
1466          if(!((V293)<(V291))){          if(!((V293)<(V291))){
1467          goto T529;}          goto T530;}
1468          base[0]= elt((V279),V292);          base[0]= elt((V279),V292);
1469          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1470          super_funcall_no_event((V286));          super_funcall_no_event((V286));
1471          vs_top=sup;          vs_top=sup;
1472          V295= vs_base[0];          V295= vs_base[0];
1473          if(((*(LnkLI41))((V281),(V282),(V278),V295))==Cnil){          if(((*(LnkLI43))((V281),(V282),(V278),V295))==Cnil){
1474          goto T529;}          goto T530;}
1475          V293= (long)(1)+(V293);          V293= (long)(1)+(V293);
1476  goto T529;  goto T530;
1477  T529:;  T530:;
1478          V292= (long)(1)+(V292);          V292= (long)(1)+(V292);
1479          goto T524;}          goto T525;}
1480  goto T519;  goto T520;
1481  T519:;  T520:;
1482          {register long V296;          {register long V296;
1483          register long V297;          register long V297;
1484          V296= (long)(-1)+(V288);          V296= (long)(-1)+(V288);
1485          V297= 0;          V297= 0;
1486  goto T543;  goto T544;
1487  T543:;  T544:;
1488          if(!((V296)<(V287))){          if(!((V296)<(V287))){
1489          goto T544;}          goto T545;}
1490          {object V298 = make_fixnum(V297);          {object V298 = make_fixnum(V297);
1491          VMR20(V298)}          VMR20(V298)}
1492  goto T544;  goto T545;
1493  T544:;  T545:;
1494          if(!((V297)<(V291))){          if(!((V297)<(V291))){
1495          goto T548;}          goto T549;}
1496          base[0]= elt((V279),V296);          base[0]= elt((V279),V296);
1497          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1498          super_funcall_no_event((V286));          super_funcall_no_event((V286));
1499          vs_top=sup;          vs_top=sup;
1500          V299= vs_base[0];          V299= vs_base[0];
1501          if(((*(LnkLI41))((V281),(V282),(V278),V299))==Cnil){          if(((*(LnkLI43))((V281),(V282),(V278),V299))==Cnil){
1502          goto T548;}          goto T549;}
1503          V297= (long)(1)+(V297);          V297= (long)(1)+(V297);
1504  goto T548;  goto T549;
1505  T548:;  T549:;
1506          V296= (long)(-1)+(V296);          V296= (long)(-1)+(V296);
1507          goto T543;}}}}          goto T544;}}}}
1508          va_end(ap);          va_end(ap);
1509          base[0]=base[0];          base[0]=base[0];
1510          return Cnil;}          return Cnil;}
# Line 1536  static object LI21(V301,V300,va_alist) Line 1537  static object LI21(V301,V300,va_alist)
1537          V306=(Vcs[4]);          V306=(Vcs[4]);
1538          V307=(Vcs[5]);          V307=(Vcs[5]);
1539          if(Vcs[6]==0){          if(Vcs[6]==0){
1540          V308= symbol_function(VV[33]);          V308= symbol_function(VV[35]);
1541          }else{          }else{
1542          V308=(Vcs[6]);}          V308=(Vcs[6]);}
1543          if(!(((V308))==(Cnil))){          if(!(((V308))==(Cnil))){
1544          goto T560;}          goto T561;}
1545          V308= symbol_function(VV[33]);          V308= symbol_function(VV[35]);
1546  goto T560;  goto T561;
1547  T560:;  T561:;
1548          V309= symbol_function(VV[44]);          V309= symbol_function(VV[46]);
1549          {object V310 = (VFUN_NARGS=14,(*(LnkLI45))((V302),(V303),VV[10],(V304),VV[11],V309,VV[13],(V305),VV[14],(V306),VV[15],(V307),VV[16],(V308)));          {object V310 = (VFUN_NARGS=14,(*(LnkLI47))((V302),(V303),VV[11],(V304),VV[12],V309,VV[14],(V305),VV[15],(V306),VV[16],(V307),VV[17],(V308)));
1550          VMR21(V310)}          VMR21(V310)}
1551          va_end(ap);          va_end(ap);
1552          return Cnil;}          return Cnil;}
# Line 1578  static object LI22(V312,V311,va_alist) Line 1579  static object LI22(V312,V311,va_alist)
1579          V317=(Vcs[4]);          V317=(Vcs[4]);
1580          V318=(Vcs[5]);          V318=(Vcs[5]);
1581          if(Vcs[6]==0){          if(Vcs[6]==0){
1582          V319= symbol_function(VV[33]);          V319= symbol_function(VV[35]);
1583          }else{          }else{
1584          V319=(Vcs[6]);}          V319=(Vcs[6]);}
1585          if(!(((V319))==(Cnil))){          if(!(((V319))==(Cnil))){
1586          goto T566;}          goto T567;}
1587          V319= symbol_function(VV[33]);          V319= symbol_function(VV[35]);
1588  goto T566;  goto T567;
1589  T566:;  T567:;
1590          V320= symbol_function(VV[44]);          V320= symbol_function(VV[46]);
1591          {object V321 = (VFUN_NARGS=14,(*(LnkLI45))((V313),(V314),VV[10],(V315),VV[12],V320,VV[13],(V316),VV[14],(V317),VV[15],(V318),VV[16],(V319)));          {object V321 = (VFUN_NARGS=14,(*(LnkLI47))((V313),(V314),VV[11],(V315),VV[13],V320,VV[14],(V316),VV[15],(V317),VV[16],(V318),VV[17],(V319)));
1592          VMR22(V321)}          VMR22(V321)}
1593          va_end(ap);          va_end(ap);
1594          return Cnil;}          return Cnil;}
# Line 1626  static object LI23(V324,V323,V322,va_ali Line 1627  static object LI23(V324,V323,V322,va_ali
1627          V332=(Vcs[7]);          V332=(Vcs[7]);
1628          V333=(Vcs[8]);          V333=(Vcs[8]);
1629          if(Vcs[9]==0){          if(Vcs[9]==0){
1630          V334= symbol_function(VV[33]);          V334= symbol_function(VV[35]);
1631          }else{          }else{
1632          V334=(Vcs[9]);}          V334=(Vcs[9]);}
1633          {long V335;          {long V335;
1634          V335= (long)length((V327));          V335= (long)length((V327));
1635          if(!(((V334))==(Cnil))){          if(!(((V334))==(Cnil))){
1636          goto T573;}          goto T574;}
1637          V334= symbol_function(VV[33]);          V334= symbol_function(VV[35]);
1638  goto T573;  goto T574;
1639  T573:;  T574:;
1640          {long V336;          {long V336;
1641          if(((V331))==Cnil){          if(((V331))==Cnil){
1642          goto T579;}          goto T580;}
1643          V336= (long)(*(LnkLI34))((V331));          V336= (long)(*(LnkLI36))((V331));
1644          goto T577;          goto T578;
1645  goto T579;  goto T580;
1646  T579:;  T580:;
1647          V336= 0;          V336= 0;
1648  goto T577;  goto T578;
1649  T577:;  T578:;
1650          {long V337;          {long V337;
1651          V337= (long)(*(LnkLI35))((V332),(V327));          V337= (long)(*(LnkLI37))((V332),(V327));
1652          if(!((V336)<=(V337))){          if(!((V336)<=(V337))){
1653          goto T583;}          goto T584;}
1654          goto T582;          goto T583;
1655  goto T583;  goto T584;
1656  T583:;  T584:;
1657          V338 = make_fixnum(V336);          V338 = make_fixnum(V336);
1658          V339 = make_fixnum(V337);          V339 = make_fixnum(V337);
1659          (void)((VFUN_NARGS=2,(*(LnkLI31))(V338,V339)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V338,V339)));
1660  goto T582;  goto T583;
1661  T582:;  T583:;
1662          {long V340;          {long V340;
1663          if(((V333))!=Cnil){          if(((V333))!=Cnil){
1664          goto T587;}          goto T588;}
1665          V340= 2147483647;          V340= 2147483647;
1666          goto T585;          goto T586;
1667  goto T587;  goto T588;
1668  T587:;  T588:;
1669          V340= fix((V333));          V340= fix((V333));
1670  goto T585;  goto T586;
1671  T585:;  T586:;
1672          if((V329)==Cnil){          if((V329)==Cnil){
1673          goto T590;}          goto T591;}
1674          if((V330)==Cnil){          if((V330)==Cnil){
1675          goto T590;}          goto T591;}
1676          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
1677  goto T590;  goto T591;
1678  T590:;  T591:;
1679          if(((V328))!=Cnil){          if(((V328))!=Cnil){
1680          goto T592;}          goto T593;}
1681          {register object V341;          {register object V341;
1682          register long V342;          register long V342;
1683          register long V343;          register long V343;
1684          V344= (*(LnkLI47))((V327));          V344= (*(LnkLI49))((V327));
1685          V345 = make_fixnum(V335);          V345 = make_fixnum(V335);
1686          V341= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V344,V345));          V341= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V344,V345));
1687          V342= 0;          V342= 0;
1688          V343= 0;          V343= 0;
1689  goto T598;  goto T599;
1690  T598:;  T599:;
1691          if(!((V342)>=(V335))){          if(!((V342)>=(V335))){
1692          goto T599;}          goto T600;}
1693          {object V346 = (V341);          {object V346 = (V341);
1694          VMR23(V346)}          VMR23(V346)}
1695  goto T599;  goto T600;
1696  T599:;  T600:;
1697          if(!((V336)<=(V342))){          if(!((V336)<=(V342))){
1698          goto T605;}          goto T606;}
1699          if(!((V342)<(V337))){          if(!((V342)<(V337))){
1700          goto T605;}          goto T606;}
1701          if(!((V343)<(V340))){          if(!((V343)<(V340))){
1702          goto T605;}          goto T606;}
1703          base[0]= elt((V327),V342);          base[0]= elt((V327),V342);
1704          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1705          super_funcall_no_event((V334));          super_funcall_no_event((V334));
1706          vs_top=sup;          vs_top=sup;
1707          V347= vs_base[0];          V347= vs_base[0];
1708          if(((*(LnkLI41))((V329),(V330),(V326),V347))==Cnil){          if(((*(LnkLI43))((V329),(V330),(V326),V347))==Cnil){
1709          goto T605;}          goto T606;}
1710          (void)(elt_set((V341),V342,(V325)));          (void)(elt_set((V341),V342,(V325)));
1711          V343= (long)(1)+(V343);          V343= (long)(1)+(V343);
1712          goto T603;          goto T604;
1713  goto T605;  goto T606;
1714  T605:;  T606:;
1715          V348= elt((V327),V342);          V348= elt((V327),V342);
1716          (void)(elt_set((V341),V342,/* INLINE-ARGS */V348));          (void)(elt_set((V341),V342,/* INLINE-ARGS */V348));
1717  goto T603;  goto T604;
1718  T603:;  T604:;
1719          V342= (long)(1)+(V342);          V342= (long)(1)+(V342);
1720          goto T598;}          goto T599;}
1721  goto T592;  goto T593;
1722  T592:;  T593:;
1723          {register object V349;          {register object V349;
1724          register long V350;          register long V350;
1725          register long V351;          register long V351;
1726          V352= (*(LnkLI47))((V327));          V352= (*(LnkLI49))((V327));
1727          V353 = make_fixnum(V335);          V353 = make_fixnum(V335);
1728          V349= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V352,V353));          V349= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V352,V353));
1729          V350= (long)(-1)+(V335);          V350= (long)(-1)+(V335);
1730          V351= 0;          V351= 0;
1731  goto T624;  goto T625;
1732  T624:;  T625:;
1733          if(!((V350)<(0))){          if(!((V350)<(0))){
1734          goto T625;}          goto T626;}
1735          {object V354 = (V349);          {object V354 = (V349);
1736          VMR23(V354)}          VMR23(V354)}
1737  goto T625;  goto T626;
1738  T625:;  T626:;
1739          if(!((V336)<=(V350))){          if(!((V336)<=(V350))){
1740          goto T631;}          goto T632;}
1741          if(!((V350)<(V337))){          if(!((V350)<(V337))){
1742          goto T631;}          goto T632;}
1743          if(!((V351)<(V340))){          if(!((V351)<(V340))){
1744          goto T631;}          goto T632;}
1745          base[0]= elt((V327),V350);          base[0]= elt((V327),V350);
1746          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1747          super_funcall_no_event((V334));          super_funcall_no_event((V334));
1748          vs_top=sup;          vs_top=sup;
1749          V355= vs_base[0];          V355= vs_base[0];
1750          if(((*(LnkLI41))((V329),(V330),(V326),V355))==Cnil){          if(((*(LnkLI43))((V329),(V330),(V326),V355))==Cnil){
1751          goto T631;}          goto T632;}
1752          (void)(elt_set((V349),V350,(V325)));          (void)(elt_set((V349),V350,(V325)));
1753          V351= (long)(1)+(V351);          V351= (long)(1)+(V351);
1754          goto T629;          goto T630;
1755  goto T631;  goto T632;
1756  T631:;  T632:;
1757          V356= elt((V327),V350);          V356= elt((V327),V350);
1758          (void)(elt_set((V349),V350,/* INLINE-ARGS */V356));          (void)(elt_set((V349),V350,/* INLINE-ARGS */V356));
1759  goto T629;  goto T630;
1760  T629:;  T630:;
1761          V350= (long)(-1)+(V350);          V350= (long)(-1)+(V350);
1762          goto T624;}}}}}          goto T625;}}}}}
1763          va_end(ap);          va_end(ap);
1764          base[0]=base[0];          base[0]=base[0];
1765          return Cnil;}          return Cnil;}
# Line 1793  static object LI24(V359,V358,V357,va_ali Line 1794  static object LI24(V359,V358,V357,va_ali
1794          V365=(Vcs[5]);          V365=(Vcs[5]);
1795          V366=(Vcs[6]);          V366=(Vcs[6]);
1796          if(Vcs[7]==0){          if(Vcs[7]==0){
1797          V367= symbol_function(VV[33]);          V367= symbol_function(VV[35]);
1798          }else{          }else{
1799          V367=(Vcs[7]);}          V367=(Vcs[7]);}
1800          if(!(((V367))==(Cnil))){          if(!(((V367))==(Cnil))){
1801          goto T647;}          goto T648;}
1802          V367= symbol_function(VV[33]);          V367= symbol_function(VV[35]);
1803  goto T647;  goto T648;
1804  T647:;  T648:;
1805          V368= symbol_function(VV[44]);          V368= symbol_function(VV[46]);
1806          {object V369 = (VFUN_NARGS=15,(*(LnkLI49))((V360),(V361),(V362),VV[10],(V363),VV[11],V368,VV[13],(V364),VV[14],(V365),VV[15],(V366),VV[16],(V367)));          {object V369 = (VFUN_NARGS=15,(*(LnkLI51))((V360),(V361),(V362),VV[11],(V363),VV[12],V368,VV[14],(V364),VV[15],(V365),VV[16],(V366),VV[17],(V367)));
1807          VMR24(V369)}          VMR24(V369)}
1808          va_end(ap);          va_end(ap);
1809          return Cnil;}          return Cnil;}
# Line 1837  static object LI25(V372,V371,V370,va_ali Line 1838  static object LI25(V372,V371,V370,va_ali
1838          V378=(Vcs[5]);          V378=(Vcs[5]);
1839          V379=(Vcs[6]);          V379=(Vcs[6]);
1840          if(Vcs[7]==0){          if(Vcs[7]==0){
1841          V380= symbol_function(VV[33]);          V380= symbol_function(VV[35]);
1842          }else{          }else{
1843          V380=(Vcs[7]);}          V380=(Vcs[7]);}
1844          if(!(((V380))==(Cnil))){          if(!(((V380))==(Cnil))){
1845          goto T653;}          goto T654;}
1846          V380= symbol_function(VV[33]);          V380= symbol_function(VV[35]);
1847  goto T653;  goto T654;
1848  T653:;  T654:;
1849          V381= symbol_function(VV[44]);          V381= symbol_function(VV[46]);
1850          {object V382 = (VFUN_NARGS=15,(*(LnkLI49))((V373),(V374),(V375),VV[10],(V376),VV[12],V381,VV[13],(V377),VV[14],(V378),VV[15],(V379),VV[16],(V380)));          {object V382 = (VFUN_NARGS=15,(*(LnkLI51))((V373),(V374),(V375),VV[11],(V376),VV[13],V381,VV[14],(V377),VV[15],(V378),VV[16],(V379),VV[17],(V380)));
1851          VMR25(V382)}          VMR25(V382)}
1852          va_end(ap);          va_end(ap);
1853          return Cnil;}          return Cnil;}
# Line 1885  static object LI26(V385,V384,V383,va_ali Line 1886  static object LI26(V385,V384,V383,va_ali
1886          V393=(Vcs[7]);          V393=(Vcs[7]);
1887          V394=(Vcs[8]);          V394=(Vcs[8]);
1888          if(Vcs[9]==0){          if(Vcs[9]==0){
1889          V395= symbol_function(VV[33]);          V395= symbol_function(VV[35]);
1890          }else{          }else{
1891          V395=(Vcs[9]);}          V395=(Vcs[9]);}
1892          if(!(((V395))==(Cnil))){          if(!(((V395))==(Cnil))){
1893          goto T659;}          goto T660;}
1894          V395= symbol_function(VV[33]);          V395= symbol_function(VV[35]);
1895  goto T659;  goto T660;
1896  T659:;  T660:;
1897          {long V396;          {long V396;
1898          if(((V392))==Cnil){          if(((V392))==Cnil){
1899          goto T665;}          goto T666;}
1900          V396= (long)(*(LnkLI34))((V392));          V396= (long)(*(LnkLI36))((V392));
1901          goto T663;          goto T664;
1902  goto T665;  goto T666;
1903  T665:;  T666:;
1904          V396= 0;          V396= 0;
1905  goto T663;  goto T664;
1906  T663:;  T664:;
1907          {long V397;          {long V397;
1908          V397= (long)(*(LnkLI35))((V393),(V388));          V397= (long)(*(LnkLI37))((V393),(V388));
1909          if(!((V396)<=(V397))){          if(!((V396)<=(V397))){
1910          goto T669;}          goto T670;}
1911          goto T668;          goto T669;
1912  goto T669;  goto T670;
1913  T669:;  T670:;
1914          V398 = make_fixnum(V396);          V398 = make_fixnum(V396);
1915          V399 = make_fixnum(V397);          V399 = make_fixnum(V397);
1916          (void)((VFUN_NARGS=2,(*(LnkLI31))(V398,V399)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V398,V399)));
1917  goto T668;  goto T669;
1918  T668:;  T669:;
1919          {long V400;          {long V400;
1920          if(((V394))!=Cnil){          if(((V394))!=Cnil){
1921          goto T673;}          goto T674;}
1922          V400= 2147483647;          V400= 2147483647;
1923          goto T671;          goto T672;
1924  goto T673;  goto T674;
1925  T673:;  T674:;
1926          V400= fix((V394));          V400= fix((V394));
1927  goto T671;  goto T672;
1928  T671:;  T672:;
1929          if((V390)==Cnil){          if((V390)==Cnil){
1930          goto T676;}          goto T677;}
1931          if((V391)==Cnil){          if((V391)==Cnil){
1932          goto T676;}          goto T677;}
1933          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
1934  goto T676;  goto T677;
1935  T676:;  T677:;
1936          if(((V389))!=Cnil){          if(((V389))!=Cnil){
1937          goto T678;}          goto T679;}
1938          {register long V401;          {register long V401;
1939          register long V402;          register long V402;
1940          V401= V396;          V401= V396;
1941          V402= 0;          V402= 0;
1942  goto T683;  goto T684;
1943  T683:;  T684:;
1944          if(!((V401)>=(V397))){          if(!((V401)>=(V397))){
1945          goto T684;}          goto T685;}
1946          {object V403 = (V388);          {object V403 = (V388);
1947          VMR26(V403)}          VMR26(V403)}
1948  goto T684;  goto T685;
1949  T684:;  T685:;
1950          if(!((V402)<(V400))){          if(!((V402)<(V400))){
1951          goto T688;}          goto T689;}
1952          base[0]= elt((V388),V401);          base[0]= elt((V388),V401);
1953          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1954          super_funcall_no_event((V395));          super_funcall_no_event((V395));
1955          vs_top=sup;          vs_top=sup;
1956          V404= vs_base[0];          V404= vs_base[0];
1957          if(((*(LnkLI41))((V390),(V391),(V387),V404))==Cnil){          if(((*(LnkLI43))((V390),(V391),(V387),V404))==Cnil){
1958          goto T688;}          goto T689;}
1959          (void)(elt_set((V388),V401,(V386)));          (void)(elt_set((V388),V401,(V386)));
1960          V402= (long)(1)+(V402);          V402= (long)(1)+(V402);
1961  goto T688;  goto T689;
1962  T688:;  T689:;
1963          V401= (long)(1)+(V401);          V401= (long)(1)+(V401);
1964          goto T683;}          goto T684;}
1965  goto T678;  goto T679;
1966  T678:;  T679:;
1967          {register long V405;          {register long V405;
1968          register long V406;          register long V406;
1969          V405= (long)(-1)+(V397);          V405= (long)(-1)+(V397);
1970          V406= 0;          V406= 0;
1971  goto T703;  goto T704;
1972  T703:;  T704:;
1973          if(!((V405)<(V396))){          if(!((V405)<(V396))){
1974          goto T704;}          goto T705;}
1975          {object V407 = (V388);          {object V407 = (V388);
1976          VMR26(V407)}          VMR26(V407)}
1977  goto T704;  goto T705;
1978  T704:;  T705:;
1979          if(!((V406)<(V400))){          if(!((V406)<(V400))){
1980          goto T708;}          goto T709;}
1981          base[0]= elt((V388),V405);          base[0]= elt((V388),V405);
1982          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1983          super_funcall_no_event((V395));          super_funcall_no_event((V395));
1984          vs_top=sup;          vs_top=sup;
1985          V408= vs_base[0];          V408= vs_base[0];
1986          if(((*(LnkLI41))((V390),(V391),(V387),V408))==Cnil){          if(((*(LnkLI43))((V390),(V391),(V387),V408))==Cnil){
1987          goto T708;}          goto T709;}
1988          (void)(elt_set((V388),V405,(V386)));          (void)(elt_set((V388),V405,(V386)));
1989          V406= (long)(1)+(V406);          V406= (long)(1)+(V406);
1990  goto T708;  goto T709;
1991  T708:;  T709:;
1992          V405= (long)(-1)+(V405);          V405= (long)(-1)+(V405);
1993          goto T703;}}}}          goto T704;}}}}
1994          va_end(ap);          va_end(ap);
1995          base[0]=base[0];          base[0]=base[0];
1996          return Cnil;}          return Cnil;}
# Line 2024  static object LI27(V411,V410,V409,va_ali Line 2025  static object LI27(V411,V410,V409,va_ali
2025          V417=(Vcs[5]);          V417=(Vcs[5]);
2026          V418=(Vcs[6]);          V418=(Vcs[6]);
2027          if(Vcs[7]==0){          if(Vcs[7]==0){
2028          V419= symbol_function(VV[33]);          V419= symbol_function(VV[35]);
2029          }else{          }else{
2030          V419=(Vcs[7]);}          V419=(Vcs[7]);}
2031          if(!(((V419))==(Cnil))){          if(!(((V419))==(Cnil))){
2032          goto T721;}          goto T722;}
2033          V419= symbol_function(VV[33]);          V419= symbol_function(VV[35]);
2034  goto T721;  goto T722;
2035  T721:;  T722:;
2036          V420= symbol_function(VV[44]);          V420= symbol_function(VV[46]);
2037          {object V421 = (VFUN_NARGS=15,(*(LnkLI50))((V412),(V413),(V414),VV[10],(V415),VV[11],V420,VV[13],(V416),VV[14],(V417),VV[15],(V418),VV[16],(V419)));          {object V421 = (VFUN_NARGS=15,(*(LnkLI52))((V412),(V413),(V414),VV[11],(V415),VV[12],V420,VV[14],(V416),VV[15],(V417),VV[16],(V418),VV[17],(V419)));
2038          VMR27(V421)}          VMR27(V421)}
2039          va_end(ap);          va_end(ap);
2040          return Cnil;}          return Cnil;}
# Line 2068  static object LI28(V424,V423,V422,va_ali Line 2069  static object LI28(V424,V423,V422,va_ali
2069          V430=(Vcs[5]);          V430=(Vcs[5]);
2070          V431=(Vcs[6]);          V431=(Vcs[6]);
2071          if(Vcs[7]==0){          if(Vcs[7]==0){
2072          V432= symbol_function(VV[33]);          V432= symbol_function(VV[35]);
2073          }else{          }else{
2074          V432=(Vcs[7]);}          V432=(Vcs[7]);}
2075          if(!(((V432))==(Cnil))){          if(!(((V432))==(Cnil))){
2076          goto T727;}          goto T728;}
2077          V432= symbol_function(VV[33]);          V432= symbol_function(VV[35]);
2078  goto T727;  goto T728;
2079  T727:;  T728:;
2080          V433= symbol_function(VV[44]);          V433= symbol_function(VV[46]);
2081          {object V434 = (VFUN_NARGS=15,(*(LnkLI50))((V425),(V426),(V427),VV[10],(V428),VV[12],V433,VV[13],(V429),VV[14],(V430),VV[15],(V431),VV[16],(V432)));          {object V434 = (VFUN_NARGS=15,(*(LnkLI52))((V425),(V426),(V427),VV[11],(V428),VV[13],V433,VV[14],(V429),VV[15],(V430),VV[16],(V431),VV[17],(V432)));
2082          VMR28(V434)}          VMR28(V434)}
2083          va_end(ap);          va_end(ap);
2084          return Cnil;}          return Cnil;}
# Line 2112  static object LI29(V436,V435,va_alist) Line 2113  static object LI29(V436,V435,va_alist)
2113          V442=(Vcs[5]);          V442=(Vcs[5]);
2114          V443=(Vcs[6]);          V443=(Vcs[6]);
2115          if(Vcs[7]==0){          if(Vcs[7]==0){
2116          V444= symbol_function(VV[33]);          V444= symbol_function(VV[35]);
2117          }else{          }else{
2118          V444=(Vcs[7]);}          V444=(Vcs[7]);}
2119          if(!(((V444))==(Cnil))){          if(!(((V444))==(Cnil))){
2120          goto T733;}          goto T734;}
2121          V444= symbol_function(VV[33]);          V444= symbol_function(VV[35]);
2122  goto T733;  goto T734;
2123  T733:;  T734:;
2124          {long V445;          {long V445;
2125          if(((V442))==Cnil){          if(((V442))==Cnil){
2126          goto T739;}          goto T740;}
2127          V445= (long)(*(LnkLI34))((V442));          V445= (long)(*(LnkLI36))((V442));
2128          goto T737;          goto T738;
2129  goto T739;  goto T740;
2130  T739:;  T740:;
2131          V445= 0;          V445= 0;
2132  goto T737;  goto T738;
2133  T737:;  T738:;
2134          {long V446;          {long V446;
2135          V446= (long)(*(LnkLI35))((V443),(V438));          V446= (long)(*(LnkLI37))((V443),(V438));
2136          if(!((V445)<=(V446))){          if(!((V445)<=(V446))){
2137          goto T743;}          goto T744;}
2138          goto T742;          goto T743;
2139  goto T743;  goto T744;
2140  T743:;  T744:;
2141          V447 = make_fixnum(V445);          V447 = make_fixnum(V445);
2142          V448 = make_fixnum(V446);          V448 = make_fixnum(V446);
2143          (void)((VFUN_NARGS=2,(*(LnkLI31))(V447,V448)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V447,V448)));
2144  goto T742;  goto T743;
2145  T742:;  T743:;
2146          if((V440)==Cnil){          if((V440)==Cnil){
2147          goto T745;}          goto T746;}
2148          if((V441)==Cnil){          if((V441)==Cnil){
2149          goto T745;}          goto T746;}
2150          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
2151  goto T745;  goto T746;
2152  T745:;  T746:;
2153          if(((V439))!=Cnil){          if(((V439))!=Cnil){
2154          goto T747;}          goto T748;}
2155          {register long V449;          {register long V449;
2156          V449= V445;          V449= V445;
2157  goto T751;  goto T752;
2158  T751:;  T752:;
2159          if(!((V449)>=(V446))){          if(!((V449)>=(V446))){
2160          goto T752;}          goto T753;}
2161          {object V450 = Cnil;          {object V450 = Cnil;
2162          VMR29(V450)}          VMR29(V450)}
2163  goto T752;  goto T753;
2164  T752:;  T753:;
2165          base[0]= elt((V438),V449);          base[0]= elt((V438),V449);
2166          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2167          super_funcall_no_event((V444));          super_funcall_no_event((V444));
2168          vs_top=sup;          vs_top=sup;
2169          V451= vs_base[0];          V451= vs_base[0];
2170          if(((*(LnkLI41))((V440),(V441),(V437),V451))==Cnil){          if(((*(LnkLI43))((V440),(V441),(V437),V451))==Cnil){
2171          goto T756;}          goto T757;}
2172          {object V452 = elt((V438),V449);          {object V452 = elt((V438),V449);
2173          VMR29(V452)}          VMR29(V452)}
2174  goto T756;  goto T757;
2175  T756:;  T757:;
2176          V449= (long)(1)+(V449);          V449= (long)(1)+(V449);
2177          goto T751;}          goto T752;}
2178  goto T747;  goto T748;
2179  T747:;  T748:;
2180          {register long V453;          {register long V453;
2181          V453= (long)(-1)+(V446);          V453= (long)(-1)+(V446);
2182  goto T766;  goto T767;
2183  T766:;  T767:;
2184          if(!((V453)<(V445))){          if(!((V453)<(V445))){
2185          goto T767;}          goto T768;}
2186          {object V454 = Cnil;          {object V454 = Cnil;
2187          VMR29(V454)}          VMR29(V454)}
2188  goto T767;  goto T768;
2189  T767:;  T768:;
2190          base[0]= elt((V438),V453);          base[0]= elt((V438),V453);
2191          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2192          super_funcall_no_event((V444));          super_funcall_no_event((V444));
2193          vs_top=sup;          vs_top=sup;
2194          V455= vs_base[0];          V455= vs_base[0];
2195          if(((*(LnkLI41))((V440),(V441),(V437),V455))==Cnil){          if(((*(LnkLI43))((V440),(V441),(V437),V455))==Cnil){
2196          goto T771;}          goto T772;}
2197          {object V456 = elt((V438),V453);          {object V456 = elt((V438),V453);
2198          VMR29(V456)}          VMR29(V456)}
2199  goto T771;  goto T772;
2200  T771:;  T772:;
2201          V453= (long)(-1)+(V453);          V453= (long)(-1)+(V453);
2202          goto T766;}}}          goto T767;}}}
2203          va_end(ap);          va_end(ap);
2204          base[0]=base[0];          base[0]=base[0];
2205          return Cnil;}          return Cnil;}
# Line 2229  static object LI30(V458,V457,va_alist) Line 2230  static object LI30(V458,V457,va_alist)
2230          V462=(Vcs[3]);          V462=(Vcs[3]);
2231          V463=(Vcs[4]);          V463=(Vcs[4]);
2232          if(Vcs[5]==0){          if(Vcs[5]==0){
2233          V464= symbol_function(VV[33]);          V464= symbol_function(VV[35]);
2234          }else{          }else{
2235          V464=(Vcs[5]);}          V464=(Vcs[5]);}
2236          if(!(((V464))==(Cnil))){          if(!(((V464))==(Cnil))){
2237          goto T780;}          goto T781;}
2238          V464= symbol_function(VV[33]);          V464= symbol_function(VV[35]);
2239  goto T780;  goto T781;
2240  T780:;  T781:;
2241          V465= symbol_function(VV[44]);          V465= symbol_function(VV[46]);
2242          {object V466 = (VFUN_NARGS=12,(*(LnkLI51))((V459),(V460),VV[10],(V461),VV[11],V465,VV[13],(V462),VV[14],(V463),VV[16],(V464)));          {object V466 = (VFUN_NARGS=12,(*(LnkLI53))((V459),(V460),VV[11],(V461),VV[12],V465,VV[14],(V462),VV[15],(V463),VV[17],(V464)));
2243          VMR30(V466)}          VMR30(V466)}
2244          va_end(ap);          va_end(ap);
2245          return Cnil;}          return Cnil;}
# Line 2269  static object LI31(V468,V467,va_alist) Line 2270  static object LI31(V468,V467,va_alist)
2270          V472=(Vcs[3]);          V472=(Vcs[3]);
2271          V473=(Vcs[4]);          V473=(Vcs[4]);
2272          if(Vcs[5]==0){          if(Vcs[5]==0){
2273          V474= symbol_function(VV[33]);          V474= symbol_function(VV[35]);
2274          }else{          }else{
2275          V474=(Vcs[5]);}          V474=(Vcs[5]);}
2276          if(!(((V474))==(Cnil))){          if(!(((V474))==(Cnil))){
2277          goto T786;}          goto T787;}
2278          V474= symbol_function(VV[33]);          V474= symbol_function(VV[35]);
2279  goto T786;  goto T787;
2280  T786:;  T787:;
2281          V475= symbol_function(VV[44]);          V475= symbol_function(VV[46]);
2282          {object V476 = (VFUN_NARGS=12,(*(LnkLI51))((V469),(V470),VV[10],(V471),VV[12],V475,VV[13],(V472),VV[14],(V473),VV[16],(V474)));          {object V476 = (VFUN_NARGS=12,(*(LnkLI53))((V469),(V470),VV[11],(V471),VV[13],V475,VV[14],(V472),VV[15],(V473),VV[17],(V474)));
2283          VMR31(V476)}          VMR31(V476)}
2284          va_end(ap);          va_end(ap);
2285          return Cnil;}          return Cnil;}
# Line 2313  static object LI32(V478,V477,va_alist) Line 2314  static object LI32(V478,V477,va_alist)
2314          V484=(Vcs[5]);          V484=(Vcs[5]);
2315          V485=(Vcs[6]);          V485=(Vcs[6]);
2316          if(Vcs[7]==0){          if(Vcs[7]==0){
2317          V486= symbol_function(VV[33]);          V486= symbol_function(VV[35]);
2318          }else{          }else{
2319          V486=(Vcs[7]);}          V486=(Vcs[7]);}
2320          if(!(((V486))==(Cnil))){          if(!(((V486))==(Cnil))){
2321          goto T792;}          goto T793;}
2322          V486= symbol_function(VV[33]);          V486= symbol_function(VV[35]);
2323  goto T792;  goto T793;
2324  T792:;  T793:;
2325          {long V487;          {long V487;
2326          if(((V484))==Cnil){          if(((V484))==Cnil){
2327          goto T798;}          goto T799;}
2328          V487= (long)(*(LnkLI34))((V484));          V487= (long)(*(LnkLI36))((V484));
2329          goto T796;          goto T797;
2330  goto T798;  goto T799;
2331  T798:;  T799:;
2332          V487= 0;          V487= 0;
2333  goto T796;  goto T797;
2334  T796:;  T797:;
2335          {long V488;          {long V488;
2336          V488= (long)(*(LnkLI35))((V485),(V480));          V488= (long)(*(LnkLI37))((V485),(V480));
2337          if(!((V487)<=(V488))){          if(!((V487)<=(V488))){
2338          goto T802;}          goto T803;}
2339          goto T801;          goto T802;
2340  goto T802;  goto T803;
2341  T802:;  T803:;
2342          V489 = make_fixnum(V487);          V489 = make_fixnum(V487);
2343          V490 = make_fixnum(V488);          V490 = make_fixnum(V488);
2344          (void)((VFUN_NARGS=2,(*(LnkLI31))(V489,V490)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V489,V490)));
2345  goto T801;  goto T802;
2346  T801:;  T802:;
2347          if((V482)==Cnil){          if((V482)==Cnil){
2348          goto T804;}          goto T805;}
2349          if((V483)==Cnil){          if((V483)==Cnil){
2350          goto T804;}          goto T805;}
2351          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
2352  goto T804;  goto T805;
2353  T804:;  T805:;
2354          if(((V481))!=Cnil){          if(((V481))!=Cnil){
2355          goto T806;}          goto T807;}
2356          {register long V491;          {register long V491;
2357          V491= V487;          V491= V487;
2358  goto T810;  goto T811;
2359  T810:;  T811:;
2360          if(!((V491)>=(V488))){          if(!((V491)>=(V488))){
2361          goto T811;}          goto T812;}
2362          {object V492 = Cnil;          {object V492 = Cnil;
2363          VMR32(V492)}          VMR32(V492)}
2364  goto T811;  goto T812;
2365  T811:;  T812:;
2366          base[0]= elt((V480),V491);          base[0]= elt((V480),V491);
2367          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2368          super_funcall_no_event((V486));          super_funcall_no_event((V486));
2369          vs_top=sup;          vs_top=sup;
2370          V493= vs_base[0];          V493= vs_base[0];
2371          if(((*(LnkLI41))((V482),(V483),(V479),V493))==Cnil){          if(((*(LnkLI43))((V482),(V483),(V479),V493))==Cnil){
2372          goto T815;}          goto T816;}
2373          {object V494 = make_fixnum(V491);          {object V494 = make_fixnum(V491);
2374          VMR32(V494)}          VMR32(V494)}
2375  goto T815;  goto T816;
2376  T815:;  T816:;
2377          V491= (long)(1)+(V491);          V491= (long)(1)+(V491);
2378          goto T810;}          goto T811;}
2379  goto T806;  goto T807;
2380  T806:;  T807:;
2381          {register long V495;          {register long V495;
2382          V495= (long)(-1)+(V488);          V495= (long)(-1)+(V488);
2383  goto T825;  goto T826;
2384  T825:;  T826:;
2385          if(!((V495)<(V487))){          if(!((V495)<(V487))){
2386          goto T826;}          goto T827;}
2387          {object V496 = Cnil;          {object V496 = Cnil;
2388          VMR32(V496)}          VMR32(V496)}
2389  goto T826;  goto T827;
2390  T826:;  T827:;
2391          base[0]= elt((V480),V495);          base[0]= elt((V480),V495);
2392          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2393          super_funcall_no_event((V486));          super_funcall_no_event((V486));
2394          vs_top=sup;          vs_top=sup;
2395          V497= vs_base[0];          V497= vs_base[0];
2396          if(((*(LnkLI41))((V482),(V483),(V479),V497))==Cnil){          if(((*(LnkLI43))((V482),(V483),(V479),V497))==Cnil){
2397          goto T830;}          goto T831;}
2398          {object V498 = make_fixnum(V495);          {object V498 = make_fixnum(V495);
2399          VMR32(V498)}          VMR32(V498)}
2400  goto T830;  goto T831;
2401  T830:;  T831:;
2402          V495= (long)(-1)+(V495);          V495= (long)(-1)+(V495);
2403          goto T825;}}}          goto T826;}}}
2404          va_end(ap);          va_end(ap);
2405          base[0]=base[0];          base[0]=base[0];
2406          return Cnil;}          return Cnil;}
# Line 2430  static object LI33(V500,V499,va_alist) Line 2431  static object LI33(V500,V499,va_alist)
2431          V504=(Vcs[3]);          V504=(Vcs[3]);
2432          V505=(Vcs[4]);          V505=(Vcs[4]);
2433          if(Vcs[5]==0){          if(Vcs[5]==0){
2434          V506= symbol_function(VV[33]);          V506= symbol_function(VV[35]);
2435          }else{          }else{
2436          V506=(Vcs[5]);}          V506=(Vcs[5]);}
2437          if(!(((V506))==(Cnil))){          if(!(((V506))==(Cnil))){
2438          goto T839;}          goto T840;}
2439          V506= symbol_function(VV[33]);          V506= symbol_function(VV[35]);
2440  goto T839;  goto T840;
2441  T839:;  T840:;
2442          V507= symbol_function(VV[44]);          V507= symbol_function(VV[46]);
2443          {object V508 = (VFUN_NARGS=12,(*(LnkLI52))((V501),(V502),VV[10],(V503),VV[11],V507,VV[13],(V504),VV[14],(V505),VV[16],(V506)));          {object V508 = (VFUN_NARGS=12,(*(LnkLI54))((V501),(V502),VV[11],(V503),VV[12],V507,VV[14],(V504),VV[15],(V505),VV[17],(V506)));
2444          VMR33(V508)}          VMR33(V508)}
2445          va_end(ap);          va_end(ap);
2446          return Cnil;}          return Cnil;}
# Line 2470  static object LI34(V510,V509,va_alist) Line 2471  static object LI34(V510,V509,va_alist)
2471          V514=(Vcs[3]);          V514=(Vcs[3]);
2472          V515=(Vcs[4]);          V515=(Vcs[4]);
2473          if(Vcs[5]==0){          if(Vcs[5]==0){
2474          V516= symbol_function(VV[33]);          V516= symbol_function(VV[35]);
2475          }else{          }else{
2476          V516=(Vcs[5]);}          V516=(Vcs[5]);}
2477          if(!(((V516))==(Cnil))){          if(!(((V516))==(Cnil))){
2478          goto T845;}          goto T846;}
2479          V516= symbol_function(VV[33]);          V516= symbol_function(VV[35]);
2480  goto T845;  goto T846;
2481  T845:;  T846:;
2482          V517= symbol_function(VV[44]);          V517= symbol_function(VV[46]);
2483          {object V518 = (VFUN_NARGS=12,(*(LnkLI52))((V511),(V512),VV[10],(V513),VV[12],V517,VV[13],(V514),VV[14],(V515),VV[16],(V516)));          {object V518 = (VFUN_NARGS=12,(*(LnkLI54))((V511),(V512),VV[11],(V513),VV[13],V517,VV[14],(V514),VV[15],(V515),VV[17],(V516)));
2484          VMR34(V518)}          VMR34(V518)}
2485          va_end(ap);          va_end(ap);
2486          return Cnil;}          return Cnil;}
# Line 2512  static object LI35(V519,va_alist) Line 2513  static object LI35(V519,va_alist)
2513          V524=(Vcs[4]);          V524=(Vcs[4]);
2514          V525=(Vcs[5]);          V525=(Vcs[5]);
2515          if(Vcs[6]==0){          if(Vcs[6]==0){
2516          V526= symbol_function(VV[33]);          V526= symbol_function(VV[35]);
2517          }else{          }else{
2518          V526=(Vcs[6]);}          V526=(Vcs[6]);}
2519          if((V522)==Cnil){          if((V522)==Cnil){
2520          goto T851;}          goto T852;}
2521          if((V523)==Cnil){          if((V523)==Cnil){
         goto T851;}  
         (void)((*(LnkLI40))());  
 goto T851;  
 T851:;  
         if(!(type_of((V520))==t_cons||((V520))==Cnil)){  
2522          goto T852;}          goto T852;}
2523            (void)((*(LnkLI42))());
2524    goto T852;
2525    T852:;
2526            if(!(type_of((V520))==t_cons||((V520))==Cnil)){
2527            goto T853;}
2528          if(((V521))!=Cnil){          if(((V521))!=Cnil){
2529          goto T852;}          goto T853;}
2530          if(((V524))!=Cnil){          if(((V524))!=Cnil){
2531          goto T852;}          goto T853;}
2532          if(((V525))!=Cnil){          if(((V525))!=Cnil){
2533          goto T852;}          goto T853;}
2534          if(!(endp_prop((V520)))){          if(!(endp_prop((V520)))){
2535          goto T861;}          goto T862;}
2536          {object V527 = Cnil;          {object V527 = Cnil;
2537          VMR35(V527)}          VMR35(V527)}
2538  goto T861;  goto T862;
2539  T861:;  T862:;
2540          {register object V528;          {register object V528;
2541          register object V529;          register object V529;
2542          V528= (V520);          V528= (V520);
2543          V529= Cnil;          V529= Cnil;
2544  goto T865;  goto T866;
2545  T865:;  T866:;
2546          if(!(endp_prop(cdr((V528))))){          if(!(endp_prop(cdr((V528))))){
2547          goto T866;}          goto T867;}
2548          base[0]= (V529);          base[0]= (V529);
2549          base[1]= (V528);          base[1]= (V528);
2550          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 2551  T865:; Line 2552  T865:;
2552          vs_top=sup;          vs_top=sup;
2553          {object V530 = vs_base[0];          {object V530 = vs_base[0];
2554          VMR35(V530)}          VMR35(V530)}
2555  goto T866;  goto T867;
2556  T866:;  T867:;
2557          base[0]= car((V528));          base[0]= car((V528));
2558          base[1]= cdr((V528));          base[1]= cdr((V528));
2559          base[2]= VV[11];          base[2]= VV[12];
2560          base[3]= (V522);          base[3]= (V522);
2561          base[4]= VV[12];          base[4]= VV[13];
2562          base[5]= (V523);          base[5]= (V523);
2563          base[6]= VV[16];          base[6]= VV[17];
2564          base[7]= (V526);          base[7]= (V526);
2565          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2566          (void) (*Lnk53)();          (void) (*Lnk55)();
2567          vs_top=sup;          vs_top=sup;
2568          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2569          goto T872;}          goto T873;}
2570          V529= make_cons(car((V528)),(V529));          V529= make_cons(car((V528)),(V529));
2571  goto T872;  goto T873;
2572  T872:;  T873:;
2573          V528= cdr((V528));          V528= cdr((V528));
2574          goto T865;}          goto T866;}
2575  goto T852;  goto T853;
2576  T852:;  T853:;
2577          {object V531 = (VFUN_NARGS=13,(*(LnkLI54))((V520),VV[10],(V521),VV[11],(V522),VV[12],(V523),VV[13],(V524),VV[14],(V525),VV[16],(V526)));          {object V531 = (VFUN_NARGS=13,(*(LnkLI56))((V520),VV[11],(V521),VV[12],(V522),VV[13],(V523),VV[14],(V524),VV[15],(V525),VV[17],(V526)));
2578          VMR35(V531)}          VMR35(V531)}
2579          va_end(ap);          va_end(ap);
2580          base[0]=base[0];          base[0]=base[0];
# Line 2607  static object LI36(V532,va_alist) Line 2608  static object LI36(V532,va_alist)
2608          V537=(Vcs[4]);          V537=(Vcs[4]);
2609          V538=(Vcs[5]);          V538=(Vcs[5]);
2610          if(Vcs[6]==0){          if(Vcs[6]==0){
2611          V539= symbol_function(VV[33]);          V539= symbol_function(VV[35]);
2612          }else{          }else{
2613          V539=(Vcs[6]);}          V539=(Vcs[6]);}
2614          {long V540;          {long V540;
2615          V540= (long)length((V533));          V540= (long)length((V533));
2616          if((V535)==Cnil){          if((V535)==Cnil){
2617          goto T889;}          goto T890;}
2618          if((V536)==Cnil){          if((V536)==Cnil){
         goto T889;}  
         (void)((*(LnkLI40))());  
 goto T889;  
 T889:;  
         if(!(type_of((V533))==t_cons||((V533))==Cnil)){  
2619          goto T890;}          goto T890;}
2620            (void)((*(LnkLI42))());
2621    goto T890;
2622    T890:;
2623            if(!(type_of((V533))==t_cons||((V533))==Cnil)){
2624            goto T891;}
2625          if(((V534))!=Cnil){          if(((V534))!=Cnil){
2626          goto T890;}          goto T891;}
2627          if(((V537))!=Cnil){          if(((V537))!=Cnil){
2628          goto T890;}          goto T891;}
2629          if(((V538))!=Cnil){          if(((V538))!=Cnil){
2630          goto T890;}          goto T891;}
2631          if(!(endp_prop((V533)))){          if(!(endp_prop((V533)))){
2632          goto T899;}          goto T900;}
2633          {object V541 = Cnil;          {object V541 = Cnil;
2634          VMR36(V541)}          VMR36(V541)}
2635  goto T899;  goto T900;
2636  T899:;  T900:;
2637          {register object V542;          {register object V542;
2638          V542= (V533);          V542= (V533);
2639  goto T903;  goto T904;
2640  T903:;  T904:;
2641          if(!(endp_prop(cdr((V542))))){          if(!(endp_prop(cdr((V542))))){
2642          goto T904;}          goto T905;}
2643          {object V543 = (V533);          {object V543 = (V533);
2644          VMR36(V543)}          VMR36(V543)}
2645  goto T904;  goto T905;
2646  T904:;  T905:;
2647          base[0]= car((V542));          base[0]= car((V542));
2648          base[1]= cdr((V542));          base[1]= cdr((V542));
2649          base[2]= VV[11];          base[2]= VV[12];
2650          base[3]= (V535);          base[3]= (V535);
2651          base[4]= VV[12];          base[4]= VV[13];
2652          base[5]= (V536);          base[5]= (V536);
2653          base[6]= VV[16];          base[6]= VV[17];
2654          base[7]= (V539);          base[7]= (V539);
2655          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2656          (void) (*Lnk53)();          (void) (*Lnk55)();
2657          vs_top=sup;          vs_top=sup;
2658          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2659          goto T910;}          goto T911;}
2660          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));
2661          ((V542))->c.c_car = cadr((V542));          ((V542))->c.c_car = cadr((V542));
2662          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));          if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542));
2663          ((V542))->c.c_cdr = cddr((V542));          ((V542))->c.c_cdr = cddr((V542));
2664          goto T908;          goto T909;
2665  goto T910;  goto T911;
2666  T910:;  T911:;
2667          V542= cdr((V542));          V542= cdr((V542));
2668  goto T908;  goto T909;
2669  T908:;  T909:;
2670          goto T903;}          goto T904;}
2671  goto T890;  goto T891;
2672  T890:;  T891:;
2673          {register long V544;          {register long V544;
2674          if(((V537))==Cnil){          if(((V537))==Cnil){
2675          goto T926;}          goto T927;}
2676          V544= (long)(*(LnkLI34))((V537));          V544= (long)(*(LnkLI36))((V537));
2677          goto T924;          goto T925;
2678  goto T926;  goto T927;
2679  T926:;  T927:;
2680          V544= 0;          V544= 0;
2681  goto T924;  goto T925;
2682  T924:;  T925:;
2683          {register long V545;          {register long V545;
2684          V545= (long)(*(LnkLI35))((V538),(V533));          V545= (long)(*(LnkLI37))((V538),(V533));
2685          if(!((V544)<=(V545))){          if(!((V544)<=(V545))){
2686          goto T930;}          goto T931;}
2687          goto T929;          goto T930;
2688  goto T930;  goto T931;
2689  T930:;  T931:;
2690          V546 = make_fixnum(V544);          V546 = make_fixnum(V544);
2691          V547 = make_fixnum(V545);          V547 = make_fixnum(V545);
2692          (void)((VFUN_NARGS=2,(*(LnkLI31))(V546,V547)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V546,V547)));
2693  goto T929;  goto T930;
2694  T929:;  T930:;
2695          if(((V534))!=Cnil){          if(((V534))!=Cnil){
2696          goto T933;}          goto T934;}
2697          {long V548;          {long V548;
2698          long V549;          long V549;
2699          V548= 0;          V548= 0;
2700          V549= V544;          V549= V544;
2701  goto T938;  goto T939;
2702  T938:;  T939:;
2703          if(!((V549)>=(V545))){          if(!((V549)>=(V545))){
2704          goto T939;}          goto T940;}
2705          {object V550;          {object V550;
2706          register long V551;          register long V551;
2707          long V552;          long V552;
2708          V553= (*(LnkLI47))((V533));          V553= (*(LnkLI49))((V533));
2709          V554 = make_fixnum((long)(V540)-(V548));          V554 = make_fixnum((long)(V540)-(V548));
2710          V550= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V553,V554));          V550= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V553,V554));
2711          V551= 0;          V551= 0;
2712          V552= 0;          V552= 0;
2713  goto T946;  goto T947;
2714  T946:;  T947:;
2715          if(!((V551)>=(V540))){          if(!((V551)>=(V540))){
2716          goto T947;}          goto T948;}
2717          {object V555 = (V550);          {object V555 = (V550);
2718          VMR36(V555)}          VMR36(V555)}
2719  goto T947;  goto T948;
2720  T947:;  T948:;
2721          {object V556;          {object V556;
2722          if((V544)<=(V551)){          if((V544)<=(V551)){
2723          goto T953;}          goto T954;}
2724          V556= Cnil;          V556= Cnil;
2725          goto T952;          goto T953;
2726  goto T953;  goto T954;
2727  T953:;  T954:;
2728          if((V551)<(V545)){          if((V551)<(V545)){
2729          goto T955;}          goto T956;}
2730          V556= Cnil;          V556= Cnil;
2731          goto T952;          goto T953;
2732  goto T955;  goto T956;
2733  T955:;  T956:;
2734          base[0]= elt((V533),V551);          base[0]= elt((V533),V551);
2735          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2736          super_funcall_no_event((V539));          super_funcall_no_event((V539));
# Line 2737  T955:; Line 2738  T955:;
2738          V557= vs_base[0];          V557= vs_base[0];
2739          V558 = make_fixnum((long)(1)+(V551));          V558 = make_fixnum((long)(1)+(V551));
2740          V559 = make_fixnum(V545);          V559 = make_fixnum(V545);
2741          V556= (VFUN_NARGS=12,(*(LnkLI52))(V557,(V533),VV[11],(V535),VV[12],(V536),VV[13],V558,VV[14],V559,VV[16],(V539)));          V556= (VFUN_NARGS=12,(*(LnkLI54))(V557,(V533),VV[12],(V535),VV[13],(V536),VV[14],V558,VV[15],V559,VV[17],(V539)));
2742  goto T952;  goto T953;
2743  T952:;  T953:;
2744          if(((V556))==Cnil){          if(((V556))==Cnil){
2745          goto T960;}          goto T961;}
2746          goto T951;          goto T952;
2747  goto T960;  goto T961;
2748  T960:;  T961:;
2749          V560= elt((V533),V551);          V560= elt((V533),V551);
2750          (void)(elt_set((V550),V552,/* INLINE-ARGS */V560));          (void)(elt_set((V550),V552,/* INLINE-ARGS */V560));
2751          V552= (long)(1)+(V552);}          V552= (long)(1)+(V552);}
2752  goto T951;  goto T952;
2753  T951:;  T952:;
2754          V551= (long)(1)+(V551);          V551= (long)(1)+(V551);
2755          goto T946;}          goto T947;}
2756  goto T939;  goto T940;
2757  T939:;  T940:;
2758          base[0]= elt((V533),V549);          base[0]= elt((V533),V549);
2759          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2760          super_funcall_no_event((V539));          super_funcall_no_event((V539));
# Line 2761  T939:; Line 2762  T939:;
2762          V561= vs_base[0];          V561= vs_base[0];
2763          V562 = make_fixnum((long)(1)+(V549));          V562 = make_fixnum((long)(1)+(V549));
2764          V563 = make_fixnum(V545);          V563 = make_fixnum(V545);
2765          if(((VFUN_NARGS=12,(*(LnkLI52))(V561,(V533),VV[11],(V535),VV[12],(V536),VV[13],V562,VV[14],V563,VV[16],(V539))))==Cnil){          if(((VFUN_NARGS=12,(*(LnkLI54))(V561,(V533),VV[12],(V535),VV[13],(V536),VV[14],V562,VV[15],V563,VV[17],(V539))))==Cnil){
2766          goto T968;}          goto T969;}
2767          V548= (long)(1)+(V548);          V548= (long)(1)+(V548);
2768  goto T968;  goto T969;
2769  T968:;  T969:;
2770          V549= (long)(1)+(V549);          V549= (long)(1)+(V549);
2771          goto T938;}          goto T939;}
2772  goto T933;  goto T934;
2773  T933:;  T934:;
2774          {long V564;          {long V564;
2775          long V565;          long V565;
2776          V564= 0;          V564= 0;
2777          V565= (long)(-1)+(V545);          V565= (long)(-1)+(V545);
2778  goto T980;  goto T981;
2779  T980:;  T981:;
2780          if(!((V565)<(V544))){          if(!((V565)<(V544))){
2781          goto T981;}          goto T982;}
2782          {object V566;          {object V566;
2783          register long V567;          register long V567;
2784          long V568;          long V568;
2785          V569= (*(LnkLI47))((V533));          V569= (*(LnkLI49))((V533));
2786          V570 = make_fixnum((long)(V540)-(V564));          V570 = make_fixnum((long)(V540)-(V564));
2787          V566= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V569,V570));          V566= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V569,V570));
2788          V567= (long)(-1)+(V540);          V567= (long)(-1)+(V540);
2789          V568= (long)((long)(-1)+(V540))-(V564);          V568= (long)((long)(-1)+(V540))-(V564);
2790  goto T988;  goto T989;
2791  T988:;  T989:;
2792          if(!((V567)<(0))){          if(!((V567)<(0))){
2793          goto T989;}          goto T990;}
2794          {object V571 = (V566);          {object V571 = (V566);
2795          VMR36(V571)}          VMR36(V571)}
2796  goto T989;  goto T990;
2797  T989:;  T990:;
2798          {object V572;          {object V572;
2799          if((V544)<=(V567)){          if((V544)<=(V567)){
2800          goto T995;}          goto T996;}
2801          V572= Cnil;          V572= Cnil;
2802          goto T994;          goto T995;
2803  goto T995;  goto T996;
2804  T995:;  T996:;
2805          if((V567)<(V545)){          if((V567)<(V545)){
2806          goto T997;}          goto T998;}
2807          V572= Cnil;          V572= Cnil;
2808          goto T994;          goto T995;
2809  goto T997;  goto T998;
2810  T997:;  T998:;
2811          base[0]= elt((V533),V567);          base[0]= elt((V533),V567);
2812          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2813          super_funcall_no_event((V539));          super_funcall_no_event((V539));
# Line 2814  T997:; Line 2815  T997:;
2815          V573= vs_base[0];          V573= vs_base[0];
2816          V574 = make_fixnum(V544);          V574 = make_fixnum(V544);
2817          V575 = make_fixnum(V567);          V575 = make_fixnum(V567);
2818          V572= (VFUN_NARGS=14,(*(LnkLI52))(V573,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V574,VV[14],V575,VV[16],(V539)));          V572= (VFUN_NARGS=14,(*(LnkLI54))(V573,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V574,VV[15],V575,VV[17],(V539)));
2819  goto T994;  goto T995;
2820  T994:;  T995:;
2821          if(((V572))==Cnil){          if(((V572))==Cnil){
2822          goto T1002;}          goto T1003;}
2823          goto T993;          goto T994;
2824  goto T1002;  goto T1003;
2825  T1002:;  T1003:;
2826          V576= elt((V533),V567);          V576= elt((V533),V567);
2827          (void)(elt_set((V566),V568,/* INLINE-ARGS */V576));          (void)(elt_set((V566),V568,/* INLINE-ARGS */V576));
2828          V568= (long)(-1)+(V568);}          V568= (long)(-1)+(V568);}
2829  goto T993;  goto T994;
2830  T993:;  T994:;
2831          V567= (long)(-1)+(V567);          V567= (long)(-1)+(V567);
2832          goto T988;}          goto T989;}
2833  goto T981;  goto T982;
2834  T981:;  T982:;
2835          base[0]= elt((V533),V565);          base[0]= elt((V533),V565);
2836          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2837          super_funcall_no_event((V539));          super_funcall_no_event((V539));
# Line 2838  T981:; Line 2839  T981:;
2839          V577= vs_base[0];          V577= vs_base[0];
2840          V578 = make_fixnum(V544);          V578 = make_fixnum(V544);
2841          V579 = make_fixnum(V565);          V579 = make_fixnum(V565);
2842          if(((VFUN_NARGS=14,(*(LnkLI52))(V577,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V578,VV[14],V579,VV[16],(V539))))==Cnil){          if(((VFUN_NARGS=14,(*(LnkLI54))(V577,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V578,VV[15],V579,VV[17],(V539))))==Cnil){
2843          goto T1010;}          goto T1011;}
2844          V564= (long)(1)+(V564);          V564= (long)(1)+(V564);
2845  goto T1010;  goto T1011;
2846  T1010:;  T1011:;
2847          V565= (long)(-1)+(V565);          V565= (long)(-1)+(V565);
2848          goto T980;}}}}          goto T981;}}}}
2849          va_end(ap);          va_end(ap);
2850          base[0]=base[0];          base[0]=base[0];
2851          return Cnil;}          return Cnil;}
# Line 2879  static object LI37(V581,V580,va_alist) Line 2880  static object LI37(V581,V580,va_alist)
2880          V585=(Vcs[3]);          V585=(Vcs[3]);
2881          V586=(Vcs[4]);          V586=(Vcs[4]);
2882          if(Vcs[5]==0){          if(Vcs[5]==0){
2883          V587= symbol_function(VV[33]);          V587= symbol_function(VV[35]);
2884          }else{          }else{
2885          V587=(Vcs[5]);}          V587=(Vcs[5]);}
2886          V588=(Vcs[6]);          V588=(Vcs[6]);
# Line 2887  static object LI37(V581,V580,va_alist) Line 2888  static object LI37(V581,V580,va_alist)
2888          V590=(Vcs[8]);          V590=(Vcs[8]);
2889          V591=(Vcs[9]);          V591=(Vcs[9]);
2890          if((V585)==Cnil){          if((V585)==Cnil){
2891          goto T1020;}          goto T1021;}
2892          if((V586)==Cnil){          if((V586)==Cnil){
2893          goto T1020;}          goto T1021;}
2894          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
2895  goto T1020;  goto T1021;
2896  T1020:;  T1021:;
2897          {register long V592;          {register long V592;
2898          if(((V588))==Cnil){          if(((V588))==Cnil){
2899          goto T1023;}          goto T1024;}
2900          V592= (long)(*(LnkLI34))((V588));          V592= (long)(*(LnkLI36))((V588));
2901          goto T1021;          goto T1022;
2902  goto T1023;  goto T1024;
2903  T1023:;  T1024:;
2904          V592= 0;          V592= 0;
2905  goto T1021;  goto T1022;
2906  T1021:;  T1022:;
2907          {register long V593;          {register long V593;
2908          V593= (long)(*(LnkLI35))((V590),(V582));          V593= (long)(*(LnkLI37))((V590),(V582));
2909          if(!((V592)<=(V593))){          if(!((V592)<=(V593))){
2910          goto T1027;}          goto T1028;}
2911          goto T1026;          goto T1027;
2912  goto T1027;  goto T1028;
2913  T1027:;  T1028:;
2914          V594 = make_fixnum(V592);          V594 = make_fixnum(V592);
2915          V595 = make_fixnum(V593);          V595 = make_fixnum(V593);
2916          (void)((VFUN_NARGS=2,(*(LnkLI31))(V594,V595)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V594,V595)));
2917  goto T1026;  goto T1027;
2918  T1026:;  T1027:;
2919          {register long V596;          {register long V596;
2920          if(((V589))==Cnil){          if(((V589))==Cnil){
2921          goto T1031;}          goto T1032;}
2922          V596= (long)(*(LnkLI34))((V589));          V596= (long)(*(LnkLI36))((V589));
2923          goto T1029;          goto T1030;
2924  goto T1031;  goto T1032;
2925  T1031:;  T1032:;
2926          V596= 0;          V596= 0;
2927  goto T1029;  goto T1030;
2928  T1029:;  T1030:;
2929          {register long V597;          {register long V597;
2930          V597= (long)(*(LnkLI35))((V591),(V583));          V597= (long)(*(LnkLI37))((V591),(V583));
2931          if(!((V596)<=(V597))){          if(!((V596)<=(V597))){
2932          goto T1035;}          goto T1036;}
2933          goto T1034;          goto T1035;
2934  goto T1035;  goto T1036;
2935  T1035:;  T1036:;
2936          V598 = make_fixnum(V596);          V598 = make_fixnum(V596);
2937          V599 = make_fixnum(V597);          V599 = make_fixnum(V597);
2938          (void)((VFUN_NARGS=2,(*(LnkLI31))(V598,V599)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V598,V599)));
2939  goto T1034;  goto T1035;
2940  T1034:;  T1035:;
2941          if(((V584))!=Cnil){          if(((V584))!=Cnil){
2942          goto T1038;}          goto T1039;}
2943          {register long V600;          {register long V600;
2944          register long V601;          register long V601;
2945          V600= V592;          V600= V592;
2946          V601= V596;          V601= V596;
2947  goto T1043;  goto T1044;
2948  T1043:;  T1044:;
2949          if((V600)>=(V593)){          if((V600)>=(V593)){
2950          goto T1045;}          goto T1046;}
2951          if(!((V601)>=(V597))){          if(!((V601)>=(V597))){
2952          goto T1044;}          goto T1045;}
2953  goto T1045;  goto T1046;
2954  T1045:;  T1046:;
2955          if(!((V600)>=(V593))){          if(!((V600)>=(V593))){
2956          goto T1050;}          goto T1051;}
2957          if(!((V601)>=(V597))){          if(!((V601)>=(V597))){
2958          goto T1050;}          goto T1051;}
2959          {object V602 = Cnil;          {object V602 = Cnil;
2960          VMR37(V602)}          VMR37(V602)}
2961  goto T1050;  goto T1051;
2962  T1050:;  T1051:;
2963          {object V603 = make_fixnum(V600);          {object V603 = make_fixnum(V600);
2964          VMR37(V603)}          VMR37(V603)}
2965  goto T1044;  goto T1045;
2966  T1044:;  T1045:;
2967          base[0]= elt((V582),V600);          base[0]= elt((V582),V600);
2968          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2969          super_funcall_no_event((V587));          super_funcall_no_event((V587));
# Line 2973  T1044:; Line 2974  T1044:;
2974          super_funcall_no_event((V587));          super_funcall_no_event((V587));
2975          vs_top=sup;          vs_top=sup;
2976          V605= vs_base[0];          V605= vs_base[0];
2977          if(((*(LnkLI41))((V585),(V586),V604,V605))!=Cnil){          if(((*(LnkLI43))((V585),(V586),V604,V605))!=Cnil){
2978          goto T1055;}          goto T1056;}
2979          {object V606 = make_fixnum(V600);          {object V606 = make_fixnum(V600);
2980          VMR37(V606)}          VMR37(V606)}
2981  goto T1055;  goto T1056;
2982  T1055:;  T1056:;
2983          V600= (long)(1)+(V600);          V600= (long)(1)+(V600);
2984          V601= (long)(1)+(V601);          V601= (long)(1)+(V601);
2985          goto T1043;}          goto T1044;}
2986  goto T1038;  goto T1039;
2987  T1038:;  T1039:;
2988          {register long V607;          {register long V607;
2989          register long V608;          register long V608;
2990          V607= (long)(-1)+(V593);          V607= (long)(-1)+(V593);
2991          V608= (long)(-1)+(V597);          V608= (long)(-1)+(V597);
2992  goto T1069;  goto T1070;
2993  T1069:;  T1070:;
2994          if((V607)<(V592)){          if((V607)<(V592)){
2995          goto T1071;}          goto T1072;}
2996          if(!((V608)<(V596))){          if(!((V608)<(V596))){
2997          goto T1070;}          goto T1071;}
2998  goto T1071;  goto T1072;
2999  T1071:;  T1072:;
3000          if(!((V607)<(V592))){          if(!((V607)<(V592))){
3001          goto T1076;}          goto T1077;}
3002          if(!((V608)<(V596))){          if(!((V608)<(V596))){
3003          goto T1076;}          goto T1077;}
3004          {object V609 = Cnil;          {object V609 = Cnil;
3005          VMR37(V609)}          VMR37(V609)}
3006  goto T1076;  goto T1077;
3007  T1076:;  T1077:;
3008          {object V610 = make_fixnum((long)(1)+(V607));          {object V610 = make_fixnum((long)(1)+(V607));
3009          VMR37(V610)}          VMR37(V610)}
3010  goto T1070;  goto T1071;
3011  T1070:;  T1071:;
3012          base[0]= elt((V582),V607);          base[0]= elt((V582),V607);
3013          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3014          super_funcall_no_event((V587));          super_funcall_no_event((V587));
# Line 3018  T1070:; Line 3019  T1070:;
3019          super_funcall_no_event((V587));          super_funcall_no_event((V587));
3020          vs_top=sup;          vs_top=sup;
3021          V612= vs_base[0];          V612= vs_base[0];
3022          if(((*(LnkLI41))((V585),(V586),V611,V612))!=Cnil){          if(((*(LnkLI43))((V585),(V586),V611,V612))!=Cnil){
3023          goto T1081;}          goto T1082;}
3024          {object V613 = make_fixnum((long)(1)+(V607));          {object V613 = make_fixnum((long)(1)+(V607));
3025          VMR37(V613)}          VMR37(V613)}
3026  goto T1081;  goto T1082;
3027  T1081:;  T1082:;
3028          V607= (long)(-1)+(V607);          V607= (long)(-1)+(V607);
3029          V608= (long)(-1)+(V608);          V608= (long)(-1)+(V608);
3030          goto T1069;}}}}}          goto T1070;}}}}}
3031          va_end(ap);          va_end(ap);
3032          base[0]=base[0];          base[0]=base[0];
3033          return Cnil;}          return Cnil;}
# Line 3061  static object LI38(V615,V614,va_alist) Line 3062  static object LI38(V615,V614,va_alist)
3062          V619=(Vcs[3]);          V619=(Vcs[3]);
3063          V620=(Vcs[4]);          V620=(Vcs[4]);
3064          if(Vcs[5]==0){          if(Vcs[5]==0){
3065          V621= symbol_function(VV[33]);          V621= symbol_function(VV[35]);
3066          }else{          }else{
3067          V621=(Vcs[5]);}          V621=(Vcs[5]);}
3068          V622=(Vcs[6]);          V622=(Vcs[6]);
# Line 3069  static object LI38(V615,V614,va_alist) Line 3070  static object LI38(V615,V614,va_alist)
3070          V624=(Vcs[8]);          V624=(Vcs[8]);
3071          V625=(Vcs[9]);          V625=(Vcs[9]);
3072          if((V619)==Cnil){          if((V619)==Cnil){
3073          goto T1093;}          goto T1094;}
3074          if((V620)==Cnil){          if((V620)==Cnil){
3075          goto T1093;}          goto T1094;}
3076          (void)((*(LnkLI40))());          (void)((*(LnkLI42))());
3077  goto T1093;  goto T1094;
3078  T1093:;  T1094:;
3079          {long V626;          {long V626;
3080          if(((V622))==Cnil){          if(((V622))==Cnil){
3081          goto T1096;}          goto T1097;}
3082          V626= (long)(*(LnkLI34))((V622));          V626= (long)(*(LnkLI36))((V622));
3083          goto T1094;          goto T1095;
3084  goto T1096;  goto T1097;
3085  T1096:;  T1097:;
3086          V626= 0;          V626= 0;
3087  goto T1094;  goto T1095;
3088  T1094:;  T1095:;
3089          {long V627;          {long V627;
3090          V627= (long)(*(LnkLI35))((V624),(V616));          V627= (long)(*(LnkLI37))((V624),(V616));
3091          if(!((V626)<=(V627))){          if(!((V626)<=(V627))){
3092          goto T1100;}          goto T1101;}
3093          goto T1099;          goto T1100;
3094  goto T1100;  goto T1101;
3095  T1100:;  T1101:;
3096          V628 = make_fixnum(V626);          V628 = make_fixnum(V626);
3097          V629 = make_fixnum(V627);          V629 = make_fixnum(V627);
3098          (void)((VFUN_NARGS=2,(*(LnkLI31))(V628,V629)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V628,V629)));
3099  goto T1099;  goto T1100;
3100  T1099:;  T1100:;
3101          {register long V630;          {register long V630;
3102          if(((V623))==Cnil){          if(((V623))==Cnil){
3103          goto T1104;}          goto T1105;}
3104          V630= (long)(*(LnkLI34))((V623));          V630= (long)(*(LnkLI36))((V623));
3105          goto T1102;          goto T1103;
3106  goto T1104;  goto T1105;
3107  T1104:;  T1105:;
3108          V630= 0;          V630= 0;
3109  goto T1102;  goto T1103;
3110  T1102:;  T1103:;
3111          {long V631;          {long V631;
3112          V631= (long)(*(LnkLI35))((V625),(V617));          V631= (long)(*(LnkLI37))((V625),(V617));
3113          if(!((V630)<=(V631))){          if(!((V630)<=(V631))){
3114          goto T1108;}          goto T1109;}
3115          goto T1107;          goto T1108;
3116  goto T1108;  goto T1109;
3117  T1108:;  T1109:;
3118          V632 = make_fixnum(V630);          V632 = make_fixnum(V630);
3119          V633 = make_fixnum(V631);          V633 = make_fixnum(V631);
3120          (void)((VFUN_NARGS=2,(*(LnkLI31))(V632,V633)));          (void)((VFUN_NARGS=2,(*(LnkLI33))(V632,V633)));
3121  goto T1107;  goto T1108;
3122  T1107:;  T1108:;
3123          if(((V618))!=Cnil){          if(((V618))!=Cnil){
3124          goto T1111;}          goto T1112;}
3125  goto T1114;  goto T1115;
3126  T1114:;  T1115:;
3127          {register long V634;          {register long V634;
3128          register long V635;          register long V635;
3129          V634= V626;          V634= V626;
3130          V635= V630;          V635= V630;
3131  goto T1120;  goto T1121;
3132  T1120:;  T1121:;
3133          if(!((V634)>=(V627))){          if(!((V634)>=(V627))){
3134          goto T1121;}          goto T1122;}
3135          {object V636 = make_fixnum(V630);          {object V636 = make_fixnum(V630);
3136          VMR38(V636)}          VMR38(V636)}
3137  goto T1121;  goto T1122;
3138  T1121:;  T1122:;
3139          if(!((V635)>=(V631))){          if(!((V635)>=(V631))){
3140          goto T1125;}          goto T1126;}
3141          {object V637 = Cnil;          {object V637 = Cnil;
3142          VMR38(V637)}          VMR38(V637)}
3143  goto T1125;  goto T1126;
3144  T1125:;  T1126:;
3145          base[0]= elt((V616),V634);          base[0]= elt((V616),V634);
3146          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3147          super_funcall_no_event((V621));          super_funcall_no_event((V621));
# Line 3151  T1125:; Line 3152  T1125:;
3152          super_funcall_no_event((V621));          super_funcall_no_event((V621));
3153          vs_top=sup;          vs_top=sup;
3154          V639= vs_base[0];          V639= vs_base[0];
3155          if(((*(LnkLI41))((V619),(V620),V638,V639))!=Cnil){          if(((*(LnkLI43))((V619),(V620),V638,V639))!=Cnil){
3156          goto T1128;}          goto T1129;}
3157          goto T1116;          goto T1117;
3158  goto T1128;  goto T1129;
3159  T1128:;  T1129:;
3160          V634= (long)(1)+(V634);          V634= (long)(1)+(V634);
3161          V635= (long)(1)+(V635);          V635= (long)(1)+(V635);
3162          goto T1120;}          goto T1121;}
3163  goto T1116;  goto T1117;
3164  T1116:;  T1117:;
3165          V630= (long)(1)+(V630);          V630= (long)(1)+(V630);
3166          goto T1114;          goto T1115;
3167  goto T1111;  goto T1112;
3168  T1111:;  T1112:;
3169  goto T1142;  goto T1143;
3170  T1142:;  T1143:;
3171          {register long V640;          {register long V640;
3172          register long V641;          register long V641;
3173          V640= (long)(-1)+(V627);          V640= (long)(-1)+(V627);
3174          V641= (long)(-1)+(V631);          V641= (long)(-1)+(V631);
3175  goto T1148;  goto T1149;
3176  T1148:;  T1149:;
3177          if(!((V640)<(V626))){          if(!((V640)<(V626))){
3178          goto T1149;}          goto T1150;}
3179          {object V642 = make_fixnum((long)(1)+(V641));          {object V642 = make_fixnum((long)(1)+(V641));
3180          VMR38(V642)}          VMR38(V642)}
3181  goto T1149;  goto T1150;
3182  T1149:;  T1150:;
3183          if(!((V641)<(V630))){          if(!((V641)<(V630))){
3184          goto T1153;}          goto T1154;}
3185          {object V643 = Cnil;          {object V643 = Cnil;
3186          VMR38(V643)}          VMR38(V643)}
3187  goto T1153;  goto T1154;
3188  T1153:;  T1154:;
3189          base[0]= elt((V616),V640);          base[0]= elt((V616),V640);
3190          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3191          super_funcall_no_event((V621));          super_funcall_no_event((V621));
# Line 3195  T1153:; Line 3196  T1153:;
3196          super_funcall_no_event((V621));          super_funcall_no_event((V621));
3197          vs_top=sup;          vs_top=sup;
3198          V645= vs_base[0];          V645= vs_base[0];
3199          if(((*(LnkLI41))((V619),(V620),V644,V645))!=Cnil){          if(((*(LnkLI43))((V619),(V620),V644,V645))!=Cnil){
3200          goto T1156;}          goto T1157;}
3201          goto T1144;          goto T1145;
3202  goto T1156;  goto T1157;
3203  T1156:;  T1157:;
3204          V640= (long)(-1)+(V640);          V640= (long)(-1)+(V640);
3205          V641= (long)(-1)+(V641);          V641= (long)(-1)+(V641);
3206          goto T1148;}          goto T1149;}
3207  goto T1144;  goto T1145;
3208  T1144:;  T1145:;
3209          V631= (long)(-1)+(V631);          V631= (long)(-1)+(V631);
3210          goto T1142;}}}}          goto T1143;}}}}
3211          va_end(ap);          va_end(ap);
3212          base[0]=base[0];          base[0]=base[0];
3213          return Cnil;}          return Cnil;}
# Line 3221  static void L39() Line 3222  static void L39()
3222          object V647;          object V647;
3223          object V648;          object V648;
3224          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3225          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);
3226          V646=(base[0]);          V646=(base[0]);
3227          V647=(base[1]);          V647=(base[1]);
3228          vs_top=sup;          vs_top=sup;
3229          if(base[3]==Cnil){          if(base[3]==Cnil){
3230          V648= symbol_function(VV[33]);          V648= symbol_function(VV[35]);
3231          }else{          }else{
3232          V648=(base[2]);}          V648=(base[2]);}
3233          if(!(type_of((V646))==t_cons||((V646))==Cnil)){          if(!(type_of((V646))==t_cons||((V646))==Cnil)){
3234          goto T1171;}          goto T1172;}
3235          base[4]= (V646);          base[4]= (V646);
3236          base[5]= (V647);          base[5]= (V647);
3237          base[6]= (V648);          base[6]= (V648);
3238          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3239          (void) (*Lnk55)();          (void) (*Lnk57)();
3240          return;          return;
3241  goto T1171;  goto T1172;
3242  T1171:;  T1172:;
3243          base[4]= (*(LnkLI56))((V646),0,(long)length((V646)),(V647),(V648));          base[4]= (*(LnkLI58))((V646),0,(long)length((V646)),(V647),(V648));
3244          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3245          return;          return;
3246          }          }
# Line 3271  register object V655;long V656;long V657 Line 3272  register object V655;long V656;long V657
3272  goto TTL;  goto TTL;
3273  TTL:;  TTL:;
3274          if(!((V657)<=((long)(1)+(V656)))){          if(!((V657)<=((long)(1)+(V656)))){
3275          goto T1178;}          goto T1179;}
3276          {object V660 = (V655);          {object V660 = (V655);
3277          VMR41(V660)}          VMR41(V660)}
3278  goto T1178;  goto T1179;
3279  T1178:;  T1179:;
3280          {register long V661;          {register long V661;
3281          register long V662;          register long V662;
3282          object V663;          object V663;
# Line 3286  T1178:; Line 3287  T1178:;
3287          V664= (          V664= (
3288          (type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)):          (type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)):
3289          (fcall.fun=((V659)),fcall.argd=1,fcalln))((V663)));          (fcall.fun=((V659)),fcall.argd=1,fcalln))((V663)));
3290  goto T1186;  goto T1187;
3291  T1186:;  T1187:;
3292  goto T1190;  goto T1191;
3293  T1190:;  T1191:;
3294          V662= (long)(-1)+(V662);          V662= (long)(-1)+(V662);
3295          if((V661)<(V662)){          if((V661)<(V662)){
3296          goto T1194;}          goto T1195;}
3297          goto T1184;          goto T1185;
3298  goto T1194;  goto T1195;
3299  T1194:;  T1195:;
3300          base[3]= elt((V655),V662);          base[3]= elt((V655),V662);
3301          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3302          super_funcall_no_event((V659));          super_funcall_no_event((V659));
# Line 3306  T1194:; Line 3307  T1194:;
3307          super_funcall_no_event((V658));          super_funcall_no_event((V658));
3308          vs_top=sup;          vs_top=sup;
3309          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3310          goto T1191;}          goto T1192;}
3311          goto T1188;          goto T1189;
3312  goto T1191;  goto T1192;
3313  T1191:;  T1192:;
3314          goto T1190;          goto T1191;
3315  goto T1188;  goto T1189;
3316  T1188:;  T1189:;
3317  goto T1205;  goto T1206;
3318  T1205:;  T1206:;
3319          V661= (long)(1)+(V661);          V661= (long)(1)+(V661);
3320          if((V661)<(V662)){          if((V661)<(V662)){
3321          goto T1209;}          goto T1210;}
3322          goto T1184;          goto T1185;
3323  goto T1209;  goto T1210;
3324  T1209:;  T1210:;
3325          base[3]= elt((V655),V661);          base[3]= elt((V655),V661);
3326          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3327          super_funcall_no_event((V659));          super_funcall_no_event((V659));
# Line 3331  T1209:; Line 3332  T1209:;
3332          super_funcall_no_event((V658));          super_funcall_no_event((V658));
3333          vs_top=sup;          vs_top=sup;
3334          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3335          goto T1206;}          goto T1207;}
3336          goto T1203;          goto T1204;
3337  goto T1206;  goto T1207;
3338  T1206:;  T1207:;
3339          goto T1205;          goto T1206;
3340  goto T1203;  goto T1204;
3341  T1203:;  T1204:;
3342          {object V665;          {object V665;
3343          V665= elt((V655),V661);          V665= elt((V655),V661);
3344          V666= elt((V655),V662);          V666= elt((V655),V662);
3345          (void)(elt_set((V655),V661,/* INLINE-ARGS */V666));          (void)(elt_set((V655),V661,/* INLINE-ARGS */V666));
3346          (void)(elt_set((V655),V662,(V665)));}          (void)(elt_set((V655),V662,(V665)));}
3347          goto T1186;          goto T1187;
3348  goto T1184;  goto T1185;
3349  T1184:;  T1185:;
3350          V667= elt((V655),V661);          V667= elt((V655),V661);
3351          (void)(elt_set((V655),V656,/* INLINE-ARGS */V667));          (void)(elt_set((V655),V656,/* INLINE-ARGS */V667));
3352          (void)(elt_set((V655),V661,(V663)));          (void)(elt_set((V655),V661,(V663)));
3353          (void)((*(LnkLI56))((V655),V656,V661,(V658),(V659)));          (void)((*(LnkLI58))((V655),V656,V661,(V658),(V659)));
3354          V656= (long)(1)+(V661);          V656= (long)(1)+(V661);
3355          goto TTL;}          goto TTL;}
3356          base[0]=base[0];          base[0]=base[0];
# Line 3365  static void L43() Line 3366  static void L43()
3366          object V669;          object V669;
3367          object V670;          object V670;
3368          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3369          parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);
3370          V668=(base[0]);          V668=(base[0]);
3371          V669=(base[1]);          V669=(base[1]);
3372          vs_top=sup;          vs_top=sup;
3373          if(base[3]==Cnil){          if(base[3]==Cnil){
3374          V670= symbol_function(VV[33]);          V670= symbol_function(VV[35]);
3375          }else{          }else{
3376          V670=(base[2]);}          V670=(base[2]);}
3377          if(!(type_of((V668))==t_cons||((V668))==Cnil)){          if(!(type_of((V668))==t_cons||((V668))==Cnil)){
3378          goto T1232;}          goto T1233;}
3379          base[4]= (V668);          base[4]= (V668);
3380          base[5]= (V669);          base[5]= (V669);
3381          base[6]= (V670);          base[6]= (V670);
3382          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3383          (void) (*Lnk55)();          (void) (*Lnk57)();
3384          return;          return;
3385  goto T1232;  goto T1233;
3386  T1232:;  T1233:;
3387          if(type_of((V668))==t_string){          if(type_of((V668))==t_string){
         goto T1237;}  
         if(!((type_of((V668))==t_bitvector))){  
3388          goto T1238;}          goto T1238;}
3389  goto T1237;          if(!((type_of((V668))==t_bitvector))){
3390  T1237:;          goto T1239;}
3391    goto T1238;
3392    T1238:;
3393          base[4]= (V668);          base[4]= (V668);
3394          base[5]= (V669);          base[5]= (V669);
3395          base[6]= VV[16];          base[6]= VV[17];
3396          base[7]= (V670);          base[7]= (V670);
3397          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3398          (void) (*Lnk57)();          (void) (*Lnk59)();
3399          return;          return;
3400  goto T1238;  goto T1239;
3401  T1238:;  T1239:;
3402          base[4]= (*(LnkLI58))((V668),VV[0]);          base[4]= (*(LnkLI60))((V668),VV[0]);
3403          base[5]= (V669);          base[5]= (V669);
3404          base[6]= (V670);          base[6]= (V670);
3405          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3406          (void) (*Lnk55)();          (void) (*Lnk57)();
3407          vs_top=sup;          vs_top=sup;
3408          V671= vs_base[0];          V671= vs_base[0];
3409          V672= (*(LnkLI47))((V668));          V672= (*(LnkLI49))((V668));
3410          base[4]= (*(LnkLI58))(V671,/* INLINE-ARGS */V672);          base[4]= (*(LnkLI60))(V671,/* INLINE-ARGS */V672);
3411          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3412          return;          return;
3413          }          }
# Line 3435  static object LI44(V676,V675,V674,V673,v Line 3436  static object LI44(V676,V675,V674,V673,v
3436          {          {
3437          parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap);          parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap);
3438          if(Vcs[4]==0){          if(Vcs[4]==0){
3439          V681= symbol_function(VV[33]);          V681= symbol_function(VV[35]);
3440          }else{          }else{
3441          V681=(Vcs[4]);}          V681=(Vcs[4]);}
3442          {long V682;          {long V682;
# Line 3443  static object LI44(V676,V675,V674,V673,v Line 3444  static object LI44(V676,V675,V674,V673,v
3444          V682= (long)length((V678));          V682= (long)length((V678));
3445          V683= (long)length((V679));          V683= (long)length((V679));
3446          if(!(equal((V681),Cnil))){          if(!(equal((V681),Cnil))){
3447          goto T1253;}          goto T1254;}
3448          V681= symbol_function(VV[33]);          V681= symbol_function(VV[35]);
3449  goto T1253;  goto T1254;
3450  T1253:;  T1254:;
3451          {register object V684;          {register object V684;
3452          register long V685;          register long V685;
3453          register long V686;          register long V686;
3454          register long V687;          register long V687;
3455          V688 = make_fixnum((long)(V682)+(V683));          V688 = make_fixnum((long)(V682)+(V683));
3456          V684= (VFUN_NARGS=2,(*(LnkLI46))((V677),V688));          V684= (VFUN_NARGS=2,(*(LnkLI48))((V677),V688));
3457          V685= 0;          V685= 0;
3458          V686= 0;          V686= 0;
3459          V687= 0;          V687= 0;
3460  goto T1262;  goto T1263;
3461  T1262:;  T1263:;
3462          if(!((V686)==(V682))){          if(!((V686)==(V682))){
3463          goto T1263;}          goto T1264;}
3464          if(!((V687)==(V683))){          if(!((V687)==(V683))){
3465          goto T1263;}          goto T1264;}
3466          {object V689 = (V684);          {object V689 = (V684);
3467          VMR43(V689)}          VMR43(V689)}
3468  goto T1263;  goto T1264;
3469  T1263:;  T1264:;
3470          if(!((V686)<(V682))){          if(!((V686)<(V682))){
3471          goto T1271;}          goto T1272;}
3472          if(!((V687)<(V683))){          if(!((V687)<(V683))){
3473          goto T1271;}          goto T1272;}
3474          base[1]= elt((V678),V686);          base[1]= elt((V678),V686);
3475          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3476          super_funcall_no_event((V681));          super_funcall_no_event((V681));
# Line 3484  T1263:; Line 3485  T1263:;
3485          super_funcall_no_event((V680));          super_funcall_no_event((V680));
3486          vs_top=sup;          vs_top=sup;
3487          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3488          goto T1276;}          goto T1277;}
3489          V690= elt((V678),V686);          V690= elt((V678),V686);
3490          (void)(elt_set((V684),V685,/* INLINE-ARGS */V690));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V690));
3491          V686= (long)(1)+(V686);          V686= (long)(1)+(V686);
3492          goto T1269;          goto T1270;
3493  goto T1276;  goto T1277;
3494  T1276:;  T1277:;
3495          base[1]= elt((V679),V687);          base[1]= elt((V679),V687);
3496          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3497          super_funcall_no_event((V681));          super_funcall_no_event((V681));
# Line 3505  T1276:; Line 3506  T1276:;
3506          super_funcall_no_event((V680));          super_funcall_no_event((V680));
3507          vs_top=sup;          vs_top=sup;
3508          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3509          goto T1285;}          goto T1286;}
3510          V691= elt((V679),V687);          V691= elt((V679),V687);
3511          (void)(elt_set((V684),V685,/* INLINE-ARGS */V691));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V691));
3512          V687= (long)(1)+(V687);          V687= (long)(1)+(V687);
3513          goto T1269;          goto T1270;
3514  goto T1285;  goto T1286;
3515  T1285:;  T1286:;
3516          V692= elt((V678),V686);          V692= elt((V678),V686);
3517          (void)(elt_set((V684),V685,/* INLINE-ARGS */V692));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V692));
3518          V686= (long)(1)+(V686);          V686= (long)(1)+(V686);
3519          goto T1269;          goto T1270;
3520  goto T1271;  goto T1272;
3521  T1271:;  T1272:;
3522          if(!((V686)<(V682))){          if(!((V686)<(V682))){
3523          goto T1296;}          goto T1297;}
3524          V693= elt((V678),V686);          V693= elt((V678),V686);
3525          (void)(elt_set((V684),V685,/* INLINE-ARGS */V693));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V693));
3526          V686= (long)(1)+(V686);          V686= (long)(1)+(V686);
3527          goto T1269;          goto T1270;
3528  goto T1296;  goto T1297;
3529  T1296:;  T1297:;
3530          V694= elt((V679),V687);          V694= elt((V679),V687);
3531          (void)(elt_set((V684),V685,/* INLINE-ARGS */V694));          (void)(elt_set((V684),V685,/* INLINE-ARGS */V694));
3532          V687= (long)(1)+(V687);          V687= (long)(1)+(V687);
3533  goto T1269;  goto T1270;
3534  T1269:;  T1270:;
3535          V685= (long)(1)+(V685);          V685= (long)(1)+(V685);
3536          goto T1262;}}          goto T1263;}}
3537          va_end(ap);          va_end(ap);
3538          base[0]=base[0];          base[0]=base[0];
3539          return Cnil;}          return Cnil;}
# Line 3561  static void L45() Line 3562  static void L45()
3562          Ltype_of();          Ltype_of();
3563          vs_top=sup;          vs_top=sup;
3564          V700= vs_base[0];          V700= vs_base[0];
3565          if(!((VV[17])==(V700))){          if(!((VV[18])==(V700))){
3566          goto T1308;}          goto T1309;}
3567          base[4]= (V695);          base[4]= (V695);
3568          base[5]= small_fixnum(0);          base[5]= small_fixnum(0);
3569          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3570          Larray_dimension();          Larray_dimension();
3571          vs_top=sup;          vs_top=sup;
3572          base[3]= vs_base[0];          base[3]= vs_base[0];
3573          goto T1306;          goto T1307;
3574  goto T1308;  goto T1309;
3575  T1308:;  T1309:;
3576          base[3]= make_fixnum((long)length((V695)));          base[3]= make_fixnum((long)length((V695)));
3577  goto T1306;  goto T1307;
3578  T1306:;  T1307:;
3579          {object V699;          {object V699;
3580          {object V701;          {object V701;
3581          object V702= (V697);          object V702= (V697);
3582          if(endp(V702)){          if(endp(V702)){
3583          V699= Cnil;          V699= Cnil;
3584          goto T1314;}          goto T1315;}
3585          base[4]=V701=MMcons(Cnil,Cnil);          base[4]=V701=MMcons(Cnil,Cnil);
3586  goto T1315;  goto T1316;
3587  T1315:;  T1316:;
3588          base[5]= (V702->c.c_car);          base[5]= (V702->c.c_car);
3589          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3590          Llength();          Llength();
# Line 3592  T1315:; Line 3593  T1315:;
3593          V702=MMcdr(V702);          V702=MMcdr(V702);
3594          if(endp(V702)){          if(endp(V702)){
3595          V699= base[4];          V699= base[4];
         goto T1314;}  
         V701=MMcdr(V701)=MMcons(Cnil,Cnil);  
3596          goto T1315;}          goto T1315;}
3597  goto T1314;          V701=MMcdr(V701)=MMcons(Cnil,Cnil);
3598  T1314:;          goto T1316;}
3599    goto T1315;
3600    T1315:;
3601           vs_top=base+4;           vs_top=base+4;
3602           while(!endp(V699))           while(!endp(V699))
3603           {vs_push(car(V699));V699=cdr(V699);}           {vs_push(car(V699));V699=cdr(V699);}
# Line 3609  T1314:; Line 3610  T1314:;
3610          Ltype_of();          Ltype_of();
3611          vs_top=sup;          vs_top=sup;
3612          V703= vs_base[0];          V703= vs_base[0];
3613          if(!((VV[17])==(V703))){          if(!((VV[18])==(V703))){
3614          goto T1318;}          goto T1319;}
3615          base[3]= (V695);          base[3]= (V695);
3616          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3617          (void) (*Lnk59)();          (void) (*Lnk61)();
3618          vs_top=sup;          vs_top=sup;
3619          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3620          goto T1318;}          goto T1319;}
3621          base[3]= (V695);          base[3]= (V695);
3622          base[4]= (V698);          base[4]= (V698);
3623          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3624          siLfill_pointer_set();          siLfill_pointer_set();
3625          vs_top=sup;          vs_top=sup;
3626  goto T1318;  goto T1319;
3627  T1318:;  T1319:;
3628          {register object V704;          {register object V704;
3629          register object V705;          register object V705;
3630          V704= (V698);          V704= (V698);
3631          V705= small_fixnum(0);          V705= small_fixnum(0);
3632  goto T1331;  goto T1332;
3633  T1331:;  T1332:;
3634          if(!(number_compare((V705),(V704))>=0)){          if(!(number_compare((V705),(V704))>=0)){
3635          goto T1332;}          goto T1333;}
3636          base[3]= (V695);          base[3]= (V695);
3637          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3638          return;          return;
3639  goto T1332;  goto T1333;
3640  T1332:;  T1333:;
3641          base[3]= (V696);          base[3]= (V696);
3642          {object V707;          {object V707;
3643          {object V708;          {object V708;
3644          object V709= (V697);          object V709= (V697);
3645          if(endp(V709)){          if(endp(V709)){
3646          V707= Cnil;          V707= Cnil;
3647          goto T1339;}          goto T1340;}
3648          base[4]=V708=MMcons(Cnil,Cnil);          base[4]=V708=MMcons(Cnil,Cnil);
3649  goto T1340;  goto T1341;
3650  T1340:;  T1341:;
3651          {register object V710;          {register object V710;
3652          V710= (V709->c.c_car);          V710= (V709->c.c_car);
3653          (V708->c.c_car)= elt((V710),fixint((V705)));}          (V708->c.c_car)= elt((V710),fixint((V705)));}
3654          V709=MMcdr(V709);          V709=MMcdr(V709);
3655          if(endp(V709)){          if(endp(V709)){
3656          V707= base[4];          V707= base[4];
         goto T1339;}  
         V708=MMcdr(V708)=MMcons(Cnil,Cnil);  
3657          goto T1340;}          goto T1340;}
3658  goto T1339;          V708=MMcdr(V708)=MMcons(Cnil,Cnil);
3659  T1339:;          goto T1341;}
3660    goto T1340;
3661    T1340:;
3662           vs_top=base+4;           vs_top=base+4;
3663           while(!endp(V707))           while(!endp(V707))
3664           {vs_push(car(V707));V707=cdr(V707);}           {vs_push(car(V707));V707=cdr(V707);}
# Line 3667  T1339:; Line 3668  T1339:;
3668          V706= vs_base[0];          V706= vs_base[0];
3669          (void)(elt_set((V695),fixint((V705)),V706));          (void)(elt_set((V695),fixint((V705)),V706));
3670          V705= one_plus((V705));          V705= one_plus((V705));
3671          goto T1331;}}          goto T1332;}}
3672          }          }
3673  }  }
3674  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */
# Line 3696  static void L46() Line 3697  static void L46()
3697          Lgensym();          Lgensym();
3698          vs_top=sup;          vs_top=sup;
3699          V713= vs_base[0];          V713= vs_base[0];
3700          base[5]= VV[18];          base[5]= VV[19];
3701          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3702          Lgensym();          Lgensym();
3703          vs_top=sup;          vs_top=sup;
3704          V714= vs_base[0];          V714= vs_base[0];
3705          V715= list(2,(V713),base[3]);          V715= list(2,(V713),base[3]);
3706          V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0)));          V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0)));
3707          V717= list(2,VV[24],(V713));          V717= list(2,VV[25],(V713));
3708          V718= list(4,VV[0],VV[23],/* INLINE-ARGS */V717,list(2,VV[24],(V714)));          V718= list(4,VV[0],VV[24],/* INLINE-ARGS */V717,list(2,VV[25],(V714)));
3709          V719= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V718,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V714)),VV[28]),VV[29]),VV[30])));          V719= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V718,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V714)),VV[29]),VV[30]),VV[31])));
3710          base[5]= list(3,VV[19],/* INLINE-ARGS */V716,listA(3,VV[20],make_cons(/* INLINE-ARGS */V719,Cnil),base[4]));          base[5]= list(3,VV[20],/* INLINE-ARGS */V716,listA(3,VV[21],make_cons(/* INLINE-ARGS */V719,Cnil),base[4]));
3711          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3712          return;}          return;}
3713  }  }
# Line 3739  TTL:; Line 3740  TTL:;
3740          V727= Cnil;          V727= Cnil;
3741          V721= (long)length((V720));          V721= (long)length((V720));
3742          if(!((V721)<(2))){          if(!((V721)<(2))){
3743          goto T1357;}          goto T1358;}
3744          base[1]= (V720);          base[1]= (V720);
3745          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3746          return;          return;
3747  goto T1357;  goto T1358;
3748  T1357:;  T1358:;
3749          if(!((V721)==(2))){          if(!((V721)==(2))){
3750          goto T1355;}          goto T1356;}
3751          V726= (          V726= (
3752          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3753          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720))));
# Line 3759  T1357:; Line 3760  T1357:;
3760          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3761          vs_top=sup;          vs_top=sup;
3762          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3763          goto T1366;}          goto T1367;}
3764          base[1]= (V720);          base[1]= (V720);
3765          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3766          return;          return;
3767  goto T1366;  goto T1367;
3768  T1366:;  T1367:;
3769          base[1]= (V727);          base[1]= (V727);
3770          base[2]= (V726);          base[2]= (V726);
3771          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3772          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3773          vs_top=sup;          vs_top=sup;
3774          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3775          goto T1371;}          goto T1372;}
3776          base[1]= nreverse((V720));          base[1]= nreverse((V720));
3777          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3778          return;          return;
3779  goto T1371;  goto T1372;
3780  T1371:;  T1372:;
3781          base[1]= (V720);          base[1]= (V720);
3782          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3783          return;          return;
3784  goto T1355;  goto T1356;
3785  T1355:;  T1356:;
3786          V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2));          V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2));
3787          {long V728;          {long V728;
3788          register object V729;          register object V729;
3789          V728= 1;          V728= 1;
3790          V729= (V720);          V729= (V720);
3791  goto T1380;  goto T1381;
3792  T1380:;  T1381:;
3793          if(!((V728)>=(V721))){          if(!((V728)>=(V721))){
3794          goto T1381;}          goto T1382;}
3795          V722= (V720);          V722= (V720);
3796          V723= cdr((V729));          V723= cdr((V729));
3797          if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729));          if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729));
3798          ((V729))->c.c_cdr = Cnil;          ((V729))->c.c_cdr = Cnil;
3799          goto T1377;          goto T1378;
3800  goto T1381;  goto T1382;
3801  T1381:;  T1382:;
3802          V728= (long)(1)+(V728);          V728= (long)(1)+(V728);
3803          V729= cdr((V729));          V729= cdr((V729));
3804          goto T1380;}          goto T1381;}
3805  goto T1377;  goto T1378;
3806  T1377:;  T1378:;
3807          base[1]= (V722);          base[1]= (V722);
3808          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3809          L41(base0);          L41(base0);
# Line 3814  T1377:; Line 3815  T1377:;
3815          vs_top=sup;          vs_top=sup;
3816          V723= vs_base[0];          V723= vs_base[0];
3817          if(!(endp_prop((V722)))){          if(!(endp_prop((V722)))){
3818          goto T1401;}          goto T1402;}
3819          base[1]= (V723);          base[1]= (V723);
3820          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3821          return;          return;
3822  goto T1401;  goto T1402;
3823  T1401:;  T1402:;
3824          if(!(endp_prop((V723)))){          if(!(endp_prop((V723)))){
3825          goto T1399;}          goto T1400;}
3826          base[1]= (V722);          base[1]= (V722);
3827          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3828          return;          return;
3829  goto T1399;  goto T1400;
3830  T1399:;  T1400:;
3831          V724= make_cons(Cnil,Cnil);          V724= make_cons(Cnil,Cnil);
3832          V725= (V724);          V725= (V724);
3833          V726= (          V726= (
# Line 3835  T1399:; Line 3836  T1399:;
3836          V727= (          V727= (
3837          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3838          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));
3839  goto T1350;  goto T1351;
3840  T1350:;  T1351:;
3841          base[1]= (V726);          base[1]= (V726);
3842          base[2]= (V727);          base[2]= (V727);
3843          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3844          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3845          vs_top=sup;          vs_top=sup;
3846          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3847          goto T1413;}          goto T1414;}
3848          goto T1351;          goto T1352;
3849  goto T1413;  goto T1414;
3850  T1413:;  T1414:;
3851          base[1]= (V727);          base[1]= (V727);
3852          base[2]= (V726);          base[2]= (V726);
3853          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3854          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3855          vs_top=sup;          vs_top=sup;
3856          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3857          goto T1418;}          goto T1419;}
3858            goto T1353;
3859    goto T1419;
3860    T1419:;
3861          goto T1352;          goto T1352;
3862  goto T1418;  goto T1352;
3863  T1418:;  T1352:;
         goto T1351;  
 goto T1351;  
 T1351:;  
3864          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3865          ((V725))->c.c_cdr = (V722);          ((V725))->c.c_cdr = (V722);
3866          V725= cdr((V725));          V725= cdr((V725));
3867          V722= cdr((V722));          V722= cdr((V722));
3868          if(!(endp_prop((V722)))){          if(!(endp_prop((V722)))){
3869          goto T1427;}          goto T1428;}
3870          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3871          ((V725))->c.c_cdr = (V723);          ((V725))->c.c_cdr = (V723);
3872          base[1]= cdr((V724));          base[1]= cdr((V724));
3873          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3874          return;          return;
3875  goto T1427;  goto T1428;
3876  T1427:;  T1428:;
3877          V726= (          V726= (
3878          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3879          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722))));
3880          goto T1350;          goto T1351;
3881  goto T1352;  goto T1353;
3882  T1352:;  T1353:;
3883          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3884          ((V725))->c.c_cdr = (V723);          ((V725))->c.c_cdr = (V723);
3885          V725= cdr((V725));          V725= cdr((V725));
3886          V723= cdr((V723));          V723= cdr((V723));
3887          if(!(endp_prop((V723)))){          if(!(endp_prop((V723)))){
3888          goto T1438;}          goto T1439;}
3889          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));          if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725));
3890          ((V725))->c.c_cdr = (V722);          ((V725))->c.c_cdr = (V722);
3891          base[1]= cdr((V724));          base[1]= cdr((V724));
3892          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3893          return;          return;
3894  goto T1438;  goto T1439;
3895  T1438:;  T1439:;
3896          V727= (          V727= (
3897          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3898          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723))));
3899          goto T1350;}          goto T1351;}
3900          }          }
3901  }  }
3902  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* ARRAY-HAS-FILL-POINTER-P */
3903  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 */  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,2,ap);va_end(ap);return V1;} /* COERCE */
3904  static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* SORT */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* SORT */
3905  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 */  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */
3906  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* LIST-MERGE-SORT */  static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* LIST-MERGE-SORT */
3907  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 */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */
3908  static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* MEMBER1 */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MEMBER1 */
3909  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 */  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;} /* POSITION */
3910  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 */  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* FIND */
3911  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 */  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;} /* NSUBSTITUTE */
3912  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 */  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;} /* SUBSTITUTE */
3913  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 */  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;} /* COUNT */
3914  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 */  static object  LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,1,ap);va_end(ap);return V1;} /* SEQTYPE */
3915  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 */  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;} /* MAKE-SEQUENCE */
3916  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 */  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */
3917  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 */  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;} /* REMOVE */
3918  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 */  static object  LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[44],(void **)&LnkLI44,ap);va_end(ap);return V1;} /* DELETE */
3919  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 */  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,4,ap);va_end(ap);return V1;} /* CALL-TEST */
3920  static object  LnkTLI40(){return call_proc0(VV[40],(void **)&LnkLI40);} /* TEST-ERROR */  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* TEST-ERROR */
3921  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 */  static object  LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,258,ap);va_end(ap);return V1;} /* THE-END */
3922  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 */  static object  LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,257,ap);va_end(ap);return V1;} /* THE-START */
3923  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 */  static object  LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[33],(void **)&LnkLI33,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */
3924    static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* SPECIFIC-ERROR */
3925    
3926  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3927  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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