/[gcl]/gcl/pcl/pcl_dlisp.c
ViewVC logotype

Diff of /gcl/pcl/pcl_dlisp.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Thu Oct 23 15:30:15 2003 UTC
# Line 18  TTL:; Line 18  TTL:;
18          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
19          base[3]= (V1);          base[3]= (V1);
20          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
21          (void) (*Lnk154)();          (void) (*Lnk170)();
22          return;          return;
23          }          }
24  }  }
# Line 38  TTL:; Line 38  TTL:;
38          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
39          base[3]= (V2);          base[3]= (V2);
40          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
41          (void) (*Lnk154)();          (void) (*Lnk170)();
42          return;          return;
43          }          }
44  }  }
# Line 58  TTL:; Line 58  TTL:;
58          base[2]= small_fixnum(2);          base[2]= small_fixnum(2);
59          base[3]= (V3);          base[3]= (V3);
60          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
61          (void) (*Lnk154)();          (void) (*Lnk170)();
62          return;          return;
63          }          }
64  }  }
# Line 78  TTL:; Line 78  TTL:;
78          base[2]= small_fixnum(2);          base[2]= small_fixnum(2);
79          base[3]= (V4);          base[3]= (V4);
80          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
81          (void) (*Lnk154)();          (void) (*Lnk170)();
82          return;          return;
83          }          }
84  }  }
# Line 98  TTL:; Line 98  TTL:;
98          base[2]= Cnil;          base[2]= Cnil;
99          base[3]= (V5);          base[3]= (V5);
100          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
101          (void) (*Lnk155)();          (void) (*Lnk171)();
102          return;          return;
103          }          }
104  }  }
# Line 118  TTL:; Line 118  TTL:;
118          base[2]= Cnil;          base[2]= Cnil;
119          base[3]= (V6);          base[3]= (V6);
120          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
121          (void) (*Lnk155)();          (void) (*Lnk171)();
122          return;          return;
123          }          }
124  }  }
# Line 136  TTL:; Line 136  TTL:;
136          base[1]= Ct;          base[1]= Ct;
137          base[2]= Cnil;          base[2]= Cnil;
138          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
139          (void) (*Lnk155)();          (void) (*Lnk171)();
140          return;          return;
141  }  }
142  /*      function definition for EMIT-N-N-WRITERS        */  /*      function definition for EMIT-N-N-WRITERS        */
# Line 153  TTL:; Line 153  TTL:;
153          base[1]= Ct;          base[1]= Ct;
154          base[2]= Cnil;          base[2]= Cnil;
155          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
156          (void) (*Lnk155)();          (void) (*Lnk171)();
157          return;          return;
158  }  }
159  /*      function definition for EMIT-CHECKING   */  /*      function definition for EMIT-CHECKING   */
# Line 175  TTL:; Line 175  TTL:;
175          base[4]= (V7);          base[4]= (V7);
176          base[5]= (V8);          base[5]= (V8);
177          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
178          (void) (*Lnk156)();          (void) (*Lnk172)();
179          return;          return;
180          }          }
181  }  }
# Line 198  TTL:; Line 198  TTL:;
198          base[4]= (V9);          base[4]= (V9);
199          base[5]= (V10);          base[5]= (V10);
200          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
201          (void) (*Lnk156)();          (void) (*Lnk172)();
202          return;          return;
203          }          }
204  }  }
# Line 219  TTL:; Line 219  TTL:;
219          base[3]= (V11);          base[3]= (V11);
220          base[4]= Cnil;          base[4]= Cnil;
221          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
222          (void) (*Lnk156)();          (void) (*Lnk172)();
223          return;          return;
224          }          }
225  }  }
# Line 240  TTL:; Line 240  TTL:;
240          base[3]= (V12);          base[3]= (V12);
241          base[4]= Cnil;          base[4]= Cnil;
242          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
243          (void) (*Lnk156)();          (void) (*Lnk172)();
244          return;          return;
245          }          }
246  }  }
# Line 265  TTL:; Line 265  TTL:;
265          base[2]= (V13);          base[2]= (V13);
266          base[3]= (V14);          base[3]= (V14);
267          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
268          (void) (*Lnk157)();          (void) (*Lnk173)();
269          return;          return;
270          goto T41;          goto T41;
271  T41:;  T41:;
272          {object V15;          {object V15;
273          object V16;          object V16;
274          object V17;          object V17;
275          V15= (*(LnkLI158))((V13),(V14));          V15= (*(LnkLI174))((V13),(V14));
276          base[5]= VV[4];          base[5]= VV[4];
277          base[6]= (V15);          base[6]= (V15);
278          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
279          (void) (*Lnk159)();          (void) (*Lnk175)();
280          vs_top=sup;          vs_top=sup;
281          V16= vs_base[0];          V16= vs_base[0];
282          if(((V14))==Cnil){          if(((V14))==Cnil){
# Line 292  T52:; Line 292  T52:;
292          base[6]= (V15);          base[6]= (V15);
293          base[7]= listA(4,VV[7],VV[8],(V14),append((V16),(V17)));          base[7]= listA(4,VV[7],VV[8],(V14),append((V16),(V17)));
294          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
295          (void) (*Lnk160)();          (void) (*Lnk176)();
296          return;}          return;}
297          }          }
298  }  }
# Line 318  static void L14() Line 318  static void L14()
318          base[7]= base[2];          base[7]= base[2];
319          base[8]= base[3];          base[8]= base[3];
320          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
321          (void) (*Lnk161)();          (void) (*Lnk177)();
322          vs_top=sup;          vs_top=sup;
323          base[6]= vs_base[0];          base[6]= vs_base[0];
324          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 401  T71:; Line 401  T71:;
401  T77:;  T77:;
402          base[8]= (V25);          base[8]= (V25);
403          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
404          (void) (*Lnk162)();          (void) (*Lnk178)();
405          vs_top=sup;          vs_top=sup;
406          base[7]= vs_base[0];          base[7]= vs_base[0];
407          goto T75;          goto T75;
# Line 435  TTL:; Line 435  TTL:;
435          base[4]= (V32);          base[4]= (V32);
436          base[5]= (V33);          base[5]= (V33);
437          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
438          (void) (*Lnk163)();          (void) (*Lnk179)();
439          return;          return;
440          goto T81;          goto T81;
441  T81:;  T81:;
# Line 445  T81:; Line 445  T81:;
445          object V37;          object V37;
446          object V38;          object V38;
447          object V39;          object V39;
448          V37= (*(LnkLI164))(VV[17]);          V37= (*(LnkLI180))(VV[17]);
449          V38= (((V31))==(VV[0])?Ct:Cnil);          V38= (((V31))==(VV[0])?Ct:Cnil);
450          V39= (*(LnkLI165))((V33),VV[18],VV[19]);          V39= (*(LnkLI181))((V33),VV[18],VV[19]);
451          V34= Cnil;          V34= Cnil;
452          V35= Cnil;          V35= Cnil;
453          V36= Cnil;          V36= Cnil;
454          {object V40= (V31);          {object V41= V31;
455          if((V40!= VV[0]))goto T93;          if((V41!= VV[0]))goto T93;
456          V34= (*(LnkLI166))(small_fixnum(0));          V34= (*(LnkLI182))(small_fixnum(0));
457          V35= make_cons((V34),Cnil);          V35= make_cons((V34),Cnil);
458          goto T92;          goto T92;
459          goto T93;          goto T93;
460  T93:;  T93:;
461          if((V40!= VV[1]))goto T97;          if((V41!= VV[1]))goto T97;
462          V34= (*(LnkLI166))(small_fixnum(1));          V34= (*(LnkLI182))(small_fixnum(1));
463          V41= (*(LnkLI166))(small_fixnum(0));          V42= (*(LnkLI182))(small_fixnum(0));
464          V42 = (V34);          V35= list(2,/* INLINE-ARGS */V42,(V34));
         V35= list(2,/* INLINE-ARGS */V41,V42);  
465          goto T92;          goto T92;
466          goto T97;          goto T97;
467  T97:;  T97:;
468          FEerror("The ECASE key value ~s is illegal.",1,V40);          base[3]= VV[20];
469          goto T92;}          base[4]= VV[21];
470            base[5]= VV[22];
471            base[6]= VV[23];
472            base[7]= V31;
473            base[8]= VV[24];
474            base[9]= VV[25];
475            base[10]= VV[26];
476            base[11]= VV[27];
477            vs_top=(vs_base=base+3)+9;
478            (void) (*Lnk183)();
479            vs_top=sup;}
480          goto T92;          goto T92;
481  T92:;  T92:;
482          {object V43= (V32);          {object V44= V32;
483          if(!eql(V43,VV[20]))goto T102;          if(!eql(V44,VV[28]))goto T111;
484          V36= VV[21];          V36= VV[29];
485          goto T101;          goto T110;
         goto T102;  
 T102:;  
         if(!eql(V43,VV[22]))goto T104;  
         V36= VV[23];  
         goto T101;  
         goto T104;  
 T104:;  
         FEerror("The ECASE key value ~s is illegal.",1,V43);  
         goto T101;}  
         goto T101;  
 T101:;  
         base[3]= (V36);  
         base[4]= (V35);  
         if(((V33))!=Cnil){  
         goto T111;}  
         V44= VV[25];  
         goto T109;  
486          goto T111;          goto T111;
487  T111:;  T111:;
488          V44= Cnil;          if(!eql(V44,VV[30]))goto T113;
489          goto T109;          V36= VV[31];
490  T109:;          goto T110;
         V45= list(2,VV[28],(V34));  
         if(((V33))!=Cnil){  
         goto T115;}  
         V47= list(3,VV[29],VV[19],list(2,VV[30],(V34)));  
         V46= make_cons(/* INLINE-ARGS */V47,Cnil);  
         goto T113;  
         goto T115;  
 T115:;  
         V46= Cnil;  
491          goto T113;          goto T113;
492  T113:;  T113:;
493          V48= list(2,VV[31],(V34));          base[3]= VV[20];
494          V49= make_cons(/* INLINE-ARGS */V48,Cnil);          base[4]= VV[21];
495          V50= append(V46,/* INLINE-ARGS */V49);          base[5]= VV[22];
496          V51= make_cons(/* INLINE-ARGS */V45,/* INLINE-ARGS */V50);          base[6]= VV[23];
497          V52= list(2,VV[32],(V34));          base[7]= V32;
498            base[8]= VV[24];
499            base[9]= VV[32];
500            base[10]= VV[26];
501            base[11]= VV[33];
502            vs_top=(vs_base=base+3)+9;
503            (void) (*Lnk183)();
504            vs_top=sup;}
505            goto T110;
506    T110:;
507            base[3]= (V36);
508            base[4]= (V35);
509          if(((V33))!=Cnil){          if(((V33))!=Cnil){
510          goto T119;}          goto T129;}
511          V54= list(3,VV[29],VV[19],list(2,VV[33],(V34)));          V45= VV[35];
         V53= make_cons(/* INLINE-ARGS */V54,Cnil);  
         goto T117;  
         goto T119;  
 T119:;  
         V53= Cnil;  
         goto T117;  
 T117:;  
         V55= list(2,VV[34],(V34));  
         V56= make_cons(/* INLINE-ARGS */V55,Cnil);  
         V57= append(V53,/* INLINE-ARGS */V56);  
         V58= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V51,make_cons(/* INLINE-ARGS */V52,/* INLINE-ARGS */V57)));  
         if(((V38))==Cnil){  
         goto T123;}  
         V59= VV[35];  
         goto T121;  
         goto T123;  
 T123:;  
         V59= Cnil;  
         goto T121;  
 T121:;  
         V60= make_cons(/* INLINE-ARGS */V58,V59);  
         V61= append(V44,/* INLINE-ARGS */V60);  
         V62= list(2,VV[39],list(3,VV[40],VV[26],(V37)));  
         if(!(eql(small_fixnum(2),(V32)))){  
         goto T127;}  
         V63= VV[43];  
         goto T125;  
