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

Diff of /gcl/lsp/gcl_seqlib.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:20 2003 UTC
# Line 138  TTL:; Line 138  TTL:;
138          base[0]=base[0];          base[0]=base[0];
139          return Cnil;          return Cnil;
140  }  }
141  /*      local entry for function BAD-SEQ-LIMIT  */  /*      function definition for BAD-SEQ-LIMIT   */
142    
143  static object LI5(object V28,object first,...)  static void L5()
144  {        {register object *base=vs_base;
145          va_list ap;          register object *sup=base+VM5; VC5
146          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          vs_reserve(VM5);
147          {object V29;          {object V28;
148          object V30;          object V29;
149          va_start(ap,first);          if(vs_top-vs_base<1) too_few_arguments();
150          if(narg <1) too_few_arguments();          if(vs_top-vs_base>2) too_many_arguments();
151          V29= V28;          V28=(base[0]);
152          narg = narg - 1;          vs_base=vs_base+1;
153          if (narg <= 0) goto T39;          if(vs_base>=vs_top){vs_top=sup;goto T39;}
154          else {          V29=(base[1]);
155          V30= first;}          vs_top=sup;
156          --narg; goto T40;          goto T40;
157          goto T39;          goto T39;
158  T39:;  T39:;
159          V30= Cnil;          V29= Cnil;
160          goto T40;          goto T40;
161  T40:;  T40:;
162          base[0]= VV[8];          base[2]= VV[8];
163          base[1]= VV[9];          base[3]= VV[9];
164          if(((V30))==Cnil){          if(((V29))==Cnil){
165          goto T46;}          goto T46;}
166          base[2]= list(2,(V29),(V30));          base[4]= list(2,(V28),(V29));
167          goto T44;          goto T44;
168          goto T46;          goto T46;
169  T46:;  T46:;
170          base[2]= (V29);          base[4]= (V28);
171          goto T44;          goto T44;
172  T44:;  T44:;
173          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+2)+3;
174          (void) (*Lnk32)();          (void) (*Lnk32)();
175          vs_top=sup;          return;
         {object V31 = vs_base[0];  
         VMR5(V31)}  
         va_end(ap);  
         base[0]=base[0];  
         return Cnil;}  
176          }          }
177    }
178  /*      local entry for function THE-END        */  /*      local entry for function THE-END        */
179    
180  static object LI6(V34,V35)  static object LI6(V32,V33)
181    
182  register object V34;object V35;  register object V32;object V33;
183  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
184          goto TTL;          goto TTL;
185  TTL:;  TTL:;
186          if(!(type_of((V34))==t_fixnum)){          if(!(type_of((V32))==t_fixnum)){
187          goto T49;}          goto T49;}
188          if(!((fix((V34)))<=((long)length((V35))))){          if(!((fix((V32)))<=((long)length((V33))))){
189          goto T52;}          goto T52;}
190          goto T51;          goto T51;
191          goto T52;          goto T52;
192  T52:;  T52:;
193          (void)((VFUN_NARGS=1,(*(LnkLI33))((V34))));          base[0]= (V32);
194            vs_top=(vs_base=base+0)+1;
195            (void) (*Lnk33)();
196            vs_top=sup;
197          goto T51;          goto T51;
198  T51:;  T51:;
199          {long V36 = fix((V34));          {long V34 = fix((V32));
200          VMR6((object)V36)}          VMR6((object)V34)}
201          goto T49;          goto T49;
202  T49:;  T49:;
203          if(((V34))!=Cnil){          if(((V32))!=Cnil){
204          goto T55;}          goto T56;}
205          {long V37 = (long)length((V35));          {long V35 = (long)length((V33));
206          VMR6((object)V37)}          VMR6((object)V35)}
207          goto T55;          goto T56;
208  T55:;  T56:;
209          {long V38 = fix((VFUN_NARGS=1,(*(LnkLI33))((V34))));          base[0]= (V32);
210          VMR6((object)V38)}          vs_top=(vs_base=base+0)+1;
211            (void) (*Lnk33)();
212            vs_top=sup;
213            {long V36 = fix(vs_base[0]);
214            VMR6((object)V36)}
215            base[0]=base[0];
216  }  }
217  /*      local entry for function THE-START      */  /*      local entry for function THE-START      */
218    
219  static object LI7(V40)  static object LI7(V38)
220    
221  register object V40;  register object V38;
222  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
223          goto TTL;          goto TTL;
224  TTL:;  TTL:;
225          if(!(type_of((V40))==t_fixnum)){          if(!(type_of((V38))==t_fixnum)){
226          goto T58;}          goto T60;}
227          if(!((fix((V40)))>=(0))){          if(!((fix((V38)))>=(0))){
228          goto T61;}          goto T63;}
229          goto T60;          goto T62;
230          goto T61;          goto T63;
231  T61:;  T63:;
232          (void)((VFUN_NARGS=1,(*(LnkLI33))((V40))));          base[0]= (V38);
233            vs_top=(vs_base=base+0)+1;
234            (void) (*Lnk33)();
235            vs_top=sup;
236            goto T62;
237    T62:;
238            {long V39 = fix((V38));
239            VMR7((object)V39)}
240          goto T60;          goto T60;
241  T60:;  T60:;
242          {long V41 = fix((V40));          if(((V38))!=Cnil){
243            goto T67;}
244            {long V40 = 0;
245            VMR7((object)V40)}
246            goto T67;
247    T67:;
248            base[0]= (V38);
249            vs_top=(vs_base=base+0)+1;
250            (void) (*Lnk33)();
251            vs_top=sup;
252            {long V41 = fix(vs_base[0]);
253          VMR7((object)V41)}          VMR7((object)V41)}
254          goto T58;          base[0]=base[0];
 T58:;  
         if(((V40))!=Cnil){  
         goto T64;}  
         {long V42 = 0;  
         VMR7((object)V42)}  
         goto T64;  
 T64:;  
         {long V43 = fix((VFUN_NARGS=1,(*(LnkLI33))((V40))));  
         VMR7((object)V43)}  
255  }  }
256  /*      function definition for REDUCE  */  /*      function definition for REDUCE  */
257    
# Line 247  static void L8() Line 259  static void L8()
259  {register object *base=vs_base;  {register object *base=vs_base;
260          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
261          vs_reserve(VM8);          vs_reserve(VM8);
262          {register object V44;          {register object V42;
263          register object V45;          register object V43;
264            object V44;
265            object V45;
266          object V46;          object V46;
267          object V47;          object V47;
268          object V48;          object V48;
269          object V49;          register object V49;
         object V50;  
         register object V51;  
270          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
271          parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]);          parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]);
272          V44=(base[0]);          V42=(base[0]);
273          V45=(base[1]);          V43=(base[1]);
274          vs_top=sup;          vs_top=sup;
275          V46=(base[2]);          V44=(base[2]);
276          V47=(base[3]);          V45=(base[3]);
277          V48=(base[4]);          V46=(base[4]);
278          V49=(base[5]);          V47=(base[5]);
279          V50=(base[10]);          V48=(base[10]);
280          if(base[11]==Cnil){          if(base[11]==Cnil){
281          V51= symbol_function(VV[35]);          V49= symbol_function(VV[35]);
282          }else{          }else{
283          V51=(base[6]);}          V49=(base[6]);}
284          {register long V52;          {register long V50;
285          if(((V47))==Cnil){          if(((V45))==Cnil){
         goto T69;}  
         V52= (long)(*(LnkLI36))((V47));  
         goto T67;  
         goto T69;  
 T69:;  
         V52= 0;  
         goto T67;  
 T67:;  
         {register long V53;  
         V53= (long)(*(LnkLI37))((V48),(V45));  
         if(!((V52)<=(V53))){  
286          goto T73;}          goto T73;}
287          goto T72;          V50= (long)(*(LnkLI36))((V45));
288            goto T71;
289          goto T73;          goto T73;
290  T73:;  T73:;
291          V54 = make_fixnum(V52);          V50= 0;
292          V55 = make_fixnum(V53);          goto T71;
293          (void)((VFUN_NARGS=2,(*(LnkLI33))(V54,V55)));  T71:;
294          goto T72;          {register long V51;
295  T72:;          V51= (long)(*(LnkLI37))((V46),(V43));
296          if(((V46))!=Cnil){          if(!((V50)<=(V51))){
297          goto T76;}          goto T77;}
298          if(((V50))!=Cnil){          goto T76;
299          goto T78;}          goto T77;
300          if(!((V52)>=(V53))){  T77:;
301          goto T81;}          base[12]= make_fixnum(V50);
302            base[13]= make_fixnum(V51);
303            vs_top=(vs_base=base+12)+2;
304            (void) (*Lnk33)();
305            vs_top=sup;
306            goto T76;
307    T76:;
308            if(((V44))!=Cnil){
309            goto T82;}
310            if(((V48))!=Cnil){
311            goto T84;}
312            if(!((V50)>=(V51))){
313            goto T87;}
314          vs_base=vs_top;          vs_base=vs_top;
315          super_funcall_no_event((V44));          super_funcall_no_event((V42));
316          return;          return;
317          goto T81;          goto T87;
318  T81:;  T87:;
319          V56= elt((V45),V52);          V52= elt((V43),V50);
320          V49= (          V47= (
321          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):          (type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)):
322          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56));          (fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V52));
323          V52= (long)(1)+(V52);          V50= (long)(1)+(V50);
324          goto T78;          goto T84;
325  T78:;  T84:;
326          {register object V57;          {register object V53;
327          V57= (V49);          V53= (V47);
328          goto T88;          goto T94;
329  T88:;  T94:;
330          if(!((V52)>=(V53))){          if(!((V50)>=(V51))){
331          goto T89;}          goto T95;}
332          base[12]= (V57);          base[12]= (V53);
333          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
334          return;          return;
335          goto T89;          goto T95;
336  T89:;  T95:;
337          {object V59;          {object V55;
338          V59= elt((V45),V52);          V55= elt((V43),V50);
339          V52= (long)(1)+(V52);          V50= (long)(1)+(V50);
340          base[12]= (V59);}          base[12]= (V55);}
341          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
342          super_funcall_no_event((V51));          super_funcall_no_event((V49));
343          vs_top=sup;          vs_top=sup;
344          V58= vs_base[0];          V54= vs_base[0];
345          V57= (          V53= (
346          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):          (type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)):
347          (fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58));          (fcall.fun=((V42)),fcall.argd=2,fcalln))((V53),V54));
348          goto T88;}          goto T94;}
349          goto T76;          goto T82;
350  T76:;  T82:;
351          if(((V50))!=Cnil){          if(((V48))!=Cnil){
352          goto T101;}          goto T107;}
353          if(!((V52)>=(V53))){          if(!((V50)>=(V51))){
354          goto T104;}          goto T110;}
355          vs_base=vs_top;          vs_base=vs_top;
356          super_funcall_no_event((V44));          super_funcall_no_event((V42));
357          return;          return;
358          goto T104;          goto T110;
359  T104:;  T110:;
360          V53= (long)(V53)+(-1);          V51= (long)(V51)+(-1);
361          V60= elt((V45),V53);          V56= elt((V43),V51);
362          V49= (          V47= (
363          (type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)):          (type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)):
364          (fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60));          (fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56));
365          goto T101;          goto T107;
366  T101:;  T107:;
367          {register object V61;          {register object V57;
368          V61= (V49);          V57= (V47);
369          goto T111;          goto T117;
370  T111:;  T117:;
371          if(!((V52)>=(V53))){          if(!((V50)>=(V51))){
372          goto T112;}          goto T118;}
373          base[12]= (V61);          base[12]= (V57);
374          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
375          return;          return;
376          goto T112;          goto T118;
377  T112:;  T118:;
378          V53= (long)(-1)+(V53);          V51= (long)(-1)+(V51);
379          base[12]= elt((V45),V53);          base[12]= elt((V43),V51);
380          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
381          super_funcall_no_event((V51));          super_funcall_no_event((V49));
382          vs_top=sup;          vs_top=sup;
383          V62= vs_base[0];          V58= vs_base[0];
384          V61= (          V57= (
385          (type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)):          (type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)):
386          (fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61)));          (fcall.fun=((V42)),fcall.argd=2,fcalln))(V58,(V57)));
387          goto T111;}}}          goto T117;}}}
388          }          }
389  }  }
390  /*      local entry for function FILL   */  /*      local entry for function FILL   */
391    
392  static object LI9(object V64,object V63,object first,...)  static object LI9(object V60,object V59,object first,...)
393  {        {      
394          va_list ap;          va_list ap;
395          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
396          {register object V65;          {register object V61;
397          register object V66;          register object V62;
398          object V67;          object V63;
399          object V68;          object V64;
400          va_start(ap,first);          va_start(ap,first);
401          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
402          V65= V64;          V61= V60;
403          V66= V63;          V62= V59;
404          narg= narg - 2;          narg= narg - 2;
405          {          {
406          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI9key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI9key,first,ap);
407          V67=(Vcs[2]);          V63=(Vcs[2]);
408          V68=(Vcs[3]);          V64=(Vcs[3]);
409          {long V69;          {long V65;
410          if(((V67))==Cnil){          if(((V63))==Cnil){
411          goto T125;}          goto T131;}
412          V69= (long)(*(LnkLI36))((V67));          V65= (long)(*(LnkLI36))((V63));
413          goto T123;          goto T129;
414          goto T125;          goto T131;
415  T125:;  T131:;
416          V69= 0;          V65= 0;
         goto T123;  
 T123:;  
         {register long V70;  
         V70= (long)(*(LnkLI37))((V68),(V65));  
         if(!((V69)<=(V70))){  
         goto T129;}  
         goto T128;  
417          goto T129;          goto T129;
418  T129:;  T129:;
419          V71 = make_fixnum(V69);          {register long V66;
420          V72 = make_fixnum(V70);          V66= (long)(*(LnkLI37))((V64),(V61));
421          (void)((VFUN_NARGS=2,(*(LnkLI33))(V71,V72)));          if(!((V65)<=(V66))){
422          goto T128;          goto T135;}
423  T128:;          goto T134;
424          {register long V73;          goto T135;
425          V73= V69;  T135:;
426          goto T133;          base[0]= make_fixnum(V65);
427  T133:;          base[1]= make_fixnum(V66);
428          if(!((V73)>=(V70))){          vs_top=(vs_base=base+0)+2;
429          goto T134;}          (void) (*Lnk33)();
430          {object V74 = (V65);          vs_top=sup;
         VMR9(V74)}  
431          goto T134;          goto T134;
432  T134:;  T134:;
433          (void)(elt_set((V65),V73,(V66)));          {register long V67;
434          V73= (long)(1)+(V73);          V67= V65;
435          goto T133;}}}          goto T141;
436    T141:;
437            if(!((V67)>=(V66))){
438            goto T142;}
439            {object V68 = (V61);
440            VMR9(V68)}
441            goto T142;
442    T142:;
443            (void)(elt_set((V61),V67,(V62)));
444            V67= (long)(1)+(V67);
445            goto T141;}}}
446          va_end(ap);          va_end(ap);
447            base[0]=base[0];
448          return Cnil;}          return Cnil;}
449          }}          }}
450  /*      local entry for function REPLACE        */  /*      local entry for function REPLACE        */
451    
452  static object LI10(object V76,object V75,object first,...)  static object LI10(object V70,object V69,object first,...)
453  {        {      
454          va_list ap;          va_list ap;
455          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
456          {register object V77;          {register object V71;
457          object V78;          object V72;
458          object V79;          object V73;
459          object V80;          object V74;
460          object V81;          object V75;
461          object V82;          object V76;
462          va_start(ap,first);          va_start(ap,first);
463          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
464          V77= V76;          V71= V70;
465          V78= V75;          V72= V69;
466          narg= narg - 2;          narg= narg - 2;
467          {          {
468          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap);
469          V79=(Vcs[2]);          V73=(Vcs[2]);
470          V80=(Vcs[3]);          V74=(Vcs[3]);
471          V81=(Vcs[4]);          V75=(Vcs[4]);
472          V82=(Vcs[5]);          V76=(Vcs[5]);
473          {long V83;          {long V77;
474          if(((V79))==Cnil){          if(((V73))==Cnil){
         goto T144;}  
         V83= (long)(*(LnkLI36))((V79));  
         goto T142;  
         goto T144;  
 T144:;  
         V83= 0;  
         goto T142;  
 T142:;  
         {long V84;  
         V84= (long)(*(LnkLI37))((V80),(V77));  
         if(!((V83)<=(V84))){  
         goto T148;}  
         goto T147;  
         goto T148;  
 T148:;  
         V85 = make_fixnum(V83);  
         V86 = make_fixnum(V84);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V85,V86)));  
         goto T147;  
 T147:;  
         {long V87;  
         if(((V81))==Cnil){  
475          goto T152;}          goto T152;}
476          V87= (long)(*(LnkLI36))((V81));          V77= (long)(*(LnkLI36))((V73));
477          goto T150;          goto T150;
478          goto T152;          goto T152;
479  T152:;  T152:;
480          V87= 0;          V77= 0;
481          goto T150;          goto T150;
482  T150:;  T150:;
483          {long V88;          {long V78;
484          V88= (long)(*(LnkLI37))((V82),(V78));          V78= (long)(*(LnkLI37))((V74),(V71));
485          if(!((V87)<=(V88))){          if(!((V77)<=(V78))){
486          goto T156;}          goto T156;}
487          goto T155;          goto T155;
488          goto T156;          goto T156;
489  T156:;  T156:;
490          V89 = make_fixnum(V87);          base[0]= make_fixnum(V77);
491          V90 = make_fixnum(V88);          base[1]= make_fixnum(V78);
492          (void)((VFUN_NARGS=2,(*(LnkLI33))(V89,V90)));          vs_top=(vs_base=base+0)+2;
493            (void) (*Lnk33)();
494            vs_top=sup;
495          goto T155;          goto T155;
496  T155:;  T155:;
497          if(!(((V77))==((V78)))){          {long V79;
498          goto T159;}          if(((V75))==Cnil){
499          if(!((V83)>(V87))){          goto T162;}
500          goto T159;}          V79= (long)(*(LnkLI36))((V75));
501          {register long V91;          goto T160;
502          long V92;          goto T162;
503          register long V93;  T162:;
504          register long V94;          V79= 0;
505          V91= 0;          goto T160;
506          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){  T160:;
507            {long V80;
508            V80= (long)(*(LnkLI37))((V76),(V72));
509            if(!((V79)<=(V80))){
510          goto T166;}          goto T166;}
511          V92= (long)(V84)-(V83);          goto T165;
         goto T164;  
512          goto T166;          goto T166;
513  T166:;  T166:;
514          V92= (long)(V88)-(V87);          base[0]= make_fixnum(V79);
515          goto T164;          base[1]= make_fixnum(V80);
516  T164:;          vs_top=(vs_base=base+0)+2;
517          V93= (long)(V83)+((long)(-1)+(V92));          (void) (*Lnk33)();
518          V94= (long)(V87)+((long)(-1)+(V92));          vs_top=sup;
519            goto T165;
520    T165:;
521            if(!(((V71))==((V72)))){
522            goto T171;}
523            if(!((V77)>(V79))){
524            goto T171;}
525            {register long V81;
526            long V82;
527            register long V83;
528            register long V84;
529            V81= 0;
530            if(!(((long)(V78)-(V77))<((long)(V80)-(V79)))){
531            goto T178;}
532            V82= (long)(V78)-(V77);
533            goto T176;
534            goto T178;
535    T178:;
536            V82= (long)(V80)-(V79);
537            goto T176;
538    T176:;
539            V83= (long)(V77)+((long)(-1)+(V82));
540            V84= (long)(V79)+((long)(-1)+(V82));
541            goto T183;
542    T183:;
543            if(!((V81)>=(V82))){
544            goto T184;}
545            {object V85 = (V71);
546            VMR10(V85)}
547            goto T184;
548    T184:;
549            V86= elt((V72),V84);
550            (void)(elt_set((V71),V83,/* INLINE-ARGS */V86));
551            V81= (long)(1)+(V81);
552            V83= (long)(-1)+(V83);
553            V84= (long)(-1)+(V84);
554            goto T183;}
555          goto T171;          goto T171;
556  T171:;  T171:;
557          if(!((V91)>=(V92))){          {register long V87;
558          goto T172;}          long V88;
559          {object V95 = (V77);          register long V89;
560          VMR10(V95)}          register long V90;
561          goto T172;          V87= 0;
562  T172:;          if(!(((long)(V78)-(V77))<((long)(V80)-(V79)))){
563          V96= elt((V78),V94);          goto T199;}
564          (void)(elt_set((V77),V93,/* INLINE-ARGS */V96));          V88= (long)(V78)-(V77);
565          V91= (long)(1)+(V91);          goto T197;
566          V93= (long)(-1)+(V93);          goto T199;
567          V94= (long)(-1)+(V94);  T199:;
568          goto T171;}          V88= (long)(V80)-(V79);
569          goto T159;          goto T197;
570  T159:;  T197:;
571          {register long V97;          V89= V77;
572          long V98;          V90= V79;
573          register long V99;          goto T204;
574          register long V100;  T204:;
575          V97= 0;          if(!((V87)>=(V88))){
576          if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){          goto T205;}
577          goto T187;}          {object V91 = (V71);
578          V98= (long)(V84)-(V83);          VMR10(V91)}
579          goto T185;          goto T205;
580          goto T187;  T205:;
581  T187:;          V92= elt((V72),V90);
582          V98= (long)(V88)-(V87);          (void)(elt_set((V71),V89,/* INLINE-ARGS */V92));
583          goto T185;          V87= (long)(1)+(V87);
584  T185:;          V89= (long)(1)+(V89);
585          V99= V83;          V90= (long)(1)+(V90);
586          V100= V87;          goto T204;}}}}}
         goto T192;  
 T192:;  
         if(!((V97)>=(V98))){  
         goto T193;}  
         {object V101 = (V77);  
         VMR10(V101)}  
         goto T193;  
 T193:;  
         V102= elt((V78),V100);  
         (void)(elt_set((V77),V99,/* INLINE-ARGS */V102));  
         V97= (long)(1)+(V97);  
         V99= (long)(1)+(V99);  
         V100= (long)(1)+(V100);  
         goto T192;}}}}}  
