/[gcl]/gcl/mod/gcl_loop.c
ViewVC logotype

Diff of /gcl/mod/gcl_loop.c

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

revision 1.1 by camm, Tue Sep 23 21:50:20 2003 UTC revision 1.2 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 212  T41:; Line 212  T41:;
212          goto T36;          goto T36;
213          goto T44;          goto T44;
214  T44:;  T44:;
215            V34 = base[3];
216          base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]);          base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]);
217          base[7]= (V26);          base[7]= (V26);
218          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
219          L8(base);          L8(base);
220          vs_top=sup;          vs_top=sup;
221          V34= vs_base[0];          V35= vs_base[0];
222          V32= list(3,VV[11],base[3],V34);          V32= list(3,VV[11],V34,V35);
223          goto T36;          goto T36;
224  T36:;  T36:;
225          if((base[4])==Cnil){          if((base[4])==Cnil){
# Line 237  static void L9() Line 238  static void L9()
238          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
239          vs_check;          vs_check;
240          vs_top=sup;          vs_top=sup;
241          {object V35=base[0]->c.c_cdr;          {object V36=base[0]->c.c_cdr;
242          base[2]= (V35->c.c_car);          base[2]= (V36->c.c_car);
243          V35=V35->c.c_cdr;          V36=V36->c.c_cdr;
244          if(endp(V35)){          if(endp(V36)){
245          base[3]= Cnil;          base[3]= Cnil;
246          } else {          } else {
247          base[3]= (V35->c.c_car);}}          base[3]= (V36->c.c_car);}}
248          if(base[3]!=Cnil){          if(base[3]!=Cnil){
249          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
250          return;}          return;}
# Line 257  static object LI10(object first,...) Line 258  static object LI10(object first,...)
258  {        {      
259          va_list ap;          va_list ap;
260          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
261          {object V36;          {object V37;
         object V37;  
262          object V38;          object V38;
263          object V39;          object V39;
264          object V40;          object V40;
265          object V41;          object V41;
266            object V42;
267          va_start(ap,first);          va_start(ap,first);
268          narg= narg - 0;          narg= narg - 0;
269          {          {
270          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI10key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI10key,first,ap);
271          V36=(Vcs[0]);          V37=(Vcs[0]);
272          V37=(Vcs[1]);          V38=(Vcs[1]);
273          V38=(Vcs[2]);          V39=(Vcs[2]);
274          V39=(Vcs[3]);          V40=(Vcs[3]);
275          V40=(Vcs[4]);          V41=(Vcs[4]);
276          V41=(Vcs[5]);          V42=(Vcs[5]);
277          base[0]= VV[18];          base[0]= VV[18];
278          base[1]= (V36);          base[1]= (V37);
279          base[2]= (V37);          base[2]= (V38);
280          base[3]= (V38);          base[3]= (V39);
281          base[4]= (V39);          base[4]= (V40);
282          base[5]= (V40);          base[5]= (V41);
283          base[6]= (V41);          base[6]= (V42);
284          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
285          siLmake_structure();          siLmake_structure();
286          vs_top=sup;          vs_top=sup;
287          {object V42 = vs_base[0];          {object V43 = vs_base[0];
288          VMR9(V42)}          VMR9(V43)}
289          va_end(ap);          va_end(ap);
290          base[0]=base[0];          base[0]=base[0];
291          return Cnil;}          return Cnil;}
292          }}          }}
293  /*      local entry for function MAKE-LOOP-MINIMAX      */  /*      local entry for function MAKE-LOOP-MINIMAX      */
294    
295  static object LI11(V45,V46)  static object LI11(V46,V47)
296    
297  object V45;object V46;  object V46;object V47;
298  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
299          goto TTL;          goto TTL;
300  TTL:;  TTL:;
301          {object V47;          {object V48;
302          base[0]= (V46);          base[0]= (V47);
303          base[1]= (VV[19]->s.s_dbind);          base[1]= (VV[19]->s.s_dbind);
304          base[2]= VV[20];          base[2]= VV[20];
305          base[3]= (VV[333]->s.s_gfdef);          base[3]= (VV[333]->s.s_gfdef);
306          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
307          Lassoc();          Lassoc();
308          vs_top=sup;          vs_top=sup;
309          V48= vs_base[0];          V49= vs_base[0];
310          V47= CMPcdr(V48);          V48= CMPcdr(V49);
311          V49= (VFUN_NARGS=1,(*(LnkLI335))(VV[24]));          V50 = (V46);
312          if(((V47))==Cnil){          V51 = (V47);
313            V52= (VFUN_NARGS=1,(*(LnkLI335))(VV[24]));
314            if(((V48))==Cnil){
315          goto T68;}          goto T68;}
316          V50= Cnil;          V53= Cnil;
317          goto T67;          goto T67;
318          goto T68;          goto T68;
319  T68:;  T68:;
320          V50= (VFUN_NARGS=1,(*(LnkLI335))(VV[26]));          V53= (VFUN_NARGS=1,(*(LnkLI335))(VV[26]));
321          goto T67;          goto T67;
322  T67:;  T67:;
323          {object V51 = (VFUN_NARGS=12,(*(LnkLI334))(VV[21],(V45),VV[22],(V46),VV[23],/* INLINE-ARGS */V49,VV[25],V50,VV[27],Cnil,VV[28],(V47)));          V54 = (V48);
324          VMR10(V51)}}          {object V55 = (VFUN_NARGS=12,(*(LnkLI334))(VV[21],V50,VV[22],V51,VV[23],/* INLINE-ARGS */V52,VV[25],V53,VV[27],Cnil,VV[28],V54));
325            VMR10(V55)}}
326          base[0]=base[0];          base[0]=base[0];
327          return Cnil;          return Cnil;
328  }  }
329  /*      local entry for function LOOP-NOTE-MINIMAX-OPERATION    */  /*      local entry for function LOOP-NOTE-MINIMAX-OPERATION    */
330    
331  static object LI12(V54,V55)  static object LI12(V58,V59)
332    
333  object V54;register object V55;  object V58;register object V59;
334  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
335          goto TTL;          goto TTL;
336  TTL:;  TTL:;
337          {object V58;          {object V62;
338          base[1]= V54;          base[1]= V58;
339          base[2]= STREF(object,V55,16);          base[2]= STREF(object,V59,16);
340          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
341          Ladjoin();          Ladjoin();
342          vs_top=sup;          vs_top=sup;
343          V58= vs_base[0];          V62= vs_base[0];
344          V59= Ct;          V63 = V59;
345          STSET(object,V55,16, (V58));          V64 = (V62);
346          (void)((V58));}          V65= Ct;
347          if((CMPcdr(STREF(object,(V55),16)))==Cnil){          STSET(object,V63,16, V64);
348            (void)(V64);}
349            if((CMPcdr(STREF(object,(V59),16)))==Cnil){
350          goto T74;}          goto T74;}
351          if((STREF(object,(V55),12))!=Cnil){          if((STREF(object,(V59),12))!=Cnil){
352          goto T74;}          goto T74;}
353          V60= (VFUN_NARGS=1,(*(LnkLI335))(VV[26]));          V66 = (V59);
354          V61= Ct;          V67= (VFUN_NARGS=1,(*(LnkLI335))(VV[26]));
355          STSET(object,(V55),12, /* INLINE-ARGS */V60);          V68= Ct;
356          (void)(/* INLINE-ARGS */V60);          STSET(object,V66,12, /* INLINE-ARGS */V67);
357            (void)(/* INLINE-ARGS */V67);
358          goto T74;          goto T74;
359  T74:;  T74:;
360          {object V62 = (V54);          {object V69 = (V58);
361          VMR11(V62)}          VMR11(V69)}
362          base[0]=base[0];          base[0]=base[0];
363          return Cnil;          return Cnil;
364  }  }
# Line 362  static void L13() Line 369  static void L13()
369          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
370          vs_check;          vs_check;
371          vs_top=sup;          vs_top=sup;
372          {object V63=base[0]->c.c_cdr;          {object V70=base[0]->c.c_cdr;
373          base[2]= (V63->c.c_car);          base[2]= (V70->c.c_car);
374          V63=V63->c.c_cdr;          V70=V70->c.c_cdr;
375          base[3]= V63;}          base[3]= V70;}
376          {object V64;          {object V71;
377          object V65;          object V72;
378          object V66;          object V73;
379          register object V67;          register object V74;
380          register object V68;          register object V75;
381          object V69;          object V76;
382          object V70;          object V77;
383          V64= (*(LnkLI336))(STREF(object,base[2],4));          V71= (*(LnkLI336))(STREF(object,base[2],4));
384          V65= CMPcar(STREF(object,base[2],16));          V72= CMPcar(STREF(object,base[2],16));
385          V66= STREF(object,base[2],20);          V73= STREF(object,base[2],20);
386          V67= STREF(object,base[2],0);          V74= STREF(object,base[2],0);
387          V68= STREF(object,base[2],8);          V75= STREF(object,base[2],8);
388          V69= STREF(object,base[2],12);          V76= STREF(object,base[2],12);
389          V70= STREF(object,base[2],4);          V77= STREF(object,base[2],4);
390          if(((V69))==Cnil){          if(((V76))==Cnil){
391          goto T87;}          goto T87;}
392          V71= list(2,(V67),(V64));          V78= list(2,(V74),(V71));
393          V72= list(2,(V68),(V64));          V79= list(2,(V75),(V71));
394          V73= list(3,/* INLINE-ARGS */V71,/* INLINE-ARGS */V72,list(2,(V69),Cnil));          V80= list(3,/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,list(2,(V76),Cnil));
395          base[4]= listA(4,VV[29],/* INLINE-ARGS */V73,list(2,VV[30],list(4,VV[31],(V70),(V67),(V68))),base[3]);          base[4]= listA(4,VV[29],/* INLINE-ARGS */V80,list(2,VV[30],list(4,VV[31],(V77),(V74),(V75))),base[3]);
396          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
397          return;          return;
398          goto T87;          goto T87;
399  T87:;  T87:;
400          if(!(((V65))==(VV[32]))){          V81 = (V74);
401            if(!(((V72))==(VV[32]))){
402          goto T91;}          goto T91;}
403          V74= CMPcar((V66));          V82= CMPcar((V73));
404          goto T89;          goto T89;
405          goto T91;          goto T91;
406  T91:;  T91:;
407          V74= CMPcadr((V66));          V82= CMPcadr((V73));
408          goto T89;          goto T89;
409  T89:;  T89:;
410          V75= list(2,(V67),V74);          V83= list(2,V81,V82);
411          V76= list(2,/* INLINE-ARGS */V75,list(2,(V68),(V64)));          V84= list(2,/* INLINE-ARGS */V83,list(2,(V75),(V71)));
412          base[4]= listA(4,VV[29],/* INLINE-ARGS */V76,list(2,VV[30],list(4,VV[31],(V70),(V67),(V68))),base[3]);          base[4]= listA(4,VV[29],/* INLINE-ARGS */V84,list(2,VV[30],list(4,VV[31],(V77),(V74),(V75))),base[3]);
413          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
414          return;}          return;}
415  }  }
# Line 412  static void L14() Line 420  static void L14()
420          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
421          vs_check;          vs_check;
422          vs_top=sup;          vs_top=sup;
423          {object V77=base[0]->c.c_cdr;          {object V85=base[0]->c.c_cdr;
424          base[2]= (V77->c.c_car);          base[2]= (V85->c.c_car);
425          V77=V77->c.c_cdr;          V85=V85->c.c_cdr;
426          base[3]= (V77->c.c_car);          base[3]= (V85->c.c_car);
427          V77=V77->c.c_cdr;          V85=V85->c.c_cdr;
428          base[4]= (V77->c.c_car);}          base[4]= (V85->c.c_car);}
429          {object V78;          {object V86;
430          object V79;          object V87;
431          register object V80;          register object V88;
432          object V81;          object V89;
433          V78= STREF(object,base[2],0);          V86= STREF(object,base[2],0);
434          V79= STREF(object,base[2],8);          V87= STREF(object,base[2],8);
435          V80= STREF(object,base[2],12);          V88= STREF(object,base[2],12);
436          {object V83= base[3];          {object V91= base[3];
437          if((V83!= VV[32]))goto T98;          if((V91!= VV[32]))goto T98;
438          V82= VV[33];          V90= VV[33];
439          goto T97;          goto T97;
440          goto T98;          goto T98;
441  T98:;  T98:;
442          if((V83!= VV[338]))goto T99;          if((V91!= VV[338]))goto T99;
443          V82= VV[34];          V90= VV[34];
444          goto T97;          goto T97;
445          goto T99;          goto T99;
446  T99:;  T99:;
447          FEerror("The ECASE key value ~s is illegal.",1,V83);          FEerror("The ECASE key value ~s is illegal.",1,V91);
448          V82= Cnil;          V90= Cnil;
449          goto T97;}          goto T97;}
450          goto T97;          goto T97;
451  T97:;  T97:;
452          V84= list(3,V82,(V79),(V78));          V92 = (V87);
453          V81= (*(LnkLI337))(Ct,STREF(object,base[2],0),/* INLINE-ARGS */V84);          V93 = (V86);
454          V85= list(3,VV[11],(V79),base[4]);          V94= list(3,V90,V92,V93);
455          if(((V80))==Cnil){          V89= (*(LnkLI337))(Ct,STREF(object,base[2],0),/* INLINE-ARGS */V94);
456            V95= list(3,VV[11],(V87),base[4]);
457            if(((V88))==Cnil){
458          goto T102;}          goto T102;}
459          V86= list(3,VV[35],list(2,VV[36],(V80)),(V81));          V96= list(3,VV[35],list(2,VV[36],(V88)),(V89));
460          goto T100;          goto T100;
461          goto T102;          goto T102;
462  T102:;  T102:;
463          V86= (V81);          V96= (V89);
464          goto T100;          goto T100;
465  T100:;  T100:;
466          if((V80)==Cnil){          if((V88)==Cnil){
467          V87= Cnil;          V97= Cnil;
468          goto T104;}          goto T104;}
469          V87= list(2,(V80),Ct);          V97= list(2,(V88),Ct);
470          goto T104;          goto T104;
471  T104:;  T104:;
472          V88= list(2,(V78),(V79));          V98= list(2,(V86),(V87));
473          V89= append(V87,/* INLINE-ARGS */V88);          V99= append(V97,/* INLINE-ARGS */V98);
474          base[9]= list(3,VV[14],/* INLINE-ARGS */V85,list(3,VV[8],V86,make_cons(VV[11],/* INLINE-ARGS */V89)));          base[9]= list(3,VV[14],/* INLINE-ARGS */V95,list(3,VV[8],V96,make_cons(VV[11],/* INLINE-ARGS */V99)));
475          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
476          return;}          return;}
477  }  }
478  /*      local entry for function LOOP-TEQUAL    */  /*      local entry for function LOOP-TEQUAL    */
479    
480  static object LI15(V92,V93)  static object LI15(V102,V103)
481    
482  object V92;object V93;  object V102;object V103;
483  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
484          goto TTL;          goto TTL;
485  TTL:;  TTL:;
486          if(type_of((V92))==t_symbol){          if(type_of((V102))==t_symbol){
487          goto T105;}          goto T105;}
488          {object V94 = Cnil;          {object V104 = Cnil;
489          VMR14(V94)}          VMR14(V104)}
490          goto T105;          goto T105;
491  T105:;  T105:;
492          base[0]= (V92);          base[0]= (V102);
493          base[1]= (V93);          base[1]= (V103);
494          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
495          Lstring_eq();          Lstring_eq();
496          vs_top=sup;          vs_top=sup;
497          {object V95 = vs_base[0];          {object V105 = vs_base[0];
498          VMR14(V95)}          VMR14(V105)}
499          base[0]=base[0];          base[0]=base[0];
500          return Cnil;          return Cnil;
501  }  }
502  /*      local entry for function LOOP-TASSOC    */  /*      local entry for function LOOP-TASSOC    */
503    
504  static object LI16(V98,V99)  static object LI16(V108,V109)
505    
506  object V98;object V99;  object V108;object V109;
507  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
508          goto TTL;          goto TTL;
509  TTL:;  TTL:;
510          if(type_of((V98))==t_symbol){          if(type_of((V108))==t_symbol){
511          goto T109;}          goto T109;}
512          {object V100 = Cnil;          {object V110 = Cnil;
513          VMR15(V100)}          VMR15(V110)}
514          goto T109;          goto T109;
515  T109:;  T109:;
516          base[0]= (V98);          base[0]= (V108);
517          base[1]= (V99);          base[1]= (V109);
518          base[2]= VV[20];          base[2]= VV[20];
519          base[3]= (VV[339]->s.s_gfdef);          base[3]= (VV[339]->s.s_gfdef);
520          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
521          Lassoc();          Lassoc();
522          vs_top=sup;          vs_top=sup;
523          {object V101 = vs_base[0];          {object V111 = vs_base[0];
524          VMR15(V101)}          VMR15(V111)}
525          base[0]=base[0];          base[0]=base[0];
526          return Cnil;          return Cnil;
527  }  }
528  /*      local entry for function LOOP-TMEMBER   */  /*      local entry for function LOOP-TMEMBER   */
529    
530  static object LI17(V104,V105)  static object LI17(V114,V115)
531    
532  object V104;object V105;  object V114;object V115;
533  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
534          goto TTL;          goto TTL;
535  TTL:;  TTL:;
536          if(type_of((V104))==t_symbol){          if(type_of((V114))==t_symbol){
537          goto T115;}          goto T115;}
538          {object V106 = Cnil;          {object V116 = Cnil;
539          VMR16(V106)}          VMR16(V116)}
540          goto T115;          goto T115;
541  T115:;  T115:;
542          base[0]= (V104);          base[0]= (V114);
543          base[1]= (V105);          base[1]= (V115);
544          base[2]= VV[20];          base[2]= VV[20];
545          base[3]= (VV[339]->s.s_gfdef);          base[3]= (VV[339]->s.s_gfdef);
546          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
547          Lmember();          Lmember();
548          vs_top=sup;          vs_top=sup;
549          {object V107 = vs_base[0];          {object V117 = vs_base[0];
550          VMR16(V107)}          VMR16(V117)}
551          base[0]=base[0];          base[0]=base[0];
552          return Cnil;          return Cnil;
553  }  }
554  /*      local entry for function LOOP-LOOKUP-KEYWORD    */  /*      local entry for function LOOP-LOOKUP-KEYWORD    */
555    
556  static object LI18(V110,V111)  static object LI18(V120,V121)
557    
558  object V110;object V111;  object V120;object V121;
559  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
560          goto TTL;          goto TTL;
561  TTL:;  TTL:;
562          if(type_of((V110))==t_symbol){          if(type_of((V120))==t_symbol){
563          goto T121;}          goto T121;}
564          {object V112 = Cnil;          {object V122 = Cnil;
565          VMR17(V112)}          VMR17(V122)}
566          goto T121;          goto T121;
567  T121:;  T121:;
568          base[1]= symbol_name((V110));          base[1]= symbol_name((V120));
569          base[2]= (V111);          base[2]= (V121);
570          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
571          Lgethash();          Lgethash();
572          vs_top=sup;          vs_top=sup;
573          base[0]= vs_base[0];          base[0]= vs_base[0];
574          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
575          vs_top=sup;          vs_top=sup;
576          {object V113 = vs_base[0];          {object V123 = vs_base[0];
577          VMR17(V113)}          VMR17(V123)}
578          base[0]=base[0];          base[0]=base[0];
579          return Cnil;          return Cnil;
580  }  }
# Line 575  static void L19() Line 585  static void L19()
585          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
586          vs_check;          vs_check;
587          vs_top=sup;          vs_top=sup;
588          {object V114=base[0]->c.c_cdr;          {object V124=base[0]->c.c_cdr;
589          base[2]= (V114->c.c_car);          base[2]= (V124->c.c_car);
590          V114=V114->c.c_cdr;          V124=V124->c.c_cdr;
591          base[3]= (V114->c.c_car);          base[3]= (V124->c.c_car);
592          V114=V114->c.c_cdr;          V124=V124->c.c_cdr;
593          base[4]= (V114->c.c_car);}          base[4]= (V124->c.c_car);}
594          base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]);          base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]);
595          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
596          return;          return;
# Line 591  static object LI20(object first,...) Line 601  static object LI20(object first,...)
601  {        {      
602          va_list ap;          va_list ap;
603          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
604          {object V115;          {object V125;
605          object V116;          object V126;
606          object V117;          object V127;
607          object V118;          object V128;
608          object V119;          object V129;
609          object V120;          object V130;
610          object V121;          object V131;
611          object V122;          object V132;
612          va_start(ap,first);          va_start(ap,first);
613          narg= narg - 0;          narg= narg - 0;
614          {          {
615          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI20key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI20key,first,ap);
616          V115=(Vcs[0]);          V125=(Vcs[0]);
617          V116=(Vcs[1]);          V126=(Vcs[1]);
618          V117=(Vcs[2]);          V127=(Vcs[2]);
619          V118=(Vcs[3]);          V128=(Vcs[3]);
620          V119=(Vcs[4]);          V129=(Vcs[4]);
621          V120=(Vcs[5]);          V130=(Vcs[5]);
622          V121=(Vcs[6]);          V131=(Vcs[6]);
623          V122=(Vcs[7]);          V132=(Vcs[7]);
624          base[0]= VV[39];          base[0]= VV[39];
625          base[1]= (V115);          base[1]= (V125);
626          base[2]= (V116);          base[2]= (V126);
627          base[3]= (V117);          base[3]= (V127);
628          base[4]= (V118);          base[4]= (V128);
629          base[5]= (V119);          base[5]= (V129);
630          base[6]= (V120);          base[6]= (V130);
631          base[7]= (V121);          base[7]= (V131);
632          base[8]= (V122);          base[8]= (V132);
633          vs_top=(vs_base=base+0)+9;          vs_top=(vs_base=base+0)+9;
634          siLmake_structure();          siLmake_structure();
635          vs_top=sup;          vs_top=sup;
636          {object V123 = vs_base[0];          {object V133 = vs_base[0];
637          VMR19(V123)}          VMR19(V133)}
638          va_end(ap);          va_end(ap);
639          base[0]=base[0];          base[0]=base[0];
640          return Cnil;}          return Cnil;}
641          }}          }}
642  /*      local entry for function PRINT-LOOP-UNIVERSE    */  /*      local entry for function PRINT-LOOP-UNIVERSE    */
643    
644  static object LI21(V127,V128,V129)  static object LI21(V137,V138,V139)
645    
646  object V127;object V128;object V129;  object V137;object V138;object V139;
647  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
648          goto TTL;          goto TTL;
649  TTL:;  TTL:;
650          {object V130;          {object V140;
651          {object V131= STREF(object,(V127),24);          {object V141= STREF(object,(V137),24);
652          if((V131!= Cnil))goto T136;          if((V141!= Cnil))goto T136;
653          V130= VV[40];          V140= VV[40];
654          goto T135;          goto T135;
655          goto T136;          goto T136;
656  T136:;  T136:;
657          if((V131!= Ct))goto T137;          if((V141!= Ct))goto T137;
658          V130= VV[41];          V140= VV[41];
659          goto T135;          goto T135;
660          goto T137;          goto T137;
661  T137:;  T137:;
662          if((V131!= VV[314]))goto T138;          if((V141!= VV[314]))goto T138;
663          V130= VV[42];          V140= VV[42];
664          goto T135;          goto T135;
665          goto T138;          goto T138;
666  T138:;  T138:;
667          V130= STREF(object,(V127),24);}          V140= STREF(object,(V137),24);}
668          goto T135;          goto T135;
669  T135:;  T135:;
670          base[0]= (V128);          base[0]= (V138);
671          base[1]= VV[43];          base[1]= VV[43];
672          base[3]= (V127);          base[3]= (V137);
673          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
674          Ltype_of();          Ltype_of();
675          vs_top=sup;          vs_top=sup;
676          base[2]= vs_base[0];          base[2]= vs_base[0];
677          base[3]= (V130);          base[3]= (V140);
678          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
679          Lformat();          Lformat();
680          vs_top=sup;          vs_top=sup;
681          {object V132 = vs_base[0];          {object V142 = vs_base[0];
682          VMR20(V132)}}          VMR20(V142)}}
683          base[0]=base[0];          base[0]=base[0];
684          return Cnil;          return Cnil;
685  }  }
# Line 680  static object LI22(object first,...) Line 690  static object LI22(object first,...)
690          va_list ap;          va_list ap;
691          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
692          bds_check;          bds_check;
693          {object V133;          {object V143;
694          object V134;          object V144;
695          object V135;          object V145;
696          object V136;          object V146;
697          object V137;          object V147;
698          object V138;          object V148;
699          register object V139;          register object V149;
700          va_start(ap,first);          va_start(ap,first);
701          narg= narg - 0;          narg= narg - 0;
702          {          {
703          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI22key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI22key,first,ap);
704          V133=(Vcs[0]);          V143=(Vcs[0]);
705          V134=(Vcs[1]);          V144=(Vcs[1]);
706          V135=(Vcs[2]);          V145=(Vcs[2]);
707          V136=(Vcs[3]);          V146=(Vcs[3]);
708          V137=(Vcs[4]);          V147=(Vcs[4]);
709          V138=(Vcs[5]);          V148=(Vcs[5]);
710          V139=(Vcs[6]);          V149=(Vcs[6]);
711          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
712          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
713          goto T146;          goto T146;
714  T146:;  T146:;
715          base[2]= (V139);          base[2]= (V149);
716          base[3]= VV[46];          base[3]= VV[46];
717          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
718          (void) (*Lnk340)();          (void) (*Lnk340)();
# Line 717  T147:; Line 727  T147:;
727          base[2]= VV[47];          base[2]= VV[47];
728          base[3]= VV[48];          base[3]= VV[48];
729          base[4]= VV[49];          base[4]= VV[49];
730          base[5]= (V139);          base[5]= (V149);
731          base[6]= VV[46];          base[6]= VV[46];
732          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
733          Lcerror();          Lcerror();
# Line 735  T147:; Line 745  T147:;
745          vs_base=vs_top;          vs_base=vs_top;
746          Lread();          Lread();
747          vs_top=sup;          vs_top=sup;
748          V139= vs_base[0];          V149= vs_base[0];
749          base[2]= (VV[50]->s.s_dbind);          base[2]= (VV[50]->s.s_dbind);
750          base[3]= VV[52];          base[3]= VV[52];
751          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 744  T147:; Line 754  T147:;
754          goto T146;          goto T146;
755          goto T144;          goto T144;
756  T144:;  T144:;
757          base[0]= (V133);          base[0]= (V143);
758          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
759          L23(base);          L23(base);
760          vs_top=sup;          vs_top=sup;
761          V140= vs_base[0];          V150= vs_base[0];
762          base[0]= (V134);          base[0]= (V144);
763          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
764          L23(base);          L23(base);
765          vs_top=sup;          vs_top=sup;
766          V141= vs_base[0];          V151= vs_base[0];
767          base[0]= (V135);          base[0]= (V145);
768          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
769          L23(base);          L23(base);
770          vs_top=sup;          vs_top=sup;
771          V142= vs_base[0];          V152= vs_base[0];
772          base[0]= (V136);          base[0]= (V146);
773          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
774          L23(base);          L23(base);
775          vs_top=sup;          vs_top=sup;
776          V143= vs_base[0];          V153= vs_base[0];
777          V144= (((((V139))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V154 = (V149);
778          base[0]= (V137);          V155= (((((V149))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
779            base[0]= (V147);
780          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
781          L23(base);          L23(base);
782          vs_top=sup;          vs_top=sup;
783          V145= vs_base[0];          V156= vs_base[0];
784          {object V147;          {object V158;
785          object V148;          object V159;
786          V147= CMPmake_fixnum((long)length((V138)));          V158= CMPmake_fixnum((long)length((V148)));
787          base[2]= VV[61];          base[2]= VV[61];
788          if(!(number_compare((V147),small_fixnum(10))<0)){          if(!(number_compare((V158),small_fixnum(10))<0)){
789          goto T188;}          goto T188;}
790          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
791          goto T186;          goto T186;
792          goto T188;          goto T188;
793  T188:;  T188:;
794          base[3]= (V147);          base[3]= (V158);
795          goto T186;          goto T186;
796  T186:;  T186:;
797          base[4]= VV[20];          base[4]= VV[20];
# Line 788  T186:; Line 799  T186:;
799          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
800          Lmake_hash_table();          Lmake_hash_table();
801          vs_top=sup;          vs_top=sup;
802          V148= vs_base[0];          V159= vs_base[0];
803          {register object V149;          {register object V160;
804          register object V150;          register object V161;
805          V149= (V138);          V160= (V148);
806          V150= CMPcar((V149));          V161= CMPcar((V160));
807          goto T196;          goto T196;
808  T196:;  T196:;
809          if(!(((V149))==Cnil)){          if(!(((V160))==Cnil)){
810          goto T197;}          goto T197;}
811          goto T192;          goto T192;
812          goto T197;          goto T197;
813  T197:;  T197:;
814          if(!(type_of((V150))!=t_cons)){          if(!(type_of((V161))!=t_cons)){
815          goto T203;}          goto T203;}
816          base[3]= V150;          base[3]= V161;
817          base[4]= V148;          base[4]= V159;
818          base[5]= V150;          base[5]= V161;
819          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
820          siLhash_set();          siLhash_set();
821          vs_top=sup;          vs_top=sup;
822          goto T201;          goto T201;
823          goto T203;          goto T203;
824  T203:;  T203:;
825          {object V154;          {object V165;
826          object V156;          object V167;
827          V154= CMPcar((V150));          V165= CMPcar((V161));
828          V156= CMPcadr((V150));          V167= CMPcadr((V161));
829          base[5]= (V154);          base[5]= (V165);
830          base[6]= V148;          base[6]= V159;
831          base[7]= (V156);          base[7]= (V167);
832          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
833          siLhash_set();          siLhash_set();
834          vs_top=sup;}          vs_top=sup;}
835          goto T201;          goto T201;
836  T201:;  T201:;
837          V149= CMPcdr((V149));          V160= CMPcdr((V160));
838          V150= CMPcar((V149));          V161= CMPcar((V160));
839          goto T196;}          goto T196;}
840          goto T192;          goto T192;
841  T192:;  T192:;
842          V146= (V148);}          V157= (V159);}
843          {object V157 = (VFUN_NARGS=16,(*(LnkLI341))(VV[53],V140,VV[54],V141,VV[55],V142,VV[56],V143,VV[57],(V139),VV[58],/* INLINE-ARGS */V144,VV[59],V145,VV[60],V146));          {object V168 = (VFUN_NARGS=16,(*(LnkLI341))(VV[53],V150,VV[54],V151,VV[55],V152,VV[56],V153,VV[57],V154,VV[58],/* INLINE-ARGS */V155,VV[59],V156,VV[60],V157));
844          VMR21(V157)}          VMR21(V168)}
845          va_end(ap);          va_end(ap);
846          base[0]=base[0];          base[0]=base[0];
847          return Cnil;}          return Cnil;}
848          }}          }}
849  /*      local entry for function LOOP-MAKE-PSETQ        */  /*      local entry for function LOOP-MAKE-PSETQ        */
850    
851  static object LI24(V159)  static object LI24(V170)
852    
853  register object V159;  register object V170;
854  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
855          goto TTL;          goto TTL;
856  TTL:;  TTL:;
857          if((V159)==Cnil){          if((V170)==Cnil){
858          {object V160 = Cnil;          {object V171 = Cnil;
859          VMR22(V160)}}          VMR22(V171)}}
860          V161= CMPcar((V159));          V172= CMPcar((V170));
861          if((CMPcddr((V159)))!=Cnil){          if((CMPcddr((V170)))!=Cnil){
862          goto T220;}          goto T220;}
863          V162= CMPcadr((V159));          V173= CMPcadr((V170));
864          goto T218;          goto T218;
865          goto T220;          goto T220;
866  T220:;  T220:;
867          V163= CMPcadr((V159));          V174= CMPcadr((V170));
868          V162= list(3,VV[62],/* INLINE-ARGS */V163,(*(LnkLI344))(CMPcddr((V159))));          V173= list(3,VV[62],/* INLINE-ARGS */V174,(*(LnkLI344))(CMPcddr((V170))));
869          goto T218;          goto T218;
870  T218:;  T218:;
871          V164= list(2,/* INLINE-ARGS */V161,V162);          V175= list(2,/* INLINE-ARGS */V172,V173);
872          {object V165 = (*(LnkLI343))(/* INLINE-ARGS */V164);          {object V176 = (*(LnkLI343))(/* INLINE-ARGS */V175);
873          VMR22(V165)}          VMR22(V176)}
874          return Cnil;          return Cnil;
875  }  }
876  /*      local entry for function LOOP-MAKE-DESETQ       */  /*      local entry for function LOOP-MAKE-DESETQ       */
877    
878  static object LI25(V167)  static object LI25(V178)
879    
880  object V167;  object V178;
881  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
882          goto TTL;          goto TTL;
883  TTL:;  TTL:;
884          if(((V167))!=Cnil){          if(((V178))!=Cnil){
885          goto T223;}          goto T223;}
886          {object V168 = Cnil;          {object V179 = Cnil;
887          VMR23(V168)}          VMR23(V179)}
888          goto T223;          goto T223;
889  T223:;  T223:;
890          if(((VV[63]->s.s_dbind))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
891          goto T227;}          goto T227;}
892          V169= CMPcadr((VV[63]->s.s_dbind));          V180= CMPcadr((VV[63]->s.s_dbind));
893          goto T225;          goto T225;
894          goto T227;          goto T227;
895  T227:;  T227:;
896          V169= VV[64];          V180= VV[64];
897          goto T225;          goto T225;
898  T225:;  T225:;
899          {object V170 = make_cons(V169,(V167));          V181 = (V178);
900          VMR23(V170)}          {object V182 = make_cons(V180,V181);
901            VMR23(V182)}
902          return Cnil;          return Cnil;
903  }  }
904  /*      macro definition for LOOP-REALLY-DESETQ */  /*      macro definition for LOOP-REALLY-DESETQ */
# Line 896  static void L26() Line 908  static void L26()
908          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
909          vs_check;          vs_check;
910          vs_top=sup;          vs_top=sup;
911          {object V171=base[0]->c.c_cdr;          {object V183=base[0]->c.c_cdr;
912          base[2]= V171;}          base[2]= V183;}
913          {register object V172;          {register object V184;
914          V172= Cnil;          V184= Cnil;
915          goto T230;          goto T230;
916  T230:;  T230:;
917          if((base[2])!=Cnil){          if((base[2])!=Cnil){
918          goto T231;}          goto T231;}
919          if((CMPcdr((V172)))!=Cnil){          if((CMPcdr((V184)))!=Cnil){
920          goto T235;}          goto T235;}
921          base[3]= CMPcar((V172));          base[3]= CMPcar((V184));
922          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
923          return;          return;
924          goto T235;          goto T235;
925  T235:;  T235:;
926          V173= nreverse((V172));          V185= nreverse((V184));
927          base[3]= make_cons(VV[14],/* INLINE-ARGS */V173);          base[3]= make_cons(VV[14],/* INLINE-ARGS */V185);
928          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
929          return;          return;
930          goto T231;          goto T231;
931  T231:;  T231:;
932          {register object V174;          {register object V186;
933          V174= CMPcar(base[2]);          V186= CMPcar(base[2]);
934          base[2]= CMPcdr(base[2]);          base[2]= CMPcdr(base[2]);
935          base[4]= (V174);}          base[4]= (V186);}
936          {register object V175;          {register object V187;
937          V175= CMPcar(base[2]);          V187= CMPcar(base[2]);
938          base[2]= CMPcdr(base[2]);          base[2]= CMPcdr(base[2]);
939          base[5]= (V175);}          base[5]= (V187);}
940          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
941          L28(base);          L28(base);
942          vs_top=sup;          vs_top=sup;
943          base[3]= vs_base[0];          base[3]= vs_base[0];
944          base[4]= (V172);          base[4]= (V184);
945          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
946          Lrevappend();          Lrevappend();
947          vs_top=sup;          vs_top=sup;
948          V172= vs_base[0];          V184= vs_base[0];
949          goto T230;}          goto T230;}
950  }  }
951  /*      function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE  */  /*      function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE  */
# Line 942  static void L29() Line 954  static void L29()
954  {register object *base=vs_base;  {register object *base=vs_base;
955          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
956          vs_check;          vs_check;
957          {object V176;          {object V188;
958          object V177;          object V189;
959          V176=(base[0]);          V188=(base[0]);
960          vs_base=vs_base+1;          vs_base=vs_base+1;
961          if(vs_base>=vs_top){vs_top=sup;goto T252;}          if(vs_base>=vs_top){vs_top=sup;goto T252;}
962          V177=(base[1]);          V189=(base[1]);
963          vs_top=sup;          vs_top=sup;
964          goto T253;          goto T253;
965          goto T252;          goto T252;
966  T252:;  T252:;
967          V177= Cnil;          V189= Cnil;
968          goto T253;          goto T253;
969  T253:;  T253:;
970          {register object V179;          {register object V191;
971          register object V180;          register object V192;
972          V179= Cnil;          V191= Cnil;
973          V180= Cnil;          V192= Cnil;
974          base[2]= V176;          base[2]= V188;
975          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
976          Lconstantp();          Lconstantp();
977          vs_top=sup;          vs_top=sup;
978          V179= vs_base[0];          V191= vs_base[0];
979          if(((V179))==Cnil){          if(((V191))==Cnil){
980          goto T255;}          goto T255;}
981          base[2]= V176;          base[2]= V188;
982          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
983          Leval();          Leval();
984          vs_top=sup;          vs_top=sup;
985          V180= vs_base[0];          V192= vs_base[0];
986          goto T255;          goto T255;
987  T255:;  T255:;
988          if(((V179))==Cnil){          if(((V191))==Cnil){
989          goto T262;}          goto T262;}
990          if(((V177))==Cnil){          if(((V189))==Cnil){
991          goto T262;}          goto T262;}
992          base[2]= (V180);          base[2]= (V192);
993          base[3]= (V177);          base[3]= (V189);
994          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
995          (void) (*Lnk340)();          (void) (*Lnk340)();
996          vs_top=sup;          vs_top=sup;
997          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
998          goto T262;}          goto T262;}
999          (void)((VFUN_NARGS=4,(*(LnkLI345))(VV[67],(V176),(V180),(V177))));          (void)((VFUN_NARGS=4,(*(LnkLI345))(VV[67],(V188),(V192),(V189))));
1000          V179= Cnil;          V191= Cnil;
1001          V180= Cnil;          V192= Cnil;
1002          goto T262;          goto T262;
1003  T262:;  T262:;
1004          base[2]= V176;          base[2]= V188;
1005          base[3]= (V179);          base[3]= (V191);
1006          base[4]= (V180);          base[4]= (V192);
1007          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1008          return;}          return;}
1009          }          }
1010  }  }
1011  /*      local entry for function LOOP-CONSTANTP */  /*      local entry for function LOOP-CONSTANTP */
1012    
1013  static object LI30(V182)  static object LI30(V194)
1014    
1015  object V182;  object V194;
1016  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1017          goto TTL;          goto TTL;
1018  TTL:;  TTL:;
1019          base[0]= (V182);          base[0]= (V194);
1020          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1021          Lconstantp();          Lconstantp();
1022          vs_top=sup;          vs_top=sup;
1023          {object V183 = vs_base[0];          {object V195 = vs_base[0];
1024          VMR26(V183)}          VMR26(V195)}
1025          base[0]=base[0];          base[0]=base[0];
1026          return Cnil;          return Cnil;
1027  }  }
1028  /*      local entry for function LOOP-CODE-DUPLICATION-THRESHOLD        */  /*      local entry for function LOOP-CODE-DUPLICATION-THRESHOLD        */
1029    
1030  static object LI31(V185)  static object LI31(V197)
1031    
1032  object V185;  object V197;
1033  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1034          goto TTL;          goto TTL;
1035  TTL:;  TTL:;
1036          {object V186;          {object V198;
1037          object V187;          object V199;
1038          base[0]= (V185);          base[0]= (V197);
1039          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1040          (void) (*Lnk346)();          (void) (*Lnk346)();
1041          if(vs_base>=vs_top){vs_top=sup;goto T281;}          if(vs_base>=vs_top){vs_top=sup;goto T281;}
1042          V186= vs_base[0];          V198= vs_base[0];
1043          vs_base++;          vs_base++;
1044          if(vs_base>=vs_top){vs_top=sup;goto T282;}          if(vs_base>=vs_top){vs_top=sup;goto T282;}
1045          V187= vs_base[0];          V199= vs_base[0];
1046          vs_top=sup;          vs_top=sup;
1047          goto T283;          goto T283;
1048          goto T281;          goto T281;
1049  T281:;  T281:;
1050          V186= Cnil;          V198= Cnil;
1051          goto T282;          goto T282;
1052  T282:;  T282:;
1053          V187= Cnil;          V199= Cnil;
1054          goto T283;          goto T283;
1055  T283:;  T283:;
1056          V188= number_minus((V186),(V187));          V200= number_minus((V198),(V199));
1057          V189= number_times(/* INLINE-ARGS */V188,small_fixnum(10));          V201= number_times(/* INLINE-ARGS */V200,small_fixnum(10));
1058          {object V190 = number_plus(small_fixnum(40),/* INLINE-ARGS */V189);          {object V202 = number_plus(small_fixnum(40),/* INLINE-ARGS */V201);
1059          VMR27(V190)}}          VMR27(V202)}}
1060          base[0]=base[0];          base[0]=base[0];
1061          return Cnil;          return Cnil;
1062  }  }
# Line 1055  static void L32() Line 1067  static void L32()
1067          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1068          vs_check;          vs_check;
1069          vs_top=sup;          vs_top=sup;
1070          {object V191=base[0]->c.c_cdr;          {object V203=base[0]->c.c_cdr;
1071          base[2]= (V191->c.c_car);          base[2]= (V203->c.c_car);
1072          V191=V191->c.c_cdr;          V203=V203->c.c_cdr;
1073          base[3]= (V191->c.c_car);          base[3]= (V203->c.c_car);
1074          V191=V191->c.c_cdr;          V203=V203->c.c_cdr;
1075          base[4]= (V191->c.c_car);          base[4]= (V203->c.c_car);
1076          V191=V191->c.c_cdr;          V203=V203->c.c_cdr;
1077          base[5]= (V191->c.c_car);          base[5]= (V203->c.c_car);
1078          V191=V191->c.c_cdr;          V203=V203->c.c_cdr;
1079          base[6]= (V191->c.c_car);          base[6]= (V203->c.c_car);
1080          base[7]= Cnil;          base[7]= Cnil;
1081          base[8]= Cnil;          base[8]= Cnil;
1082          base[9]= Cnil;}          base[9]= Cnil;}
# Line 1089  T296:; Line 1101  T296:;
1101          return;          return;
1102          goto T295;          goto T295;
1103  T295:;  T295:;
1104          {register long V192;          {register long V204;
1105          V192= fix((*(LnkLI347))(base[1]));          V204= fix((*(LnkLI347))(base[1]));
1106          goto T302;          goto T302;
1107  T302:;  T302:;
1108          goto T307;          goto T307;
# Line 1104  T309:; Line 1116  T309:;
1116          goto T305;          goto T305;
1117          goto T308;          goto T308;
1118  T308:;  T308:;
1119          {register object V193;          {register object V205;
1120          {register object V194;          {register object V206;
1121          V194= CMPcar(base[7]);          V206= CMPcar(base[7]);
1122          base[7]= CMPcdr(base[7]);          base[7]= CMPcdr(base[7]);
1123          V193= (V194);}          V205= (V206);}
1124          base[4]= make_cons((V193),base[4]);}          base[4]= make_cons((V205),base[4]);}
1125          {register object V195;          {register object V207;
1126          V195= CMPcar(base[8]);          V207= CMPcar(base[8]);
1127          base[8]= CMPcdr(base[8]);}          base[8]= CMPcdr(base[8]);}
1128          goto T307;          goto T307;
1129          goto T305;          goto T305;
# Line 1123  T305:; Line 1135  T305:;
1135          return;          return;
1136          goto T326;          goto T326;
1137  T326:;  T326:;
1138          {register object V196;          {register object V208;
1139          register object V197;          register object V209;
1140          register object V198;          register object V210;
1141          register object V199;          register object V211;
1142          register object V200;          register object V212;
1143          V196= base[7];          V208= base[7];
1144          V197= base[8];          V209= base[8];
1145          V198= Cnil;          V210= Cnil;
1146          V199= small_fixnum(0);          V211= small_fixnum(0);
1147          V200= Cnil;          V212= Cnil;
1148          goto T331;          goto T331;
1149  T331:;  T331:;
1150          if(((V196))!=Cnil){          if(((V208))!=Cnil){
1151          goto T332;}          goto T332;}
1152          vs_base=vs_top;          vs_base=vs_top;
1153          L35(base);          L35(base);
1154          return;          return;
1155          goto T332;          goto T332;
1156  T332:;  T332:;
1157          if(equal(CMPcar((V196)),CMPcar((V197)))){          if(equal(CMPcar((V208)),CMPcar((V209)))){
1158          goto T338;}          goto T338;}
1159          V198= (V196);          V210= (V208);
1160          V199= small_fixnum(0);          V211= small_fixnum(0);
1161          goto T336;          goto T336;
1162          goto T338;          goto T338;
1163  T338:;  T338:;
1164          base[10]= CMPcar((V196));          base[10]= CMPcar((V208));
1165          base[11]= base[1];          base[11]= base[1];
1166          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1167          (void) (*Lnk77)();          (void) (*Lnk77)();
1168          vs_top=sup;          vs_top=sup;
1169          V200= vs_base[0];          V212= vs_base[0];
1170          if(((V200))==Cnil){          if(((V212))==Cnil){
1171          goto T343;}          goto T343;}
1172          V199= number_plus((V199),(V200));          V211= number_plus((V211),(V212));
1173          V201 = CMPmake_fixnum(V192);          V213 = (V211);
1174          if(!(number_compare((V199),V201)>0)){          V214 = CMPmake_fixnum(V204);
1175            if(!(number_compare(V213,V214)>0)){
1176          goto T336;}          goto T336;}
1177          goto T343;          goto T343;
1178  T343:;  T343:;
1179          {register object V202;          {register object V215;
1180          register object V203;          register object V216;
1181          V202= Cnil;          V215= Cnil;
1182          V203= Cnil;          V216= Cnil;
1183          goto T354;          goto T354;
1184  T354:;  T354:;
1185          {register object V204;          {register object V217;
1186          {register object V205;          {register object V218;
1187          V205= CMPcar(base[7]);          V218= CMPcar(base[7]);
1188          base[7]= CMPcdr(base[7]);          base[7]= CMPcdr(base[7]);
1189          V204= (V205);}          V217= (V218);}
1190          V203= make_cons((V204),(V203));}          V216= make_cons((V217),(V216));}
1191          {register object V206;          {register object V219;
1192          {register object V207;          {register object V220;
1193          V207= CMPcar(base[8]);          V220= CMPcar(base[8]);
1194          base[8]= CMPcdr(base[8]);          base[8]= CMPcdr(base[8]);
1195          V206= (V207);}          V219= (V220);}
1196          V202= make_cons((V206),(V202));}          V215= make_cons((V219),(V215));}
1197          if(!((base[7])==(CMPcdr((V198))))){          if(!((base[7])==(CMPcdr((V210))))){
1198          goto T369;}          goto T369;}
1199          goto T352;          goto T352;
1200          goto T369;          goto T369;
# Line 1191  T369:; Line 1204  T369:;
1204  T352:;  T352:;
1205          if((base[9])!=Cnil){          if((base[9])!=Cnil){
1206          goto T374;}          goto T374;}
1207          {register object V208;          {register object V221;
1208          base[9]= (VV[70]->s.s_dbind);          base[9]= (VV[70]->s.s_dbind);
1209          V208= list(3,VV[11],base[9],Ct);          V222 = base[9];
1210          V203= make_cons((V208),(V203));}          V221= list(3,VV[11],V222,Ct);
1211            V216= make_cons((V221),(V216));}
1212          goto T374;          goto T374;
1213  T374:;  T374:;
1214          {register object V209;          {register object V223;
1215          base[12]= (V202);          V224 = base[9];
1216            base[12]= (V215);
1217          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
1218          L33(base);          L33(base);
1219          vs_top=sup;          vs_top=sup;
# Line 1206  T374:; Line 1221  T374:;
1221          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1222          L34(base);          L34(base);
1223          vs_top=sup;          vs_top=sup;
1224          V210= vs_base[0];          V225= vs_base[0];
1225          base[12]= (V203);          base[12]= (V216);
1226          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
1227          L33(base);          L33(base);
1228          vs_top=sup;          vs_top=sup;
# Line 1215  T374:; Line 1230  T374:;
1230          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1231          L34(base);          L34(base);
1232          vs_top=sup;          vs_top=sup;
1233          V211= vs_base[0];          V226= vs_base[0];
1234          V209= list(4,VV[71],base[9],V210,V211);          V223= list(4,VV[71],V224,V225,V226);
1235          base[4]= make_cons((V209),base[4]);}}          base[4]= make_cons((V223),base[4]);}}
1236          goto T390;          goto T390;
1237  T390:;  T390:;
1238          {register object V212;          {register object V227;
1239          V212= CMPcar(base[8]);          V227= CMPcar(base[8]);
1240          base[8]= CMPcdr(base[8]);}          base[8]= CMPcdr(base[8]);}
1241          {register object V213;          {register object V228;
1242          {register object V214;          {register object V229;
1243          V214= CMPcar(base[7]);          V229= CMPcar(base[7]);
1244          base[7]= CMPcdr(base[7]);          base[7]= CMPcdr(base[7]);
1245          V213= (V214);}          V228= (V229);}
1246          base[4]= make_cons((V213),base[4]);}          base[4]= make_cons((V228),base[4]);}
1247          if(!((base[7])==(CMPcdr((V196))))){          if(!((base[7])==(CMPcdr((V208))))){
1248          goto T403;}          goto T403;}
1249          goto T388;          goto T388;
1250          goto T403;          goto T403;
# Line 1240  T388:; Line 1255  T388:;
1255          goto T329;          goto T329;
1256          goto T336;          goto T336;
1257  T336:;  T336:;
1258          V196= CMPcdr((V196));          V208= CMPcdr((V208));
1259          V197= CMPcdr((V197));          V209= CMPcdr((V209));
1260          goto T331;}          goto T331;}
1261          goto T329;          goto T329;
1262  T329:;  T329:;
# Line 1249  T329:; Line 1264  T329:;
1264  }  }
1265  /*      local entry for function DUPLICATABLE-CODE-P    */  /*      local entry for function DUPLICATABLE-CODE-P    */
1266    
1267  static object LI36(V217,V218)  static object LI36(V232,V233)
1268    
1269  object V217;object V218;  object V232;object V233;
1270  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1271          goto TTL;          goto TTL;
1272  TTL:;  TTL:;
1273          if(((V217))!=Cnil){          if(((V232))!=Cnil){
1274          goto T415;}          goto T415;}
1275          {long V219 = 0;          {long V234 = 0;
1276          VMR29((object)V219)}          VMR29((object)V234)}
1277          goto T415;          goto T415;
1278  T415:;  T415:;
1279          {long V220;          {long V235;
1280          base[0]= (V217);          base[0]= (V232);
1281          base[1]= (V218);          base[1]= (V233);
1282          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1283          (void) (*Lnk77)();          (void) (*Lnk77)();
1284          vs_top=sup;          vs_top=sup;
1285          V220= fix(vs_base[0]);          V235= fix(vs_base[0]);
1286          {long V221 = V220;          {long V236 = V235;
1287          VMR29((object)V221)}}          VMR29((object)V236)}}
1288          base[0]=base[0];          base[0]=base[0];
1289  }  }
1290  /*      local entry for function DESTRUCTURING-SIZE     */  /*      local entry for function DESTRUCTURING-SIZE     */
1291    
1292  static object LI37(V223)  static object LI37(V238)
1293    
1294  object V223;  object V238;
1295  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1296          goto TTL;          goto TTL;
1297  TTL:;  TTL:;
1298          {register object V224;          {register object V239;
1299          register object V225;          register object V240;
1300          V224= (V223);          V239= (V238);
1301          V225= small_fixnum(0);          V240= small_fixnum(0);
1302          goto T421;          goto T421;
1303  T421:;  T421:;
1304          if(!(type_of((V224))!=t_cons)){          if(!(type_of((V239))!=t_cons)){
1305          goto T422;}          goto T422;}
1306          if(((V224))!=Cnil){          V241 = (V240);
1307            if(((V239))!=Cnil){
1308          goto T427;}          goto T427;}
1309          V226= small_fixnum(0);          V242= small_fixnum(0);
1310          goto T425;          goto T425;
1311          goto T427;          goto T427;
1312  T427:;  T427:;
1313          V226= small_fixnum(1);          V242= small_fixnum(1);
1314          goto T425;          goto T425;
1315  T425:;  T425:;
1316          {object V227 = number_plus((V225),V226);          {object V243 = number_plus(V241,V242);
1317          VMR30(V227)}          VMR30(V243)}
1318          goto T422;          goto T422;
1319  T422:;  T422:;
1320          {object V228;          {object V244;
1321          V228= CMPcdr((V224));          V244= CMPcdr((V239));
1322          V229= (*(LnkLI348))(CMPcar((V224)));          V245= (*(LnkLI348))(CMPcar((V239)));
1323          V225= number_plus(/* INLINE-ARGS */V229,(V225));          V246 = (V240);
1324          V224= (V228);}          V240= number_plus(/* INLINE-ARGS */V245,V246);
1325            V239= (V244);}
1326          goto T421;}          goto T421;}
1327          return Cnil;          return Cnil;
1328  }  }
# Line 1315  static void L38() Line 1332  static void L38()
1332  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
1333          register object *VOL sup=base+VM31; VC31          register object *VOL sup=base+VM31; VC31
1334          vs_check;          vs_check;
1335          {VOL object V230;          {VOL object V247;
1336          VOL object V231;          VOL object V248;
1337          V230=(base[0]);          V247=(base[0]);
1338          V231=(base[1]);          V248=(base[1]);
1339          vs_top=sup;          vs_top=sup;
1340          goto TTL;          goto TTL;
1341  TTL:;  TTL:;
# Line 1327  TTL:; Line 1344  TTL:;
1344          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
1345          return;}          return;}
1346          else{          else{
1347          base[2]= (V230);          base[2]= (V247);
1348          base[3]= (V231);          base[3]= (V248);
1349          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1350          (void) (*Lnk349)();          (void) (*Lnk349)();
1351          frs_pop();          frs_pop();
# Line 1341  static void L39() Line 1358  static void L39()
1358  {register object *base=vs_base;  {register object *base=vs_base;
1359          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1360          vs_check;          vs_check;
1361          {object V232;          {object V249;
1362          V232=(base[0]);          V249=(base[0]);
1363          vs_top=sup;          vs_top=sup;
1364          goto TTL;          goto TTL;
1365  TTL:;  TTL:;
1366          base[2]= (V232);          base[2]= (V249);
1367          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1368          Lconstantp();          Lconstantp();
1369          vs_top=sup;          vs_top=sup;
# Line 1357  TTL:; Line 1374  TTL:;
1374          return;          return;
1375          goto T438;          goto T438;
1376  T438:;  T438:;
1377          if(!(type_of((V232))==t_symbol)){          if(!(type_of((V249))==t_symbol)){
1378          goto T442;}          goto T442;}
1379          {object V233;          {object V250;
1380          object V234;          object V251;
1381          base[2]= (V232);          base[2]= (V249);
1382          base[3]= base[1];          base[3]= base[1];
1383          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1384          Lmacroexpand_1();          Lmacroexpand_1();
1385          if(vs_base>=vs_top){vs_top=sup;goto T447;}          if(vs_base>=vs_top){vs_top=sup;goto T447;}
1386          V233= vs_base[0];          V250= vs_base[0];
1387          vs_base++;          vs_base++;
1388          if(vs_base>=vs_top){vs_top=sup;goto T448;}          if(vs_base>=vs_top){vs_top=sup;goto T448;}
1389          V234= vs_base[0];          V251= vs_base[0];
1390          vs_top=sup;          vs_top=sup;
1391          goto T449;          goto T449;
1392          goto T447;          goto T447;
1393  T447:;  T447:;
1394          V233= Cnil;          V250= Cnil;
1395          goto T448;          goto T448;
1396  T448:;  T448:;
1397          V234= Cnil;          V251= Cnil;
1398          goto T449;          goto T449;
1399  T449:;  T449:;
1400          if(((V234))==Cnil){          if(((V251))==Cnil){
1401          goto T451;}          goto T451;}
1402          V232= (V233);          V249= (V250);
1403          goto TTL;          goto TTL;
1404          goto T451;          goto T451;
1405  T451:;  T451:;
# Line 1391  T451:; Line 1408  T451:;
1408          return;}          return;}
1409          goto T442;          goto T442;
1410  T442:;  T442:;
1411          if(!(type_of((V232))!=t_cons)){          if(!(type_of((V249))!=t_cons)){
1412          goto T457;}          goto T457;}
1413          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1414          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1415          return;          return;
1416          goto T457;          goto T457;
1417  T457:;  T457:;
1418          if(!(type_of(CMPcar((V232)))==t_symbol)){          if(!(type_of(CMPcar((V249)))==t_symbol)){
1419          goto T460;}          goto T460;}
1420          {object V235;          {object V252;
1421          object V236;          object V253;
1422          register long V237;          register long V254;
1423          V235= CMPcar((V232));          V252= CMPcar((V249));
1424          V237= 0;          V254= 0;
1425          V236= Cnil;          V253= Cnil;
1426          {object V238 =((V235))->s.s_plist;          {object V255 =((V252))->s.s_plist;
1427           object ind= VV[77];           object ind= VV[77];
1428          while(V238!=Cnil){          while(V255!=Cnil){
1429          if(V238->c.c_car==ind){          if(V255->c.c_car==ind){
1430          V236= (V238->c.c_cdr->c.c_car);          V253= (V255->c.c_cdr->c.c_car);
1431          goto T467;          goto T467;
1432          }else V238=V238->c.c_cdr->c.c_cdr;}          }else V255=V255->c.c_cdr->c.c_cdr;}
1433          V236= Cnil;}          V253= Cnil;}
1434          goto T467;          goto T467;
1435  T467:;  T467:;
1436          if(((V236))==Cnil){          if(((V253))==Cnil){
1437          goto T465;}          goto T465;}
1438          if(!(type_of(V236)==t_fixnum)){          if(!(type_of(V253)==t_fixnum)){
1439          goto T469;}          goto T469;}
1440          base[2]= CMPcdr((V232));          V257 = fix((V253));
1441            base[2]= CMPcdr((V249));
1442          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1443          L40(base);          L40(base);
1444          vs_top=sup;          vs_top=sup;
1445          V240= fix(vs_base[0]);          V258= fix(vs_base[0]);
1446          base[2]= CMPmake_fixnum((long)(fix((V236)))+(V240));          base[2]= CMPmake_fixnum((long)(V257)+(V258));
1447          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1448          return;          return;
1449          goto T469;          goto T469;
1450  T469:;  T469:;
1451          base[2]= (V232);          base[2]= (V249);
1452          base[3]= base[1];          base[3]= base[1];
1453          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1454          super_funcall_no_event((V236));          super_funcall_no_event((V253));
1455          return;          return;
1456          goto T465;          goto T465;
1457  T465:;  T465:;
1458          {register object x= (V235),V241= (VV[78]->s.s_dbind);          {register object x= (V252),V259= (VV[78]->s.s_dbind);
1459          while(V241!=Cnil)          while(V259!=Cnil)
1460          if(eql(x,V241->c.c_car->c.c_car) &&V241->c.c_car != Cnil){          if(eql(x,V259->c.c_car->c.c_car) &&V259->c.c_car != Cnil){
1461          V236= (V241->c.c_car);          V253= (V259->c.c_car);
1462          goto T478;          goto T478;
1463          }else V241=V241->c.c_cdr;          }else V259=V259->c.c_cdr;
1464          V236= Cnil;}          V253= Cnil;}
1465          goto T478;          goto T478;
1466  T478:;  T478:;
1467          if(((V236))==Cnil){          if(((V253))==Cnil){
1468          goto T476;}          goto T476;}
1469          {long V242= fix(CMPcadr((V236)));          {long V260= fix(CMPcadr((V253)));
1470          base[2]= CMPcdr((V232));          base[2]= CMPcdr((V249));
1471          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1472          L40(base);          L40(base);
1473          vs_top=sup;          vs_top=sup;
1474          V243= fix(vs_base[0]);          V261= fix(vs_base[0]);
1475          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V242)+(V243));          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V260)+(V261));
1476          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1477          return;}          return;}
1478          goto T476;          goto T476;
1479  T476:;  T476:;
1480          if(!(((V235))==(VV[79]))){          if(!(((V252))==(VV[79]))){
1481          goto T482;}          goto T482;}
1482          {register object V244;          {register object V262;
1483          object V245;          object V263;
1484          V244= CMPcdr((V232));          V262= CMPcdr((V249));
1485          V245= CMPcar((V244));          V263= CMPcar((V262));
1486          goto T487;          goto T487;
1487  T487:;  T487:;
1488          if(!(((V244))==Cnil)){          if(!(((V262))==Cnil)){
1489          goto T488;}          goto T488;}
1490          base[4]= CMPmake_fixnum(V237);          base[4]= CMPmake_fixnum(V254);
1491          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1492          return;          return;
1493          goto T488;          goto T488;
1494  T488:;  T488:;
1495          V246 = CMPmake_fixnum(V237);          V264 = CMPmake_fixnum(V254);
1496          base[4]= (V245);          base[4]= (V263);
1497          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1498          L40(base);          L40(base);
1499          vs_top=sup;          vs_top=sup;
1500          V247= vs_base[0];          V265= vs_base[0];
1501          V237= fix(number_plus(V246,V247));          V254= fix(number_plus(V264,V265));
1502          V237= (long)(V237)+(1);          V254= (long)(V254)+(1);
1503          V244= CMPcdr((V244));          V262= CMPcdr((V262));
1504          V245= CMPcar((V244));          V263= CMPcar((V262));
1505          goto T487;}          goto T487;}
1506          goto T482;          goto T482;
1507  T482:;  T482:;
1508          if(!(((V235))==(VV[80]))){          if(!(((V252))==(VV[80]))){
1509          goto T504;}          goto T504;}
1510          {register object V248;          {register object V266;
1511          V248= CMPcdr((V232));          V266= CMPcdr((V249));
1512          goto T508;          goto T508;
1513  T508:;  T508:;
1514          if(((V248))!=Cnil){          if(((V266))!=Cnil){
1515          goto T509;}          goto T509;}
1516          base[2]= CMPmake_fixnum(V237);          base[2]= CMPmake_fixnum(V254);
1517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1518          return;          return;
1519          goto T509;          goto T509;
1520  T509:;  T509:;
1521          base[2]= CMPmake_fixnum(V237);          base[2]= CMPmake_fixnum(V254);
1522          base[3]= (*(LnkLI348))(CMPcar((V248)));          base[3]= (*(LnkLI348))(CMPcar((V266)));
1523          base[5]= CMPcadr((V248));          base[5]= CMPcadr((V266));
1524          base[6]= base[1];          base[6]= base[1];
1525          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1526          (void) (*Lnk349)();          (void) (*Lnk349)();
# Line 1511  T509:; Line 1529  T509:;
1529          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1530          Lplus();          Lplus();
1531          vs_top=sup;          vs_top=sup;
1532          V237= fix(vs_base[0]);          V254= fix(vs_base[0]);
1533          V248= CMPcdr((V248));          V266= CMPcdr((V266));
1534          goto T508;}          goto T508;}
1535          goto T504;          goto T504;
1536  T504:;  T504:;
1537          {register object x= (V235),V249= VV[81];          {register object x= (V252),V267= VV[81];
1538          while(V249!=Cnil)          while(V267!=Cnil)
1539          if(eql(x,V249->c.c_car)){          if(eql(x,V267->c.c_car)){
1540          goto T525;          goto T525;
1541          }else V249=V249->c.c_cdr;          }else V267=V267->c.c_cdr;
1542          goto T524;}          goto T524;}
1543          goto T525;          goto T525;
1544  T525:;  T525:;
1545          {register object V250;          {register object V268;
1546          V250= CMPcdr((V232));          V268= CMPcdr((V249));
1547          goto T528;          goto T528;
1548  T528:;  T528:;
1549          if(((V250))!=Cnil){          if(((V268))!=Cnil){
1550          goto T529;}          goto T529;}
1551          base[2]= CMPmake_fixnum(V237);          base[2]= CMPmake_fixnum(V254);
1552          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1553          return;          return;
1554          goto T529;          goto T529;
1555  T529:;  T529:;
1556          base[2]= CMPmake_fixnum(V237);          base[2]= CMPmake_fixnum(V254);
1557          base[4]= CMPcadr((V250));          base[4]= CMPcadr((V268));
1558          base[5]= base[1];          base[5]= base[1];
1559          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1560          (void) (*Lnk349)();          (void) (*Lnk349)();
# Line 1546  T529:; Line 1564  T529:;
1564          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1565          Lplus();          Lplus();
1566          vs_top=sup;          vs_top=sup;
1567          V237= fix(vs_base[0]);          V254= fix(vs_base[0]);
1568          V250= CMPcdr((V250));          V268= CMPcdr((V268));
1569          goto T528;}          goto T528;}
1570          goto T524;          goto T524;
1571  T524:;  T524:;
1572          if(!(((V235))==(VV[82]))){          if(!(((V252))==(VV[82]))){
1573          goto T544;}          goto T544;}
1574          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1575          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1576          return;          return;
1577          goto T544;          goto T544;
1578  T544:;  T544:;
1579          if(!(((V235))==(VV[83]))){          if(!(((V252))==(VV[83]))){
1580          goto T547;}          goto T547;}
1581          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1582          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1583          return;          return;
1584          goto T547;          goto T547;
1585  T547:;  T547:;
1586          if(!(((V235))==(VV[84]))){          if(!(((V252))==(VV[84]))){
1587          goto T550;}          goto T550;}
1588          {long V251= (long)length(CMPcadr((V232)));          {long V269= (long)length(CMPcadr((V249)));
1589          base[2]= CMPcddr((V232));          base[2]= CMPcddr((V249));
1590          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1591          L40(base);          L40(base);
1592          vs_top=sup;          vs_top=sup;
1593          V252= fix(vs_base[0]);          V270= fix(vs_base[0]);
1594          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V251)+(V252));          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V269)+(V270));
1595          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1596          return;}          return;}
1597          goto T550;          goto T550;
1598  T550:;  T550:;
1599          if(!(((V235))==(VV[85]))){          if(!(((V252))==(VV[85]))){
1600          goto T555;}          goto T555;}
1601          base[2]= CMPcaddr((V232));          base[2]= CMPcaddr((V249));
1602          base[3]= base[1];          base[3]= base[1];
1603          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1604          (void) (*Lnk349)();          (void) (*Lnk349)();
1605          vs_top=sup;          vs_top=sup;
1606          V253= vs_base[0];          V271= vs_base[0];
1607          base[2]= one_plus(V253);          base[2]= one_plus(V271);
1608          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1609          return;          return;
1610          goto T555;          goto T555;
1611  T555:;  T555:;
1612          base[2]= (V235);          base[2]= (V252);
1613          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1614          (void) (*Lnk350)();          (void) (*Lnk350)();
1615          vs_top=sup;          vs_top=sup;
1616          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1617          goto T560;}          goto T560;}
1618          {register object x= (V235),V254= (VV[86]->s.s_dbind);          {register object x= (V252),V272= (VV[86]->s.s_dbind);
1619          while(V254!=Cnil)          while(V272!=Cnil)
1620          if(eql(x,V254->c.c_car)){          if(eql(x,V272->c.c_car)){
1621          goto T565;          goto T565;
1622          }else V254=V254->c.c_cdr;          }else V272=V272->c.c_cdr;
1623          goto T561;}          goto T561;}
1624          goto T565;          goto T565;
1625  T565:;  T565:;
# Line 1615  T560:; Line 1633  T560:;
1633          unwind(fr,VV[77]);}          unwind(fr,VV[77]);}
1634          goto T561;          goto T561;
1635  T561:;  T561:;
1636          {object V255;          {object V273;
1637          object V256;          object V274;
1638          base[2]= (V232);          base[2]= (V249);
1639          base[3]= base[1];          base[3]= base[1];
1640          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1641          Lmacroexpand_1();          Lmacroexpand_1();
1642          if(vs_base>=vs_top){vs_top=sup;goto T570;}          if(vs_base>=vs_top){vs_top=sup;goto T570;}
1643          V255= vs_base[0];          V273= vs_base[0];
1644          vs_base++;          vs_base++;
1645          if(vs_base>=vs_top){vs_top=sup;goto T571;}          if(vs_base>=vs_top){vs_top=sup;goto T571;}
1646          V256= vs_base[0];          V274= vs_base[0];
1647          vs_top=sup;          vs_top=sup;
1648          goto T572;          goto T572;
1649          goto T570;          goto T570;
1650  T570:;  T570:;
1651          V255= Cnil;          V273= Cnil;
1652          goto T571;          goto T571;
1653  T571:;  T571:;
1654          V256= Cnil;          V274= Cnil;
1655          goto T572;          goto T572;
1656  T572:;  T572:;
1657          if(((V256))==Cnil){          if(((V274))==Cnil){
1658          goto T574;}          goto T574;}
1659          V232= (V255);          V249= (V273);
1660          goto TTL;          goto TTL;
1661          goto T574;          goto T574;
1662  T574:;  T574:;
1663          base[2]= CMPcdr((V232));          base[2]= CMPcdr((V249));
1664          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1665          L40(base);          L40(base);
1666          vs_top=sup;          vs_top=sup;
1667          V257= fix(vs_base[0]);          V275= fix(vs_base[0]);
1668          base[2]= CMPmake_fixnum((long)(3)+(V257));          base[2]= CMPmake_fixnum((long)(3)+(V275));
1669          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1670          return;}}          return;}}
1671          goto T460;          goto T460;
# Line 1667  static object LI41() Line 1685  static object LI41()
1685  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1686          goto TTL;          goto TTL;
1687  TTL:;  TTL:;
1688          {register object V258;          {register object V276;
1689          register object V259;          register object V277;
1690          V258= (VV[87]->s.s_dbind);          V276= (VV[87]->s.s_dbind);
1691          V259= Cnil;          V277= Cnil;
1692          goto T583;          goto T583;
1693  T583:;  T583:;
1694          if(!(((V258))==(CMPcdr((VV[88]->s.s_dbind))))){          if(!(((V276))==(CMPcdr((VV[88]->s.s_dbind))))){
1695          goto T584;}          goto T584;}
1696          {object V260 = nreverse((V259));          {object V278 = nreverse((V277));
1697          VMR33(V260)}          VMR33(V278)}
1698          goto T584;          goto T584;
1699  T584:;  T584:;
1700          {object V261;          {object V279;
1701          V261= CMPcdr((V258));          V279= CMPcdr((V276));
1702          V259= make_cons(CMPcar((V258)),(V259));          V277= make_cons(CMPcar((V276)),(V277));
1703          V258= (V261);}          V276= (V279);}
1704          goto T583;}          goto T583;}
1705          return Cnil;          return Cnil;
1706  }  }
# Line 1692  static void L42() Line 1710  static void L42()
1710  {register object *base=vs_base;  {register object *base=vs_base;
1711          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1712          vs_check;          vs_check;
1713          {object V262;          {object V280;
1714          object V263;          object V281;
1715          V262=(base[0]);          V280=(base[0]);
1716          vs_base=vs_base+1;          vs_base=vs_base+1;
1717          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1718          {object *p=vs_top;          {object *p=vs_top;
1719           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1720          V263=(base[1]);          V281=(base[1]);
1721          vs_top=sup;          vs_top=sup;
1722          base[2]= VV[89];          base[2]= VV[89];
1723          base[3]= VV[90];          base[3]= VV[90];
1724          base[4]= (V262);          base[4]= (V280);
1725          base[5]= (V263);          base[5]= (V281);
1726          base[6]= (*(LnkLI351))();          base[6]= (*(LnkLI351))();
1727          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1728          (void) (*Lnk352)();          (void) (*Lnk352)();
# Line 1713  static void L42() Line 1731  static void L42()
1731  }  }
1732  /*      local entry for function LOOP-WARN      */  /*      local entry for function LOOP-WARN      */
1733    
1734  static object LI43(object V264,object first,...)  static object LI43(object V282,object first,...)
1735  {        {      
1736          va_list ap;          va_list ap;
1737          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
1738          {object V265;          {object V283;
1739          object V266;          object V284;
1740          va_start(ap,first);          va_start(ap,first);
1741          V265= V264;          V283= V282;
1742          narg= narg - 1;          narg= narg - 1;
1743          V267 = list_vector_new(narg,first,ap);          V285 = list_vector_new(narg,first,ap);
1744          V266= V267;          V284= V285;
1745          base[0]= VV[91];          base[0]= VV[91];
1746          base[1]= (V265);          base[1]= (V283);
1747          base[2]= (V266);          base[2]= (V284);
1748          base[3]= (*(LnkLI351))();          base[3]= (*(LnkLI351))();
1749          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1750          (void) (*Lnk353)();          (void) (*Lnk353)();
1751          vs_top=sup;          vs_top=sup;
1752          {object V268 = vs_base[0];          {object V286 = vs_base[0];
1753          VMR35(V268)}          VMR35(V286)}
1754          va_end(ap);          va_end(ap);
1755          base[0]=base[0];          base[0]=base[0];
1756          return Cnil;}          return Cnil;}
1757          }          }
1758  /*      local entry for function LOOP-CHECK-DATA-TYPE   */  /*      local entry for function LOOP-CHECK-DATA-TYPE   */
1759    
1760  static object LI44(object V270,object V269,object first,...)  static object LI44(object V288,object V287,object first,...)
1761  {        {      
1762          va_list ap;          va_list ap;
1763          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
1764          {register object V271;          {register object V289;
1765          register object V272;          register object V290;
1766          object V273;          object V291;
1767          va_start(ap,first);          va_start(ap,first);
1768          V271= V270;          V289= V288;
1769          V272= V269;          V290= V287;
1770          narg = narg - 2;          narg = narg - 2;
1771          if (narg <= 0) goto T601;          if (narg <= 0) goto T601;
1772          else {          else {
1773          V273= first;}          V291= first;}
1774          --narg; goto T602;          --narg; goto T602;
1775          goto T601;          goto T601;
1776  T601:;  T601:;
1777          V273= (V272);          V291= (V290);
1778          goto T602;          goto T602;
1779  T602:;  T602:;
1780          if(((V271))!=Cnil){          if(((V289))!=Cnil){
1781          goto T605;}          goto T605;}
1782          {object V274 = (V273);          {object V292 = (V291);
1783          VMR36(V274)}          VMR36(V292)}
1784          goto T605;          goto T605;
1785  T605:;  T605:;
1786          {object V275;          {object V293;
1787          object V276;          object V294;
1788          base[0]= (V271);          base[0]= (V289);
1789          base[1]= (V272);          base[1]= (V290);
1790          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1791          (void) (*Lnk333)();          (void) (*Lnk333)();
1792          if(vs_base>=vs_top){vs_top=sup;goto T610;}          if(vs_base>=vs_top){vs_top=sup;goto T610;}
1793          V275= vs_base[0];          V293= vs_base[0];
1794          vs_base++;          vs_base++;
1795          if(vs_base>=vs_top){vs_top=sup;goto T611;}          if(vs_base>=vs_top){vs_top=sup;goto T611;}
1796          V276= vs_base[0];          V294= vs_base[0];
1797          vs_top=sup;          vs_top=sup;
1798          goto T612;          goto T612;
1799          goto T610;          goto T610;
1800  T610:;  T610:;
1801          V275= Cnil;          V293= Cnil;
1802          goto T611;          goto T611;
1803  T611:;  T611:;
1804          V276= Cnil;          V294= Cnil;
1805          goto T612;          goto T612;
1806  T612:;  T612:;
1807          if(((V276))!=Cnil){          if(((V294))!=Cnil){
1808          goto T615;}          goto T615;}
1809          (void)((VFUN_NARGS=3,(*(LnkLI345))(VV[92],(V271),(V272))));          (void)((VFUN_NARGS=3,(*(LnkLI345))(VV[92],(V289),(V290))));
1810          goto T613;          goto T613;
1811          goto T615;          goto T615;
1812  T615:;  T615:;
1813          if(((V275))!=Cnil){          if(((V293))!=Cnil){
1814          goto T613;}          goto T613;}
1815          base[0]= VV[93];          base[0]= VV[93];
1816          base[1]= (V271);          base[1]= (V289);
1817          base[2]= (V272);          base[2]= (V290);
1818          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1819          (void) (*Lnk354)();          (void) (*Lnk354)();
1820          vs_top=sup;          vs_top=sup;
1821          goto T613;          goto T613;
1822  T613:;  T613:;
1823          {object V277 = (V271);          {object V295 = (V289);
1824          VMR36(V277)}}          VMR36(V295)}}
1825          va_end(ap);          va_end(ap);
1826          base[0]=base[0];          base[0]=base[0];
1827          return Cnil;}          return Cnil;}
# Line 1821  static void L45() Line 1839  static void L45()
1839  }  }
1840  /*      local entry for function SUBST-GENSYMS-FOR-NIL  */  /*      local entry for function SUBST-GENSYMS-FOR-NIL  */
1841    
1842  static object LI46(V280)  static object LI46(V298)
1843    
1844  register object V280;  register object V298;
1845  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
1846          goto TTL;          goto TTL;
1847  TTL:;  TTL:;
1848          if(((V280))!=Cnil){          if(((V298))!=Cnil){
1849          goto T623;}          goto T623;}
1850          {object V282;          {object V300;
1851          V282= (VFUN_NARGS=0,(*(LnkLI335))());          V300= (VFUN_NARGS=0,(*(LnkLI335))());
1852          (VV[95]->s.s_dbind)= make_cons((V282),(VV[95]->s.s_dbind));          (VV[95]->s.s_dbind)= make_cons((V300),(VV[95]->s.s_dbind));
1853          V281= (VV[95]->s.s_dbind);}          V299= (VV[95]->s.s_dbind);}
1854          {object V283 = CMPcar(V281);          {object V301 = CMPcar(V299);
1855          VMR38(V283)}          VMR38(V301)}
1856          goto T623;          goto T623;
1857  T623:;  T623:;
1858          if(!(type_of((V280))!=t_cons)){          if(!(type_of((V298))!=t_cons)){
1859          goto T629;}          goto T629;}
1860          {object V284 = (V280);          {object V302 = (V298);
1861          VMR38(V284)}          VMR38(V302)}
1862          goto T629;          goto T629;
1863  T629:;  T629:;
1864          V285= (*(LnkLI355))(CMPcar((V280)));          V303= (*(LnkLI355))(CMPcar((V298)));
1865          V286= (*(LnkLI355))(CMPcdr((V280)));          V304= (*(LnkLI355))(CMPcdr((V298)));
1866          {object V287 = make_cons(/* INLINE-ARGS */V285,/* INLINE-ARGS */V286);          {object V305 = make_cons(/* INLINE-ARGS */V303,/* INLINE-ARGS */V304);
1867          VMR38(V287)}          VMR38(V305)}
1868          base[0]=base[0];          base[0]=base[0];
1869          return Cnil;          return Cnil;
1870  }  }
1871  /*      local entry for function LOOP-BUILD-DESTRUCTURING-BINDINGS      */  /*      local entry for function LOOP-BUILD-DESTRUCTURING-BINDINGS      */
1872    
1873  static object LI47(V290,V291)  static object LI47(V308,V309)
1874    
1875  register object V290;object V291;  register object V308;object V309;
1876  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
1877          bds_check;          bds_check;
1878          goto TTL;          goto TTL;
1879  TTL:;  TTL:;
1880          if(((V290))==Cnil){          if(((V308))==Cnil){
1881          goto T632;}          goto T632;}
1882          bds_bind(VV[95],Cnil);          bds_bind(VV[95],Cnil);
1883          V292= (*(LnkLI355))(CMPcar((V290)));          V310= (*(LnkLI355))(CMPcar((V308)));
1884          V293= CMPcadr((V290));          V311= CMPcadr((V308));
1885          V294= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind)));          V312= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind)));
1886          V295= listA(5,VV[96],/* INLINE-ARGS */V292,/* INLINE-ARGS */V293,/* INLINE-ARGS */V294,(*(LnkLI356))(CMPcddr((V290)),(V291)));          V313= listA(5,VV[96],/* INLINE-ARGS */V310,/* INLINE-ARGS */V311,/* INLINE-ARGS */V312,(*(LnkLI356))(CMPcddr((V308)),(V309)));
1887          {object V296 = make_cons(/* INLINE-ARGS */V295,Cnil);          {object V314 = make_cons(/* INLINE-ARGS */V313,Cnil);
1888          bds_unwind1;          bds_unwind1;
1889          VMR39(V296)}          VMR39(V314)}
1890          goto T632;          goto T632;
1891  T632:;  T632:;
1892          {object V297 = (V291);          {object V315 = (V309);
1893          VMR39(V297)}          VMR39(V315)}
1894          base[0]=base[0];          base[0]=base[0];
1895          return Cnil;          return Cnil;
1896  }  }
1897  /*      local entry for function LOOP-TRANSLATE */  /*      local entry for function LOOP-TRANSLATE */
1898    
1899  static object LI48(V301,V302,V303)  static object LI48(V319,V320,V321)
1900    
1901  object V301;object V302;object V303;  object V319;object V320;object V321;
1902  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
1903          bds_check;          bds_check;
1904          goto TTL;          goto TTL;
1905  TTL:;  TTL:;
1906          bds_bind(VV[99],V303);          bds_bind(VV[99],V321);
1907          bds_bind(VV[98],V302);          bds_bind(VV[98],V320);
1908          bds_bind(VV[88],V301);          bds_bind(VV[88],V319);
1909          bds_bind(VV[100],(VV[88]->s.s_dbind));          bds_bind(VV[100],(VV[88]->s.s_dbind));
1910          bds_bind(VV[87],Cnil);          bds_bind(VV[87],Cnil);
1911          bds_bind(VV[101],Cnil);          bds_bind(VV[101],Cnil);
# Line 1913  TTL:; Line 1931  TTL:;
1931          bds_bind(VV[121],Cnil);          bds_bind(VV[121],Cnil);
1932          (void)((*(LnkLI357))());          (void)((*(LnkLI357))());
1933          (void)((*(LnkLI358))());          (void)((*(LnkLI358))());
1934          {register object V304;          {register object V322;
1935          V305= nreverse((VV[108]->s.s_dbind));          V323= nreverse((VV[108]->s.s_dbind));
1936          V306= nreverse((VV[110]->s.s_dbind));          V324= nreverse((VV[110]->s.s_dbind));
1937          V307= nreverse((VV[111]->s.s_dbind));          V325= nreverse((VV[111]->s.s_dbind));
1938          V308= nreverse((VV[113]->s.s_dbind));          V326= nreverse((VV[113]->s.s_dbind));
1939          base[23]= (VV[114]->s.s_dbind);          base[23]= (VV[114]->s.s_dbind);
1940          base[24]= nreverse((VV[115]->s.s_dbind));          base[24]= nreverse((VV[115]->s.s_dbind));
1941          vs_top=(vs_base=base+23)+2;          vs_top=(vs_base=base+23)+2;
1942          Lreconc();          Lreconc();
1943          vs_top=sup;          vs_top=sup;
1944          V309= vs_base[0];          V327= vs_base[0];
1945          V304= list(6,VV[122],/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,/* INLINE-ARGS */V307,/* INLINE-ARGS */V308,V309);          V322= list(6,VV[122],/* INLINE-ARGS */V323,/* INLINE-ARGS */V324,/* INLINE-ARGS */V325,/* INLINE-ARGS */V326,V327);
1946          {register object V310;          {register object V328;
1947          register object V311;          register object V329;
1948          V310= (VV[107]->s.s_dbind);          V328= (VV[107]->s.s_dbind);
1949          V311= CMPcar((V310));          V329= CMPcar((V328));
1950          goto T644;          goto T644;
1951  T644:;  T644:;
1952          if(!(((V310))==Cnil)){          if(!(((V328))==Cnil)){
1953          goto T645;}          goto T645;}
1954          goto T640;          goto T640;
1955          goto T645;          goto T645;
1956  T645:;  T645:;
1957          {object V312;          {object V330;
1958          object V313;          object V331;
1959          object V314;          object V332;
1960          object V315;          object V333;
1961          V312= CMPcar((V311));          V330= CMPcar((V329));
1962          V313= CMPcadr((V311));          V331= CMPcadr((V329));
1963          V314= CMPcaddr((V311));          V332= CMPcaddr((V329));
1964          V315= CMPcadddr((V311));          V333= CMPcadddr((V329));
1965          {register object V316;          {register object V334;
1966          register object V317;          register object V335;
1967          V316= (V315);          V334= (V333);
1968          V317= CMPcar((V316));          V335= CMPcar((V334));
1969          goto T658;          goto T658;
1970  T658:;  T658:;
1971          if(!(((V316))==Cnil)){          if(!(((V334))==Cnil)){
1972          goto T659;}          goto T659;}
1973          goto T654;          goto T654;
1974          goto T659;          goto T659;
1975  T659:;  T659:;
1976          V318= make_cons((V304),Cnil);          V336= make_cons((V322),Cnil);
1977          V304= append((V317),/* INLINE-ARGS */V318);          V322= append((V335),/* INLINE-ARGS */V336);
1978          V316= CMPcdr((V316));          V334= CMPcdr((V334));
1979          V317= CMPcar((V316));          V335= CMPcar((V334));
1980          goto T658;}          goto T658;}
1981          goto T654;          goto T654;
1982  T654:;  T654:;
1983          if(((V312))!=Cnil){          if(((V330))!=Cnil){
1984          goto T670;}          goto T670;}
1985          if(((V313))!=Cnil){          if(((V331))!=Cnil){
1986          goto T670;}          goto T670;}
1987          if(((V314))==Cnil){          if(((V332))==Cnil){
1988          goto T649;}          goto T649;}
1989          goto T670;          goto T670;
1990  T670:;  T670:;
1991          {object V319;          {object V337;
1992          V319= make_cons((V304),Cnil);          V337= make_cons((V322),Cnil);
1993          if(((V313))==Cnil){          if(((V331))==Cnil){
1994          goto T677;}          goto T677;}
1995          {object V320;          {object V338;
1996          V320= make_cons(VV[30],(V313));          V338= make_cons(VV[30],(V331));
1997          V319= make_cons((V320),(V319));}          V337= make_cons((V338),(V337));}
1998          goto T677;          goto T677;
1999  T677:;  T677:;
2000          if(((V312))!=Cnil){          if(((V330))!=Cnil){
2001          goto T685;}          goto T685;}
2002          V321= VV[123];          V339= VV[123];
2003          goto T683;          goto T683;
2004          goto T685;          goto T685;
2005  T685:;  T685:;
2006          if(((VV[63]->s.s_dbind))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
2007          goto T688;}          goto T688;}
2008          V321= CMPcar((VV[63]->s.s_dbind));          V339= CMPcar((VV[63]->s.s_dbind));
2009          goto T683;          goto T683;
2010          goto T688;          goto T688;
2011  T688:;  T688:;
2012          V321= VV[29];          V339= VV[29];
2013          goto T683;          goto T683;
2014  T683:;  T683:;
2015          V304= listA(3,V321,(V312),(*(LnkLI356))((V314),(V319)));}}          V340 = (V330);
2016            V322= listA(3,V339,V340,(*(LnkLI356))((V332),(V337)));}}
2017          goto T649;          goto T649;
2018  T649:;  T649:;
2019          V310= CMPcdr((V310));          V328= CMPcdr((V328));
2020          V311= CMPcar((V310));          V329= CMPcar((V328));
2021          goto T644;}          goto T644;}
2022          goto T640;          goto T640;
2023  T640:;  T640:;
# Line 2008  T640:; Line 2027  T640:;
2027  T699:;  T699:;
2028          if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){          if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){
2029          goto T700;}          goto T700;}
2030          {object V322 = (V304);          {object V341 = (V322);
2031          bds_unwind1;          bds_unwind1;
2032          bds_unwind1;          bds_unwind1;
2033          bds_unwind1;          bds_unwind1;
# Line 2035  T699:; Line 2054  T699:;
2054          bds_unwind1;          bds_unwind1;
2055          bds_unwind1;          bds_unwind1;
2056          bds_unwind1;          bds_unwind1;
2057          VMR40(V322)}          VMR40(V341)}
2058          goto T700;          goto T700;
2059  T700:;  T700:;
2060          {object V324;          {object V343;
2061          V324= CMPcar((VV[120]->s.s_dbind));          V343= CMPcar((VV[120]->s.s_dbind));
2062          (VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind));          (VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind));
2063          V323= (V324);}          V342= (V343);}
2064          V304= list(3,VV[124],V323,(V304));          V344 = (V322);
2065            V322= list(3,VV[124],V342,V344);
2066          goto T699;          goto T699;
2067          goto T696;          goto T696;
2068  T696:;  T696:;
2069          {object V325 = list(3,VV[124],Cnil,(V304));          {object V345 = list(3,VV[124],Cnil,(V322));
2070          bds_unwind1;          bds_unwind1;
2071          bds_unwind1;          bds_unwind1;
2072          bds_unwind1;          bds_unwind1;
# Line 2073  T696:; Line 2093  T696:;
2093          bds_unwind1;          bds_unwind1;
2094          bds_unwind1;          bds_unwind1;
2095          bds_unwind1;          bds_unwind1;
2096          VMR40(V325)}}          VMR40(V345)}}
2097          base[0]=base[0];          base[0]=base[0];
2098          return Cnil;          return Cnil;
2099  }  }
# Line 2088  TTL:; Line 2108  TTL:;
2108  T713:;  T713:;
2109          if(((VV[88]->s.s_dbind))!=Cnil){          if(((VV[88]->s.s_dbind))!=Cnil){
2110          goto T714;}          goto T714;}
2111          {object V326 = Cnil;          {object V346 = Cnil;
2112          VMR41(V326)}          VMR41(V346)}
2113          goto T714;          goto T714;
2114  T714:;  T714:;
2115          {register object V327;          {register object V347;
2116          register object V328;          register object V348;
2117          V327= CMPcar((VV[88]->s.s_dbind));          V347= CMPcar((VV[88]->s.s_dbind));
2118          V328= Cnil;          V348= Cnil;
2119          if(type_of((V327))==t_symbol){          if(type_of((V347))==t_symbol){
2120          goto T721;}          goto T721;}
2121          base[0]= VV[125];          base[0]= VV[125];
2122          base[1]= (V327);          base[1]= (V347);
2123          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2124          (void) (*Lnk354)();          (void) (*Lnk354)();
2125          vs_top=sup;          vs_top=sup;
# Line 2110  T721:; Line 2130  T721:;
2130          vs_base=vs_top;          vs_base=vs_top;
2131          (void) (*Lnk359)();          (void) (*Lnk359)();
2132          vs_top=sup;          vs_top=sup;
2133          V328= (*(LnkLI360))((V327),STREF(object,(VV[99]->s.s_dbind),0));          V348= (*(LnkLI360))((V347),STREF(object,(VV[99]->s.s_dbind),0));
2134          if(((V328))==Cnil){          if(((V348))==Cnil){
2135          goto T729;}          goto T729;}
2136          base[1]= CMPcar((V328));          base[1]= CMPcar((V348));
2137          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2138          Lsymbol_function();          Lsymbol_function();
2139          vs_top=sup;          vs_top=sup;
2140          base[0]= vs_base[0];          base[0]= vs_base[0];
2141          {object V329;          {object V349;
2142          V329= CMPcdr((V328));          V349= CMPcdr((V348));
2143           vs_top=base+1;           vs_top=base+1;
2144           while(V329!=Cnil)           while(V349!=Cnil)
2145           {vs_push((V329)->c.c_car);V329=(V329)->c.c_cdr;}           {vs_push((V349)->c.c_car);V349=(V349)->c.c_cdr;}
2146          vs_base=base+1;}          vs_base=base+1;}
2147          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2148          vs_top=sup;          vs_top=sup;
2149          goto T718;          goto T718;
2150          goto T729;          goto T729;
2151  T729:;  T729:;
2152          V328= (*(LnkLI360))((V327),STREF(object,(VV[99]->s.s_dbind),4));          V348= (*(LnkLI360))((V347),STREF(object,(VV[99]->s.s_dbind),4));
2153          if(((V328))==Cnil){          if(((V348))==Cnil){
2154          goto T736;}          goto T736;}
2155          (void)((*(LnkLI361))((V328)));          (void)((*(LnkLI361))((V348)));
2156          goto T718;          goto T718;
2157          goto T736;          goto T736;
2158  T736:;  T736:;
2159          if(((*(LnkLI362))((V327),VV[126]))==Cnil){          if(((*(LnkLI362))((V347),VV[126]))==Cnil){
2160          goto T740;}          goto T740;}
2161          base[0]= VV[127];          base[0]= VV[127];
2162          base[1]= (V327);          base[1]= (V347);
2163          base[2]= CMPcar((VV[88]->s.s_dbind));          base[2]= CMPcar((VV[88]->s.s_dbind));
2164          base[3]= CMPcadr((VV[88]->s.s_dbind));          base[3]= CMPcadr((VV[88]->s.s_dbind));
2165          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
# Line 2149  T736:; Line 2169  T736:;
2169          goto T740;          goto T740;
2170  T740:;  T740:;
2171          base[0]= VV[128];          base[0]= VV[128];
2172          base[1]= (V327);          base[1]= (V347);
2173          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2174          (void) (*Lnk354)();          (void) (*Lnk354)();
2175          vs_top=sup;}          vs_top=sup;}
# Line 2170  static void L50() Line 2190  static void L50()
2190  TTL:;  TTL:;
2191          if(((VV[88]->s.s_dbind))==Cnil){          if(((VV[88]->s.s_dbind))==Cnil){
2192          goto T751;}          goto T751;}
2193          {object V330;          {object V350;
2194          V330= CMPcar((VV[88]->s.s_dbind));          V350= CMPcar((VV[88]->s.s_dbind));
2195          (VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind));          (VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind));
2196          base[0]= (V330);          base[0]= (V350);
2197          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2198          return;}          return;}
2199          goto T751;          goto T751;
# Line 2190  static object LI51() Line 2210  static object LI51()
2210  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
2211          goto TTL;          goto TTL;
2212  TTL:;  TTL:;
2213          {object V331;          {object V351;
2214          vs_base=vs_top;          vs_base=vs_top;
2215          (void) (*Lnk363)();          (void) (*Lnk363)();
2216          vs_top=sup;          vs_top=sup;
2217          V331= vs_base[0];          V351= vs_base[0];
2218          if(type_of((V331))==t_cons){          if(type_of((V351))==t_cons){
2219          goto T758;}          goto T758;}
2220          base[0]= VV[130];          base[0]= VV[130];
2221          base[1]= (V331);          base[1]= (V351);
2222          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2223          (void) (*Lnk354)();          (void) (*Lnk354)();
2224          vs_top=sup;          vs_top=sup;
2225          goto T758;          goto T758;
2226  T758:;  T758:;
2227          {object V332 = (V331);          {object V352 = (V351);
2228          VMR43(V332)}}          VMR43(V352)}}
2229          base[0]=base[0];          base[0]=base[0];
2230          return Cnil;          return Cnil;
2231  }  }
# Line 2216  static object LI52() Line 2236  static object LI52()
2236  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2237          goto TTL;          goto TTL;
2238  TTL:;  TTL:;
2239          {register object V333;          {register object V353;
2240          register object V334;          register object V354;
2241          V335= (*(LnkLI364))();          V355= (*(LnkLI364))();
2242          V333= make_cons(/* INLINE-ARGS */V335,Cnil);          V353= make_cons(/* INLINE-ARGS */V355,Cnil);
2243          V334= CMPcar((VV[88]->s.s_dbind));          V354= CMPcar((VV[88]->s.s_dbind));
2244          goto T766;          goto T766;
2245  T766:;  T766:;
2246          if(!(type_of((V334))!=t_cons)){          if(!(type_of((V354))!=t_cons)){
2247          goto T767;}          goto T767;}
2248          if((CMPcdr((V333)))!=Cnil){          if((CMPcdr((V353)))!=Cnil){
2249          goto T771;}          goto T771;}
2250          {object V336 = CMPcar((V333));          {object V356 = CMPcar((V353));
2251          VMR44(V336)}          VMR44(V356)}
2252          goto T771;          goto T771;
2253  T771:;  T771:;
2254          V337= nreverse((V333));          V357= nreverse((V353));
2255          {object V338 = make_cons(VV[14],/* INLINE-ARGS */V337);          {object V358 = make_cons(VV[14],/* INLINE-ARGS */V357);
2256          VMR44(V338)}          VMR44(V358)}
2257          goto T767;          goto T767;
2258  T767:;  T767:;
2259          V339= (*(LnkLI364))();          V359= (*(LnkLI364))();
2260          V333= make_cons(/* INLINE-ARGS */V339,(V333));          V360 = (V353);
2261          V334= CMPcar((VV[88]->s.s_dbind));          V353= make_cons(/* INLINE-ARGS */V359,V360);
2262            V354= CMPcar((VV[88]->s.s_dbind));
2263          goto T766;}          goto T766;}
2264          return Cnil;          return Cnil;
2265  }  }
# Line 2265  T779:; Line 2286  T779:;
2286  }  }
2287  /*      local entry for function LOOP-CONSTRUCT-RETURN  */  /*      local entry for function LOOP-CONSTRUCT-RETURN  */
2288    
2289  static object LI54(V341)  static object LI54(V362)
2290    
2291  object V341;  object V362;
2292  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
2293          goto TTL;          goto TTL;
2294  TTL:;  TTL:;
2295          {object V342 = list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V341));          {object V363 = list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V362));
2296          VMR46(V342)}          VMR46(V363)}
2297          return Cnil;          return Cnil;
2298  }  }
2299  /*      local entry for function LOOP-PSEUDO-BODY       */  /*      local entry for function LOOP-PSEUDO-BODY       */
2300    
2301  static object LI55(V344)  static object LI55(V365)
2302    
2303  object V344;  object V365;
2304  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
2305          goto TTL;          goto TTL;
2306  TTL:;  TTL:;
# Line 2289  TTL:; Line 2310  TTL:;
2310          goto T783;}          goto T783;}
2311          goto T782;          goto T782;
2312  T782:;  T782:;
2313          (VV[111]->s.s_dbind)= make_cons(V344,(VV[111]->s.s_dbind));          (VV[111]->s.s_dbind)= make_cons(V365,(VV[111]->s.s_dbind));
2314          {object V346 = (VV[111]->s.s_dbind);          {object V367 = (VV[111]->s.s_dbind);
2315          VMR47(V346)}          VMR47(V367)}
2316          goto T783;          goto T783;
2317  T783:;  T783:;
2318          (VV[110]->s.s_dbind)= make_cons(V344,(VV[110]->s.s_dbind));          (VV[110]->s.s_dbind)= make_cons(V365,(VV[110]->s.s_dbind));
2319          (VV[113]->s.s_dbind)= make_cons(V344,(VV[113]->s.s_dbind));          (VV[113]->s.s_dbind)= make_cons(V365,(VV[113]->s.s_dbind));
2320          {object V349 = (VV[113]->s.s_dbind);          {object V370 = (VV[113]->s.s_dbind);
2321          VMR47(V349)}          VMR47(V370)}
2322          return Cnil;          return Cnil;
2323  }  }
2324  /*      local entry for function LOOP-EMIT-BODY */  /*      local entry for function LOOP-EMIT-BODY */
2325    
2326  static object LI56(V351)  static object LI56(V372)
2327    
2328  object V351;  object V372;
2329  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
2330          goto TTL;          goto TTL;
2331  TTL:;  TTL:;
2332          (VV[112]->s.s_dbind)= Ct;          (VV[112]->s.s_dbind)= Ct;
2333          {object V352 = (*(LnkLI365))((V351));          {object V373 = (*(LnkLI365))((V372));
2334          VMR48(V352)}          VMR48(V373)}
2335          return Cnil;          return Cnil;
2336  }  }
2337  /*      local entry for function LOOP-EMIT-FINAL-VALUE  */  /*      local entry for function LOOP-EMIT-FINAL-VALUE  */
# Line 2319  static object LI57(object first,...) Line 2340  static object LI57(object first,...)
2340  {        {      
2341          va_list ap;          va_list ap;
2342          int narg = VFUN_NARGS; VMB49 VMS49 VMV49          int narg = VFUN_NARGS; VMB49 VMS49 VMV49
2343          {object V353;          {object V374;
2344          object V354;          object V375;
2345          va_start(ap,first);          va_start(ap,first);
2346          narg = narg - 0;          narg = narg - 0;
2347          if (narg <= 0) goto T793;          if (narg <= 0) goto T793;
2348          else {          else {
2349          V353= first;}          V374= first;}
2350          V354= Ct;          V375= Ct;
2351          --narg; goto T794;          --narg; goto T794;
2352          goto T793;          goto T793;
2353  T793:;  T793:;
2354          V353= Cnil;          V374= Cnil;
2355          V354= Cnil;          V375= Cnil;
2356          goto T794;          goto T794;
2357  T794:;  T794:;
2358          if(((V354))==Cnil){          if(((V375))==Cnil){
2359          goto T796;}          goto T796;}
2360          {object V355;          {object V376;
2361          V355= (*(LnkLI366))((V353));          V376= (*(LnkLI366))((V374));
2362          (VV[115]->s.s_dbind)= make_cons((V355),(VV[115]->s.s_dbind));}          (VV[115]->s.s_dbind)= make_cons((V376),(VV[115]->s.s_dbind));}
2363          goto T796;          goto T796;
2364  T796:;  T796:;
2365          if(((VV[116]->s.s_dbind))==Cnil){          if(((VV[116]->s.s_dbind))==Cnil){
# Line 2347  T796:; Line 2368  T796:;
2368          goto T801;          goto T801;
2369  T801:;  T801:;
2370          (VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind));          (VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind));
2371          {object V356 = (VV[116]->s.s_dbind);          {object V377 = (VV[116]->s.s_dbind);
2372          VMR49(V356)}          VMR49(V377)}
2373          va_end(ap);          va_end(ap);
2374          base[0]=base[0];          base[0]=base[0];
2375          return Cnil;}          return Cnil;}
# Line 2359  static void L58() Line 2380  static void L58()
2380  {register object *base=vs_base;  {register object *base=vs_base;
2381          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
2382          vs_check;          vs_check;
2383          {object V357;          {object V378;
2384          if(vs_base>=vs_top){vs_top=sup;goto T805;}          if(vs_base>=vs_top){vs_top=sup;goto T805;}
2385          V357=(base[0]);          V378=(base[0]);
2386          vs_top=sup;          vs_top=sup;
2387          goto T806;          goto T806;
2388          goto T805;          goto T805;
2389  T805:;  T805:;
2390          V357= Cnil;          V378= Cnil;
2391          goto T806;          goto T806;
2392  T806:;  T806:;
2393          if(((VV[117]->s.s_dbind))==Cnil){          if(((VV[117]->s.s_dbind))==Cnil){
2394          goto T809;}          goto T809;}
2395          base[1]= VV[133];          base[1]= VV[133];
2396          base[2]= (V357);          base[2]= (V378);
2397          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2398          (void) (*Lnk354)();          (void) (*Lnk354)();
2399          return;          return;
# Line 2432  T820:; Line 2453  T820:;
2453  }  }
2454  /*      local entry for function LOOP-TYPED-INIT        */  /*      local entry for function LOOP-TYPED-INIT        */
2455    
2456  static object LI61(V359)  static object LI61(V380)
2457    
2458  register object V359;  register object V380;
2459  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
2460          goto TTL;          goto TTL;
2461  TTL:;  TTL:;
2462          if(((V359))==Cnil){          if(((V380))==Cnil){
2463          goto T824;}          goto T824;}
2464          base[0]= (V359);          base[0]= (V380);
2465          base[1]= VV[138];          base[1]= VV[138];
2466          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2467          (void) (*Lnk333)();          (void) (*Lnk333)();
2468          vs_top=sup;          vs_top=sup;
2469          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2470          goto T824;}          goto T824;}
2471          base[0]= (V359);          base[0]= (V380);
2472          base[1]= VV[139];          base[1]= VV[139];
2473          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2474          (void) (*Lnk333)();          (void) (*Lnk333)();
2475          vs_top=sup;          vs_top=sup;
2476          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2477          goto T830;}          goto T830;}
2478          base[0]= (V359);          base[0]= (V380);
2479          base[1]= VV[140];          base[1]= VV[140];
2480          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2481          (void) (*Lnk333)();          (void) (*Lnk333)();
# Line 2464  TTL:; Line 2485  TTL:;
2485          goto T830;          goto T830;
2486  T830:;  T830:;
2487          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2488          base[1]= (V359);          base[1]= (V380);
2489          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2490          (void) (*Lnk368)();          (void) (*Lnk368)();
2491          vs_top=sup;          vs_top=sup;
2492          {object V360 = vs_base[0];          {object V381 = vs_base[0];
2493          VMR53(V360)}          VMR53(V381)}
2494          goto T831;          goto T831;
2495  T831:;  T831:;
2496          {object V361 = small_fixnum(0);          {object V382 = small_fixnum(0);
2497          VMR53(V361)}          VMR53(V382)}
2498          goto T824;          goto T824;
2499  T824:;  T824:;
2500          {object V362 = Cnil;          {object V383 = Cnil;
2501          VMR53(V362)}          VMR53(V383)}
2502          base[0]=base[0];          base[0]=base[0];
2503          return Cnil;          return Cnil;
2504  }  }
# Line 2512  T842:; Line 2533  T842:;
2533  T846:;  T846:;
2534          if(!(type_of(base[1])==t_symbol)){          if(!(type_of(base[1])==t_symbol)){
2535          goto T850;}          goto T850;}
2536          {object V363;{object V364;          {object V384;{object V385;
2537          base[2]= base[1];          base[2]= base[1];
2538          base[3]= STREF(object,(VV[99]->s.s_dbind),16);          base[3]= STREF(object,(VV[99]->s.s_dbind),16);
2539          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2540          Lgethash();          Lgethash();
2541          vs_top=sup;          vs_top=sup;
2542          V364= vs_base[0];          V385= vs_base[0];
2543          if(V364==Cnil)goto T853;          if(V385==Cnil)goto T853;
2544          V363= V364;          V384= V385;
2545          goto T852;          goto T852;
2546          goto T853;          goto T853;
2547  T853:;}  T853:;}
# Line 2529  T853:;} Line 2550  T853:;}
2550          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2551          Lgethash();          Lgethash();
2552          vs_top=sup;          vs_top=sup;
2553          V363= vs_base[0];          V384= vs_base[0];
2554          goto T852;          goto T852;
2555  T852:;  T852:;
2556          if(((V363))==Cnil){          if(((V384))==Cnil){
2557          goto T860;}          goto T860;}
2558          vs_base=vs_top;          vs_base=vs_top;
2559          (void) (*Lnk359)();          (void) (*Lnk359)();
2560          vs_top=sup;          vs_top=sup;
2561          base[2]= (V363);          base[2]= (V384);
2562          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2563          return;          return;
2564          goto T860;          goto T860;
# Line 2590  TTL:; Line 2611  TTL:;
2611          goto T877;}          goto T877;}
2612          goto T876;          goto T876;
2613  T876:;  T876:;
2614          {object V365;          {object V386;
2615          V366= nreverse((VV[102]->s.s_dbind));          V387= nreverse((VV[102]->s.s_dbind));
2616          V365= list(4,/* INLINE-ARGS */V366,(VV[105]->s.s_dbind),(VV[106]->s.s_dbind),(VV[109]->s.s_dbind));          V388 = (VV[105]->s.s_dbind);
2617          (VV[107]->s.s_dbind)= make_cons((V365),(VV[107]->s.s_dbind));}          V389 = (VV[106]->s.s_dbind);
2618            V390 = (VV[109]->s.s_dbind);
2619            V386= list(4,/* INLINE-ARGS */V387,V388,V389,V390);
2620            (VV[107]->s.s_dbind)= make_cons((V386),(VV[107]->s.s_dbind));}
2621          (VV[102]->s.s_dbind)= Cnil;          (VV[102]->s.s_dbind)= Cnil;
2622          (VV[105]->s.s_dbind)= Cnil;          (VV[105]->s.s_dbind)= Cnil;
2623          (VV[106]->s.s_dbind)= Cnil;          (VV[106]->s.s_dbind)= Cnil;
2624          (VV[109]->s.s_dbind)= Cnil;          (VV[109]->s.s_dbind)= Cnil;
2625          {object V367 = Cnil;          {object V391 = Cnil;
2626          VMR55(V367)}          VMR55(V391)}
2627          goto T877;          goto T877;
2628  T877:;  T877:;
2629          {object V368 = Cnil;          {object V392 = Cnil;
2630          VMR55(V368)}          VMR55(V392)}
2631          base[0]=base[0];          base[0]=base[0];
2632          return Cnil;          return Cnil;
2633  }  }
2634  /*      local entry for function LOOP-VARIABLE-P        */  /*      local entry for function LOOP-VARIABLE-P        */
2635    
2636  static object LI66(V370)  static object LI66(V394)
2637    
2638  register object V370;  register object V394;
2639  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2640          goto TTL;          goto TTL;
2641  TTL:;  TTL:;
2642          {register object V371;          {register object V395;
2643          V371= (VV[107]->s.s_dbind);          V395= (VV[107]->s.s_dbind);
2644          goto T894;          goto T894;
2645  T894:;  T894:;
2646          if(((V371))!=Cnil){          if(((V395))!=Cnil){
2647          goto T899;}          goto T899;}
2648          {object V372 = Cnil;          {object V396 = Cnil;
2649          VMR56(V372)}          VMR56(V396)}
2650          goto T899;          goto T899;
2651  T899:;  T899:;
2652          {register object x= (V370),V373= CMPcaar((V371));          {register object x= (V394),V397= CMPcaar((V395));
2653          while(V373!=Cnil)          while(V397!=Cnil)
2654          if(EQ(x,V373->c.c_car->c.c_car) &&V373->c.c_car != Cnil){          if(EQ(x,V397->c.c_car->c.c_car) &&V397->c.c_car != Cnil){
2655          goto T902;          goto T902;
2656          }else V373=V373->c.c_cdr;          }else V397=V397->c.c_cdr;
2657          goto T897;}          goto T897;}
2658          goto T902;          goto T902;
2659  T902:;  T902:;
2660          {object V374 = Ct;          {object V398 = Ct;
2661          VMR56(V374)}          VMR56(V398)}
2662          goto T897;          goto T897;
2663  T897:;  T897:;
2664          V371= CMPcdr((V371));          V395= CMPcdr((V395));
2665          goto T894;}          goto T894;}
2666          return Cnil;          return Cnil;
2667  }  }
2668  /*      local entry for function LOOP-MAKE-VARIABLE     */  /*      local entry for function LOOP-MAKE-VARIABLE     */
2669    
2670  static object LI67(object V377,object V376,object V375,object first,...)  static object LI67(object V401,object V400,object V399,object first,...)
2671  {        {      
2672          va_list ap;          va_list ap;
2673          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
2674          {register object V378;          {register object V402;
2675          register object V379;          register object V403;
2676          register object V380;          register object V404;
2677          object V381;          object V405;
2678          va_start(ap,first);          va_start(ap,first);
2679          V378= V377;          V402= V401;
2680          V379= V376;          V403= V400;
2681          V380= V375;          V404= V399;
2682          narg = narg - 3;          narg = narg - 3;
2683          if (narg <= 0) goto T906;          if (narg <= 0) goto T906;
2684          else {          else {
2685          V381= first;}          V405= first;}
2686          --narg; goto T907;          --narg; goto T907;
2687          goto T906;          goto T906;
2688  T906:;  T906:;
2689          V381= Cnil;          V405= Cnil;
2690          goto T907;          goto T907;
2691  T907:;  T907:;
2692          if(((V378))!=Cnil){          if(((V402))!=Cnil){
2693          goto T911;}          goto T911;}
2694          if(((V379))==Cnil){          if(((V403))==Cnil){
2695          goto T909;}          goto T909;}
2696          {object V382;          {object V406;
2697          V378= (VFUN_NARGS=1,(*(LnkLI335))(VV[146]));          V402= (VFUN_NARGS=1,(*(LnkLI335))(VV[146]));
2698          V382= list(2,(V378),(V379));          V407 = (V402);
2699          (VV[102]->s.s_dbind)= make_cons((V382),(VV[102]->s.s_dbind));}          V408 = (V403);
2700          {object V383;          V406= list(2,V407,V408);
2701          V383= list(2,VV[97],(V378));          (VV[102]->s.s_dbind)= make_cons((V406),(VV[102]->s.s_dbind));}
2702          (VV[105]->s.s_dbind)= make_cons((V383),(VV[105]->s.s_dbind));          {object V409;
2703            V409= list(2,VV[97],(V402));
2704            (VV[105]->s.s_dbind)= make_cons((V409),(VV[105]->s.s_dbind));
2705          goto T909;}          goto T909;}
2706          goto T911;          goto T911;
2707  T911:;  T911:;
2708          if(!(type_of((V378))!=t_cons)){          if(!(type_of((V402))!=t_cons)){
2709          goto T922;}          goto T922;}
2710          if(((V381))==Cnil){          if(((V405))==Cnil){
2711          goto T926;}          goto T926;}
2712          {register object x= (V378),V384= (VV[101]->s.s_dbind);          {register object x= (V402),V410= (VV[101]->s.s_dbind);
2713          while(V384!=Cnil)          while(V410!=Cnil)
2714          if(eql(x,V384->c.c_car)){          if(eql(x,V410->c.c_car)){
2715          goto T930;          goto T930;
2716          }else V384=V384->c.c_cdr;          }else V410=V410->c.c_cdr;
2717          goto T929;}          goto T929;}
2718          goto T930;          goto T930;
2719  T930:;  T930:;
2720          base[0]= VV[147];          base[0]= VV[147];
2721          base[1]= (V378);          base[1]= (V402);
2722          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2723          (void) (*Lnk354)();          (void) (*Lnk354)();
2724          vs_top=sup;          vs_top=sup;
2725          goto T924;          goto T924;
2726          goto T929;          goto T929;
2727  T929:;  T929:;
2728          (VV[101]->s.s_dbind)= make_cons(V378,(VV[101]->s.s_dbind));          (VV[101]->s.s_dbind)= make_cons(V402,(VV[101]->s.s_dbind));
2729          goto T924;          goto T924;
2730          goto T926;          goto T926;
2731  T926:;  T926:;
2732          {register object x= (V378),V386= (VV[102]->s.s_dbind);          {register object x= (V402),V412= (VV[102]->s.s_dbind);
2733          while(V386!=Cnil)          while(V412!=Cnil)
2734          if(eql(x,V386->c.c_car->c.c_car) &&V386->c.c_car != Cnil){          if(eql(x,V412->c.c_car->c.c_car) &&V412->c.c_car != Cnil){
2735          goto T935;          goto T935;
2736          }else V386=V386->c.c_cdr;          }else V412=V412->c.c_cdr;
2737          goto T924;}          goto T924;}
2738          goto T935;          goto T935;
2739  T935:;  T935:;
2740          base[0]= VV[148];          base[0]= VV[148];
2741          base[1]= (V378);          base[1]= (V402);
2742          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2743          (void) (*Lnk354)();          (void) (*Lnk354)();
2744          vs_top=sup;          vs_top=sup;
2745          goto T924;          goto T924;
2746  T924:;  T924:;
2747          if(type_of((V378))==t_symbol){          if(type_of((V402))==t_symbol){
2748          goto T938;}          goto T938;}
2749          base[0]= VV[149];          base[0]= VV[149];
2750          base[1]= (V378);          base[1]= (V402);
2751          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2752          (void) (*Lnk354)();          (void) (*Lnk354)();
2753          vs_top=sup;          vs_top=sup;
2754          goto T938;          goto T938;
2755  T938:;  T938:;
2756          (void)((*(LnkLI370))((V378),(V380)));          (void)((*(LnkLI370))((V402),(V404)));
2757          {object V387;          {object V413;
2758          if((V379)!=Cnil){          V414 = (V402);
2759          V388= (V379);          if((V403)!=Cnil){
2760            V415= (V403);
2761          goto T945;}          goto T945;}
2762          V388= (*(LnkLI336))((V380));          V415= (*(LnkLI336))((V404));
2763          goto T945;          goto T945;
2764  T945:;  T945:;
2765          V387= list(2,(V378),V388);          V413= list(2,V414,V415);
2766          (VV[102]->s.s_dbind)= make_cons((V387),(VV[102]->s.s_dbind));          (VV[102]->s.s_dbind)= make_cons((V413),(VV[102]->s.s_dbind));
2767          goto T909;}          goto T909;}
2768          goto T922;          goto T922;
2769  T922:;  T922:;
2770          if(((V379))==Cnil){          if(((V403))==Cnil){
2771          goto T948;}          goto T948;}
2772          if(((VV[63]->s.s_dbind))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
2773          goto T951;}          goto T951;}
2774          (void)((*(LnkLI370))((V378),(V380)));          (void)((*(LnkLI370))((V402),(V404)));
2775          {object V389;          {object V416;
2776          V389= list(2,(V378),(V379));          V416= list(2,(V402),(V403));
2777          (VV[102]->s.s_dbind)= make_cons((V389),(VV[102]->s.s_dbind));          (VV[102]->s.s_dbind)= make_cons((V416),(VV[102]->s.s_dbind));
2778          goto T909;}          goto T909;}
2779          goto T951;          goto T951;
2780  T951:;  T951:;
2781          {object V390;          {object V417;
2782          V390= (VFUN_NARGS=1,(*(LnkLI335))(VV[150]));          V417= (VFUN_NARGS=1,(*(LnkLI335))(VV[150]));
2783          (void)((*(LnkLI370))((V378),(V380)));          (void)((*(LnkLI370))((V402),(V404)));
2784          {object V391;          {object V418;
2785          V391= list(2,(V390),(V379));          V418= list(2,(V417),(V403));
2786          (VV[102]->s.s_dbind)= make_cons((V391),(VV[102]->s.s_dbind));}          (VV[102]->s.s_dbind)= make_cons((V418),(VV[102]->s.s_dbind));}
2787          (VV[106]->s.s_dbind)= listA(3,(V378),(V390),(VV[106]->s.s_dbind));          (VV[106]->s.s_dbind)= listA(3,(V402),(V417),(VV[106]->s.s_dbind));
2788          goto T909;}          goto T909;}
2789          goto T948;          goto T948;
2790  T948:;  T948:;
2791          {object V392;          {object V419;
2792          object V393;          object V420;
2793          V392= Cnil;          V419= Cnil;
2794          V393= Cnil;          V420= Cnil;
2795          if(!(type_of((V380))!=t_cons)){          if(!(type_of((V404))!=t_cons)){
2796          goto T964;}          goto T964;}
2797          V393= (V380);          V420= (V404);
2798          V392= (V393);          V419= (V420);
2799          goto T962;          goto T962;
2800          goto T964;          goto T964;
2801  T964:;  T964:;
2802          V392= CMPcar((V380));          V419= CMPcar((V404));
2803          V393= CMPcdr((V380));          V420= CMPcdr((V404));
2804          goto T962;          goto T962;
2805  T962:;  T962:;
2806          (void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcar((V378)),Cnil,(V392),(V381))));          (void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcar((V402)),Cnil,(V419),(V405))));
2807          (void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcdr((V378)),Cnil,(V393),(V381))));}          (void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcdr((V402)),Cnil,(V420),(V405))));}
2808          goto T909;          goto T909;
2809  T909:;  T909:;
2810          {object V394 = (V378);          {object V421 = (V402);
2811          VMR57(V394)}          VMR57(V421)}
2812          va_end(ap);          va_end(ap);
2813          base[0]=base[0];          base[0]=base[0];
2814          return Cnil;}          return Cnil;}
2815          }          }
2816  /*      local entry for function LOOP-MAKE-ITERATION-VARIABLE   */  /*      local entry for function LOOP-MAKE-ITERATION-VARIABLE   */
2817    
2818  static object LI68(V398,V399,V400)  static object LI68(V425,V426,V427)
2819    
2820  object V398;object V399;object V400;  object V425;object V426;object V427;
2821  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
2822          goto TTL;          goto TTL;
2823  TTL:;  TTL:;
2824          {object V401 = (VFUN_NARGS=4,(*(LnkLI371))((V398),(V399),(V400),Ct));          {object V428 = (VFUN_NARGS=4,(*(LnkLI371))((V425),(V426),(V427),Ct));
2825          VMR58(V401)}          VMR58(V428)}
2826          return Cnil;          return Cnil;
2827  }  }
2828  /*      local entry for function LOOP-DECLARE-VARIABLE  */  /*      local entry for function LOOP-DECLARE-VARIABLE  */
2829    
2830  static object LI69(V404,V405)  static object LI69(V431,V432)
2831    
2832  register object V404;register object V405;  register object V431;register object V432;
2833  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
2834          goto TTL;          goto TTL;
2835  TTL:;  TTL:;
2836          if(((V404))==Cnil){          if(((V431))==Cnil){
2837          goto T972;}          goto T972;}
2838          if(((V405))==Cnil){          if(((V432))==Cnil){
2839          goto T972;}          goto T972;}
2840          if(!(((V405))==(Ct))){          if(!(((V432))==(Ct))){
2841          goto T973;}          goto T973;}
2842          goto T972;          goto T972;
2843  T972:;  T972:;
2844          {object V406 = Cnil;          {object V433 = Cnil;
2845          VMR59(V406)}          VMR59(V433)}
2846          goto T973;          goto T973;
2847  T973:;  T973:;
2848          if(!(type_of((V404))==t_symbol)){          if(!(type_of((V431))==t_symbol)){
2849          goto T980;}          goto T980;}
2850          if(((V405))==(Ct)){          if(((V432))==(Ct)){
2851          goto T983;}          goto T983;}
2852          {register object x= (V404),V407= (VV[103]->s.s_dbind);          {register object x= (V431),V434= (VV[103]->s.s_dbind);
2853          while(V407!=Cnil)          while(V434!=Cnil)
2854          if(eql(x,V407->c.c_car)){          if(eql(x,V434->c.c_car)){
2855          goto T983;          goto T983;
2856          }else V407=V407->c.c_cdr;}          }else V434=V434->c.c_cdr;}
2857          {object V409;          {object V436;
2858          V409= list(3,VV[31],V405,(V404));          V436= list(3,VV[31],V432,(V431));
2859          (VV[105]->s.s_dbind)= make_cons((V409),(VV[105]->s.s_dbind));          (VV[105]->s.s_dbind)= make_cons((V436),(VV[105]->s.s_dbind));
2860          {object V410 = (VV[105]->s.s_dbind);          {object V437 = (VV[105]->s.s_dbind);
2861          VMR59(V410)}}          VMR59(V437)}}
2862          goto T983;          goto T983;
2863  T983:;  T983:;
2864          {object V411 = Cnil;          {object V438 = Cnil;
2865          VMR59(V411)}          VMR59(V438)}
2866          goto T980;          goto T980;
2867  T980:;  T980:;
2868          if(!(type_of((V404))==t_cons)){          if(!(type_of((V431))==t_cons)){
2869          goto T990;}          goto T990;}
2870          if(!(type_of((V405))==t_cons)){          if(!(type_of((V432))==t_cons)){
2871          goto T993;}          goto T993;}
2872          (void)((*(LnkLI370))(CMPcar((V404)),CMPcar((V405))));          (void)((*(LnkLI370))(CMPcar((V431)),CMPcar((V432))));
2873          V404= CMPcdr((V404));          V431= CMPcdr((V431));
2874          V405= CMPcdr((V405));          V432= CMPcdr((V432));
2875          goto TTL;          goto TTL;
2876          goto T993;          goto T993;
2877  T993:;  T993:;
2878          (void)((*(LnkLI370))(CMPcar((V404)),(V405)));          (void)((*(LnkLI370))(CMPcar((V431)),(V432)));
2879          V404= CMPcdr((V404));          V431= CMPcdr((V431));
2880          goto TTL;          goto TTL;
2881          goto T990;          goto T990;
2882  T990:;  T990:;
2883          base[0]= VV[151];          base[0]= VV[151];
2884          base[1]= (V404);          base[1]= (V431);
2885          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2886          Lerror();          Lerror();
2887          vs_top=sup;          vs_top=sup;
2888          {object V412 = vs_base[0];          {object V439 = vs_base[0];
2889          VMR59(V412)}          VMR59(V439)}
2890          base[0]=base[0];          base[0]=base[0];
2891          return Cnil;          return Cnil;
2892  }  }
2893  /*      local entry for function LOOP-MAYBE-BIND-FORM   */  /*      local entry for function LOOP-MAYBE-BIND-FORM   */
2894    
2895  static object LI70(V415,V416)  static object LI70(V442,V443)
2896    
2897  object V415;object V416;  object V442;object V443;
2898  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
2899          goto TTL;          goto TTL;
2900  TTL:;  TTL:;
2901          if(((*(LnkLI372))((V415)))==Cnil){          if(((*(LnkLI372))((V442)))==Cnil){
2902          goto T1006;}          goto T1006;}
2903          {object V417 = (V415);          {object V444 = (V442);
2904          VMR60(V417)}          VMR60(V444)}
2905          goto T1006;          goto T1006;
2906  T1006:;  T1006:;
2907          V418= (VFUN_NARGS=1,(*(LnkLI335))(VV[152]));          V445= (VFUN_NARGS=1,(*(LnkLI335))(VV[152]));
2908          {object V419 = (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V418,(V415),(V416)));          V446 = (V442);
2909          VMR60(V419)}          V447 = (V443);
2910            {object V448 = (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V445,V446,V447));
2911            VMR60(V448)}
2912          return Cnil;          return Cnil;
2913  }  }
2914  /*      local entry for function LOOP-DO-IF     */  /*      local entry for function LOOP-DO-IF     */
2915    
2916  static object LI71(V422,V423)  static object LI71(V451,V452)
2917    
2918  object V422;object V423;  object V451;object V452;
2919  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
2920          bds_check;          bds_check;
2921          goto TTL;          goto TTL;
2922  TTL:;  TTL:;
2923          {object V424;          {object V453;
2924          vs_base=vs_top;          vs_base=vs_top;
2925          (void) (*Lnk363)();          (void) (*Lnk363)();
2926          vs_top=sup;          vs_top=sup;
2927          V424= vs_base[0];          V453= vs_base[0];
2928          bds_bind(VV[117],Ct);          bds_bind(VV[117],Ct);
2929          base[1]= Cnil;          base[1]= Cnil;
2930          base[2]= Ct;          base[2]= Ct;
2931          {object V425;          {object V454;
2932          object V426;          object V455;
2933          base[3]= (V422);          base[3]= (V451);
2934          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2935          L72(base);          L72(base);
2936          vs_top=sup;          vs_top=sup;
2937          V425= vs_base[0];          V454= vs_base[0];
2938          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[153]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[153]))==Cnil){
2939          goto T1013;}          goto T1013;}
2940          vs_base=vs_top;          vs_base=vs_top;
# Line 2915  TTL:; Line 2944  TTL:;
2944          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2945          L72(base);          L72(base);
2946          vs_top=sup;          vs_top=sup;
2947          V427= vs_base[0];          V456= vs_base[0];
2948          V426= make_cons(V427,Cnil);          V455= make_cons(V456,Cnil);
2949          goto T1011;          goto T1011;
2950          goto T1013;          goto T1013;
2951  T1013:;  T1013:;
2952          V426= Cnil;          V455= Cnil;
2953          goto T1011;          goto T1011;
2954  T1011:;  T1011:;
2955          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[154]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[154]))==Cnil){
# Line 2932  T1011:; Line 2961  T1011:;
2961  T1018:;  T1018:;
2962          if((base[1])==Cnil){          if((base[1])==Cnil){
2963          goto T1021;}          goto T1021;}
2964          V424= list(3,VV[11],base[1],(V424));          V453= list(3,VV[11],base[1],(V453));
2965          goto T1021;          goto T1021;
2966  T1021:;  T1021:;
2967          if(((V423))==Cnil){          if(((V452))==Cnil){
2968          goto T1027;}          goto T1027;}
2969          V428= list(2,VV[36],(V424));          V457= list(2,VV[36],(V453));
2970          goto T1025;          goto T1025;
2971          goto T1027;          goto T1027;
2972  T1027:;  T1027:;
2973          V428= (V424);          V457= (V453);
2974          goto T1025;          goto T1025;
2975  T1025:;  T1025:;
2976          V429= listA(4,VV[71],V428,(V425),(V426));          V458 = (V454);
2977          {object V430 = (*(LnkLI365))(/* INLINE-ARGS */V429);          V459 = (V455);
2978            V460= listA(4,VV[71],V457,V458,V459);
2979            {object V461 = (*(LnkLI365))(/* INLINE-ARGS */V460);
2980          bds_unwind1;          bds_unwind1;
2981          VMR61(V430)}}}          VMR61(V461)}}}
2982          base[0]=base[0];          base[0]=base[0];
2983          return Cnil;          return Cnil;
2984  }  }
# Line 2962  TTL:; Line 2993  TTL:;
2993          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2994          (void) (*Lnk373)();          (void) (*Lnk373)();
2995          vs_top=sup;          vs_top=sup;
2996          {object V431;          {object V462;
2997          V431= (*(LnkLI374))();          V462= (*(LnkLI374))();
2998          (VV[108]->s.s_dbind)= make_cons((V431),(VV[108]->s.s_dbind));          (VV[108]->s.s_dbind)= make_cons((V462),(VV[108]->s.s_dbind));
2999          {object V432 = (VV[108]->s.s_dbind);          {object V463 = (VV[108]->s.s_dbind);
3000          VMR62(V432)}}          VMR62(V463)}}
3001          base[0]=base[0];          base[0]=base[0];
3002          return Cnil;          return Cnil;
3003  }  }
# Line 2981  TTL:; Line 3012  TTL:;
3012          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3013          (void) (*Lnk373)();          (void) (*Lnk373)();
3014          vs_top=sup;          vs_top=sup;
3015          {object V433;          {object V464;
3016          V433= (*(LnkLI374))();          V464= (*(LnkLI374))();
3017          (VV[114]->s.s_dbind)= make_cons((V433),(VV[114]->s.s_dbind));          (VV[114]->s.s_dbind)= make_cons((V464),(VV[114]->s.s_dbind));
3018          {object V434 = (VV[114]->s.s_dbind);          {object V465 = (VV[114]->s.s_dbind);
3019          VMR63(V434)}}          VMR63(V465)}}
3020          base[0]=base[0];          base[0]=base[0];
3021          return Cnil;          return Cnil;
3022  }  }
# Line 2996  static object LI75() Line 3027  static object LI75()
3027  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3028          goto TTL;          goto TTL;
3029  TTL:;  TTL:;
3030          V435= (*(LnkLI374))();          V466= (*(LnkLI374))();
3031          {object V436 = (*(LnkLI375))(/* INLINE-ARGS */V435);          {object V467 = (*(LnkLI375))(/* INLINE-ARGS */V466);
3032          VMR64(V436)}          VMR64(V467)}
3033          return Cnil;          return Cnil;
3034  }  }
3035  /*      local entry for function LOOP-DO-NAMED  */  /*      local entry for function LOOP-DO-NAMED  */
# Line 3008  static object LI76() Line 3039  static object LI76()
3039  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3040          goto TTL;          goto TTL;
3041  TTL:;  TTL:;
3042          {register object V437;          {register object V468;
3043          vs_base=vs_top;          vs_base=vs_top;
3044          (void) (*Lnk359)();          (void) (*Lnk359)();
3045          vs_top=sup;          vs_top=sup;
3046          V437= vs_base[0];          V468= vs_base[0];
3047          if(type_of((V437))==t_symbol){          if(type_of((V468))==t_symbol){
3048          goto T1038;}          goto T1038;}
3049          base[0]= VV[161];          base[0]= VV[161];
3050          base[1]= (V437);          base[1]= (V468);
3051          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3052          (void) (*Lnk354)();          (void) (*Lnk354)();
3053          vs_top=sup;          vs_top=sup;
# Line 3033  T1038:; Line 3064  T1038:;
3064          goto T1044;          goto T1044;
3065  T1044:;  T1044:;
3066          base[0]= VV[162];          base[0]= VV[162];
3067          base[1]= (V437);          base[1]= (V468);
3068          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3069          (void) (*Lnk354)();          (void) (*Lnk354)();
3070          vs_top=sup;          vs_top=sup;
# Line 3043  T1043:; Line 3074  T1043:;
3074          goto T1054;}          goto T1054;}
3075          base[0]= VV[163];          base[0]= VV[163];
3076          base[1]= CMPcar((VV[120]->s.s_dbind));          base[1]= CMPcar((VV[120]->s.s_dbind));
3077          base[2]= (V437);          base[2]= (V468);
3078          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3079          (void) (*Lnk354)();          (void) (*Lnk354)();
3080          vs_top=sup;          vs_top=sup;
3081          goto T1054;          goto T1054;
3082  T1054:;  T1054:;
3083          (VV[120]->s.s_dbind)= list(2,(V437),Cnil);          (VV[120]->s.s_dbind)= list(2,(V468),Cnil);
3084          {object V438 = (VV[120]->s.s_dbind);          {object V469 = (VV[120]->s.s_dbind);
3085          VMR65(V438)}}          VMR65(V469)}}
3086          base[0]=base[0];          base[0]=base[0];
3087          return Cnil;          return Cnil;
3088  }  }
# Line 3065  TTL:; Line 3096  TTL:;
3096          vs_base=vs_top;          vs_base=vs_top;
3097          (void) (*Lnk363)();          (void) (*Lnk363)();
3098          vs_top=sup;          vs_top=sup;
3099          V439= vs_base[0];          V470= vs_base[0];
3100          V440= (*(LnkLI366))(V439);          V471= (*(LnkLI366))(V470);
3101          {object V441 = (*(LnkLI365))(/* INLINE-ARGS */V440);          {object V472 = (*(LnkLI365))(/* INLINE-ARGS */V471);
3102          VMR66(V441)}          VMR66(V472)}
3103          base[0]=base[0];          base[0]=base[0];
3104          return Cnil;          return Cnil;
3105  }  }
# Line 3078  static object LI78(object first,...) Line 3109  static object LI78(object first,...)
3109  {        {      
3110          va_list ap;          va_list ap;
3111          int narg = VFUN_NARGS; VMB67 VMS67 VMV67          int narg = VFUN_NARGS; VMB67 VMS67 VMV67
3112          {object V442;          {object V473;
3113          object V443;          object V474;
3114          object V444;          object V475;
3115          object V445;          object V476;
3116          object V446;          object V477;
3117          object V447;          object V478;
3118          va_start(ap,first);          va_start(ap,first);
3119          narg= narg - 0;          narg= narg - 0;
3120          {          {
3121          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI78key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI78key,first,ap);
3122          V442=(Vcs[0]);          V473=(Vcs[0]);
3123          V443=(Vcs[1]);          V474=(Vcs[1]);
3124          V444=(Vcs[2]);          V475=(Vcs[2]);
3125          V445=(Vcs[3]);          V476=(Vcs[3]);
3126          V446=(Vcs[4]);          V477=(Vcs[4]);
3127          V447=(Vcs[5]);          V478=(Vcs[5]);
3128          base[0]= VV[164];          base[0]= VV[164];
3129          base[1]= (V442);          base[1]= (V473);
3130          base[2]= (V443);          base[2]= (V474);
3131          base[3]= (V444);          base[3]= (V475);
3132          base[4]= (V445);          base[4]= (V476);
3133          base[5]= (V446);          base[5]= (V477);
3134          base[6]= (V447);          base[6]= (V478);
3135          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3136          siLmake_structure();          siLmake_structure();
3137          vs_top=sup;          vs_top=sup;
3138          {object V448 = vs_base[0];          {object V479 = vs_base[0];
3139          VMR67(V448)}          VMR67(V479)}
3140          va_end(ap);          va_end(ap);
3141          base[0]=base[0];          base[0]=base[0];
3142          return Cnil;}          return Cnil;}
# Line 3116  static void L79() Line 3147  static void L79()
3147  {register object *base=vs_base;  {register object *base=vs_base;
3148          register object *sup=base+VM68; VC68          register object *sup=base+VM68; VC68
3149          vs_check;          vs_check;
3150          {object V449;          {object V480;
3151          object V450;          object V481;
3152          object V451;          object V482;
3153          V449=(base[0]);          V480=(base[0]);
3154          V450=(base[1]);          V481=(base[1]);
3155          V451=(base[2]);          V482=(base[2]);
3156          vs_top=sup;          vs_top=sup;
3157          goto TTL;          goto TTL;
3158  TTL:;  TTL:;
3159          {object V452;          {object V483;
3160          register object V453;          register object V484;
3161          register object V454;          register object V485;
3162          vs_base=vs_top;          vs_base=vs_top;
3163          (void) (*Lnk363)();          (void) (*Lnk363)();
3164          vs_top=sup;          vs_top=sup;
3165          V452= vs_base[0];          V483= vs_base[0];
3166          if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){          if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){
3167          goto T1071;}          goto T1071;}
3168          V453= Cnil;          V484= Cnil;
3169          goto T1070;          goto T1070;
3170          goto T1071;          goto T1071;
3171  T1071:;  T1071:;
3172          vs_base=vs_top;          vs_base=vs_top;
3173          (void) (*Lnk378)();          (void) (*Lnk378)();
3174          vs_top=sup;          vs_top=sup;
3175          V453= vs_base[0];          V484= vs_base[0];
3176          goto T1070;          goto T1070;
3177  T1070:;  T1070:;
3178          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[165]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[165]))==Cnil){
# Line 3152  T1070:; Line 3183  T1070:;
3183          vs_base=vs_top;          vs_base=vs_top;
3184          (void) (*Lnk359)();          (void) (*Lnk359)();
3185          vs_top=sup;          vs_top=sup;
3186          V454= vs_base[0];          V485= vs_base[0];
3187          goto T1073;          goto T1073;
3188          goto T1075;          goto T1075;
3189  T1075:;  T1075:;
3190          V454= Cnil;          V485= Cnil;
3191          goto T1073;          goto T1073;
3192  T1073:;  T1073:;
3193          if(type_of((V454))==t_symbol){          if(type_of((V485))==t_symbol){
3194          goto T1078;}          goto T1078;}
3195          base[3]= VV[166];          base[3]= VV[166];
3196          base[4]= (V454);          base[4]= (V485);
3197          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3198          (void) (*Lnk354)();          (void) (*Lnk354)();
3199          vs_top=sup;          vs_top=sup;
3200          goto T1078;          goto T1078;
3201  T1078:;  T1078:;
3202          if(((V454))!=Cnil){          if(((V485))!=Cnil){
3203          goto T1083;}          goto T1083;}
3204          vs_base=vs_top;          vs_base=vs_top;
3205          (void) (*Lnk379)();          (void) (*Lnk379)();
3206          vs_top=sup;          vs_top=sup;
3207          goto T1083;          goto T1083;
3208  T1083:;  T1083:;
3209          if(((V453))!=Cnil){          if(((V484))!=Cnil){
3210          goto T1086;}{object V455;          goto T1086;}{object V486;
3211          vs_base=vs_top;          vs_base=vs_top;
3212          (void) (*Lnk378)();          (void) (*Lnk378)();
3213          vs_top=sup;          vs_top=sup;
3214          V455= vs_base[0];          V486= vs_base[0];
3215          if(V455==Cnil)goto T1090;          if(V486==Cnil)goto T1090;
3216          V453= V455;          V484= V486;
3217          goto T1089;          goto T1089;
3218          goto T1090;          goto T1090;
3219  T1090:;}  T1090:;}
3220          V453= (V451);          V484= (V482);
3221          goto T1089;          goto T1089;
3222  T1089:;  T1089:;
3223          goto T1086;          goto T1086;
3224  T1086:;  T1086:;
3225          {register object V456;          {register object V487;
3226          base[3]= (V454);          base[3]= (V485);
3227          base[4]= (VV[121]->s.s_dbind);          base[4]= (VV[121]->s.s_dbind);
3228          base[5]= VV[167];          base[5]= VV[167];
3229          base[6]= (VV[134]->s.s_gfdef);          base[6]= (VV[134]->s.s_gfdef);
3230          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3231          (void) (*Lnk380)();          (void) (*Lnk380)();
3232          vs_top=sup;          vs_top=sup;
3233          V456= vs_base[0];          V487= vs_base[0];
3234          if(((V456))!=Cnil){          if(((V487))!=Cnil){
3235          goto T1099;}          goto T1099;}
3236          if(((V454))==Cnil){          if(((V485))==Cnil){
3237          goto T1101;}          goto T1101;}
3238          if(((*(LnkLI381))((V454)))==Cnil){          if(((*(LnkLI381))((V485)))==Cnil){
3239          goto T1101;}          goto T1101;}
3240          base[3]= VV[168];          base[3]= VV[168];
3241          base[4]= (V454);          base[4]= (V485);
3242          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3243          (void) (*Lnk354)();          (void) (*Lnk354)();
3244          vs_top=sup;          vs_top=sup;
3245          goto T1101;          goto T1101;
3246  T1101:;  T1101:;
3247          {object V457;          {object V488;
3248          V458= make_cons((V449),Cnil);          V489= make_cons((V480),Cnil);
3249          V456= (VFUN_NARGS=8,(*(LnkLI382))(VV[169],(V454),VV[170],(V450),VV[171],/* INLINE-ARGS */V458,VV[172],(V453)));          V487= (VFUN_NARGS=8,(*(LnkLI382))(VV[169],(V485),VV[170],(V481),VV[171],/* INLINE-ARGS */V489,VV[172],(V484)));
3250          V457= (V456);          V488= (V487);
3251          (VV[121]->s.s_dbind)= make_cons((V457),(VV[121]->s.s_dbind));          (VV[121]->s.s_dbind)= make_cons((V488),(VV[121]->s.s_dbind));
3252          goto T1097;}          goto T1097;}
3253          goto T1099;          goto T1099;
3254  T1099:;  T1099:;
3255          if((STREF(object,(V456),4))==((V450))){          if((STREF(object,(V487),4))==((V481))){
3256          goto T1111;}          goto T1111;}
3257          base[3]= VV[173];          base[3]= VV[173];
3258          base[4]= (V454);          base[4]= (V485);
3259          base[5]= CMPcar(STREF(object,(V456),8));          base[5]= CMPcar(STREF(object,(V487),8));
3260          base[6]= (V449);          base[6]= (V480);
3261          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3262          (void) (*Lnk354)();          (void) (*Lnk354)();
3263          vs_top=sup;          vs_top=sup;
3264          goto T1111;          goto T1111;
3265  T1111:;  T1111:;
3266          if(equal((V453),STREF(object,(V456),16))){          if(equal((V484),STREF(object,(V487),16))){
3267          goto T1118;}          goto T1118;}
3268          (void)((VFUN_NARGS=4,(*(LnkLI345))(VV[174],(V454),(V453),STREF(object,(V456),16))));          (void)((VFUN_NARGS=4,(*(LnkLI345))(VV[174],(V485),(V484),STREF(object,(V487),16))));
3269          if(!((STREF(object,(V456),16))==(Ct))){          if(!((STREF(object,(V487),16))==(Ct))){
3270          goto T1118;}          goto T1118;}
3271          V459= Ct;          V490 = (V487);
3272          STSET(object,(V456),16, (V453));          V491 = (V484);
3273          (void)((V453));          V492= Ct;
3274            STSET(object,V490,16, V491);
3275            (void)(V491);
3276          goto T1118;          goto T1118;
3277  T1118:;  T1118:;
3278          {object V462;          {object V495;
3279          V462= make_cons(V449,STREF(object,V456,8));          V495= make_cons(V480,STREF(object,V487,8));
3280          V463= Ct;          V496 = V487;
3281          STSET(object,V456,8, (V462));          V497 = (V495);
3282          (void)((V462));}          V498= Ct;
3283            STSET(object,V496,8, V497);
3284            (void)(V497);}
3285          goto T1097;          goto T1097;
3286  T1097:;  T1097:;
3287          base[3]= (V456);          base[3]= (V487);
3288          base[4]= (V452);          base[4]= (V483);
3289          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3290          return;}}          return;}}
3291          }          }
3292  }  }
3293  /*      local entry for function LOOP-LIST-COLLECTION   */  /*      local entry for function LOOP-LIST-COLLECTION   */
3294    
3295  static object LI80(V465)  static object LI80(V500)
3296    
3297  object V465;  object V500;
3298  {        VMB69 VMS69 VMV69  {        VMB69 VMS69 VMV69
3299          goto TTL;          goto TTL;
3300  TTL:;  TTL:;
3301          {register object V466;          {register object V501;
3302          register object V467;          register object V502;
3303          base[0]= (V465);          base[0]= (V500);
3304          base[1]= VV[5];          base[1]= VV[5];
3305          base[2]= VV[5];          base[2]= VV[5];
3306          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3307          (void) (*Lnk383)();          (void) (*Lnk383)();
3308          if(vs_base>=vs_top){vs_top=sup;goto T1131;}          if(vs_base>=vs_top){vs_top=sup;goto T1131;}
3309          V466= vs_base[0];          V501= vs_base[0];
3310          vs_base++;          vs_base++;
3311          if(vs_base>=vs_top){vs_top=sup;goto T1132;}          if(vs_base>=vs_top){vs_top=sup;goto T1132;}
3312          V467= vs_base[0];          V502= vs_base[0];
3313          vs_top=sup;          vs_top=sup;
3314          goto T1133;          goto T1133;
3315          goto T1131;          goto T1131;
3316  T1131:;  T1131:;
3317          V466= Cnil;          V501= Cnil;
3318          goto T1132;          goto T1132;
3319  T1132:;  T1132:;
3320          V467= Cnil;          V502= Cnil;
3321          goto T1133;          goto T1133;
3322  T1133:;  T1133:;
3323          {register object V468;          {register object V503;
3324          V468= STREF(object,(V466),12);          V503= STREF(object,(V501),12);
3325          if(((V468))!=Cnil){          if(((V503))!=Cnil){
3326          goto T1135;}          goto T1135;}
3327          V469= (VFUN_NARGS=1,(*(LnkLI335))(VV[175]));          V504 = (V501);
3328          V470= (VFUN_NARGS=1,(*(LnkLI335))(VV[176]));          V505= (VFUN_NARGS=1,(*(LnkLI335))(VV[175]));
3329          if((STREF(object,(V466),0))!=Cnil){          V506= (VFUN_NARGS=1,(*(LnkLI335))(VV[176]));
3330            if((STREF(object,(V501),0))!=Cnil){
3331          goto T1141;}          goto T1141;}
3332          V471= Cnil;          V507= Cnil;
3333          goto T1140;          goto T1140;
3334          goto T1141;          goto T1141;
3335  T1141:;  T1141:;
3336          V471= make_cons(STREF(object,(V466),0),Cnil);          V507= make_cons(STREF(object,(V501),0),Cnil);
3337          goto T1140;          goto T1140;
3338  T1140:;  T1140:;
3339          V468= listA(3,/* INLINE-ARGS */V469,/* INLINE-ARGS */V470,V471);          V503= listA(3,/* INLINE-ARGS */V505,/* INLINE-ARGS */V506,V507);
3340          V472= Ct;          V508 = (V503);
3341          STSET(object,(V466),12, (V468));          V509= Ct;
3342          (void)((V468));          STSET(object,V504,12, V508);
3343          {object V473;          (void)(V508);
3344          V473= list(2,VV[177],(V468));          {object V510;
3345          (VV[109]->s.s_dbind)= make_cons((V473),(VV[109]->s.s_dbind));}          V510= list(2,VV[177],(V503));
3346          if((STREF(object,(V466),0))!=Cnil){          (VV[109]->s.s_dbind)= make_cons((V510),(VV[109]->s.s_dbind));}
3347            if((STREF(object,(V501),0))!=Cnil){
3348          goto T1135;}          goto T1135;}
3349          V474= listA(3,VV[178],CMPcar((V468)),CMPcddr((V468)));          V511= listA(3,VV[178],CMPcar((V503)),CMPcddr((V503)));
3350          (void)((VFUN_NARGS=1,(*(LnkLI384))(/* INLINE-ARGS */V474)));          (void)((VFUN_NARGS=1,(*(LnkLI384))(/* INLINE-ARGS */V511)));
3351          goto T1135;          goto T1135;
3352  T1135:;  T1135:;
3353          {object V475= (V465);          {object V512= (V500);
3354          if((V475!= VV[5]))goto T1149;          if((V512!= VV[5]))goto T1149;
3355          V467= list(2,VV[5],(V467));          V502= list(2,VV[5],(V502));
3356          goto T1148;          goto T1148;
3357          goto T1149;          goto T1149;
3358  T1149:;  T1149:;
3359          if((V475!= VV[385]))goto T1151;          if((V512!= VV[385]))goto T1151;
3360          goto T1148;          goto T1148;
3361          goto T1151;          goto T1151;
3362  T1151:;  T1151:;
3363          if((V475!= VV[386]))goto T1152;          if((V512!= VV[386]))goto T1152;
3364          if(!(type_of((V467))==t_cons)){          if(!(type_of((V502))==t_cons)){
3365          goto T1153;}          goto T1153;}
3366          if((CMPcar((V467)))==(VV[5])){          if((CMPcar((V502)))==(VV[5])){
3367          goto T1148;}          goto T1148;}
3368          goto T1153;          goto T1153;
3369  T1153:;  T1153:;
3370          V467= list(2,VV[179],(V467));          V502= list(2,VV[179],(V502));
3371          goto T1148;          goto T1148;
3372          goto T1152;          goto T1152;
3373  T1152:;  T1152:;
3374          FEerror("The ECASE key value ~s is illegal.",1,V475);          FEerror("The ECASE key value ~s is illegal.",1,V512);
3375          goto T1148;}          goto T1148;}
3376          goto T1148;          goto T1148;
3377  T1148:;  T1148:;
3378          V476= list(3,VV[180],(V468),(V467));          V513= list(3,VV[180],(V503),(V502));
3379          {object V477 = (*(LnkLI375))(/* INLINE-ARGS */V476);          {object V514 = (*(LnkLI375))(/* INLINE-ARGS */V513);
3380          VMR69(V477)}}}          VMR69(V514)}}}
3381          base[0]=base[0];          base[0]=base[0];
3382          return Cnil;          return Cnil;
3383  }  }
3384  /*      local entry for function LOOP-SUM-COLLECTION    */  /*      local entry for function LOOP-SUM-COLLECTION    */
3385    
3386  static object LI81(V481,V482,V483)  static object LI81(V518,V519,V520)
3387    
3388  object V481;object V482;object V483;  object V518;object V519;object V520;
3389  {        VMB70 VMS70 VMV70  {        VMB70 VMS70 VMV70
3390          goto TTL;          goto TTL;
3391  TTL:;  TTL:;
3392          {register object V484;          {register object V521;
3393          object V485;          object V522;
3394          base[0]= (V481);          base[0]= (V518);
3395          base[1]= VV[181];          base[1]= VV[181];
3396          base[2]= (V483);          base[2]= (V520);
3397          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3398          (void) (*Lnk383)();          (void) (*Lnk383)();
3399          if(vs_base>=vs_top){vs_top=sup;goto T1162;}          if(vs_base>=vs_top){vs_top=sup;goto T1162;}
3400          V484= vs_base[0];          V521= vs_base[0];
3401          vs_base++;          vs_base++;
3402          if(vs_base>=vs_top){vs_top=sup;goto T1163;}          if(vs_base>=vs_top){vs_top=sup;goto T1163;}
3403          V485= vs_base[0];          V522= vs_base[0];
3404          vs_top=sup;          vs_top=sup;
3405          goto T1164;          goto T1164;
3406          goto T1162;          goto T1162;
3407  T1162:;  T1162:;
3408          V484= Cnil;          V521= Cnil;
3409          goto T1163;          goto T1163;
3410  T1163:;  T1163:;
3411          V485= Cnil;          V522= Cnil;
3412          goto T1164;          goto T1164;
3413  T1164:;  T1164:;
3414          (void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V484),16),(V482))));          (void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V521),16),(V519))));
3415          {register object V486;          {register object V523;
3416          V486= STREF(object,(V484),12);          V523= STREF(object,(V521),12);
3417          if(((V486))!=Cnil){          if(((V523))!=Cnil){
3418          goto T1167;}{object V488;          goto T1167;}
3419          V488= STREF(object,(V484),0);          V524 = (V521);{object V526;
3420          if(V488==Cnil)goto T1173;          V526= STREF(object,(V521),0);
3421          V487= V488;          if(V526==Cnil)goto T1173;
3422            V525= V526;
3423          goto T1172;          goto T1172;
3424          goto T1173;          goto T1173;
3425  T1173:;}  T1173:;}
3426          V487= (VFUN_NARGS=1,(*(LnkLI335))(VV[182]));          V525= (VFUN_NARGS=1,(*(LnkLI335))(VV[182]));
3427          goto T1172;          goto T1172;
3428  T1172:;  T1172:;
3429          V489= (VFUN_NARGS=3,(*(LnkLI371))(V487,Cnil,STREF(object,(V484),16)));          V527= (VFUN_NARGS=3,(*(LnkLI371))(V525,Cnil,STREF(object,(V521),16)));
3430          V486= make_cons(/* INLINE-ARGS */V489,Cnil);          V523= make_cons(/* INLINE-ARGS */V527,Cnil);
3431          V490= Ct;          V528 = (V523);
3432          STSET(object,(V484),12, (V486));          V529= Ct;
3433          (void)((V486));          STSET(object,V524,12, V528);
3434          if((STREF(object,(V484),0))!=Cnil){          (void)(V528);
3435            if((STREF(object,(V521),0))!=Cnil){
3436          goto T1167;}          goto T1167;}
3437          (void)((VFUN_NARGS=1,(*(LnkLI384))(CMPcar(STREF(object,(V484),12)))));          (void)((VFUN_NARGS=1,(*(LnkLI384))(CMPcar(STREF(object,(V521),12)))));
3438          goto T1167;          goto T1167;
3439  T1167:;  T1167:;
3440          if(!(((V481))==(VV[183]))){          if(!(((V518))==(VV[183]))){
3441          goto T1179;}          goto T1179;}
3442          V492= CMPcar((V486));          V531= CMPcar((V523));
3443          V493= CMPcar((V486));          V532= CMPcar((V523));
3444          V494= list(2,VV[184],CMPcar((V486)));          V533= list(2,VV[184],CMPcar((V523)));
3445          V491= list(3,VV[8],(V485),list(3,VV[11],/* INLINE-ARGS */V492,(*(LnkLI337))(Ct,/* INLINE-ARGS */V493,/* INLINE-ARGS */V494)));          V530= list(3,VV[8],(V522),list(3,VV[11],/* INLINE-ARGS */V531,(*(LnkLI337))(Ct,/* INLINE-ARGS */V532,/* INLINE-ARGS */V533)));
3446          goto T1177;          goto T1177;
3447          goto T1179;          goto T1179;
3448  T1179:;  T1179:;
3449          V495= CMPcar((V486));          V534= CMPcar((V523));
3450          V496= (*(LnkLI337))(Ct,CMPcar((V486)),CMPcar((V486)));          V535= (*(LnkLI337))(Ct,CMPcar((V523)),CMPcar((V523)));
3451          V491= list(3,VV[11],/* INLINE-ARGS */V495,list(3,VV[185],/* INLINE-ARGS */V496,(V485)));          V536 = (V522);
3452            V530= list(3,VV[11],/* INLINE-ARGS */V534,list(3,VV[185],/* INLINE-ARGS */V535,V536));
3453          goto T1177;          goto T1177;
3454  T1177:;  T1177:;
3455          {object V497 = (*(LnkLI375))(V491);          {object V537 = (*(LnkLI375))(V530);
3456          VMR70(V497)}}}          VMR70(V537)}}}
3457          base[0]=base[0];          base[0]=base[0];
3458          return Cnil;          return Cnil;
3459  }  }
3460  /*      local entry for function LOOP-MAXMIN-COLLECTION */  /*      local entry for function LOOP-MAXMIN-COLLECTION */
3461    
3462  static object LI82(V499)  static object LI82(V539)
3463    
3464  object V499;  object V539;
3465  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
3466          goto TTL;          goto TTL;
3467  TTL:;  TTL:;
3468          {register object V500;          {register object V540;
3469          object V501;          object V541;
3470          base[0]= (V499);          base[0]= (V539);
3471          base[1]= VV[186];          base[1]= VV[186];
3472          base[2]= (VV[187]->s.s_dbind);          base[2]= (VV[187]->s.s_dbind);
3473          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3474          (void) (*Lnk383)();          (void) (*Lnk383)();
3475          if(vs_base>=vs_top){vs_top=sup;goto T1185;}          if(vs_base>=vs_top){vs_top=sup;goto T1185;}
3476          V500= vs_base[0];          V540= vs_base[0];
3477          vs_base++;          vs_base++;
3478          if(vs_base>=vs_top){vs_top=sup;goto T1186;}          if(vs_base>=vs_top){vs_top=sup;goto T1186;}
3479          V501= vs_base[0];          V541= vs_base[0];
3480          vs_top=sup;          vs_top=sup;
3481          goto T1187;          goto T1187;
3482          goto T1185;          goto T1185;
3483  T1185:;  T1185:;
3484          V500= Cnil;          V540= Cnil;
3485          goto T1186;          goto T1186;
3486  T1186:;  T1186:;
3487          V501= Cnil;          V541= Cnil;
3488          goto T1187;          goto T1187;
3489  T1187:;  T1187:;
3490          (void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V500),16),(VV[187]->s.s_dbind))));          (void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V540),16),(VV[187]->s.s_dbind))));
3491          {register object V502;          {register object V542;
3492          V502= STREF(object,(V500),20);          V542= STREF(object,(V540),20);
3493          if(((V502))!=Cnil){          if(((V542))!=Cnil){
3494          goto T1190;}{object V504;          goto T1190;}
3495          V504= STREF(object,(V500),0);          V543 = (V540);{object V545;
3496          if(V504==Cnil)goto T1196;          V545= STREF(object,(V540),0);
3497          V503= V504;          if(V545==Cnil)goto T1196;
3498            V544= V545;
3499          goto T1195;          goto T1195;
3500          goto T1196;          goto T1196;
3501  T1196:;}  T1196:;}
3502          V503= (VFUN_NARGS=1,(*(LnkLI335))(VV[188]));          V544= (VFUN_NARGS=1,(*(LnkLI335))(VV[188]));
3503          goto T1195;          goto T1195;
3504  T1195:;  T1195:;
3505          V502= (*(LnkLI388))(V503,STREF(object,(V500),16));          V542= (*(LnkLI388))(V544,STREF(object,(V540),16));
3506          V505= Ct;          V546 = (V542);
3507          STSET(object,(V500),20, (V502));          V547= Ct;
3508          (void)((V502));          STSET(object,V543,20, V546);
3509          if((STREF(object,(V500),0))!=Cnil){          (void)(V546);
3510            if((STREF(object,(V540),0))!=Cnil){
3511          goto T1190;}          goto T1190;}
3512          (void)((VFUN_NARGS=1,(*(LnkLI384))(STREF(object,(V502),0))));          (void)((VFUN_NARGS=1,(*(LnkLI384))(STREF(object,(V542),0))));
3513          goto T1190;          goto T1190;
3514  T1190:;  T1190:;
3515          (void)((*(LnkLI389))((V499),(V502)));          (void)((*(LnkLI389))((V539),(V542)));
3516          {object V506;          {object V548;
3517          V506= list(2,VV[189],(V502));          V548= list(2,VV[189],(V542));
3518          (VV[109]->s.s_dbind)= make_cons((V506),(VV[109]->s.s_dbind));}          (VV[109]->s.s_dbind)= make_cons((V548),(VV[109]->s.s_dbind));}
3519          V507= list(4,VV[190],(V502),(V499),(V501));          V549= list(4,VV[190],(V542),(V539),(V541));
3520          {object V508 = (*(LnkLI375))(/* INLINE-ARGS */V507);          {object V550 = (*(LnkLI375))(/* INLINE-ARGS */V549);
3521          VMR71(V508)}}}          VMR71(V550)}}}
3522          base[0]=base[0];          base[0]=base[0];
3523          return Cnil;          return Cnil;
3524  }  }
3525  /*      local entry for function LOOP-DO-ALWAYS */  /*      local entry for function LOOP-DO-ALWAYS */
3526    
3527  static object LI83(V511,V512)  static object LI83(V553,V554)
3528    
3529  object V511;object V512;  object V553;object V554;
3530  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
3531          goto TTL;          goto TTL;
3532  TTL:;  TTL:;
3533          {object V513;          {object V555;
3534          vs_base=vs_top;          vs_base=vs_top;
3535          (void) (*Lnk363)();          (void) (*Lnk363)();
3536          vs_top=sup;          vs_top=sup;
3537          V513= vs_base[0];          V555= vs_base[0];
3538          if(((V511))==Cnil){          if(((V553))==Cnil){
3539          goto T1205;}          goto T1205;}
3540          vs_base=vs_top;          vs_base=vs_top;
3541          (void) (*Lnk373)();          (void) (*Lnk373)();
# Line 3503  T1205:; Line 3545  T1205:;
3545          vs_base=vs_top;          vs_base=vs_top;
3546          (void) (*Lnk390)();          (void) (*Lnk390)();
3547          vs_top=sup;          vs_top=sup;
3548          if(((V512))==Cnil){          if(((V554))==Cnil){
3549          goto T1212;}          goto T1212;}
3550          V514= VV[8];          V556= VV[8];
3551          goto T1210;          goto T1210;
3552          goto T1212;          goto T1212;
3553  T1212:;  T1212:;
3554          V514= VV[191];          V556= VV[191];
3555          goto T1210;          goto T1210;
3556  T1210:;  T1210:;
3557          V515= list(3,V514,(V513),(*(LnkLI366))(Cnil));          V557 = (V555);
3558          (void)((*(LnkLI375))(/* INLINE-ARGS */V515));          V558= list(3,V556,V557,(*(LnkLI366))(Cnil));
3559          {object V516 = (VFUN_NARGS=1,(*(LnkLI384))(Ct));          (void)((*(LnkLI375))(/* INLINE-ARGS */V558));
3560          VMR72(V516)}}          {object V559 = (VFUN_NARGS=1,(*(LnkLI384))(Ct));
3561            VMR72(V559)}}
3562          base[0]=base[0];          base[0]=base[0];
3563          return Cnil;          return Cnil;
3564  }  }
3565  /*      local entry for function LOOP-DO-THEREIS        */  /*      local entry for function LOOP-DO-THEREIS        */
3566    
3567  static object LI84(V518)  static object LI84(V561)
3568    
3569  object V518;  object V561;
3570  {        VMB73 VMS73 VMV73  {        VMB73 VMS73 VMV73
3571          goto TTL;          goto TTL;
3572  TTL:;  TTL:;
3573          if(((V518))==Cnil){          if(((V561))==Cnil){
3574          goto T1214;}          goto T1214;}
3575          vs_base=vs_top;          vs_base=vs_top;
3576          (void) (*Lnk373)();          (void) (*Lnk373)();
# Line 3538  T1214:; Line 3581  T1214:;
3581          (void) (*Lnk390)();          (void) (*Lnk390)();
3582          vs_top=sup;          vs_top=sup;
3583          (void)((VFUN_NARGS=0,(*(LnkLI384))()));          (void)((VFUN_NARGS=0,(*(LnkLI384))()));
3584          V519= (*(LnkLI391))();          V562= (*(LnkLI391))();
3585          vs_base=vs_top;          vs_base=vs_top;
3586          (void) (*Lnk363)();          (void) (*Lnk363)();
3587          vs_top=sup;          vs_top=sup;
3588          V520= vs_base[0];          V563= vs_base[0];
3589          V521= list(3,VV[11],/* INLINE-ARGS */V519,V520);          V564= list(3,VV[11],/* INLINE-ARGS */V562,V563);
3590          V522= list(3,VV[8],/* INLINE-ARGS */V521,(*(LnkLI366))((VV[118]->s.s_dbind)));          V565= list(3,VV[8],/* INLINE-ARGS */V564,(*(LnkLI366))((VV[118]->s.s_dbind)));
3591          {object V523 = (*(LnkLI375))(/* INLINE-ARGS */V522);          {object V566 = (*(LnkLI375))(/* INLINE-ARGS */V565);
3592          VMR73(V523)}          VMR73(V566)}
3593          base[0]=base[0];          base[0]=base[0];
3594          return Cnil;          return Cnil;
3595  }  }
3596  /*      local entry for function LOOP-DO-WHILE  */  /*      local entry for function LOOP-DO-WHILE  */
3597    
3598  static object LI85(V526,V527)  static object LI85(V569,V570)
3599    
3600  object V526;object V527;  object V569;object V570;
3601  {        VMB74 VMS74 VMV74  {        VMB74 VMS74 VMV74
3602          goto TTL;          goto TTL;
3603  TTL:;  TTL:;
3604          {object V528;          {object V571;
3605          vs_base=vs_top;          vs_base=vs_top;
3606          (void) (*Lnk363)();          (void) (*Lnk363)();
3607          vs_top=sup;          vs_top=sup;
3608          V528= vs_base[0];          V571= vs_base[0];
3609          base[1]= (V527);          base[1]= (V570);
3610          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3611          (void) (*Lnk373)();          (void) (*Lnk373)();
3612          vs_top=sup;          vs_top=sup;
3613          if(((V526))==Cnil){          if(((V569))==Cnil){
3614          goto T1225;}          goto T1225;}
3615          V529= VV[8];          V572= VV[8];
3616          goto T1223;          goto T1223;
3617          goto T1225;          goto T1225;
3618  T1225:;  T1225:;
3619          V529= VV[191];          V572= VV[191];
3620          goto T1223;          goto T1223;
3621  T1223:;  T1223:;
3622          V530= list(3,V529,(V528),VV[192]);          V573 = (V571);
3623          {object V531 = (*(LnkLI365))(/* INLINE-ARGS */V530);          V574= list(3,V572,V573,VV[192]);
3624          VMR74(V531)}}          {object V575 = (*(LnkLI365))(/* INLINE-ARGS */V574);
3625            VMR74(V575)}}
3626          base[0]=base[0];          base[0]=base[0];
3627          return Cnil;          return Cnil;
3628  }  }
# Line 3593  TTL:; Line 3637  TTL:;
3637          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3638          (void) (*Lnk373)();          (void) (*Lnk373)();
3639          vs_top=sup;          vs_top=sup;
3640          {register object V532;          {register object V576;
3641          register object V533;          register object V577;
3642          register object V534;          register object V578;
3643          V532= Cnil;          V576= Cnil;
3644          V533= Cnil;          V577= Cnil;
3645          V534= Cnil;          V578= Cnil;
3646          goto T1230;          goto T1230;
3647  T1230:;  T1230:;
3648          vs_base=vs_top;          vs_base=vs_top;
3649          (void) (*Lnk359)();          (void) (*Lnk359)();
3650          vs_top=sup;          vs_top=sup;
3651          V532= vs_base[0];          V576= vs_base[0];
3652          base[0]= (V532);          base[0]= (V576);
3653          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3654          (void) (*Lnk378)();          (void) (*Lnk378)();
3655          vs_top=sup;          vs_top=sup;
3656          V534= vs_base[0];          V578= vs_base[0];
3657          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[194]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[194]))==Cnil){
3658          goto T1241;}          goto T1241;}
3659          vs_base=vs_top;          vs_base=vs_top;
# Line 3618  T1230:; Line 3662  T1230:;
3662          vs_base=vs_top;          vs_base=vs_top;
3663          (void) (*Lnk363)();          (void) (*Lnk363)();
3664          vs_top=sup;          vs_top=sup;
3665          V533= vs_base[0];          V577= vs_base[0];
3666          goto T1239;          goto T1239;
3667          goto T1241;          goto T1241;
3668  T1241:;  T1241:;
3669          V533= Cnil;          V577= Cnil;
3670          goto T1239;          goto T1239;
3671  T1239:;  T1239:;
3672          if(((V532))==Cnil){          if(((V576))==Cnil){
3673          goto T1244;}          goto T1244;}
3674          if(((*(LnkLI381))((V532)))==Cnil){          if(((*(LnkLI381))((V576)))==Cnil){
3675          goto T1244;}          goto T1244;}
3676          base[0]= VV[195];          base[0]= VV[195];
3677          base[1]= (V532);          base[1]= (V576);
3678          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3679          (void) (*Lnk354)();          (void) (*Lnk354)();
3680          vs_top=sup;          vs_top=sup;
3681          goto T1244;          goto T1244;
3682  T1244:;  T1244:;
3683          (void)((VFUN_NARGS=3,(*(LnkLI371))((V532),(V533),(V534))));          (void)((VFUN_NARGS=3,(*(LnkLI371))((V576),(V577),(V578))));
3684          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))==Cnil){
3685          goto T1254;}          goto T1254;}
3686          vs_base=vs_top;          vs_base=vs_top;
# Line 3645  T1244:; Line 3689  T1244:;
3689          goto T1252;          goto T1252;
3690          goto T1254;          goto T1254;
3691  T1254:;  T1254:;
3692          {object V535 = (*(LnkLI358))();          {object V579 = (*(LnkLI358))();
3693          VMR75(V535)}          VMR75(V579)}
3694          goto T1252;          goto T1252;
3695  T1252:;  T1252:;
3696          goto T1230;}          goto T1230;}
# Line 3655  T1252:; Line 3699  T1252:;
3699  }  }
3700  /*      local entry for function LOOP-HACK-ITERATION    */  /*      local entry for function LOOP-HACK-ITERATION    */
3701    
3702  static object LI87(V537)  static object LI87(V581)
3703    
3704  register object V537;  register object V581;
3705  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
3706          goto TTL;          goto TTL;
3707  TTL:;  TTL:;
3708          {register object V538;          {register object V582;
3709          register object V539;          register object V583;
3710          register object V540;          register object V584;
3711          register object V541;          register object V585;
3712          register object V542;          register object V586;
3713          register object V543;          register object V587;
3714          register object V544;          register object V588;
3715          register object V545;          register object V589;
3716          register object V546;          register object V590;
3717          object V547;          object V591;
3718          V538= Cnil;          V582= Cnil;
3719          V539= Cnil;          V583= Cnil;
3720          V540= Cnil;          V584= Cnil;
3721          V541= Cnil;          V585= Cnil;
3722          V542= Cnil;          V586= Cnil;
3723          V543= Cnil;          V587= Cnil;
3724          V544= Cnil;          V588= Cnil;
3725          V545= Cnil;          V589= Cnil;
3726          V546= Cnil;          V590= Cnil;
3727          V547= Cnil;          V591= Cnil;
3728          goto T1259;          goto T1259;
3729  T1259:;  T1259:;
3730          base[1]= CMPcar((V537));          base[1]= CMPcar((V581));
3731          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3732          Lsymbol_function();          Lsymbol_function();
3733          vs_top=sup;          vs_top=sup;
3734          base[0]= vs_base[0];          base[0]= vs_base[0];
3735          {object V548;          {object V592;
3736          V548= CMPcdr((V537));          V592= CMPcdr((V581));
3737           vs_top=base+1;           vs_top=base+1;
3738           while(V548!=Cnil)           while(V592!=Cnil)
3739           {vs_push((V548)->c.c_car);V548=(V548)->c.c_cdr;}           {vs_push((V592)->c.c_car);V592=(V592)->c.c_cdr;}
3740          vs_base=base+1;}          vs_base=base+1;}
3741          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
3742          vs_top=sup;          vs_top=sup;
3743          V547= vs_base[0];          V591= vs_base[0];
3744          V546= (V547);          V590= (V591);
3745          if((CMPcar((V546)))!=Cnil){          if((CMPcar((V590)))!=Cnil){
3746          goto T1269;}          goto T1269;}
3747          goto T1268;          goto T1268;
3748          goto T1269;          goto T1269;
3749  T1269:;  T1269:;
3750          {object V549;          {object V593;
3751          V549= CMPcar((V546));          V593= CMPcar((V590));
3752          V538= make_cons((V549),(V538));}          V582= make_cons((V593),(V582));}
3753          goto T1268;          goto T1268;
3754  T1268:;  T1268:;
3755          V546= CMPcdr((V546));          V594 = (V583);
3756          base[0]= CMPcar((V546));          V590= CMPcdr((V590));
3757            V596 = (V590);
3758            base[0]= CMPcar(V596);
3759          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3760          Lcopy_list();          Lcopy_list();
3761          vs_top=sup;          vs_top=sup;
3762          V550= vs_base[0];          V595= vs_base[0];
3763          V539= nconc((V539),V550);          V583= nconc(V594,V595);
3764          V546= CMPcdr((V546));          V590= CMPcdr((V590));
3765          if((CMPcar((V546)))!=Cnil){          V597 = (V590);
3766            if((CMPcar(V597))!=Cnil){
3767          goto T1279;}          goto T1279;}
3768          goto T1278;          goto T1278;
3769          goto T1279;          goto T1279;
3770  T1279:;  T1279:;
3771          {object V551;          {object V598;
3772          V551= CMPcar((V546));          V598= CMPcar((V590));
3773          V540= make_cons((V551),(V540));}          V584= make_cons((V598),(V584));}
3774          goto T1278;          goto T1278;
3775  T1278:;  T1278:;
3776          V546= CMPcdr((V546));          V599 = (V585);
3777          base[0]= CMPcar((V546));          V590= CMPcdr((V590));
3778            V601 = (V590);
3779            base[0]= CMPcar(V601);
3780          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3781          Lcopy_list();          Lcopy_list();
3782          vs_top=sup;          vs_top=sup;
3783          V552= vs_base[0];          V600= vs_base[0];
3784          V541= nconc((V541),V552);          V585= nconc(V599,V600);
3785          V546= CMPcdr((V546));          V590= CMPcdr((V590));
3786          if(((VV[112]->s.s_dbind))==Cnil){          if(((VV[112]->s.s_dbind))==Cnil){
3787          goto T1291;}          goto T1291;}
3788          base[0]= VV[196];          base[0]= VV[196];
# Line 3742  T1278:; Line 3791  T1278:;
3791          vs_top=sup;          vs_top=sup;
3792          goto T1291;          goto T1291;
3793  T1291:;  T1291:;
3794          if(((V546))!=Cnil){          if(((V590))!=Cnil){
3795          goto T1295;}          goto T1295;}
3796          V546= (V547);          V590= (V591);
3797          goto T1295;          goto T1295;
3798  T1295:;  T1295:;
3799          if((CMPcar((V546)))==Cnil){          if((CMPcar((V590)))==Cnil){
3800          goto T1299;}          goto T1299;}
3801          {object V553;          {object V602;
3802          V553= CMPcar((V546));          V602= CMPcar((V590));
3803          V542= make_cons((V553),(V542));}          V586= make_cons((V602),(V586));}
3804          goto T1299;          goto T1299;
3805  T1299:;  T1299:;
3806          V546= CMPcdr((V546));          V603 = (V587);
3807          base[0]= CMPcar((V546));          V590= CMPcdr((V590));
3808            V605 = (V590);
3809            base[0]= CMPcar(V605);
3810          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3811          Lcopy_list();          Lcopy_list();
3812          vs_top=sup;          vs_top=sup;
3813          V554= vs_base[0];          V604= vs_base[0];
3814          V543= nconc((V543),V554);          V587= nconc(V603,V604);
3815          V546= CMPcdr((V546));          V590= CMPcdr((V590));
3816          if((CMPcar((V546)))==Cnil){          V606 = (V590);
3817            if((CMPcar(V606))==Cnil){
3818          goto T1309;}          goto T1309;}
3819          {object V555;          {object V607;
3820          V555= CMPcar((V546));          V607= CMPcar((V590));
3821          V544= make_cons((V555),(V544));}          V588= make_cons((V607),(V588));}
3822          goto T1309;          goto T1309;
3823  T1309:;  T1309:;
3824          base[0]= CMPcadr((V546));          V608 = (V589);
3825            base[0]= CMPcadr((V590));
3826          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3827          Lcopy_list();          Lcopy_list();
3828          vs_top=sup;          vs_top=sup;
3829          V556= vs_base[0];          V609= vs_base[0];
3830          V545= nconc((V545),V556);          V589= nconc(V608,V609);
3831          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))!=Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))!=Cnil){
3832          goto T1319;}          goto T1319;}
3833          V557= (*(LnkLI343))((V545));          V610= (*(LnkLI343))((V589));
3834          base[0]= (V544);          base[0]= (V588);
3835          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3836          L88(base);          L88(base);
3837          vs_top=sup;          vs_top=sup;
3838          V558= vs_base[0];          V611= vs_base[0];
3839          V559= (*(LnkLI344))((V543));          V612= (*(LnkLI344))((V587));
3840          base[0]= (V542);          base[0]= (V586);
3841          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3842          L88(base);          L88(base);
3843          vs_top=sup;          vs_top=sup;
3844          V560= vs_base[0];          V613= vs_base[0];
3845          (VV[110]->s.s_dbind)= listA(5,/* INLINE-ARGS */V557,V558,/* INLINE-ARGS */V559,V560,(VV[110]->s.s_dbind));          V614 = (VV[110]->s.s_dbind);
3846          V561= (*(LnkLI343))((V541));          (VV[110]->s.s_dbind)= listA(5,/* INLINE-ARGS */V610,V611,/* INLINE-ARGS */V612,V613,V614);
3847          base[0]= (V540);          V615= (*(LnkLI343))((V585));
3848            base[0]= (V584);
3849          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3850          L88(base);          L88(base);
3851          vs_top=sup;          vs_top=sup;
3852          V562= vs_base[0];          V616= vs_base[0];
3853          V563= (*(LnkLI344))((V539));          V617= (*(LnkLI344))((V583));
3854          base[0]= (V538);          base[0]= (V582);
3855          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3856          L88(base);          L88(base);
3857          vs_top=sup;          vs_top=sup;
3858          V564= vs_base[0];          V618= vs_base[0];
3859          (VV[113]->s.s_dbind)= listA(5,/* INLINE-ARGS */V561,V562,/* INLINE-ARGS */V563,V564,(VV[113]->s.s_dbind));          V619 = (VV[113]->s.s_dbind);
3860            (VV[113]->s.s_dbind)= listA(5,/* INLINE-ARGS */V615,V616,/* INLINE-ARGS */V617,V618,V619);
3861          (void)((*(LnkLI358))());          (void)((*(LnkLI358))());
3862          {object V565 = Cnil;          {object V620 = Cnil;
3863          VMR76(V565)}          VMR76(V620)}
3864          goto T1319;          goto T1319;
3865  T1319:;  T1319:;
3866          vs_base=vs_top;          vs_base=vs_top;
# Line 3813  T1319:; Line 3868  T1319:;
3868          vs_top=sup;          vs_top=sup;
3869          if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){          if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){
3870          goto T1336;}          goto T1336;}
3871          V546= (*(LnkLI360))(CMPcar((VV[88]->s.s_dbind)),STREF(object,(VV[99]->s.s_dbind),4));          V590= (*(LnkLI360))(CMPcar((VV[88]->s.s_dbind)),STREF(object,(VV[99]->s.s_dbind),4));
3872          if(((V546))==Cnil){          if(((V590))==Cnil){
3873          goto T1336;}          goto T1336;}
3874          vs_base=vs_top;          vs_base=vs_top;
3875          (void) (*Lnk359)();          (void) (*Lnk359)();
3876          vs_top=sup;          vs_top=sup;
3877          V537= (V546);          V581= (V590);
3878          goto T1336;          goto T1336;
3879  T1336:;  T1336:;
3880          goto T1259;}          goto T1259;}
# Line 3835  static void L89() Line 3890  static void L89()
3890          vs_top=sup;          vs_top=sup;
3891          goto TTL;          goto TTL;
3892  TTL:;  TTL:;
3893          {object V566;          {object V621;
3894          object V567;          object V622;
3895          object V568;          object V623;
3896          object V569;          object V624;
3897          object V570;          object V625;
3898          vs_base=vs_top;          vs_base=vs_top;
3899          (void) (*Lnk359)();          (void) (*Lnk359)();
3900          vs_top=sup;          vs_top=sup;
3901          V566= vs_base[0];          V621= vs_base[0];
3902          base[3]= (V566);          base[3]= (V621);
3903          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3904          (void) (*Lnk378)();          (void) (*Lnk378)();
3905          vs_top=sup;          vs_top=sup;
3906          V567= vs_base[0];          V622= vs_base[0];
3907          vs_base=vs_top;          vs_base=vs_top;
3908          (void) (*Lnk359)();          (void) (*Lnk359)();
3909          vs_top=sup;          vs_top=sup;
3910          V568= vs_base[0];          V623= vs_base[0];
3911          V569= Cnil;          V624= Cnil;
3912          V570= Cnil;          V625= Cnil;
3913          vs_base=vs_top;          vs_base=vs_top;
3914          (void) (*Lnk363)();          (void) (*Lnk363)();
3915          vs_top=sup;          vs_top=sup;
3916          V569= vs_base[0];          V624= vs_base[0];
3917          if(!(type_of((V568))==t_symbol)){          if(!(type_of((V623))==t_symbol)){
3918          goto T1355;}          goto T1355;}
3919          V570= (*(LnkLI360))((V568),STREF(object,(VV[99]->s.s_dbind),8));          V625= (*(LnkLI360))((V623),STREF(object,(VV[99]->s.s_dbind),8));
3920          if(((V570))!=Cnil){          if(((V625))!=Cnil){
3921          goto T1354;}          goto T1354;}
3922          goto T1355;          goto T1355;
3923  T1355:;  T1355:;
3924          base[3]= VV[199];          base[3]= VV[199];
3925          base[4]= (V568);          base[4]= (V623);
3926          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3927          (void) (*Lnk354)();          (void) (*Lnk354)();
3928          vs_top=sup;          vs_top=sup;
3929          goto T1354;          goto T1354;
3930  T1354:;  T1354:;
3931          base[3]= CMPcar((V570));          base[3]= CMPcar((V625));
3932          base[4]= (V566);          base[4]= (V621);
3933          base[5]= (V569);          base[5]= (V624);
3934          base[6]= (V567);          base[6]= (V622);
3935          {object V571;          {object V626;
3936          V571= CMPcdr((V570));          V626= CMPcdr((V625));
3937           vs_top=base+7;           vs_top=base+7;
3938           while(V571!=Cnil)           while(V626!=Cnil)
3939           {vs_push((V571)->c.c_car);V571=(V571)->c.c_cdr;}           {vs_push((V626)->c.c_car);V626=(V626)->c.c_cdr;}
3940          vs_base=base+4;}          vs_base=base+4;}
3941          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
3942          return;}          return;}
# Line 3897  TTL:; Line 3952  TTL:;
3952          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3953          (void) (*Lnk373)();          (void) (*Lnk373)();
3954          vs_top=sup;          vs_top=sup;
3955          {object V572;          {object V627;
3956          vs_base=vs_top;          vs_base=vs_top;
3957          (void) (*Lnk363)();          (void) (*Lnk363)();
3958          vs_top=sup;          vs_top=sup;
3959          V572= vs_base[0];          V627= vs_base[0];
3960          {object V574;          {object V629;
3961          V575= (VFUN_NARGS=0,(*(LnkLI335))());          V630= (VFUN_NARGS=0,(*(LnkLI335))());
3962          V574= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V575,(V572),VV[201]));          V631 = (V627);
3963          {object V576;          V632 = VV[201];
3964          V576= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V574))),VV[204]);          V629= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V630,V631,V632));
3965          (VV[110]->s.s_dbind)= make_cons((V576),(VV[110]->s.s_dbind));}          {object V633;
3966          {object V577;          V633= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V629))),VV[204]);
3967          V577= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V574))),VV[205]);          (VV[110]->s.s_dbind)= make_cons((V633),(VV[110]->s.s_dbind));}
3968          (VV[113]->s.s_dbind)= make_cons((V577),(VV[113]->s.s_dbind));          {object V634;
3969          {object V578 = (VV[113]->s.s_dbind);          V634= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V629))),VV[205]);
3970          VMR78(V578)}}}}          (VV[113]->s.s_dbind)= make_cons((V634),(VV[113]->s.s_dbind));
3971            {object V635 = (VV[113]->s.s_dbind);
3972            VMR78(V635)}}}}
3973          base[0]=base[0];          base[0]=base[0];
3974          return Cnil;          return Cnil;
3975  }  }
# Line 3924  static object LI91() Line 3981  static object LI91()
3981          goto TTL;          goto TTL;
3982  TTL:;  TTL:;
3983          if((VV[118]->s.s_dbind)!=Cnil){          if((VV[118]->s.s_dbind)!=Cnil){
3984          {object V579 = (VV[118]->s.s_dbind);          {object V636 = (VV[118]->s.s_dbind);
3985          VMR79(V579)}}          VMR79(V636)}}
3986          V580= (VFUN_NARGS=1,(*(LnkLI335))(VV[206]));          V637= (VFUN_NARGS=1,(*(LnkLI335))(VV[206]));
3987          (VV[118]->s.s_dbind)= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V580,Cnil,Cnil));          (VV[118]->s.s_dbind)= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V637,Cnil,Cnil));
3988          {object V581 = (VV[118]->s.s_dbind);          {object V638 = (VV[118]->s.s_dbind);
3989          VMR79(V581)}          VMR79(V638)}
3990          return Cnil;          return Cnil;
3991  }  }
3992  /*      local entry for function LOOP-ANSI-FOR-EQUALS   */  /*      local entry for function LOOP-ANSI-FOR-EQUALS   */
3993    
3994  static object LI92(V585,V586,V587)  static object LI92(V642,V643,V644)
3995    
3996  register object V585;object V586;object V587;  register object V642;object V643;object V644;
3997  {        VMB80 VMS80 VMV80  {        VMB80 VMS80 VMV80
3998          goto TTL;          goto TTL;
3999  TTL:;  TTL:;
4000          (void)((*(LnkLI392))((V585),Cnil,(V587)));          (void)((*(LnkLI392))((V642),Cnil,(V644)));
4001          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[207]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[207]))==Cnil){
4002          goto T1379;}          goto T1379;}
4003          vs_base=vs_top;          vs_base=vs_top;
4004          (void) (*Lnk359)();          (void) (*Lnk359)();
4005          vs_top=sup;          vs_top=sup;
4006            V645 = (V642);
4007          vs_base=vs_top;          vs_base=vs_top;
4008          (void) (*Lnk363)();          (void) (*Lnk363)();
4009          vs_top=sup;          vs_top=sup;
4010          V588= vs_base[0];          V646= vs_base[0];
4011          V589= list(2,(V585),V588);          V647= list(2,V645,V646);
4012          {object V590 = listA(7,Cnil,/* INLINE-ARGS */V589,Cnil,Cnil,Cnil,list(2,(V585),(V586)),VV[208]);          {object V648 = listA(7,Cnil,/* INLINE-ARGS */V647,Cnil,Cnil,Cnil,list(2,(V642),(V643)),VV[208]);
4013          VMR80(V590)}          VMR80(V648)}
4014          goto T1379;          goto T1379;
4015  T1379:;  T1379:;
4016          {object V591 = listA(3,Cnil,list(2,(V585),(V586)),VV[209]);          {object V649 = listA(3,Cnil,list(2,(V642),(V643)),VV[209]);
4017          VMR80(V591)}          VMR80(V649)}
4018          base[0]=base[0];          base[0]=base[0];
4019          return Cnil;          return Cnil;
4020  }  }
4021  /*      local entry for function LOOP-FOR-ACROSS        */  /*      local entry for function LOOP-FOR-ACROSS        */
4022    
4023  static object LI93(V595,V596,V597)  static object LI93(V653,V654,V655)
4024    
4025  object V595;object V596;object V597;  object V653;object V654;object V655;
4026  {        VMB81 VMS81 VMV81  {        VMB81 VMS81 VMV81
4027          goto TTL;          goto TTL;
4028  TTL:;  TTL:;
4029          (void)((*(LnkLI392))((V595),Cnil,(V597)));          (void)((*(LnkLI392))((V653),Cnil,(V655)));
4030          {object V598;          {object V656;
4031          register object V599;          register object V657;
4032          V598= (VFUN_NARGS=1,(*(LnkLI335))(VV[210]));          V656= (VFUN_NARGS=1,(*(LnkLI335))(VV[210]));
4033          V599= (VFUN_NARGS=1,(*(LnkLI335))(VV[211]));          V657= (VFUN_NARGS=1,(*(LnkLI335))(VV[211]));
4034          {register object V600;          {register object V658;
4035          object V601;          object V659;
4036          object V602;          object V660;
4037          base[0]= (V596);          base[0]= (V654);
4038          base[1]= VV[212];          base[1]= VV[212];
4039          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4040          (void) (*Lnk393)();          (void) (*Lnk393)();
4041          if(vs_base>=vs_top){vs_top=sup;goto T1389;}          if(vs_base>=vs_top){vs_top=sup;goto T1389;}
4042          V600= vs_base[0];          V658= vs_base[0];
4043          vs_base++;          vs_base++;
4044          if(vs_base>=vs_top){vs_top=sup;goto T1390;}          if(vs_base>=vs_top){vs_top=sup;goto T1390;}
4045          V601= vs_base[0];          V659= vs_base[0];
4046          vs_base++;          vs_base++;
4047          if(vs_base>=vs_top){vs_top=sup;goto T1391;}          if(vs_base>=vs_top){vs_top=sup;goto T1391;}
4048          V602= vs_base[0];          V660= vs_base[0];
4049          vs_top=sup;          vs_top=sup;
4050          goto T1392;          goto T1392;
4051          goto T1389;          goto T1389;
4052  T1389:;  T1389:;
4053          V600= Cnil;          V658= Cnil;
4054          goto T1390;          goto T1390;
4055  T1390:;  T1390:;
4056          V601= Cnil;          V659= Cnil;
4057          goto T1391;          goto T1391;
4058  T1391:;  T1391:;
4059          V602= Cnil;          V660= Cnil;
4060          goto T1392;          goto T1392;
4061  T1392:;  T1392:;
4062          if(!(type_of((V600))==t_cons)){          V661 = (V656);
4063            V662 = (V658);
4064            if(!(type_of((V658))==t_cons)){
4065          goto T1396;}          goto T1396;}
4066          if(!((CMPcar((V600)))==(VV[213]))){          if(!((CMPcar((V658)))==(VV[213]))){
4067          goto T1396;}          goto T1396;}
4068          V603= CMPcadr((V600));          V663= CMPcadr((V658));
4069          goto T1394;          goto T1394;
4070          goto T1396;          goto T1396;
4071  T1396:;  T1396:;
4072          V603= VV[212];          V663= VV[212];
4073          goto T1394;          goto T1394;
4074  T1394:;  T1394:;
4075          (void)((VFUN_NARGS=3,(*(LnkLI371))((V598),(V600),V603)));          (void)((VFUN_NARGS=3,(*(LnkLI371))(V661,V662,V663)));
4076          (void)((VFUN_NARGS=3,(*(LnkLI371))((V599),small_fixnum(0),VV[214])));          (void)((VFUN_NARGS=3,(*(LnkLI371))((V657),small_fixnum(0),VV[214])));
4077          {long V604;          {long V664;
4078          object V605;          object V665;
4079          register object V606;          register object V666;
4080          object V607;          object V667;
4081          object V608;          object V668;
4082          object V609;          object V669;
4083          V604= 0;          V664= 0;
4084          if(((V601))!=Cnil){          if(((V659))!=Cnil){
4085          goto T1404;}          goto T1404;}
4086          {object V610;          {object V670;
4087          V610= (VFUN_NARGS=1,(*(LnkLI335))(VV[215]));          V670= (VFUN_NARGS=1,(*(LnkLI335))(VV[215]));
4088          {object V611;          {object V671;
4089          V611= list(3,VV[11],(V610),list(2,VV[216],(V598)));          V671= list(3,VV[11],(V670),list(2,VV[216],(V656)));
4090          (VV[108]->s.s_dbind)= make_cons((V611),(VV[108]->s.s_dbind));}          (VV[108]->s.s_dbind)= make_cons((V671),(VV[108]->s.s_dbind));}
4091          V605= (VFUN_NARGS=3,(*(LnkLI371))((V610),small_fixnum(0),VV[214]));          V665= (VFUN_NARGS=3,(*(LnkLI371))((V670),small_fixnum(0),VV[214]));
4092          goto T1402;}          goto T1402;}
4093          goto T1404;          goto T1404;
4094  T1404:;  T1404:;
4095          V604= (long)length((V602));          V664= (long)length((V660));
4096          V605= CMPmake_fixnum(V604);          V665= CMPmake_fixnum(V664);
4097          goto T1402;          goto T1402;
4098  T1402:;  T1402:;
4099          V606= list(3,VV[217],(V599),(V605));          V666= list(3,VV[217],(V657),(V665));
4100          V607= (V606);          V667= (V666);
4101          V608= list(2,(V595),list(3,VV[218],(V598),(V599)));          V668= list(2,(V653),list(3,VV[218],(V656),(V657)));
4102          V609= list(2,(V599),list(2,VV[184],(V599)));          V669= list(2,(V657),list(2,VV[184],(V657)));
4103          if(((V601))==Cnil){          if(((V659))==Cnil){
4104          goto T1415;}          goto T1415;}
4105          V606= ((V604)==(0)?Ct:Cnil);          V666= ((V664)==(0)?Ct:Cnil);
4106          if(!((V604)<=(1))){          if(!((V664)<=(1))){
4107          goto T1415;}          goto T1415;}
4108          V607= Ct;          V667= Ct;
4109          goto T1415;          goto T1415;
4110  T1415:;  T1415:;
4111          if(((((V606))==((V607))?Ct:Cnil))==Cnil){          V672 = (V667);
4112            V673 = (V668);
4113            V674 = (V669);
4114            if(((((V666))==((V667))?Ct:Cnil))==Cnil){
4115          goto T1424;}          goto T1424;}
4116          V612= Cnil;          V675= Cnil;
4117          goto T1423;          goto T1423;
4118          goto T1424;          goto T1424;
4119  T1424:;  T1424:;
4120          V612= list(4,(V606),(V608),Cnil,(V609));          V675= list(4,(V666),(V668),Cnil,(V669));
4121          goto T1423;          goto T1423;
4122  T1423:;  T1423:;
4123          {object V613 = listA(5,(V607),(V608),Cnil,(V609),V612);          {object V676 = listA(5,V672,V673,Cnil,V674,V675);
4124          VMR81(V613)}}}}          VMR81(V676)}}}}
4125          base[0]=base[0];          base[0]=base[0];
4126          return Cnil;          return Cnil;
4127  }  }
# Line 4068  static void L94() Line 4131  static void L94()
4131  {register object *base=vs_base;  {register object *base=vs_base;
4132          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
4133          vs_check;          vs_check;
4134          {object V614;          {object V677;
4135          V614=(base[0]);          V677=(base[0]);
4136          vs_top=sup;          vs_top=sup;
4137          goto TTL;          goto TTL;
4138  TTL:;  TTL:;
4139          {register object V615;          {register object V678;
4140          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[219]))==Cnil){          if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[219]))==Cnil){
4141          goto T1428;}          goto T1428;}
4142          vs_base=vs_top;          vs_base=vs_top;
# Line 4082  TTL:; Line 4145  TTL:;
4145          vs_base=vs_top;          vs_base=vs_top;
4146          (void) (*Lnk363)();          (void) (*Lnk363)();
4147          vs_top=sup;          vs_top=sup;
4148          V615= vs_base[0];          V678= vs_base[0];
4149          goto T1426;          goto T1426;
4150          goto T1428;          goto T1428;
4151  T1428:;  T1428:;
4152          V615= VV[220];          V678= VV[220];
4153          goto T1426;          goto T1426;
4154  T1426:;  T1426:;
4155          if(!(type_of((V615))==t_cons)){          if(!(type_of((V678))==t_cons)){
4156          goto T1432;}          goto T1432;}
4157          if(!((CMPcar((V615)))==(VV[221]))){          if(!((CMPcar((V678)))==(VV[221]))){
4158          goto T1432;}          goto T1432;}
4159          (void)((VFUN_NARGS=1,(*(LnkLI345))(VV[222])));          (void)((VFUN_NARGS=1,(*(LnkLI345))(VV[222])));
4160          base[1]= list(3,VV[223],(V615),(V614));          base[1]= list(3,VV[223],(V678),(V677));
4161          base[2]= Cnil;          base[2]= Cnil;
4162          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4163          return;          return;
4164          goto T1432;          goto T1432;
4165  T1432:;  T1432:;
4166          if(!(type_of((V615))==t_cons)){          if(!(type_of((V678))==t_cons)){
4167          goto T1440;}          goto T1440;}
4168          if(!((CMPcar((V615)))==(VV[83]))){          if(!((CMPcar((V678)))==(VV[83]))){
4169          goto T1440;}          goto T1440;}
4170          base[1]= list(2,CMPcadr((V615)),(V614));          base[1]= list(2,CMPcadr((V678)),(V677));
4171          base[2]= CMPcadr((V615));          base[2]= CMPcadr((V678));
4172          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4173          return;          return;
4174          goto T1440;          goto T1440;
4175  T1440:;  T1440:;
4176          V616= (VFUN_NARGS=1,(*(LnkLI335))(VV[224]));          V679= (VFUN_NARGS=1,(*(LnkLI335))(VV[224]));
4177          V617= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V616,(V615),VV[83]));          V680 = (V678);
4178          base[1]= list(3,VV[223],/* INLINE-ARGS */V617,(V614));          V681= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V679,V680,VV[83]));
4179            V682 = (V677);
4180            base[1]= list(3,VV[223],/* INLINE-ARGS */V681,V682);
4181          base[2]= Cnil;          base[2]= Cnil;
4182          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4183          return;}          return;}
# Line 4120  T1440:; Line 4185  T1440:;
4185  }  }
4186  /*      local entry for function LOOP-FOR-ON    */  /*      local entry for function LOOP-FOR-ON    */
4187    
4188  static object LI95(V621,V622,V623)  static object LI95(V686,V687,V688)
4189    
4190  register object V621;object V622;object V623;  register object V686;object V687;object V688;
4191  {        VMB83 VMS83 VMV83  {        VMB83 VMS83 VMV83
4192          goto TTL;          goto TTL;
4193  TTL:;  TTL:;
4194          {object V624;          {object V689;
4195          object V625;          object V690;
4196          object V626;          object V691;
4197          base[0]= (V622);          base[0]= (V687);
4198          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4199          (void) (*Lnk393)();          (void) (*Lnk393)();
4200          if(vs_base>=vs_top){vs_top=sup;goto T1450;}          if(vs_base>=vs_top){vs_top=sup;goto T1450;}
4201          V624= vs_base[0];          V689= vs_base[0];
4202          vs_base++;          vs_base++;
4203          if(vs_base>=vs_top){vs_top=sup;goto T1451;}          if(vs_base>=vs_top){vs_top=sup;goto T1451;}
4204          V625= vs_base[0];          V690= vs_base[0];
4205          vs_base++;          vs_base++;
4206          if(vs_base>=vs_top){vs_top=sup;goto T1452;}          if(vs_base>=vs_top){vs_top=sup;goto T1452;}
4207          V626= vs_base[0];          V691= vs_base[0];
4208          vs_top=sup;          vs_top=sup;
4209          goto T1453;          goto T1453;
4210          goto T1450;          goto T1450;
4211  T1450:;  T1450:;
4212          V624= Cnil;          V689= Cnil;
4213          goto T1451;          goto T1451;
4214  T1451:;  T1451:;
4215          V625= Cnil;          V690= Cnil;
4216          goto T1452;          goto T1452;
4217  T1452:;  T1452:;
4218          V626= Cnil;          V691= Cnil;
4219          goto T1453;          goto T1453;
4220  T1453:;  T1453:;
4221          {register object V627;          {register object V692;
4222          V627= (V621);          V692= (V686);
4223          if(((V621))==Cnil){          if(((V686))==Cnil){
4224          goto T1456;}          goto T1456;}
4225          if(!(type_of((V621))==t_symbol)){          if(!(type_of((V686))==t_symbol)){
4226          goto T1456;}          goto T1456;}
4227          (void)((*(LnkLI392))((V621),(V624),(V623)));          (void)((*(LnkLI392))((V686),(V689),(V688)));
4228          goto T1454;          goto T1454;
4229          goto T1456;          goto T1456;
4230  T1456:;  T1456:;
4231          V627= (VFUN_NARGS=0,(*(LnkLI335))());          V692= (VFUN_NARGS=0,(*(LnkLI335))());
4232          (void)((VFUN_NARGS=3,(*(LnkLI371))((V627),(V624),VV[5])));          V693 = (V692);
4233          (void)((*(LnkLI392))((V621),Cnil,(V623)));          V694 = (V689);
4234            (void)((VFUN_NARGS=3,(*(LnkLI371))(V693,V694,VV[5])));
4235            (void)((*(LnkLI392))((V686),Cnil,(V688)));
4236          goto T1454;          goto T1454;
4237  T1454:;  T1454:;
4238          {object V628;          {object V695;
4239          object V629;          object V696;
4240          base[0]= (V627);          base[0]= (V692);
4241          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4242          (void) (*Lnk394)();          (void) (*Lnk394)();
4243          if(vs_base>=vs_top){vs_top=sup;goto T1464;}          if(vs_base>=vs_top){vs_top=sup;goto T1464;}
4244          V628= vs_base[0];          V695= vs_base[0];
4245          vs_base++;          vs_base++;
4246          if(vs_base>=vs_top){vs_top=sup;goto T1465;}          if(vs_base>=vs_top){vs_top=sup;goto T1465;}
4247          V629= vs_base[0];          V696= vs_base[0];
4248          vs_top=sup;          vs_top=sup;
4249          goto T1466;          goto T1466;
4250          goto T1464;          goto T1464;
4251  T1464:;  T1464:;
4252          V628= Cnil;          V695= Cnil;
4253          goto T1465;          goto T1465;
4254  T1465:;  T1465:;
4255          V629= Cnil;          V696= Cnil;
4256          goto T1466;          goto T1466;
4257  T1466:;  T1466:;
4258          {register object V630;          {register object V697;
4259          object V631;          object V698;
4260          V632= (((V621))==((V627))?Ct:Cnil);          V699= (((V686))==((V692))?Ct:Cnil);
4261          V633= list(2,VV[225],(V627));          V700= list(2,VV[225],(V692));
4262          V630= (*(LnkLI337))(/* INLINE-ARGS */V632,(V627),/* INLINE-ARGS */V633);          V697= (*(LnkLI337))(/* INLINE-ARGS */V699,(V692),/* INLINE-ARGS */V700);
4263          V631= (V630);          V698= (V697);
4264          if(((V625))==Cnil){          if(((V690))==Cnil){
4265          goto T1469;}          goto T1469;}
4266          if(!(type_of((V626))==t_cons||((V626))==Cnil)){          if(!(type_of((V691))==t_cons||((V691))==Cnil)){
4267          goto T1469;}          goto T1469;}
4268          V630= (((V626))==Cnil?Ct:Cnil);          V697= (((V691))==Cnil?Ct:Cnil);
4269          goto T1469;          goto T1469;
4270  T1469:;  T1469:;
4271          if(!(((V621))==((V627)))){          if(!(((V686))==((V692)))){
4272          goto T1476;}          goto T1476;}
4273          {object V634 = list(8,Cnil,list(2,(V627),(*(LnkLI337))(Ct,(V627),(V628))),(V631),Cnil,Cnil,Cnil,(V630),Cnil);          V701 = (V692);
4274          VMR83(V634)}          {object V702 = list(8,Cnil,list(2,V701,(*(LnkLI337))(Ct,(V692),(V695))),(V698),Cnil,Cnil,Cnil,(V697),Cnil);
4275            VMR83(V702)}
4276          goto T1476;          goto T1476;
4277  T1476:;  T1476:;
4278          {object V635;          {object V703;
4279          object V636;          object V704;
4280          V635= list(2,(V621),(V627));          V703= list(2,(V686),(V692));
4281          V636= list(2,(V627),(V628));          V704= list(2,(V692),(V695));
4282          if(((((V630))==((V631))?Ct:Cnil))==Cnil){          V705 = (V698);
4283            V706 = (V703);
4284            V707 = (V704);
4285            if(((((V697))==((V698))?Ct:Cnil))==Cnil){
4286          goto T1481;}          goto T1481;}
4287          V637= Cnil;          V708= Cnil;
4288          goto T1480;          goto T1480;
4289          goto T1481;          goto T1481;
4290  T1481:;  T1481:;
4291          V637= list(4,(V630),(V635),Cnil,(V636));          V708= list(4,(V697),(V703),Cnil,(V704));
4292          goto T1480;          goto T1480;
4293  T1480:;  T1480:;
4294          {object V638 = listA(5,(V631),(V635),Cnil,(V636),V637);          {object V709 = listA(5,V705,V706,Cnil,V707,V708);
4295          VMR83(V638)}}}}}}          VMR83(V709)}}}}}}
4296          base[0]=base[0];          base[0]=base[0];
4297          return Cnil;          return Cnil;
4298  }  }
4299  /*      local entry for function LOOP-FOR-IN    */  /*      local entry for function LOOP-FOR-IN    */
4300    
4301  static object LI96(V642,V643,V644)  static object LI96(V713,V714,V715)
4302    
4303  object V642;object V643;object V644;  object V713;object V714;object V715;
4304  {        VMB84 VMS84 VMV84  {        VMB84 VMS84 VMV84
4305          goto TTL;          goto TTL;
4306  TTL:;  TTL:;
4307          {object V645;          {object V716;
4308          object V646;          object V717;
4309          object V647;          object V718;
4310          base[0]= (V643);          base[0]= (V714);
4311          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4312          (void) (*Lnk393)();          (void) (*Lnk393)();
4313          if(vs_base>=vs_top){vs_top=sup;goto T1485;}          if(vs_base>=vs_top){vs_top=sup;goto T1485;}
4314          V645= vs_base[0];          V716= vs_base[0];
4315          vs_base++;          vs_base++;
4316          if(vs_base>=vs_top){vs_top=sup;goto T1486;}          if(vs_base>=vs_top){vs_top=sup;goto T1486;}
4317          V646= vs_base[0];          V717= vs_base[0];
4318          vs_base++;          vs_base++;
4319          if(vs_base>=vs_top){vs_top=sup;goto T1487;}          if(vs_base>=vs_top){vs_top=sup;goto T1487;}
4320          V647= vs_base[0];          V718= vs_base[0];
4321          vs_top=sup;          vs_top=sup;
4322          goto T1488;          goto T1488;
4323          goto T1485;          goto T1485;
4324  T1485:;  T1485:;
4325          V645= Cnil;          V716= Cnil;
4326          goto T1486;          goto T1486;
4327  T1486:;  T1486:;
4328          V646= Cnil;          V717= Cnil;
4329          goto T1487;          goto T1487;
4330  T1487:;  T1487:;
4331          V647= Cnil;          V718= Cnil;
4332          goto T1488;          goto T1488;
4333  T1488:;  T1488:;
4334          {register object V648;          {register object V719;
4335          V648= (VFUN_NARGS=1,(*(LnkLI335))(VV[226]));          V719= (VFUN_NARGS=1,(*(LnkLI335))(VV[226]));
4336          (void)((*(LnkLI392))((V642),Cnil,(V644)));          (void)((*(LnkLI392))((V713),Cnil,(V715)));
4337          (void)((VFUN_NARGS=3,(*(LnkLI371))((V648),(V645),VV[5])));          (void)((VFUN_NARGS=3,(*(LnkLI371))((V719),(V716),VV[5])));
4338          {object V649;          {object V720;
4339          object V650;          object V721;
4340          base[0]= (V648);          base[0]= (V719);
4341          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4342          (void) (*Lnk394)();          (void) (*Lnk394)();
4343          if(vs_base>=vs_top){vs_top=sup;goto T1494;}          if(vs_base>=vs_top){vs_top=sup;goto T1494;}
4344          V649= vs_base[0];          V720= vs_base[0];
4345          vs_base++;          vs_base++;
4346          if(vs_base>=vs_top){vs_top=sup;goto T1495;}          if(vs_base>=vs_top){vs_top=sup;goto T1495;}
4347          V650= vs_base[0];          V721= vs_base[0];
4348          vs_top=sup;          vs_top=sup;
4349          goto T1496;          goto T1496;
4350          goto T1494;          goto T1494;
4351  T1494:;  T1494:;
4352          V649= Cnil;          V720= Cnil;
4353          goto T1495;          goto T1495;
4354  T1495:;  T1495:;
4355          V650= Cnil;          V721= Cnil;
4356          goto T1496;          goto T1496;
4357  T1496:;  T1496:;
4358          {register object V651;          {register object V722;
4359          object V652;          object V723;
4360          object V653;          object V724;
4361          object V654;          object V725;
4362          V651= list(2,VV[227],(V648));          V722= list(2,VV[227],(V719));
4363          V652= (V651);          V723= (V722);
4364          V653= list(2,(V642),list(2,VV[65],(V648)));          V724= list(2,(V713),list(2,VV[65],(V719)));
4365          V654= list(2,(V648),(V649));          V725= list(2,(V719),(V720));
4366          if(((V646))==Cnil){          if(((V717))==Cnil){
4367          goto T1501;}          goto T1501;}
4368          if(!(type_of((V647))==t_cons||((V647))==Cnil)){          if(!(type_of((V718))==t_cons||((V718))==Cnil)){
4369          goto T1501;}          goto T1501;}
4370          V651= (((V647))==Cnil?Ct:Cnil);          V722= (((V718))==Cnil?Ct:Cnil);
4371          goto T1501;          goto T1501;
4372  T1501:;  T1501:;
4373          if(((((V651))==((V652))?Ct:Cnil))==Cnil){          V726 = (V723);
4374            V727 = (V724);
4375            V728 = (V725);
4376            if(((((V722))==((V723))?Ct:Cnil))==Cnil){
4377          goto T1508;}          goto T1508;}
4378          V655= Cnil;          V729= Cnil;
4379          goto T1507;          goto T1507;
4380          goto T1508;          goto T1508;
4381  T1508:;  T1508:;
4382          V655= list(4,(V651),(V653),Cnil,(V654));          V729= list(4,(V722),(V724),Cnil,(V725));
4383          goto T1507;          goto T1507;
4384  T1507:;  T1507:;
4385          {object V656 = listA(5,(V652),(V653),Cnil,(V654),V655);          {object V730 = listA(5,V726,V727,Cnil,V728,V729);
4386          VMR84(V656)}}}}}          VMR84(V730)}}}}}
4387          base[0]=base[0];          base[0]=base[0];
4388          return Cnil;          return Cnil;
4389  }  }
# Line 4319  static object LI97(object first,...) Line 4393  static object LI97(object first,...)
4393  {        {      
4394          va_list ap;          va_list ap;
4395          int narg = VFUN_NARGS; VMB85 VMS85 VMV85          int narg = VFUN_NARGS; VMB85 VMS85 VMV85
4396          {object V657;          {object V731;
4397          object V658;          object V732;
4398          object V659;          object V733;
4399          object V660;          object V734;
4400          object V661;          object V735;
4401          va_start(ap,first);          va_start(ap,first);
4402          narg= narg - 0;          narg= narg - 0;
4403          {          {
4404          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI97key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI97key,first,ap);
4405          V657=(Vcs[0]);          V731=(Vcs[0]);
4406          V658=(Vcs[1]);          V732=(Vcs[1]);
4407          V659=(Vcs[2]);          V733=(Vcs[2]);
4408          V660=(Vcs[3]);          V734=(Vcs[3]);
4409          V661=(Vcs[4]);          V735=(Vcs[4]);
4410          base[0]= VV[228];          base[0]= VV[228];
4411          base[1]= (V657);          base[1]= (V731);
4412          base[2]= (V658);          base[2]= (V732);
4413          base[3]= (V659);          base[3]= (V733);
4414          base[4]= (V660);          base[4]= (V734);
4415          base[5]= (V661);          base[5]= (V735);
4416          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
4417          siLmake_structure();          siLmake_structure();
4418          vs_top=sup;          vs_top=sup;
4419          {object V662 = vs_base[0];          {object V736 = vs_base[0];
4420          VMR85(V662)}          VMR85(V736)}
4421          va_end(ap);          va_end(ap);
4422          base[0]=base[0];          base[0]=base[0];
4423          return Cnil;}          return Cnil;}
4424          }}          }}
4425  /*      local entry for function ADD-LOOP-PATH  */  /*      local entry for function ADD-LOOP-PATH  */
4426    
4427  static object LI98(object V665,object V664,object V663,object first,...)  static object LI98(object V739,object V738,object V737,object first,...)
4428  {        {      
4429          va_list ap;          va_list ap;
4430          int narg = VFUN_NARGS; VMB86 VMS86 VMV86          int narg = VFUN_NARGS; VMB86 VMS86 VMV86
4431          bds_check;          bds_check;
4432          {object V666;          {object V740;
4433          object V667;          object V741;
4434          register object V668;          register object V742;
4435          object V669;          object V743;
4436          object V670;          object V744;
4437          object V671;          object V745;
4438          va_start(ap,first);          va_start(ap,first);
4439          V666= V665;          V740= V739;
4440          V667= V664;          V741= V738;
4441          V668= V663;          V742= V737;
4442          narg= narg - 3;          narg= narg - 3;
4443          {          {
4444          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI98key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI98key,first,ap);
4445          V669=(Vcs[3]);          V743=(Vcs[3]);
4446          V670=(Vcs[4]);          V744=(Vcs[4]);
4447          V671=(Vcs[5]);          V745=(Vcs[5]);
4448          if(type_of((V666))==t_cons||((V666))==Cnil){          if(type_of((V740))==t_cons||((V740))==Cnil){
4449          goto T1516;}          goto T1516;}
4450          V666= make_cons((V666),Cnil);          V740= make_cons((V740),Cnil);
4451          goto T1516;          goto T1516;
4452  T1516:;  T1516:;
4453          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
4454          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
4455          goto T1522;          goto T1522;
4456  T1522:;  T1522:;
4457          base[2]= (V668);          base[2]= (V742);
4458          base[3]= VV[39];          base[3]= VV[39];
4459          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4460          (void) (*Lnk395)();          (void) (*Lnk395)();
# Line 4395  T1523:; Line 4469  T1523:;
4469          base[2]= VV[47];          base[2]= VV[47];
4470          base[3]= VV[48];          base[3]= VV[48];
4471          base[4]= VV[229];          base[4]= VV[229];
4472          base[5]= (V668);          base[5]= (V742);
4473          base[6]= VV[39];          base[6]= VV[39];
4474          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
4475          Lcerror();          Lcerror();
# Line 4413  T1523:; Line 4487  T1523:;
4487          vs_base=vs_top;          vs_base=vs_top;
4488          Lread();          Lread();
4489          vs_top=sup;          vs_top=sup;
4490          V668= vs_base[0];          V742= vs_base[0];
4491          base[2]= (VV[50]->s.s_dbind);          base[2]= (VV[50]->s.s_dbind);
4492          base[3]= VV[52];          base[3]= VV[52];
4493          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 4422  T1523:; Line 4496  T1523:;
4496          goto T1522;          goto T1522;
4497          goto T1520;          goto T1520;
4498  T1520:;  T1520:;
4499          {object V672;          {object V746;
4500          object V673;          object V747;
4501          V672= STREF(object,(V668),12);          V746= STREF(object,(V742),12);
4502          {object V675;          {object V749;
4503          object V676= (V666);          object V750= (V740);
4504          if(V676==Cnil){          if(V750==Cnil){
4505          V674= Cnil;          V748= Cnil;
4506          goto T1550;}          goto T1550;}
4507          base[0]=V675=MMcons(Cnil,Cnil);          base[0]=V749=MMcons(Cnil,Cnil);
4508          goto T1551;          goto T1551;
4509  T1551:;  T1551:;
4510          (V675->c.c_car)= symbol_name((V676->c.c_car));          (V749->c.c_car)= symbol_name((V750->c.c_car));
4511          if((V676=MMcdr(V676))==Cnil){          if((V750=MMcdr(V750))==Cnil){
4512          V674= base[0];          V748= base[0];
4513          goto T1550;}          goto T1550;}
4514          V675=MMcdr(V675)=MMcons(Cnil,Cnil);          V749=MMcdr(V749)=MMcons(Cnil,Cnil);
4515          goto T1551;}          goto T1551;}
4516          goto T1550;          goto T1550;
4517  T1550:;  T1550:;
4518          {object V678;          V751 = (V741);
4519          object V679= (V669);          V752 = (V745);
4520          if(V679==Cnil){          {object V754;
4521          V677= Cnil;          object V755= (V743);
4522            if(V755==Cnil){
4523            V753= Cnil;
4524          goto T1553;}          goto T1553;}
4525          base[0]=V678=MMcons(Cnil,Cnil);          base[0]=V754=MMcons(Cnil,Cnil);
4526          goto T1554;          goto T1554;
4527  T1554:;  T1554:;
4528          if(!(type_of((V679->c.c_car))==t_cons||((V679->c.c_car))==Cnil)){          if(!(type_of((V755->c.c_car))==t_cons||((V755->c.c_car))==Cnil)){
4529          goto T1557;}          goto T1557;}
4530          (V678->c.c_car)= (V679->c.c_car);          (V754->c.c_car)= (V755->c.c_car);
4531          goto T1555;          goto T1555;
4532          goto T1557;          goto T1557;
4533  T1557:;  T1557:;
4534          (V678->c.c_car)= make_cons((V679->c.c_car),Cnil);          (V754->c.c_car)= make_cons((V755->c.c_car),Cnil);
4535          goto T1555;          goto T1555;
4536  T1555:;  T1555:;
4537          if((V679=MMcdr(V679))==Cnil){          if((V755=MMcdr(V755))==Cnil){
4538          V677= base[0];          V753= base[0];
4539          goto T1553;}          goto T1553;}
4540          V678=MMcdr(V678)=MMcons(Cnil,Cnil);          V754=MMcdr(V754)=MMcons(Cnil,Cnil);
4541          goto T1554;}          goto T1554;}
4542          goto T1553;          goto T1553;
4543  T1553:;  T1553:;
4544          V673= (VFUN_NARGS=10,(*(LnkLI396))(VV[230],V674,VV[231],(V667),VV[232],(V671),VV[233],V677,VV[234],(V670)));          V757 = (V744);
4545          {register object V681;          V747= (VFUN_NARGS=10,(*(LnkLI396))(VV[230],V748,VV[231],V751,VV[232],V752,VV[233],V753,VV[234],V757));
4546          register object V682;          {register object V758;
4547          V681= (V666);          register object V759;
4548          V682= CMPcar((V681));          V758= (V740);
4549            V759= CMPcar((V758));
4550          goto T1563;          goto T1563;
4551  T1563:;  T1563:;
4552          if(!(((V681))==Cnil)){          if(!(((V758))==Cnil)){
4553          goto T1564;}          goto T1564;}
4554          goto T1559;          goto T1559;
4555          goto T1564;          goto T1564;
4556  T1564:;  T1564:;
4557          {register object V683;          {register object V760;
4558          register object V684;          register object V761;
4559          register object V685;          register object V762;
4560          V683= symbol_name((V682));          V760= symbol_name((V759));
4561          V684= (V672);          V761= (V746);
4562          V685= (V673);          V762= (V747);
4563          base[2]= (V683);          base[2]= (V760);
4564          base[3]= (V684);          base[3]= (V761);
4565          base[4]= (V685);          base[4]= (V762);
4566          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4567          siLhash_set();          siLhash_set();
4568          vs_top=sup;}          vs_top=sup;}
4569          V681= CMPcdr((V681));          V758= CMPcdr((V758));
4570          V682= CMPcar((V681));          V759= CMPcar((V758));
4571          goto T1563;}          goto T1563;}
4572          goto T1559;          goto T1559;
4573  T1559:;  T1559:;
4574          {object V686 = (V673);          {object V763 = (V747);
4575          VMR86(V686)}}          VMR86(V763)}}
4576          va_end(ap);          va_end(ap);
4577          base[0]=base[0];          base[0]=base[0];
4578          return Cnil;}          return Cnil;}
4579          }}          }}
4580  /*      local entry for function LOOP-FOR-BEING */  /*      local entry for function LOOP-FOR-BEING */
4581    
4582  static object LI99(V690,V691,V692)  static object LI99(V767,V768,V769)
4583    
4584  object V690;object V691;object V692;  object V767;object V768;object V769;
4585  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
4586          goto TTL;          goto TTL;
4587  TTL:;  TTL:;
4588          {register object V693;          {register object V770;
4589          object V694;          object V771;
4590          object V695;          object V772;
4591          object V696;          object V773;
4592          object V697;          object V774;
4593          V693= Cnil;          V770= Cnil;
4594          V694= Cnil;          V771= Cnil;
4595          V695= Cnil;          V772= Cnil;
4596          V696= Cnil;          V773= Cnil;
4597          V697= Cnil;          V774= Cnil;
4598          if(((*(LnkLI362))((V691),VV[235]))==Cnil){          if(((*(LnkLI362))((V768),VV[235]))==Cnil){
4599          goto T1582;}          goto T1582;}
4600          vs_base=vs_top;          vs_base=vs_top;
4601          (void) (*Lnk359)();          (void) (*Lnk359)();
4602          vs_top=sup;          vs_top=sup;
4603          V693= vs_base[0];          V770= vs_base[0];
4604          goto T1580;          goto T1580;
4605          goto T1582;          goto T1582;
4606  T1582:;  T1582:;
# Line 4532  T1582:; Line 4609  T1582:;
4609          vs_base=vs_top;          vs_base=vs_top;
4610          (void) (*Lnk359)();          (void) (*Lnk359)();
4611          vs_top=sup;          vs_top=sup;
4612          V695= Ct;          V772= Ct;
4613          if(((*(LnkLI362))(CMPcar((VV[88]->s.s_dbind)),VV[236]))!=Cnil){          if(((*(LnkLI362))(CMPcar((VV[88]->s.s_dbind)),VV[236]))!=Cnil){
4614          goto T1591;}          goto T1591;}
4615          base[0]= VV[237];          base[0]= VV[237];
# Line 4548  T1591:; Line 4625  T1591:;
4625          vs_base=vs_top;          vs_base=vs_top;
4626          (void) (*Lnk359)();          (void) (*Lnk359)();
4627          vs_top=sup;          vs_top=sup;
4628          V693= vs_base[0];          V770= vs_base[0];
4629          V698= list(2,VV[238],(V691));          V775= list(2,VV[238],(V768));
4630          V697= make_cons(/* INLINE-ARGS */V698,Cnil);          V774= make_cons(/* INLINE-ARGS */V775,Cnil);
4631          goto T1580;          goto T1580;
4632          goto T1586;          goto T1586;
4633  T1586:;  T1586:;
# Line 4560  T1586:; Line 4637  T1586:;
4637          vs_top=sup;          vs_top=sup;
4638          goto T1580;          goto T1580;
4639  T1580:;  T1580:;
4640          if(type_of((V693))==t_symbol){          if(type_of((V770))==t_symbol){
4641          goto T1603;}          goto T1603;}
4642          base[0]= VV[240];          base[0]= VV[240];
4643          base[1]= (V693);          base[1]= (V770);
4644          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4645          (void) (*Lnk354)();          (void) (*Lnk354)();
4646          vs_top=sup;          vs_top=sup;
4647          goto T1601;          goto T1601;
4648          goto T1603;          goto T1603;
4649  T1603:;  T1603:;
4650          V694= (*(LnkLI360))((V693),STREF(object,(VV[99]->s.s_dbind),12));          V771= (*(LnkLI360))((V770),STREF(object,(VV[99]->s.s_dbind),12));
4651          if(((V694))!=Cnil){          if(((V771))!=Cnil){
4652          goto T1608;}          goto T1608;}
4653          base[0]= VV[241];          base[0]= VV[241];
4654          base[1]= (V693);          base[1]= (V770);
4655          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4656          (void) (*Lnk354)();          (void) (*Lnk354)();
4657          vs_top=sup;          vs_top=sup;
4658          goto T1601;          goto T1601;
4659          goto T1608;          goto T1608;
4660  T1608:;  T1608:;
4661          if(((V695))==Cnil){          if(((V772))==Cnil){
4662          goto T1601;}          goto T1601;}
4663          if((STREF(object,(V694),8))!=Cnil){          if((STREF(object,(V771),8))!=Cnil){
4664          goto T1601;}          goto T1601;}
4665          base[0]= VV[242];          base[0]= VV[242];
4666          base[1]= (V693);          base[1]= (V770);
4667          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4668          (void) (*Lnk354)();          (void) (*Lnk354)();
4669          vs_top=sup;          vs_top=sup;
4670          goto T1601;          goto T1601;
4671  T1601:;  T1601:;
4672          {object V699;          {object V776;
4673          object V700;          object V777;
4674          object V701;          object V778;
4675          V699= STREF(object,(V694),12);          V776= STREF(object,(V771),12);
4676          V702= (VFUN_NARGS=2,(*(LnkLI397))(STREF(object,(V694),4),Ct));          V779 = (V774);
4677          V700= nconc((V697),/* INLINE-ARGS */V702);          V780= (VFUN_NARGS=2,(*(LnkLI397))(STREF(object,(V771),4),Ct));
4678          V701= STREF(object,(V694),16);          V777= nconc(V779,/* INLINE-ARGS */V780);
4679          if(!(type_of((V699))==t_symbol)){          V778= STREF(object,(V771),16);
4680            if(!(type_of((V776))==t_symbol)){
4681          goto T1623;}          goto T1623;}
4682          base[0]= (V699);          base[0]= (V776);
4683          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4684          Lsymbol_function();          Lsymbol_function();
4685          vs_top=sup;          vs_top=sup;
4686          V699= vs_base[0];          V776= vs_base[0];
4687          goto T1623;          goto T1623;
4688  T1623:;  T1623:;
4689          if(((V695))==Cnil){          if(((V772))==Cnil){
4690          goto T1630;}          goto T1630;}
4691          base[0]= (V699);          base[0]= (V776);
4692          base[1]= (V690);          base[1]= (V767);
4693          base[2]= (V692);          base[2]= (V769);
4694          base[3]= (V700);          base[3]= (V777);
4695          base[4]= VV[243];          base[4]= VV[243];
4696          base[5]= Ct;          base[5]= Ct;
4697          {object V703;          {object V781;
4698          V703= (V701);          V781= (V778);
4699           vs_top=base+6;           vs_top=base+6;
4700           while(V703!=Cnil)           while(V781!=Cnil)
4701           {vs_push((V703)->c.c_car);V703=(V703)->c.c_cdr;}           {vs_push((V781)->c.c_car);V781=(V781)->c.c_cdr;}
4702          vs_base=base+1;}          vs_base=base+1;}
4703          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
4704          vs_top=sup;          vs_top=sup;
4705          V696= vs_base[0];          V773= vs_base[0];
4706          goto T1628;          goto T1628;
4707          goto T1630;          goto T1630;
4708  T1630:;  T1630:;
4709          base[0]= (V699);          base[0]= (V776);
4710          base[1]= (V690);          base[1]= (V767);
4711          base[2]= (V692);          base[2]= (V769);
4712          base[3]= (V700);          base[3]= (V777);
4713          {object V704;          {object V782;
4714          V704= (V701);          V782= (V778);
4715           vs_top=base+4;           vs_top=base+4;
4716           while(V704!=Cnil)           while(V782!=Cnil)
4717           {vs_push((V704)->c.c_car);V704=(V704)->c.c_cdr;}           {vs_push((V782)->c.c_car);V782=(V782)->c.c_cdr;}
4718          vs_base=base+1;}          vs_base=base+1;}
4719          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
4720          vs_top=sup;          vs_top=sup;
4721          V696= vs_base[0];          V773= vs_base[0];
4722          goto T1628;          goto T1628;
4723  T1628:;}  T1628:;}
4724          if(((VV[104]->s.s_dbind))==Cnil){          if(((VV[104]->s.s_dbind))==Cnil){
# Line 4652  T1628:;} Line 4730  T1628:;}
4730          vs_top=sup;          vs_top=sup;
4731          goto T1644;          goto T1644;
4732  T1644:;  T1644:;
4733          V706 = CMPmake_fixnum((long)length((V696)));          V784 = CMPmake_fixnum((long)length((V773)));
4734          {register object x= V706,V705= VV[245];          {register object x= V784,V783= VV[245];
4735          while(V705!=Cnil)          while(V783!=Cnil)
4736          if(eql(x,V705->c.c_car)){          if(eql(x,V783->c.c_car)){
4737          goto T1649;          goto T1649;
4738          }else V705=V705->c.c_cdr;}          }else V783=V783->c.c_cdr;}
4739          base[0]= VV[246];          base[0]= VV[246];
4740          base[1]= (V693);          base[1]= (V770);
4741          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4742          (void) (*Lnk354)();          (void) (*Lnk354)();
4743          vs_top=sup;          vs_top=sup;
4744          goto T1649;          goto T1649;
4745  T1649:;  T1649:;
4746          {register object V707;          {register object V785;
4747          register object V708;          register object V786;
4748          V707= CMPcar((V696));          V785= CMPcar((V773));
4749          V708= Cnil;          V786= Cnil;
4750          goto T1657;          goto T1657;
4751  T1657:;  T1657:;
4752          if(((V707))!=Cnil){          if(((V785))!=Cnil){
4753          goto T1658;}          goto T1658;}
4754          goto T1654;          goto T1654;
4755          goto T1658;          goto T1658;
4756  T1658:;  T1658:;
4757          V708= CMPcar((V707));          V786= CMPcar((V785));
4758          if(!(type_of((V708))!=t_cons)){          V787 = (V786);
4759            if(!(type_of(V787)!=t_cons)){
4760          goto T1664;}          goto T1664;}
4761          (void)((*(LnkLI392))((V708),Cnil,Cnil));          (void)((*(LnkLI392))((V786),Cnil,Cnil));
4762          goto T1662;          goto T1662;
4763          goto T1664;          goto T1664;
4764  T1664:;  T1664:;
4765          (void)((*(LnkLI392))(CMPcar((V708)),CMPcadr((V708)),CMPcaddr((V708))));          (void)((*(LnkLI392))(CMPcar((V786)),CMPcadr((V786)),CMPcaddr((V786))));
4766          goto T1662;          goto T1662;
4767  T1662:;  T1662:;
4768          V707= CMPcdr((V707));          V785= CMPcdr((V785));
4769          goto T1657;}          goto T1657;}
4770          goto T1654;          goto T1654;
4771  T1654:;  T1654:;
4772          V709= reverse(CMPcadr((V696)));          V788= reverse(CMPcadr((V773)));
4773          (VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V709,(VV[108]->s.s_dbind));          (VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V788,(VV[108]->s.s_dbind));
4774          {object V710 = CMPcddr((V696));          {object V789 = CMPcddr((V773));
4775          VMR87(V710)}}          VMR87(V789)}}
4776          base[0]=base[0];          base[0]=base[0];
4777          return Cnil;          return Cnil;
4778  }  }
# Line 4703  static void L100() Line 4782  static void L100()
4782  {register object *base=vs_base;  {register object *base=vs_base;
4783          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
4784          vs_check;          vs_check;
4785          {object V711;          {object V790;
4786          V711=(base[0]);          V790=(base[0]);
4787          vs_top=sup;          vs_top=sup;
4788          goto TTL;          goto TTL;
4789  TTL:;  TTL:;
4790          {object V712;          {object V791;
4791          V712= (*(LnkLI398))((V711),(VV[104]->s.s_dbind));          V791= (*(LnkLI398))((V790),(VV[104]->s.s_dbind));
4792          if(((V712))!=Cnil){          if(((V791))!=Cnil){
4793          goto T1674;}          goto T1674;}
4794          base[1]= (VFUN_NARGS=0,(*(LnkLI335))());          base[1]= (VFUN_NARGS=0,(*(LnkLI335))());
4795          base[2]= Cnil;          base[2]= Cnil;
# Line 4718  TTL:; Line 4797  TTL:;
4797          return;          return;
4798          goto T1674;          goto T1674;
4799  T1674:;  T1674:;
4800          base[1]= (V712);          base[1]= (V791);
4801          base[2]= (VV[104]->s.s_dbind);          base[2]= (VV[104]->s.s_dbind);
4802          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4803          (void) (*Lnk399)();          (void) (*Lnk399)();
4804          vs_top=sup;          vs_top=sup;
4805          (VV[104]->s.s_dbind)= vs_base[0];          (VV[104]->s.s_dbind)= vs_base[0];
4806          base[1]= CMPcdr((V712));          base[1]= CMPcdr((V791));
4807          base[2]= Ct;          base[2]= Ct;
4808          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4809          return;}          return;}
# Line 4732  T1674:; Line 4811  T1674:;
4811  }  }
4812  /*      local entry for function LOOP-COLLECT-PREPOSITIONAL-PHRASES     */  /*      local entry for function LOOP-COLLECT-PREPOSITIONAL-PHRASES     */
4813    
4814  static object LI101(object V713,object first,...)  static object LI101(object V792,object first,...)
4815  {        {      
4816          va_list ap;          va_list ap;
4817          int narg = VFUN_NARGS; VMB89 VMS89 VMV89          int narg = VFUN_NARGS; VMB89 VMS89 VMV89
4818          {object V714;          {object V793;
4819          object V715;          object V794;
4820          object V716;          object V795;
4821          va_start(ap,first);          va_start(ap,first);
4822          V714= V713;          V793= V792;
4823          narg = narg - 1;          narg = narg - 1;
4824          if (narg <= 0) goto T1684;          if (narg <= 0) goto T1684;
4825          else {          else {
4826          V715= first;}          V794= first;}
4827          if (--narg <= 0) goto T1685;          if (--narg <= 0) goto T1685;
4828          else {          else {
4829          V716= va_arg(ap,object);}          V795= va_arg(ap,object);}
4830          --narg; goto T1686;          --narg; goto T1686;
4831          goto T1684;          goto T1684;
4832  T1684:;  T1684:;
4833          V715= Cnil;          V794= Cnil;
4834          goto T1685;          goto T1685;
4835  T1685:;  T1685:;
4836          V716= Cnil;          V795= Cnil;
4837          goto T1686;          goto T1686;
4838  T1686:;  T1686:;
4839          base[0]=make_cclosure_new(LC102,Cnil,Cnil,Cdata);          base[0]=make_cclosure_new(LC102,Cnil,Cnil,Cdata);
4840          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
4841          {object V717;          {object V796;
4842          object V718;          object V797;
4843          register object V719;          register object V798;
4844          register object V720;          register object V799;
4845          object V721;          object V800;
4846          object V722;          object V801;
4847          {object V723;          {object V802;
4848          object V724= (V716);          object V803= (V795);
4849          if(V724==Cnil){          if(V803==Cnil){
4850          V721= Cnil;          V800= Cnil;
4851          goto T1689;}          goto T1689;}
4852          base[1]=V723=MMcons(Cnil,Cnil);          base[1]=V802=MMcons(Cnil,Cnil);
4853          goto T1690;          goto T1690;
4854  T1690:;  T1690:;
4855          base[3]= CMPcar((V724->c.c_car));          base[3]= CMPcar((V803->c.c_car));
4856          base[4]= (V714);          base[4]= (V793);
4857          base[5]= VV[20];          base[5]= VV[20];
4858          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
4859          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
# Line 4784  T1690:; Line 4863  T1690:;
4863          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4864          Lcopy_list();          Lcopy_list();
4865          vs_top=sup;          vs_top=sup;
4866          (V723->c.c_cdr)= vs_base[0];          (V802->c.c_cdr)= vs_base[0];
4867          while(MMcdr(V723)!=Cnil)V723=MMcdr(V723);          while(MMcdr(V802)!=Cnil)V802=MMcdr(V802);
4868          if((V724=MMcdr(V724))==Cnil){          if((V803=MMcdr(V803))==Cnil){
4869          base[1]=base[1]->c.c_cdr;          base[1]=base[1]->c.c_cdr;
4870          V721= base[1];          V800= base[1];
4871          goto T1689;}          goto T1689;}
4872          goto T1690;}          goto T1690;}
4873          goto T1689;          goto T1689;
4874  T1689:;  T1689:;
4875          {object V726;          {object V805;
4876          object V727= (V716);          object V806= (V795);
4877          if(V727==Cnil){          if(V806==Cnil){
4878          V722= Cnil;          V801= Cnil;
4879          goto T1697;}          goto T1697;}
4880          base[1]=V726=MMcons(Cnil,Cnil);          base[1]=V805=MMcons(Cnil,Cnil);
4881          goto T1698;          goto T1698;
4882  T1698:;  T1698:;
4883          (V726->c.c_car)= CMPcar((V727->c.c_car));          (V805->c.c_car)= CMPcar((V806->c.c_car));
4884          if((V727=MMcdr(V727))==Cnil){          if((V806=MMcdr(V806))==Cnil){
4885          V722= base[1];          V801= base[1];
4886          goto T1697;}          goto T1697;}
4887          V726=MMcdr(V726)=MMcons(Cnil,Cnil);          V805=MMcdr(V805)=MMcons(Cnil,Cnil);
4888          goto T1698;}          goto T1698;}
4889          goto T1697;          goto T1697;
4890  T1697:;  T1697:;
4891          V717= Cnil;          V796= Cnil;
4892          V718= (V716);          V797= (V795);
4893          V719= Cnil;          V798= Cnil;
4894          V720= Cnil;          V799= Cnil;
4895          goto T1701;          goto T1701;
4896  T1701:;  T1701:;
4897          if(((VV[88]->s.s_dbind))!=Cnil){          if(((VV[88]->s.s_dbind))!=Cnil){
4898          goto T1702;}          goto T1702;}
4899          {object V728 = nreverse((V718));          {object V807 = nreverse((V797));
4900          VMR89(V728)}          VMR89(V807)}
4901          goto T1702;          goto T1702;
4902  T1702:;  T1702:;
4903          V717= CMPcar((VV[88]->s.s_dbind));          V796= CMPcar((VV[88]->s.s_dbind));
4904          {register object V729;          {register object V808;
4905          register object V730;          register object V809;
4906          V729= (V714);          V808= (V793);
4907          V730= CMPcar((V729));          V809= CMPcar((V808));
4908          goto T1712;          goto T1712;
4909  T1712:;  T1712:;
4910          if(!(((V729))==Cnil)){          if(!(((V808))==Cnil)){
4911          goto T1713;}          goto T1713;}
4912          goto T1708;          goto T1708;
4913          goto T1713;          goto T1713;
4914  T1713:;  T1713:;
4915          base[2]= (V717);          base[2]= (V796);
4916          base[3]= (V730);          base[3]= (V809);
4917          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4918          L102(base);          L102(base);
4919          vs_top=sup;          vs_top=sup;
4920          V720= vs_base[0];          V799= vs_base[0];
4921          if(((V720))==Cnil){          if(((V799))==Cnil){
4922          goto T1717;}          goto T1717;}
4923          V719= (V730);          V798= (V809);
4924          goto T1708;          goto T1708;
4925          goto T1717;          goto T1717;
4926  T1717:;  T1717:;
4927          V729= CMPcdr((V729));          V808= CMPcdr((V808));
4928          V730= CMPcar((V729));          V809= CMPcar((V808));
4929          goto T1712;}          goto T1712;}
4930          goto T1708;          goto T1708;
4931  T1708:;  T1708:;
4932          if(((V719))==Cnil){          if(((V798))==Cnil){
4933          goto T1731;}          goto T1731;}
4934          {register object x= (V720),V731= (V721);          {register object x= (V799),V810= (V800);
4935          while(V731!=Cnil)          while(V810!=Cnil)
4936          if(eql(x,V731->c.c_car)){          if(eql(x,V810->c.c_car)){
4937          goto T1735;          goto T1735;
4938          }else V731=V731->c.c_cdr;          }else V810=V810->c.c_cdr;
4939          goto T1733;}          goto T1733;}
4940          goto T1735;          goto T1735;
4941  T1735:;  T1735:;
4942          {register object x= (V720),V732= (V722);          {register object x= (V799),V811= (V801);
4943          while(V732!=Cnil)          while(V811!=Cnil)
4944          if(eql(x,V732->c.c_car)){          if(eql(x,V811->c.c_car)){
4945          goto T1739;          goto T1739;
4946          }else V732=V732->c.c_cdr;          }else V811=V811->c.c_cdr;
4947          goto T1738;}          goto T1738;}
4948          goto T1739;          goto T1739;
4949  T1739:;  T1739:;
# Line 4875  T1738:; Line 4954  T1738:;
4954          base[1]= VV[248];          base[1]= VV[248];
4955          goto T1736;          goto T1736;
4956  T1736:;  T1736:;
4957          base[2]= (V717);          base[2]= (V796);
4958          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4959          (void) (*Lnk354)();          (void) (*Lnk354)();
4960          vs_top=sup;          vs_top=sup;
4961          goto T1733;          goto T1733;
4962  T1733:;  T1733:;
4963          if(!(type_of((V719))==t_cons||((V719))==Cnil)){          if(!(type_of((V798))==t_cons||((V798))==Cnil)){
4964          goto T1744;}          goto T1744;}
4965          V722= append((V719),(V722));          V801= append((V798),(V801));
4966          goto T1742;          goto T1742;
4967          goto T1744;          goto T1744;
4968  T1744:;  T1744:;
4969          V722= make_cons((V719),(V722));          V801= make_cons((V798),(V801));
4970          goto T1742;          goto T1742;
4971  T1742:;  T1742:;
4972          vs_base=vs_top;          vs_base=vs_top;
4973          (void) (*Lnk359)();          (void) (*Lnk359)();
4974          vs_top=sup;          vs_top=sup;
4975          {object V733;          {object V812;
4976            V813 = (V799);
4977          vs_base=vs_top;          vs_base=vs_top;
4978          (void) (*Lnk363)();          (void) (*Lnk363)();
4979          vs_top=sup;          vs_top=sup;
4980          V734= vs_base[0];          V814= vs_base[0];
4981          V733= list(2,(V720),V734);          V812= list(2,V813,V814);
4982          V718= make_cons((V733),(V718));          V797= make_cons((V812),(V797));
4983          goto T1729;}          goto T1729;}
4984          goto T1731;          goto T1731;
4985  T1731:;  T1731:;
4986          if(((V715))==Cnil){          if(((V794))==Cnil){
4987          goto T1751;}          goto T1751;}
4988          if(((*(LnkLI369))((V717),VV[249]))==Cnil){          if(((*(LnkLI369))((V796),VV[249]))==Cnil){
4989          goto T1751;}          goto T1751;}
4990          vs_base=vs_top;          vs_base=vs_top;
4991          (void) (*Lnk359)();          (void) (*Lnk359)();
4992          vs_top=sup;          vs_top=sup;
4993          {register object V735;          {register object V815;
4994          object V736;          object V816;
4995          vs_base=vs_top;          vs_base=vs_top;
4996          (void) (*Lnk359)();          (void) (*Lnk359)();
4997          vs_top=sup;          vs_top=sup;
4998          V735= vs_base[0];          V815= vs_base[0];
4999          V736= Cnil;          V816= Cnil;
5000          goto T1758;          goto T1758;
5001  T1758:;  T1758:;
5002          if((CMPcadr((V735)))==Cnil){          if((CMPcadr((V815)))==Cnil){
5003          goto T1761;}          goto T1761;}
5004          V736= (*(LnkLI398))(CMPcar((V735)),(VV[104]->s.s_dbind));          V816= (*(LnkLI398))(CMPcar((V815)),(VV[104]->s.s_dbind));
5005          if(((V736))==Cnil){          if(((V816))==Cnil){
5006          goto T1765;}          goto T1765;}
5007          base[1]= VV[250];          base[1]= VV[250];
5008          base[2]= CMPcar((V735));          base[2]= CMPcar((V815));
5009          base[3]= CMPcadr((V735));          base[3]= CMPcadr((V815));
5010          base[4]= CMPcadr((V736));          base[4]= CMPcadr((V816));
5011          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5012          (void) (*Lnk354)();          (void) (*Lnk354)();
5013          vs_top=sup;          vs_top=sup;
5014          goto T1761;          goto T1761;
5015          goto T1765;          goto T1765;
5016  T1765:;  T1765:;
5017          {object V737;          {object V817;
5018          V737= make_cons(CMPcar((V735)),CMPcadr((V735)));          V817= make_cons(CMPcar((V815)),CMPcadr((V815)));
5019          (VV[104]->s.s_dbind)= make_cons((V737),(VV[104]->s.s_dbind));}          (VV[104]->s.s_dbind)= make_cons((V817),(VV[104]->s.s_dbind));}
5020          goto T1761;          goto T1761;
5021  T1761:;  T1761:;
5022          if(((VV[88]->s.s_dbind))==Cnil){          if(((VV[88]->s.s_dbind))==Cnil){
# Line 4951  T1774:; Line 5031  T1774:;
5031          vs_base=vs_top;          vs_base=vs_top;
5032          (void) (*Lnk359)();          (void) (*Lnk359)();
5033          vs_top=sup;          vs_top=sup;
5034          V735= vs_base[0];          V815= vs_base[0];
5035          goto T1758;}          goto T1758;}
5036          goto T1751;          goto T1751;
5037  T1751:;  T1751:;
5038          {object V738 = nreverse((V718));          {object V818 = nreverse((V797));
5039          VMR89(V738)}          VMR89(V818)}
5040          goto T1729;          goto T1729;
5041  T1729:;  T1729:;
5042          V719= Cnil;          V798= Cnil;
5043          V720= Cnil;          V799= Cnil;
5044          goto T1701;}          goto T1701;}
5045          va_end(ap);          va_end(ap);
5046          base[0]=base[0];          base[0]=base[0];
# Line 4968  T1729:; Line 5048  T1729:;
5048          }          }
5049  /*      local entry for function LOOP-SEQUENCER */  /*      local entry for function LOOP-SEQUENCER */
5050    
5051  static object LI103(V749,V750,V751,V752,V753,V754,V755,V756,V757,V758)  static object LI103(V829,V830,V831,V832,V833,V834,V835,V836,V837,V838)
5052    
5053  object V749;register object V750;object V751;object V752;object V753;object V754;object V755;object V756;object V757;object V758;  object V829;register object V830;object V831;object V832;object V833;object V834;object V835;object V836;object V837;object V838;
5054  {        VMB90 VMS90 VMV90  {        VMB90 VMS90 VMV90
5055          goto TTL;          goto TTL;
5056  TTL:;  TTL:;
5057          {object V759;          {object V839;
5058          object V760;          object V840;
5059          object V761;          object V841;
5060          object V762;          object V842;
5061          object V763;          object V843;
5062          object V764;          object V844;
5063          object V765;          object V845;
5064          register object V766;          register object V846;
5065          register object V767;          register object V847;
5066          object V768;          object V848;
5067          object V769;          object V849;
5068          object V770;          object V850;
5069          object V771;          object V851;
5070          object V772;          object V852;
5071          object V773;{object V775;          object V853;{object V855;
5072          V775= (*(LnkLI336))((V750));          V855= (*(LnkLI336))((V830));
5073          if(V775==Cnil)goto T1788;          if(V855==Cnil)goto T1788;
5074          V774= V775;          V854= V855;
5075          goto T1787;          goto T1787;
5076          goto T1788;          goto T1788;
5077  T1788:;}  T1788:;}
5078          V774= small_fixnum(0);          V854= small_fixnum(0);
5079          goto T1787;          goto T1787;
5080  T1787:;  T1787:;
5081          V763= one_plus(V774);          V843= one_plus(V854);
5082          V759= Cnil;          V839= Cnil;
5083          V760= Cnil;          V840= Cnil;
5084          V761= Cnil;          V841= Cnil;
5085          V762= Cnil;          V842= Cnil;
5086          V764= Ct;          V844= Ct;
5087          V765= Cnil;          V845= Cnil;
5088          V766= Cnil;          V846= Cnil;
5089          V767= Cnil;          V847= Cnil;
5090          V768= Cnil;          V848= Cnil;
5091          V769= Cnil;          V849= Cnil;
5092          V770= Cnil;          V850= Cnil;
5093          V771= Cnil;          V851= Cnil;
5094          V772= Cnil;          V852= Cnil;
5095          V773= Cnil;          V853= Cnil;
5096          if(((V752))==Cnil){          if(((V832))==Cnil){
5097          goto T1790;}          goto T1790;}
5098          (void)((*(LnkLI392))((V752),Cnil,(V753)));          (void)((*(LnkLI392))((V832),Cnil,(V833)));
5099          goto T1790;          goto T1790;
5100  T1790:;  T1790:;
5101          {register object V776;          {register object V856;
5102          register object V777;          register object V857;
5103          register object V778;          register object V858;
5104          object V779;          object V859;
5105          V776= (V758);          V856= (V838);
5106          V777= Cnil;          V857= Cnil;
5107          V778= Cnil;          V858= Cnil;
5108          V779= Cnil;          V859= Cnil;
5109          goto T1795;          goto T1795;
5110  T1795:;  T1795:;
5111          if(((V776))!=Cnil){          if(((V856))!=Cnil){
5112          goto T1796;}          goto T1796;}
5113          goto T1793;          goto T1793;
5114          goto T1796;          goto T1796;
5115  T1796:;  T1796:;
5116          V777= CMPcaar((V776));          V857= CMPcaar((V856));
5117          V778= CMPcadar((V776));          V858= CMPcadar((V856));
5118          {object V780= (V777);          {object V860= (V857);
5119          if((V780!= VV[400])          if((V860!= VV[400])
5120          && (V780!= VV[238]))goto T1805;          && (V860!= VV[238]))goto T1805;
5121          V760= Ct;          V840= Ct;
5122          (void)((VFUN_NARGS=3,(*(LnkLI371))((V754),(V778),(V755))));          (void)((VFUN_NARGS=3,(*(LnkLI371))((V834),(V858),(V835))));
5123          goto T1804;          goto T1804;
5124          goto T1805;          goto T1805;
5125  T1805:;  T1805:;
5126          if((V780!= VV[401])          if((V860!= VV[401])
5127          && (V780!= VV[251])          && (V860!= VV[251])
5128          && (V780!= VV[253]))goto T1808;          && (V860!= VV[253]))goto T1808;
5129          V768= Ct;          V848= Ct;
5130          if(!(((V777))==(VV[251]))){          if(!(((V857))==(VV[251]))){
5131          goto T1813;}          goto T1813;}
5132          V766= VV[252];          V846= VV[252];
5133          goto T1811;          goto T1811;
5134          goto T1813;          goto T1813;
5135  T1813:;  T1813:;
5136          if(!(((V777))==(VV[253]))){          if(!(((V857))==(VV[253]))){
5137          goto T1811;}          goto T1811;}
5138          V766= VV[254];          V846= VV[254];
5139          goto T1811;          goto T1811;
5140  T1811:;  T1811:;
5141          base[0]= (V778);          base[0]= (V858);
5142          base[1]= (V750);          base[1]= (V830);
5143          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5144          (void) (*Lnk393)();          (void) (*Lnk393)();
5145          if(vs_base<vs_top){          if(vs_base<vs_top){
5146          V778= vs_base[0];          V858= vs_base[0];
5147          vs_base++;          vs_base++;
5148          }else{          }else{
5149          V778= Cnil;}          V858= Cnil;}
5150          if(vs_base<vs_top){          if(vs_base<vs_top){
5151          V770= vs_base[0];          V850= vs_base[0];
5152          vs_base++;          vs_base++;
5153          }else{          }else{
5154          V770= Cnil;}          V850= Cnil;}
5155          if(vs_base<vs_top){          if(vs_base<vs_top){
5156          V769= vs_base[0];          V849= vs_base[0];
5157          }else{          }else{
5158          V769= Cnil;}          V849= Cnil;}
5159          vs_top=sup;          vs_top=sup;
5160          (void)((*(LnkLI392))((V749),(V778),(V750)));          (void)((*(LnkLI392))((V829),(V858),(V830)));
5161          goto T1804;          goto T1804;
5162          goto T1808;          goto T1808;
5163  T1808:;  T1808:;
5164          if((V780!= VV[255])          if((V860!= VV[255])
5165          && (V780!= VV[256])          && (V860!= VV[256])
5166          && (V780!= VV[257])          && (V860!= VV[257])
5167          && (V780!= VV[258])          && (V860!= VV[258])
5168          && (V780!= VV[259]))goto T1823;          && (V860!= VV[259]))goto T1823;
5169          if(((*(LnkLI369))((V777),VV[255]))==Cnil){          if(((*(LnkLI369))((V857),VV[255]))==Cnil){
5170          goto T1826;}          goto T1826;}
5171          V766= VV[254];          V846= VV[254];
5172          V767= VV[254];          V847= VV[254];
5173          goto T1824;          goto T1824;
5174          goto T1826;          goto T1826;
5175  T1826:;  T1826:;
5176          if(((*(LnkLI369))((V777),VV[256]))==Cnil){          if(((*(LnkLI369))((V857),VV[256]))==Cnil){
5177          goto T1831;}          goto T1831;}
5178          V767= Ct;          V847= Ct;
5179          goto T1824;          goto T1824;
5180          goto T1831;          goto T1831;
5181  T1831:;  T1831:;
5182          if(((*(LnkLI369))((V777),VV[257]))==Cnil){          if(((*(LnkLI369))((V857),VV[257]))==Cnil){
5183          goto T1835;}          goto T1835;}
5184          V766= VV[252];          V846= VV[252];
5185          V767= VV[252];          V847= VV[252];
5186          goto T1824;          goto T1824;
5187          goto T1835;          goto T1835;
5188  T1835:;  T1835:;
5189          if(((*(LnkLI369))((V777),VV[258]))==Cnil){          if(((*(LnkLI369))((V857),VV[258]))==Cnil){
5190          goto T1840;}          goto T1840;}
5191          V766= VV[252];          V846= VV[252];
5192          goto T1824;          goto T1824;
5193          goto T1840;          goto T1840;
5194  T1840:;  T1840:;
5195          if(((*(LnkLI369))((V777),VV[259]))==Cnil){          if(((*(LnkLI369))((V857),VV[259]))==Cnil){
5196          goto T1824;}          goto T1824;}
5197          V766= VV[254];          V846= VV[254];
5198          goto T1824;          goto T1824;
5199  T1824:;  T1824:;
5200          V771= Ct;          V851= Ct;
5201          base[0]= (V778);          base[0]= (V858);
5202          base[1]= (V750);          base[1]= (V830);
5203          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5204          (void) (*Lnk393)();          (void) (*Lnk393)();
5205          if(vs_base<vs_top){          if(vs_base<vs_top){
5206          V778= vs_base[0];          V858= vs_base[0];
5207          vs_base++;          vs_base++;
5208          }else{          }else{
5209          V778= Cnil;}          V858= Cnil;}
5210          if(vs_base<vs_top){          if(vs_base<vs_top){
5211          V772= vs_base[0];          V852= vs_base[0];
5212          vs_base++;          vs_base++;
5213          }else{          }else{
5214          V772= Cnil;}          V852= Cnil;}
5215          if(vs_base<vs_top){          if(vs_base<vs_top){
5216          V773= vs_base[0];          V853= vs_base[0];
5217          }else{          }else{
5218          V773= Cnil;}          V853= Cnil;}
5219          vs_top=sup;          vs_top=sup;
5220          if(((V772))==Cnil){          if(((V852))==Cnil){
5221          goto T1854;}          goto T1854;}
5222          V759= list(2,VV[221],(V773));          V839= list(2,VV[221],(V853));
5223          goto T1852;          goto T1852;
5224          goto T1854;          goto T1854;
5225  T1854:;  T1854:;
5226          V781= (VFUN_NARGS=1,(*(LnkLI335))(VV[260]));          V861= (VFUN_NARGS=1,(*(LnkLI335))(VV[260]));
5227          V759= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V781,(V778),(V750)));          V862 = (V858);
5228            V863 = (V830);
5229            V839= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V861,V862,V863));
5230          goto T1852;          goto T1852;
5231  T1852:;  T1852:;
5232          goto T1804;          goto T1804;
5233          goto T1823;          goto T1823;
5234  T1823:;  T1823:;
5235          if((V780!= VV[219]))goto T1856;          if((V860!= VV[219]))goto T1856;
5236          base[0]= (V778);          base[0]= (V858);
5237          base[1]= (V750);          base[1]= (V830);
5238          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5239          (void) (*Lnk393)();          (void) (*Lnk393)();
5240          if(vs_base<vs_top){          if(vs_base<vs_top){
5241          V778= vs_base[0];          V858= vs_base[0];
5242          vs_base++;          vs_base++;
5243          }else{          }else{
5244          V778= Cnil;}          V858= Cnil;}
5245          if(vs_base<vs_top){          if(vs_base<vs_top){
5246          V764= vs_base[0];          V844= vs_base[0];
5247          vs_base++;          vs_base++;
5248          }else{          }else{
5249          V764= Cnil;}          V844= Cnil;}
5250          if(vs_base<vs_top){          if(vs_base<vs_top){
5251          V763= vs_base[0];          V843= vs_base[0];
5252          }else{          }else{
5253          V763= Cnil;}          V843= Cnil;}
5254          vs_top=sup;          vs_top=sup;
5255          if(((V764))!=Cnil){          if(((V844))!=Cnil){
5256          goto T1804;}          goto T1804;}
5257          V763= (VFUN_NARGS=1,(*(LnkLI335))(VV[261]));          V843= (VFUN_NARGS=1,(*(LnkLI335))(VV[261]));
5258          (void)((VFUN_NARGS=3,(*(LnkLI371))((V763),(V778),(V750))));          V864 = (V843);
5259            V865 = (V858);
5260            V866 = (V830);
5261            (void)((VFUN_NARGS=3,(*(LnkLI371))(V864,V865,V866)));
5262          goto T1804;          goto T1804;
5263          goto T1856;          goto T1856;
5264  T1856:;  T1856:;
5265          base[0]= VV[262];          base[0]= VV[262];
5266          base[1]= (V777);          base[1]= (V857);
5267          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5268          (void) (*Lnk354)();          (void) (*Lnk354)();
5269          vs_top=sup;}          vs_top=sup;}
5270          goto T1804;          goto T1804;
5271  T1804:;  T1804:;
5272          if(((V779))==Cnil){          if(((V859))==Cnil){
5273          goto T1866;}          goto T1866;}
5274          if(((V766))==Cnil){          if(((V846))==Cnil){
5275          goto T1866;}          goto T1866;}
5276          if(((V766))==((V779))){          if(((V846))==((V859))){
5277          goto T1866;}          goto T1866;}
5278          base[0]= VV[263];          base[0]= VV[263];
5279          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5196  T1804:; Line 5281  T1804:;
5281          vs_top=sup;          vs_top=sup;
5282          goto T1866;          goto T1866;
5283  T1866:;  T1866:;
5284          V779= (V766);          V859= (V846);
5285          V776= CMPcdr((V776));          V856= CMPcdr((V856));
5286          goto T1795;}          goto T1795;}
5287          goto T1793;          goto T1793;
5288  T1793:;  T1793:;
5289          if(((V754))==Cnil){          if(((V834))==Cnil){
5290          goto T1879;}          goto T1879;}
5291          if(((V760))!=Cnil){          if(((V840))!=Cnil){
5292          goto T1879;}          goto T1879;}
5293          base[0]= VV[264];          base[0]= VV[264];
5294          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5211  T1793:; Line 5296  T1793:;
5296          vs_top=sup;          vs_top=sup;
5297          goto T1879;          goto T1879;
5298  T1879:;  T1879:;
5299          if(((V768))!=Cnil){          if(((V848))!=Cnil){
5300          goto T1885;}          goto T1885;}
5301          V770= Ct;{object V783;          V867 = (V829);
5302          V783= (*(LnkLI336))((V750));          V850= Ct;{object V869;
5303          if(V783==Cnil)goto T1892;          V869= (*(LnkLI336))((V830));
5304          V769= V783;          if(V869==Cnil)goto T1892;
5305            V849= V869;
5306          goto T1891;          goto T1891;
5307          goto T1892;          goto T1892;
5308  T1892:;}  T1892:;}
5309          V769= small_fixnum(0);          V849= small_fixnum(0);
5310          goto T1891;          goto T1891;
5311  T1891:;  T1891:;
5312          V782= (V769);          V868= (V849);
5313          (void)((*(LnkLI392))((V749),V782,(V750)));          V870 = (V830);
5314            (void)((*(LnkLI392))(V867,V868,V870));
5315          goto T1885;          goto T1885;
5316  T1885:;  T1885:;
5317          {register object x= (V766),V784= VV[265];          {register object x= (V846),V871= VV[265];
5318          while(V784!=Cnil)          while(V871!=Cnil)
5319          if(eql(x,V784->c.c_car)){          if(eql(x,V871->c.c_car)){
5320          goto T1897;          goto T1897;
5321          }else V784=V784->c.c_cdr;          }else V871=V871->c.c_cdr;
5322          goto T1896;}          goto T1896;}
5323          goto T1897;          goto T1897;
5324  T1897:;  T1897:;
5325          if(((V771))!=Cnil){          if(((V851))!=Cnil){
5326          goto T1899;}          goto T1899;}
5327          if(((V757))==Cnil){          if(((V837))==Cnil){
5328          goto T1898;}          goto T1898;}
5329          goto T1899;          goto T1899;
5330  T1899:;  T1899:;
5331          if(((V771))!=Cnil){          if(((V851))!=Cnil){
5332          goto T1903;}          goto T1903;}
5333          V759= (VFUN_NARGS=1,(*(LnkLI335))(VV[266]));          V839= (VFUN_NARGS=1,(*(LnkLI335))(VV[266]));
5334          (void)((VFUN_NARGS=3,(*(LnkLI371))((V759),Cnil,(V750))));          V872 = (V839);
5335          {object V785;          V873 = (V830);
5336          V785= list(3,VV[11],(V759),(V757));          (void)((VFUN_NARGS=3,(*(LnkLI371))(V872,Cnil,V873)));
5337          (VV[108]->s.s_dbind)= make_cons((V785),(VV[108]->s.s_dbind));}          {object V874;
5338            V874= list(3,VV[11],(V839),(V837));
5339            (VV[108]->s.s_dbind)= make_cons((V874),(VV[108]->s.s_dbind));}
5340          goto T1903;          goto T1903;
5341  T1903:;  T1903:;
5342          if(((V767))==Cnil){          if(((V847))==Cnil){
5343          goto T1912;}          goto T1912;}
5344          V761= VV[34];          V841= VV[34];
5345          goto T1910;          goto T1910;
5346          goto T1912;          goto T1912;
5347  T1912:;  T1912:;
5348          V761= VV[217];          V841= VV[217];
5349          goto T1910;          goto T1910;
5350  T1910:;  T1910:;
5351          goto T1898;          goto T1898;
5352  T1898:;  T1898:;
5353          if(!(eql((V763),small_fixnum(1)))){          if(!(eql((V843),small_fixnum(1)))){
5354          goto T1916;}          goto T1916;}
5355          V765= list(2,VV[184],(V749));          V845= list(2,VV[184],(V829));
5356          goto T1914;          goto T1914;
5357          goto T1916;          goto T1916;
5358  T1916:;  T1916:;
5359          V765= list(3,VV[185],(V749),(V763));          V845= list(3,VV[185],(V829),(V843));
5360          goto T1914;          goto T1914;
5361  T1914:;  T1914:;
5362          goto T1894;          goto T1894;
5363          goto T1896;          goto T1896;
5364  T1896:;  T1896:;
5365          if(((V768))!=Cnil){          if(((V848))!=Cnil){
5366          goto T1918;}          goto T1918;}
5367          if(((V757))!=Cnil){          if(((V837))!=Cnil){
5368          goto T1921;}          goto T1921;}
5369          base[0]= VV[267];          base[0]= VV[267];
5370          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5283  T1896:; Line 5372  T1896:;
5372          vs_top=sup;          vs_top=sup;
5373          goto T1921;          goto T1921;
5374  T1921:;  T1921:;
5375          {object V786;          {object V875;
5376          V786= list(3,VV[11],(V749),list(2,VV[268],(V757)));          V875= list(3,VV[11],(V829),list(2,VV[268],(V837)));
5377          (VV[108]->s.s_dbind)= make_cons((V786),(VV[108]->s.s_dbind));}          (VV[108]->s.s_dbind)= make_cons((V875),(VV[108]->s.s_dbind));}
5378          goto T1918;          goto T1918;
5379  T1918:;  T1918:;
5380          if(((V757))==Cnil){          if(((V837))==Cnil){
5381          goto T1927;}          goto T1927;}
5382          if(((V759))!=Cnil){          if(((V839))!=Cnil){
5383          goto T1927;}          goto T1927;}
5384          V759= (*(LnkLI336))((V750));          V839= (*(LnkLI336))((V830));
5385          V767= Ct;          V847= Ct;
5386          goto T1927;          goto T1927;
5387  T1927:;  T1927:;
5388          if(((V759))==Cnil){          if(((V839))==Cnil){
5389          goto T1935;}          goto T1935;}
5390          if(((V767))==Cnil){          if(((V847))==Cnil){
5391          goto T1940;}          goto T1940;}
5392          V761= VV[33];          V841= VV[33];
5393          goto T1938;          goto T1938;
5394          goto T1940;          goto T1940;
5395  T1940:;  T1940:;
5396          V761= VV[269];          V841= VV[269];
5397          goto T1938;          goto T1938;
5398  T1938:;  T1938:;
5399          goto T1935;          goto T1935;
5400  T1935:;  T1935:;
5401          if(!(eql((V763),small_fixnum(1)))){          if(!(eql((V843),small_fixnum(1)))){
5402          goto T1944;}          goto T1944;}
5403          V765= list(2,VV[268],(V749));          V845= list(2,VV[268],(V829));
5404          goto T1942;          goto T1942;
5405          goto T1944;          goto T1944;
5406  T1944:;  T1944:;
5407          V765= list(3,VV[270],(V749),(V763));          V845= list(3,VV[270],(V829),(V843));
5408          goto T1942;          goto T1942;
5409  T1942:;  T1942:;
5410          goto T1894;          goto T1894;
5411  T1894:;  T1894:;
5412          if(((V761))==Cnil){          if(((V841))==Cnil){
5413          goto T1946;}          goto T1946;}
5414          V787= list(3,(V761),(V749),(V759));          V876= list(3,(V841),(V829),(V839));
5415          V762= (*(LnkLI337))(Ct,(V749),/* INLINE-ARGS */V787);          V842= (*(LnkLI337))(Ct,(V829),/* INLINE-ARGS */V876);
5416          goto T1946;          goto T1946;
5417  T1946:;  T1946:;
5418          if(((V756))==Cnil){          if(((V836))==Cnil){
5419          goto T1950;}          goto T1950;}
5420          V756= list(2,(V752),(*(LnkLI337))((V751),(V749),(V756)));          V877 = (V832);
5421            V836= list(2,V877,(*(LnkLI337))((V831),(V829),(V836)));
5422          goto T1950;          goto T1950;
5423  T1950:;  T1950:;
5424          {object V788;          {object V878;
5425          object V789;          object V879;
5426          V788= (V762);          V878= (V842);
5427          V789= (V762);          V879= (V842);
5428          if(((V764))==Cnil){          if(((V844))==Cnil){
5429          goto T1954;}          goto T1954;}
5430          if(((V770))==Cnil){          if(((V850))==Cnil){
5431          goto T1954;}          goto T1954;}
5432          if(((V772))==Cnil){          if(((V852))==Cnil){
5433          goto T1954;}          goto T1954;}
5434          base[0]= (V761);          base[0]= (V841);
5435          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5436          Lsymbol_function();          Lsymbol_function();
5437          vs_top=sup;          vs_top=sup;
5438          V790= vs_base[0];          V880= vs_base[0];
5439          V788= (          V881 = (V849);
5440          V791 = V790,          V882 = (V853);
5441          (type_of(V791) == t_sfun ?(*((V791)->sfn.sfn_self)):          V878= (
5442          (fcall.argd=2,type_of(V791)==t_vfun) ?          V883 = V880,
5443          (*((V791)->sfn.sfn_self)):          (type_of(V883) == t_sfun ?(*((V883)->sfn.sfn_self)):
5444          (fcall.fun=(V791),fcalln))((V769),(V773)));          (fcall.argd=2,type_of(V883)==t_vfun) ?
5445          if(((V788))==Cnil){          (*((V883)->sfn.sfn_self)):
5446            (fcall.fun=(V883),fcalln))(V881,V882));
5447            if(((V878))==Cnil){
5448          goto T1954;}          goto T1954;}
5449          V789= Ct;          V879= Ct;
5450          goto T1954;          goto T1954;
5451  T1954:;  T1954:;
5452          {object V792 = list(8,Cnil,list(2,(V749),(*(LnkLI337))(Ct,(V749),(V765))),(V789),(V756),Cnil,Cnil,(V788),(V756));          V884 = (V829);
5453          VMR90(V792)}}}          {object V885 = list(8,Cnil,list(2,V884,(*(LnkLI337))(Ct,(V829),(V845))),(V879),(V836),Cnil,Cnil,(V878),(V836));
5454            VMR90(V885)}}}
5455          base[0]=base[0];          base[0]=base[0];
5456          return Cnil;          return Cnil;
5457  }  }
5458  /*      local entry for function LOOP-FOR-ARITHMETIC    */  /*      local entry for function LOOP-FOR-ARITHMETIC    */
5459    
5460  static object LI104(V797,V798,V799,V800)  static object LI104(V890,V891,V892,V893)
5461    
5462  object V797;object V798;object V799;object V800;  object V890;object V891;object V892;object V893;
5463  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
5464          goto TTL;          goto TTL;
5465  TTL:;  TTL:;
5466          V801= (VFUN_NARGS=2,(*(LnkLI387))((V799),(VV[187]->s.s_dbind)));          V894 = (V890);
5467          V802= list(2,(V800),(V798));          V895= (VFUN_NARGS=2,(*(LnkLI387))((V892),(VV[187]->s.s_dbind)));
5468          V803= make_cons(/* INLINE-ARGS */V802,Cnil);          V896= list(2,(V893),(V891));
5469          V804= (VFUN_NARGS=3,(*(LnkLI397))(VV[271],Cnil,/* INLINE-ARGS */V803));          V897= make_cons(/* INLINE-ARGS */V896,Cnil);
5470          {object V805 = (*(LnkLI402))((V797),/* INLINE-ARGS */V801,Ct,Cnil,Cnil,Cnil,Cnil,Cnil,Cnil,/* INLINE-ARGS */V804);          V898= (VFUN_NARGS=3,(*(LnkLI397))(VV[271],Cnil,/* INLINE-ARGS */V897));
5471          VMR91(V805)}          {object V899 = (*(LnkLI402))(V894,/* INLINE-ARGS */V895,Ct,Cnil,Cnil,Cnil,Cnil,Cnil,Cnil,/* INLINE-ARGS */V898);
5472            VMR91(V899)}
5473          return Cnil;          return Cnil;
5474  }  }
5475  /*      local entry for function LOOP-SEQUENCE-ELEMENTS-PATH    */  /*      local entry for function LOOP-SEQUENCE-ELEMENTS-PATH    */
5476    
5477  static object LI105(object V808,object V807,object V806,object first,...)  static object LI105(object V902,object V901,object V900,object first,...)
5478  {        {      
5479          va_list ap;          va_list ap;
5480          int narg = VFUN_NARGS; VMB92 VMS92 VMV92          int narg = VFUN_NARGS; VMB92 VMS92 VMV92
5481          {object V809;          {object V903;
5482          object V810;          object V904;
5483          object V811;          object V905;
5484          object V812;          object V906;
5485          object V813;          object V907;
5486          object V814;          object V908;
5487          object V815;          object V909;
5488          va_start(ap,first);          va_start(ap,first);
5489          V809= V808;          V903= V902;
5490          V810= V807;          V904= V901;
5491          V811= V806;          V905= V900;
5492          narg= narg - 3;          narg= narg - 3;
5493          {          {
5494          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI105key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI105key,first,ap);
5495          V812=(Vcs[3]);          V906=(Vcs[3]);
5496          V813=(Vcs[4]);          V907=(Vcs[4]);
5497          V814=(Vcs[5]);          V908=(Vcs[5]);
5498          V815=(Vcs[6]);          V909=(Vcs[6]);
5499          {object V816;          {object V910;
5500          object V817;          object V911;
5501          base[0]= VV[272];          base[0]= VV[272];
5502          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5503          (void) (*Lnk407)();          (void) (*Lnk407)();
5504          if(vs_base>=vs_top){vs_top=sup;goto T1969;}          if(vs_base>=vs_top){vs_top=sup;goto T1969;}
5505          V816= vs_base[0];          V910= vs_base[0];
5506          vs_base++;          vs_base++;
5507          if(vs_base>=vs_top){vs_top=sup;goto T1970;}          if(vs_base>=vs_top){vs_top=sup;goto T1970;}
5508          V817= vs_base[0];          V911= vs_base[0];
5509          vs_top=sup;          vs_top=sup;
5510          goto T1971;          goto T1971;
5511          goto T1969;          goto T1969;
5512  T1969:;  T1969:;
5513          V816= Cnil;          V910= Cnil;
5514          goto T1970;          goto T1970;
5515  T1970:;  T1970:;
5516          V817= Cnil;          V911= Cnil;
5517          goto T1971;          goto T1971;
5518  T1971:;  T1971:;
5519          {object V818;          {object V912;
5520          base[0]= VV[273];          base[0]= VV[273];
5521          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5522          (void) (*Lnk407)();          (void) (*Lnk407)();
5523          vs_top=sup;          vs_top=sup;
5524          V818= vs_base[0];          V912= vs_base[0];
5525          if((V810)!=Cnil){          V913 = (V910);
5526          V819= (V810);          V914 = (V911);
5527            V915 = (V903);
5528            if((V904)!=Cnil){
5529            V916= (V904);
5530          goto T1974;}          goto T1974;}
5531          V819= (V815);          V916= (V909);
5532          goto T1974;          goto T1974;
5533  T1974:;  T1974:;
5534          V820= list(3,(V812),(V818),(V816));          V917 = (V912);
5535          V821= list(2,(V813),(V818));          V918 = (V908);
5536          {object V822 = listA(3,Cnil,Cnil,(*(LnkLI402))((V816),VV[214],(V817),(V809),V819,(V818),(V814),/* INLINE-ARGS */V820,/* INLINE-ARGS */V821,(V811)));          V919= list(3,(V906),(V912),(V910));
5537          VMR92(V822)}}}          V920= list(2,(V907),(V912));
5538            V921 = (V905);
5539            {object V922 = listA(3,Cnil,Cnil,(*(LnkLI402))(V913,VV[214],V914,V915,V916,V917,V918,/* INLINE-ARGS */V919,/* INLINE-ARGS */V920,V921));
5540            VMR92(V922)}}}
5541          va_end(ap);          va_end(ap);
5542          base[0]=base[0];          base[0]=base[0];
5543          return Cnil;}          return Cnil;}
5544          }}          }}
5545  /*      local entry for function LOOP-HASH-TABLE-ITERATION-PATH */  /*      local entry for function LOOP-HASH-TABLE-ITERATION-PATH */
5546    
5547  static object LI106(object V825,object V824,object V823,object first,...)  static object LI106(object V925,object V924,object V923,object first,...)
5548  {        {      
5549          va_list ap;          va_list ap;
5550          int narg = VFUN_NARGS; VMB93 VMS93 VMV93          int narg = VFUN_NARGS; VMB93 VMS93 VMV93
5551          bds_check;          bds_check;
5552          {object V826;          {object V926;
5553          object V827;          object V927;
5554          object V828;          object V928;
5555          register object V829;          register object V929;
5556          va_start(ap,first);          va_start(ap,first);
5557          V826= V825;          V926= V925;
5558          V827= V824;          V927= V924;
5559          V828= V823;          V928= V923;
5560          narg= narg - 3;          narg= narg - 3;
5561          {          {
5562          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI106key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI106key,first,ap);
5563          V829=(Vcs[3]);          V929=(Vcs[3]);
5564          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
5565          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
5566          goto T1977;          goto T1977;
5567  T1977:;  T1977:;
5568          base[2]= (V829);          base[2]= (V929);
5569          base[3]= VV[274];          base[3]= VV[274];
5570          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5571          (void) (*Lnk340)();          (void) (*Lnk340)();
# Line 5480  T1978:; Line 5580  T1978:;
5580          base[2]= VV[47];          base[2]= VV[47];
5581          base[3]= VV[48];          base[3]= VV[48];
5582          base[4]= VV[275];          base[4]= VV[275];
5583          base[5]= (V829);          base[5]= (V929);
5584          base[6]= VV[274];          base[6]= VV[274];
5585          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
5586          Lcerror();          Lcerror();
# Line 5498  T1978:; Line 5598  T1978:;
5598          vs_base=vs_top;          vs_base=vs_top;
5599          Lread();          Lread();
5600          vs_top=sup;          vs_top=sup;
5601          V829= vs_base[0];          V929= vs_base[0];
5602          base[2]= (VV[50]->s.s_dbind);          base[2]= (VV[50]->s.s_dbind);
5603          base[3]= VV[52];          base[3]= VV[52];
5604          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 5507  T1978:; Line 5607  T1978:;
5607          goto T1977;          goto T1977;
5608          goto T1975;          goto T1975;
5609  T1975:;  T1975:;
5610          if((CMPcdr((V828)))!=Cnil){          if((CMPcdr((V928)))!=Cnil){
5611          goto T2004;}          goto T2004;}
5612          {register object x= CMPcaar((V828)),V830= VV[276];          {register object x= CMPcaar((V928)),V930= VV[276];
5613          while(V830!=Cnil)          while(V930!=Cnil)
5614          if(eql(x,V830->c.c_car)){          if(eql(x,V930->c.c_car)){
5615          goto T2005;          goto T2005;
5616          }else V830=V830->c.c_cdr;}          }else V930=V930->c.c_cdr;}
5617          goto T2004;          goto T2004;
5618  T2004:;  T2004:;
5619          base[0]= VV[277];          base[0]= VV[277];
# Line 5523  T2004:; Line 5623  T2004:;
5623          goto T2003;          goto T2003;
5624          goto T2005;          goto T2005;
5625  T2005:;  T2005:;
5626          if(((V828))!=Cnil){          if(((V928))!=Cnil){
5627          goto T2003;}          goto T2003;}
5628          base[0]= VV[278];          base[0]= VV[278];
5629          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5531  T2005:; Line 5631  T2005:;
5631          vs_top=sup;          vs_top=sup;
5632          goto T2003;          goto T2003;
5633  T2003:;  T2003:;
5634          {object V831;          {object V931;
5635          object V832;          object V932;
5636          object V833;          object V933;
5637          register object V834;          register object V934;
5638          V831= (VFUN_NARGS=1,(*(LnkLI335))(VV[279]));          V931= (VFUN_NARGS=1,(*(LnkLI335))(VV[279]));
5639          V832= (VFUN_NARGS=1,(*(LnkLI335))(VV[280]));          V932= (VFUN_NARGS=1,(*(LnkLI335))(VV[280]));
5640          V833= Cnil;          V933= Cnil;
5641          V834= Cnil;          V934= Cnil;
5642          {object V835;          {object V935;
5643          object V836;          object V936;
5644          if(!(((V829))==(VV[281]))){          if(!(((V929))==(VV[281]))){
5645          goto T2018;}          goto T2018;}
5646          base[0]= VV[282];          base[0]= VV[282];
5647          goto T2016;          goto T2016;
# Line 5553  T2016:; Line 5653  T2016:;
5653          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5654          (void) (*Lnk407)();          (void) (*Lnk407)();
5655          if(vs_base>=vs_top){vs_top=sup;goto T2020;}          if(vs_base>=vs_top){vs_top=sup;goto T2020;}
5656          V835= vs_base[0];          V935= vs_base[0];
5657          vs_base++;          vs_base++;
5658          if(vs_base>=vs_top){vs_top=sup;goto T2021;}          if(vs_base>=vs_top){vs_top=sup;goto T2021;}
5659          V836= vs_base[0];          V936= vs_base[0];
5660          vs_top=sup;          vs_top=sup;
5661          goto T2022;          goto T2022;
5662          goto T2020;          goto T2020;
5663  T2020:;  T2020:;
5664          V835= Cnil;          V935= Cnil;
5665          goto T2021;          goto T2021;
5666  T2021:;  T2021:;
5667          V836= Cnil;          V936= Cnil;
5668          goto T2022;          goto T2022;
5669  T2022:;  T2022:;
5670          V836= Ct;          V936= Ct;
5671          V833= (*(LnkLI391))();          V933= (*(LnkLI391))();
5672          {register object V837;          {register object V937;
5673          register object V838;          register object V938;
5674          object V839;          object V939;
5675          object V840;          object V940;
5676          object V841;          object V941;
5677          object V842;          object V942;
5678          register object V843;          register object V943;
5679          V837= Cnil;          V937= Cnil;
5680          V838= Cnil;          V938= Cnil;
5681          V839= (VFUN_NARGS=1,(*(LnkLI335))(VV[283]));          V939= (VFUN_NARGS=1,(*(LnkLI335))(VV[283]));
5682          V840= (VFUN_NARGS=1,(*(LnkLI335))(VV[284]));          V940= (VFUN_NARGS=1,(*(LnkLI335))(VV[284]));
5683          V841= (VFUN_NARGS=1,(*(LnkLI335))(VV[285]));          V941= (VFUN_NARGS=1,(*(LnkLI335))(VV[285]));
5684          if((V826)!=Cnil){          if((V926)!=Cnil){
5685          V842= (V826);          V942= (V926);
5686          goto T2032;}          goto T2032;}
5687          V842= (VFUN_NARGS=0,(*(LnkLI335))());          V942= (VFUN_NARGS=0,(*(LnkLI335))());
5688          goto T2032;          goto T2032;
5689  T2032:;  T2032:;
5690          V844= list(3,(V842),Cnil,(V827));          V944= list(3,(V942),Cnil,(V927));
5691          V845= list(2,(V831),CMPcadar((V828)));          V945= list(2,(V931),CMPcadar((V928)));
5692          if((V836)==Cnil){          if((V936)==Cnil){
5693          V846= Cnil;          V946= Cnil;
5694          goto T2034;}          goto T2034;}
5695          if((V835)==Cnil){          if((V935)==Cnil){
5696          V846= Cnil;          V946= Cnil;
5697          goto T2034;}          goto T2034;}
5698          V847= list(2,(V835),Cnil);          V947= list(2,(V935),Cnil);
5699          V846= make_cons(/* INLINE-ARGS */V847,Cnil);          V946= make_cons(/* INLINE-ARGS */V947,Cnil);
5700          goto T2034;          goto T2034;
5701  T2034:;  T2034:;
5702          V843= listA(3,/* INLINE-ARGS */V844,/* INLINE-ARGS */V845,V846);          V943= listA(3,/* INLINE-ARGS */V944,/* INLINE-ARGS */V945,V946);
5703          if(!(((V829))==(VV[281]))){          if(!(((V929))==(VV[281]))){
5704          goto T2037;}          goto T2037;}
5705          V837= (V842);          V937= (V942);
5706          if((V836)==Cnil){          if((V936)==Cnil){
5707          V838= Cnil;          V938= Cnil;
5708          goto T2041;}          goto T2041;}
5709          V838= (V835);          V938= (V935);
5710          goto T2041;          goto T2041;
5711  T2041:;  T2041:;
5712          goto T2035;          goto T2035;
5713          goto T2037;          goto T2037;
5714  T2037:;  T2037:;
5715          if((V836)==Cnil){          if((V936)==Cnil){
5716          V837= Cnil;          V937= Cnil;
5717          goto T2043;}          goto T2043;}
5718          V837= (V835);          V937= (V935);
5719          goto T2043;          goto T2043;
5720  T2043:;  T2043:;
5721          V838= (V842);          V938= (V942);
5722          goto T2035;          goto T2035;
5723  T2035:;  T2035:;
5724          {object V848;          {object V948;
5725          V848= list(2,VV[286],list(2,(V832),(V831)));          V948= list(2,VV[286],list(2,(V932),(V931)));
5726          (VV[109]->s.s_dbind)= make_cons((V848),(VV[109]->s.s_dbind));}          (VV[109]->s.s_dbind)= make_cons((V948),(VV[109]->s.s_dbind));}
5727          if(!(type_of((V837))==t_cons)){          if(!(type_of((V937))==t_cons)){
5728          goto T2048;}{object V849;          goto T2048;}{object V949;
5729          V849= (V837);          V949= (V937);
5730          V837= (VFUN_NARGS=1,(*(LnkLI335))(VV[284]));          V937= (VFUN_NARGS=1,(*(LnkLI335))(VV[284]));
5731          V834= listA(3,V849,(V837),(V834));}          V950 = (V937);
5732          {object V850;          V951 = (V934);
5733          V850= list(2,(V837),Cnil);          V934= listA(3,V949,V950,V951);}
5734          V843= make_cons((V850),(V843));}          {object V952;
5735            V952= list(2,(V937),Cnil);
5736            V943= make_cons((V952),(V943));}
5737          goto T2048;          goto T2048;
5738  T2048:;  T2048:;
5739          if(!(type_of((V838))==t_cons)){          if(!(type_of((V938))==t_cons)){
5740          goto T2056;}{object V851;          goto T2056;}{object V953;
5741          V851= (V838);          V953= (V938);
5742          V838= (VFUN_NARGS=1,(*(LnkLI335))(VV[283]));          V938= (VFUN_NARGS=1,(*(LnkLI335))(VV[283]));
5743          V834= listA(3,V851,(V838),(V834));}          V954 = (V938);
5744          {object V852;          V955 = (V934);
5745          V852= list(2,(V838),Cnil);          V934= listA(3,V953,V954,V955);}
5746          V843= make_cons((V852),(V843));}          {object V956;
5747            V956= list(2,(V938),Cnil);
5748            V943= make_cons((V956),(V943));}
5749          goto T2056;          goto T2056;
5750  T2056:;  T2056:;
5751          V853= list(3,(V841),(V840),(V839));          V957= list(3,(V941),(V940),(V939));
5752          V854= make_cons((V832),Cnil);          V958= make_cons((V932),Cnil);
5753          V855= list(3,VV[11],(V838),(V839));          V959= list(3,VV[11],(V938),(V939));
5754          V856= list(4,VV[8],(V841),/* INLINE-ARGS */V855,list(3,VV[11],(V837),(V840)));          V960= list(4,VV[8],(V941),/* INLINE-ARGS */V959,list(3,VV[11],(V937),(V940)));
5755          {object V857 = list(6,(V843),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V853,/* INLINE-ARGS */V854,/* INLINE-ARGS */V856,list(3,VV[11],(V833),(V841)))),(V834));          {object V961 = list(6,(V943),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V957,/* INLINE-ARGS */V958,/* INLINE-ARGS */V960,list(3,VV[11],(V933),(V941)))),(V934));
5756          VMR93(V857)}}}}          VMR93(V961)}}}}
5757          va_end(ap);          va_end(ap);
5758          base[0]=base[0];          base[0]=base[0];
5759          return Cnil;}          return Cnil;}
5760          }}          }}
5761  /*      local entry for function LOOP-PACKAGE-SYMBOLS-ITERATION-PATH    */  /*      local entry for function LOOP-PACKAGE-SYMBOLS-ITERATION-PATH    */
5762    
5763  static object LI107(object V860,object V859,object V858,object first,...)  static object LI107(object V964,object V963,object V962,object first,...)
5764  {        {      
5765          va_list ap;          va_list ap;
5766          int narg = VFUN_NARGS; VMB94 VMS94 VMV94          int narg = VFUN_NARGS; VMB94 VMS94 VMV94
5767          {object V861;          {object V965;
5768          object V862;          object V966;
5769          register object V863;          register object V967;
5770          object V864;          object V968;
5771          va_start(ap,first);          va_start(ap,first);
5772          V861= V860;          V965= V964;
5773          V862= V859;          V966= V963;
5774          V863= V858;          V967= V962;
5775          narg= narg - 3;          narg= narg - 3;
5776          {          {
5777          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI107key,first,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI107key,first,ap);
5778          V864=(Vcs[3]);          V968=(Vcs[3]);
5779          if(((V863))==Cnil){          if(((V967))==Cnil){
5780          goto T2066;}          goto T2066;}
5781          if((CMPcdr((V863)))==Cnil){          if((CMPcdr((V967)))==Cnil){
5782          goto T2066;}          goto T2066;}
5783          base[0]= VV[288];          base[0]= VV[288];
5784          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5683  static object LI107(object V860,object V Line 5787  static object LI107(object V860,object V
5787          goto T2064;          goto T2064;
5788          goto T2066;          goto T2066;
5789  T2066:;  T2066:;
5790          if(((V863))==Cnil){          if(((V967))==Cnil){
5791          goto T2064;}          goto T2064;}
5792          {register object x= CMPcaar((V863)),V865= VV[289];          {register object x= CMPcaar((V967)),V969= VV[289];
5793          while(V865!=Cnil)          while(V969!=Cnil)
5794          if(eql(x,V865->c.c_car)){          if(eql(x,V969->c.c_car)){
5795          goto T2064;          goto T2064;
5796          }else V865=V865->c.c_cdr;}          }else V969=V969->c.c_cdr;}
5797          base[0]= VV[290];          base[0]= VV[290];
5798          base[1]= CMPcaar((V863));          base[1]= CMPcaar((V967));
5799          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5800          (void) (*Lnk354)();          (void) (*Lnk354)();
5801          vs_top=sup;          vs_top=sup;
5802          goto T2064;          goto T2064;
5803  T2064:;  T2064:;
5804          if(type_of((V861))==t_symbol){          if(type_of((V965))==t_symbol){
5805          goto T2077;}          goto T2077;}
5806          base[0]= VV[291];          base[0]= VV[291];
5807          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 5705  T2064:; Line 5809  T2064:;
5809          vs_top=sup;          vs_top=sup;
5810          goto T2077;          goto T2077;
5811  T2077:;  T2077:;
5812          {object V866;          {object V970;
5813          object V867;          object V971;
5814          object V868;          object V972;
5815          object V869;          object V973;
5816          V866= (VFUN_NARGS=1,(*(LnkLI335))(VV[292]));          V970= (VFUN_NARGS=1,(*(LnkLI335))(VV[292]));
5817          V867= (VFUN_NARGS=1,(*(LnkLI335))(VV[293]));          V971= (VFUN_NARGS=1,(*(LnkLI335))(VV[293]));
5818          if((V861)!=Cnil){          if((V965)!=Cnil){
5819          V868= (V861);          V972= (V965);
5820          goto T2083;}          goto T2083;}
5821          V868= (VFUN_NARGS=0,(*(LnkLI335))());          V972= (VFUN_NARGS=0,(*(LnkLI335))());
5822          goto T2083;          goto T2083;
5823  T2083:;{object V870;  T2083:;{object V974;
5824          V870= CMPcadar((V863));          V974= CMPcadar((V967));
5825          if(V870==Cnil)goto T2085;          if(V974==Cnil)goto T2085;
5826          V869= V870;          V973= V974;
5827          goto T2084;          goto T2084;
5828          goto T2085;          goto T2085;
5829  T2085:;}  T2085:;}
5830          V869= VV[294];          V973= VV[294];
5831          goto T2084;          goto T2084;
5832  T2084:;  T2084:;
5833          {object V871;          {object V975;
5834          V871= list(2,VV[295],listA(3,(V867),(V866),(V864)));          V975= list(2,VV[295],listA(3,(V971),(V970),(V968)));
5835          (VV[109]->s.s_dbind)= make_cons((V871),(VV[109]->s.s_dbind));}          (VV[109]->s.s_dbind)= make_cons((V975),(VV[109]->s.s_dbind));}
5836          V872= list(3,(V868),Cnil,(V862));          V976= list(3,(V972),Cnil,(V966));
5837          V873= list(2,/* INLINE-ARGS */V872,list(2,(V866),(V869)));          V977= list(2,/* INLINE-ARGS */V976,list(2,(V970),(V973)));
5838          V874= (*(LnkLI391))();          V978= (*(LnkLI391))();
5839          V875= list(2,/* INLINE-ARGS */V874,(V868));          V979 = (V972);
5840          {object V876 = list(6,/* INLINE-ARGS */V873,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V875,make_cons((V867),Cnil))),Cnil);          V980= list(2,/* INLINE-ARGS */V978,V979);
5841          VMR94(V876)}}          {object V981 = list(6,/* INLINE-ARGS */V977,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V980,make_cons((V971),Cnil))),Cnil);
5842            VMR94(V981)}}
5843          va_end(ap);          va_end(ap);
5844          base[0]=base[0];          base[0]=base[0];
5845          return Cnil;}          return Cnil;}
5846          }}          }}
5847  /*      local entry for function MAKE-ANSI-LOOP-UNIVERSE        */  /*      local entry for function MAKE-ANSI-LOOP-UNIVERSE        */
5848    
5849  static object LI108(V878)  static object LI108(V983)
5850    
5851  object V878;  object V983;
5852  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
5853          goto TTL;          goto TTL;
5854  TTL:;  TTL:;
5855          {register object V879;          {register object V984;
5856          base[0]= VV[296];          base[0]= VV[296];
5857          base[1]= VV[297];          base[1]= VV[297];
5858          base[2]= VV[298];          base[2]= VV[298];
# Line 5766  TTL:; Line 5871  TTL:;
5871          vs_top=(vs_base=base+0)+15;          vs_top=(vs_base=base+0)+15;
5872          LlistA();          LlistA();
5873          vs_top=sup;          vs_top=sup;
5874          V880= vs_base[0];          V985= vs_base[0];
5875          if(((V878))==Cnil){          if(((V983))==Cnil){
5876          goto T2109;}          goto T2109;}
5877          V881= VV[314];          V986= VV[314];
5878          goto T2107;          goto T2107;
5879          goto T2109;          goto T2109;
5880  T2109:;  T2109:;
5881          V881= Ct;          V986= Ct;
5882          goto T2107;          goto T2107;
5883  T2107:;  T2107:;
5884          V879= (VFUN_NARGS=12,(*(LnkLI410))(VV[53],V880,VV[54],VV[311],VV[55],VV[312],VV[60],VV[313],VV[59],Cnil,VV[57],V881));          V984= (VFUN_NARGS=12,(*(LnkLI410))(VV[53],V985,VV[54],VV[311],VV[55],VV[312],VV[60],VV[313],VV[59],Cnil,VV[57],V986));
5885          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[315],VV[316],(V879),VV[233],VV[317],VV[234],Cnil,VV[232],VV[318])));          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[315],VV[316],(V984),VV[233],VV[317],VV[234],Cnil,VV[232],VV[318])));
5886          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[319],VV[316],(V879),VV[233],VV[320],VV[234],Cnil,VV[232],VV[321])));          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[319],VV[316],(V984),VV[233],VV[320],VV[234],Cnil,VV[232],VV[321])));
5887          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[322],VV[323],(V879),VV[233],VV[324],VV[234],Cnil,VV[232],VV[325])));          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[322],VV[323],(V984),VV[233],VV[324],VV[234],Cnil,VV[232],VV[325])));
5888          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[326],VV[323],(V879),VV[233],VV[327],VV[234],Cnil,VV[232],VV[328])));          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[326],VV[323],(V984),VV[233],VV[327],VV[234],Cnil,VV[232],VV[328])));
5889          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[329],VV[323],(V879),VV[233],VV[330],VV[234],Cnil,VV[232],VV[331])));          (void)((VFUN_NARGS=9,(*(LnkLI411))(VV[329],VV[323],(V984),VV[233],VV[330],VV[234],Cnil,VV[232],VV[331])));
5890          {object V882 = (V879);          {object V987 = (V984);
5891          VMR95(V882)}}          VMR95(V987)}}
5892          base[0]=base[0];          base[0]=base[0];
5893          return Cnil;          return Cnil;
5894  }  }
5895  /*      local entry for function LOOP-STANDARD-EXPANSION        */  /*      local entry for function LOOP-STANDARD-EXPANSION        */
5896    
5897  static object LI109(V886,V887,V888)  static object LI109(V991,V992,V993)
5898    
5899  register object V886;object V887;object V888;  register object V991;object V992;object V993;
5900  {        VMB96 VMS96 VMV96  {        VMB96 VMS96 VMV96
5901          goto TTL;          goto TTL;
5902  TTL:;  TTL:;
5903          if(((V886))==Cnil){          if(((V991))==Cnil){
5904          goto T2117;}          goto T2117;}
5905          if(!(type_of(CMPcar((V886)))==t_symbol)){          if(!(type_of(CMPcar((V991)))==t_symbol)){
5906          goto T2117;}          goto T2117;}
5907          {object V889 = (*(LnkLI412))((V886),(V887),(V888));          {object V994 = (*(LnkLI412))((V991),(V992),(V993));
5908          VMR96(V889)}          VMR96(V994)}
5909          goto T2117;          goto T2117;
5910  T2117:;  T2117:;
5911          {object V890;          {object V995;
5912          vs_base=vs_top;          vs_base=vs_top;
5913          Lgensym();          Lgensym();
5914          vs_top=sup;          vs_top=sup;
5915          V890= vs_base[0];          V995= vs_base[0];
5916          V891= make_cons(VV[14],(V886));          V996= make_cons(VV[14],(V991));
5917          {object V892 = list(3,VV[124],Cnil,list(4,VV[73],(V890),/* INLINE-ARGS */V891,list(2,VV[82],(V890))));          {object V997 = list(3,VV[124],Cnil,list(4,VV[73],(V995),/* INLINE-ARGS */V996,list(2,VV[82],(V995))));
5918          VMR96(V892)}}          VMR96(V997)}}
5919          base[0]=base[0];          base[0]=base[0];
5920          return Cnil;          return Cnil;
5921  }  }
# Line 5821  static void L110() Line 5926  static void L110()
5926          register object *sup=base+VM97; VC97          register object *sup=base+VM97; VC97
5927          vs_check;          vs_check;
5928          vs_top=sup;          vs_top=sup;
5929          {object V893=base[0]->c.c_cdr;          {object V998=base[0]->c.c_cdr;
5930          base[2]= V893;}          base[2]= V998;}
5931          base[3]= (*(LnkLI413))(base[2],base[1],(VV[332]->s.s_dbind));          base[3]= (*(LnkLI413))(base[2],base[1],(VV[332]->s.s_dbind));
5932          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5933          return;          return;
# Line 5834  register object *base0; Line 5939  register object *base0;
5939  {       register object *base=vs_base;  {       register object *base=vs_base;
5940          register object *sup=base+VM98; VC98          register object *sup=base+VM98; VC98
5941          vs_check;          vs_check;
5942          {object V894;          {object V999;
5943          object V895;          object V1000;
5944          V894=(base[0]);          V999=(base[0]);
5945          V895=(base[1]);          V1000=(base[1]);
5946          vs_top=sup;          vs_top=sup;
5947          V896= (*(LnkLI362))((V894),(V895));          V1001= (*(LnkLI362))((V999),(V1000));
5948          base[2]= CMPcar(/* INLINE-ARGS */V896);          base[2]= CMPcar(/* INLINE-ARGS */V1001);
5949          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5950          return;          return;
5951          }          }
# Line 5852  register object *base0; Line 5957  register object *base0;
5957  {       register object *base=vs_base;  {       register object *base=vs_base;
5958          register object *sup=base+VM99; VC99          register object *sup=base+VM99; VC99
5959          vs_check;          vs_check;
5960          {object V897;          {object V1002;
5961          object V898;          object V1003;
5962          V897=(base[0]);          V1002=(base[0]);
5963          V898=(base[1]);          V1003=(base[1]);
5964          vs_top=sup;          vs_top=sup;
5965          goto TTL;          goto TTL;
5966  TTL:;  TTL:;
5967          V899= (*(LnkLI362))((V897),(V898));          V1004= (*(LnkLI362))((V1002),(V1003));
5968          base[2]= CMPcar(/* INLINE-ARGS */V899);          base[2]= CMPcar(/* INLINE-ARGS */V1004);
5969          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5970          return;          return;
5971          }          }
# Line 5872  register object *base0; Line 5977  register object *base0;
5977  {       register object *base=vs_base;  {       register object *base=vs_base;
5978          register object *sup=base+VM100; VC100          register object *sup=base+VM100; VC100
5979          vs_check;          vs_check;
5980          {object V900;          {object V1005;
5981          V900=(base[0]);          V1005=(base[0]);
5982          vs_top=sup;          vs_top=sup;
5983          goto TTL;          goto TTL;
5984  TTL:;  TTL:;
5985          if(((V900))!=Cnil){          if(((V1005))!=Cnil){
5986          goto T2123;}          goto T2123;}
5987          base[1]= Cnil;          base[1]= Cnil;
5988          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5989          return;          return;
5990          goto T2123;          goto T2123;
5991  T2123:;  T2123:;
5992          {register object x= Ct,V901= (V900);          {register object x= Ct,V1006= (V1005);
5993          while(V901!=Cnil)          while(V1006!=Cnil)
5994          if(eql(x,V901->c.c_car)){          if(eql(x,V1006->c.c_car)){
5995          goto T2127;          goto T2127;
5996          }else V901=V901->c.c_cdr;          }else V1006=V1006->c.c_cdr;
5997          goto T2126;}          goto T2126;}
5998          goto T2127;          goto T2127;
5999  T2127:;  T2127:;
# Line 5897  T2127:; Line 6002  T2127:;
6002          return;          return;
6003          goto T2126;          goto T2126;
6004  T2126:;  T2126:;
6005          V900= nreverse((V900));          V1005= nreverse((V1005));
6006          if((CMPcdr((V900)))!=Cnil){          V1008 = (V1005);
6007            if((CMPcdr(V1008))!=Cnil){
6008          goto T2130;}          goto T2130;}
6009          V902= CMPcar((V900));          V1007= CMPcar((V1005));
6010          goto T2128;          goto T2128;
6011          goto T2130;          goto T2130;
6012  T2130:;  T2130:;
6013          V902= make_cons(VV[35],(V900));          V1007= make_cons(VV[35],(V1005));
6014          goto T2128;          goto T2128;
6015  T2128:;  T2128:;
6016          base[1]= list(3,VV[8],V902,VV[198]);          base[1]= list(3,VV[8],V1007,VV[198]);
6017          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6018          return;          return;
6019          }          }
# Line 5919  register object *base0; Line 6025  register object *base0;
6025  {       register object *base=vs_base;  {       register object *base=vs_base;
6026          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
6027          vs_check;          vs_check;
6028          {object V903;          {object V1009;
6029          V903=(base[0]);          V1009=(base[0]);
6030          vs_top=sup;          vs_top=sup;
6031          goto TTL;          goto TTL;
6032  TTL:;  TTL:;
6033          {register object V904;          {register object V1010;
6034          V904= Cnil;          V1010= Cnil;
6035          goto T2134;          goto T2134;
6036  T2134:;  T2134:;
6037          {register object V905;          {register object V1011;
6038          register object V906;          register object V1012;
6039          V905= CMPcar((VV[88]->s.s_dbind));          V1011= CMPcar((VV[88]->s.s_dbind));
6040          bds_bind(VV[111],Cnil);          bds_bind(VV[111],Cnil);
6041          V906= Cnil;          V1012= Cnil;
6042          if(type_of((V905))==t_symbol){          if(type_of((V1011))==t_symbol){
6043          goto T2140;}          goto T2140;}
6044          base[2]= VV[155];          base[2]= VV[155];
6045          base[3]= (V905);          base[3]= (V1011);
6046          base[4]= (V903);          base[4]= (V1009);
6047          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6048          (void) (*Lnk354)();          (void) (*Lnk354)();
6049          vs_top=sup;          vs_top=sup;
# Line 5954  T2140:; Line 6060  T2140:;
6060          if((base0[2])==Cnil){          if((base0[2])==Cnil){
6061          goto T2148;}          goto T2148;}
6062          if(base0[1]!=Cnil){          if(base0[1]!=Cnil){
6063          V907= base0[1];          V1013= base0[1];
6064          goto T2154;}          goto T2154;}
6065          base0[1]= (*(LnkLI391))();          base0[1]= (*(LnkLI391))();
6066          V907= base0[1];          V1013= base0[1];
6067          goto T2154;          goto T2154;
6068  T2154:;  T2154:;
6069          (VV[88]->s.s_dbind)= make_cons(V907,CMPcdr((VV[88]->s.s_dbind)));          (VV[88]->s.s_dbind)= make_cons(V1013,CMPcdr((VV[88]->s.s_dbind)));
6070          goto T2148;          goto T2148;
6071  T2148:;  T2148:;
6072          V906= (*(LnkLI360))((V905),STREF(object,(VV[99]->s.s_dbind),0));          V1012= (*(LnkLI360))((V1011),STREF(object,(VV[99]->s.s_dbind),0));
6073          if(((V906))==Cnil){          if(((V1012))==Cnil){
6074          goto T2156;}          goto T2156;}
6075          base[3]= CMPcar((V906));          base[3]= CMPcar((V1012));
6076          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6077          Lsymbol_function();          Lsymbol_function();
6078          vs_top=sup;          vs_top=sup;
6079          base[2]= vs_base[0];          base[2]= vs_base[0];
6080          {object V908;          {object V1014;
6081          V908= CMPcdr((V906));          V1014= CMPcdr((V1012));
6082           vs_top=base+3;           vs_top=base+3;
6083           while(V908!=Cnil)           while(V1014!=Cnil)
6084           {vs_push((V908)->c.c_car);V908=(V908)->c.c_cdr;}           {vs_push((V1014)->c.c_car);V1014=(V1014)->c.c_cdr;}
6085          vs_base=base+3;}          vs_base=base+3;}
6086          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
6087          vs_top=sup;          vs_top=sup;
# Line 5984  T2148:; Line 6090  T2148:;
6090          goto T2156;          goto T2156;
6091  T2156:;  T2156:;
6092          base[2]= VV[157];          base[2]= VV[157];
6093          base[3]= (V905);          base[3]= (V1011);
6094          base[4]= (V903);          base[4]= (V1009);
6095          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6096          (void) (*Lnk354)();          (void) (*Lnk354)();
6097          vs_top=sup;          vs_top=sup;
# Line 5994  T2156:; Line 6100  T2156:;
6100          goto T2157;          goto T2157;
6101  T2157:;  T2157:;
6102          base[2]= (VV[111]->s.s_dbind);          base[2]= (VV[111]->s.s_dbind);
6103          base[3]= (V904);          base[3]= (V1010);
6104          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6105          Lreconc();          Lreconc();
6106          vs_top=sup;          vs_top=sup;
6107          V904= vs_base[0];          V1010= vs_base[0];
6108          bds_unwind1;}          bds_unwind1;}
6109          goto T2137;          goto T2137;
6110  T2137:;  T2137:;
# Line 6011  T2137:; Line 6117  T2137:;
6117          goto T2174;          goto T2174;
6118          goto T2176;          goto T2176;
6119  T2176:;  T2176:;
6120          if((CMPcdr((V904)))==Cnil){          if((CMPcdr((V1010)))==Cnil){
6121          goto T2179;}          goto T2179;}
6122          V909= nreverse((V904));          V1015= nreverse((V1010));
6123          base[1]= make_cons(VV[14],/* INLINE-ARGS */V909);          base[1]= make_cons(VV[14],/* INLINE-ARGS */V1015);
6124          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6125          return;          return;
6126          goto T2179;          goto T2179;
6127  T2179:;  T2179:;
6128          base[1]= CMPcar((V904));          base[1]= CMPcar((V1010));
6129          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6130          return;          return;
6131          goto T2174;          goto T2174;
# Line 6034  register object *base0; Line 6140  register object *base0;
6140  {       register object *base=vs_base;  {       register object *base=vs_base;
6141          register object *sup=base+VM102; VC102          register object *sup=base+VM102; VC102
6142          vs_check;          vs_check;
6143          {object V910;          {object V1016;
6144          object V911;          object V1017;
6145          V910=(base[0]);          V1016=(base[0]);
6146          V911=(base[1]);          V1017=(base[1]);
6147          vs_top=sup;          vs_top=sup;
6148          goto TTL;          goto TTL;
6149  TTL:;  TTL:;
6150          if(!(type_of((V911))!=t_cons)){          if(!(type_of((V1017))!=t_cons)){
6151          goto T2184;}          goto T2184;}
6152          base[2]= (V910);          base[2]= (V1016);
6153          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6154          return;          return;
6155          goto T2184;          goto T2184;
6156  T2184:;  T2184:;
6157          base[2]= (V910);          base[2]= (V1016);
6158          base[3]= CMPcar((V911));          base[3]= CMPcar((V1017));
6159          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6160          L64(base0);          L64(base0);
6161          vs_top=sup;          vs_top=sup;
6162          V912= vs_base[0];          V1018= vs_base[0];
6163          base[2]= (V910);          base[2]= (V1016);
6164          base[3]= CMPcdr((V911));          base[3]= CMPcdr((V1017));
6165          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6166          L64(base0);          L64(base0);
6167          vs_top=sup;          vs_top=sup;
6168          V913= vs_base[0];          V1019= vs_base[0];
6169          base[2]= make_cons(V912,V913);          base[2]= make_cons(V1018,V1019);
6170          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6171          return;          return;
6172          }          }
# Line 6072  register object *base0; Line 6178  register object *base0;
6178  {       register object *base=vs_base;  {       register object *base=vs_base;
6179          register object *sup=base+VM103; VC103          register object *sup=base+VM103; VC103
6180          vs_check;          vs_check;
6181          {register object V914;          {register object V1020;
6182          register object V915;          register object V1021;
6183          V914=(base[0]);          V1020=(base[0]);
6184          V915=(base[1]);          V1021=(base[1]);
6185          vs_top=sup;          vs_top=sup;
6186          goto TTL;          goto TTL;
6187  TTL:;  TTL:;
6188          if(((V914))!=Cnil){          if(((V1020))!=Cnil){
6189          goto T2193;}          goto T2193;}
6190          base[2]= Cnil;          base[2]= Cnil;
6191          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6192          return;          return;
6193          goto T2193;          goto T2193;
6194  T2193:;  T2193:;
6195          if(!(type_of((V914))!=t_cons)){          if(!(type_of((V1020))!=t_cons)){
6196          goto T2196;}{object V916;          goto T2196;}{object V1022;
6197          base[3]= (V914);          base[3]= (V1020);
6198          base[4]= STREF(object,(VV[99]->s.s_dbind),16);          base[4]= STREF(object,(VV[99]->s.s_dbind),16);
6199          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6200          Lgethash();          Lgethash();
6201          vs_top=sup;          vs_top=sup;
6202          V916= vs_base[0];          V1022= vs_base[0];
6203          if(V916==Cnil)goto T2199;          if(V1022==Cnil)goto T2199;
6204          base[2]= V916;          base[2]= V1022;
6205          goto T2198;          goto T2198;
6206          goto T2199;          goto T2199;
6207  T2199:;}{object V917;  T2199:;}{object V1023;
6208          base[3]= symbol_name((V914));          base[3]= symbol_name((V1020));
6209          base[4]= STREF(object,(VV[99]->s.s_dbind),20);          base[4]= STREF(object,(VV[99]->s.s_dbind),20);
6210          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6211          Lgethash();          Lgethash();
6212          vs_top=sup;          vs_top=sup;
6213          V917= vs_base[0];          V1023= vs_base[0];
6214          if(V917==Cnil)goto T2203;          if(V1023==Cnil)goto T2203;
6215          base[2]= V917;          base[2]= V1023;
6216          goto T2198;          goto T2198;
6217          goto T2203;          goto T2203;
6218  T2203:;}  T2203:;}
6219          base[3]= VV[144];          base[3]= VV[144];
6220          base[4]= base0[1];          base[4]= base0[1];
6221          base[5]= (V914);          base[5]= (V1020);
6222          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6223          (void) (*Lnk354)();          (void) (*Lnk354)();
6224          vs_top=sup;          vs_top=sup;
6225          base[2]= vs_base[0];          base[2]= vs_base[0];
6226          goto T2198;          goto T2198;
6227  T2198:;  T2198:;
6228          base[3]= (V915);          base[3]= (V1021);
6229          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6230          L64(base0);          L64(base0);
6231          return;          return;
6232          goto T2196;          goto T2196;
6233  T2196:;  T2196:;
6234          if(!(type_of((V915))!=t_cons)){          if(!(type_of((V1021))!=t_cons)){
6235          goto T2212;}          goto T2212;}
6236          base[2]= VV[145];          base[2]= VV[145];
6237          base[3]= base0[1];          base[3]= base0[1];
# Line 6135  T2196:; Line 6241  T2196:;
6241          return;          return;
6242          goto T2212;          goto T2212;
6243  T2212:;  T2212:;
6244          base[2]= CMPcar((V914));          base[2]= CMPcar((V1020));
6245          base[3]= CMPcar((V915));          base[3]= CMPcar((V1021));
6246          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6247          L63(base0);          L63(base0);
6248          vs_top=sup;          vs_top=sup;
6249          V918= vs_base[0];          V1024= vs_base[0];
6250          base[2]= CMPcdr((V914));          base[2]= CMPcdr((V1020));
6251          base[3]= CMPcdr((V915));          base[3]= CMPcdr((V1021));
6252          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6253          L63(base0);          L63(base0);
6254          vs_top=sup;          vs_top=sup;
6255          V919= vs_base[0];          V1025= vs_base[0];
6256          base[2]= make_cons(V918,V919);          base[2]= make_cons(V1024,V1025);
6257          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6258          return;          return;
6259          }          }
# Line 6159  register object *base0; Line 6265  register object *base0;
6265  {       register object *base=vs_base;  {       register object *base=vs_base;
6266          register object *sup=base+VM104; VC104          register object *sup=base+VM104; VC104
6267          vs_check;          vs_check;
6268          {object V920;          {object V1026;
6269          V920=(base[0]);          V1026=(base[0]);
6270          vs_top=sup;          vs_top=sup;
6271          goto TTL;          goto TTL;
6272  TTL:;  TTL:;
6273          {long V921;          {long V1027;
6274          V921= 0;          V1027= 0;
6275          {register object V922;          {register object V1028;
6276          object V923;          object V1029;
6277          V922= (V920);          V1028= (V1026);
6278          V923= CMPcar((V922));          V1029= CMPcar((V1028));
6279          goto T2227;          goto T2227;
6280  T2227:;  T2227:;
6281          if(!(((V922))==Cnil)){          if(!(((V1028))==Cnil)){
6282          goto T2228;}          goto T2228;}
6283          base[2]= CMPmake_fixnum(V921);          base[2]= CMPmake_fixnum(V1027);
6284          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6285          return;          return;
6286          goto T2228;          goto T2228;
6287  T2228:;  T2228:;
6288          V924 = CMPmake_fixnum(V921);          V1030 = CMPmake_fixnum(V1027);
6289          base[2]= (V923);          base[2]= (V1029);
6290          base[3]= base0[1];          base[3]= base0[1];
6291          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6292          (void) (*Lnk349)();          (void) (*Lnk349)();
6293          vs_top=sup;          vs_top=sup;
6294          V925= vs_base[0];          V1031= vs_base[0];
6295          V921= fix(number_plus(V924,V925));          V1027= fix(number_plus(V1030,V1031));
6296          V922= CMPcdr((V922));          V1028= CMPcdr((V1028));
6297          V923= CMPcar((V922));          V1029= CMPcar((V1028));
6298          goto T2227;}}          goto T2227;}}
6299          }          }
6300  }  }
# Line 6202  register object *base0; Line 6308  register object *base0;
6308          vs_top=sup;          vs_top=sup;
6309          goto TTL;          goto TTL;
6310  TTL:;  TTL:;
6311          {object V926;          {object V1032;
6312          V928= nreverse(base0[7]);          V1034 = base0[2];
6313          base[0]= append(base0[2],/* INLINE-ARGS */V928);          V1035= nreverse(base0[7]);
6314            base[0]= append(V1034,/* INLINE-ARGS */V1035);
6315          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6316          L33(base0);          L33(base0);
6317          vs_top=sup;          vs_top=sup;
6318          V927= vs_base[0];          V1033= vs_base[0];
6319            V1037 = base0[4];
6320          base[1]= base0[8];          base[1]= base0[8];
6321          base[2]= VV[75];          base[2]= VV[75];
6322          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6323          Lreconc();          Lreconc();
6324          vs_top=sup;          vs_top=sup;
6325          V930= vs_base[0];          V1038= vs_base[0];
6326          base[0]= append(base0[4],V930);          base[0]= append(V1037,V1038);
6327          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6328          L33(base0);          L33(base0);
6329          vs_top=sup;          vs_top=sup;
6330          V929= vs_base[0];          V1036= vs_base[0];
6331          base[0]= base0[6];          base[0]= base0[6];
6332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6333          L33(base0);          L33(base0);
6334          vs_top=sup;          vs_top=sup;
6335          V931= vs_base[0];          V1039= vs_base[0];
6336          V932= make_cons(VV[76],V931);          V1040= make_cons(VV[76],V1039);
6337          V933= append(V929,/* INLINE-ARGS */V932);          V1041= append(V1036,/* INLINE-ARGS */V1040);
6338          V934= make_cons(VV[74],/* INLINE-ARGS */V933);          V1042= make_cons(VV[74],/* INLINE-ARGS */V1041);
6339          V935= append(V927,/* INLINE-ARGS */V934);          V1043= append(V1033,/* INLINE-ARGS */V1042);
6340          V926= make_cons(VV[73],/* INLINE-ARGS */V935);          V1032= make_cons(VV[73],/* INLINE-ARGS */V1043);
6341          if((base0[9])==Cnil){          if((base0[9])==Cnil){
6342          goto T2253;}          goto T2253;}
6343          V936= list(2,base0[9],Cnil);          V1044= list(2,base0[9],Cnil);
6344          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V936,Cnil),(V926));          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V1044,Cnil),(V1032));
6345          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6346          return;          return;
6347          goto T2253;          goto T2253;
6348  T2253:;  T2253:;
6349          base[0]= (V926);          base[0]= (V1032);
6350          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6351          return;}          return;}
6352  }  }
# Line 6249  register object *base0; Line 6357  register object *base0;
6357  {       register object *base=vs_base;  {       register object *base=vs_base;
6358          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
6359          vs_check;          vs_check;
6360          {object V937;          {object V1045;
6361          V937=(base[0]);          V1045=(base[0]);
6362          vs_top=sup;          vs_top=sup;
6363          goto TTL;          goto TTL;
6364  TTL:;  TTL:;
6365          if((CMPcdr((V937)))!=Cnil){          if((CMPcdr((V1045)))!=Cnil){
6366          goto T2256;}          goto T2256;}
6367          base[1]= CMPcar((V937));          base[1]= CMPcar((V1045));
6368          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6369          return;          return;
6370          goto T2256;          goto T2256;
6371  T2256:;  T2256:;
6372          base[1]= make_cons(VV[14],(V937));          base[1]= make_cons(VV[14],(V1045));
6373          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6374          return;          return;
6375          }          }
# Line 6273  register object *base0; Line 6381  register object *base0;
6381  {       register object *base=vs_base;  {       register object *base=vs_base;
6382          register object *sup=base+VM107; VC107          register object *sup=base+VM107; VC107
6383          vs_check;          vs_check;
6384          {object V938;          {object V1046;
6385          V938=(base[0]);          V1046=(base[0]);
6386          vs_top=sup;          vs_top=sup;
6387          goto TTL;          goto TTL;
6388  TTL:;  TTL:;
6389          {register object V939;          {register object V1047;
6390          V939= Cnil;          V1047= Cnil;
6391          {register object V940;          {register object V1048;
6392          register object V941;          register object V1049;
6393          V940= (V938);          V1048= (V1046);
6394          V941= CMPcar((V940));          V1049= CMPcar((V1048));
6395          goto T2262;          goto T2262;
6396  T2262:;  T2262:;
6397          if(!(((V940))==Cnil)){          if(!(((V1048))==Cnil)){
6398          goto T2263;}          goto T2263;}
6399          goto T2258;          goto T2258;
6400          goto T2263;          goto T2263;
6401  T2263:;  T2263:;
6402          if(((V941))==Cnil){          if(((V1049))==Cnil){
6403          goto T2267;}          goto T2267;}
6404          {register object V942;          {register object V1050;
6405          V942= (V941);          V1050= (V1049);
6406          V939= make_cons((V942),(V939));}          V1047= make_cons((V1050),(V1047));}
6407          if(!(type_of((V941))==t_cons)){          if(!(type_of((V1049))==t_cons)){
6408          goto T2267;}          goto T2267;}
6409          {register object x= CMPcar((V941)),V943= VV[72];          {register object x= CMPcar((V1049)),V1051= VV[72];
6410          while(V943!=Cnil)          while(V1051!=Cnil)
6411          if(eql(x,V943->c.c_car)){          if(eql(x,V1051->c.c_car)){
6412          goto T2276;          goto T2276;
6413          }else V943=V943->c.c_cdr;          }else V1051=V1051->c.c_cdr;
6414          goto T2267;}          goto T2267;}
6415          goto T2276;          goto T2276;
6416  T2276:;  T2276:;
6417          goto T2258;          goto T2258;
6418          goto T2267;          goto T2267;
6419  T2267:;  T2267:;
6420          V940= CMPcdr((V940));          V1048= CMPcdr((V1048));
6421          V941= CMPcar((V940));          V1049= CMPcar((V1048));
6422          goto T2262;}          goto T2262;}
6423          goto T2258;          goto T2258;
6424  T2258:;  T2258:;
6425          base[1]= nreverse((V939));          base[1]= nreverse((V1047));
6426          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6427          return;}          return;}
6428          }          }
# Line 6326  register object *base0; Line 6434  register object *base0;
6434  {       register object *base=vs_base;  {       register object *base=vs_base;
6435          register object *sup=base+VM108; VC108          register object *sup=base+VM108; VC108
6436          vs_check;          vs_check;
6437          {object V944;          {object V1052;
6438          V944=(base[0]);          V1052=(base[0]);
6439          vs_top=sup;          vs_top=sup;
6440          goto TTL;          goto TTL;
6441  TTL:;  TTL:;
6442          {register object V945;          {register object V1053;
6443          V945= (V944);          V1053= (V1052);
6444          goto T2283;          goto T2283;
6445  T2283:;  T2283:;
6446          if(type_of((V945))==t_cons){          if(type_of((V1053))==t_cons){
6447          goto T2284;}          goto T2284;}
6448          base[1]= (V945);          base[1]= (V1053);
6449          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6450          return;          return;
6451          goto T2284;          goto T2284;
6452  T2284:;  T2284:;
6453          {register object V946;          {register object V1054;
6454          V946= CMPcar((V945));          V1054= CMPcar((V1053));
6455          V945= CMPcdr((V945));          V1053= CMPcdr((V1053));
6456          base[1]= (V946);}          base[1]= (V1054);}
6457          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6458          L27(base0);          L27(base0);
6459          vs_top=sup;          vs_top=sup;
# Line 6366  register object *base0; Line 6474  register object *base0;
6474  {       register object *base=vs_base;  {       register object *base=vs_base;
6475          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
6476          vs_check;          vs_check;
6477          {register object V947;          {register object V1055;
6478          register object V948;          register object V1056;
6479          object V949;          object V1057;
6480          V947=(base[0]);          V1055=(base[0]);
6481          V948=(base[1]);          V1056=(base[1]);
6482          vs_base=vs_base+2;          vs_base=vs_base+2;
6483          if(vs_base>=vs_top){vs_top=sup;goto T2297;}          if(vs_base>=vs_top){vs_top=sup;goto T2297;}
6484          V949=(base[2]);          V1057=(base[2]);
6485          vs_top=sup;          vs_top=sup;
6486          goto T2298;          goto T2298;
6487          goto T2297;          goto T2297;
6488  T2297:;  T2297:;
6489          V949= Cnil;          V1057= Cnil;
6490          goto T2298;          goto T2298;
6491  T2298:;  T2298:;
6492          {register object V950;          {register object V1058;
6493          V950= (V947);          V1058= (V1055);
6494          if(!(((V950))==Cnil)){          if(!(((V1058))==Cnil)){
6495          goto T2301;}          goto T2301;}
6496          if(!(type_of((V948))==t_cons)){          if(!(type_of((V1056))==t_cons)){
6497          goto T2304;}          goto T2304;}
6498          if(!((CMPcar((V948)))==(VV[62]))){          if(!((CMPcar((V1056)))==(VV[62]))){
6499          goto T2307;}          goto T2307;}
6500          {object V951;          {object V1059;
6501          object V952= CMPcdr((V948));          object V1060= CMPcdr((V1056));
6502          if(V952==Cnil){          if(V1060==Cnil){
6503          base[4]= Cnil;          base[4]= Cnil;
6504          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6505          return;}          return;}
6506          base[3]=V951=MMcons(Cnil,Cnil);          base[3]=V1059=MMcons(Cnil,Cnil);
6507          goto T2309;          goto T2309;
6508  T2309:;  T2309:;
6509          {register object V953;          {register object V1061;
6510          V953= (V952->c.c_car);          V1061= (V1060->c.c_car);
6511          if(type_of((V953))==t_cons){          if(type_of((V1061))==t_cons){
6512          goto T2311;}          goto T2311;}
6513          (V951->c.c_cdr)= Cnil;          (V1059->c.c_cdr)= Cnil;
6514          goto T2310;          goto T2310;
6515          goto T2311;          goto T2311;
6516  T2311:;  T2311:;
6517          if(!((((CMPcar((V953)))==(VV[65])?Ct:Cnil))==Cnil)){          if(!((((CMPcar((V1061)))==(VV[65])?Ct:Cnil))==Cnil)){
6518          goto T2315;}          goto T2315;}
6519          goto T2313;          goto T2313;
6520          goto T2315;          goto T2315;
6521  T2315:;  T2315:;
6522          if(!(((type_of(CMPcadr((V953)))==t_symbol?Ct:Cnil))==Cnil)){          if(!(((type_of(CMPcadr((V1061)))==t_symbol?Ct:Cnil))==Cnil)){
6523          goto T2317;}          goto T2317;}
6524          goto T2313;          goto T2313;
6525          goto T2317;          goto T2317;
6526  T2317:;  T2317:;
6527          base[4]= (V953);          base[4]= (V1061);
6528          base[5]= base0[1];          base[5]= base0[1];
6529          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
6530          Lmacroexpand();          Lmacroexpand();
6531          vs_top=sup;          vs_top=sup;
6532          V953= vs_base[0];          V1061= vs_base[0];
6533          if(((type_of((V953))==t_symbol?Ct:Cnil))==Cnil){          V1062 = (V1061);
6534            if(((type_of(V1062)==t_symbol?Ct:Cnil))==Cnil){
6535          goto T2313;}          goto T2313;}
6536          (V951->c.c_cdr)= Cnil;          (V1059->c.c_cdr)= Cnil;
6537          goto T2310;          goto T2310;
6538          goto T2313;          goto T2313;
6539  T2313:;  T2313:;
6540          (V951->c.c_cdr)= make_cons((V953),Cnil);}          (V1059->c.c_cdr)= make_cons((V1061),Cnil);}
6541          goto T2310;          goto T2310;
6542  T2310:;  T2310:;
6543          while(MMcdr(V951)!=Cnil)V951=MMcdr(V951);          while(MMcdr(V1059)!=Cnil)V1059=MMcdr(V1059);
6544          if((V952=MMcdr(V952))==Cnil){          if((V1060=MMcdr(V1060))==Cnil){
6545          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
6546          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6547          return;}          return;}
6548          goto T2309;}          goto T2309;}
6549          goto T2307;          goto T2307;
6550  T2307:;  T2307:;
6551          base[3]= make_cons((V948),Cnil);          base[3]= make_cons((V1056),Cnil);
6552          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6553          return;          return;
6554          goto T2304;          goto T2304;
# Line 6449  T2304:; Line 6558  T2304:;
6558          return;          return;
6559          goto T2301;          goto T2301;
6560  T2301:;  T2301:;
6561          if(!(type_of((V950))==t_cons)){          if(!(type_of((V1058))==t_cons)){
6562          goto T2323;}          goto T2323;}
6563          {object V954;          {object V1063;
6564          object V955;          object V1064;
6565          object V956;          object V1065;
6566          object V957;          object V1066;
6567          V954= CMPcar((V947));          V1063= CMPcar((V1055));
6568          V955= CMPcdr((V947));          V1064= CMPcdr((V1055));
6569          base[7]= (V954);          base[7]= (V1063);
6570          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6571          L27(base0);          L27(base0);
6572          vs_top=sup;          vs_top=sup;
6573          V956= vs_base[0];          V1065= vs_base[0];
6574          base[7]= (V955);          base[7]= (V1064);
6575          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6576          L27(base0);          L27(base0);
6577          vs_top=sup;          vs_top=sup;
6578          V957= vs_base[0];          V1066= vs_base[0];
6579          if(((V956))!=Cnil){          if(((V1065))!=Cnil){
6580          goto T2331;}          goto T2331;}
6581          if(((V957))==Cnil){          if(((V1066))==Cnil){
6582          goto T2332;}          goto T2332;}
6583          goto T2331;          goto T2331;
6584  T2331:;  T2331:;
6585          if(((V957))==Cnil){          if(((V1066))==Cnil){
6586          goto T2337;}          goto T2337;}
6587          {register object V959;          {register object V1068;
6588          object V960;          object V1069;
6589          if((V949)!=Cnil){          if((V1057)!=Cnil){
6590          V959= (V949);          V1068= (V1057);
6591          goto T2339;}          goto T2339;}
6592          V959= (VV[66]->s.s_dbind);          V1068= (VV[66]->s.s_dbind);
6593          goto T2339;          goto T2339;
6594  T2339:;  T2339:;
6595          base[9]= (V954);          base[9]= (V1063);
6596          base[10]= list(2,VV[65],(V959));          base[10]= list(2,VV[65],(V1068));
6597          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
6598          L28(base0);          L28(base0);
6599          vs_top=sup;          vs_top=sup;
6600          V961= vs_base[0];          V1070= vs_base[0];
6601          V962= list(3,VV[11],(V959),list(2,VV[10],(V959)));          V1071= list(3,VV[11],(V1068),list(2,VV[10],(V1068)));
6602          base[9]= (V955);          base[9]= (V1064);
6603          base[10]= (V959);          base[10]= (V1068);
6604          base[11]= (V959);          base[11]= (V1068);
6605          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
6606          L28(base0);          L28(base0);
6607          vs_top=sup;          vs_top=sup;
6608          V963= vs_base[0];          V1072= vs_base[0];
6609          V964= make_cons(/* INLINE-ARGS */V962,V963);          V1073= make_cons(/* INLINE-ARGS */V1071,V1072);
6610          V960= append(V961,/* INLINE-ARGS */V964);          V1069= append(V1070,/* INLINE-ARGS */V1073);
6611          if((V949)==Cnil){          if((V1057)==Cnil){
6612          goto T2349;}          goto T2349;}
6613          if(((V959))==((V948))){          if(((V1068))==((V1056))){
6614          goto T2353;}          goto T2353;}
6615          V966= list(3,VV[11],(V959),(V948));          V1075= list(3,VV[11],(V1068),(V1056));
6616          V965= make_cons(/* INLINE-ARGS */V966,Cnil);          V1074= make_cons(/* INLINE-ARGS */V1075,Cnil);
6617          goto T2351;          goto T2351;
6618          goto T2353;          goto T2353;
6619  T2353:;  T2353:;
6620          V965= Cnil;          V1074= Cnil;
6621          goto T2351;          goto T2351;
6622  T2351:;  T2351:;
6623          base[9]= append(V965,(V960));          V1076 = (V1069);
6624            base[9]= append(V1074,V1076);
6625          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
6626          return;          return;
6627          goto T2349;          goto T2349;
6628  T2349:;  T2349:;
6629          V967= list(2,(V959),(V948));          V1077= list(2,(V1068),(V1056));
6630          V968= listA(3,VV[29],make_cons(/* INLINE-ARGS */V967,Cnil),(V960));          V1078= listA(3,VV[29],make_cons(/* INLINE-ARGS */V1077,Cnil),(V1069));
6631          base[9]= make_cons(/* INLINE-ARGS */V968,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V1078,Cnil);
6632          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
6633          return;}          return;}
6634          goto T2337;          goto T2337;
6635  T2337:;  T2337:;
6636          base[7]= (V954);          base[7]= (V1063);
6637          base[8]= list(2,VV[65],(V948));          base[8]= list(2,VV[65],(V1056));
6638          base[9]= (V949);          base[9]= (V1057);
6639          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
6640          L28(base0);          L28(base0);
6641          return;          return;
# Line 6536  T2332:; Line 6646  T2332:;
6646          return;}          return;}
6647          goto T2323;          goto T2323;
6648  T2323:;  T2323:;
6649          if(((V947))==((V948))){          if(((V1055))==((V1056))){
6650          goto T2359;}          goto T2359;}
6651          V969= list(3,VV[11],(V947),(V948));          V1079= list(3,VV[11],(V1055),(V1056));
6652          base[3]= make_cons(/* INLINE-ARGS */V969,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V1079,Cnil);
6653          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6654          return;          return;
6655          goto T2359;          goto T2359;
# Line 6556  register object *base0; Line 6666  register object *base0;
6666  {       register object *base=vs_base;  {       register object *base=vs_base;
6667          register object *sup=base+VM110; VC110          register object *sup=base+VM110; VC110
6668          vs_check;          vs_check;
6669          {object V970;          {object V1080;
6670          V970=(base[0]);          V1080=(base[0]);
6671          vs_top=sup;          vs_top=sup;
6672          goto TTL;          goto TTL;
6673  TTL:;  TTL:;
6674          {object V971;          {object V1081;
6675          object V972;          object V1082;
6676          V971= CMPmake_fixnum((long)length((V970)));          V1081= CMPmake_fixnum((long)length((V1080)));
6677          base[3]= VV[61];          base[3]= VV[61];
6678          if(!(number_compare((V971),small_fixnum(10))<0)){          if(!(number_compare((V1081),small_fixnum(10))<0)){
6679          goto T2366;}          goto T2366;}
6680          base[4]= small_fixnum(10);          base[4]= small_fixnum(10);
6681          goto T2364;          goto T2364;
6682          goto T2366;          goto T2366;
6683  T2366:;  T2366:;
6684          base[4]= (V971);          base[4]= (V1081);
6685          goto T2364;          goto T2364;
6686  T2364:;  T2364:;
6687          base[5]= VV[20];          base[5]= VV[20];
# Line 6579  T2364:; Line 6689  T2364:;
6689          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
6690          Lmake_hash_table();          Lmake_hash_table();
6691          vs_top=sup;          vs_top=sup;
6692          V972= vs_base[0];          V1082= vs_base[0];
6693          {register object V973;          {register object V1083;
6694          register object V974;          register object V1084;
6695          V973= (V970);          V1083= (V1080);
6696          V974= CMPcar((V973));          V1084= CMPcar((V1083));
6697          goto T2374;          goto T2374;
6698  T2374:;  T2374:;
6699          if(!(((V973))==Cnil)){          if(!(((V1083))==Cnil)){
6700          goto T2375;}          goto T2375;}
6701          goto T2370;          goto T2370;
6702          goto T2375;          goto T2375;
6703  T2375:;  T2375:;
6704          {object V975;          {object V1085;
6705          object V977;          object V1087;
6706          V975= symbol_name(CMPcar((V974)));          V1085= symbol_name(CMPcar((V1084)));
6707          V977= CMPcadr((V974));          V1087= CMPcadr((V1084));
6708          base[6]= (V975);          base[6]= (V1085);
6709          base[7]= V972;          base[7]= V1082;
6710          base[8]= (V977);          base[8]= (V1087);
6711          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
6712          siLhash_set();          siLhash_set();
6713          vs_top=sup;}          vs_top=sup;}
6714          V973= CMPcdr((V973));          V1083= CMPcdr((V1083));
6715          V974= CMPcar((V973));          V1084= CMPcar((V1083));
6716          goto T2374;}          goto T2374;}
6717          goto T2370;          goto T2370;
6718  T2370:;  T2370:;
6719          base[3]= (V972);          base[3]= (V1082);
6720          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6721          return;}          return;}
6722          }          }
# Line 6618  register object *base0; Line 6728  register object *base0;
6728  {       register object *base=vs_base;  {       register object *base=vs_base;
6729          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
6730          vs_check;          vs_check;
6731          {register object V978;          {register object V1088;
6732          register long V979;          register long V1089;
6733          V978=(base[0]);          V1088=(base[0]);
6734          V979=fix(base[1]);          V1089=fix(base[1]);
6735          vs_top=sup;          vs_top=sup;
6736          goto TTL;          goto TTL;
6737  TTL:;  TTL:;
6738          goto T2391;          goto T2391;
6739  T2391:;  T2391:;
6740          if(!((V979)<=(4))){          if(!((V1089)<=(4))){
6741          goto T2392;}switch(V979){          goto T2392;}switch(V1089){
6742          case 1:          case 1:
6743          goto T2398;          goto T2398;
6744  T2398:;  T2398:;
6745          V980= VV[10];          V1090= VV[10];
6746          goto T2396;          goto T2396;
6747          case 2:          case 2:
6748          goto T2399;          goto T2399;
6749  T2399:;  T2399:;
6750          V980= VV[15];          V1090= VV[15];
6751          goto T2396;          goto T2396;
6752          case 3:          case 3:
6753          goto T2400;          goto T2400;
6754  T2400:;  T2400:;
6755          V980= VV[16];          V1090= VV[16];
6756          goto T2396;          goto T2396;
6757          case 4:          case 4:
6758          goto T2401;          goto T2401;
6759  T2401:;  T2401:;
6760          V980= VV[17];          V1090= VV[17];
6761          goto T2396;          goto T2396;
6762          default:          default:
6763          goto T2402;          goto T2402;
6764  T2402:;  T2402:;
6765          V980= Cnil;          V1090= Cnil;
6766          goto T2396;}          goto T2396;}
6767          V980= Cnil;          V1090= Cnil;
6768          goto T2396;          goto T2396;
6769  T2396:;  T2396:;
6770          V978= list(2,V980,(V978));          V1091 = (V1088);
6771          base[2]= (V978);          V1088= list(2,V1090,V1091);
6772            base[2]= (V1088);
6773          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6774          return;          return;
6775          goto T2392;          goto T2392;
6776  T2392:;  T2392:;
6777          V978= list(2,VV[17],(V978));          V1088= list(2,VV[17],(V1088));
6778          V979= (long)(V979)-(4);          V1089= (long)(V1089)-(4);
6779          goto T2391;          goto T2391;
6780          }          }
6781  }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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