512          goto T127;          goto T127;
 T127:;  
         V63= Cnil;  
         goto T125;  
 T125:;  
         V64= list(2,VV[41],listA(3,VV[37],VV[42],V63));  
         if(((V38))==Cnil){  
         goto T131;}  
         V66= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39)));  
         V65= make_cons(/* INLINE-ARGS */V66,Cnil);  
         goto T129;  
         goto T131;  
 T131:;  
         V65= Cnil;  
513          goto T129;          goto T129;
514  T129:;  T129:;
515          V67= listA(5,VV[37],VV[38],/* INLINE-ARGS */V62,/* INLINE-ARGS */V64,V65);          V45= Cnil;
516          V68= listA(3,VV[47],VV[11],(V35));          goto T127;
517          if(((V38))==Cnil){  T127:;
518          goto T135;}          V46= list(2,VV[38],(V34));
519          V69= VV[46];          if(((V33))!=Cnil){
520            goto T133;}
521            V48= list(3,VV[39],VV[19],list(2,VV[40],(V34)));
522            V47= make_cons(/* INLINE-ARGS */V48,Cnil);
523            goto T131;
524          goto T133;          goto T133;
525    T133:;
526            V47= Cnil;
527            goto T131;
528    T131:;
529            V49= list(2,VV[41],(V34));
530            V50= make_cons(/* INLINE-ARGS */V49,Cnil);
531            V51= append(V47,/* INLINE-ARGS */V50);
532            V52= make_cons(/* INLINE-ARGS */V46,/* INLINE-ARGS */V51);
533            V53= list(2,VV[42],(V34));
534            if(((V33))!=Cnil){
535            goto T137;}
536            V55= list(3,VV[39],VV[19],list(2,VV[43],(V34)));
537            V54= make_cons(/* INLINE-ARGS */V55,Cnil);
538            goto T135;
539            goto T137;
540    T137:;
541            V54= Cnil;
542          goto T135;          goto T135;
543  T135:;  T135:;
544          V69= list(3,VV[48],(V39),CMPcar((V35)));          V56= list(2,VV[44],(V34));
545          goto T133;          V57= make_cons(/* INLINE-ARGS */V56,Cnil);
546  T133:;          V58= append(V54,/* INLINE-ARGS */V57);
547          base[5]= list(3,VV[24],/* INLINE-ARGS */V61,list(4,VV[36],/* INLINE-ARGS */V67,/* INLINE-ARGS */V68,V69));          V59= list(2,VV[36],list(3,VV[37],/* INLINE-ARGS */V52,make_cons(/* INLINE-ARGS */V53,/* INLINE-ARGS */V58)));
548            if(((V38))==Cnil){
549            goto T141;}
550            V60= VV[45];
551            goto T139;
552            goto T141;
553    T141:;
554            V60= Cnil;
555            goto T139;
556    T139:;
557            V61= make_cons(/* INLINE-ARGS */V59,V60);
558            V62= append(V45,/* INLINE-ARGS */V61);
559            V63= list(2,VV[49],list(3,VV[50],VV[36],(V37)));
560            if(!(eql(small_fixnum(2),(V32)))){
561            goto T145;}
562            V64= VV[53];
563            goto T143;
564            goto T145;
565    T145:;
566            V64= Cnil;
567            goto T143;
568    T143:;
569            V65= list(2,VV[51],listA(3,VV[47],VV[52],V64));
570            if(((V38))==Cnil){
571            goto T149;}
572            V67= list(3,VV[54],VV[55],list(3,VV[39],VV[56],(V39)));
573            V66= make_cons(/* INLINE-ARGS */V67,Cnil);
574            goto T147;
575            goto T149;
576    T149:;
577            V66= Cnil;
578            goto T147;
579    T147:;
580            V68= listA(5,VV[47],VV[48],/* INLINE-ARGS */V63,/* INLINE-ARGS */V65,V66);
581            V69= listA(3,VV[57],VV[11],(V35));
582            if(((V38))==Cnil){
583            goto T153;}
584            V70= VV[56];
585            goto T151;
586            goto T153;
587    T153:;
588            V70= list(3,VV[58],(V39),CMPcar((V35)));
589            goto T151;
590    T151:;
591            base[5]= list(3,VV[34],/* INLINE-ARGS */V62,list(4,VV[46],/* INLINE-ARGS */V68,/* INLINE-ARGS */V69,V70));
592          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
593          (void) (*Lnk160)();          (void) (*Lnk176)();
594          return;}          return;}
595          }          }
596  }  }
597  /*      local entry for function EMIT-SLOT-READ-FORM    */  /*      local entry for function EMIT-SLOT-READ-FORM    */
598    
599  static object LI17(V73,V74,V75)  static object LI17(V74,V75,V76)
600    
601  object V73;object V74;object V75;  object V74;object V75;object V76;
602  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
603          goto TTL;          goto TTL;
604  TTL:;  TTL:;
605          if(((V73))==Cnil){          if(((V74))==Cnil){
606          goto T138;}          goto T156;}
607          {object V76 = list(2,VV[49],(V74));          {object V77 = list(2,VV[59],(V75));
         VMR17(V76)}  
         goto T138;  
 T138:;  
         {object V77 = list(3,VV[50],(V75),(V74));  
608          VMR17(V77)}          VMR17(V77)}
609            goto T156;
610    T156:;
611            {object V78 = list(3,VV[60],(V76),(V75));
612            VMR17(V78)}
613          return Cnil;          return Cnil;
614  }  }
615  /*      local entry for function EMIT-BOUNDP-CHECK      */  /*      local entry for function EMIT-BOUNDP-CHECK      */
616    
617  static object LI18(V81,V82,V83)  static object LI18(V82,V83,V84)
618    
619  object V81;object V82;object V83;  object V82;object V83;object V84;
620  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
621          goto TTL;          goto TTL;
622  TTL:;  TTL:;
623          V84= list(2,VV[46],(V81));          V85= list(2,VV[56],(V82));
624          V85= make_cons(/* INLINE-ARGS */V84,Cnil);          V86= make_cons(/* INLINE-ARGS */V85,Cnil);
625          {object V86 = list(3,VV[14],/* INLINE-ARGS */V85,list(4,VV[36],VV[51],listA(3,VV[47],(V82),(V83)),VV[46]));          {object V87 = list(3,VV[14],/* INLINE-ARGS */V86,list(4,VV[46],VV[61],listA(3,VV[57],(V83),(V84)),VV[56]));
626          VMR18(V86)}          VMR18(V87)}
627          return Cnil;          return Cnil;
628  }  }
629  /*      local entry for function EMIT-SLOT-ACCESS       */  /*      local entry for function EMIT-SLOT-ACCESS       */
630    
631  static object LI19(V93,V94,V95,V96,V97,V98)  static object LI19(V94,V95,V96,V97,V98,V99)
632    
633  object V93;object V94;object V95;object V96;object V97;object V98;  object V94;object V95;object V96;object V97;object V98;object V99;
634  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
635          goto TTL;          goto TTL;
636  TTL:;  TTL:;
637          {object V99;          {object V100;
638          V99= (*(LnkLI165))((V94),(V96),(V95));          V100= (*(LnkLI181))((V95),(V97),(V96));
639          {object V100= (V93);          {object V102= V94;
640          if((V100!= VV[0]))goto T141;          if((V102!= VV[0]))goto T159;
641          {object V101 = (*(LnkLI167))((V99),(V97),(V98));          {object V103 = (*(LnkLI184))((V100),(V98),(V99));
642          VMR19(V101)}          VMR19(V103)}
643          goto T141;          goto T159;
644  T141:;  T159:;
645          if((V100!= VV[1]))goto T142;          if((V102!= VV[1]))goto T160;
646          {object V102 = list(3,VV[48],(V99),CMPcar((V98)));          {object V104 = list(3,VV[58],(V100),CMPcar((V99)));
647          VMR19(V102)}          VMR19(V104)}
648          goto T142;          goto T160;
649  T142:;  T160:;
650          FEerror("The ECASE key value ~s is illegal.",1,V100);          base[0]= VV[20];
651          {object V103 = Cnil;          base[1]= VV[21];
652          VMR19(V103)}}}          base[2]= VV[22];
653            base[3]= VV[23];
654            base[4]= V94;
655            base[5]= VV[24];
656            base[6]= VV[62];
657            base[7]= VV[26];
658            base[8]= VV[63];
659            vs_top=(vs_base=base+0)+9;
660            (void) (*Lnk183)();
661            vs_top=sup;
662            {object V105 = vs_base[0];
663            VMR19(V105)}}}
664            base[0]=base[0];
665          return Cnil;          return Cnil;
666  }  }
667  /*      macro definition for EMIT-READERWRITER-MACRO    */  /*      macro definition for EMIT-READERWRITER-MACRO    */
# Line 642  static void L20() Line 673  static void L20()
673          bds_check;          bds_check;
674          check_arg(2);          check_arg(2);
675          vs_top=sup;          vs_top=sup;
676          {object V104=base[0]->c.c_cdr;          {object V106=base[0]->c.c_cdr;
677          if(endp(V104))invalid_macro_call();          if(endp(V106))invalid_macro_call();
678          base[2]= (V104->c.c_car);          base[2]= (V106->c.c_car);
679          V104=V104->c.c_cdr;          V106=V106->c.c_cdr;
680          if(endp(V104))invalid_macro_call();          if(endp(V106))invalid_macro_call();
681          base[3]= (V104->c.c_car);          base[3]= (V106->c.c_car);
682          V104=V104->c.c_cdr;          V106=V106->c.c_cdr;
683          if(endp(V104))invalid_macro_call();          if(endp(V106))invalid_macro_call();
684          base[4]= (V104->c.c_car);          base[4]= (V106->c.c_car);
685          V104=V104->c.c_cdr;          V106=V106->c.c_cdr;
686          if(!endp(V104))invalid_macro_call();}          if(!endp(V106))invalid_macro_call();}
687          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
688          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
689          base[8]= base[2];          base[8]= base[2];
690          base[9]= base[3];          base[9]= base[3];
691          base[10]= base[4];          base[10]= base[4];
692          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
693          (void) (*Lnk154)();          (void) (*Lnk170)();
694          vs_top=sup;          vs_top=sup;
695          base[7]= vs_base[0];          base[7]= vs_base[0];
696          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 673  static void L21() Line 704  static void L21()
704  {register object *base=vs_base;  {register object *base=vs_base;
705          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
706          vs_check;          vs_check;
707          {object V105;          {object V107;
708          register object V106;          register object V108;
709          register object V107;          register object V109;
710          check_arg(3);          check_arg(3);
711          V105=(base[0]);          V107=(base[0]);
712          V106=(base[1]);          V108=(base[1]);
713          V107=(base[2]);          V109=(base[2]);
714          vs_top=sup;          vs_top=sup;
715          goto TTL;          goto TTL;
716  TTL:;  TTL:;
717          if(((VV[2]->s.s_dbind))!=Cnil){          if(((VV[2]->s.s_dbind))!=Cnil){
718          goto T147;}          goto T174;}
719          if(((VV[3]->s.s_dbind))==Cnil){          if(((VV[3]->s.s_dbind))==Cnil){
720          goto T147;}          goto T174;}
721          base[3]= (V105);          base[3]= (V107);
722          base[4]= (V106);          base[4]= (V108);
723          base[5]= (V107);          base[5]= (V109);
724          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
725          (void) (*Lnk168)();          (void) (*Lnk185)();
726          return;          return;
         goto T147;  
 T147:;  
         {register object V108;  
         object V109;  
         {object V110= (V105);  
         if((V110!= VV[0]))goto T156;  
         V111= (*(LnkLI166))(small_fixnum(0));  
         base[3]= make_cons(/* INLINE-ARGS */V111,Cnil);  
         base[4]= VV[52];  
         vs_top=(vs_base=base+3)+2;  
         goto T155;  
         goto T156;  
 T156:;  
         if((V110!= VV[1]))goto T159;  
         V112= (*(LnkLI166))(small_fixnum(0));  
         base[3]= list(2,/* INLINE-ARGS */V112,(*(LnkLI166))(small_fixnum(1)));  
         base[4]= VV[53];  
         vs_top=(vs_base=base+3)+2;  
         goto T155;  
         goto T159;  
 T159:;  
         FEerror("The ECASE key value ~s is illegal.",1,V110);  
         base[3]= Cnil;  
         vs_top=(vs_base=base+3)+1;  
         goto T155;}  
         goto T155;  
 T155:;  
         if(vs_base>=vs_top){vs_top=sup;goto T162;}  
         V108= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T163;}  
         V109= vs_base[0];  
         vs_top=sup;  
         goto T164;  
         goto T162;  
 T162:;  
         V108= Cnil;  
         goto T163;  
 T163:;  
         V109= Cnil;  
         goto T164;  
 T164:;  
         if(((V106))!=Cnil){  
         goto T168;}  
         V113= VV[55];  
         goto T166;  
         goto T168;  
 T168:;  
         V113= Cnil;  
         goto T166;  
 T166:;  
         V114= append(V113,VV[56]);  
         base[3]= make_cons(VV[54],/* INLINE-ARGS */V114);  
         base[4]= (V108);  
         if(((V107))!=Cnil){  
         goto T174;}  
         V115= VV[57];  
         goto T172;  
727          goto T174;          goto T174;
728  T174:;  T174:;
729          V115= Cnil;          {register object V110;
730          goto T172;          object V111;
731  T172:;          {object V113= V107;
732          if(((V106))==Cnil){          if((V113!= VV[0]))goto T183;
733          goto T178;}          V114= (*(LnkLI182))(small_fixnum(0));
734          V116= VV[58];          base[3]= make_cons(/* INLINE-ARGS */V114,Cnil);
735          goto T176;          base[4]= VV[64];
736          goto T178;          vs_top=(vs_base=base+3)+2;
737  T178:;          goto T182;
738          V116= Cnil;          goto T183;
739          goto T176;  T183:;
740  T176:;          if((V113!= VV[1]))goto T186;
741          V117= append(V115,V116);          V115= (*(LnkLI182))(small_fixnum(0));
742          V118 = (V108);          base[3]= list(2,/* INLINE-ARGS */V115,(*(LnkLI182))(small_fixnum(1)));
743          V119 = (V109);          base[4]= VV[65];
744          V120= (*(LnkLI170))((V105),(V107),VV[19],VV[18],VV[11],(V108));          vs_top=(vs_base=base+3)+2;
         V121= listA(3,VV[47],VV[11],(V108));  
         if(((V106))==Cnil){  
         goto T182;}  
         V122= VV[18];  
         goto T180;  
745          goto T182;          goto T182;
 T182:;  
         V122= Cnil;  
         goto T180;  
 T180:;  
         if(((V107))!=Cnil){  
         goto T186;}  
         V123= VV[59];  
         goto T184;  
746          goto T186;          goto T186;
747  T186:;  T186:;
748            base[3]= VV[20];
749            base[4]= VV[21];
750            base[5]= VV[22];
751            base[6]= VV[23];
752            base[7]= V107;
753            base[8]= VV[24];
754            base[9]= VV[66];
755            base[10]= VV[26];
756            base[11]= VV[67];
757            vs_top=(vs_base=base+3)+9;
758            (void) (*Lnk183)();}
759            goto T182;
760    T182:;
761            if(vs_base>=vs_top){vs_top=sup;goto T198;}
762            V110= vs_base[0];
763            vs_base++;
764            if(vs_base>=vs_top){vs_top=sup;goto T199;}
765            V111= vs_base[0];
766            vs_top=sup;
767            goto T200;
768            goto T198;
769    T198:;
770            V110= Cnil;
771            goto T199;
772    T199:;
773            V111= Cnil;
774            goto T200;
775    T200:;
776            if(((V108))!=Cnil){
777            goto T204;}
778            V116= VV[69];
779            goto T202;
780            goto T204;
781    T204:;
782            V116= Cnil;
783            goto T202;
784    T202:;
785            V117= append(V116,VV[70]);
786            base[3]= make_cons(VV[68],/* INLINE-ARGS */V117);
787            base[4]= (V110);
788            if(((V109))!=Cnil){
789            goto T210;}
790            V118= VV[71];
791            goto T208;
792            goto T210;
793    T210:;
794            V118= Cnil;
795            goto T208;
796    T208:;
797            if(((V108))==Cnil){
798            goto T214;}
799            V119= VV[72];
800            goto T212;
801            goto T214;
802    T214:;
803            V119= Cnil;
804            goto T212;
805    T212:;
806            V120= append(V118,V119);
807            V121= (*(LnkLI187))((V107),(V109),VV[19],VV[18],VV[11],(V110));
808            V122= listA(3,VV[57],VV[11],(V110));
809            if(((V108))==Cnil){
810            goto T218;}
811            V123= VV[18];
812            goto T216;
813            goto T218;
814    T218:;
815          V123= Cnil;          V123= Cnil;
816          goto T184;          goto T216;
817  T184:;  T216:;
818          base[5]= list(3,VV[14],/* INLINE-ARGS */V117,(VFUN_NARGS=6,(*(LnkLI169))(V118,V119,/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,V122,V123)));          if(((V109))!=Cnil){
819            goto T222;}
820            V124= VV[73];
821            goto T220;
822            goto T222;
823    T222:;
824            V124= Cnil;
825            goto T220;
826    T220:;
827            base[5]= list(3,VV[14],/* INLINE-ARGS */V120,(VFUN_NARGS=6,(*(LnkLI186))((V110),(V111),/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,V123,V124)));
828          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
829          (void) (*Lnk160)();          (void) (*Lnk176)();
830          return;}          return;}
831          }          }
832  }  }
# Line 803  static void L22() Line 839  static void L22()
839          bds_check;          bds_check;
840          check_arg(2);          check_arg(2);
841          vs_top=sup;          vs_top=sup;
842          {object V124=base[0]->c.c_cdr;          {object V125=base[0]->c.c_cdr;
843          if(endp(V124))invalid_macro_call();          if(endp(V125))invalid_macro_call();
844          base[2]= (V124->c.c_car);          base[2]= (V125->c.c_car);
845          V124=V124->c.c_cdr;          V125=V125->c.c_cdr;
846          if(endp(V124))invalid_macro_call();          if(endp(V125))invalid_macro_call();
847          base[3]= (V124->c.c_car);          base[3]= (V125->c.c_car);
848          V124=V124->c.c_cdr;          V125=V125->c.c_cdr;
849          if(endp(V124))invalid_macro_call();          if(endp(V125))invalid_macro_call();
850          base[4]= (V124->c.c_car);          base[4]= (V125->c.c_car);
851          V124=V124->c.c_cdr;          V125=V125->c.c_cdr;
852          if(!endp(V124))invalid_macro_call();}          if(!endp(V125))invalid_macro_call();}
853          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
854          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
855          base[8]= base[2];          base[8]= base[2];
856          base[9]= base[3];          base[9]= base[3];
857          base[10]= base[4];          base[10]= base[4];
858          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
859          (void) (*Lnk155)();          (void) (*Lnk171)();
860          vs_top=sup;          vs_top=sup;
861          base[7]= vs_base[0];          base[7]= vs_base[0];
862          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 830  static void L22() Line 866  static void L22()
866  }  }
867  /*      local entry for function EMIT-MISS      */  /*      local entry for function EMIT-MISS      */
868    
869  static object LI23(object V126,object V125,object first,...)  static object LI23(object V127,object V126,object first,...)
870  {        {      
871          va_list ap;          va_list ap;
872          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
873          {object V127;          {object V128;
         object V128;  
874          object V129;          object V129;
875            object V130;
876          va_start(ap,first);          va_start(ap,first);
877          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
878          V127= V126;          V128= V127;
879          V128= V125;          V129= V126;
880          narg = narg - 2;          narg = narg - 2;
881          if (narg <= 0) goto T192;          if (narg <= 0) goto T228;
882          else {          else {
883          V129= first;}          V130= first;}
884          --narg; goto T193;          --narg; goto T229;
885          goto T192;          goto T228;
886  T192:;  T228:;
         V129= Cnil;  
         goto T193;  
 T193:;  
         {object V130;  
         if(((V129))==Cnil){  
         goto T197;}  
         V130= VV[60];  
         goto T195;  
         goto T197;  
 T197:;  
887          V130= Cnil;          V130= Cnil;
888          goto T195;          goto T229;
889  T195:;  T229:;
890            {object V131;
891          if(((V130))==Cnil){          if(((V130))==Cnil){
892          goto T200;}          goto T233;}
893          {object V131 = listA(3,VV[61],(V127),append((V128),(V130)));          V131= VV[74];
894          VMR23(V131)}          goto T231;
895          goto T200;          goto T233;
896  T200:;  T233:;
897          {object V132 = listA(3,VV[47],(V127),append((V128),(V130)));          V131= Cnil;
898          VMR23(V132)}}          goto T231;
899    T231:;
900            if(((V131))==Cnil){
901            goto T236;}
902            {object V132 = listA(3,VV[75],(V128),append((V129),(V131)));
903            VMR23(V132)}
904            goto T236;
905    T236:;
906            {object V133 = listA(3,VV[57],(V128),append((V129),(V131)));
907            VMR23(V133)}}
908          va_end(ap);          va_end(ap);
909          return Cnil;}          return Cnil;}
910          }          }
# Line 878  static void L24() Line 914  static void L24()
914  {register object *base=vs_base;  {register object *base=vs_base;
915          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
916          vs_check;          vs_check;
917          {register object V133;          {register object V134;
         object V134;  
918          object V135;          object V135;
919          register object V136;          object V136;
920            register object V137;
921          check_arg(4);          check_arg(4);
922          V133=(base[0]);          V134=(base[0]);
923          V134=(base[1]);          V135=(base[1]);
924          V135=(base[2]);          V136=(base[2]);
925          V136=(base[3]);          V137=(base[3]);
926          vs_top=sup;          vs_top=sup;
927          goto TTL;          goto TTL;
928  TTL:;  TTL:;
929          if(((VV[2]->s.s_dbind))!=Cnil){          if(((VV[2]->s.s_dbind))!=Cnil){
930          goto T202;}          goto T238;}
931          if(((VV[3]->s.s_dbind))==Cnil){          if(((VV[3]->s.s_dbind))==Cnil){
932          goto T202;}          goto T238;}
933          base[4]= (V133);          base[4]= (V134);
934          base[5]= (V134);          base[5]= (V135);
935          base[6]= (V135);          base[6]= (V136);
936          base[7]= (V136);          base[7]= (V137);
937          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
938          (void) (*Lnk171)();          (void) (*Lnk188)();
939          return;          return;
940          goto T202;          goto T238;
941  T202:;  T238:;
942          {object V137;          {object V138;
         object V138;  
943          object V139;          object V139;
944          V137= (*(LnkLI158))((V135),(V136));          object V140;
945            V138= (*(LnkLI174))((V136),(V137));
946          base[7]= VV[4];          base[7]= VV[4];
947          base[8]= (V137);          base[8]= (V138);
948          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
949          (void) (*Lnk159)();          (void) (*Lnk175)();
950          vs_top=sup;          vs_top=sup;
951          V138= vs_base[0];          V139= vs_base[0];
952          if(((V136))==Cnil){          if(((V137))==Cnil){
953          goto T217;}          goto T253;}
954          V139= VV[62];          V140= VV[76];
955          goto T215;          goto T251;
956          goto T217;          goto T253;
957  T217:;  T253:;
         V139= Cnil;  
         goto T215;  
 T215:;  
         if(((V133))!=Cnil){  
         goto T222;}  
         V140= VV[63];  
         goto T220;  
         goto T222;  
 T222:;  
958          V140= Cnil;          V140= Cnil;
959          goto T220;          goto T251;
960  T220:;  T251:;
961          V141= append(V140,VV[64]);          if(((V134))!=Cnil){
962          base[7]= make_cons(VV[54],/* INLINE-ARGS */V141);          goto T258;}
963          base[8]= (V137);          V141= VV[77];
964          if(((V133))==Cnil){          goto T256;
965          goto T228;}          goto T258;
966          V142= VV[65];  T258:;
967          goto T226;          V141= Cnil;
968          goto T228;          goto T256;
969  T228:;  T256:;
970          V142= Cnil;          V142= append(V141,VV[78]);
971          goto T226;          base[7]= make_cons(VV[68],/* INLINE-ARGS */V142);
972  T226:;          base[8]= (V138);
         V143 = (V138);  
         V144 = (V135);  
973          if(((V134))==Cnil){          if(((V134))==Cnil){
974          goto T232;}          goto T264;}
975          if(((V133))==Cnil){          V143= VV[79];
976          goto T235;}          goto T262;
977          V145= VV[8];          goto T264;
978          goto T230;  T264:;
979          goto T235;          V143= Cnil;
980  T235:;          goto T262;
981          V145= Ct;  T262:;
982          goto T230;          if(((V135))==Cnil){
983          goto T232;          goto T268;}
984  T232:;          if(((V134))==Cnil){
985          V145= listA(4,VV[7],VV[8],(V136),append((V138),(V139)));          goto T271;}
986          goto T230;          V144= VV[8];
987  T230:;          goto T266;
988          V146= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V138),(V136)));          goto T271;
989          if(((V133))==Cnil){  T271:;
990          goto T239;}          V144= Ct;
991          V147= VV[8];          goto T266;
992          goto T237;          goto T268;
993          goto T239;  T268:;
994  T239:;          V144= listA(4,VV[7],VV[8],(V137),append((V139),(V140)));
995          V147= Cnil;          goto T266;
996          goto T237;  T266:;
997  T237:;          V145= (VFUN_NARGS=3,(*(LnkLI189))(VV[11],(V139),(V137)));
998          base[9]= list(3,VV[14],V142,(VFUN_NARGS=5,(*(LnkLI169))(V143,V144,V145,/* INLINE-ARGS */V146,V147)));          if(((V134))==Cnil){
999            goto T275;}
1000            V146= VV[8];
1001            goto T273;
1002            goto T275;
1003    T275:;
1004            V146= Cnil;
1005            goto T273;
1006    T273:;
1007            base[9]= list(3,VV[14],V143,(VFUN_NARGS=5,(*(LnkLI186))((V139),(V136),V144,/* INLINE-ARGS */V145,V146)));
1008          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1009          (void) (*Lnk160)();          (void) (*Lnk176)();
1010          return;}          return;}
1011          }          }
1012  }  }
# Line 985  static void L25() Line 1019  static void L25()
1019          bds_check;          bds_check;
1020          check_arg(2);          check_arg(2);
1021          vs_top=sup;          vs_top=sup;
1022          {object V148=base[0]->c.c_cdr;          {object V147=base[0]->c.c_cdr;
1023          if(endp(V148))invalid_macro_call();          if(endp(V147))invalid_macro_call();
1024          base[2]= (V148->c.c_car);          base[2]= (V147->c.c_car);
1025          V148=V148->c.c_cdr;          V147=V147->c.c_cdr;
1026          if(endp(V148))invalid_macro_call();          if(endp(V147))invalid_macro_call();
1027          base[3]= (V148->c.c_car);          base[3]= (V147->c.c_car);
1028          V148=V148->c.c_cdr;          V147=V147->c.c_cdr;
1029          if(endp(V148))invalid_macro_call();          if(endp(V147))invalid_macro_call();
1030          base[4]= (V148->c.c_car);          base[4]= (V147->c.c_car);
1031          V148=V148->c.c_cdr;          V147=V147->c.c_cdr;
1032          if(endp(V148))invalid_macro_call();          if(endp(V147))invalid_macro_call();
1033          base[5]= (V148->c.c_car);          base[5]= (V147->c.c_car);
1034          V148=V148->c.c_cdr;          V147=V147->c.c_cdr;
1035          if(!endp(V148))invalid_macro_call();}          if(!endp(V147))invalid_macro_call();}
1036          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
1037          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
1038          base[9]= base[2];          base[9]= base[2];
# Line 1006  static void L25() Line 1040  static void L25()
1040          base[11]= base[4];          base[11]= base[4];
1041          base[12]= base[5];          base[12]= base[5];
1042          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
1043          (void) (*Lnk156)();          (void) (*Lnk172)();
1044          vs_top=sup;          vs_top=sup;
1045          base[8]= vs_base[0];          base[8]= vs_base[0];
1046          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 1016  static void L25() Line 1050  static void L25()
1050  }  }
1051  /*      local entry for function EMIT-DLAP      */  /*      local entry for function EMIT-DLAP      */
1052    
1053  static object LI26(object V153,object V152,object V151,object V150,object V149,object first,...)  static object LI26(object V152,object V151,object V150,object V149,object V148,object first,...)
1054  {        {      
1055          va_list ap;          va_list ap;
1056          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1057          {object V154;          {object V153;
1058            object V154;
1059          object V155;          object V155;
1060          object V156;          object V156;
1061          object V157;          object V157;
1062          object V158;          object V158;
         object V159;  
1063          va_start(ap,first);          va_start(ap,first);
1064          if(narg <5) too_few_arguments();          if(narg <5) too_few_arguments();
1065          V154= V153;          V153= V152;
1066          V155= V152;          V154= V151;
1067          V156= V151;          V155= V150;
1068          V157= V150;          V156= V149;
1069          V158= V149;          V157= V148;
1070          narg = narg - 5;          narg = narg - 5;
1071          if (narg <= 0) goto T246;          if (narg <= 0) goto T282;
1072          else {          else {
1073          V159= first;}          V158= first;}
1074          --narg; goto T247;          --narg; goto T283;
1075          goto T246;          goto T282;
1076  T246:;  T282:;
1077          V159= Cnil;          V158= Cnil;
1078          goto T247;          goto T283;
1079  T247:;  T283:;
1080          {long V160;          {long V159;
1081          object V161;          object V160;
1082          register object V162;          register object V161;
1083          V160= -1;          V159= -1;
1084          {object V163;          {object V162;
1085            object V163= (V153);
1086          object V164= (V154);          object V164= (V154);
1087          object V165= (V155);          if(V163==Cnil||V164==Cnil){
1088          if(V164==Cnil||V165==Cnil){          V160= Cnil;
1089          V161= Cnil;          goto T286;}
1090          goto T250;}          base[2]=V162=MMcons(Cnil,Cnil);
1091          base[2]=V163=MMcons(Cnil,Cnil);          goto T287;
1092          goto T251;  T287:;
1093  T251:;          if(((V164->c.c_car))==(Ct)){
1094          if(((V165->c.c_car))==(Ct)){          goto T290;}
1095          goto T254;}          V159= (long)(V159)+(1);
         V160= (long)(V160)+(1);  
1096          base[4]= Cnil;          base[4]= Cnil;
1097          base[5]= VV[66];          base[5]= VV[80];
1098          base[6]= CMPmake_fixnum(V160);          base[6]= CMPmake_fixnum(V159);
1099          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1100          Lformat();          Lformat();
1101          vs_top=sup;          vs_top=sup;
1102          base[3]= vs_base[0];          base[3]= vs_base[0];
1103          base[4]= (VV[67]->s.s_dbind);          base[4]= (VV[81]->s.s_dbind);
1104          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1105          Lintern();          Lintern();
1106          vs_top=sup;          vs_top=sup;
1107          V168= vs_base[0];          V167= vs_base[0];
1108          V169 = (V165->c.c_car);          {object V169;
1109          V170 = (V164->c.c_car);          V169= CMPcar((V158));
1110          {object V172;          V158= CMPcdr((V158));
1111          V172= CMPcar((V159));          V168= (V169);}
1112          V159= CMPcdr((V159));          V170= list(2,V167,(VFUN_NARGS=4,(*(LnkLI190))((V164->c.c_car),(V163->c.c_car),VV[82],V168)));
1113          V171= (V172);}          (V162->c.c_cdr)= make_cons(/* INLINE-ARGS */V170,Cnil);
1114          V173= list(2,V168,(VFUN_NARGS=4,(*(LnkLI173))(V169,V170,VV[68],V171)));          goto T288;
1115          (V163->c.c_cdr)= make_cons(/* INLINE-ARGS */V173,Cnil);          goto T290;
1116          goto T252;  T290:;
1117          goto T254;          (V162->c.c_cdr)= Cnil;
1118  T254:;          goto T288;
1119          (V163->c.c_cdr)= Cnil;  T288:;
1120          goto T252;          while(MMcdr(V162)!=Cnil)V162=MMcdr(V162);
1121  T252:;          if((V163=MMcdr(V163))==Cnil||(V164=MMcdr(V164))==Cnil){
         while(MMcdr(V163)!=Cnil)V163=MMcdr(V163);  
         if((V164=MMcdr(V164))==Cnil||(V165=MMcdr(V165))==Cnil){  
1122          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
1123            V160= base[2];
1124            goto T286;}
1125            goto T287;}
1126            goto T286;
1127    T286:;
1128            {object V171;
1129            object V172= (V160);
1130            if(V172==Cnil){
1131            V161= Cnil;
1132            goto T304;}
1133            base[2]=V171=MMcons(Cnil,Cnil);
1134            goto T305;
1135    T305:;
1136            (V171->c.c_car)= CMPcar((V172->c.c_car));
1137            if((V172=MMcdr(V172))==Cnil){
1138          V161= base[2];          V161= base[2];
1139          goto T250;}          goto T304;}
1140          goto T251;}          V171=MMcdr(V171)=MMcons(Cnil,Cnil);
1141          goto T250;          goto T305;}
1142  T250:;          goto T304;
1143          {object V174;  T304:;
1144          object V175= (V161);          if(((V161))!=Cnil){
1145          if(V175==Cnil){          goto T307;}
1146          V162= Cnil;          base[2]= VV[83];
         goto T268;}  
         base[2]=V174=MMcons(Cnil,Cnil);  
         goto T269;  
 T269:;  
         (V174->c.c_car)= CMPcar((V175->c.c_car));  
         if((V175=MMcdr(V175))==Cnil){  
         V162= base[2];  
         goto T268;}  
         V174=MMcdr(V174)=MMcons(Cnil,Cnil);  
         goto T269;}  
         goto T268;  
 T268:;  
         if(((V162))!=Cnil){  
         goto T271;}  
         base[2]= VV[69];  
1147          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1148          Lerror();          Lerror();
1149          vs_top=sup;          vs_top=sup;
1150          goto T271;          goto T307;
1151  T271:;  T307:;
1152          V176= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V161));          V173= listA(6,VV[87],VV[88],VV[89],VV[90],VV[91],(V160));
1153          if((CMPcdr((V162)))==Cnil){          if((CMPcdr((V161)))==Cnil){
1154          goto T277;}          goto T313;}
1155          V177= (*(LnkLI174))((V162),VV[68],(V158));          V174= (*(LnkLI191))((V161),VV[82],(V157));
1156          goto T275;          goto T311;
1157          goto T277;          goto T313;
1158  T277:;  T313:;
1159          if(((V158))==Cnil){          if(((V157))==Cnil){
1160          goto T280;}          goto T316;}
1161          V177= (*(LnkLI175))(CMPcar((V162)),VV[68],(V158));          V174= (*(LnkLI192))(CMPcar((V161)),VV[82],(V157));
1162          goto T275;          goto T311;
1163          goto T280;          goto T316;
1164  T280:;  T316:;
1165          V177= (*(LnkLI176))(CMPcar((V162)),VV[68]);          V174= (*(LnkLI193))(CMPcar((V161)),VV[82]);
1166          goto T275;          goto T311;
1167  T275:;  T311:;
1168          V178= list(5,VV[14],/* INLINE-ARGS */V176,VV[78],V177,list(3,VV[79],VV[71],(V156)));          V175= list(5,VV[14],/* INLINE-ARGS */V173,VV[92],V174,list(3,VV[93],VV[85],(V155)));
1169          {object V179 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V178,VV[68],list(3,VV[79],VV[71],(V157))));          {object V176 = list(3,VV[84],VV[85],list(4,VV[86],/* INLINE-ARGS */V175,VV[82],list(3,VV[93],VV[85],(V156))));
1170          VMR26(V179)}}          VMR26(V176)}}
1171          va_end(ap);          va_end(ap);
1172          base[0]=base[0];          base[0]=base[0];
1173          return Cnil;}          return Cnil;}
1174          }          }
1175  /*      local entry for function EMIT-1-NIL-DLAP        */  /*      local entry for function EMIT-1-NIL-DLAP        */
1176    
1177  static object LI27(V182,V183)  static object LI27(V179,V180)
1178    
1179  object V182;object V183;  object V179;object V180;
1180  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1181          goto TTL;          goto TTL;
1182  TTL:;  TTL:;
1183          V184= list(2,list(2,VV[80],(*(LnkLI177))((V182),(V183))),VV[81]);          V181= list(2,list(2,VV[94],(*(LnkLI194))((V179),(V180))),VV[95]);
1184          V185= list(3,VV[85],list(3,VV[44],(V182),VV[86]),VV[87]);          V182= list(3,VV[99],list(3,VV[54],(V179),VV[100]),VV[101]);
1185          V186= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V182)),VV[94]));          V183= list(3,VV[105],VV[106],list(3,VV[99],list(3,VV[54],VV[107],(V179)),VV[108]));
1186          {object V187 = list(4,VV[24],/* INLINE-ARGS */V184,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V185,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V186,list(2,VV[95],(V183))))));          {object V184 = list(4,VV[34],/* INLINE-ARGS */V181,VV[96],list(3,VV[84],VV[97],list(5,VV[98],/* INLINE-ARGS */V182,VV[102],VV[103],list(4,VV[99],VV[104],/* INLINE-ARGS */V183,list(2,VV[109],(V180))))));
1187          VMR27(V187)}          VMR27(V184)}
1188          return Cnil;          return Cnil;
1189  }  }
1190  /*      macro definition for GET-CACHE-VECTOR-LOCK-COUNT        */  /*      macro definition for GET-CACHE-VECTOR-LOCK-COUNT        */
# Line 1163  static void L28() Line 1195  static void L28()
1195          vs_check;          vs_check;
1196          check_arg(2);          check_arg(2);
1197          vs_top=sup;          vs_top=sup;
1198          {object V188=base[0]->c.c_cdr;          {object V185=base[0]->c.c_cdr;
1199          if(endp(V188))invalid_macro_call();          if(endp(V185))invalid_macro_call();
1200          base[2]= (V188->c.c_car);          base[2]= (V185->c.c_car);
1201          V188=V188->c.c_cdr;          V185=V185->c.c_cdr;
1202          if(!endp(V188))invalid_macro_call();}          if(!endp(V185))invalid_macro_call();}
1203          V189= list(2,VV[96],list(2,VV[97],base[2]));          V186= list(2,VV[110],list(2,VV[111],base[2]));
1204          base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V189,Cnil),VV[98]);          base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V186,Cnil),VV[112]);
1205          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1206          return;          return;
1207  }  }
1208  /*      local entry for function EMIT-1-T-DLAP  */  /*      local entry for function EMIT-1-T-DLAP  */
1209    
1210  static object LI29(V193,V194,V195)  static object LI29(V190,V191,V192)
1211    
1212  object V193;object V194;object V195;  object V190;object V191;object V192;
1213  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1214          goto TTL;          goto TTL;
1215  TTL:;  TTL:;
1216          V196= list(2,list(2,VV[80],(*(LnkLI177))((V193),(V194))),VV[99]);          V193= list(2,list(2,VV[94],(*(LnkLI194))((V190),(V191))),VV[113]);
1217          V197= list(3,VV[44],(V193),VV[103]);          V194= list(3,VV[54],(V190),VV[117]);
1218          V198= list(4,VV[85],/* INLINE-ARGS */V197,list(3,VV[29],(V195),VV[104]),VV[105]);          V195= list(4,VV[99],/* INLINE-ARGS */V194,list(3,VV[39],(V192),VV[118]),VV[119]);
1219          V199= list(3,VV[44],VV[110],(V193));          V196= list(3,VV[54],VV[124],(V190));
1220          V200= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V199,list(3,VV[29],(V195),VV[111]),VV[112]));          V197= list(3,VV[105],VV[123],list(4,VV[99],/* INLINE-ARGS */V196,list(3,VV[39],(V192),VV[125]),VV[126]));
1221          V201= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V198,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V200,list(2,VV[95],(V194)))));          V198= list(3,VV[84],VV[97],list(5,VV[98],/* INLINE-ARGS */V195,VV[120],VV[121],list(4,VV[99],VV[122],/* INLINE-ARGS */V197,list(2,VV[109],(V191)))));
1222          {object V202 = list(4,VV[14],/* INLINE-ARGS */V196,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V201,list(3,VV[113],VV[114],list(2,VV[95],(V194)))));          {object V199 = list(4,VV[14],/* INLINE-ARGS */V193,VV[114],list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V198,list(3,VV[127],VV[128],list(2,VV[109],(V191)))));
1223          VMR29(V202)}          VMR29(V199)}
1224          return Cnil;          return Cnil;
1225  }  }
1226  /*      local entry for function EMIT-GREATER-THAN-1-DLAP       */  /*      local entry for function EMIT-GREATER-THAN-1-DLAP       */
1227    
1228  static object LI30(V206,V207,V208)  static object LI30(V203,V204,V205)
1229    
1230  register object V206;object V207;register object V208;  register object V203;object V204;register object V205;
1231  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1232          goto TTL;          goto TTL;
1233  TTL:;  TTL:;
1234          {object V209;          {object V206;
1235          V210 = CMPmake_fixnum((long)length((V206)));          V207 = CMPmake_fixnum((long)length((V203)));
1236          if(((V208))==Cnil){          if(((V205))==Cnil){
1237          goto T285;}          goto T321;}
1238          V211= small_fixnum(1);          V208= small_fixnum(1);
1239          goto T283;          goto T319;
1240          goto T285;          goto T321;
1241  T285:;  T321:;
1242          V211= small_fixnum(0);          V208= small_fixnum(0);
1243          goto T283;          goto T319;
1244  T283:;  T319:;
1245          V212= number_plus(V210,V211);          V209= number_plus(V207,V208);
1246          V209= (*(LnkLI178))(/* INLINE-ARGS */V212);          V206= (*(LnkLI195))(/* INLINE-ARGS */V209);
1247          V213= (*(LnkLI179))((V206),(V207));          V210= (*(LnkLI196))((V203),(V204));
1248          V214= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V209))));          V211= list(3,VV[39],VV[135],list(3,VV[136],VV[137],list(3,VV[138],VV[139],(V206))));
1249          {object V216;          {object V213;
1250          object V217= (V206);          object V214= (V203);
1251          if(V217==Cnil){          if(V214==Cnil){
1252          V215= Cnil;          V212= Cnil;
1253          goto T287;}          goto T323;}
1254          base[0]=V216=MMcons(Cnil,Cnil);          base[0]=V213=MMcons(Cnil,Cnil);
1255          goto T288;          goto T324;
1256  T288:;  T324:;
1257          (V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[127]);          (V213->c.c_car)= list(3,VV[54],(V214->c.c_car),VV[141]);
1258          if((V217=MMcdr(V217))==Cnil){          if((V214=MMcdr(V214))==Cnil){
1259          V215= base[0];          V212= base[0];
1260          goto T287;}          goto T323;}
1261          V216=MMcdr(V216)=MMcons(Cnil,Cnil);          V213=MMcdr(V213)=MMcons(Cnil,Cnil);
1262          goto T288;}          goto T324;}
1263          goto T287;          goto T323;
1264  T287:;  T323:;
1265          V219= make_cons(VV[126],V215);          V216= make_cons(VV[140],V212);
1266          if(((V208))==Cnil){          if(((V205))==Cnil){
1267          goto T292;}          goto T328;}
1268          V220= list(2,VV[128],list(3,VV[29],(V208),VV[129]));          V217= list(2,VV[142],list(3,VV[39],(V205),VV[143]));
1269          goto T290;          goto T326;
1270          goto T292;          goto T328;
1271  T292:;  T328:;
1272          V220= Cnil;          V217= Cnil;
1273          goto T290;          goto T326;
1274  T290:;  T326:;
1275          V221= listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[130]));          V218= listA(3,VV[99],/* INLINE-ARGS */V216,append(V217,VV[144]));
1276          {object V223;          {object V220;
1277          object V224= (V206);          object V221= (V203);
1278          if(V224==Cnil){          if(V221==Cnil){
1279          V222= Cnil;          V219= Cnil;
1280          goto T294;}          goto T330;}
1281          base[0]=V223=MMcons(Cnil,Cnil);          base[0]=V220=MMcons(Cnil,Cnil);
1282          goto T295;          goto T331;
1283  T295:;  T331:;
1284          (V223->c.c_car)= list(3,VV[44],(V224->c.c_car),VV[136]);          (V220->c.c_car)= list(3,VV[54],(V221->c.c_car),VV[150]);
1285          if((V224=MMcdr(V224))==Cnil){          if((V221=MMcdr(V221))==Cnil){
1286          V222= base[0];          V219= base[0];
1287          goto T294;}          goto T330;}
1288          V223=MMcdr(V223)=MMcons(Cnil,Cnil);          V220=MMcdr(V220)=MMcons(Cnil,Cnil);
1289          goto T295;}          goto T331;}
1290          goto T294;          goto T330;
1291  T294:;  T330:;
1292          V226= make_cons(VV[126],V222);          V223= make_cons(VV[140],V219);
1293          if(((V208))==Cnil){          if(((V205))==Cnil){
1294          goto T299;}          goto T335;}
1295          V228= list(3,VV[29],(V208),VV[137]);          V225= list(3,VV[39],(V205),VV[151]);
1296          V227= make_cons(/* INLINE-ARGS */V228,Cnil);          V224= make_cons(/* INLINE-ARGS */V225,Cnil);
1297          goto T297;          goto T333;
1298          goto T299;          goto T335;
1299  T299:;  T335:;
1300          V227= Cnil;          V224= Cnil;
1301          goto T297;          goto T333;
1302  T297:;  T333:;
1303          V229= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V226,append(V227,VV[138]))));          V226= list(3,VV[105],VV[148],list(3,VV[14],VV[149],listA(3,VV[99],/* INLINE-ARGS */V223,append(V224,VV[152]))));
1304          V230= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V214,/* INLINE-ARGS */V221,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V229,list(2,VV[95],(V207)))));          V227= list(3,VV[84],VV[97],list(6,VV[98],/* INLINE-ARGS */V211,/* INLINE-ARGS */V218,VV[145],VV[146],list(4,VV[99],VV[147],/* INLINE-ARGS */V226,list(2,VV[109],(V204)))));
1305          {object V231 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V213,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V230,list(3,VV[113],VV[139],list(2,VV[95],(V207))))));          {object V228 = list(5,VV[14],VV[129],VV[130],/* INLINE-ARGS */V210,list(4,VV[14],VV[131],VV[132],list(5,VV[14],VV[133],VV[134],/* INLINE-ARGS */V227,list(3,VV[127],VV[153],list(2,VV[109],(V204))))));
1306          VMR30(V231)}}          VMR30(V228)}}
1307          base[0]=base[0];          base[0]=base[0];
1308          return Cnil;          return Cnil;
1309  }  }
1310  /*      local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */  /*      local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */
1311    
1312  static object LI31(V234,V235)  static object LI31(V231,V232)
1313    
1314  object V234;object V235;  object V231;object V232;
1315  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1316          goto TTL;          goto TTL;
1317  TTL:;  TTL:;
1318          V236= list(2,VV[140],list(3,VV[40],(V234),VV[141]));          V233= list(2,VV[154],list(3,VV[50],(V231),VV[155]));
1319          V237= make_cons(/* INLINE-ARGS */V236,Cnil);          V234= make_cons(/* INLINE-ARGS */V233,Cnil);
1320          V238= list(3,VV[85],VV[143],list(2,VV[95],(V235)));          V235= list(3,VV[99],VV[157],list(2,VV[109],(V232)));
1321          V239= list(3,VV[122],VV[123],VV[144]);          V236= list(3,VV[136],VV[137],VV[158]);
1322          {object V241 = list(5,VV[14],/* INLINE-ARGS */V237,VV[142],/* INLINE-ARGS */V238,V239);          {object V238 = list(5,VV[14],/* INLINE-ARGS */V234,VV[156],/* INLINE-ARGS */V235,V236);
1323          VMR31(V241)}          VMR31(V238)}
1324          return Cnil;          return Cnil;
1325  }  }
1326  /*      local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */  /*      local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */
1327    
1328  static object LI32(V244,V245)  static object LI32(V241,V242)
1329    
1330  object V244;object V245;  object V241;object V242;
1331  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1332          goto TTL;          goto TTL;
1333  TTL:;  TTL:;
1334          {register long V247;          {register long V244;
1335          long V248;          long V245;
1336          V247= 0;          V244= 0;
1337          V248= (long)length((V244));          V245= (long)length((V241));
1338          {object V249;          {object V246;
1339          object V250= (V244);          object V247= (V241);
1340          if(V250==Cnil){          if(V247==Cnil){
1341          V246= Cnil;          V243= Cnil;
1342          goto T302;}          goto T338;}
1343          base[0]=V249=MMcons(Cnil,Cnil);          base[0]=V246=MMcons(Cnil,Cnil);
1344          goto T305;          goto T341;
1345  T305:;  T341:;
1346          V252= list(2,VV[140],list(3,VV[40],(V250->c.c_car),VV[141]));          V249= list(2,VV[154],list(3,VV[50],(V247->c.c_car),VV[155]));
1347          V253= make_cons(/* INLINE-ARGS */V252,Cnil);          V250= make_cons(/* INLINE-ARGS */V249,Cnil);
1348          V254= list(3,VV[85],VV[147],list(2,VV[95],(V245)));          V251= list(3,VV[99],VV[161],list(2,VV[109],(V242)));
1349          V247= (long)(V247)+(1);          V244= (long)(V244)+(1);
1350          if(((long)(V247>=0&&(4)>0?(V247)%(4):imod(V247,4)))==0){          if(((long)({fixnum _t=(V244)%(4);((4)<0 && _t<=0) || ((4)>0 && _t>=0) ? _t : _t + (4);}))==0){
1351          goto T310;}          goto T346;}
1352          if(!((V247)==(V248))){          if(!((V244)==(V245))){
1353          goto T311;}          goto T347;}
1354          goto T310;          goto T346;
1355  T310:;  T346:;
1356          V256= list(3,VV[122],VV[123],VV[149]);          V253= list(3,VV[136],VV[137],VV[163]);
1357          V258= list(3,VV[29],VV[80],V256);          V255= list(3,VV[39],VV[94],V253);
1358          V255= make_cons(/* INLINE-ARGS */V258,Cnil);          V252= make_cons(/* INLINE-ARGS */V255,Cnil);
1359          goto T307;          goto T343;
1360          goto T311;          goto T347;
1361  T311:;  T347:;
1362          V255= Cnil;          V252= Cnil;
1363          goto T307;          goto T343;
1364  T307:;  T343:;
1365          (V249->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V253,VV[146],/* INLINE-ARGS */V254,VV[148],V255);          (V246->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V250,VV[160],/* INLINE-ARGS */V251,VV[162],V252);
1366          if((V250=MMcdr(V250))==Cnil){          if((V247=MMcdr(V247))==Cnil){
1367          V246= base[0];          V243= base[0];
1368          goto T302;}          goto T338;}
1369          V249=MMcdr(V249)=MMcons(Cnil,Cnil);          V246=MMcdr(V246)=MMcons(Cnil,Cnil);
1370          goto T305;}}          goto T341;}}
1371          goto T302;          goto T338;
1372  T302:;  T338:;
1373          {object V259 = make_cons(VV[145],V246);          {object V256 = make_cons(VV[159],V243);
1374          VMR32(V259)}          VMR32(V256)}
1375          base[0]=base[0];          base[0]=base[0];
1376          return Cnil;          return Cnil;
1377  }  }
1378  /*      local entry for function EMIT-FETCH-WRAPPER     */  /*      local entry for function EMIT-FETCH-WRAPPER     */
1379    
1380  static object LI33(object V262,object V261,object V260,object first,...)  static object LI33(object V259,object V258,object V257,object first,...)
1381  {        {      
1382          va_list ap;          va_list ap;
1383          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
1384          {object V263;          {object V260;
1385          register object V264;          register object V261;
1386          object V265;          object V262;
1387          register object V266;          register object V263;
1388          va_start(ap,first);          va_start(ap,first);
1389          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1390          V263= V262;          V260= V259;
1391          V264= V261;          V261= V258;
1392          V265= V260;          V262= V257;
1393          narg = narg - 3;          narg = narg - 3;
1394          if (narg <= 0) goto T316;          if (narg <= 0) goto T352;
1395          else {          else {
1396          V266= first;}          V263= first;}
1397          --narg; goto T317;          --narg; goto T353;
1398          goto T316;          goto T352;
1399  T316:;  T352:;
1400          V266= Cnil;          V263= Cnil;
1401          goto T317;          goto T353;
1402  T317:;  T353:;
1403          {object V267= (V263);          {object V265= V260;
1404          if((V267!= VV[180]))goto T319;          if((V265!= VV[197]))goto T355;
1405          V268= list(2,VV[28],(V264));          V266= list(2,VV[38],(V261));
1406          if(((V266))==Cnil){          if(((V263))==Cnil){
1407          goto T322;}          goto T358;}
1408          V270= list(3,VV[29],(V266),list(2,VV[30],(V264)));          V268= list(3,VV[39],(V263),list(2,VV[40],(V261)));
1409          V269= make_cons(/* INLINE-ARGS */V270,Cnil);          V267= make_cons(/* INLINE-ARGS */V268,Cnil);
1410          goto T320;          goto T356;
1411          goto T322;          goto T358;
1412  T322:;  T358:;
1413          V269= Cnil;          V267= Cnil;
1414          goto T320;          goto T356;
1415  T320:;  T356:;
1416          V271= list(2,VV[31],(V264));          V269= list(2,VV[41],(V261));
1417          V272= make_cons(/* INLINE-ARGS */V271,Cnil);          V270= make_cons(/* INLINE-ARGS */V269,Cnil);
1418          V273= append(V269,/* INLINE-ARGS */V272);          V271= append(V267,/* INLINE-ARGS */V270);
1419          V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273);          V272= make_cons(/* INLINE-ARGS */V266,/* INLINE-ARGS */V271);
1420          V275= list(2,VV[32],(V264));          V273= list(2,VV[42],(V261));
1421          if(((V266))==Cnil){          if(((V263))==Cnil){
1422          goto T326;}          goto T362;}
1423          V277= list(3,VV[29],(V266),list(2,VV[33],(V264)));          V275= list(3,VV[39],(V263),list(2,VV[43],(V261)));
1424          V276= make_cons(/* INLINE-ARGS */V277,Cnil);          V274= make_cons(/* INLINE-ARGS */V275,Cnil);
1425          goto T324;          goto T360;
1426          goto T326;          goto T362;
1427  T326:;  T362:;
1428          V276= Cnil;          V274= Cnil;
1429          goto T324;          goto T360;
1430  T324:;  T360:;
1431          V278= list(2,VV[34],(V264));          V276= list(2,VV[44],(V261));
1432          V279= make_cons(/* INLINE-ARGS */V278,Cnil);          V277= make_cons(/* INLINE-ARGS */V276,Cnil);
1433          V280= append(V276,/* INLINE-ARGS */V279);          V278= append(V274,/* INLINE-ARGS */V277);
1434          V281= make_cons(/* INLINE-ARGS */V275,/* INLINE-ARGS */V280);          V279= make_cons(/* INLINE-ARGS */V273,/* INLINE-ARGS */V278);
1435          {object V282 = list(4,VV[27],/* INLINE-ARGS */V274,/* INLINE-ARGS */V281,list(2,Ct,list(2,VV[95],(V265))));          {object V280 = list(4,VV[37],/* INLINE-ARGS */V272,/* INLINE-ARGS */V279,list(2,Ct,list(2,VV[109],(V262))));
1436          VMR33(V282)}          VMR33(V280)}
1437          goto T319;          goto T355;
1438  T319:;  T355:;
1439          if((V267!= VV[181]))goto T328;          if((V265!= VV[198]))goto T364;
1440          if(((V266))==Cnil){          if(((V263))==Cnil){
1441          goto T329;}          goto T365;}
1442          base[0]= VV[150];          base[0]= VV[164];
1443          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1444          Lerror();          Lerror();
1445          vs_top=sup;          vs_top=sup;
1446          goto T329;          goto T365;
1447  T329:;  T365:;
1448          {object V283 = list(2,VV[151],(V264));          {object V281 = list(2,VV[165],(V261));
1449          VMR33(V283)}          VMR33(V281)}
1450          goto T328;          goto T364;
1451  T328:;  T364:;
1452          if((V267!= VV[182])          if((V265!= VV[199])
1453          && (V267!= VV[183]))goto T333;          && (V265!= VV[200]))goto T369;
1454          if(((V266))==Cnil){          if(((V263))==Cnil){
1455          goto T334;}          goto T370;}
1456          base[0]= VV[152];          base[0]= VV[166];
1457          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1458          Lerror();          Lerror();
1459          vs_top=sup;          vs_top=sup;
1460          goto T334;          goto T370;
1461  T334:;  T370:;
1462          {object V284 = list(2,VV[153],(V264));          {object V282 = list(2,VV[167],(V261));
1463          VMR33(V284)}          VMR33(V282)}
1464          goto T333;          goto T369;
1465  T333:;  T369:;
1466          FEerror("The ECASE key value ~s is illegal.",1,V267);          base[0]= VV[20];
1467          {object V285 = Cnil;          base[1]= VV[21];
1468          VMR33(V285)}}          base[2]= VV[22];
1469            base[3]= VV[23];
1470            base[4]= V260;
1471            base[5]= VV[24];
1472            base[6]= VV[168];
1473            base[7]= VV[26];
1474            base[8]= VV[169];
1475            vs_top=(vs_base=base+0)+9;
1476            (void) (*Lnk183)();
1477            vs_top=sup;
1478            {object V283 = vs_base[0];
1479            VMR33(V283)}}
1480          va_end(ap);          va_end(ap);
1481          base[0]=base[0];          base[0]=base[0];
1482          return Cnil;}          return Cnil;}
1483          }          }
1484  static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,2,first,ap);va_end(ap);return V1;} /* EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,2,first,ap);va_end(ap);return V1;} /* EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */
1485  static object  LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[178],(void **)(void *)&LnkLI178,1,first,ap);va_end(ap);return V1;} /* COMPUTE-LINE-SIZE */  static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,1,first,ap);va_end(ap);return V1;} /* COMPUTE-LINE-SIZE */
1486  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,2,first,ap);va_end(ap);return V1;} /* EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */  static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,2,first,ap);va_end(ap);return V1;} /* EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION */
1487  static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,2,first,ap);va_end(ap);return V1;} /* EMIT-1-NIL-DLAP */  static object  LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[193],(void **)(void *)&LnkLI193,2,first,ap);va_end(ap);return V1;} /* EMIT-1-NIL-DLAP */
1488  static object  LnkTLI175(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[175],(void **)(void *)&LnkLI175,3,first,ap);va_end(ap);return V1;} /* EMIT-1-T-DLAP */  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,3,first,ap);va_end(ap);return V1;} /* EMIT-1-T-DLAP */
1489  static object  LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,3,first,ap);va_end(ap);return V1;} /* EMIT-GREATER-THAN-1-DLAP */  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,3,first,ap);va_end(ap);return V1;} /* EMIT-GREATER-THAN-1-DLAP */
1490  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[173],(void **)(void *)&LnkLI173,first,ap);va_end(ap);return V1;} /* EMIT-FETCH-WRAPPER */  static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[190],(void **)(void *)&LnkLI190,first,ap);va_end(ap);return V1;} /* EMIT-FETCH-WRAPPER */
1491  static object  LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[172],(void **)(void *)&LnkLI172,first,ap);va_end(ap);return V1;} /* EMIT-MISS */  static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[189],(void **)(void *)&LnkLI189,first,ap);va_end(ap);return V1;} /* EMIT-MISS */
1492  static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* EMIT-CHECKING-OR-CACHING-FUNCTION */  static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* EMIT-CHECKING-OR-CACHING-FUNCTION */
1493  static object  LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,6,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-ACCESS */  static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,6,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-ACCESS */
1494  static object  LnkTLI169(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[169],(void **)(void *)&LnkLI169,first,ap);va_end(ap);return V1;} /* EMIT-DLAP */  static object  LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[186],(void **)(void *)&LnkLI186,first,ap);va_end(ap);return V1;} /* EMIT-DLAP */
1495  static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* EMIT-ONE-OR-N-INDEX-READERWRITER-FUNCTION */  static void LnkT185(){ call_or_link(VV[185],(void **)(void *)&Lnk185);} /* EMIT-ONE-OR-N-INDEX-READERWRITER-FUNCTION */
1496  static object  LnkTLI167(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[167],(void **)(void *)&LnkLI167,3,first,ap);va_end(ap);return V1;} /* EMIT-BOUNDP-CHECK */  static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,3,first,ap);va_end(ap);return V1;} /* EMIT-BOUNDP-CHECK */
1497  static object  LnkTLI166(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[166],(void **)(void *)&LnkLI166,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */  static void LnkT183(){ call_or_link(VV[183],(void **)(void *)&Lnk183);} /* ERROR */
1498  static object  LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,3,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-READ-FORM */  static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */
1499  static object  LnkTLI164(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[164],(void **)(void *)&LnkLI164,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FIELD */  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,3,first,ap);va_end(ap);return V1;} /* EMIT-SLOT-READ-FORM */
1500  static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* EMIT-READERWRITER-FUNCTION */  static object  LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FIELD */
1501  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* COMPILE-LAMBDA */  static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* EMIT-READERWRITER-FUNCTION */
1502  static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* EMIT-DEFAULT-ONLY */  static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* COMPILE-LAMBDA */
1503  static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* GENERATING-LISP */  static void LnkT177(){ call_or_link(VV[177],(void **)(void *)&Lnk177);} /* EMIT-DEFAULT-ONLY */
1504  static void LnkT159(){ call_or_link(VV[159],(void **)(void *)&Lnk159);} /* REMOVE */  static void LnkT176(){ call_or_link(VV[176],(void **)(void *)&Lnk176);} /* GENERATING-LISP */
1505  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* MAKE-DLAP-LAMBDA-LIST */  static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* REMOVE */
1506  static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* EMIT-DEFAULT-ONLY-FUNCTION */  static object  LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,2,first,ap);va_end(ap);return V1;} /* MAKE-DLAP-LAMBDA-LIST */
1507  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* EMIT-CHECKING-OR-CACHING */  static void LnkT173(){ call_or_link(VV[173],(void **)(void *)&Lnk173);} /* EMIT-DEFAULT-ONLY-FUNCTION */
1508  static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* EMIT-ONE-OR-N-INDEX-READERWRITER */  static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* EMIT-CHECKING-OR-CACHING */
1509  static void LnkT154(){ call_or_link(VV[154],(void **)(void *)&Lnk154);} /* EMIT-READERWRITER */  static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* EMIT-ONE-OR-N-INDEX-READERWRITER */
1510    static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* EMIT-READERWRITER */
1511    
1512  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1513  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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