587          va_end(ap);          va_end(ap);
588            base[0]=base[0];
589          return Cnil;}          return Cnil;}
590          }}          }}
591  /*      local entry for function REMOVE */  /*      local entry for function REMOVE */
592    
593  static object LI11(object V104,object V103,object first,...)  static object LI11(object V94,object V93,object first,...)
594  {        {      
595          va_list ap;          va_list ap;
596          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
597          {object V105;          {object V95;
598          object V106;          object V96;
599          object V107;          object V97;
600          object V108;          object V98;
601          object V109;          object V99;
602          object V110;          object V100;
603          object V111;          object V101;
604          object V112;          object V102;
605          object V113;          object V103;
606          va_start(ap,first);          va_start(ap,first);
607          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
608          V105= V104;          V95= V94;
609          V106= V103;          V96= V93;
610          narg= narg - 2;          narg= narg - 2;
611          {          {
612          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap);
613          V107=(Vcs[2]);          V97=(Vcs[2]);
614          V108=(Vcs[3]);          V98=(Vcs[3]);
615          V109=(Vcs[4]);          V99=(Vcs[4]);
616          V110=(Vcs[5]);          V100=(Vcs[5]);
617          V111=(Vcs[6]);          V101=(Vcs[6]);
618          V112=(Vcs[7]);          V102=(Vcs[7]);
619          if(Vcs[8]==0){          if(Vcs[8]==0){
620          V113= symbol_function(VV[35]);          V103= symbol_function(VV[35]);
621          }else{          }else{
622          V113=(Vcs[8]);}          V103=(Vcs[8]);}
623          if(!(((V113))==(Cnil))){          if(!(((V103))==(Cnil))){
624          goto T204;}          goto T216;}
625          V113= symbol_function(VV[35]);          V103= symbol_function(VV[35]);
         goto T204;  
 T204:;  
         {long V114;  
         if(((V110))==Cnil){  
         goto T210;}  
         V114= (long)(*(LnkLI36))((V110));  
         goto T208;  
         goto T210;  
 T210:;  
         V114= 0;  
         goto T208;  
 T208:;  
         {long V115;  
         V115= (long)(*(LnkLI37))((V111),(V106));  
         if(!((V114)<=(V115))){  
         goto T214;}  
         goto T213;  
         goto T214;  
 T214:;  
         V116 = make_fixnum(V114);  
         V117 = make_fixnum(V115);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V116,V117)));  
         goto T213;  
 T213:;  
         {IDECL(GEN V118,V118space,V118alloc);  
         if(((V112))!=Cnil){  
         goto T218;}  
         ISETQ_FIX(V118,V118alloc,2147483647);  
         goto T216;  
         goto T218;  
 T218:;SETQ_IO(V118,V118alloc,(V112));  
626          goto T216;          goto T216;
627  T216:;  T216:;
628          if((V108)==Cnil){          {long V104;
629          goto T221;}          if(((V100))==Cnil){
630          if((V109)==Cnil){          goto T222;}
631          goto T221;}          V104= (long)(*(LnkLI36))((V100));
632          (void)((*(LnkLI42))());          goto T220;
633          goto T221;          goto T222;
634  T221:;  T222:;
635          if(((V107))!=Cnil){          V104= 0;
636          goto T223;}          goto T220;
637          if(!(type_of((V106))==t_cons||((V106))==Cnil)){  T220:;
638            {long V105;
639            V105= (long)(*(LnkLI37))((V101),(V96));
640            if(!((V104)<=(V105))){
641          goto T226;}          goto T226;}
642          {register object V119;          goto T225;
643          register object V120;          goto T226;
644          V119= (V106);  T226:;
645          V120= Cnil;          base[0]= make_fixnum(V104);
646          {register long V121;          base[1]= make_fixnum(V105);
647          V121= 0;          vs_top=(vs_base=base+0)+2;
648          goto T231;          (void) (*Lnk33)();
649  T231:;          vs_top=sup;
650          if(!((V121)>=(V114))){          goto T225;
651    T225:;
652            {IDECL(GEN V106,V106space,V106alloc);
653            if(((V102))!=Cnil){
654          goto T232;}          goto T232;}
655          goto T228;          ISETQ_FIX(V106,V106alloc,2147483647);
656            goto T230;
657          goto T232;          goto T232;
658  T232:;  T232:;SETQ_IO(V106,V106alloc,(V102));
659          {register object V122;          goto T230;
660          V122= car((V119));  T230:;
661          V120= make_cons((V122),(V120));}          if((V98)==Cnil){
662          {register object V123;          goto T235;}
663          V123= car((V119));          if((V99)==Cnil){
664          V119= cdr((V119));}          goto T235;}
665          V121= (long)(1)+(V121);          (void)((*(LnkLI42))());
666          goto T231;}          goto T235;
667          goto T228;  T235:;
668  T228:;          if(((V97))!=Cnil){
669          {register long V124;          goto T237;}
670          register long V125;          if(!(type_of((V96))==t_cons||((V96))==Cnil)){
671          V124= V114;          goto T240;}
672          V125= 0;          {register object V107;
673          goto T249;          register object V108;
674  T249:;          V107= (V96);
675          if((V124)>=(V115)){          V108= Cnil;
676          goto T251;}          {register long V109;
677          V126 = make_fixnum(V125);          V109= 0;
678          V127 = make_integer(V118);          goto T245;
679          if(number_compare(V126,V127)>=0){  T245:;
680          goto T251;}          if(!((V109)>=(V104))){
681          if(!(endp_prop((V119)))){          goto T246;}
682          goto T250;}          goto T242;
683          goto T251;          goto T246;
684  T251:;  T246:;
685          base[0]= (V120);          {register object V110;
686          base[1]= (V119);          V110= car((V107));
687            V108= make_cons((V110),(V108));}
688            {register object V111;
689            V111= car((V107));
690            V107= cdr((V107));}
691            V109= (long)(1)+(V109);
692            goto T245;}
693            goto T242;
694    T242:;
695            {register long V112;
696            register long V113;
697            V112= V104;
698            V113= 0;
699            goto T263;
700    T263:;
701            if((V112)>=(V105)){
702            goto T265;}
703            V114 = make_fixnum(V113);
704            V115 = make_integer(V106);
705            if(number_compare(V114,V115)>=0){
706            goto T265;}
707            if(!(endp_prop((V107)))){
708            goto T264;}
709            goto T265;
710    T265:;
711            base[0]= (V108);
712            base[1]= (V107);
713          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
714          Lreconc();          Lreconc();
715          vs_top=sup;          vs_top=sup;
716          {object V128 = vs_base[0];          {object V116 = vs_base[0];
717          VMR11(V128)}          VMR11(V116)}
718          goto T250;          goto T264;
719  T250:;  T264:;
720          base[0]= car((V119));          base[0]= car((V107));
721          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
722          super_funcall_no_event((V113));          super_funcall_no_event((V103));
723          vs_top=sup;          vs_top=sup;
724          V129= vs_base[0];          V117= vs_base[0];
725          if(((*(LnkLI43))((V108),(V109),(V105),V129))==Cnil){          if(((*(LnkLI43))((V98),(V99),(V95),V117))==Cnil){
726          goto T262;}          goto T276;}
727          V125= (long)(1)+(V125);          V113= (long)(1)+(V113);
728          {register object V130;          {register object V118;
729          V130= car((V119));          V118= car((V107));
730          V119= cdr((V119));          V107= cdr((V107));
731          goto T260;}          goto T274;}
732          goto T262;          goto T276;
733  T262:;  T276:;
734          {register object V131;          {register object V119;
735          V131= car((V119));          V119= car((V107));
736          V120= make_cons((V131),(V120));}          V108= make_cons((V119),(V108));}
737          {register object V132;          {register object V120;
738          V132= car((V119));          V120= car((V107));
739          V119= cdr((V119));}          V107= cdr((V107));}
740          goto T260;          goto T274;
741  T260:;  T274:;
742          V124= (long)(1)+(V124);          V112= (long)(1)+(V112);
743          goto T249;}}          goto T263;}}
744          goto T226;          goto T240;
745  T226:;  T240:;
746          V133 = make_fixnum(V114);          V121 = make_fixnum(V104);
747          V134 = make_fixnum(V115);          V122 = make_fixnum(V105);
748          V135 = make_integer(V118);          V123 = make_integer(V106);
749          {object V136 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V133,VV[15],V134,VV[16],V135,VV[17],(V113)));          {object V124 = (VFUN_NARGS=16,(*(LnkLI44))((V95),(V96),VV[11],(V97),VV[12],(V98),VV[13],(V99),VV[14],V121,VV[15],V122,VV[16],V123,VV[17],(V103)));
750          VMR11(V136)}          VMR11(V124)}
751          goto T223;          goto T237;
752  T223:;  T237:;
753          V137 = make_fixnum(V114);          V125 = make_fixnum(V104);
754          V138 = make_fixnum(V115);          V126 = make_fixnum(V105);
755          V139 = make_integer(V118);          V127 = make_integer(V106);
756          {object V140 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V137,VV[15],V138,VV[16],V139,VV[17],(V113)));          {object V128 = (VFUN_NARGS=16,(*(LnkLI44))((V95),(V96),VV[11],(V97),VV[12],(V98),VV[13],(V99),VV[14],V125,VV[15],V126,VV[16],V127,VV[17],(V103)));
757          VMR11(V140)}}}}          VMR11(V128)}}}}
758          va_end(ap);          va_end(ap);
759          base[0]=base[0];          base[0]=base[0];
760          return Cnil;}          return Cnil;}
761          }}          }}
762  /*      local entry for function REMOVE-IF      */  /*      local entry for function REMOVE-IF      */
763    
764  static object LI12(object V142,object V141,object first,...)  static object LI12(object V130,object V129,object first,...)
765  {        {      
766          va_list ap;          va_list ap;
767          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
768          {object V143;          {object V131;
769          object V144;          object V132;
770          object V145;          object V133;
771          object V146;          object V134;
772          object V147;          object V135;
773          object V148;          object V136;
774          object V149;          object V137;
775          va_start(ap,first);          va_start(ap,first);
776          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
777          V143= V142;          V131= V130;
778          V144= V141;          V132= V129;
779          narg= narg - 2;          narg= narg - 2;
780          {          {
781          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap);
782          V145=(Vcs[2]);          V133=(Vcs[2]);
783          V146=(Vcs[3]);          V134=(Vcs[3]);
784          V147=(Vcs[4]);          V135=(Vcs[4]);
785          V148=(Vcs[5]);          V136=(Vcs[5]);
786          if(Vcs[6]==0){          if(Vcs[6]==0){
787          V149= symbol_function(VV[35]);          V137= symbol_function(VV[35]);
788          }else{          }else{
789          V149=(Vcs[6]);}          V137=(Vcs[6]);}
790          if(!(((V149))==(Cnil))){          if(!(((V137))==(Cnil))){
791          goto T281;}          goto T295;}
792          V149= symbol_function(VV[35]);          V137= symbol_function(VV[35]);
793          goto T281;          goto T295;
794  T281:;  T295:;
795          V150= symbol_function(VV[46]);          V138= symbol_function(VV[46]);
796          {object V151 = (VFUN_NARGS=14,(*(LnkLI45))((V143),(V144),VV[11],(V145),VV[12],V150,VV[14],(V146),VV[15],(V147),VV[16],(V148),VV[17],(V149)));          {object V139 = (VFUN_NARGS=14,(*(LnkLI45))((V131),(V132),VV[11],(V133),VV[12],V138,VV[14],(V134),VV[15],(V135),VV[16],(V136),VV[17],(V137)));
797          VMR12(V151)}          VMR12(V139)}
798          va_end(ap);          va_end(ap);
799          return Cnil;}          return Cnil;}
800          }}          }}
801  /*      local entry for function REMOVE-IF-NOT  */  /*      local entry for function REMOVE-IF-NOT  */
802    
803  static object LI13(object V153,object V152,object first,...)  static object LI13(object V141,object V140,object first,...)
804  {        {      
805          va_list ap;          va_list ap;
806          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
807          {object V154;          {object V142;
808          object V155;          object V143;
809          object V156;          object V144;
810          object V157;          object V145;
811          object V158;          object V146;
812          object V159;          object V147;
813          object V160;          object V148;
814          va_start(ap,first);          va_start(ap,first);
815          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
816          V154= V153;          V142= V141;
817          V155= V152;          V143= V140;
818          narg= narg - 2;          narg= narg - 2;
819          {          {
820          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI13key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI13key,first,ap);
821          V156=(Vcs[2]);          V144=(Vcs[2]);
822          V157=(Vcs[3]);          V145=(Vcs[3]);
823          V158=(Vcs[4]);          V146=(Vcs[4]);
824          V159=(Vcs[5]);          V147=(Vcs[5]);
825          if(Vcs[6]==0){          if(Vcs[6]==0){
826          V160= symbol_function(VV[35]);          V148= symbol_function(VV[35]);
827          }else{          }else{
828          V160=(Vcs[6]);}          V148=(Vcs[6]);}
829          if(!(((V160))==(Cnil))){          if(!(((V148))==(Cnil))){
830          goto T287;}          goto T301;}
831          V160= symbol_function(VV[35]);          V148= symbol_function(VV[35]);
832          goto T287;          goto T301;
833  T287:;  T301:;
834          V161= symbol_function(VV[46]);          V149= symbol_function(VV[46]);
835          {object V162 = (VFUN_NARGS=14,(*(LnkLI45))((V154),(V155),VV[11],(V156),VV[13],V161,VV[14],(V157),VV[15],(V158),VV[16],(V159),VV[17],(V160)));          {object V150 = (VFUN_NARGS=14,(*(LnkLI45))((V142),(V143),VV[11],(V144),VV[13],V149,VV[14],(V145),VV[15],(V146),VV[16],(V147),VV[17],(V148)));
836          VMR13(V162)}          VMR13(V150)}
837          va_end(ap);          va_end(ap);
838          return Cnil;}          return Cnil;}
839          }}          }}
840  /*      local entry for function DELETE */  /*      local entry for function DELETE */
841    
842  static object LI14(object V164,object V163,object first,...)  static object LI14(object V152,object V151,object first,...)
843  {        {      
844          va_list ap;          va_list ap;
845          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
846          {object V165;          {object V153;
847          register object V166;          register object V154;
848          object V167;          object V155;
849          object V168;          object V156;
850          object V169;          object V157;
851          object V170;          object V158;
852          object V171;          object V159;
853          object V172;          object V160;
854          object V173;          object V161;
855          va_start(ap,first);          va_start(ap,first);
856          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
857          V165= V164;          V153= V152;
858          V166= V163;          V154= V151;
859          narg= narg - 2;          narg= narg - 2;
860          {          {
861          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI14key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI14key,first,ap);
862          V167=(Vcs[2]);          V155=(Vcs[2]);
863          V168=(Vcs[3]);          V156=(Vcs[3]);
864          V169=(Vcs[4]);          V157=(Vcs[4]);
865          V170=(Vcs[5]);          V158=(Vcs[5]);
866          V171=(Vcs[6]);          V159=(Vcs[6]);
867          V172=(Vcs[7]);          V160=(Vcs[7]);
868          if(Vcs[8]==0){          if(Vcs[8]==0){
869          V173= symbol_function(VV[35]);          V161= symbol_function(VV[35]);
870          }else{          }else{
871          V173=(Vcs[8]);}          V161=(Vcs[8]);}
872          {long V174;          {long V162;
873          V174= (long)length((V166));          V162= (long)length((V154));
874          if(!(((V173))==(Cnil))){          if(!(((V161))==(Cnil))){
         goto T294;}  
         V173= symbol_function(VV[35]);  
         goto T294;  
 T294:;  
         {register long V175;  
         if(((V170))==Cnil){  
         goto T300;}  
         V175= (long)(*(LnkLI36))((V170));  
         goto T298;  
         goto T300;  
 T300:;  
         V175= 0;  
         goto T298;  
 T298:;  
         {long V176;  
         V176= (long)(*(LnkLI37))((V171),(V166));  
         if(!((V175)<=(V176))){  
         goto T304;}  
         goto T303;  
         goto T304;  
 T304:;  
         V177 = make_fixnum(V175);  
         V178 = make_fixnum(V176);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V177,V178)));  
         goto T303;  
 T303:;  
         {IDECL(register GEN V179,V179space,V179alloc);  
         if(((V172))!=Cnil){  
875          goto T308;}          goto T308;}
876          ISETQ_FIX(V179,V179alloc,2147483647);          V161= symbol_function(VV[35]);
         goto T306;  
877          goto T308;          goto T308;
878  T308:;SETQ_IO(V179,V179alloc,(V172));  T308:;
879          goto T306;          {register long V163;
880  T306:;          if(((V158))==Cnil){
881          if((V168)==Cnil){          goto T314;}
882          goto T311;}          V163= (long)(*(LnkLI36))((V158));
883          if((V169)==Cnil){          goto T312;
884          goto T311;}          goto T314;
885          (void)((*(LnkLI42))());  T314:;
886          goto T311;          V163= 0;
887  T311:;          goto T312;
888          if(((V167))!=Cnil){  T312:;
889          goto T313;}          {long V164;
890          if(!(type_of((V166))==t_cons||((V166))==Cnil)){          V164= (long)(*(LnkLI37))((V159),(V154));
891          goto T316;}          if(!((V163)<=(V164))){
892          {object V180;          goto T318;}
893          register object V181;          goto T317;
894          V180= make_cons(Cnil,(V166));          goto T318;
895          V181= (V180);  T318:;
896          {long V182;          base[0]= make_fixnum(V163);
897          V182= 0;          base[1]= make_fixnum(V164);
898          goto T323;          vs_top=(vs_base=base+0)+2;
899  T323:;          (void) (*Lnk33)();
900          if(!((V182)>=(V175))){          vs_top=sup;
901            goto T317;
902    T317:;
903            {IDECL(register GEN V165,V165space,V165alloc);
904            if(((V160))!=Cnil){
905          goto T324;}          goto T324;}
906          goto T320;          ISETQ_FIX(V165,V165alloc,2147483647);
907            goto T322;
908          goto T324;          goto T324;
909  T324:;  T324:;SETQ_IO(V165,V165alloc,(V160));
910          {object V183;          goto T322;
911          V183= car((V181));  T322:;
912          V181= cdr((V181));}          if((V156)==Cnil){
913          V182= (long)(1)+(V182);          goto T327;}
914          goto T323;}          if((V157)==Cnil){
915          goto T320;          goto T327;}
916  T320:;          (void)((*(LnkLI42))());
917          {long V184;          goto T327;
918          long V185;  T327:;
919          V184= V175;          if(((V155))!=Cnil){
920          V185= 0;          goto T329;}
921          goto T338;          if(!(type_of((V154))==t_cons||((V154))==Cnil)){
922  T338:;          goto T332;}
923          if((V184)>=(V176)){          {object V166;
924          goto T340;}          register object V167;
925          V186 = make_fixnum(V185);          V166= make_cons(Cnil,(V154));
926          V187 = make_integer(V179);          V167= (V166);
927          if(number_compare(V186,V187)>=0){          {long V168;
928            V168= 0;
929            goto T339;
930    T339:;
931            if(!((V168)>=(V163))){
932          goto T340;}          goto T340;}
933          if(!(endp_prop(cdr((V181))))){          goto T336;
         goto T339;}  
934          goto T340;          goto T340;
935  T340:;  T340:;
936          {object V188 = cdr((V180));          {object V169;
937          VMR14(V188)}          V169= car((V167));
938          goto T339;          V167= cdr((V167));}
939  T339:;          V168= (long)(1)+(V168);
940          base[1]= cadr((V181));          goto T339;}
941            goto T336;
942    T336:;
943            {long V170;
944            long V171;
945            V170= V163;
946            V171= 0;
947            goto T354;
948    T354:;
949            if((V170)>=(V164)){
950            goto T356;}
951            V172 = make_fixnum(V171);
952            V173 = make_integer(V165);
953            if(number_compare(V172,V173)>=0){
954            goto T356;}
955            if(!(endp_prop(cdr((V167))))){
956            goto T355;}
957            goto T356;
958    T356:;
959            {object V174 = cdr((V166));
960            VMR14(V174)}
961            goto T355;
962    T355:;
963            base[1]= cadr((V167));
964          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
965          super_funcall_no_event((V173));          super_funcall_no_event((V161));
966          vs_top=sup;          vs_top=sup;
967          V189= vs_base[0];          V175= vs_base[0];
968          if(((*(LnkLI43))((V168),(V169),(V165),V189))==Cnil){          if(((*(LnkLI43))((V156),(V157),(V153),V175))==Cnil){
969          goto T349;}          goto T365;}
970          V185= (long)(1)+(V185);          V171= (long)(1)+(V171);
971          if(type_of((V181))!=t_cons)FEwrong_type_argument(Scons,(V181));          if(type_of((V167))!=t_cons)FEwrong_type_argument(Scons,(V167));
972          ((V181))->c.c_cdr = cddr((V181));          ((V167))->c.c_cdr = cddr((V167));
973          goto T347;          goto T363;
974          goto T349;          goto T365;
975  T349:;  T365:;
976          V181= cdr((V181));          V167= cdr((V167));
977          goto T347;          goto T363;
978  T347:;  T363:;
979          V184= (long)(1)+(V184);          V170= (long)(1)+(V170);
980          goto T338;}}          goto T354;}}
981          goto T316;          goto T332;
982  T316:;  T332:;
983          {long V190;          {long V176;
984          V191 = make_fixnum(V175);          V177 = make_fixnum(V163);
985          V192 = make_fixnum(V176);          V178 = make_fixnum(V164);
986          V193 = make_integer(V179);          V179 = make_integer(V165);
987          V190= fix((VFUN_NARGS=16,(*(LnkLI47))((V165),(V166),VV[11],(V167),VV[12],(V168),VV[13],(V169),VV[14],V191,VV[15],V192,VV[16],V193,VV[17],(V173))));          V176= fix((VFUN_NARGS=16,(*(LnkLI47))((V153),(V154),VV[11],(V155),VV[12],(V156),VV[13],(V157),VV[14],V177,VV[15],V178,VV[16],V179,VV[17],(V161))));
988          V194 = make_fixnum(V190);          V180 = make_fixnum(V176);
989          V195 = make_integer(V179);          V181 = make_integer(V165);
990          if(!(number_compare(V194,V195)<0)){          if(!(number_compare(V180,V181)<0)){
991          goto T360;}ISETQ_FIX(V179,V179alloc,V190);          goto T376;}ISETQ_FIX(V165,V165alloc,V176);
992          goto T360;          goto T376;
993  T360:;  T376:;
994          V196 = make_integer(V179);          V182 = make_integer(V165);
995          if(!(number_compare(V196,small_fixnum(0))<0)){          if(!(number_compare(V182,small_fixnum(0))<0)){
         goto T364;}  
         ISETQ_FIX(V179,V179alloc,0);  
         goto T364;  
 T364:;  
         {object V197;  
         register long V198;  
         long V199;  
         long V200;  
         V201= (*(LnkLI49))((V166));  
         V202 = fix(make_integer(V179));  
         V203 = make_fixnum((long)(V174)-(V202));  
         V197= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V201,V203));  
         V198= 0;  
         V199= 0;  
         V200= 0;  
         goto T373;  
 T373:;  
         if(!((V198)>=(V174))){  
         goto T374;}  
         {object V204 = (V197);  
         VMR14(V204)}  
         goto T374;  
 T374:;  
         if(!((V175)<=(V198))){  
         goto T380;}  
         if(!((V198)<(V176))){  
         goto T380;}  
         V205 = make_fixnum(V200);  
         V206 = make_integer(V179);  
         if(!(number_compare(V205,V206)<0)){  
         goto T380;}  
         base[0]= elt((V166),V198);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V173));  
         vs_top=sup;  
         V207= vs_base[0];  
         if(((*(LnkLI43))((V168),(V169),(V165),V207))==Cnil){  
996          goto T380;}          goto T380;}
997          V200= (long)(1)+(V200);          ISETQ_FIX(V165,V165alloc,0);
         goto T378;  
998          goto T380;          goto T380;
999  T380:;  T380:;
1000          V208= elt((V166),V198);          {object V183;
1001          (void)(elt_set((V197),V199,/* INLINE-ARGS */V208));          register long V184;
1002          V199= (long)(1)+(V199);          long V185;
1003          goto T378;          long V186;
1004  T378:;          V187= (*(LnkLI49))((V154));
1005          V198= (long)(1)+(V198);          V188 = fix(make_integer(V165));
1006          goto T373;}}          V189 = make_fixnum((long)(V162)-(V188));
1007          goto T313;          V183= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V187,V189));
1008  T313:;          V184= 0;
1009          {long V209;          V185= 0;
1010          V210 = make_fixnum(V175);          V186= 0;
1011          V211 = make_fixnum(V176);          goto T389;
1012          V212 = make_integer(V179);  T389:;
1013          V209= fix((VFUN_NARGS=16,(*(LnkLI47))((V165),(V166),VV[11],(V167),VV[12],(V168),VV[13],(V169),VV[14],V210,VV[15],V211,VV[16],V212,VV[17],(V173))));          if(!((V184)>=(V162))){
1014          V213 = make_fixnum(V209);          goto T390;}
1015          V214 = make_integer(V179);          {object V190 = (V183);
1016          if(!(number_compare(V213,V214)<0)){          VMR14(V190)}
1017          goto T397;}ISETQ_FIX(V179,V179alloc,V209);          goto T390;
1018          goto T397;  T390:;
1019  T397:;          if(!((V163)<=(V184))){
1020          V215 = make_integer(V179);          goto T396;}
1021          if(!(number_compare(V215,small_fixnum(0))<0)){          if(!((V184)<(V164))){
1022          goto T401;}          goto T396;}
1023          ISETQ_FIX(V179,V179alloc,0);          V191 = make_fixnum(V186);
1024          goto T401;          V192 = make_integer(V165);
1025  T401:;          if(!(number_compare(V191,V192)<0)){
1026          {object V216;          goto T396;}
1027          register long V217;          base[0]= elt((V154),V184);
1028          long V218;          vs_top=(vs_base=base+0)+1;
1029          long V219;          super_funcall_no_event((V161));
1030          V220= (*(LnkLI49))((V166));          vs_top=sup;
1031          V221 = fix(make_integer(V179));          V193= vs_base[0];
1032          V222 = make_fixnum((long)(V174)-(V221));          if(((*(LnkLI43))((V156),(V157),(V153),V193))==Cnil){
1033          V216= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V220,V222));          goto T396;}
1034          V217= (long)(-1)+(V174);          V186= (long)(1)+(V186);
1035          V223 = fix(make_integer(V179));          goto T394;
1036          V218= (long)(-1)+((long)(V174)-(V223));          goto T396;
1037          V219= 0;  T396:;
1038          goto T410;          V194= elt((V154),V184);
1039  T410:;          (void)(elt_set((V183),V185,/* INLINE-ARGS */V194));
1040          if(!((V217)<(0))){          V185= (long)(1)+(V185);
1041          goto T411;}          goto T394;
1042          {object V224 = (V216);  T394:;
1043          VMR14(V224)}          V184= (long)(1)+(V184);
1044          goto T411;          goto T389;}}
1045  T411:;          goto T329;
1046          if(!((V175)<=(V217))){  T329:;
1047          goto T417;}          {long V195;
1048          if(!((V217)<(V176))){          V196 = make_fixnum(V163);
1049          goto T417;}          V197 = make_fixnum(V164);
1050          V225 = make_fixnum(V219);          V198 = make_integer(V165);
1051          V226 = make_integer(V179);          V195= fix((VFUN_NARGS=16,(*(LnkLI47))((V153),(V154),VV[11],(V155),VV[12],(V156),VV[13],(V157),VV[14],V196,VV[15],V197,VV[16],V198,VV[17],(V161))));
1052          if(!(number_compare(V225,V226)<0)){          V199 = make_fixnum(V195);
1053          goto T417;}          V200 = make_integer(V165);
1054          base[0]= elt((V166),V217);          if(!(number_compare(V199,V200)<0)){
1055          vs_top=(vs_base=base+0)+1;          goto T413;}ISETQ_FIX(V165,V165alloc,V195);
1056          super_funcall_no_event((V173));          goto T413;
1057          vs_top=sup;  T413:;
1058          V227= vs_base[0];          V201 = make_integer(V165);
1059          if(((*(LnkLI43))((V168),(V169),(V165),V227))==Cnil){          if(!(number_compare(V201,small_fixnum(0))<0)){
1060          goto T417;}          goto T417;}
1061          V219= (long)(1)+(V219);          ISETQ_FIX(V165,V165alloc,0);
         goto T415;  
1062          goto T417;          goto T417;
1063  T417:;  T417:;
1064          V228= elt((V166),V217);          {object V202;
1065          (void)(elt_set((V216),V218,/* INLINE-ARGS */V228));          register long V203;
1066          V218= (long)(-1)+(V218);          long V204;
1067          goto T415;          long V205;
1068  T415:;          V206= (*(LnkLI49))((V154));
1069          V217= (long)(-1)+(V217);          V207 = fix(make_integer(V165));
1070          goto T410;}}}}}}          V208 = make_fixnum((long)(V162)-(V207));
1071            V202= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V206,V208));
1072            V203= (long)(-1)+(V162);
1073            V209 = fix(make_integer(V165));
1074            V204= (long)(-1)+((long)(V162)-(V209));
1075            V205= 0;
1076            goto T426;
1077    T426:;
1078            if(!((V203)<(0))){
1079            goto T427;}
1080            {object V210 = (V202);
1081            VMR14(V210)}
1082            goto T427;
1083    T427:;
1084            if(!((V163)<=(V203))){
1085            goto T433;}
1086            if(!((V203)<(V164))){
1087            goto T433;}
1088            V211 = make_fixnum(V205);
1089            V212 = make_integer(V165);
1090            if(!(number_compare(V211,V212)<0)){
1091            goto T433;}
1092            base[0]= elt((V154),V203);
1093            vs_top=(vs_base=base+0)+1;
1094            super_funcall_no_event((V161));
1095            vs_top=sup;
1096            V213= vs_base[0];
1097            if(((*(LnkLI43))((V156),(V157),(V153),V213))==Cnil){
1098            goto T433;}
1099            V205= (long)(1)+(V205);
1100            goto T431;
1101            goto T433;
1102    T433:;
1103            V214= elt((V154),V203);
1104            (void)(elt_set((V202),V204,/* INLINE-ARGS */V214));
1105            V204= (long)(-1)+(V204);
1106            goto T431;
1107    T431:;
1108            V203= (long)(-1)+(V203);
1109            goto T426;}}}}}}
1110          va_end(ap);          va_end(ap);
1111          base[0]=base[0];          base[0]=base[0];
1112          return Cnil;}          return Cnil;}
1113          }}          }}
1114  /*      local entry for function DELETE-IF      */  /*      local entry for function DELETE-IF      */
1115    
1116  static object LI15(object V230,object V229,object first,...)  static object LI15(object V216,object V215,object first,...)
1117  {        {      
1118          va_list ap;          va_list ap;
1119          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
1120          {object V231;          {object V217;
1121          object V232;          object V218;
1122          object V233;          object V219;
1123          object V234;          object V220;
1124          object V235;          object V221;
1125          object V236;          object V222;
1126          object V237;          object V223;
1127          va_start(ap,first);          va_start(ap,first);
1128          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1129          V231= V230;          V217= V216;
1130          V232= V229;          V218= V215;
1131          narg= narg - 2;          narg= narg - 2;
1132          {          {
1133          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI15key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI15key,first,ap);
1134          V233=(Vcs[2]);          V219=(Vcs[2]);
1135          V234=(Vcs[3]);          V220=(Vcs[3]);
1136          V235=(Vcs[4]);          V221=(Vcs[4]);
1137          V236=(Vcs[5]);          V222=(Vcs[5]);
1138          if(Vcs[6]==0){          if(Vcs[6]==0){
1139          V237= symbol_function(VV[35]);          V223= symbol_function(VV[35]);
1140          }else{          }else{
1141          V237=(Vcs[6]);}          V223=(Vcs[6]);}
1142          if(!(((V237))==(Cnil))){          if(!(((V223))==(Cnil))){
1143          goto T434;}          goto T450;}
1144          V237= symbol_function(VV[35]);          V223= symbol_function(VV[35]);
1145          goto T434;          goto T450;
1146  T434:;  T450:;
1147          V238= symbol_function(VV[46]);          V224= symbol_function(VV[46]);
1148          {object V239 = (VFUN_NARGS=14,(*(LnkLI44))((V231),(V232),VV[11],(V233),VV[12],V238,VV[14],(V234),VV[15],(V235),VV[16],(V236),VV[17],(V237)));          {object V225 = (VFUN_NARGS=14,(*(LnkLI44))((V217),(V218),VV[11],(V219),VV[12],V224,VV[14],(V220),VV[15],(V221),VV[16],(V222),VV[17],(V223)));
1149          VMR15(V239)}          VMR15(V225)}
1150          va_end(ap);          va_end(ap);
1151          return Cnil;}          return Cnil;}
1152          }}          }}
1153  /*      local entry for function DELETE-IF-NOT  */  /*      local entry for function DELETE-IF-NOT  */
1154    
1155  static object LI16(object V241,object V240,object first,...)  static object LI16(object V227,object V226,object first,...)
1156  {        {      
1157          va_list ap;          va_list ap;
1158          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1159          {object V242;          {object V228;
1160          object V243;          object V229;
1161          object V244;          object V230;
1162          object V245;          object V231;
1163          object V246;          object V232;
1164          object V247;          object V233;
1165          object V248;          object V234;
1166          va_start(ap,first);          va_start(ap,first);
1167          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1168          V242= V241;          V228= V227;
1169          V243= V240;          V229= V226;
1170          narg= narg - 2;          narg= narg - 2;
1171          {          {
1172          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI16key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI16key,first,ap);
1173          V244=(Vcs[2]);          V230=(Vcs[2]);
1174          V245=(Vcs[3]);          V231=(Vcs[3]);
1175          V246=(Vcs[4]);          V232=(Vcs[4]);
1176          V247=(Vcs[5]);          V233=(Vcs[5]);
1177          if(Vcs[6]==0){          if(Vcs[6]==0){
1178          V248= symbol_function(VV[35]);          V234= symbol_function(VV[35]);
1179          }else{          }else{
1180          V248=(Vcs[6]);}          V234=(Vcs[6]);}
1181          if(!(((V248))==(Cnil))){          if(!(((V234))==(Cnil))){
1182          goto T440;}          goto T456;}
1183          V248= symbol_function(VV[35]);          V234= symbol_function(VV[35]);
1184          goto T440;          goto T456;
1185  T440:;  T456:;
1186          V249= symbol_function(VV[46]);          V235= symbol_function(VV[46]);
1187          {object V250 = (VFUN_NARGS=14,(*(LnkLI44))((V242),(V243),VV[11],(V244),VV[13],V249,VV[14],(V245),VV[15],(V246),VV[16],(V247),VV[17],(V248)));          {object V236 = (VFUN_NARGS=14,(*(LnkLI44))((V228),(V229),VV[11],(V230),VV[13],V235,VV[14],(V231),VV[15],(V232),VV[16],(V233),VV[17],(V234)));
1188          VMR16(V250)}          VMR16(V236)}
1189          va_end(ap);          va_end(ap);
1190          return Cnil;}          return Cnil;}
1191          }}          }}
1192  /*      local entry for function COUNT  */  /*      local entry for function COUNT  */
1193    
1194  static object LI17(object V252,object V251,object first,...)  static object LI17(object V238,object V237,object first,...)
1195  {        {      
1196          va_list ap;          va_list ap;
1197          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
1198          {object V253;          {object V239;
1199          register object V254;          register object V240;
1200          object V255;          object V241;
1201          register object V256;          register object V242;
1202          register object V257;          register object V243;
1203          object V258;          object V244;
1204          object V259;          object V245;
1205          register object V260;          register object V246;
1206          va_start(ap,first);          va_start(ap,first);
1207          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1208          V253= V252;          V239= V238;
1209          V254= V251;          V240= V237;
1210          narg= narg - 2;          narg= narg - 2;
1211          {          {
1212          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI17key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI17key,first,ap);
1213          V255=(Vcs[2]);          V241=(Vcs[2]);
1214          V256=(Vcs[3]);          V242=(Vcs[3]);
1215          V257=(Vcs[4]);          V243=(Vcs[4]);
1216          V258=(Vcs[5]);          V244=(Vcs[5]);
1217          V259=(Vcs[6]);          V245=(Vcs[6]);
1218          if(Vcs[7]==0){          if(Vcs[7]==0){
1219          V260= symbol_function(VV[35]);          V246= symbol_function(VV[35]);
1220          }else{          }else{
1221          V260=(Vcs[7]);}          V246=(Vcs[7]);}
1222          if(!(((V260))==(Cnil))){          if(!(((V246))==(Cnil))){
1223          goto T446;}          goto T462;}
1224          V260= symbol_function(VV[35]);          V246= symbol_function(VV[35]);
1225          goto T446;          goto T462;
1226  T446:;  T462:;
1227          {long V261;          {long V247;
1228          if(((V258))==Cnil){          if(((V244))==Cnil){
1229          goto T452;}          goto T468;}
1230          V261= (long)(*(LnkLI36))((V258));          V247= (long)(*(LnkLI36))((V244));
1231          goto T450;          goto T466;
1232          goto T452;          goto T468;
1233  T452:;  T468:;
1234          V261= 0;          V247= 0;
         goto T450;  
 T450:;  
         {long V262;  
         V262= (long)(*(LnkLI37))((V259),(V254));  
         if(!((V261)<=(V262))){  
         goto T456;}  
         goto T455;  
         goto T456;  
 T456:;  
         V263 = make_fixnum(V261);  
         V264 = make_fixnum(V262);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V263,V264)));  
         goto T455;  
 T455:;  
         if((V256)==Cnil){  
         goto T458;}  
         if((V257)==Cnil){  
         goto T458;}  
         (void)((*(LnkLI42))());  
         goto T458;  
 T458:;  
         if(((V255))!=Cnil){  
         goto T460;}  
         {register long V265;  
         register long V266;  
         V265= V261;  
         V266= 0;  
         goto T465;  
 T465:;  
         if(!((V265)>=(V262))){  
         goto T466;}  
         {object V267 = make_fixnum(V266);  
         VMR17(V267)}  
1235          goto T466;          goto T466;
1236  T466:;  T466:;
1237          base[0]= elt((V254),V265);          {long V248;
1238          vs_top=(vs_base=base+0)+1;          V248= (long)(*(LnkLI37))((V245),(V240));
1239          super_funcall_no_event((V260));          if(!((V247)<=(V248))){
1240            goto T472;}
1241            goto T471;
1242            goto T472;
1243    T472:;
1244            base[0]= make_fixnum(V247);
1245            base[1]= make_fixnum(V248);
1246            vs_top=(vs_base=base+0)+2;
1247            (void) (*Lnk33)();
1248          vs_top=sup;          vs_top=sup;
1249          V268= vs_base[0];          goto T471;
1250          if(((*(LnkLI43))((V256),(V257),(V253),V268))==Cnil){  T471:;
1251          goto T470;}          if((V242)==Cnil){
1252          V266= (long)(1)+(V266);          goto T476;}
1253          goto T470;          if((V243)==Cnil){
1254  T470:;          goto T476;}
1255          V265= (long)(1)+(V265);          (void)((*(LnkLI42))());
1256          goto T465;}          goto T476;
1257          goto T460;  T476:;
1258  T460:;          if(((V241))!=Cnil){
1259          {register long V269;          goto T478;}
1260          register long V270;          {register long V249;
1261          V269= (long)(-1)+(V262);          register long V250;
1262          V270= 0;          V249= V247;
1263          goto T482;          V250= 0;
 T482:;  
         if(!((V269)<(V261))){  
         goto T483;}  
         {object V271 = make_fixnum(V270);  
         VMR17(V271)}  
1264          goto T483;          goto T483;
1265  T483:;  T483:;
1266          base[0]= elt((V254),V269);          if(!((V249)>=(V248))){
1267          vs_top=(vs_base=base+0)+1;          goto T484;}
1268          super_funcall_no_event((V260));          {object V251 = make_fixnum(V250);
1269          vs_top=sup;          VMR17(V251)}
1270          V272= vs_base[0];          goto T484;
1271          if(((*(LnkLI43))((V256),(V257),(V253),V272))==Cnil){  T484:;
1272          goto T487;}          base[0]= elt((V240),V249);
1273          V270= (long)(1)+(V270);          vs_top=(vs_base=base+0)+1;
1274          goto T487;          super_funcall_no_event((V246));
1275  T487:;          vs_top=sup;
1276          V269= (long)(-1)+(V269);          V252= vs_base[0];
1277          goto T482;}}}          if(((*(LnkLI43))((V242),(V243),(V239),V252))==Cnil){
1278            goto T488;}
1279            V250= (long)(1)+(V250);
1280            goto T488;
1281    T488:;
1282            V249= (long)(1)+(V249);
1283            goto T483;}
1284            goto T478;
1285    T478:;
1286            {register long V253;
1287            register long V254;
1288            V253= (long)(-1)+(V248);
1289            V254= 0;
1290            goto T500;
1291    T500:;
1292            if(!((V253)<(V247))){
1293            goto T501;}
1294            {object V255 = make_fixnum(V254);
1295            VMR17(V255)}
1296            goto T501;
1297    T501:;
1298            base[0]= elt((V240),V253);
1299            vs_top=(vs_base=base+0)+1;
1300            super_funcall_no_event((V246));
1301            vs_top=sup;
1302            V256= vs_base[0];
1303            if(((*(LnkLI43))((V242),(V243),(V239),V256))==Cnil){
1304            goto T505;}
1305            V254= (long)(1)+(V254);
1306            goto T505;
1307    T505:;
1308            V253= (long)(-1)+(V253);
1309            goto T500;}}}
1310          va_end(ap);          va_end(ap);
1311          base[0]=base[0];          base[0]=base[0];
1312          return Cnil;}          return Cnil;}
1313          }}          }}
1314  /*      local entry for function COUNT-IF       */  /*      local entry for function COUNT-IF       */
1315    
1316  static object LI18(object V274,object V273,object first,...)  static object LI18(object V258,object V257,object first,...)
1317  {        {      
1318          va_list ap;          va_list ap;
1319          int narg = VFUN_NARGS; VMB18 VMS18 VMV18          int narg = VFUN_NARGS; VMB18 VMS18 VMV18
1320          {object V275;          {object V259;
1321          object V276;          object V260;
1322          object V277;          object V261;
1323          object V278;          object V262;
1324          object V279;          object V263;
1325          object V280;          object V264;
1326          va_start(ap,first);          va_start(ap,first);
1327          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1328          V275= V274;          V259= V258;
1329          V276= V273;          V260= V257;
1330          narg= narg - 2;          narg= narg - 2;
1331          {          {
1332          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI18key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI18key,first,ap);
1333          V277=(Vcs[2]);          V261=(Vcs[2]);
1334          V278=(Vcs[3]);          V262=(Vcs[3]);
1335          V279=(Vcs[4]);          V263=(Vcs[4]);
1336          if(Vcs[5]==0){          if(Vcs[5]==0){
1337          V280= symbol_function(VV[35]);          V264= symbol_function(VV[35]);
1338          }else{          }else{
1339          V280=(Vcs[5]);}          V264=(Vcs[5]);}
1340          if(!(((V280))==(Cnil))){          if(!(((V264))==(Cnil))){
1341          goto T497;}          goto T515;}
1342          V280= symbol_function(VV[35]);          V264= symbol_function(VV[35]);
1343          goto T497;          goto T515;
1344  T497:;  T515:;
1345          V281= symbol_function(VV[46]);          V265= symbol_function(VV[46]);
1346          {object V282 = (VFUN_NARGS=12,(*(LnkLI50))((V275),(V276),VV[11],(V277),VV[12],V281,VV[14],(V278),VV[15],(V279),VV[17],(V280)));          {object V266 = (VFUN_NARGS=12,(*(LnkLI50))((V259),(V260),VV[11],(V261),VV[12],V265,VV[14],(V262),VV[15],(V263),VV[17],(V264)));
1347          VMR18(V282)}          VMR18(V266)}
1348          va_end(ap);          va_end(ap);
1349          return Cnil;}          return Cnil;}
1350          }}          }}
1351  /*      local entry for function COUNT-IF-NOT   */  /*      local entry for function COUNT-IF-NOT   */
1352    
1353  static object LI19(object V284,object V283,object first,...)  static object LI19(object V268,object V267,object first,...)
1354  {        {      
1355          va_list ap;          va_list ap;
1356          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
1357          {object V285;          {object V269;
1358          object V286;          object V270;
1359          object V287;          object V271;
1360          object V288;          object V272;
1361          object V289;          object V273;
1362          object V290;          object V274;
1363          va_start(ap,first);          va_start(ap,first);
1364          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1365          V285= V284;          V269= V268;
1366          V286= V283;          V270= V267;
1367          narg= narg - 2;          narg= narg - 2;
1368          {          {
1369          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI19key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI19key,first,ap);
1370          V287=(Vcs[2]);          V271=(Vcs[2]);
1371          V288=(Vcs[3]);          V272=(Vcs[3]);
1372          V289=(Vcs[4]);          V273=(Vcs[4]);
1373          if(Vcs[5]==0){          if(Vcs[5]==0){
1374          V290= symbol_function(VV[35]);          V274= symbol_function(VV[35]);
1375          }else{          }else{
1376          V290=(Vcs[5]);}          V274=(Vcs[5]);}
1377          if(!(((V290))==(Cnil))){          if(!(((V274))==(Cnil))){
1378          goto T503;}          goto T521;}
1379          V290= symbol_function(VV[35]);          V274= symbol_function(VV[35]);
1380          goto T503;          goto T521;
1381  T503:;  T521:;
1382          V291= symbol_function(VV[46]);          V275= symbol_function(VV[46]);
1383          {object V292 = (VFUN_NARGS=12,(*(LnkLI50))((V285),(V286),VV[11],(V287),VV[13],V291,VV[14],(V288),VV[15],(V289),VV[17],(V290)));          {object V276 = (VFUN_NARGS=12,(*(LnkLI50))((V269),(V270),VV[11],(V271),VV[13],V275,VV[14],(V272),VV[15],(V273),VV[17],(V274)));
1384          VMR19(V292)}          VMR19(V276)}
1385          va_end(ap);          va_end(ap);
1386          return Cnil;}          return Cnil;}
1387          }}          }}
1388  /*      local entry for function INTERNAL-COUNT */  /*      local entry for function INTERNAL-COUNT */
1389    
1390  static object LI20(object V294,object V293,object first,...)  static object LI20(object V278,object V277,object first,...)
1391  {        {      
1392          va_list ap;          va_list ap;
1393          int narg = VFUN_NARGS; VMB20 VMS20 VMV20          int narg = VFUN_NARGS; VMB20 VMS20 VMV20
1394          {object V295;          {object V279;
1395          register object V296;          register object V280;
1396          object V297;          object V281;
1397          register object V298;          register object V282;
1398          register object V299;          register object V283;
1399          object V300;          object V284;
1400          object V301;          object V285;
1401          object V302;          object V286;
1402          register object V303;          register object V287;
1403          va_start(ap,first);          va_start(ap,first);
1404          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1405          V295= V294;          V279= V278;
1406          V296= V293;          V280= V277;
1407          narg= narg - 2;          narg= narg - 2;
1408          {          {
1409          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI20key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI20key,first,ap);
1410          V297=(Vcs[2]);          V281=(Vcs[2]);
1411          V298=(Vcs[3]);          V282=(Vcs[3]);
1412          V299=(Vcs[4]);          V283=(Vcs[4]);
1413          V300=(Vcs[5]);          V284=(Vcs[5]);
1414          V301=(Vcs[6]);          V285=(Vcs[6]);
1415          V302=(Vcs[7]);          V286=(Vcs[7]);
1416          if(Vcs[8]==0){          if(Vcs[8]==0){
1417          V303= symbol_function(VV[35]);          V287= symbol_function(VV[35]);
1418          }else{          }else{
1419          V303=(Vcs[8]);}          V287=(Vcs[8]);}
1420          if(!(((V303))==(Cnil))){          if(!(((V287))==(Cnil))){
1421          goto T509;}          goto T527;}
1422          V303= symbol_function(VV[35]);          V287= symbol_function(VV[35]);
1423          goto T509;          goto T527;
1424  T509:;  T527:;
1425          {long V304;          {long V288;
1426          if(((V300))==Cnil){          if(((V284))==Cnil){
1427          goto T515;}          goto T533;}
1428          V304= (long)(*(LnkLI36))((V300));          V288= (long)(*(LnkLI36))((V284));
1429          goto T513;          goto T531;
         goto T515;  
 T515:;  
         V304= 0;  
         goto T513;  
 T513:;  
         {long V305;  
         V305= (long)(*(LnkLI37))((V301),(V296));  
         if(!((V304)<=(V305))){  
         goto T519;}  
         goto T518;  
         goto T519;  
 T519:;  
         V306 = make_fixnum(V304);  
         V307 = make_fixnum(V305);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V306,V307)));  
         goto T518;  
 T518:;  
         {IDECL(GEN V308,V308space,V308alloc);  
         if(((V302))!=Cnil){  
         goto T523;}  
         ISETQ_FIX(V308,V308alloc,2147483647);  
         goto T521;  
         goto T523;  
 T523:;SETQ_IO(V308,V308alloc,(V302));  
         goto T521;  
 T521:;  
         if((V298)==Cnil){  
         goto T526;}  
         if((V299)==Cnil){  
         goto T526;}  
         (void)((*(LnkLI42))());  
         goto T526;  
 T526:;  
         if(((V297))!=Cnil){  
         goto T528;}  
         {register long V309;  
         register long V310;  
         V309= V304;  
         V310= 0;  
1430          goto T533;          goto T533;
1431  T533:;  T533:;
1432          if(!((V309)>=(V305))){          V288= 0;
1433          goto T534;}          goto T531;
1434          {object V311 = make_fixnum(V310);  T531:;
1435          VMR20(V311)}          {long V289;
1436          goto T534;          V289= (long)(*(LnkLI37))((V285),(V280));
1437  T534:;          if(!((V288)<=(V289))){
1438          V312 = make_fixnum(V310);          goto T537;}
1439          V313 = make_integer(V308);          goto T536;
1440          if(!(number_compare(V312,V313)<0)){          goto T537;
1441          goto T538;}  T537:;
1442          base[0]= elt((V296),V309);          base[0]= make_fixnum(V288);
1443          vs_top=(vs_base=base+0)+1;          base[1]= make_fixnum(V289);
1444          super_funcall_no_event((V303));          vs_top=(vs_base=base+0)+2;
1445          vs_top=sup;          (void) (*Lnk33)();
1446          V314= vs_base[0];          vs_top=sup;
1447          if(((*(LnkLI43))((V298),(V299),(V295),V314))==Cnil){          goto T536;
1448          goto T538;}  T536:;
1449          V310= (long)(1)+(V310);          {IDECL(GEN V290,V290space,V290alloc);
1450          goto T538;          if(((V286))!=Cnil){
1451  T538:;          goto T543;}
1452          V309= (long)(1)+(V309);          ISETQ_FIX(V290,V290alloc,2147483647);
1453          goto T533;}          goto T541;
1454          goto T528;          goto T543;
1455  T528:;  T543:;SETQ_IO(V290,V290alloc,(V286));
1456          {register long V315;          goto T541;
1457          register long V316;  T541:;
1458          V315= (long)(-1)+(V305);          if((V282)==Cnil){
1459          V316= 0;          goto T546;}
1460          goto T552;          if((V283)==Cnil){
1461  T552:;          goto T546;}
1462          if(!((V315)<(V304))){          (void)((*(LnkLI42))());
1463          goto T553;}          goto T546;
1464          {object V317 = make_fixnum(V316);  T546:;
1465          VMR20(V317)}          if(((V281))!=Cnil){
1466            goto T548;}
1467            {register long V291;
1468            register long V292;
1469            V291= V288;
1470            V292= 0;
1471          goto T553;          goto T553;
1472  T553:;  T553:;
1473          V318 = make_fixnum(V316);          if(!((V291)>=(V289))){
1474          V319 = make_integer(V308);          goto T554;}
1475          if(!(number_compare(V318,V319)<0)){          {object V293 = make_fixnum(V292);
1476          goto T557;}          VMR20(V293)}
1477          base[0]= elt((V296),V315);          goto T554;
1478          vs_top=(vs_base=base+0)+1;  T554:;
1479          super_funcall_no_event((V303));          V294 = make_fixnum(V292);
1480          vs_top=sup;          V295 = make_integer(V290);
1481          V320= vs_base[0];          if(!(number_compare(V294,V295)<0)){
1482          if(((*(LnkLI43))((V298),(V299),(V295),V320))==Cnil){          goto T558;}
1483          goto T557;}          base[0]= elt((V280),V291);
1484          V316= (long)(1)+(V316);          vs_top=(vs_base=base+0)+1;
1485          goto T557;          super_funcall_no_event((V287));
1486  T557:;          vs_top=sup;
1487          V315= (long)(-1)+(V315);          V296= vs_base[0];
1488          goto T552;}}}}          if(((*(LnkLI43))((V282),(V283),(V279),V296))==Cnil){
1489            goto T558;}
1490            V292= (long)(1)+(V292);
1491            goto T558;
1492    T558:;
1493            V291= (long)(1)+(V291);
1494            goto T553;}
1495            goto T548;
1496    T548:;
1497            {register long V297;
1498            register long V298;
1499            V297= (long)(-1)+(V289);
1500            V298= 0;
1501            goto T572;
1502    T572:;
1503            if(!((V297)<(V288))){
1504            goto T573;}
1505            {object V299 = make_fixnum(V298);
1506            VMR20(V299)}
1507            goto T573;
1508    T573:;
1509            V300 = make_fixnum(V298);
1510            V301 = make_integer(V290);
1511            if(!(number_compare(V300,V301)<0)){
1512            goto T577;}
1513            base[0]= elt((V280),V297);
1514            vs_top=(vs_base=base+0)+1;
1515            super_funcall_no_event((V287));
1516            vs_top=sup;
1517            V302= vs_base[0];
1518            if(((*(LnkLI43))((V282),(V283),(V279),V302))==Cnil){
1519            goto T577;}
1520            V298= (long)(1)+(V298);
1521            goto T577;
1522    T577:;
1523            V297= (long)(-1)+(V297);
1524            goto T572;}}}}
1525          va_end(ap);          va_end(ap);
1526          base[0]=base[0];          base[0]=base[0];
1527          return Cnil;}          return Cnil;}
1528          }}          }}
1529  /*      local entry for function INTERNAL-COUNT-IF      */  /*      local entry for function INTERNAL-COUNT-IF      */
1530    
1531  static object LI21(object V322,object V321,object first,...)  static object LI21(object V304,object V303,object first,...)
1532  {        {      
1533          va_list ap;          va_list ap;
1534          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
1535          {object V323;          {object V305;
1536          object V324;          object V306;
1537          object V325;          object V307;
1538          object V326;          object V308;
1539          object V327;          object V309;
1540          object V328;          object V310;
1541          object V329;          object V311;
1542          va_start(ap,first);          va_start(ap,first);
1543          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1544          V323= V322;          V305= V304;
1545          V324= V321;          V306= V303;
1546          narg= narg - 2;          narg= narg - 2;
1547          {          {
1548          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI21key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI21key,first,ap);
1549          V325=(Vcs[2]);          V307=(Vcs[2]);
1550          V326=(Vcs[3]);          V308=(Vcs[3]);
1551          V327=(Vcs[4]);          V309=(Vcs[4]);
1552          V328=(Vcs[5]);          V310=(Vcs[5]);
1553          if(Vcs[6]==0){          if(Vcs[6]==0){
1554          V329= symbol_function(VV[35]);          V311= symbol_function(VV[35]);
1555          }else{          }else{
1556          V329=(Vcs[6]);}          V311=(Vcs[6]);}
1557          if(!(((V329))==(Cnil))){          if(!(((V311))==(Cnil))){
1558          goto T569;}          goto T589;}
1559          V329= symbol_function(VV[35]);          V311= symbol_function(VV[35]);
1560          goto T569;          goto T589;
1561  T569:;  T589:;
1562          V330= symbol_function(VV[46]);          V312= symbol_function(VV[46]);
1563          {object V331 = (VFUN_NARGS=14,(*(LnkLI47))((V323),(V324),VV[11],(V325),VV[12],V330,VV[14],(V326),VV[15],(V327),VV[16],(V328),VV[17],(V329)));          {object V313 = (VFUN_NARGS=14,(*(LnkLI47))((V305),(V306),VV[11],(V307),VV[12],V312,VV[14],(V308),VV[15],(V309),VV[16],(V310),VV[17],(V311)));
1564          VMR21(V331)}          VMR21(V313)}
1565          va_end(ap);          va_end(ap);
1566          return Cnil;}          return Cnil;}
1567          }}          }}
1568  /*      local entry for function INTERNAL-COUNT-IF-NOT  */  /*      local entry for function INTERNAL-COUNT-IF-NOT  */
1569    
1570  static object LI22(object V333,object V332,object first,...)  static object LI22(object V315,object V314,object first,...)
1571  {        {      
1572          va_list ap;          va_list ap;
1573          int narg = VFUN_NARGS; VMB22 VMS22 VMV22          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
1574          {object V334;          {object V316;
1575          object V335;          object V317;
1576          object V336;          object V318;
1577          object V337;          object V319;
1578          object V338;          object V320;
1579          object V339;          object V321;
1580          object V340;          object V322;
1581          va_start(ap,first);          va_start(ap,first);
1582          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1583          V334= V333;          V316= V315;
1584          V335= V332;          V317= V314;
1585          narg= narg - 2;          narg= narg - 2;
1586          {          {
1587          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI22key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI22key,first,ap);
1588          V336=(Vcs[2]);          V318=(Vcs[2]);
1589          V337=(Vcs[3]);          V319=(Vcs[3]);
1590          V338=(Vcs[4]);          V320=(Vcs[4]);
1591          V339=(Vcs[5]);          V321=(Vcs[5]);
1592          if(Vcs[6]==0){          if(Vcs[6]==0){
1593          V340= symbol_function(VV[35]);          V322= symbol_function(VV[35]);
1594          }else{          }else{
1595          V340=(Vcs[6]);}          V322=(Vcs[6]);}
1596          if(!(((V340))==(Cnil))){          if(!(((V322))==(Cnil))){
1597          goto T575;}          goto T595;}
1598          V340= symbol_function(VV[35]);          V322= symbol_function(VV[35]);
1599          goto T575;          goto T595;
1600  T575:;  T595:;
1601          V341= symbol_function(VV[46]);          V323= symbol_function(VV[46]);
1602          {object V342 = (VFUN_NARGS=14,(*(LnkLI47))((V334),(V335),VV[11],(V336),VV[13],V341,VV[14],(V337),VV[15],(V338),VV[16],(V339),VV[17],(V340)));          {object V324 = (VFUN_NARGS=14,(*(LnkLI47))((V316),(V317),VV[11],(V318),VV[13],V323,VV[14],(V319),VV[15],(V320),VV[16],(V321),VV[17],(V322)));
1603          VMR22(V342)}          VMR22(V324)}
1604          va_end(ap);          va_end(ap);
1605          return Cnil;}          return Cnil;}
1606          }}          }}
1607  /*      local entry for function SUBSTITUTE     */  /*      local entry for function SUBSTITUTE     */
1608    
1609  static object LI23(object V345,object V344,object V343,object first,...)  static object LI23(object V327,object V326,object V325,object first,...)
1610  {        {      
1611          va_list ap;          va_list ap;
1612          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
1613          {object V346;          {object V328;
1614          object V347;          object V329;
1615          register object V348;          register object V330;
1616          object V349;          object V331;
1617          object V350;          object V332;
1618          object V351;          object V333;
1619          object V352;          object V334;
1620          object V353;          object V335;
1621          object V354;          object V336;
1622          object V355;          object V337;
1623          va_start(ap,first);          va_start(ap,first);
1624          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1625          V346= V345;          V328= V327;
1626          V347= V344;          V329= V326;
1627          V348= V343;          V330= V325;
1628          narg= narg - 3;          narg= narg - 3;
1629          {          {
1630          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI23key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI23key,first,ap);
1631          V349=(Vcs[3]);          V331=(Vcs[3]);
1632          V350=(Vcs[4]);          V332=(Vcs[4]);
1633          V351=(Vcs[5]);          V333=(Vcs[5]);
1634          V352=(Vcs[6]);          V334=(Vcs[6]);
1635          V353=(Vcs[7]);          V335=(Vcs[7]);
1636          V354=(Vcs[8]);          V336=(Vcs[8]);
1637          if(Vcs[9]==0){          if(Vcs[9]==0){
1638          V355= symbol_function(VV[35]);          V337= symbol_function(VV[35]);
1639          }else{          }else{
1640          V355=(Vcs[9]);}          V337=(Vcs[9]);}
1641          {long V356;          {long V338;
1642          V356= (long)length((V348));          V338= (long)length((V330));
1643          if(!(((V355))==(Cnil))){          if(!(((V337))==(Cnil))){
1644          goto T582;}          goto T602;}
1645          V355= symbol_function(VV[35]);          V337= symbol_function(VV[35]);
1646          goto T582;          goto T602;
1647  T582:;  T602:;
1648          {long V357;          {long V339;
1649          if(((V352))==Cnil){          if(((V334))==Cnil){
         goto T588;}  
         V357= (long)(*(LnkLI36))((V352));  
         goto T586;  
         goto T588;  
 T588:;  
         V357= 0;  
         goto T586;  
 T586:;  
         {long V358;  
         V358= (long)(*(LnkLI37))((V353),(V348));  
         if(!((V357)<=(V358))){  
         goto T592;}  
         goto T591;  
         goto T592;  
 T592:;  
         V359 = make_fixnum(V357);  
         V360 = make_fixnum(V358);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V359,V360)));  
         goto T591;  
 T591:;  
         {IDECL(GEN V361,V361space,V361alloc);  
         if(((V354))!=Cnil){  
         goto T596;}  
         ISETQ_FIX(V361,V361alloc,2147483647);  
         goto T594;  
         goto T596;  
 T596:;SETQ_IO(V361,V361alloc,(V354));  
         goto T594;  
 T594:;  
         if((V350)==Cnil){  
         goto T599;}  
         if((V351)==Cnil){  
         goto T599;}  
         (void)((*(LnkLI42))());  
         goto T599;  
 T599:;  
         if(((V349))!=Cnil){  
         goto T601;}  
         {register object V362;  
         register long V363;  
         register long V364;  
         V365= (*(LnkLI49))((V348));  
         V366 = make_fixnum(V356);  
         V362= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V365,V366));  
         V363= 0;  
         V364= 0;  
         goto T607;  
 T607:;  
         if(!((V363)>=(V356))){  
1650          goto T608;}          goto T608;}
1651          {object V367 = (V362);          V339= (long)(*(LnkLI36))((V334));
1652          VMR23(V367)}          goto T606;
1653          goto T608;          goto T608;
1654  T608:;  T608:;
1655          if(!((V357)<=(V363))){          V339= 0;
1656          goto T614;}          goto T606;
1657          if(!((V363)<(V358))){  T606:;
1658          goto T614;}          {long V340;
1659          V368 = make_fixnum(V364);          V340= (long)(*(LnkLI37))((V335),(V330));
1660          V369 = make_integer(V361);          if(!((V339)<=(V340))){
1661          if(!(number_compare(V368,V369)<0)){          goto T612;}
1662          goto T614;}          goto T611;
         base[0]= elt((V348),V363);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V355));  
         vs_top=sup;  
         V370= vs_base[0];  
         if(((*(LnkLI43))((V350),(V351),(V347),V370))==Cnil){  
         goto T614;}  
         (void)(elt_set((V362),V363,(V346)));  
         V364= (long)(1)+(V364);  
         goto T612;  
         goto T614;  
 T614:;  
         V371= elt((V348),V363);  
         (void)(elt_set((V362),V363,/* INLINE-ARGS */V371));  
1663          goto T612;          goto T612;
1664  T612:;  T612:;
1665          V363= (long)(1)+(V363);          base[0]= make_fixnum(V339);
1666          goto T607;}          base[1]= make_fixnum(V340);
1667          goto T601;          vs_top=(vs_base=base+0)+2;
1668  T601:;          (void) (*Lnk33)();
1669          {register object V372;          vs_top=sup;
1670          register long V373;          goto T611;
1671          register long V374;  T611:;
1672          V375= (*(LnkLI49))((V348));          {IDECL(GEN V341,V341space,V341alloc);
1673          V376 = make_fixnum(V356);          if(((V336))!=Cnil){
1674          V372= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V375,V376));          goto T618;}
1675          V373= (long)(-1)+(V356);          ISETQ_FIX(V341,V341alloc,2147483647);
1676          V374= 0;          goto T616;
1677          goto T633;          goto T618;
1678  T633:;  T618:;SETQ_IO(V341,V341alloc,(V336));
1679          if(!((V373)<(0))){          goto T616;
1680          goto T634;}  T616:;
1681          {object V377 = (V372);          if((V332)==Cnil){
1682          VMR23(V377)}          goto T621;}
1683            if((V333)==Cnil){
1684            goto T621;}
1685            (void)((*(LnkLI42))());
1686            goto T621;
1687    T621:;
1688            if(((V331))!=Cnil){
1689            goto T623;}
1690            {register object V342;
1691            register long V343;
1692            register long V344;
1693            V345= (*(LnkLI49))((V330));
1694            V346 = make_fixnum(V338);
1695            V342= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V345,V346));
1696            V343= 0;
1697            V344= 0;
1698            goto T629;
1699    T629:;
1700            if(!((V343)>=(V338))){
1701            goto T630;}
1702            {object V347 = (V342);
1703            VMR23(V347)}
1704            goto T630;
1705    T630:;
1706            if(!((V339)<=(V343))){
1707            goto T636;}
1708            if(!((V343)<(V340))){
1709            goto T636;}
1710            V348 = make_fixnum(V344);
1711            V349 = make_integer(V341);
1712            if(!(number_compare(V348,V349)<0)){
1713            goto T636;}
1714            base[0]= elt((V330),V343);
1715            vs_top=(vs_base=base+0)+1;
1716            super_funcall_no_event((V337));
1717            vs_top=sup;
1718            V350= vs_base[0];
1719            if(((*(LnkLI43))((V332),(V333),(V329),V350))==Cnil){
1720            goto T636;}
1721            (void)(elt_set((V342),V343,(V328)));
1722            V344= (long)(1)+(V344);
1723            goto T634;
1724            goto T636;
1725    T636:;
1726            V351= elt((V330),V343);
1727            (void)(elt_set((V342),V343,/* INLINE-ARGS */V351));
1728          goto T634;          goto T634;
1729  T634:;  T634:;
1730          if(!((V357)<=(V373))){          V343= (long)(1)+(V343);
1731          goto T640;}          goto T629;}
1732          if(!((V373)<(V358))){          goto T623;
1733          goto T640;}  T623:;
1734          V378 = make_fixnum(V374);          {register object V352;
1735          V379 = make_integer(V361);          register long V353;
1736          if(!(number_compare(V378,V379)<0)){          register long V354;
1737          goto T640;}          V355= (*(LnkLI49))((V330));
1738          base[0]= elt((V348),V373);          V356 = make_fixnum(V338);
1739          vs_top=(vs_base=base+0)+1;          V352= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V355,V356));
1740          super_funcall_no_event((V355));          V353= (long)(-1)+(V338);
1741          vs_top=sup;          V354= 0;
1742          V380= vs_base[0];          goto T655;
1743          if(((*(LnkLI43))((V350),(V351),(V347),V380))==Cnil){  T655:;
1744          goto T640;}          if(!((V353)<(0))){
1745          (void)(elt_set((V372),V373,(V346)));          goto T656;}
1746          V374= (long)(1)+(V374);          {object V357 = (V352);
1747          goto T638;          VMR23(V357)}
1748          goto T640;          goto T656;
1749  T640:;  T656:;
1750          V381= elt((V348),V373);          if(!((V339)<=(V353))){
1751          (void)(elt_set((V372),V373,/* INLINE-ARGS */V381));          goto T662;}
1752          goto T638;          if(!((V353)<(V340))){
1753  T638:;          goto T662;}
1754          V373= (long)(-1)+(V373);          V358 = make_fixnum(V354);
1755          goto T633;}}}}}          V359 = make_integer(V341);
1756            if(!(number_compare(V358,V359)<0)){
1757            goto T662;}
1758            base[0]= elt((V330),V353);
1759            vs_top=(vs_base=base+0)+1;
1760            super_funcall_no_event((V337));
1761            vs_top=sup;
1762            V360= vs_base[0];
1763            if(((*(LnkLI43))((V332),(V333),(V329),V360))==Cnil){
1764            goto T662;}
1765            (void)(elt_set((V352),V353,(V328)));
1766            V354= (long)(1)+(V354);
1767            goto T660;
1768            goto T662;
1769    T662:;
1770            V361= elt((V330),V353);
1771            (void)(elt_set((V352),V353,/* INLINE-ARGS */V361));
1772            goto T660;
1773    T660:;
1774            V353= (long)(-1)+(V353);
1775            goto T655;}}}}}
1776          va_end(ap);          va_end(ap);
1777          base[0]=base[0];          base[0]=base[0];
1778          return Cnil;}          return Cnil;}
1779          }}          }}
1780  /*      local entry for function SUBSTITUTE-IF  */  /*      local entry for function SUBSTITUTE-IF  */
1781    
1782  static object LI24(object V384,object V383,object V382,object first,...)  static object LI24(object V364,object V363,object V362,object first,...)
1783  {        {      
1784          va_list ap;          va_list ap;
1785          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1786          {object V385;          {object V365;
1787          object V386;          object V366;
1788          object V387;          object V367;
1789          object V388;          object V368;
1790          object V389;          object V369;
1791          object V390;          object V370;
1792          object V391;          object V371;
1793          object V392;          object V372;
1794          va_start(ap,first);          va_start(ap,first);
1795          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1796          V385= V384;          V365= V364;
1797          V386= V383;          V366= V363;
1798          V387= V382;          V367= V362;
1799          narg= narg - 3;          narg= narg - 3;
1800          {          {
1801          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI24key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI24key,first,ap);
1802          V388=(Vcs[3]);          V368=(Vcs[3]);
1803          V389=(Vcs[4]);          V369=(Vcs[4]);
1804          V390=(Vcs[5]);          V370=(Vcs[5]);
1805          V391=(Vcs[6]);          V371=(Vcs[6]);
1806          if(Vcs[7]==0){          if(Vcs[7]==0){
1807          V392= symbol_function(VV[35]);          V372= symbol_function(VV[35]);
1808          }else{          }else{
1809          V392=(Vcs[7]);}          V372=(Vcs[7]);}
1810          if(!(((V392))==(Cnil))){          if(!(((V372))==(Cnil))){
1811          goto T656;}          goto T678;}
1812          V392= symbol_function(VV[35]);          V372= symbol_function(VV[35]);
1813          goto T656;          goto T678;
1814  T656:;  T678:;
1815          V393= symbol_function(VV[46]);          V373= symbol_function(VV[46]);
1816          {object V394 = (VFUN_NARGS=15,(*(LnkLI51))((V385),(V386),(V387),VV[11],(V388),VV[12],V393,VV[14],(V389),VV[15],(V390),VV[16],(V391),VV[17],(V392)));          {object V374 = (VFUN_NARGS=15,(*(LnkLI51))((V365),(V366),(V367),VV[11],(V368),VV[12],V373,VV[14],(V369),VV[15],(V370),VV[16],(V371),VV[17],(V372)));
1817          VMR24(V394)}          VMR24(V374)}
1818          va_end(ap);          va_end(ap);
1819          return Cnil;}          return Cnil;}
1820          }}          }}
1821  /*      local entry for function SUBSTITUTE-IF-NOT      */  /*      local entry for function SUBSTITUTE-IF-NOT      */
1822    
1823  static object LI25(object V397,object V396,object V395,object first,...)  static object LI25(object V377,object V376,object V375,object first,...)
1824  {        {      
1825          va_list ap;          va_list ap;
1826          int narg = VFUN_NARGS; VMB25 VMS25 VMV25          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1827          {object V398;          {object V378;
1828          object V399;          object V379;
1829          object V400;          object V380;
1830          object V401;          object V381;
1831          object V402;          object V382;
1832          object V403;          object V383;
1833          object V404;          object V384;
1834          object V405;          object V385;
1835          va_start(ap,first);          va_start(ap,first);
1836          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1837          V398= V397;          V378= V377;
1838          V399= V396;          V379= V376;
1839          V400= V395;          V380= V375;
1840          narg= narg - 3;          narg= narg - 3;
1841          {          {
1842          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI25key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI25key,first,ap);
1843          V401=(Vcs[3]);          V381=(Vcs[3]);
1844          V402=(Vcs[4]);          V382=(Vcs[4]);
1845          V403=(Vcs[5]);          V383=(Vcs[5]);
1846          V404=(Vcs[6]);          V384=(Vcs[6]);
1847          if(Vcs[7]==0){          if(Vcs[7]==0){
1848          V405= symbol_function(VV[35]);          V385= symbol_function(VV[35]);
1849          }else{          }else{
1850          V405=(Vcs[7]);}          V385=(Vcs[7]);}
1851          if(!(((V405))==(Cnil))){          if(!(((V385))==(Cnil))){
1852          goto T662;}          goto T684;}
1853          V405= symbol_function(VV[35]);          V385= symbol_function(VV[35]);
1854          goto T662;          goto T684;
1855  T662:;  T684:;
1856          V406= symbol_function(VV[46]);          V386= symbol_function(VV[46]);
1857          {object V407 = (VFUN_NARGS=15,(*(LnkLI51))((V398),(V399),(V400),VV[11],(V401),VV[13],V406,VV[14],(V402),VV[15],(V403),VV[16],(V404),VV[17],(V405)));          {object V387 = (VFUN_NARGS=15,(*(LnkLI51))((V378),(V379),(V380),VV[11],(V381),VV[13],V386,VV[14],(V382),VV[15],(V383),VV[16],(V384),VV[17],(V385)));
1858          VMR25(V407)}          VMR25(V387)}
1859          va_end(ap);          va_end(ap);
1860          return Cnil;}          return Cnil;}
1861          }}          }}
1862  /*      local entry for function NSUBSTITUTE    */  /*      local entry for function NSUBSTITUTE    */
1863    
1864  static object LI26(object V410,object V409,object V408,object first,...)  static object LI26(object V390,object V389,object V388,object first,...)
1865  {        {      
1866          va_list ap;          va_list ap;
1867          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1868          {object V411;          {object V391;
1869          object V412;          object V392;
1870          register object V413;          register object V393;
1871          object V414;          object V394;
1872          object V415;          object V395;
1873          object V416;          object V396;
1874          object V417;          object V397;
1875          object V418;          object V398;
1876          object V419;          object V399;
1877          register object V420;          register object V400;
1878          va_start(ap,first);          va_start(ap,first);
1879          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1880          V411= V410;          V391= V390;
1881          V412= V409;          V392= V389;
1882          V413= V408;          V393= V388;
1883          narg= narg - 3;          narg= narg - 3;
1884          {          {
1885          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);
1886          V414=(Vcs[3]);          V394=(Vcs[3]);
1887          V415=(Vcs[4]);          V395=(Vcs[4]);
1888          V416=(Vcs[5]);          V396=(Vcs[5]);
1889          V417=(Vcs[6]);          V397=(Vcs[6]);
1890          V418=(Vcs[7]);          V398=(Vcs[7]);
1891          V419=(Vcs[8]);          V399=(Vcs[8]);
1892          if(Vcs[9]==0){          if(Vcs[9]==0){
1893          V420= symbol_function(VV[35]);          V400= symbol_function(VV[35]);
1894          }else{          }else{
1895          V420=(Vcs[9]);}          V400=(Vcs[9]);}
1896          if(!(((V420))==(Cnil))){          if(!(((V400))==(Cnil))){
1897          goto T668;}          goto T690;}
1898          V420= symbol_function(VV[35]);          V400= symbol_function(VV[35]);
1899          goto T668;          goto T690;
1900  T668:;  T690:;
1901          {long V421;          {long V401;
1902          if(((V417))==Cnil){          if(((V397))==Cnil){
1903          goto T674;}          goto T696;}
1904          V421= (long)(*(LnkLI36))((V417));          V401= (long)(*(LnkLI36))((V397));
1905          goto T672;          goto T694;
1906          goto T674;          goto T696;
1907  T674:;  T696:;
1908          V421= 0;          V401= 0;
1909          goto T672;          goto T694;
1910  T672:;  T694:;
1911          {long V422;          {long V402;
1912          V422= (long)(*(LnkLI37))((V418),(V413));          V402= (long)(*(LnkLI37))((V398),(V393));
1913          if(!((V421)<=(V422))){          if(!((V401)<=(V402))){
1914          goto T678;}          goto T700;}
1915          goto T677;          goto T699;
1916          goto T678;          goto T700;
1917  T678:;  T700:;
1918          V423 = make_fixnum(V421);          base[0]= make_fixnum(V401);
1919          V424 = make_fixnum(V422);          base[1]= make_fixnum(V402);
1920          (void)((VFUN_NARGS=2,(*(LnkLI33))(V423,V424)));          vs_top=(vs_base=base+0)+2;
1921          goto T677;          (void) (*Lnk33)();
 T677:;  
         {IDECL(GEN V425,V425space,V425alloc);  
         if(((V419))!=Cnil){  
         goto T682;}  
         ISETQ_FIX(V425,V425alloc,2147483647);  
         goto T680;  
         goto T682;  
 T682:;SETQ_IO(V425,V425alloc,(V419));  
         goto T680;  
 T680:;  
         if((V415)==Cnil){  
         goto T685;}  
         if((V416)==Cnil){  
         goto T685;}  
         (void)((*(LnkLI42))());  
         goto T685;  
 T685:;  
         if(((V414))!=Cnil){  
         goto T687;}  
         {register long V426;  
         register long V427;  
         V426= V421;  
         V427= 0;  
         goto T692;  
 T692:;  
         if(!((V426)>=(V422))){  
         goto T693;}  
         {object V428 = (V413);  
         VMR26(V428)}  
         goto T693;  
 T693:;  
         V429 = make_fixnum(V427);  
         V430 = make_integer(V425);  
         if(!(number_compare(V429,V430)<0)){  
         goto T697;}  
         base[0]= elt((V413),V426);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V420));  
         vs_top=sup;  
         V431= vs_base[0];  
         if(((*(LnkLI43))((V415),(V416),(V412),V431))==Cnil){  
         goto T697;}  
         (void)(elt_set((V413),V426,(V411)));  
         V427= (long)(1)+(V427);  
         goto T697;  
 T697:;  
         V426= (long)(1)+(V426);  
         goto T692;}  
         goto T687;  
 T687:;  
         {register long V432;  
         register long V433;  
         V432= (long)(-1)+(V422);  
         V433= 0;  
         goto T712;  
 T712:;  
         if(!((V432)<(V421))){  
         goto T713;}  
         {object V434 = (V413);  
         VMR26(V434)}  
         goto T713;  
 T713:;  
         V435 = make_fixnum(V433);  
         V436 = make_integer(V425);  
         if(!(number_compare(V435,V436)<0)){  
         goto T717;}  
         base[0]= elt((V413),V432);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V420));  
1922          vs_top=sup;          vs_top=sup;
1923          V437= vs_base[0];          goto T699;
1924          if(((*(LnkLI43))((V415),(V416),(V412),V437))==Cnil){  T699:;
1925            {IDECL(GEN V403,V403space,V403alloc);
1926            if(((V399))!=Cnil){
1927            goto T706;}
1928            ISETQ_FIX(V403,V403alloc,2147483647);
1929            goto T704;
1930            goto T706;
1931    T706:;SETQ_IO(V403,V403alloc,(V399));
1932            goto T704;
1933    T704:;
1934            if((V395)==Cnil){
1935            goto T709;}
1936            if((V396)==Cnil){
1937            goto T709;}
1938            (void)((*(LnkLI42))());
1939            goto T709;
1940    T709:;
1941            if(((V394))!=Cnil){
1942            goto T711;}
1943            {register long V404;
1944            register long V405;
1945            V404= V401;
1946            V405= 0;
1947            goto T716;
1948    T716:;
1949            if(!((V404)>=(V402))){
1950          goto T717;}          goto T717;}
1951          (void)(elt_set((V413),V432,(V411)));          {object V406 = (V393);
1952          V433= (long)(1)+(V433);          VMR26(V406)}
1953          goto T717;          goto T717;
1954  T717:;  T717:;
1955          V432= (long)(-1)+(V432);          V407 = make_fixnum(V405);
1956          goto T712;}}}}          V408 = make_integer(V403);
1957            if(!(number_compare(V407,V408)<0)){
1958            goto T721;}
1959            base[0]= elt((V393),V404);
1960            vs_top=(vs_base=base+0)+1;
1961            super_funcall_no_event((V400));
1962            vs_top=sup;
1963            V409= vs_base[0];
1964            if(((*(LnkLI43))((V395),(V396),(V392),V409))==Cnil){
1965            goto T721;}
1966            (void)(elt_set((V393),V404,(V391)));
1967            V405= (long)(1)+(V405);
1968            goto T721;
1969    T721:;
1970            V404= (long)(1)+(V404);
1971            goto T716;}
1972            goto T711;
1973    T711:;
1974            {register long V410;
1975            register long V411;
1976            V410= (long)(-1)+(V402);
1977            V411= 0;
1978            goto T736;
1979    T736:;
1980            if(!((V410)<(V401))){
1981            goto T737;}
1982            {object V412 = (V393);
1983            VMR26(V412)}
1984            goto T737;
1985    T737:;
1986            V413 = make_fixnum(V411);
1987            V414 = make_integer(V403);
1988            if(!(number_compare(V413,V414)<0)){
1989            goto T741;}
1990            base[0]= elt((V393),V410);
1991            vs_top=(vs_base=base+0)+1;
1992            super_funcall_no_event((V400));
1993            vs_top=sup;
1994            V415= vs_base[0];
1995            if(((*(LnkLI43))((V395),(V396),(V392),V415))==Cnil){
1996            goto T741;}
1997            (void)(elt_set((V393),V410,(V391)));
1998            V411= (long)(1)+(V411);
1999            goto T741;
2000    T741:;
2001            V410= (long)(-1)+(V410);
2002            goto T736;}}}}
2003          va_end(ap);          va_end(ap);
2004          base[0]=base[0];          base[0]=base[0];
2005          return Cnil;}          return Cnil;}
2006          }}          }}
2007  /*      local entry for function NSUBSTITUTE-IF */  /*      local entry for function NSUBSTITUTE-IF */
2008    
2009  static object LI27(object V440,object V439,object V438,object first,...)  static object LI27(object V418,object V417,object V416,object first,...)
2010  {        {      
2011          va_list ap;          va_list ap;
2012          int narg = VFUN_NARGS; VMB27 VMS27 VMV27          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
2013          {object V441;          {object V419;
2014          object V442;          object V420;
2015          object V443;          object V421;
2016          object V444;          object V422;
2017          object V445;          object V423;
2018          object V446;          object V424;
2019          object V447;          object V425;
2020          object V448;          object V426;
2021          va_start(ap,first);          va_start(ap,first);
2022          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2023          V441= V440;          V419= V418;
2024          V442= V439;          V420= V417;
2025          V443= V438;          V421= V416;
2026          narg= narg - 3;          narg= narg - 3;
2027          {          {
2028          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI27key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI27key,first,ap);
2029          V444=(Vcs[3]);          V422=(Vcs[3]);
2030          V445=(Vcs[4]);          V423=(Vcs[4]);
2031          V446=(Vcs[5]);          V424=(Vcs[5]);
2032          V447=(Vcs[6]);          V425=(Vcs[6]);
2033          if(Vcs[7]==0){          if(Vcs[7]==0){
2034          V448= symbol_function(VV[35]);          V426= symbol_function(VV[35]);
2035          }else{          }else{
2036          V448=(Vcs[7]);}          V426=(Vcs[7]);}
2037          if(!(((V448))==(Cnil))){          if(!(((V426))==(Cnil))){
2038          goto T730;}          goto T754;}
2039          V448= symbol_function(VV[35]);          V426= symbol_function(VV[35]);
2040          goto T730;          goto T754;
2041  T730:;  T754:;
2042          V449= symbol_function(VV[46]);          V427= symbol_function(VV[46]);
2043          {object V450 = (VFUN_NARGS=15,(*(LnkLI52))((V441),(V442),(V443),VV[11],(V444),VV[12],V449,VV[14],(V445),VV[15],(V446),VV[16],(V447),VV[17],(V448)));          {object V428 = (VFUN_NARGS=15,(*(LnkLI52))((V419),(V420),(V421),VV[11],(V422),VV[12],V427,VV[14],(V423),VV[15],(V424),VV[16],(V425),VV[17],(V426)));
2044          VMR27(V450)}          VMR27(V428)}
2045          va_end(ap);          va_end(ap);
2046          return Cnil;}          return Cnil;}
2047          }}          }}
2048  /*      local entry for function NSUBSTITUTE-IF-NOT     */  /*      local entry for function NSUBSTITUTE-IF-NOT     */
2049    
2050  static object LI28(object V453,object V452,object V451,object first,...)  static object LI28(object V431,object V430,object V429,object first,...)
2051  {        {      
2052          va_list ap;          va_list ap;
2053          int narg = VFUN_NARGS; VMB28 VMS28 VMV28          int narg = VFUN_NARGS; VMB28 VMS28 VMV28
2054          {object V454;          {object V432;
2055          object V455;          object V433;
2056          object V456;          object V434;
2057          object V457;          object V435;
2058          object V458;          object V436;
2059          object V459;          object V437;
2060          object V460;          object V438;
2061          object V461;          object V439;
2062          va_start(ap,first);          va_start(ap,first);
2063          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2064          V454= V453;          V432= V431;
2065          V455= V452;          V433= V430;
2066          V456= V451;          V434= V429;
2067          narg= narg - 3;          narg= narg - 3;
2068          {          {
2069          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI28key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI28key,first,ap);
2070          V457=(Vcs[3]);          V435=(Vcs[3]);
2071          V458=(Vcs[4]);          V436=(Vcs[4]);
2072          V459=(Vcs[5]);          V437=(Vcs[5]);
2073          V460=(Vcs[6]);          V438=(Vcs[6]);
2074          if(Vcs[7]==0){          if(Vcs[7]==0){
2075          V461= symbol_function(VV[35]);          V439= symbol_function(VV[35]);
2076          }else{          }else{
2077          V461=(Vcs[7]);}          V439=(Vcs[7]);}
2078          if(!(((V461))==(Cnil))){          if(!(((V439))==(Cnil))){
2079          goto T736;}          goto T760;}
2080          V461= symbol_function(VV[35]);          V439= symbol_function(VV[35]);
2081          goto T736;          goto T760;
2082  T736:;  T760:;
2083          V462= symbol_function(VV[46]);          V440= symbol_function(VV[46]);
2084          {object V463 = (VFUN_NARGS=15,(*(LnkLI52))((V454),(V455),(V456),VV[11],(V457),VV[13],V462,VV[14],(V458),VV[15],(V459),VV[16],(V460),VV[17],(V461)));          {object V441 = (VFUN_NARGS=15,(*(LnkLI52))((V432),(V433),(V434),VV[11],(V435),VV[13],V440,VV[14],(V436),VV[15],(V437),VV[16],(V438),VV[17],(V439)));
2085          VMR28(V463)}          VMR28(V441)}
2086          va_end(ap);          va_end(ap);
2087          return Cnil;}          return Cnil;}
2088          }}          }}
2089  /*      local entry for function FIND   */  /*      local entry for function FIND   */
2090    
2091  static object LI29(object V465,object V464,object first,...)  static object LI29(object V443,object V442,object first,...)
2092  {        {      
2093          va_list ap;          va_list ap;
2094          int narg = VFUN_NARGS; VMB29 VMS29 VMV29          int narg = VFUN_NARGS; VMB29 VMS29 VMV29
2095          {object V466;          {object V444;
2096          register object V467;          register object V445;
2097          object V468;          object V446;
2098          register object V469;          register object V447;
2099          register object V470;          register object V448;
2100          object V471;          object V449;
2101          object V472;          object V450;
2102          register object V473;          register object V451;
2103          va_start(ap,first);          va_start(ap,first);
2104          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2105          V466= V465;          V444= V443;
2106          V467= V464;          V445= V442;
2107          narg= narg - 2;          narg= narg - 2;
2108          {          {
2109          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI29key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI29key,first,ap);
2110          V468=(Vcs[2]);          V446=(Vcs[2]);
2111          V469=(Vcs[3]);          V447=(Vcs[3]);
2112          V470=(Vcs[4]);          V448=(Vcs[4]);
2113          V471=(Vcs[5]);          V449=(Vcs[5]);
2114          V472=(Vcs[6]);          V450=(Vcs[6]);
2115          if(Vcs[7]==0){          if(Vcs[7]==0){
2116          V473= symbol_function(VV[35]);          V451= symbol_function(VV[35]);
2117          }else{          }else{
2118          V473=(Vcs[7]);}          V451=(Vcs[7]);}
2119          if(!(((V473))==(Cnil))){          if(!(((V451))==(Cnil))){
2120          goto T742;}          goto T766;}
2121          V473= symbol_function(VV[35]);          V451= symbol_function(VV[35]);
2122          goto T742;          goto T766;
2123  T742:;  T766:;
2124          {long V474;          {long V452;
2125          if(((V471))==Cnil){          if(((V449))==Cnil){
2126          goto T748;}          goto T772;}
2127          V474= (long)(*(LnkLI36))((V471));          V452= (long)(*(LnkLI36))((V449));
2128          goto T746;          goto T770;
2129          goto T748;          goto T772;
2130  T748:;  T772:;
2131          V474= 0;          V452= 0;
2132          goto T746;          goto T770;
2133  T746:;  T770:;
2134          {long V475;          {long V453;
2135          V475= (long)(*(LnkLI37))((V472),(V467));          V453= (long)(*(LnkLI37))((V450),(V445));
2136          if(!((V474)<=(V475))){          if(!((V452)<=(V453))){
         goto T752;}  
         goto T751;  
         goto T752;  
 T752:;  
         V476 = make_fixnum(V474);  
         V477 = make_fixnum(V475);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V476,V477)));  
         goto T751;  
 T751:;  
         if((V469)==Cnil){  
         goto T754;}  
         if((V470)==Cnil){  
         goto T754;}  
         (void)((*(LnkLI42))());  
         goto T754;  
 T754:;  
         if(((V468))!=Cnil){  
         goto T756;}  
         {register long V478;  
         V478= V474;  
         goto T760;  
 T760:;  
         if(!((V478)>=(V475))){  
         goto T761;}  
         {object V479 = Cnil;  
         VMR29(V479)}  
         goto T761;  
 T761:;  
         base[0]= elt((V467),V478);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V473));  
         vs_top=sup;  
         V480= vs_base[0];  
         if(((*(LnkLI43))((V469),(V470),(V466),V480))==Cnil){  
         goto T765;}  
         {object V481 = elt((V467),V478);  
         VMR29(V481)}  
         goto T765;  
 T765:;  
         V478= (long)(1)+(V478);  
         goto T760;}  
         goto T756;  
 T756:;  
         {register long V482;  
         V482= (long)(-1)+(V475);  
         goto T775;  
 T775:;  
         if(!((V482)<(V474))){  
2137          goto T776;}          goto T776;}
2138          {object V483 = Cnil;          goto T775;
         VMR29(V483)}  
2139          goto T776;          goto T776;
2140  T776:;  T776:;
2141          base[0]= elt((V467),V482);          base[0]= make_fixnum(V452);
2142          vs_top=(vs_base=base+0)+1;          base[1]= make_fixnum(V453);
2143          super_funcall_no_event((V473));          vs_top=(vs_base=base+0)+2;
2144            (void) (*Lnk33)();
2145          vs_top=sup;          vs_top=sup;
2146          V484= vs_base[0];          goto T775;
2147          if(((*(LnkLI43))((V469),(V470),(V466),V484))==Cnil){  T775:;
2148            if((V447)==Cnil){
2149            goto T780;}
2150            if((V448)==Cnil){
2151          goto T780;}          goto T780;}
2152          {object V485 = elt((V467),V482);          (void)((*(LnkLI42))());
         VMR29(V485)}  
2153          goto T780;          goto T780;
2154  T780:;  T780:;
2155          V482= (long)(-1)+(V482);          if(((V446))!=Cnil){
2156          goto T775;}}}          goto T782;}
2157            {register long V454;
2158            V454= V452;
2159            goto T786;
2160    T786:;
2161            if(!((V454)>=(V453))){
2162            goto T787;}
2163            {object V455 = Cnil;
2164            VMR29(V455)}
2165            goto T787;
2166    T787:;
2167            base[0]= elt((V445),V454);
2168            vs_top=(vs_base=base+0)+1;
2169            super_funcall_no_event((V451));
2170            vs_top=sup;
2171            V456= vs_base[0];
2172            if(((*(LnkLI43))((V447),(V448),(V444),V456))==Cnil){
2173            goto T791;}
2174            {object V457 = elt((V445),V454);
2175            VMR29(V457)}
2176            goto T791;
2177    T791:;
2178            V454= (long)(1)+(V454);
2179            goto T786;}
2180            goto T782;
2181    T782:;
2182            {register long V458;
2183            V458= (long)(-1)+(V453);
2184            goto T801;
2185    T801:;
2186            if(!((V458)<(V452))){
2187            goto T802;}
2188            {object V459 = Cnil;
2189            VMR29(V459)}
2190            goto T802;
2191    T802:;
2192            base[0]= elt((V445),V458);
2193            vs_top=(vs_base=base+0)+1;
2194            super_funcall_no_event((V451));
2195            vs_top=sup;
2196            V460= vs_base[0];
2197            if(((*(LnkLI43))((V447),(V448),(V444),V460))==Cnil){
2198            goto T806;}
2199            {object V461 = elt((V445),V458);
2200            VMR29(V461)}
2201            goto T806;
2202    T806:;
2203            V458= (long)(-1)+(V458);
2204            goto T801;}}}
2205          va_end(ap);          va_end(ap);
2206          base[0]=base[0];          base[0]=base[0];
2207          return Cnil;}          return Cnil;}
2208          }}          }}
2209  /*      local entry for function FIND-IF        */  /*      local entry for function FIND-IF        */
2210    
2211  static object LI30(object V487,object V486,object first,...)  static object LI30(object V463,object V462,object first,...)
2212  {        {      
2213          va_list ap;          va_list ap;
2214          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
2215          {object V488;          {object V464;
2216          object V489;          object V465;
2217          object V490;          object V466;
2218          object V491;          object V467;
2219          object V492;          object V468;
2220          object V493;          object V469;
2221          va_start(ap,first);          va_start(ap,first);
2222          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2223          V488= V487;          V464= V463;
2224          V489= V486;          V465= V462;
2225          narg= narg - 2;          narg= narg - 2;
2226          {          {
2227          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI30key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI30key,first,ap);
2228          V490=(Vcs[2]);          V466=(Vcs[2]);
2229          V491=(Vcs[3]);          V467=(Vcs[3]);
2230          V492=(Vcs[4]);          V468=(Vcs[4]);
2231          if(Vcs[5]==0){          if(Vcs[5]==0){
2232          V493= symbol_function(VV[35]);          V469= symbol_function(VV[35]);
2233          }else{          }else{
2234          V493=(Vcs[5]);}          V469=(Vcs[5]);}
2235          if(!(((V493))==(Cnil))){          if(!(((V469))==(Cnil))){
2236          goto T789;}          goto T815;}
2237          V493= symbol_function(VV[35]);          V469= symbol_function(VV[35]);
2238          goto T789;          goto T815;
2239  T789:;  T815:;
2240          V494= symbol_function(VV[46]);          V470= symbol_function(VV[46]);
2241          {object V495 = (VFUN_NARGS=12,(*(LnkLI53))((V488),(V489),VV[11],(V490),VV[12],V494,VV[14],(V491),VV[15],(V492),VV[17],(V493)));          {object V471 = (VFUN_NARGS=12,(*(LnkLI53))((V464),(V465),VV[11],(V466),VV[12],V470,VV[14],(V467),VV[15],(V468),VV[17],(V469)));
2242          VMR30(V495)}          VMR30(V471)}
2243          va_end(ap);          va_end(ap);
2244          return Cnil;}          return Cnil;}
2245          }}          }}
2246  /*      local entry for function FIND-IF-NOT    */  /*      local entry for function FIND-IF-NOT    */
2247    
2248  static object LI31(object V497,object V496,object first,...)  static object LI31(object V473,object V472,object first,...)
2249  {        {      
2250          va_list ap;          va_list ap;
2251          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
2252          {object V498;          {object V474;
2253          object V499;          object V475;
2254          object V500;          object V476;
2255          object V501;          object V477;
2256          object V502;          object V478;
2257          object V503;          object V479;
2258          va_start(ap,first);          va_start(ap,first);
2259          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2260          V498= V497;          V474= V473;
2261          V499= V496;          V475= V472;
2262          narg= narg - 2;          narg= narg - 2;
2263          {          {
2264          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI31key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI31key,first,ap);
2265          V500=(Vcs[2]);          V476=(Vcs[2]);
2266          V501=(Vcs[3]);          V477=(Vcs[3]);
2267          V502=(Vcs[4]);          V478=(Vcs[4]);
2268          if(Vcs[5]==0){          if(Vcs[5]==0){
2269          V503= symbol_function(VV[35]);          V479= symbol_function(VV[35]);
2270          }else{          }else{
2271          V503=(Vcs[5]);}          V479=(Vcs[5]);}
2272          if(!(((V503))==(Cnil))){          if(!(((V479))==(Cnil))){
2273          goto T795;}          goto T821;}
2274          V503= symbol_function(VV[35]);          V479= symbol_function(VV[35]);
2275          goto T795;          goto T821;
2276  T795:;  T821:;
2277          V504= symbol_function(VV[46]);          V480= symbol_function(VV[46]);
2278          {object V505 = (VFUN_NARGS=12,(*(LnkLI53))((V498),(V499),VV[11],(V500),VV[13],V504,VV[14],(V501),VV[15],(V502),VV[17],(V503)));          {object V481 = (VFUN_NARGS=12,(*(LnkLI53))((V474),(V475),VV[11],(V476),VV[13],V480,VV[14],(V477),VV[15],(V478),VV[17],(V479)));
2279          VMR31(V505)}          VMR31(V481)}
2280          va_end(ap);          va_end(ap);
2281          return Cnil;}          return Cnil;}
2282          }}          }}
2283  /*      local entry for function POSITION       */  /*      local entry for function POSITION       */
2284    
2285  static object LI32(object V507,object V506,object first,...)  static object LI32(object V483,object V482,object first,...)
2286  {        {      
2287          va_list ap;          va_list ap;
2288          int narg = VFUN_NARGS; VMB32 VMS32 VMV32          int narg = VFUN_NARGS; VMB32 VMS32 VMV32
2289          {object V508;          {object V484;
2290          register object V509;          register object V485;
2291          object V510;          object V486;
2292          register object V511;          register object V487;
2293          register object V512;          register object V488;
2294          object V513;          object V489;
2295          object V514;          object V490;
2296          register object V515;          register object V491;
2297          va_start(ap,first);          va_start(ap,first);
2298          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2299          V508= V507;          V484= V483;
2300          V509= V506;          V485= V482;
2301          narg= narg - 2;          narg= narg - 2;
2302          {          {
2303          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI32key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI32key,first,ap);
2304          V510=(Vcs[2]);          V486=(Vcs[2]);
2305          V511=(Vcs[3]);          V487=(Vcs[3]);
2306          V512=(Vcs[4]);          V488=(Vcs[4]);
2307          V513=(Vcs[5]);          V489=(Vcs[5]);
2308          V514=(Vcs[6]);          V490=(Vcs[6]);
2309          if(Vcs[7]==0){          if(Vcs[7]==0){
2310          V515= symbol_function(VV[35]);          V491= symbol_function(VV[35]);
2311          }else{          }else{
2312          V515=(Vcs[7]);}          V491=(Vcs[7]);}
2313          if(!(((V515))==(Cnil))){          if(!(((V491))==(Cnil))){
2314          goto T801;}          goto T827;}
2315          V515= symbol_function(VV[35]);          V491= symbol_function(VV[35]);
2316          goto T801;          goto T827;
2317  T801:;  T827:;
2318          {long V516;          {long V492;
2319          if(((V513))==Cnil){          if(((V489))==Cnil){
2320          goto T807;}          goto T833;}
2321          V516= (long)(*(LnkLI36))((V513));          V492= (long)(*(LnkLI36))((V489));
2322          goto T805;          goto T831;
2323          goto T807;          goto T833;
2324  T807:;  T833:;
2325          V516= 0;          V492= 0;
2326          goto T805;          goto T831;
2327  T805:;  T831:;
2328          {long V517;          {long V493;
2329          V517= (long)(*(LnkLI37))((V514),(V509));          V493= (long)(*(LnkLI37))((V490),(V485));
2330          if(!((V516)<=(V517))){          if(!((V492)<=(V493))){
2331          goto T811;}          goto T837;}
2332          goto T810;          goto T836;
2333          goto T811;          goto T837;
2334  T811:;  T837:;
2335          V518 = make_fixnum(V516);          base[0]= make_fixnum(V492);
2336          V519 = make_fixnum(V517);          base[1]= make_fixnum(V493);
2337          (void)((VFUN_NARGS=2,(*(LnkLI33))(V518,V519)));          vs_top=(vs_base=base+0)+2;
2338          goto T810;          (void) (*Lnk33)();
2339  T810:;          vs_top=sup;
2340          if((V511)==Cnil){          goto T836;
2341          goto T813;}  T836:;
2342          if((V512)==Cnil){          if((V487)==Cnil){
2343          goto T813;}          goto T841;}
2344            if((V488)==Cnil){
2345            goto T841;}
2346          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
2347          goto T813;          goto T841;
2348  T813:;  T841:;
2349          if(((V510))!=Cnil){          if(((V486))!=Cnil){
2350          goto T815;}          goto T843;}
2351          {register long V520;          {register long V494;
2352          V520= V516;          V494= V492;
2353          goto T819;          goto T847;
2354  T819:;  T847:;
2355          if(!((V520)>=(V517))){          if(!((V494)>=(V493))){
2356          goto T820;}          goto T848;}
2357          {object V521 = Cnil;          {object V495 = Cnil;
2358          VMR32(V521)}          VMR32(V495)}
2359          goto T820;          goto T848;
2360  T820:;  T848:;
2361          base[0]= elt((V509),V520);          base[0]= elt((V485),V494);
2362          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2363          super_funcall_no_event((V515));          super_funcall_no_event((V491));
2364          vs_top=sup;          vs_top=sup;
2365          V522= vs_base[0];          V496= vs_base[0];
2366          if(((*(LnkLI43))((V511),(V512),(V508),V522))==Cnil){          if(((*(LnkLI43))((V487),(V488),(V484),V496))==Cnil){
2367          goto T824;}          goto T852;}
2368          {object V523 = make_fixnum(V520);          {object V497 = make_fixnum(V494);
2369          VMR32(V523)}          VMR32(V497)}
2370          goto T824;          goto T852;
2371  T824:;  T852:;
2372          V520= (long)(1)+(V520);          V494= (long)(1)+(V494);
2373          goto T819;}          goto T847;}
2374          goto T815;          goto T843;
2375  T815:;  T843:;
2376          {register long V524;          {register long V498;
2377          V524= (long)(-1)+(V517);          V498= (long)(-1)+(V493);
2378          goto T834;          goto T862;
2379  T834:;  T862:;
2380          if(!((V524)<(V516))){          if(!((V498)<(V492))){
2381          goto T835;}          goto T863;}
2382          {object V525 = Cnil;          {object V499 = Cnil;
2383          VMR32(V525)}          VMR32(V499)}
2384          goto T835;          goto T863;
2385  T835:;  T863:;
2386          base[0]= elt((V509),V524);          base[0]= elt((V485),V498);
2387          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2388          super_funcall_no_event((V515));          super_funcall_no_event((V491));
2389          vs_top=sup;          vs_top=sup;
2390          V526= vs_base[0];          V500= vs_base[0];
2391          if(((*(LnkLI43))((V511),(V512),(V508),V526))==Cnil){          if(((*(LnkLI43))((V487),(V488),(V484),V500))==Cnil){
2392          goto T839;}          goto T867;}
2393          {object V527 = make_fixnum(V524);          {object V501 = make_fixnum(V498);
2394          VMR32(V527)}          VMR32(V501)}
2395          goto T839;          goto T867;
2396  T839:;  T867:;
2397          V524= (long)(-1)+(V524);          V498= (long)(-1)+(V498);
2398          goto T834;}}}          goto T862;}}}
2399          va_end(ap);          va_end(ap);
2400          base[0]=base[0];          base[0]=base[0];
2401          return Cnil;}          return Cnil;}
2402          }}          }}
2403  /*      local entry for function POSITION-IF    */  /*      local entry for function POSITION-IF    */
2404    
2405  static object LI33(object V529,object V528,object first,...)  static object LI33(object V503,object V502,object first,...)
2406  {        {      
2407          va_list ap;          va_list ap;
2408          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
2409          {object V530;          {object V504;
2410          object V531;          object V505;
2411          object V532;          object V506;
2412          object V533;          object V507;
2413          object V534;          object V508;
2414          object V535;          object V509;
2415          va_start(ap,first);          va_start(ap,first);
2416          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2417          V530= V529;          V504= V503;
2418          V531= V528;          V505= V502;
2419          narg= narg - 2;          narg= narg - 2;
2420          {          {
2421          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI33key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI33key,first,ap);
2422          V532=(Vcs[2]);          V506=(Vcs[2]);
2423          V533=(Vcs[3]);          V507=(Vcs[3]);
2424          V534=(Vcs[4]);          V508=(Vcs[4]);
2425          if(Vcs[5]==0){          if(Vcs[5]==0){
2426          V535= symbol_function(VV[35]);          V509= symbol_function(VV[35]);
2427          }else{          }else{
2428          V535=(Vcs[5]);}          V509=(Vcs[5]);}
2429          if(!(((V535))==(Cnil))){          if(!(((V509))==(Cnil))){
2430          goto T848;}          goto T876;}
2431          V535= symbol_function(VV[35]);          V509= symbol_function(VV[35]);
2432          goto T848;          goto T876;
2433  T848:;  T876:;
2434          V536= symbol_function(VV[46]);          V510= symbol_function(VV[46]);
2435          {object V537 = (VFUN_NARGS=12,(*(LnkLI54))((V530),(V531),VV[11],(V532),VV[12],V536,VV[14],(V533),VV[15],(V534),VV[17],(V535)));          {object V511 = (VFUN_NARGS=12,(*(LnkLI54))((V504),(V505),VV[11],(V506),VV[12],V510,VV[14],(V507),VV[15],(V508),VV[17],(V509)));
2436          VMR33(V537)}          VMR33(V511)}
2437          va_end(ap);          va_end(ap);
2438          return Cnil;}          return Cnil;}
2439          }}          }}
2440  /*      local entry for function POSITION-IF-NOT        */  /*      local entry for function POSITION-IF-NOT        */
2441    
2442  static object LI34(object V539,object V538,object first,...)  static object LI34(object V513,object V512,object first,...)
2443  {        {      
2444          va_list ap;          va_list ap;
2445          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
2446          {object V540;          {object V514;
2447          object V541;          object V515;
2448          object V542;          object V516;
2449          object V543;          object V517;
2450          object V544;          object V518;
2451          object V545;          object V519;
2452          va_start(ap,first);          va_start(ap,first);
2453          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2454          V540= V539;          V514= V513;
2455          V541= V538;          V515= V512;
2456          narg= narg - 2;          narg= narg - 2;
2457          {          {
2458          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI34key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI34key,first,ap);
2459          V542=(Vcs[2]);          V516=(Vcs[2]);
2460          V543=(Vcs[3]);          V517=(Vcs[3]);
2461          V544=(Vcs[4]);          V518=(Vcs[4]);
2462          if(Vcs[5]==0){          if(Vcs[5]==0){
2463          V545= symbol_function(VV[35]);          V519= symbol_function(VV[35]);
2464          }else{          }else{
2465          V545=(Vcs[5]);}          V519=(Vcs[5]);}
2466          if(!(((V545))==(Cnil))){          if(!(((V519))==(Cnil))){
2467          goto T854;}          goto T882;}
2468          V545= symbol_function(VV[35]);          V519= symbol_function(VV[35]);
2469          goto T854;          goto T882;
2470  T854:;  T882:;
2471          V546= symbol_function(VV[46]);          V520= symbol_function(VV[46]);
2472          {object V547 = (VFUN_NARGS=12,(*(LnkLI54))((V540),(V541),VV[11],(V542),VV[13],V546,VV[14],(V543),VV[15],(V544),VV[17],(V545)));          {object V521 = (VFUN_NARGS=12,(*(LnkLI54))((V514),(V515),VV[11],(V516),VV[13],V520,VV[14],(V517),VV[15],(V518),VV[17],(V519)));
2473          VMR34(V547)}          VMR34(V521)}
2474          va_end(ap);          va_end(ap);
2475          return Cnil;}          return Cnil;}
2476          }}          }}
2477  /*      local entry for function REMOVE-DUPLICATES      */  /*      local entry for function REMOVE-DUPLICATES      */
2478    
2479  static object LI35(object V548,object first,...)  static object LI35(object V522,object first,...)
2480  {        {      
2481          va_list ap;          va_list ap;
2482          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
2483          {register object V549;          {register object V523;
2484          object V550;          object V524;
2485          register object V551;          register object V525;
2486          register object V552;          register object V526;
2487          object V553;          object V527;
2488          object V554;          object V528;
2489          register object V555;          register object V529;
2490          va_start(ap,first);          va_start(ap,first);
2491          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2492          V549= V548;          V523= V522;
2493          narg= narg - 1;          narg= narg - 1;
2494          {          {
2495          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI35key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI35key,first,ap);
2496          V550=(Vcs[1]);          V524=(Vcs[1]);
2497          V551=(Vcs[2]);          V525=(Vcs[2]);
2498          V552=(Vcs[3]);          V526=(Vcs[3]);
2499          V553=(Vcs[4]);          V527=(Vcs[4]);
2500          V554=(Vcs[5]);          V528=(Vcs[5]);
2501          if(Vcs[6]==0){          if(Vcs[6]==0){
2502          V555= symbol_function(VV[35]);          V529= symbol_function(VV[35]);
2503          }else{          }else{
2504          V555=(Vcs[6]);}          V529=(Vcs[6]);}
2505          if((V551)==Cnil){          if((V525)==Cnil){
2506          goto T860;}          goto T888;}
2507          if((V552)==Cnil){          if((V526)==Cnil){
2508          goto T860;}          goto T888;}
2509          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
2510          goto T860;          goto T888;
2511  T860:;  T888:;
2512          if(!(type_of((V549))==t_cons||((V549))==Cnil)){          if(!(type_of((V523))==t_cons||((V523))==Cnil)){
2513          goto T861;}          goto T889;}
2514          if(((V550))!=Cnil){          if(((V524))!=Cnil){
2515          goto T861;}          goto T889;}
2516          if(((V553))!=Cnil){          if(((V527))!=Cnil){
2517          goto T861;}          goto T889;}
2518          if(((V554))!=Cnil){          if(((V528))!=Cnil){
2519          goto T861;}          goto T889;}
2520          if(!(endp_prop((V549)))){          if(!(endp_prop((V523)))){
2521          goto T870;}          goto T898;}
2522          {object V556 = Cnil;          {object V530 = Cnil;
2523          VMR35(V556)}          VMR35(V530)}
2524          goto T870;          goto T898;
2525  T870:;  T898:;
2526          {register object V557;          {register object V531;
2527          register object V558;          register object V532;
2528          V557= (V549);          V531= (V523);
2529          V558= Cnil;          V532= Cnil;
2530          goto T874;          goto T902;
2531  T874:;  T902:;
2532          if(!(endp_prop(cdr((V557))))){          if(!(endp_prop(cdr((V531))))){
2533          goto T875;}          goto T903;}
2534          base[0]= (V558);          base[0]= (V532);
2535          base[1]= (V557);          base[1]= (V531);
2536          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2537          Lreconc();          Lreconc();
2538          vs_top=sup;          vs_top=sup;
2539          {object V559 = vs_base[0];          {object V533 = vs_base[0];
2540          VMR35(V559)}          VMR35(V533)}
2541          goto T875;          goto T903;
2542  T875:;  T903:;
2543          base[0]= car((V557));          base[0]= car((V531));
2544          base[1]= cdr((V557));          base[1]= cdr((V531));
2545          base[2]= VV[12];          base[2]= VV[12];
2546          base[3]= (V551);          base[3]= (V525);
2547          base[4]= VV[13];          base[4]= VV[13];
2548          base[5]= (V552);          base[5]= (V526);
2549          base[6]= VV[17];          base[6]= VV[17];
2550          base[7]= (V555);          base[7]= (V529);
2551          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2552          (void) (*Lnk55)();          (void) (*Lnk55)();
2553          vs_top=sup;          vs_top=sup;
2554          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2555          goto T881;}          goto T909;}
2556          V558= make_cons(car((V557)),(V558));          V532= make_cons(car((V531)),(V532));
2557          goto T881;          goto T909;
2558  T881:;  T909:;
2559          V557= cdr((V557));          V531= cdr((V531));
2560          goto T874;}          goto T902;}
2561          goto T861;          goto T889;
2562  T861:;  T889:;
2563          {object V560 = (VFUN_NARGS=13,(*(LnkLI56))((V549),VV[11],(V550),VV[12],(V551),VV[13],(V552),VV[14],(V553),VV[15],(V554),VV[17],(V555)));          {object V534 = (VFUN_NARGS=13,(*(LnkLI56))((V523),VV[11],(V524),VV[12],(V525),VV[13],(V526),VV[14],(V527),VV[15],(V528),VV[17],(V529)));
2564          VMR35(V560)}          VMR35(V534)}
2565          va_end(ap);          va_end(ap);
2566          base[0]=base[0];          base[0]=base[0];
2567          return Cnil;}          return Cnil;}
2568          }}          }}
2569  /*      local entry for function DELETE-DUPLICATES      */  /*      local entry for function DELETE-DUPLICATES      */
2570    
2571  static object LI36(object V561,object first,...)  static object LI36(object V535,object first,...)
2572  {        {      
2573          va_list ap;          va_list ap;
2574          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
2575          {register object V562;          {register object V536;
2576          object V563;          object V537;
2577          object V564;          object V538;
2578          object V565;          object V539;
2579          object V566;          object V540;
2580          object V567;          object V541;
2581          register object V568;          register object V542;
2582          va_start(ap,first);          va_start(ap,first);
2583          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2584          V562= V561;          V536= V535;
2585          narg= narg - 1;          narg= narg - 1;
2586          {          {
2587          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap);
2588          V563=(Vcs[1]);          V537=(Vcs[1]);
2589          V564=(Vcs[2]);          V538=(Vcs[2]);
2590          V565=(Vcs[3]);          V539=(Vcs[3]);
2591          V566=(Vcs[4]);          V540=(Vcs[4]);
2592          V567=(Vcs[5]);          V541=(Vcs[5]);
2593          if(Vcs[6]==0){          if(Vcs[6]==0){
2594          V568= symbol_function(VV[35]);          V542= symbol_function(VV[35]);
2595          }else{          }else{
2596          V568=(Vcs[6]);}          V542=(Vcs[6]);}
2597          {long V569;          {long V543;
2598          V569= (long)length((V562));          V543= (long)length((V536));
2599          if((V564)==Cnil){          if((V538)==Cnil){
2600          goto T898;}          goto T926;}
2601          if((V565)==Cnil){          if((V539)==Cnil){
2602          goto T898;}          goto T926;}
2603          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
2604          goto T898;          goto T926;
2605  T898:;  T926:;
2606          if(!(type_of((V562))==t_cons||((V562))==Cnil)){          if(!(type_of((V536))==t_cons||((V536))==Cnil)){
2607          goto T899;}          goto T927;}
2608          if(((V563))!=Cnil){          if(((V537))!=Cnil){
2609          goto T899;}          goto T927;}
2610          if(((V566))!=Cnil){          if(((V540))!=Cnil){
2611          goto T899;}          goto T927;}
2612          if(((V567))!=Cnil){          if(((V541))!=Cnil){
2613          goto T899;}          goto T927;}
2614          if(!(endp_prop((V562)))){          if(!(endp_prop((V536)))){
2615          goto T908;}          goto T936;}
2616          {object V570 = Cnil;          {object V544 = Cnil;
2617          VMR36(V570)}          VMR36(V544)}
2618          goto T908;          goto T936;
2619  T908:;  T936:;
2620          {register object V571;          {register object V545;
2621          V571= (V562);          V545= (V536);
2622          goto T912;          goto T940;
2623  T912:;  T940:;
2624          if(!(endp_prop(cdr((V571))))){          if(!(endp_prop(cdr((V545))))){
2625          goto T913;}          goto T941;}
2626          {object V572 = (V562);          {object V546 = (V536);
2627          VMR36(V572)}          VMR36(V546)}
2628          goto T913;          goto T941;
2629  T913:;  T941:;
2630          base[0]= car((V571));          base[0]= car((V545));
2631          base[1]= cdr((V571));          base[1]= cdr((V545));
2632          base[2]= VV[12];          base[2]= VV[12];
2633          base[3]= (V564);          base[3]= (V538);
2634          base[4]= VV[13];          base[4]= VV[13];
2635          base[5]= (V565);          base[5]= (V539);
2636          base[6]= VV[17];          base[6]= VV[17];
2637          base[7]= (V568);          base[7]= (V542);
2638          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
2639          (void) (*Lnk55)();          (void) (*Lnk55)();
2640          vs_top=sup;          vs_top=sup;
2641          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2642          goto T919;}          goto T947;}
2643          if(type_of((V571))!=t_cons)FEwrong_type_argument(Scons,(V571));          if(type_of((V545))!=t_cons)FEwrong_type_argument(Scons,(V545));
2644          ((V571))->c.c_car = cadr((V571));          ((V545))->c.c_car = cadr((V545));
2645          if(type_of((V571))!=t_cons)FEwrong_type_argument(Scons,(V571));          if(type_of((V545))!=t_cons)FEwrong_type_argument(Scons,(V545));
2646          ((V571))->c.c_cdr = cddr((V571));          ((V545))->c.c_cdr = cddr((V545));
2647          goto T917;          goto T945;
         goto T919;  
 T919:;  
         V571= cdr((V571));  
         goto T917;  
 T917:;  
         goto T912;}  
         goto T899;  
 T899:;  
         {register long V573;  
         if(((V566))==Cnil){  
         goto T935;}  
         V573= (long)(*(LnkLI36))((V566));  
         goto T933;  
         goto T935;  
 T935:;  
         V573= 0;  
         goto T933;  
 T933:;  
         {register long V574;  
         V574= (long)(*(LnkLI37))((V567),(V562));  
         if(!((V573)<=(V574))){  
         goto T939;}  
         goto T938;  
         goto T939;  
 T939:;  
         V575 = make_fixnum(V573);  
         V576 = make_fixnum(V574);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V575,V576)));  
         goto T938;  
 T938:;  
         if(((V563))!=Cnil){  
         goto T942;}  
         {long V577;  
         long V578;  
         V577= 0;  
         V578= V573;  
2648          goto T947;          goto T947;
2649  T947:;  T947:;
2650          if(!((V578)>=(V574))){          V545= cdr((V545));
2651          goto T948;}          goto T945;
2652          {object V579;  T945:;
2653          register long V580;          goto T940;}
2654          long V581;          goto T927;
2655          V582= (*(LnkLI49))((V562));  T927:;
2656          V583 = make_fixnum((long)(V569)-(V577));          {register long V547;
2657          V579= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V582,V583));          if(((V540))==Cnil){
2658          V580= 0;          goto T963;}
2659          V581= 0;          V547= (long)(*(LnkLI36))((V540));
         goto T955;  
 T955:;  
         if(!((V580)>=(V569))){  
         goto T956;}  
         {object V584 = (V579);  
         VMR36(V584)}  
         goto T956;  
 T956:;  
         {object V585;  
         if((V573)<=(V580)){  
         goto T962;}  
         V585= Cnil;  
         goto T961;  
         goto T962;  
 T962:;  
         if((V580)<(V574)){  
         goto T964;}  
         V585= Cnil;  
2660          goto T961;          goto T961;
2661          goto T964;          goto T963;
2662  T964:;  T963:;
2663          base[0]= elt((V562),V580);          V547= 0;
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V568));  
         vs_top=sup;  
         V586= vs_base[0];  
         V587 = make_fixnum((long)(1)+(V580));  
         V588 = make_fixnum(V574);  
         V585= (VFUN_NARGS=12,(*(LnkLI54))(V586,(V562),VV[12],(V564),VV[13],(V565),VV[14],V587,VV[15],V588,VV[17],(V568)));  
2664          goto T961;          goto T961;
2665  T961:;  T961:;
2666          if(((V585))==Cnil){          {register long V548;
2667          goto T969;}          V548= (long)(*(LnkLI37))((V541),(V536));
2668          goto T960;          if(!((V547)<=(V548))){
2669          goto T969;          goto T967;}
2670  T969:;          goto T966;
2671          V589= elt((V562),V580);          goto T967;
2672          (void)(elt_set((V579),V581,/* INLINE-ARGS */V589));  T967:;
2673          V581= (long)(1)+(V581);}          base[0]= make_fixnum(V547);
2674          goto T960;          base[1]= make_fixnum(V548);
2675  T960:;          vs_top=(vs_base=base+0)+2;
2676          V580= (long)(1)+(V580);          (void) (*Lnk33)();
2677          goto T955;}          vs_top=sup;
2678          goto T948;          goto T966;
2679  T948:;  T966:;
2680          base[0]= elt((V562),V578);          if(((V537))!=Cnil){
2681          vs_top=(vs_base=base+0)+1;          goto T972;}
2682          super_funcall_no_event((V568));          {long V549;
2683          vs_top=sup;          long V550;
2684          V590= vs_base[0];          V549= 0;
2685          V591 = make_fixnum((long)(1)+(V578));          V550= V547;
         V592 = make_fixnum(V574);  
         if(((VFUN_NARGS=12,(*(LnkLI54))(V590,(V562),VV[12],(V564),VV[13],(V565),VV[14],V591,VV[15],V592,VV[17],(V568))))==Cnil){  
         goto T977;}  
         V577= (long)(1)+(V577);  
2686          goto T977;          goto T977;
2687  T977:;  T977:;
2688          V578= (long)(1)+(V578);          if(!((V550)>=(V548))){
2689          goto T947;}          goto T978;}
2690          goto T942;          {object V551;
2691  T942:;          register long V552;
2692          {long V593;          long V553;
2693          long V594;          V554= (*(LnkLI49))((V536));
2694          V593= 0;          V555 = make_fixnum((long)(V543)-(V549));
2695          V594= (long)(-1)+(V574);          V551= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V554,V555));
2696          goto T989;          V552= 0;
2697  T989:;          V553= 0;
2698          if(!((V594)<(V573))){          goto T985;
2699          goto T990;}  T985:;
2700          {object V595;          if(!((V552)>=(V543))){
2701          register long V596;          goto T986;}
2702          long V597;          {object V556 = (V551);
2703          V598= (*(LnkLI49))((V562));          VMR36(V556)}
2704          V599 = make_fixnum((long)(V569)-(V593));          goto T986;
2705          V595= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V598,V599));  T986:;
2706          V596= (long)(-1)+(V569);          {object V557;
2707          V597= (long)((long)(-1)+(V569))-(V593);          if((V547)<=(V552)){
2708          goto T997;          goto T992;}
2709  T997:;          V557= Cnil;
2710          if(!((V596)<(0))){          goto T991;
2711          goto T998;}          goto T992;
2712          {object V600 = (V595);  T992:;
2713          VMR36(V600)}          if((V552)<(V548)){
2714          goto T998;          goto T994;}
2715  T998:;          V557= Cnil;
2716          {object V601;          goto T991;
2717          if((V573)<=(V596)){          goto T994;
2718          goto T1004;}  T994:;
2719          V601= Cnil;          base[0]= elt((V536),V552);
2720          goto T1003;          vs_top=(vs_base=base+0)+1;
2721          goto T1004;          super_funcall_no_event((V542));
2722  T1004:;          vs_top=sup;
2723          if((V596)<(V574)){          V558= vs_base[0];
2724          goto T1006;}          V559 = make_fixnum((long)(1)+(V552));
2725          V601= Cnil;          V560 = make_fixnum(V548);
2726          goto T1003;          V557= (VFUN_NARGS=12,(*(LnkLI54))(V558,(V536),VV[12],(V538),VV[13],(V539),VV[14],V559,VV[15],V560,VV[17],(V542)));
2727          goto T1006;          goto T991;
2728  T1006:;  T991:;
2729          base[0]= elt((V562),V596);          if(((V557))==Cnil){
2730          vs_top=(vs_base=base+0)+1;          goto T999;}
2731          super_funcall_no_event((V568));          goto T990;
2732          vs_top=sup;          goto T999;
2733          V602= vs_base[0];  T999:;
2734          V603 = make_fixnum(V573);          V561= elt((V536),V552);
2735          V604 = make_fixnum(V596);          (void)(elt_set((V551),V553,/* INLINE-ARGS */V561));
2736          V601= (VFUN_NARGS=14,(*(LnkLI54))(V602,(V562),VV[11],Ct,VV[12],(V564),VV[13],(V565),VV[14],V603,VV[15],V604,VV[17],(V568)));          V553= (long)(1)+(V553);}
         goto T1003;  
 T1003:;  
         if(((V601))==Cnil){  
         goto T1011;}  
         goto T1002;  
         goto T1011;  
 T1011:;  
         V605= elt((V562),V596);  
         (void)(elt_set((V595),V597,/* INLINE-ARGS */V605));  
         V597= (long)(-1)+(V597);}  
         goto T1002;  
 T1002:;  
         V596= (long)(-1)+(V596);  
         goto T997;}  
2737          goto T990;          goto T990;
2738  T990:;  T990:;
2739          base[0]= elt((V562),V594);          V552= (long)(1)+(V552);
2740          vs_top=(vs_base=base+0)+1;          goto T985;}
2741          super_funcall_no_event((V568));          goto T978;
2742          vs_top=sup;  T978:;
2743          V606= vs_base[0];          base[0]= elt((V536),V550);
2744          V607 = make_fixnum(V573);          vs_top=(vs_base=base+0)+1;
2745          V608 = make_fixnum(V594);          super_funcall_no_event((V542));
2746          if(((VFUN_NARGS=14,(*(LnkLI54))(V606,(V562),VV[11],Ct,VV[12],(V564),VV[13],(V565),VV[14],V607,VV[15],V608,VV[17],(V568))))==Cnil){          vs_top=sup;
2747          goto T1019;}          V562= vs_base[0];
2748          V593= (long)(1)+(V593);          V563 = make_fixnum((long)(1)+(V550));
2749            V564 = make_fixnum(V548);
2750            if(((VFUN_NARGS=12,(*(LnkLI54))(V562,(V536),VV[12],(V538),VV[13],(V539),VV[14],V563,VV[15],V564,VV[17],(V542))))==Cnil){
2751            goto T1007;}
2752            V549= (long)(1)+(V549);
2753            goto T1007;
2754    T1007:;
2755            V550= (long)(1)+(V550);
2756            goto T977;}
2757            goto T972;
2758    T972:;
2759            {long V565;
2760            long V566;
2761            V565= 0;
2762            V566= (long)(-1)+(V548);
2763          goto T1019;          goto T1019;
2764  T1019:;  T1019:;
2765          V594= (long)(-1)+(V594);          if(!((V566)<(V547))){
2766          goto T989;}}}}          goto T1020;}
2767            {object V567;
2768            register long V568;
2769            long V569;
2770            V570= (*(LnkLI49))((V536));
2771            V571 = make_fixnum((long)(V543)-(V565));
2772            V567= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V570,V571));
2773            V568= (long)(-1)+(V543);
2774            V569= (long)((long)(-1)+(V543))-(V565);
2775            goto T1027;
2776    T1027:;
2777            if(!((V568)<(0))){
2778            goto T1028;}
2779            {object V572 = (V567);
2780            VMR36(V572)}
2781            goto T1028;
2782    T1028:;
2783            {object V573;
2784            if((V547)<=(V568)){
2785            goto T1034;}
2786            V573= Cnil;
2787            goto T1033;
2788            goto T1034;
2789    T1034:;
2790            if((V568)<(V548)){
2791            goto T1036;}
2792            V573= Cnil;
2793            goto T1033;
2794            goto T1036;
2795    T1036:;
2796            base[0]= elt((V536),V568);
2797            vs_top=(vs_base=base+0)+1;
2798            super_funcall_no_event((V542));
2799            vs_top=sup;
2800            V574= vs_base[0];
2801            V575 = make_fixnum(V547);
2802            V576 = make_fixnum(V568);
2803            V573= (VFUN_NARGS=14,(*(LnkLI54))(V574,(V536),VV[11],Ct,VV[12],(V538),VV[13],(V539),VV[14],V575,VV[15],V576,VV[17],(V542)));
2804            goto T1033;
2805    T1033:;
2806            if(((V573))==Cnil){
2807            goto T1041;}
2808            goto T1032;
2809            goto T1041;
2810    T1041:;
2811            V577= elt((V536),V568);
2812            (void)(elt_set((V567),V569,/* INLINE-ARGS */V577));
2813            V569= (long)(-1)+(V569);}
2814            goto T1032;
2815    T1032:;
2816            V568= (long)(-1)+(V568);
2817            goto T1027;}
2818            goto T1020;
2819    T1020:;
2820            base[0]= elt((V536),V566);
2821            vs_top=(vs_base=base+0)+1;
2822            super_funcall_no_event((V542));
2823            vs_top=sup;
2824            V578= vs_base[0];
2825            V579 = make_fixnum(V547);
2826            V580 = make_fixnum(V566);
2827            if(((VFUN_NARGS=14,(*(LnkLI54))(V578,(V536),VV[11],Ct,VV[12],(V538),VV[13],(V539),VV[14],V579,VV[15],V580,VV[17],(V542))))==Cnil){
2828            goto T1049;}
2829            V565= (long)(1)+(V565);
2830            goto T1049;
2831    T1049:;
2832            V566= (long)(-1)+(V566);
2833            goto T1019;}}}}
2834          va_end(ap);          va_end(ap);
2835          base[0]=base[0];          base[0]=base[0];
2836          return Cnil;}          return Cnil;}
2837          }}          }}
2838  /*      local entry for function MISMATCH       */  /*      local entry for function MISMATCH       */
2839    
2840  static object LI37(object V610,object V609,object first,...)  static object LI37(object V582,object V581,object first,...)
2841  {        {      
2842          va_list ap;          va_list ap;
2843          int narg = VFUN_NARGS; VMB37 VMS37 VMV37          int narg = VFUN_NARGS; VMB37 VMS37 VMV37
2844          {object V611;          {object V583;
2845          object V612;          object V584;
2846          object V613;          object V585;
2847          object V614;          object V586;
2848          object V615;          object V587;
2849          register object V616;          register object V588;
2850          object V617;          object V589;
2851          object V618;          object V590;
2852          object V619;          object V591;
2853          object V620;          object V592;
2854          va_start(ap,first);          va_start(ap,first);
2855          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2856          V611= V610;          V583= V582;
2857          V612= V609;          V584= V581;
2858          narg= narg - 2;          narg= narg - 2;
2859          {          {
2860          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI37key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI37key,first,ap);
2861          V613=(Vcs[2]);          V585=(Vcs[2]);
2862          V614=(Vcs[3]);          V586=(Vcs[3]);
2863          V615=(Vcs[4]);          V587=(Vcs[4]);
2864          if(Vcs[5]==0){          if(Vcs[5]==0){
2865          V616= symbol_function(VV[35]);          V588= symbol_function(VV[35]);
2866          }else{          }else{
2867          V616=(Vcs[5]);}          V588=(Vcs[5]);}
2868          V617=(Vcs[6]);          V589=(Vcs[6]);
2869          V618=(Vcs[7]);          V590=(Vcs[7]);
2870          V619=(Vcs[8]);          V591=(Vcs[8]);
2871          V620=(Vcs[9]);          V592=(Vcs[9]);
2872          if((V614)==Cnil){          if((V586)==Cnil){
         goto T1029;}  
         if((V615)==Cnil){  
         goto T1029;}  
         (void)((*(LnkLI42))());  
         goto T1029;  
 T1029:;  
         {register long V621;  
         if(((V617))==Cnil){  
         goto T1032;}  
         V621= (long)(*(LnkLI36))((V617));  
         goto T1030;  
         goto T1032;  
 T1032:;  
         V621= 0;  
         goto T1030;  
 T1030:;  
         {register long V622;  
         V622= (long)(*(LnkLI37))((V619),(V611));  
         if(!((V621)<=(V622))){  
         goto T1036;}  
         goto T1035;  
         goto T1036;  
 T1036:;  
         V623 = make_fixnum(V621);  
         V624 = make_fixnum(V622);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V623,V624)));  
         goto T1035;  
 T1035:;  
         {register long V625;  
         if(((V618))==Cnil){  
         goto T1040;}  
         V625= (long)(*(LnkLI36))((V618));  
         goto T1038;  
         goto T1040;  
 T1040:;  
         V625= 0;  
         goto T1038;  
 T1038:;  
         {register long V626;  
         V626= (long)(*(LnkLI37))((V620),(V612));  
         if(!((V625)<=(V626))){  
         goto T1044;}  
         goto T1043;  
         goto T1044;  
 T1044:;  
         V627 = make_fixnum(V625);  
         V628 = make_fixnum(V626);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V627,V628)));  
         goto T1043;  
 T1043:;  
         if(((V613))!=Cnil){  
         goto T1047;}  
         {register long V629;  
         register long V630;  
         V629= V621;  
         V630= V625;  
         goto T1052;  
 T1052:;  
         if((V629)>=(V622)){  
         goto T1054;}  
         if(!((V630)>=(V626))){  
         goto T1053;}  
         goto T1054;  
 T1054:;  
         if(!((V629)>=(V622))){  
2873          goto T1059;}          goto T1059;}
2874          if(!((V630)>=(V626))){          if((V587)==Cnil){
2875          goto T1059;}          goto T1059;}
2876          {object V631 = Cnil;          (void)((*(LnkLI42))());
         VMR37(V631)}  
2877          goto T1059;          goto T1059;
2878  T1059:;  T1059:;
2879          {object V632 = make_fixnum(V629);          {register long V593;
2880          VMR37(V632)}          if(((V589))==Cnil){
2881          goto T1053;          goto T1062;}
2882  T1053:;          V593= (long)(*(LnkLI36))((V589));
2883          base[0]= elt((V611),V629);          goto T1060;
2884          vs_top=(vs_base=base+0)+1;          goto T1062;
2885          super_funcall_no_event((V616));  T1062:;
2886          vs_top=sup;          V593= 0;
2887          V633= vs_base[0];          goto T1060;
2888          base[0]= elt((V612),V630);  T1060:;
2889          vs_top=(vs_base=base+0)+1;          {register long V594;
2890          super_funcall_no_event((V616));          V594= (long)(*(LnkLI37))((V591),(V583));
2891          vs_top=sup;          if(!((V593)<=(V594))){
2892          V634= vs_base[0];          goto T1066;}
2893          if(((*(LnkLI43))((V614),(V615),V633,V634))!=Cnil){          goto T1065;
2894          goto T1064;}          goto T1066;
2895          {object V635 = make_fixnum(V629);  T1066:;
2896          VMR37(V635)}          base[0]= make_fixnum(V593);
2897          goto T1064;          base[1]= make_fixnum(V594);
2898  T1064:;          vs_top=(vs_base=base+0)+2;
2899          V629= (long)(1)+(V629);          (void) (*Lnk33)();
2900          V630= (long)(1)+(V630);          vs_top=sup;
2901          goto T1052;}          goto T1065;
2902          goto T1047;  T1065:;
2903  T1047:;          {register long V595;
2904          {register long V636;          if(((V590))==Cnil){
2905          register long V637;          goto T1072;}
2906          V636= (long)(-1)+(V622);          V595= (long)(*(LnkLI36))((V590));
2907          V637= (long)(-1)+(V626);          goto T1070;
2908          goto T1078;          goto T1072;
2909  T1078:;  T1072:;
2910          if((V636)<(V621)){          V595= 0;
2911          goto T1080;}          goto T1070;
2912          if(!((V637)<(V625))){  T1070:;
2913          goto T1079;}          {register long V596;
2914          goto T1080;          V596= (long)(*(LnkLI37))((V592),(V584));
2915  T1080:;          if(!((V595)<=(V596))){
2916          if(!((V636)<(V621))){          goto T1076;}
2917          goto T1085;}          goto T1075;
2918          if(!((V637)<(V625))){          goto T1076;
2919          goto T1085;}  T1076:;
2920          {object V638 = Cnil;          base[0]= make_fixnum(V595);
2921          VMR37(V638)}          base[1]= make_fixnum(V596);
2922          goto T1085;          vs_top=(vs_base=base+0)+2;
2923  T1085:;          (void) (*Lnk33)();
2924          {object V639 = make_fixnum((long)(1)+(V636));          vs_top=sup;
2925          VMR37(V639)}          goto T1075;
2926          goto T1079;  T1075:;
2927  T1079:;          if(((V585))!=Cnil){
2928          base[0]= elt((V611),V636);          goto T1081;}
2929          vs_top=(vs_base=base+0)+1;          {register long V597;
2930          super_funcall_no_event((V616));          register long V598;
2931          vs_top=sup;          V597= V593;
2932          V640= vs_base[0];          V598= V595;
2933          base[0]= elt((V612),V637);          goto T1086;
2934          vs_top=(vs_base=base+0)+1;  T1086:;
2935          super_funcall_no_event((V616));          if((V597)>=(V594)){
2936          vs_top=sup;          goto T1088;}
2937          V641= vs_base[0];          if(!((V598)>=(V596))){
2938          if(((*(LnkLI43))((V614),(V615),V640,V641))!=Cnil){          goto T1087;}
2939          goto T1090;}          goto T1088;
2940          {object V642 = make_fixnum((long)(1)+(V636));  T1088:;
2941          VMR37(V642)}          if(!((V597)>=(V594))){
2942          goto T1090;          goto T1093;}
2943  T1090:;          if(!((V598)>=(V596))){
2944          V636= (long)(-1)+(V636);          goto T1093;}
2945          V637= (long)(-1)+(V637);          {object V599 = Cnil;
2946          goto T1078;}}}}}          VMR37(V599)}
2947            goto T1093;
2948    T1093:;
2949            {object V600 = make_fixnum(V597);
2950            VMR37(V600)}
2951            goto T1087;
2952    T1087:;
2953            base[0]= elt((V583),V597);
2954            vs_top=(vs_base=base+0)+1;
2955            super_funcall_no_event((V588));
2956            vs_top=sup;
2957            V601= vs_base[0];
2958            base[0]= elt((V584),V598);
2959            vs_top=(vs_base=base+0)+1;
2960            super_funcall_no_event((V588));
2961            vs_top=sup;
2962            V602= vs_base[0];
2963            if(((*(LnkLI43))((V586),(V587),V601,V602))!=Cnil){
2964            goto T1098;}
2965            {object V603 = make_fixnum(V597);
2966            VMR37(V603)}
2967            goto T1098;
2968    T1098:;
2969            V597= (long)(1)+(V597);
2970            V598= (long)(1)+(V598);
2971            goto T1086;}
2972            goto T1081;
2973    T1081:;
2974            {register long V604;
2975            register long V605;
2976            V604= (long)(-1)+(V594);
2977            V605= (long)(-1)+(V596);
2978            goto T1112;
2979    T1112:;
2980            if((V604)<(V593)){
2981            goto T1114;}
2982            if(!((V605)<(V595))){
2983            goto T1113;}
2984            goto T1114;
2985    T1114:;
2986            if(!((V604)<(V593))){
2987            goto T1119;}
2988            if(!((V605)<(V595))){
2989            goto T1119;}
2990            {object V606 = Cnil;
2991            VMR37(V606)}
2992            goto T1119;
2993    T1119:;
2994            {object V607 = make_fixnum((long)(1)+(V604));
2995            VMR37(V607)}
2996            goto T1113;
2997    T1113:;
2998            base[0]= elt((V583),V604);
2999            vs_top=(vs_base=base+0)+1;
3000            super_funcall_no_event((V588));
3001            vs_top=sup;
3002            V608= vs_base[0];
3003            base[0]= elt((V584),V605);
3004            vs_top=(vs_base=base+0)+1;
3005            super_funcall_no_event((V588));
3006            vs_top=sup;
3007            V609= vs_base[0];
3008            if(((*(LnkLI43))((V586),(V587),V608,V609))!=Cnil){
3009            goto T1124;}
3010            {object V610 = make_fixnum((long)(1)+(V604));
3011            VMR37(V610)}
3012            goto T1124;
3013    T1124:;
3014            V604= (long)(-1)+(V604);
3015            V605= (long)(-1)+(V605);
3016            goto T1112;}}}}}
3017          va_end(ap);          va_end(ap);
3018          base[0]=base[0];          base[0]=base[0];
3019          return Cnil;}          return Cnil;}
3020          }}          }}
3021  /*      local entry for function SEARCH */  /*      local entry for function SEARCH */
3022    
3023  static object LI38(object V644,object V643,object first,...)  static object LI38(object V612,object V611,object first,...)
3024  {        {      
3025          va_list ap;          va_list ap;
3026          int narg = VFUN_NARGS; VMB38 VMS38 VMV38          int narg = VFUN_NARGS; VMB38 VMS38 VMV38
3027          {object V645;          {object V613;
3028          object V646;          object V614;
3029          object V647;          object V615;
3030          object V648;          object V616;
3031          object V649;          object V617;
3032          register object V650;          register object V618;
3033          object V651;          object V619;
3034          object V652;          object V620;
3035          object V653;          object V621;
3036          object V654;          object V622;
3037          va_start(ap,first);          va_start(ap,first);
3038          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3039          V645= V644;          V613= V612;
3040          V646= V643;          V614= V611;
3041          narg= narg - 2;          narg= narg - 2;
3042          {          {
3043          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI38key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI38key,first,ap);
3044          V647=(Vcs[2]);          V615=(Vcs[2]);
3045          V648=(Vcs[3]);          V616=(Vcs[3]);
3046          V649=(Vcs[4]);          V617=(Vcs[4]);
3047          if(Vcs[5]==0){          if(Vcs[5]==0){
3048          V650= symbol_function(VV[35]);          V618= symbol_function(VV[35]);
3049          }else{          }else{
3050          V650=(Vcs[5]);}          V618=(Vcs[5]);}
3051          V651=(Vcs[6]);          V619=(Vcs[6]);
3052          V652=(Vcs[7]);          V620=(Vcs[7]);
3053          V653=(Vcs[8]);          V621=(Vcs[8]);
3054          V654=(Vcs[9]);          V622=(Vcs[9]);
3055          if((V648)==Cnil){          if((V616)==Cnil){
3056          goto T1102;}          goto T1136;}
3057          if((V649)==Cnil){          if((V617)==Cnil){
3058          goto T1102;}          goto T1136;}
3059          (void)((*(LnkLI42))());          (void)((*(LnkLI42))());
3060          goto T1102;          goto T1136;
3061  T1102:;  T1136:;
3062          {long V655;          {long V623;
3063          if(((V651))==Cnil){          if(((V619))==Cnil){
3064          goto T1105;}          goto T1139;}
3065          V655= (long)(*(LnkLI36))((V651));          V623= (long)(*(LnkLI36))((V619));
3066          goto T1103;          goto T1137;
3067          goto T1105;          goto T1139;
3068  T1105:;  T1139:;
3069          V655= 0;          V623= 0;
         goto T1103;  
 T1103:;  
         {long V656;  
         V656= (long)(*(LnkLI37))((V653),(V645));  
         if(!((V655)<=(V656))){  
         goto T1109;}  
         goto T1108;  
         goto T1109;  
 T1109:;  
         V657 = make_fixnum(V655);  
         V658 = make_fixnum(V656);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V657,V658)));  
         goto T1108;  
 T1108:;  
         {register long V659;  
         if(((V652))==Cnil){  
         goto T1113;}  
         V659= (long)(*(LnkLI36))((V652));  
         goto T1111;  
         goto T1113;  
 T1113:;  
         V659= 0;  
         goto T1111;  
 T1111:;  
         {long V660;  
         V660= (long)(*(LnkLI37))((V654),(V646));  
         if(!((V659)<=(V660))){  
         goto T1117;}  
         goto T1116;  
         goto T1117;  
 T1117:;  
         V661 = make_fixnum(V659);  
         V662 = make_fixnum(V660);  
         (void)((VFUN_NARGS=2,(*(LnkLI33))(V661,V662)));  
         goto T1116;  
 T1116:;  
         if(((V647))!=Cnil){  
         goto T1120;}  
         goto T1123;  
 T1123:;  
         {register long V663;  
         register long V664;  
         V663= V655;  
         V664= V659;  
         goto T1129;  
 T1129:;  
         if(!((V663)>=(V656))){  
         goto T1130;}  
         {object V665 = make_fixnum(V659);  
         VMR38(V665)}  
         goto T1130;  
 T1130:;  
         if(!((V664)>=(V660))){  
         goto T1134;}  
         {object V666 = Cnil;  
         VMR38(V666)}  
         goto T1134;  
 T1134:;  
         base[0]= elt((V645),V663);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V650));  
         vs_top=sup;  
         V667= vs_base[0];  
         base[0]= elt((V646),V664);  
         vs_top=(vs_base=base+0)+1;  
         super_funcall_no_event((V650));  
         vs_top=sup;  
         V668= vs_base[0];  
         if(((*(LnkLI43))((V648),(V649),V667,V668))!=Cnil){  
         goto T1137;}  
         goto T1125;  
3070          goto T1137;          goto T1137;
3071  T1137:;  T1137:;
3072          V663= (long)(1)+(V663);          {long V624;
3073          V664= (long)(1)+(V664);          V624= (long)(*(LnkLI37))((V621),(V613));
3074          goto T1129;}          if(!((V623)<=(V624))){
3075          goto T1125;          goto T1143;}
3076  T1125:;          goto T1142;
3077          V659= (long)(1)+(V659);          goto T1143;
3078          goto T1123;  T1143:;
3079          goto T1120;          base[0]= make_fixnum(V623);
3080  T1120:;          base[1]= make_fixnum(V624);
3081          goto T1151;          vs_top=(vs_base=base+0)+2;
3082  T1151:;          (void) (*Lnk33)();
3083          {register long V669;          vs_top=sup;
3084          register long V670;          goto T1142;
3085          V669= (long)(-1)+(V656);  T1142:;
3086          V670= (long)(-1)+(V660);          {register long V625;
3087          goto T1157;          if(((V620))==Cnil){
3088  T1157:;          goto T1149;}
3089          if(!((V669)<(V655))){          V625= (long)(*(LnkLI36))((V620));
3090            goto T1147;
3091            goto T1149;
3092    T1149:;
3093            V625= 0;
3094            goto T1147;
3095    T1147:;
3096            {long V626;
3097            V626= (long)(*(LnkLI37))((V622),(V614));
3098            if(!((V625)<=(V626))){
3099            goto T1153;}
3100            goto T1152;
3101            goto T1153;
3102    T1153:;
3103            base[0]= make_fixnum(V625);
3104            base[1]= make_fixnum(V626);
3105            vs_top=(vs_base=base+0)+2;
3106            (void) (*Lnk33)();
3107            vs_top=sup;
3108            goto T1152;
3109    T1152:;
3110            if(((V615))!=Cnil){
3111          goto T1158;}          goto T1158;}
3112          {object V671 = make_fixnum((long)(1)+(V670));          goto T1161;
3113          VMR38(V671)}  T1161:;
3114            {register long V627;
3115            register long V628;
3116            V627= V623;
3117            V628= V625;
3118            goto T1167;
3119    T1167:;
3120            if(!((V627)>=(V624))){
3121            goto T1168;}
3122            {object V629 = make_fixnum(V625);
3123            VMR38(V629)}
3124            goto T1168;
3125    T1168:;
3126            if(!((V628)>=(V626))){
3127            goto T1172;}
3128            {object V630 = Cnil;
3129            VMR38(V630)}
3130            goto T1172;
3131    T1172:;
3132            base[0]= elt((V613),V627);
3133            vs_top=(vs_base=base+0)+1;
3134            super_funcall_no_event((V618));
3135            vs_top=sup;
3136            V631= vs_base[0];
3137            base[0]= elt((V614),V628);
3138            vs_top=(vs_base=base+0)+1;
3139            super_funcall_no_event((V618));
3140            vs_top=sup;
3141            V632= vs_base[0];
3142            if(((*(LnkLI43))((V616),(V617),V631,V632))!=Cnil){
3143            goto T1175;}
3144            goto T1163;
3145            goto T1175;
3146    T1175:;
3147            V627= (long)(1)+(V627);
3148            V628= (long)(1)+(V628);
3149            goto T1167;}
3150            goto T1163;
3151    T1163:;
3152            V625= (long)(1)+(V625);
3153            goto T1161;
3154          goto T1158;          goto T1158;
3155  T1158:;  T1158:;
3156          if(!((V670)<(V659))){          goto T1189;
3157          goto T1162;}  T1189:;
3158          {object V672 = Cnil;          {register long V633;
3159          VMR38(V672)}          register long V634;
3160          goto T1162;          V633= (long)(-1)+(V624);
3161  T1162:;          V634= (long)(-1)+(V626);
3162          base[0]= elt((V645),V669);          goto T1195;
3163          vs_top=(vs_base=base+0)+1;  T1195:;
3164          super_funcall_no_event((V650));          if(!((V633)<(V623))){
3165          vs_top=sup;          goto T1196;}
3166          V673= vs_base[0];          {object V635 = make_fixnum((long)(1)+(V634));
3167          base[0]= elt((V646),V670);          VMR38(V635)}
3168          vs_top=(vs_base=base+0)+1;          goto T1196;
3169          super_funcall_no_event((V650));  T1196:;
3170          vs_top=sup;          if(!((V634)<(V625))){
3171          V674= vs_base[0];          goto T1200;}
3172          if(((*(LnkLI43))((V648),(V649),V673,V674))!=Cnil){          {object V636 = Cnil;
3173          goto T1165;}          VMR38(V636)}
3174          goto T1153;          goto T1200;
3175          goto T1165;  T1200:;
3176  T1165:;          base[0]= elt((V613),V633);
3177          V669= (long)(-1)+(V669);          vs_top=(vs_base=base+0)+1;
3178          V670= (long)(-1)+(V670);          super_funcall_no_event((V618));
3179          goto T1157;}          vs_top=sup;
3180          goto T1153;          V637= vs_base[0];
3181  T1153:;          base[0]= elt((V614),V634);
3182          V660= (long)(-1)+(V660);          vs_top=(vs_base=base+0)+1;
3183          goto T1151;}}}}          super_funcall_no_event((V618));
3184            vs_top=sup;
3185            V638= vs_base[0];
3186            if(((*(LnkLI43))((V616),(V617),V637,V638))!=Cnil){
3187            goto T1203;}
3188            goto T1191;
3189            goto T1203;
3190    T1203:;
3191            V633= (long)(-1)+(V633);
3192            V634= (long)(-1)+(V634);
3193            goto T1195;}
3194            goto T1191;
3195    T1191:;
3196            V626= (long)(-1)+(V626);
3197            goto T1189;}}}}
3198          va_end(ap);          va_end(ap);
3199          base[0]=base[0];          base[0]=base[0];
3200          return Cnil;}          return Cnil;}
# Line 3157  static void L39() Line 3205  static void L39()
3205  {register object *base=vs_base;  {register object *base=vs_base;
3206          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
3207          vs_reserve(VM39);          vs_reserve(VM39);
3208          {register object V675;          {register object V639;
3209          object V676;          object V640;
3210          object V677;          object V641;
3211          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3212          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);
3213          V675=(base[0]);          V639=(base[0]);
3214          V676=(base[1]);          V640=(base[1]);
3215          vs_top=sup;          vs_top=sup;
3216          if(base[3]==Cnil){          if(base[3]==Cnil){
3217          V677= symbol_function(VV[35]);          V641= symbol_function(VV[35]);
3218          }else{          }else{
3219          V677=(base[2]);}          V641=(base[2]);}
3220          if(!(type_of((V675))==t_cons||((V675))==Cnil)){          if(!(type_of((V639))==t_cons||((V639))==Cnil)){
3221          goto T1180;}          goto T1218;}
3222          base[4]= (V675);          base[4]= (V639);
3223          base[5]= (V676);          base[5]= (V640);
3224          base[6]= (V677);          base[6]= (V641);
3225          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3226          (void) (*Lnk57)();          (void) (*Lnk57)();
3227          return;          return;
3228          goto T1180;          goto T1218;
3229  T1180:;  T1218:;
3230          base[4]= (*(LnkLI58))((V675),0,(long)length((V675)),(V676),(V677));          base[4]= (*(LnkLI58))((V639),0,(long)length((V639)),(V640),(V641));
3231          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3232          return;          return;
3233          }          }
# Line 3190  static void L40() Line 3238  static void L40()
3238  {register object *base=vs_base;  {register object *base=vs_base;
3239          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
3240          vs_reserve(VM40);          vs_reserve(VM40);
3241          {object V678;          {object V642;
3242          check_arg(3);          check_arg(3);
3243          V678=(base[0]);          V642=(base[0]);
3244          vs_top=sup;          vs_top=sup;
3245          goto TTL;          goto TTL;
3246  TTL:;  TTL:;
3247          base[3]= (V678);          base[3]= (V642);
3248          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3249          L41(base);          L41(base);
3250          return;          return;
# Line 3204  TTL:; Line 3252  TTL:;
3252  }  }
3253  /*      local entry for function QUICK-SORT     */  /*      local entry for function QUICK-SORT     */
3254    
3255  static object LI42(V684,V685,V686,V687,V688)  static object LI42(V648,V649,V650,V651,V652)
3256    
3257  register object V684;long V685;long V686;register object V687;register object V688;  register object V648;long V649;long V650;register object V651;register object V652;
3258  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
3259          goto TTL;          goto TTL;
3260  TTL:;  TTL:;
3261          if(!((V686)<=((long)(1)+(V685)))){          if(!((V650)<=((long)(1)+(V649)))){
3262          goto T1187;}          goto T1225;}
3263          {object V689 = (V684);          {object V653 = (V648);
3264          VMR41(V689)}          VMR41(V653)}
3265          goto T1187;          goto T1225;
3266  T1187:;  T1225:;
3267          {register long V690;          {register long V654;
3268          register long V691;          register long V655;
3269          object V692;          object V656;
3270          register object V693;          register object V657;
3271          V690= V685;          V654= V649;
3272          V691= V686;          V655= V650;
3273          V692= elt((V684),V685);          V656= elt((V648),V649);
3274          V693= (          V657= (
3275          (type_of((V688)) == t_sfun ?(*(((V688))->sfn.sfn_self)):          (type_of((V652)) == t_sfun ?(*(((V652))->sfn.sfn_self)):
3276          (fcall.fun=((V688)),fcall.argd=1,fcalln))((V692)));          (fcall.fun=((V652)),fcall.argd=1,fcalln))((V656)));
3277          goto T1195;          goto T1233;
3278  T1195:;  T1233:;
3279          goto T1199;          goto T1237;
3280  T1199:;  T1237:;
3281          V691= (long)(-1)+(V691);          V655= (long)(-1)+(V655);
3282          if((V690)<(V691)){          if((V654)<(V655)){
3283          goto T1203;}          goto T1241;}
3284          goto T1193;          goto T1231;
3285          goto T1203;          goto T1241;
3286  T1203:;  T1241:;
3287          base[3]= elt((V684),V691);          base[3]= elt((V648),V655);
3288          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3289          super_funcall_no_event((V688));          super_funcall_no_event((V652));
3290          vs_top=sup;          vs_top=sup;
3291          base[2]= vs_base[0];          base[2]= vs_base[0];
3292          base[3]= (V693);          base[3]= (V657);
3293          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3294          super_funcall_no_event((V687));          super_funcall_no_event((V651));
3295          vs_top=sup;          vs_top=sup;
3296          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3297          goto T1200;}          goto T1238;}
3298          goto T1197;          goto T1235;
3299          goto T1200;          goto T1238;
3300  T1200:;  T1238:;
3301          goto T1199;          goto T1237;
3302          goto T1197;          goto T1235;
3303  T1197:;  T1235:;
3304          goto T1214;          goto T1252;
3305  T1214:;  T1252:;
3306          V690= (long)(1)+(V690);          V654= (long)(1)+(V654);
3307          if((V690)<(V691)){          if((V654)<(V655)){
3308          goto T1218;}          goto T1256;}
3309          goto T1193;          goto T1231;
3310          goto T1218;          goto T1256;
3311  T1218:;  T1256:;
3312          base[3]= elt((V684),V690);          base[3]= elt((V648),V654);
3313          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3314          super_funcall_no_event((V688));          super_funcall_no_event((V652));
3315          vs_top=sup;          vs_top=sup;
3316          base[2]= vs_base[0];          base[2]= vs_base[0];
3317          base[3]= (V693);          base[3]= (V657);
3318          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3319          super_funcall_no_event((V687));          super_funcall_no_event((V651));
3320          vs_top=sup;          vs_top=sup;
3321          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3322          goto T1215;}          goto T1253;}
3323          goto T1212;          goto T1250;
3324          goto T1215;          goto T1253;
3325  T1215:;  T1253:;
3326          goto T1214;          goto T1252;
3327          goto T1212;          goto T1250;
3328  T1212:;  T1250:;
3329          {object V694;          {object V658;
3330          V694= elt((V684),V690);          V658= elt((V648),V654);
3331          V695= elt((V684),V691);          V659= elt((V648),V655);
3332          (void)(elt_set((V684),V690,/* INLINE-ARGS */V695));          (void)(elt_set((V648),V654,/* INLINE-ARGS */V659));
3333          (void)(elt_set((V684),V691,(V694)));}          (void)(elt_set((V648),V655,(V658)));}
3334          goto T1195;          goto T1233;
3335          goto T1193;          goto T1231;
3336  T1193:;  T1231:;
3337          V696= elt((V684),V690);          V660= elt((V648),V654);
3338          (void)(elt_set((V684),V685,/* INLINE-ARGS */V696));          (void)(elt_set((V648),V649,/* INLINE-ARGS */V660));
3339          (void)(elt_set((V684),V690,(V692)));          (void)(elt_set((V648),V654,(V656)));
3340          (void)((*(LnkLI58))((V684),V685,V690,(V687),(V688)));          (void)((*(LnkLI58))((V648),V649,V654,(V651),(V652)));
3341          V685= (long)(1)+(V690);          V649= (long)(1)+(V654);
3342          goto TTL;}          goto TTL;}
3343          base[0]=base[0];          base[0]=base[0];
3344          return Cnil;          return Cnil;
# Line 3301  static void L43() Line 3349  static void L43()
3349  {register object *base=vs_base;  {register object *base=vs_base;
3350          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
3351          vs_reserve(VM42);          vs_reserve(VM42);
3352          {register object V697;          {register object V661;
3353          object V698;          object V662;
3354          object V699;          object V663;
3355          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3356          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);          parse_key(vs_base+2,FALSE,FALSE,1,VV[17]);
3357          V697=(base[0]);          V661=(base[0]);
3358          V698=(base[1]);          V662=(base[1]);
3359          vs_top=sup;          vs_top=sup;
3360          if(base[3]==Cnil){          if(base[3]==Cnil){
3361          V699= symbol_function(VV[35]);          V663= symbol_function(VV[35]);
3362          }else{          }else{
3363          V699=(base[2]);}          V663=(base[2]);}
3364          if(!(type_of((V697))==t_cons||((V697))==Cnil)){          if(!(type_of((V661))==t_cons||((V661))==Cnil)){
3365          goto T1241;}          goto T1279;}
3366          base[4]= (V697);          base[4]= (V661);
3367          base[5]= (V698);          base[5]= (V662);
3368          base[6]= (V699);          base[6]= (V663);
3369          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3370          (void) (*Lnk57)();          (void) (*Lnk57)();
3371          return;          return;
3372          goto T1241;          goto T1279;
3373  T1241:;  T1279:;
3374          if(type_of((V697))==t_string){          if(type_of((V661))==t_string){
3375          goto T1246;}          goto T1284;}
3376          if(!((type_of((V697))==t_bitvector))){          if(!((type_of((V661))==t_bitvector))){
3377          goto T1247;}          goto T1285;}
3378          goto T1246;          goto T1284;
3379  T1246:;  T1284:;
3380          base[4]= (V697);          base[4]= (V661);
3381          base[5]= (V698);          base[5]= (V662);
3382          base[6]= VV[17];          base[6]= VV[17];
3383          base[7]= (V699);          base[7]= (V663);
3384          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3385          (void) (*Lnk59)();          (void) (*Lnk59)();
3386          return;          return;
3387          goto T1247;          goto T1285;
3388  T1247:;  T1285:;
3389          base[4]= (*(LnkLI60))((V697),VV[0]);          base[4]= (*(LnkLI60))((V661),VV[0]);
3390          base[5]= (V698);          base[5]= (V662);
3391          base[6]= (V699);          base[6]= (V663);
3392          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3393          (void) (*Lnk57)();          (void) (*Lnk57)();
3394          vs_top=sup;          vs_top=sup;
3395          V700= vs_base[0];          V664= vs_base[0];
3396          V701= (*(LnkLI49))((V697));          V665= (*(LnkLI49))((V661));
3397          base[4]= (*(LnkLI60))(V700,/* INLINE-ARGS */V701);          base[4]= (*(LnkLI60))(V664,/* INLINE-ARGS */V665);
3398          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3399          return;          return;
3400          }          }
3401  }  }
3402  /*      local entry for function MERGE  */  /*      local entry for function MERGE  */
3403    
3404  static object LI44(object V705,object V704,object V703,object V702,object first,...)  static object LI44(object V669,object V668,object V667,object V666,object first,...)
3405  {        {      
3406          va_list ap;          va_list ap;
3407          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
3408          {object V706;          {object V670;
3409          register object V707;          register object V671;
3410          object V708;          object V672;
3411          object V709;          object V673;
3412          register object V710;          register object V674;
3413          va_start(ap,first);          va_start(ap,first);
3414          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
3415          V706= V705;          V670= V669;
3416          V707= V704;          V671= V668;
3417          V708= V703;          V672= V667;
3418          V709= V702;          V673= V666;
3419          narg= narg - 4;          narg= narg - 4;
3420          {          {
3421          parse_key_new_new(narg,Vcs +4,(struct key *)(void *)&LI44key,first,ap);          parse_key_new_new(narg,Vcs +4,(struct key *)(void *)&LI44key,first,ap);
3422          if(Vcs[4]==0){          if(Vcs[4]==0){
3423          V710= symbol_function(VV[35]);          V674= symbol_function(VV[35]);
3424          }else{          }else{
3425          V710=(Vcs[4]);}          V674=(Vcs[4]);}
3426          {long V711;          {long V675;
3427          long V712;          long V676;
3428          V711= (long)length((V707));          V675= (long)length((V671));
3429          V712= (long)length((V708));          V676= (long)length((V672));
3430          if(!(equal((V710),Cnil))){          if(!(equal((V674),Cnil))){
3431          goto T1262;}          goto T1300;}
3432          V710= symbol_function(VV[35]);          V674= symbol_function(VV[35]);
3433          goto T1262;          goto T1300;
3434  T1262:;  T1300:;
3435          {register object V713;          {register object V677;
3436          register long V714;          register long V678;
3437          register long V715;          register long V679;
3438          register long V716;          register long V680;
3439          V717 = make_fixnum((long)(V711)+(V712));          V681 = make_fixnum((long)(V675)+(V676));
3440          V713= (VFUN_NARGS=2,(*(LnkLI48))((V706),V717));          V677= (VFUN_NARGS=2,(*(LnkLI48))((V670),V681));
3441          V714= 0;          V678= 0;
3442          V715= 0;          V679= 0;
3443          V716= 0;          V680= 0;
3444          goto T1271;          goto T1309;
3445  T1271:;  T1309:;
3446          if(!((V715)==(V711))){          if(!((V679)==(V675))){
3447          goto T1272;}          goto T1310;}
3448          if(!((V716)==(V712))){          if(!((V680)==(V676))){
3449          goto T1272;}          goto T1310;}
3450          {object V718 = (V713);          {object V682 = (V677);
3451          VMR43(V718)}          VMR43(V682)}
3452          goto T1272;          goto T1310;
3453  T1272:;  T1310:;
3454          if(!((V715)<(V711))){          if(!((V679)<(V675))){
3455          goto T1280;}          goto T1318;}
3456          if(!((V716)<(V712))){          if(!((V680)<(V676))){
3457          goto T1280;}          goto T1318;}
3458          base[1]= elt((V707),V715);          base[1]= elt((V671),V679);
3459          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3460          super_funcall_no_event((V710));          super_funcall_no_event((V674));
3461          vs_top=sup;          vs_top=sup;
3462          base[0]= vs_base[0];          base[0]= vs_base[0];
3463          base[2]= elt((V708),V716);          base[2]= elt((V672),V680);
3464          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3465          super_funcall_no_event((V710));          super_funcall_no_event((V674));
3466          vs_top=sup;          vs_top=sup;
3467          base[1]= vs_base[0];          base[1]= vs_base[0];
3468          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3469          super_funcall_no_event((V709));          super_funcall_no_event((V673));
3470          vs_top=sup;          vs_top=sup;
3471          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3472          goto T1285;}          goto T1323;}
3473          V719= elt((V707),V715);          V683= elt((V671),V679);
3474          (void)(elt_set((V713),V714,/* INLINE-ARGS */V719));          (void)(elt_set((V677),V678,/* INLINE-ARGS */V683));
3475          V715= (long)(1)+(V715);          V679= (long)(1)+(V679);
3476          goto T1278;          goto T1316;
3477          goto T1285;          goto T1323;
3478  T1285:;  T1323:;
3479          base[1]= elt((V708),V716);          base[1]= elt((V672),V680);
3480          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3481          super_funcall_no_event((V710));          super_funcall_no_event((V674));
3482          vs_top=sup;          vs_top=sup;
3483          base[0]= vs_base[0];          base[0]= vs_base[0];
3484          base[2]= elt((V707),V715);          base[2]= elt((V671),V679);
3485          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3486          super_funcall_no_event((V710));          super_funcall_no_event((V674));
3487          vs_top=sup;          vs_top=sup;
3488          base[1]= vs_base[0];          base[1]= vs_base[0];
3489          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3490          super_funcall_no_event((V709));          super_funcall_no_event((V673));
3491          vs_top=sup;          vs_top=sup;
3492          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3493          goto T1294;}          goto T1332;}
3494          V720= elt((V708),V716);          V684= elt((V672),V680);
3495          (void)(elt_set((V713),V714,/* INLINE-ARGS */V720));          (void)(elt_set((V677),V678,/* INLINE-ARGS */V684));
3496          V716= (long)(1)+(V716);          V680= (long)(1)+(V680);
3497          goto T1278;          goto T1316;
3498          goto T1294;          goto T1332;
3499  T1294:;  T1332:;
3500          V721= elt((V707),V715);          V685= elt((V671),V679);
3501          (void)(elt_set((V713),V714,/* INLINE-ARGS */V721));          (void)(elt_set((V677),V678,/* INLINE-ARGS */V685));
3502          V715= (long)(1)+(V715);          V679= (long)(1)+(V679);
3503          goto T1278;          goto T1316;
3504          goto T1280;          goto T1318;
3505  T1280:;  T1318:;
3506          if(!((V715)<(V711))){          if(!((V679)<(V675))){
3507          goto T1305;}          goto T1343;}
3508          V722= elt((V707),V715);          V686= elt((V671),V679);
3509          (void)(elt_set((V713),V714,/* INLINE-ARGS */V722));          (void)(elt_set((V677),V678,/* INLINE-ARGS */V686));
3510          V715= (long)(1)+(V715);          V679= (long)(1)+(V679);
3511          goto T1278;          goto T1316;
3512          goto T1305;          goto T1343;
3513  T1305:;  T1343:;
3514          V723= elt((V708),V716);          V687= elt((V672),V680);
3515          (void)(elt_set((V713),V714,/* INLINE-ARGS */V723));          (void)(elt_set((V677),V678,/* INLINE-ARGS */V687));
3516          V716= (long)(1)+(V716);          V680= (long)(1)+(V680);
3517          goto T1278;          goto T1316;
3518  T1278:;  T1316:;
3519          V714= (long)(1)+(V714);          V678= (long)(1)+(V678);
3520          goto T1271;}}          goto T1309;}}
3521          va_end(ap);          va_end(ap);
3522          base[0]=base[0];          base[0]=base[0];
3523          return Cnil;}          return Cnil;}
3524          }}          }}
3525  /*      function definition for MAP-INTO        */  /*      local entry for function MAP-INTO       */
3526    
3527  static void L45()  static object LI45(object V689,object V688,object first,...)
3528  {register object *base=vs_base;  {      
3529          register object *sup=base+VM44; VC44          va_list ap;
3530          vs_reserve(VM44);          int narg = VFUN_NARGS; VMB44 VMS44 VMV44
3531          {register object V724;          {register object V690;
3532          register object V725;          register object V691;
3533          register object V726;          register object V692;
3534          if(vs_top-vs_base<2) too_few_arguments();          va_start(ap,first);
3535          V724=(base[0]);          if(narg <2) too_few_arguments();
3536          V725=(base[1]);          V690= V689;
3537          vs_base=vs_base+2;          V691= V688;
3538          vs_top[0]=Cnil;          narg= narg - 2;
3539          {object *p=vs_top;          V693 = list_vector_new(narg,first,ap);
3540           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}          V692= V693;
3541          V726=(base[2]);          {object V694;
3542          vs_top=sup;          base[2]= (V690);
3543          {object V727;          vs_top=(vs_base=base+2)+1;
         base[5]= (V724);  
         vs_top=(vs_base=base+5)+1;  
3544          Ltype_of();          Ltype_of();
3545          vs_top=sup;          vs_top=sup;
3546          base[4]= vs_base[0];          base[1]= vs_base[0];
3547          base[5]= VV[18];          base[2]= VV[18];
3548          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+1)+2;
3549          (void) (*Lnk61)();          (void) (*Lnk61)();
3550          vs_top=sup;          vs_top=sup;
3551          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3552          goto T1317;}          goto T1355;}
3553          base[4]= (V724);          base[1]= (V690);
3554          base[5]= small_fixnum(0);          base[2]= small_fixnum(0);
3555          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+1)+2;
3556          Larray_dimension();          Larray_dimension();
3557          vs_top=sup;          vs_top=sup;
3558          base[3]= vs_base[0];          base[0]= vs_base[0];
3559          goto T1315;          goto T1353;
3560          goto T1317;          goto T1355;
3561  T1317:;  T1355:;
3562          base[3]= make_fixnum((long)length((V724)));          base[0]= make_fixnum((long)length((V690)));
3563          goto T1315;          goto T1353;
3564  T1315:;  T1353:;
3565          {object V728;          {object V695;
3566          {object V729;          {object V696;
3567          object V730= (V726);          object V697= (V692);
3568          if(endp(V730)){          if(endp(V697)){
3569          V728= Cnil;          V695= Cnil;
3570          goto T1324;}          goto T1362;}
3571          base[4]=V729=MMcons(Cnil,Cnil);          base[1]=V696=MMcons(Cnil,Cnil);
3572          goto T1325;          goto T1363;
3573  T1325:;  T1363:;
3574          base[5]= (V730->c.c_car);          base[2]= (V697->c.c_car);
3575          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+2)+1;
3576          Llength();          Llength();
3577          vs_top=sup;          vs_top=sup;
3578          (V729->c.c_car)= vs_base[0];          (V696->c.c_car)= vs_base[0];
3579          V730=MMcdr(V730);          V697=MMcdr(V697);
3580          if(endp(V730)){          if(endp(V697)){
3581          V728= base[4];          V695= base[1];
3582          goto T1324;}          goto T1362;}
3583          V729=MMcdr(V729)=MMcons(Cnil,Cnil);          V696=MMcdr(V696)=MMcons(Cnil,Cnil);
3584          goto T1325;}          goto T1363;}
3585          goto T1324;          goto T1362;
3586  T1324:;  T1362:;
3587           vs_top=base+4;           vs_top=base+1;
3588           while(!endp(V728))           while(!endp(V695))
3589           {vs_push(car(V728));V728=cdr(V728);}           {vs_push(car(V695));V695=cdr(V695);}
3590          vs_base=base+3;}          vs_base=base+0;}
3591          Lmin();          Lmin();
3592          vs_top=sup;          vs_top=sup;
3593          V727= vs_base[0];          V694= vs_base[0];
3594          base[4]= (V724);          base[1]= (V690);
3595          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+1)+1;
3596          Ltype_of();          Ltype_of();
3597          vs_top=sup;          vs_top=sup;
3598          base[3]= vs_base[0];          base[0]= vs_base[0];
3599          base[4]= VV[18];          base[1]= VV[18];
3600          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
3601          (void) (*Lnk61)();          (void) (*Lnk61)();
3602          vs_top=sup;          vs_top=sup;
3603          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3604          goto T1328;}          goto T1366;}
3605          base[3]= (V724);          base[0]= (V690);
3606          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+0)+1;
3607          (void) (*Lnk62)();          (void) (*Lnk62)();
3608          vs_top=sup;          vs_top=sup;
3609          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3610          goto T1328;}          goto T1366;}
3611          base[3]= (V724);          base[0]= (V690);
3612          base[4]= (V727);          base[1]= (V694);
3613          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
3614          siLfill_pointer_set();          siLfill_pointer_set();
3615          vs_top=sup;          vs_top=sup;
3616          goto T1328;          goto T1366;
3617  T1328:;  T1366:;
3618          {register object V731;          {register object V698;
3619          register object V732;          register object V699;
3620          V731= (V727);          V698= (V694);
3621          V732= small_fixnum(0);          V699= small_fixnum(0);
3622          goto T1342;          goto T1380;
3623  T1342:;  T1380:;
3624          if(!(number_compare((V732),(V731))>=0)){          if(!(number_compare((V699),(V698))>=0)){
3625          goto T1343;}          goto T1381;}
3626          base[3]= (V724);          {object V700 = (V690);
3627          vs_top=(vs_base=base+3)+1;          VMR44(V700)}
3628          return;          goto T1381;
3629          goto T1343;  T1381:;
3630  T1343:;          base[0]= (V691);
3631          base[3]= (V725);          {object V702;
3632          {object V734;          {object V703;
3633          {object V735;          object V704= (V692);
3634          object V736= (V726);          if(endp(V704)){
3635          if(endp(V736)){          V702= Cnil;
3636          V734= Cnil;          goto T1388;}
3637          goto T1350;}          base[1]=V703=MMcons(Cnil,Cnil);
3638          base[4]=V735=MMcons(Cnil,Cnil);          goto T1389;
3639          goto T1351;  T1389:;
3640  T1351:;          {register object V705;
3641          {register object V737;          V705= (V704->c.c_car);
3642          V737= (V736->c.c_car);          (V703->c.c_car)= elt((V705),fixint((V699)));}
3643          (V735->c.c_car)= elt((V737),fixint((V732)));}          V704=MMcdr(V704);
3644          V736=MMcdr(V736);          if(endp(V704)){
3645          if(endp(V736)){          V702= base[1];
3646          V734= base[4];          goto T1388;}
3647          goto T1350;}          V703=MMcdr(V703)=MMcons(Cnil,Cnil);
3648          V735=MMcdr(V735)=MMcons(Cnil,Cnil);          goto T1389;}
3649          goto T1351;}          goto T1388;
3650          goto T1350;  T1388:;
3651  T1350:;           vs_top=base+1;
3652           vs_top=base+4;           while(!endp(V702))
3653           while(!endp(V734))           {vs_push(car(V702));V702=cdr(V702);}
3654           {vs_push(car(V734));V734=cdr(V734);}          vs_base=base+1;}
3655          vs_base=base+4;}          super_funcall_no_event(base[0]);
3656          super_funcall_no_event(base[3]);          vs_top=sup;
3657          vs_top=sup;          V701= vs_base[0];
3658          V733= vs_base[0];          (void)(elt_set((V690),fixint((V699)),V701));
3659          (void)(elt_set((V724),fixint((V732)),V733));          V699= one_plus((V699));
3660          V732= one_plus((V732));          goto T1380;}}
3661          goto T1342;}}          va_end(ap);
3662            base[0]=base[0];
3663            return Cnil;}
3664          }          }
 }  
3665  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */
3666    
3667  static void L46()  static void L46()
# Line 3623  static void L46() Line 3670  static void L46()
3670          vs_reserve(VM45);          vs_reserve(VM45);
3671          check_arg(2);          check_arg(2);
3672          vs_top=sup;          vs_top=sup;
3673          {object V738=base[0]->c.c_cdr;          {object V706=base[0]->c.c_cdr;
3674          if(endp(V738))invalid_macro_call();          if(endp(V706))invalid_macro_call();
3675          {object V739= (V738->c.c_car);          {object V707= (V706->c.c_car);
3676          if(endp(V739))invalid_macro_call();          if(endp(V707))invalid_macro_call();
3677          base[2]= (V739->c.c_car);          base[2]= (V707->c.c_car);
3678          V739=V739->c.c_cdr;          V707=V707->c.c_cdr;
3679          if(endp(V739))invalid_macro_call();          if(endp(V707))invalid_macro_call();
3680          base[3]= (V739->c.c_car);          base[3]= (V707->c.c_car);
3681          V739=V739->c.c_cdr;          V707=V707->c.c_cdr;
3682          if(!endp(V739))invalid_macro_call();}          if(!endp(V707))invalid_macro_call();}
3683          V738=V738->c.c_cdr;          V706=V706->c.c_cdr;
3684          base[4]= V738;}          base[4]= V706;}
3685          {object V740;          {object V708;
3686          object V741;          object V709;
3687          vs_base=vs_top;          vs_base=vs_top;
3688          Lgensym();          Lgensym();
3689          vs_top=sup;          vs_top=sup;
3690          V740= vs_base[0];          V708= vs_base[0];
3691          base[5]= VV[19];          base[5]= VV[19];
3692          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3693          Lgensym();          Lgensym();
3694          vs_top=sup;          vs_top=sup;
3695          V741= vs_base[0];          V709= vs_base[0];
3696          V742= list(2,(V740),base[3]);          V710= list(2,(V708),base[3]);
3697          V743= list(2,/* INLINE-ARGS */V742,list(2,(V741),small_fixnum(0)));          V711= list(2,/* INLINE-ARGS */V710,list(2,(V709),small_fixnum(0)));
3698          V744= list(2,VV[25],(V740));          V712= list(2,VV[25],(V708));
3699          V745= list(4,VV[0],VV[24],/* INLINE-ARGS */V744,list(2,VV[25],(V741)));          V713= list(4,VV[0],VV[24],/* INLINE-ARGS */V712,list(2,VV[25],(V709)));
3700          V746= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V745,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V741)),VV[29]),VV[30]),VV[31])));          V714= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V713,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V709)),VV[29]),VV[30]),VV[31])));
3701          base[5]= list(3,VV[20],/* INLINE-ARGS */V743,listA(3,VV[21],make_cons(/* INLINE-ARGS */V746,Cnil),base[4]));          base[5]= list(3,VV[20],/* INLINE-ARGS */V711,listA(3,VV[21],make_cons(/* INLINE-ARGS */V714,Cnil),base[4]));
3702          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3703          return;}          return;}
3704  }  }
# Line 3662  register object *base0; Line 3709  register object *base0;
3709  {       register object *base=vs_base;  {       register object *base=vs_base;
3710          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3711          vs_reserve(VM46);          vs_reserve(VM46);
3712          {object V747;          {object V715;
3713          check_arg(1);          check_arg(1);
3714          V747=(base[0]);          V715=(base[0]);
3715          vs_top=sup;          vs_top=sup;
3716          goto TTL;          goto TTL;
3717  TTL:;  TTL:;
3718          {long V748;          {long V716;
3719          register object V749;          register object V717;
3720          register object V750;          register object V718;
3721          object V751;          object V719;
3722          register object V752;          register object V720;
3723          register object V753;          register object V721;
3724          register object V754;          register object V722;
3725          V748= 0;          V716= 0;
3726          V749= Cnil;          V717= Cnil;
3727          V750= Cnil;          V718= Cnil;
3728          V751= Cnil;          V719= Cnil;
3729          V752= Cnil;          V720= Cnil;
3730          V753= Cnil;          V721= Cnil;
3731          V754= Cnil;          V722= Cnil;
3732          V748= (long)length((V747));          V716= (long)length((V715));
3733          if(!((V748)<(2))){          if(!((V716)<(2))){
3734          goto T1368;}          goto T1406;}
3735          base[1]= (V747);          base[1]= (V715);
3736          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3737          return;          return;
3738          goto T1368;          goto T1406;
3739  T1368:;  T1406:;
3740          if(!((V748)==(2))){          if(!((V716)==(2))){
3741          goto T1366;}          goto T1404;}
3742          V753= (          V721= (
3743          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3744          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V747))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V715))));
3745          V754= (          V722= (
3746          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3747          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V747))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V715))));
3748          base[1]= (V753);          base[1]= (V721);
3749          base[2]= (V754);          base[2]= (V722);
3750          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3751          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3752          vs_top=sup;          vs_top=sup;
3753          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3754          goto T1377;}          goto T1415;}
3755          base[1]= (V747);          base[1]= (V715);
3756          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3757          return;          return;
3758          goto T1377;          goto T1415;
3759  T1377:;  T1415:;
3760          base[1]= (V754);          base[1]= (V722);
3761          base[2]= (V753);          base[2]= (V721);
3762          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3763          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3764          vs_top=sup;          vs_top=sup;
3765          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3766          goto T1382;}          goto T1420;}
3767          base[1]= nreverse((V747));          base[1]= nreverse((V715));
3768          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3769          return;          return;
3770          goto T1382;          goto T1420;
3771  T1382:;  T1420:;
3772          base[1]= (V747);          base[1]= (V715);
3773          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3774          return;          return;
3775          goto T1366;          goto T1404;
3776  T1366:;  T1404:;
3777          V748= (long)(V748>=0&&(2)>0?(V748)/(2):ifloor(V748,2));          V716= (long)(V716>=0&&(2)>0?(V716)/(2):ifloor(V716,2));
3778          {long V755;          {long V723;
3779          register object V756;          register object V724;
3780          V755= 1;          V723= 1;
3781          V756= (V747);          V724= (V715);
3782          goto T1391;          goto T1429;
3783  T1391:;  T1429:;
3784          if(!((V755)>=(V748))){          if(!((V723)>=(V716))){
3785          goto T1392;}          goto T1430;}
3786          V749= (V747);          V717= (V715);
3787          V750= cdr((V756));          V718= cdr((V724));
3788          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));          if(type_of((V724))!=t_cons)FEwrong_type_argument(Scons,(V724));
3789          ((V756))->c.c_cdr = Cnil;          ((V724))->c.c_cdr = Cnil;
3790          goto T1388;          goto T1426;
3791          goto T1392;          goto T1430;
3792  T1392:;  T1430:;
3793          V755= (long)(1)+(V755);          V723= (long)(1)+(V723);
3794          V756= cdr((V756));          V724= cdr((V724));
3795          goto T1391;}          goto T1429;}
3796          goto T1388;          goto T1426;
3797  T1388:;  T1426:;
3798          base[1]= (V749);          base[1]= (V717);
3799          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3800          L41(base0);          L41(base0);
3801          vs_top=sup;          vs_top=sup;
3802          V749= vs_base[0];          V717= vs_base[0];
3803          base[1]= (V750);          base[1]= (V718);
3804          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3805          L41(base0);          L41(base0);
3806          vs_top=sup;          vs_top=sup;
3807          V750= vs_base[0];          V718= vs_base[0];
3808          if(!(endp_prop((V749)))){          if(!(endp_prop((V717)))){
3809          goto T1412;}          goto T1450;}
3810          base[1]= (V750);          base[1]= (V718);
3811          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3812          return;          return;
3813          goto T1412;          goto T1450;
3814  T1412:;  T1450:;
3815          if(!(endp_prop((V750)))){          if(!(endp_prop((V718)))){
3816          goto T1410;}          goto T1448;}
3817          base[1]= (V749);          base[1]= (V717);
3818          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3819          return;          return;
3820          goto T1410;          goto T1448;
3821  T1410:;  T1448:;
3822          V751= make_cons(Cnil,Cnil);          V719= make_cons(Cnil,Cnil);
3823          V752= (V751);          V720= (V719);
3824          V753= (          V721= (
3825          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3826          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V717))));
3827          V754= (          V722= (
3828          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3829          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718))));
3830          goto T1361;          goto T1399;
3831  T1361:;  T1399:;
3832          base[1]= (V753);          base[1]= (V721);
3833          base[2]= (V754);          base[2]= (V722);
3834          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3835          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3836          vs_top=sup;          vs_top=sup;
3837          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3838          goto T1424;}          goto T1462;}
3839          goto T1362;          goto T1400;
3840          goto T1424;          goto T1462;
3841  T1424:;  T1462:;
3842          base[1]= (V754);          base[1]= (V722);
3843          base[2]= (V753);          base[2]= (V721);
3844          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3845          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3846          vs_top=sup;          vs_top=sup;
3847          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3848          goto T1429;}          goto T1467;}
3849          goto T1363;          goto T1401;
3850          goto T1429;          goto T1467;
3851  T1429:;  T1467:;
3852          goto T1362;          goto T1400;
3853          goto T1362;          goto T1400;
3854  T1362:;  T1400:;
3855          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720));
3856          ((V752))->c.c_cdr = (V749);          ((V720))->c.c_cdr = (V717);
3857          V752= cdr((V752));          V720= cdr((V720));
3858          V749= cdr((V749));          V717= cdr((V717));
3859          if(!(endp_prop((V749)))){          if(!(endp_prop((V717)))){
3860          goto T1438;}          goto T1476;}
3861          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720));
3862          ((V752))->c.c_cdr = (V750);          ((V720))->c.c_cdr = (V718);
3863          base[1]= cdr((V751));          base[1]= cdr((V719));
3864          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3865          return;          return;
3866          goto T1438;          goto T1476;
3867  T1438:;  T1476:;
3868          V753= (          V721= (
3869          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3870          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V717))));
3871          goto T1361;          goto T1399;
3872          goto T1363;          goto T1401;
3873  T1363:;  T1401:;
3874          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720));
3875          ((V752))->c.c_cdr = (V750);          ((V720))->c.c_cdr = (V718);
3876          V752= cdr((V752));          V720= cdr((V720));
3877          V750= cdr((V750));          V718= cdr((V718));
3878          if(!(endp_prop((V750)))){          if(!(endp_prop((V718)))){
3879          goto T1449;}          goto T1487;}
3880          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720));
3881          ((V752))->c.c_cdr = (V749);          ((V720))->c.c_cdr = (V717);
3882          base[1]= cdr((V751));          base[1]= cdr((V719));
3883          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3884          return;          return;
3885          goto T1449;          goto T1487;
3886  T1449:;  T1487:;
3887          V754= (          V722= (
3888          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3889          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718))));
3890          goto T1361;}          goto T1399;}
3891          }          }
3892  }  }
3893  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */
# Line 3865  static object  LnkTLI43(object first,... Line 3912  static object  LnkTLI43(object first,...
3912  static object  LnkTLI42(){return call_proc0(VV[42],(void **)(void *)&LnkLI42);} /* TEST-ERROR */  static object  LnkTLI42(){return call_proc0(VV[42],(void **)(void *)&LnkLI42);} /* TEST-ERROR */
3913  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,258,first,ap);va_end(ap);return V1;} /* THE-END */  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,258,first,ap);va_end(ap);return V1;} /* THE-END */
3914  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,257,first,ap);va_end(ap);return V1;} /* THE-START */  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,257,first,ap);va_end(ap);return V1;} /* THE-START */
3915  static object  LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)(void *)&LnkLI33,first,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */  static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* BAD-SEQ-LIMIT */
3916  static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* SPECIFIC-ERROR */  static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* SPECIFIC-ERROR */
3917    
3918  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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