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

Diff of /gcl/pcl/pcl_defcombin.c

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

revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:13 2003 UTC
# Line 17  static void L1() Line 17  static void L1()
17          {object V2= CMPcaddr(base[0]);          {object V2= CMPcaddr(base[0]);
18          if(!(type_of(V2)==t_cons||(V2)==Cnil)){          if(!(type_of(V2)==t_cons||(V2)==Cnil)){
19          goto T2;}}          goto T2;}}
20          base[3]= (*(LnkLI123))(base[0]);          base[3]= (*(LnkLI139))(base[0]);
21          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
22          return;          return;
23          goto T2;          goto T2;
24  T2:;  T2:;
25          base[3]= (*(LnkLI124))(base[0]);          base[3]= (*(LnkLI140))(base[0]);
26          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
27          return;          return;
28  }  }
# Line 34  static void L2() Line 34  static void L2()
34          vs_check;          vs_check;
35          bds_check;          bds_check;
36          {object V3;          {object V3;
         register object V4;  
         register object V5;  
         register object V6;  
         object V7;  
37          check_arg(5);          check_arg(5);
38          V3=(base[0]);          V3=(base[0]);
         V4=(base[1]);  
         V5=(base[2]);  
         V6=(base[3]);  
         V7=(base[4]);  
39          vs_top=sup;          vs_top=sup;
40          goto TTL;          goto TTL;
41  TTL:;  TTL:;
42          base[5]=make_cclosure_new(LC3,Cnil,Cnil,Cdata);          base[5]=make_cclosure_new(LC6,Cnil,Cnil,Cdata);
43          base[5]=MMcons(base[5],Cnil);          base[5]=MMcons(base[5],Cnil);
44          base[6]=make_cclosure_new(LC4,Cnil,base[5],Cdata);          base[6]=make_cclosure_new(LC7,Cnil,base[5],Cdata);
45          base[6]=MMcons(base[6],base[5]);          base[6]=MMcons(base[6],base[5]);
46          base[7]= (base[5]->c.c_car);          base[7]= (base[5]->c.c_car);
47          base[8]= (base[6]->c.c_car);          base[8]= (base[6]->c.c_car);
48          bds_bind(VV[0],base[7]);          bds_bind(VV[0],base[7]);
49          bds_bind(VV[1],base[8]);          bds_bind(VV[1],base[8]);
50          if(((V4))==Cnil){          vs_base=vs_top;
51          goto T13;}          L5(base);
         base[9]= (V4);  
         base[10]= VV[2];  
         vs_top=(vs_base=base+9)+2;  
         (void) (*Lnk125)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T17;}  
         base[9]= STREF(object,(V4),0);  
         base[10]= STREF(object,(V4),4);  
         base[11]= STREF(object,(V4),8);  
         base[12]= (V5);  
         base[13]= (V6);  
         base[14]= (V7);  
         vs_top=(vs_base=base+10)+5;  
         {object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         bds_unwind1;  
         bds_unwind1;  
         return;  
         goto T17;  
 T17:;  
         {register object V9;  
         V9= (V4);  
         base[9]= (V9);  
         base[10]= VV[3];  
         vs_top=(vs_base=base+9)+2;  
         (void) (*Lnk125)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T28;}  
         {object V10;  
         object V11;  
         register object V12;  
         V10= STREF(object,(V4),0);  
         V11= list(3,(V5),(V6),(V7));  
         V12= STREF(object,(V4),4);  
         if(((V12))==Cnil){  
         goto T36;}  
         if((CMPcdr((V12)))!=Cnil){  
         goto T36;}  
         base[9]= (V11);  
         base[10]= CMPcar((V12));  
         vs_top=(vs_base=base+9)+2;  
         {object _funobj = (V10);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         bds_unwind1;  
         bds_unwind1;  
         return;  
         goto T36;  
 T36:;  
         base[9]= (V10);  
         base[10]= (V11);  
         {object V13;  
         V13= (V12);  
          vs_top=base+11;  
          while(V13!=Cnil)  
          {vs_push((V13)->c.c_car);V13=(V13)->c.c_cdr;}  
         vs_base=base+10;}  
         {object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         bds_unwind1;  
         bds_unwind1;  
         return;}  
         goto T28;  
 T28:;  
         base[9]= (V9);  
         vs_top=(vs_base=base+9)+1;  
         Lfunctionp();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T46;}  
         base[9]= (V5);  
         base[10]= (V6);  
         base[11]= (V7);  
         vs_top=(vs_base=base+9)+3;  
         {object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
         bds_unwind1;  
         bds_unwind1;  
         return;  
         goto T46;  
 T46:;  
         base[10]= VV[4];  
         base[11]= (V9);  
         base[12]= VV[5];  
         vs_top=(vs_base=base+10)+3;  
         (void) (*Lnk126)();  
         vs_top=sup;  
         base[9]= vs_base[0];  
         vs_top=(vs_base=base+9)+1;  
         Lerror();  
         bds_unwind1;  
         bds_unwind1;  
         return;}  
         goto T13;  
 T13:;  
         base[9]= VV[6];  
         vs_top=(vs_base=base+9)+1;  
         Lerror();  
52          bds_unwind1;          bds_unwind1;
53          bds_unwind1;          bds_unwind1;
54          return;          return;
# Line 171  T13:; Line 56  T13:;
56  }  }
57  /*      local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))      */  /*      local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))      */
58    
59  static object LI5(V19,V20,V21,V22,V23)  static object LI8(V10,V11,V12,V13,V14)
60    
61  object V19;object V20;object V21;object V22;object V23;  object V10;object V11;object V12;object V13;object V14;
62  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
63          goto TTL;          goto TTL;
64  TTL:;  TTL:;
65          if(((V23))==Cnil){          if(((V14))==Cnil){
66          goto T61;}          goto T12;}
67          base[0]= VV[7];          base[0]= VV[15];
68          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
69          (void) (*Lnk127)();          (void) (*Lnk141)();
70          vs_top=sup;          vs_top=sup;
71          goto T61;          goto T12;
72  T61:;  T12:;
73          {object V25 = (VV[8]->s.s_dbind);          {object V16 = (VV[16]->s.s_dbind);
74          VMR3(V25)}          VMR3(V16)}
75          base[0]=base[0];          base[0]=base[0];
76          return Cnil;          return Cnil;
77  }  }
78  /*      function definition for Defclass SHORT-METHOD-COMBINATION8916   */  /*      function definition for Defclass SHORT-METHOD-COMBINATION9981   */
79    
80  static void L6()  static void L9()
81  {register object *base=vs_base;  {register object *base=vs_base;
82          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
83          vs_check;          vs_check;
# Line 200  static void L6() Line 85  static void L6()
85          vs_top=sup;          vs_top=sup;
86          goto TTL;          goto TTL;
87  TTL:;  TTL:;
88          base[0]= VV[9];          base[0]= VV[17];
89          base[1]= VV[10];          base[1]= VV[18];
90          base[2]= VV[11];          base[2]= VV[19];
91          V26= listA(9,VV[12],VV[13],VV[14],VV[15],VV[16],Cnil,VV[17],VV[18],Cnil);          V17= listA(9,VV[5],VV[20],VV[21],VV[22],VV[23],Cnil,VV[24],VV[25],Cnil);
92          base[3]= list(2,/* INLINE-ARGS */V26,listA(9,VV[12],VV[19],VV[14],VV[20],VV[16],Cnil,VV[17],VV[21],Cnil));          base[3]= list(2,/* INLINE-ARGS */V17,listA(9,VV[5],VV[26],VV[21],VV[27],VV[23],Cnil,VV[24],VV[28],Cnil));
93          base[4]= list(2,VV[22],VV[23]);          base[4]= list(2,VV[29],VV[30]);
94          base[5]= Cnil;          base[5]= Cnil;
95          symlispcall(VV[128],base+0,6);          symlispcall(VV[142],base+0,6);
96          return;          return;
97  }  }
98  /*      local entry for function EXPAND-SHORT-DEFCOMBIN */  /*      local entry for function EXPAND-SHORT-DEFCOMBIN */
99    
100  static object LI7(V28)  static object LI10(V19)
101    
102  register object V28;  register object V19;
103  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
104          goto TTL;          goto TTL;
105  TTL:;  TTL:;
106          {object V29;          {object V20;
107          object V30;          object V21;
108          object V31;          object V22;
109          object V32;          object V23;
110          V29= CMPcadr((V28));          V20= CMPcadr((V19));
111          base[4]= CMPcddr((V28));          base[4]= CMPcddr((V19));
112          base[5]= VV[24];          base[5]= VV[31];
113          base[6]= VV[25];          base[6]= VV[32];
114          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
115          Lgetf();          Lgetf();
116          vs_top=sup;          vs_top=sup;
117          V30= vs_base[0];          V21= vs_base[0];
118          base[4]= CMPcddr((V28));          base[4]= CMPcddr((V19));
119          base[5]= VV[26];          base[5]= VV[33];
120          base[6]= Cnil;          base[6]= Cnil;
121          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
122          Lgetf();          Lgetf();
123          vs_top=sup;          vs_top=sup;
124          V31= vs_base[0];          V22= vs_base[0];
125          base[4]= CMPcddr((V28));          base[4]= CMPcddr((V19));
126          base[5]= VV[27];          base[5]= VV[34];
127          base[6]= (V29);          base[6]= (V20);
128          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
129          Lgetf();          Lgetf();
130          vs_top=sup;          vs_top=sup;
131          V32= vs_base[0];          V23= vs_base[0];
132          V33= list(2,VV[28],(V29));          V24= list(2,VV[35],(V20));
133          V34= list(2,VV[31],(V29));          V25= list(2,VV[38],(V20));
134          V35= list(2,VV[31],(V32));          V26= list(2,VV[38],(V23));
135          V36= list(2,VV[31],(V31));          V27= list(2,VV[38],(V22));
136          V37= list(5,VV[30],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,/* INLINE-ARGS */V36,list(2,VV[31],(V30)));          V28= list(5,VV[37],/* INLINE-ARGS */V25,/* INLINE-ARGS */V26,/* INLINE-ARGS */V27,list(2,VV[38],(V21)));
137          {object V38 = (*(LnkLI129))(/* INLINE-ARGS */V33,VV[29],/* INLINE-ARGS */V37);          {object V29 = (*(LnkLI143))(/* INLINE-ARGS */V24,VV[36],/* INLINE-ARGS */V28);
138          VMR5(V38)}}          VMR5(V29)}}
139          base[0]=base[0];          base[0]=base[0];
140          return Cnil;          return Cnil;
141  }  }
142  /*      function definition for LOAD-SHORT-DEFCOMBIN    */  /*      function definition for LOAD-SHORT-DEFCOMBIN    */
143    
144  static void L8()  static void L11()
145  {register object *base=vs_base;  {register object *base=vs_base;
146          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
147          vs_check;          vs_check;
148          {object V39;          {object V30;
149          check_arg(4);          check_arg(4);
150          V39=(base[0]);          V30=(base[0]);
151          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
152          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
153          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
154          vs_top=sup;          vs_top=sup;
155          {object V40;          {object V31;
156          object V41;          object V32;
157          object V42;          object V33;
158          vs_base=vs_top;          vs_base=vs_top;
159          (void) (*Lnk130)();          (void) (*Lnk144)();
160          vs_top=sup;          vs_top=sup;
161          V40= vs_base[0];          V31= vs_base[0];
162          V43= (VFUN_NARGS=1,(*(LnkLI131))(VV[32]));          V34= (VFUN_NARGS=1,(*(LnkLI145))(VV[39]));
163          V44= (*(LnkLI132))((V39));          V35= (*(LnkLI146))((V30));
164          V45 = (VV[33]->s.s_dbind);          V32= list(3,/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,(VV[40]->s.s_dbind));
165          V41= list(3,/* INLINE-ARGS */V43,/* INLINE-ARGS */V44,V45);          V36= (VV[148]->s.s_gfdef);
166          V46= (VV[134]->s.s_gfdef);          V33= (VFUN_NARGS=4,(*(LnkLI147))(V36,Cnil,(V32),Cnil));
         V47 = (V41);  
         V42= (VFUN_NARGS=4,(*(LnkLI133))(V46,Cnil,V47,Cnil));  
167          base[7]=MMcons(Cnil,base[3]);          base[7]=MMcons(Cnil,base[3]);
168          base[8]= VV[34];          base[8]= VV[41];
169          base[9]= VV[35];          base[9]= VV[42];
170          base[10]= Cnil;          base[10]= Cnil;
171          base[11]= VV[36];          base[11]= VV[43];
172          base[12]= (V41);          base[12]= (V32);
173          base[13]= VV[37];          base[13]= VV[44];
174          base[14]= VV[38];          base[14]= VV[45];
175          base[15]= VV[39];          base[15]= VV[46];
176          base[16]=          base[16]=
177          make_cclosure_new(LC23,Cnil,base[7],Cdata);          make_cclosure_new(LC28,Cnil,base[7],Cdata);
178          base[17]= VV[40];          base[17]= VV[47];
179          base[18]= list(2,list(2,VV[28],(V39)),(V40));          base[18]= list(2,list(2,VV[35],(V30)),(V31));
180          vs_top=(vs_base=base+8)+11;          vs_top=(vs_base=base+8)+11;
181          (void) (*Lnk135)(Lclptr135);          (void) (*Lnk149)(Lclptr149);
182          vs_top=sup;          vs_top=sup;
183          (base[7]->c.c_car)= vs_base[0];          (base[7]->c.c_car)= vs_base[0];
184          if(((V42))==Cnil){          if(((V33))==Cnil){
185          goto T101;}          goto T52;}
186          base[8]=(VV[136]->s.s_gfdef);          base[8]=(VV[150]->s.s_gfdef);
187          base[9]= (VV[134]->s.s_gfdef);          base[9]= (VV[148]->s.s_gfdef);
188          base[10]= (V42);          base[10]= (V33);
189          (void)simple_lispcall(base+8,2);          (void)simple_lispcall(base+8,2);
190          goto T101;          goto T52;
191  T101:;  T52:;
192          base[8]=(VV[137]->s.s_gfdef);          base[8]=(VV[151]->s.s_gfdef);
193          base[9]= (VV[134]->s.s_gfdef);          base[9]= (VV[148]->s.s_gfdef);
194          base[10]= (base[7]->c.c_car);          base[10]= (base[7]->c.c_car);
195          lispcall(base+8,2);          (void)simple_lispcall(base+8,2);
196            base[8]= (V30);
197            vs_top=(vs_base=base+8)+1;
198          return;}          return;}
199          }          }
200  }  }
201  /*      function definition for DO-SHORT-METHOD-COMBINATION     */  /*      function definition for MAKE-SHORT-METHOD-COMBINATION   */
202    
203  static void L9()  static void L12()
204  {register object *base=vs_base;  {register object *base=vs_base;
205          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
206          vs_check;          vs_check;
207          {object V48;          {object V37;
208          register object V49;          register object V38;
209          object V50;          object V39;
210          object V51;          object V40;
211          object V52;          object V41;
212          object V53;          object V42;
213          check_arg(6);          check_arg(6);
214          V48=(base[0]);          V37=(base[0]);
215          V49=(base[1]);          V38=(base[1]);
216          V50=(base[2]);          V39=(base[2]);
217          V51=(base[3]);          V40=(base[3]);
218          V52=(base[4]);          V41=(base[4]);
219          V53=(base[5]);          V42=(base[5]);
220          vs_top=sup;          vs_top=sup;
221          goto TTL;          goto TTL;
222  TTL:;  TTL:;
223          if(((V49))!=Cnil){          if(((V38))!=Cnil){
224          goto T110;}          goto T62;}
225          V49= VV[41];          V38= VV[48];
226          goto T108;          goto T60;
227          goto T110;          goto T62;
228  T110:;  T62:;
229          {object V54;          {object V43;
230          V54= (equal((V49),VV[42])?Ct:Cnil);          V43= (equal((V38),VV[49])?Ct:Cnil);
231          if(((V54))==Cnil){          if(((V43))==Cnil){
232          goto T115;}          goto T67;}
233          goto T108;          goto T60;
234          goto T115;          goto T67;
235  T115:;  T67:;
236          {object V55;          {object V44;
237          V55= (equal((V49),VV[43])?Ct:Cnil);          V44= (equal((V38),VV[50])?Ct:Cnil);
238          if(((V55))==Cnil){          if(((V44))==Cnil){
239          goto T119;}          goto T71;}
240          goto T108;          goto T60;
241          goto T119;          goto T71;
242  T119:;  T71:;
243          base[6]= VV[44];          base[6]= VV[51];
244          base[7]= (V48);          base[7]= (V37);
245          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
246          (void) (*Lnk127)();          (void) (*Lnk141)();
247          vs_top=sup;}}          vs_top=sup;}}
248          goto T108;          goto T60;
249  T108:;  T60:;
250          base[6]= VV[9];          base[6]= VV[17];
251          base[7]= VV[45];          base[7]= VV[52];
252          base[8]= (V48);          base[8]= (V37);
253          base[9]= VV[46];          base[9]= VV[53];
254          base[10]= (V49);          base[10]= (V38);
255          base[11]= VV[27];          base[11]= VV[34];
256          base[12]= (V50);          base[12]= (V39);
257          base[13]= VV[26];          base[13]= VV[33];
258          base[14]= (V51);          base[14]= (V40);
259          base[15]= VV[40];          base[15]= VV[47];
260          base[16]= (V52);          base[16]= (V41);
261          base[17]= VV[24];          base[17]= VV[31];
262          base[18]= (V53);          base[18]= (V42);
263          vs_top=(vs_base=base+6)+13;          vs_top=(vs_base=base+6)+13;
264          (void) (*Lnk135)(Lclptr135);          (void) (*Lnk149)(Lclptr149);
265          return;          return;
266          }          }
267  }  }
268  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))   */  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))   */
269    
270  static object LI10(V61,V62,V63,V64,V65)  static object LI13(V50,V51,V52,V53,V54)
271    
272  object V61;object V62;object V63;object V64;object V65;  object V50;object V51;object V52;object V53;object V54;
273  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
274          goto TTL;          goto TTL;
275  TTL:;  TTL:;
276          {object V67;          {object V56;
277          object V68;          object V57;
278          object V69;          object V58;
279          object V70;          object V59;
280          register object V71;          register object V60;
281          base[1]= (V64);          base[1]= (V53);
282          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
283          (void) (*Lnk138)(Lclptr138);          (void) (*Lnk152)(Lclptr152);
284          vs_top=sup;          vs_top=sup;
285          base[0]= vs_base[0];          base[0]= vs_base[0];
286          base[1]= (V64);          base[1]= (V53);
287          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
288          (void) (*Lnk139)(Lclptr139);          (void) (*Lnk153)(Lclptr153);
289          vs_top=sup;          vs_top=sup;
290          V67= vs_base[0];          V56= vs_base[0];
291          base[1]= (V64);          base[1]= (V53);
292          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
293          (void) (*Lnk140)(Lclptr140);          (void) (*Lnk154)(Lclptr154);
294          vs_top=sup;          vs_top=sup;
295          V68= vs_base[0];          V57= vs_base[0];
296          base[1]= (V64);          base[1]= (V53);
297          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
298          (void) (*Lnk141)(Lclptr141);          (void) (*Lnk155)(Lclptr155);
299          vs_top=sup;          vs_top=sup;
300          V72= vs_base[0];          V61= vs_base[0];
301          V69= CMPcar(V72);          V58= CMPcar(V61);
302          V70= Cnil;          V59= Cnil;
303          V71= Cnil;          V60= Cnil;
304          {register object V73;          {register object V62;
305          register object V74;          register object V63;
306          V73= (V65);          V62= (V54);
307          V74= CMPcar((V73));          V63= CMPcar((V62));
308          goto T153;          goto T103;
309  T153:;  T103:;
310          if(!(((V73))==Cnil)){          if(!(((V62))==Cnil)){
311          goto T154;}          goto T104;}
312          goto T149;          goto T99;
313          goto T154;          goto T104;
314  T154:;  T104:;
315          {register object V75;          {register object V64;
316          base[2]= (V74);          base[2]= (V63);
317          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
318          (void) (*Lnk142)(Lclptr142);          (void) (*Lnk156)(Lclptr156);
319          vs_top=sup;          vs_top=sup;
320          V75= vs_base[0];          V64= vs_base[0];
321          if(((V75))!=Cnil){          if(((V64))!=Cnil){
322          goto T162;}          goto T112;}
323          base[2]= (V74);          base[2]= (V63);
324          base[3]= VV[47];          base[3]= VV[54];
325          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
326          L11(base);          L15(base);
327          vs_top=sup;          vs_top=sup;
328          goto T158;          goto T108;
329          goto T162;          goto T112;
330  T162:;  T112:;
331          if((CMPcdr((V75)))==Cnil){          if((CMPcdr((V64)))==Cnil){
332          goto T167;}          goto T117;}
333          base[2]= (V74);          base[2]= (V63);
334          base[3]= VV[48];          base[3]= VV[55];
335          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
336          L11(base);          L15(base);
337          vs_top=sup;          vs_top=sup;
338          goto T158;          goto T108;
339          goto T167;          goto T117;
340  T167:;  T117:;
341          if(!((CMPcar((V75)))==(VV[49]))){          if(!((CMPcar((V64)))==(VV[56]))){
342          goto T172;}          goto T122;}
343          V70= make_cons(V74,(V70));          V59= make_cons(V63,(V59));
344          goto T158;          goto T108;
345          goto T172;          goto T122;
346  T172:;  T122:;
347          if(!((CMPcar((V75)))==(base[0]))){          if(!((CMPcar((V64)))==(base[0]))){
348          goto T176;}          goto T126;}
349          V71= make_cons(V74,(V71));          V60= make_cons(V63,(V60));
350          goto T158;          goto T108;
351          goto T176;          goto T126;
352  T176:;  T126:;
353          base[2]= (V74);          base[2]= (V63);
354          base[3]= VV[50];          base[3]= VV[57];
355          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
356          L11(base);          L15(base);
357          vs_top=sup;}          vs_top=sup;}
358          goto T158;          goto T108;
359  T158:;  T108:;
360          V73= CMPcdr((V73));          V62= CMPcdr((V62));
361          V74= CMPcar((V73));          V63= CMPcar((V62));
362          goto T153;}          goto T103;}
363            goto T99;
364    T99:;
365            V59= nreverse((V59));
366            if(((V58))==(VV[59])){
367            goto T138;}
368            V60= nreverse((V60));
369            goto T138;
370    T138:;
371            {object V67;
372            if((CMPcdr((V60)))!=Cnil){
373            goto T144;}
374            if(((V57))==Cnil){
375            goto T144;}
376            V67= list(3,VV[60],CMPcar((V60)),Cnil);
377            goto T142;
378            goto T144;
379    T144:;
380            {object V69;
381            object V70= (V60);
382            if(V70==Cnil){
383            V68= Cnil;
384            goto T148;}
385            base[1]=V69=MMcons(Cnil,Cnil);
386          goto T149;          goto T149;
387  T149:;  T149:;
388          V70= nreverse((V70));          (V69->c.c_car)= list(3,VV[60],(V70->c.c_car),Cnil);
389          if(((V69))==(VV[52])){          if((V70=MMcdr(V70))==Cnil){
390          goto T188;}          V68= base[1];
391          V71= nreverse((V71));          goto T148;}
392          goto T188;          V69=MMcdr(V69)=MMcons(Cnil,Cnil);
393  T188:;          goto T149;}
394          {object V78;          goto T148;
395          if((CMPcdr((V71)))!=Cnil){  T148:;
396          goto T194;}          V67= make_cons((V56),V68);
397          if(((V68))==Cnil){          goto T142;
398          goto T194;}  T142:;
399          V78= list(3,VV[53],CMPcar((V71)),Cnil);          if(((V60))!=Cnil){
400          goto T192;          goto T152;}
401          goto T194;          V72= list(2,VV[38],base[0]);
402  T194:;          {object V73 = list(4,VV[61],VV[62],/* INLINE-ARGS */V72,list(2,VV[38],(V52)));
403          V79 = (V67);          VMR8(V73)}
404          {object V81;          goto T152;
405          object V82= (V71);  T152:;
406          if(V82==Cnil){          if(((V59))!=Cnil){
407          V80= Cnil;          goto T155;}
408          goto T198;}          {object V74 = (V67);
409          base[1]=V81=MMcons(Cnil,Cnil);          VMR8(V74)}
410          goto T199;          goto T155;
411  T199:;  T155:;
412          (V81->c.c_car)= list(3,VV[53],(V82->c.c_car),Cnil);          V75= CMPcar((V59));
413          if((V82=MMcdr(V82))==Cnil){          V76= CMPcdr((V59));
414          V80= base[1];          V77= list(2,VV[63],(V67));
415          goto T198;}          V78= make_cons(/* INLINE-ARGS */V77,Cnil);
416          V81=MMcdr(V81)=MMcons(Cnil,Cnil);          {object V79 = list(3,VV[60],/* INLINE-ARGS */V75,append(/* INLINE-ARGS */V76,/* INLINE-ARGS */V78));
417          goto T199;}          VMR8(V79)}}}
         goto T198;  
 T198:;  
         V78= make_cons(V79,V80);  
         goto T192;  
 T192:;  
         if(((V71))!=Cnil){  
         goto T202;}  
         V84= list(2,VV[31],base[0]);  
         {object V85 = list(4,VV[54],VV[55],/* INLINE-ARGS */V84,list(2,VV[31],(V63)));  
         VMR8(V85)}  
         goto T202;  
 T202:;  
         if(((V70))!=Cnil){  
         goto T205;}  
         {object V86 = (V78);  
         VMR8(V86)}  
         goto T205;  
 T205:;  
         V87= CMPcar((V70));  
         V88= CMPcdr((V70));  
         V89= list(2,VV[56],(V78));  
         V90= make_cons(/* INLINE-ARGS */V89,Cnil);  
         {object V91 = list(3,VV[53],/* INLINE-ARGS */V87,append(/* INLINE-ARGS */V88,/* INLINE-ARGS */V90));  
         VMR8(V91)}}}  
418          base[0]=base[0];          base[0]=base[0];
419          return Cnil;          return Cnil;
420  }  }
 /*      function definition for Defclass LONG-METHOD-COMBINATION8939    */  
   
 static void L12()  
 {register object *base=vs_base;  
         register object *sup=base+VM9; VC9  
         vs_check;  
         check_arg(0);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         base[0]= VV[57];  
         base[1]= VV[10];  
         base[2]= VV[58];  
         V92= listA(9,VV[12],VV[59],VV[14],VV[60],VV[16],Cnil,VV[17],VV[61],Cnil);  
         base[3]= make_cons(/* INLINE-ARGS */V92,Cnil);  
         base[4]= Cnil;  
         base[5]= Cnil;  
         symlispcall(VV[128],base+0,6);  
         return;  
 }  
421  /*      local entry for function EXPAND-LONG-DEFCOMBIN  */  /*      local entry for function EXPAND-LONG-DEFCOMBIN  */
422    
423  static object LI13(V94)  static object LI16(V81)
424    
425  register object V94;  register object V81;
426  {        VMB10 VMS10 VMV10  {        VMB9 VMS9 VMV9
427          goto TTL;          goto TTL;
428  TTL:;  TTL:;
429          {object V95;          {object V82;
430          object V96;          object V83;
431          object V97;          object V84;
432          register object V98;          register object V85;
433          object V99;          object V86;
434          object V100;          object V87;
435          V95= CMPcadr((V94));          V82= CMPcadr((V81));
436          V96= CMPcaddr((V94));          V83= CMPcaddr((V81));
437          V97= CMPcadddr((V94));          V84= CMPcadddr((V81));
438          V98= CMPcddddr((V94));          V85= CMPcddddr((V81));
439          V99= Cnil;          V86= Cnil;
440          V100= Cnil;          V87= Cnil;
441          if(!(type_of(CMPcar((V98)))==t_cons)){          if(!(type_of(CMPcar((V85)))==t_cons)){
442          goto T217;}          goto T161;}
443          if(!((CMPcaar((V98)))==(VV[62]))){          if(!((CMPcaar((V85)))==(VV[64]))){
444          goto T217;}          goto T161;}
445          {object V102;          {object V89;
446          V102= CMPcar((V98));          V89= CMPcar((V85));
447          V98= CMPcdr((V98));          V85= CMPcdr((V85));
448          V101= (V102);}          V88= (V89);}
449          V99= CMPcdr(V101);          V86= CMPcdr(V88);
450          goto T217;          goto T161;
451  T217:;  T161:;
452          if(!(type_of(CMPcar((V98)))==t_cons)){          if(!(type_of(CMPcar((V85)))==t_cons)){
453          goto T227;}          goto T171;}
454          if(!((CMPcaar((V98)))==(VV[63]))){          if(!((CMPcaar((V85)))==(VV[65]))){
455          goto T227;}          goto T171;}
456          {object V104;          {object V91;
457          V104= CMPcar((V98));          V91= CMPcar((V85));
458          V98= CMPcdr((V98));          V85= CMPcdr((V85));
459          V103= (V104);}          V90= (V91);}
460          V100= CMPcadr(V103);          V87= CMPcadr(V90);
461          goto T227;          goto T171;
462  T227:;  T171:;
463          {object V105;          {object V92;
464          object V106;          object V93;
465          base[0]= (V95);          base[0]= (V82);
466          base[1]= (V96);          base[1]= (V83);
467          base[2]= (V97);          base[2]= (V84);
468          base[3]= (V99);          base[3]= (V86);
469          base[4]= (V100);          base[4]= (V87);
470          base[5]= (V98);          base[5]= (V85);
471          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
472          (void) (*Lnk143)();          (void) (*Lnk157)();
473          if(vs_base>=vs_top){vs_top=sup;goto T244;}          if(vs_base>=vs_top){vs_top=sup;goto T188;}
474          V105= vs_base[0];          V92= vs_base[0];
475          vs_base++;          vs_base++;
476          if(vs_base>=vs_top){vs_top=sup;goto T245;}          if(vs_base>=vs_top){vs_top=sup;goto T189;}
477          V106= vs_base[0];          V93= vs_base[0];
478          vs_top=sup;          vs_top=sup;
479          goto T246;          goto T190;
480          goto T244;          goto T188;
481  T244:;  T188:;
482          V105= Cnil;          V92= Cnil;
483          goto T245;          goto T189;
484  T245:;  T189:;
485          V106= Cnil;          V93= Cnil;
486          goto T246;          goto T190;
487  T246:;  T190:;
488          V107= list(2,VV[28],(V95));          V94= list(2,VV[35],(V82));
489          V108= list(2,VV[31],(V95));          V95= list(2,VV[38],(V82));
490          V109= list(2,VV[31],(V105));          V96= list(2,VV[38],(V92));
491          V110= list(4,VV[65],/* INLINE-ARGS */V108,/* INLINE-ARGS */V109,list(2,VV[59],(V106)));          V97= list(2,VV[68],(V93));
492          {object V111 = (*(LnkLI129))(/* INLINE-ARGS */V107,VV[64],/* INLINE-ARGS */V110);          V98= list(5,VV[67],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(2,VV[38],(V86)));
493          VMR10(V111)}}}          {object V99 = (*(LnkLI143))(/* INLINE-ARGS */V94,VV[66],/* INLINE-ARGS */V98);
494            VMR9(V99)}}}
495          base[0]=base[0];          base[0]=base[0];
496          return Cnil;          return Cnil;
497  }  }
498  /*      function definition for LOAD-LONG-DEFCOMBIN     */  /*      function definition for LOAD-LONG-DEFCOMBIN     */
499    
500  static void L14()  static void L17()
501  {register object *base=vs_base;  {register object *base=vs_base;
502          register object *sup=base+VM11; VC11          register object *sup=base+VM10; VC10
503          vs_check;          vs_check;
504          {object V112;          {register object V100;
505          object V113;          check_arg(4);
506          check_arg(3);          V100=(base[0]);
         V112=(base[0]);  
507          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
508          V113=(base[2]);          base[2]=MMcons(base[2],base[1]);
509            base[3]=MMcons(base[3],base[2]);
510          vs_top=sup;          vs_top=sup;
511          {object V114;          {object V101;
512          object V115;          object V102;
513          object V116;          object V103;
514          V117= (VFUN_NARGS=1,(*(LnkLI131))(VV[32]));          V104= (VFUN_NARGS=1,(*(LnkLI145))(VV[39]));
515          V118= (*(LnkLI132))((V112));          V105= (*(LnkLI146))((V100));
516          V119 = (VV[33]->s.s_dbind);          V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,(VV[40]->s.s_dbind));
517          V114= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119);          V106= (VV[148]->s.s_gfdef);
518          V120= (VV[134]->s.s_gfdef);          V102= (VFUN_NARGS=4,(*(LnkLI147))(V106,Cnil,(V101),Cnil));
519          V121 = (V114);          base[7]= VV[41];
520          V115= (VFUN_NARGS=4,(*(LnkLI133))(V120,Cnil,V121,Cnil));          base[8]= VV[42];
521          base[6]= VV[34];          base[9]= Cnil;
522          base[7]= VV[35];          base[10]= VV[43];
523          base[8]= Cnil;          base[11]= (V101);
524          base[9]= VV[36];          base[12]= VV[44];
525          base[10]= (V114);          base[13]= VV[69];
526          base[11]= VV[37];          base[14]= VV[46];
527          base[12]= VV[66];          base[15]=
528          base[13]= VV[39];          make_cclosure_new(LC29,Cnil,base[3],Cdata);
529          base[14]=          base[16]= VV[47];
530          make_cclosure_new(LC24,Cnil,base[1],Cdata);          V107= list(2,VV[35],(V100));
         base[15]= VV[40];  
         V122= list(2,VV[28],(V112));  
531          vs_base=vs_top;          vs_base=vs_top;
532          (void) (*Lnk130)();          (void) (*Lnk144)();
         vs_top=sup;  
         V123= vs_base[0];  
         base[16]= list(2,/* INLINE-ARGS */V122,V123);  
         vs_top=(vs_base=base+6)+11;  
         (void) (*Lnk135)(Lclptr135);  
533          vs_top=sup;          vs_top=sup;
534          V116= vs_base[0];          V108= vs_base[0];
535          {object V125;          base[17]= list(2,/* INLINE-ARGS */V107,V108);
536          V125= (VV[67]->s.s_dbind);          vs_top=(vs_base=base+7)+11;
537          base[6]= V112;          (void) (*Lnk149)(Lclptr149);
538          base[7]= (V125);          vs_top=sup;
539          base[8]= V113;          V103= vs_base[0];
540          vs_top=(vs_base=base+6)+3;          {object V110;
541            object V111;
542            V110= (VV[72]->s.s_dbind);
543            V111= (base[2]->c.c_car);
544            base[7]= V100;
545            base[8]= (V110);
546            base[9]= (V111);
547            vs_top=(vs_base=base+7)+3;
548          siLhash_set();          siLhash_set();
549          vs_top=sup;}          vs_top=sup;}
550          if(((V115))==Cnil){          if(((V102))==Cnil){
551          goto T268;}          goto T213;}
552          base[6]=(VV[136]->s.s_gfdef);          base[7]=(VV[150]->s.s_gfdef);
553          base[7]= (VV[134]->s.s_gfdef);          base[8]= (VV[148]->s.s_gfdef);
554          base[8]= (V115);          base[9]= (V102);
555          (void)simple_lispcall(base+6,2);          (void)simple_lispcall(base+7,2);
556          goto T268;          goto T213;
557  T268:;  T213:;
558          base[6]=(VV[137]->s.s_gfdef);          base[7]=(VV[151]->s.s_gfdef);
559          base[7]= (VV[134]->s.s_gfdef);          base[8]= (VV[148]->s.s_gfdef);
560          base[8]= (V116);          base[9]= (V103);
561          lispcall(base+6,2);          (void)simple_lispcall(base+7,2);
562            base[7]= (V100);
563            vs_top=(vs_base=base+7)+1;
564          return;}          return;}
565          }          }
566  }  }
567  /*      function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))     */  /*      function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))     */
568    
569  static void L15()  static void L18()
570  {register object *base=vs_base;  {register object *base=vs_base;
571          register object *sup=base+VM12; VC12          register object *sup=base+VM11; VC11
572          vs_check;          vs_check;
573          {object V127;          {object V112;
574          object V128;          object V113;
575          object V129;          object V114;
576          object V130;          register object V115;
577          object V131;          object V116;
578          check_arg(5);          check_arg(5);
579          V127=(base[0]);          V112=(base[0]);
580          V128=(base[1]);          V113=(base[1]);
581          V129=(base[2]);          V114=(base[2]);
582          V130=(base[3]);          V115=(base[3]);
583          V131=(base[4]);          V116=(base[4]);
584          vs_top=sup;          vs_top=sup;
585          goto TTL;          goto TTL;
586  TTL:;  TTL:;
587          base[7]= (V130);          base[7]= (V115);
588          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
589          (void) (*Lnk138)(Lclptr138);          (void) (*Lnk152)(Lclptr152);
590          vs_top=sup;          vs_top=sup;
591          base[6]= vs_base[0];          base[6]= vs_base[0];
592          base[7]= (VV[67]->s.s_dbind);          base[7]= (VV[72]->s.s_dbind);
593          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
594          Lgethash();          Lgethash();
595          vs_top=sup;          vs_top=sup;
596          base[5]= vs_base[0];          base[5]= vs_base[0];
597          base[6]= (V129);          base[6]= (V114);
598          base[7]= (V130);          base[7]= (V115);
599          base[8]= (V131);          base[8]= (V116);
600          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
601          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
602                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 740  TTL:; Line 607  TTL:;
607  }  }
608  /*      function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION   */  /*      function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION   */
609    
610  static void L16()  static void L19()
611  {register object *base=vs_base;  {register object *base=vs_base;
612          register object *sup=base+VM13; VC13          register object *sup=base+VM12; VC12
613          vs_check;          vs_check;
614          {object V133;          {object V118;
615          object V134;          object V119;
616          object V135;          object V120;
617          object V136;          object V121;
618          object V137;          object V122;
619          object V138;          object V123;
620          check_arg(6);          check_arg(6);
621          V133=(base[0]);          V118=(base[0]);
622          V134=(base[1]);          V119=(base[1]);
623          V135=(base[2]);          V120=(base[2]);
624          V136=(base[3]);          V121=(base[3]);
625          V137=(base[4]);          V122=(base[4]);
626          V138=(base[5]);          V123=(base[5]);
627          vs_top=sup;          vs_top=sup;
628          goto TTL;          goto TTL;
629  TTL:;  TTL:;
630          {object V139;          {object V124;
631          object V140;          object V125;
632          object V141;          object V126;
633          base[6]= (V138);          base[6]= (V123);
634          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
635          (void) (*Lnk144)();          (void) (*Lnk158)();
636          if(vs_base>=vs_top){vs_top=sup;goto T288;}          if(vs_base>=vs_top){vs_top=sup;goto T232;}
637          V139= vs_base[0];          V124= vs_base[0];
638          vs_base++;          vs_base++;
639          if(vs_base>=vs_top){vs_top=sup;goto T289;}          if(vs_base>=vs_top){vs_top=sup;goto T233;}
640          V140= vs_base[0];          V125= vs_base[0];
641          vs_base++;          vs_base++;
642          if(vs_base>=vs_top){vs_top=sup;goto T290;}          if(vs_base>=vs_top){vs_top=sup;goto T234;}
643          V141= vs_base[0];          V126= vs_base[0];
644          vs_top=sup;          vs_top=sup;
645          goto T291;          goto T235;
646          goto T288;          goto T232;
647  T288:;  T232:;
648          V139= Cnil;          V124= Cnil;
649          goto T289;          goto T233;
650  T289:;  T233:;
651          V140= Cnil;          V125= Cnil;
652          goto T290;          goto T234;
653  T290:;  T234:;
654          V141= Cnil;          V126= Cnil;
655          goto T291;          goto T235;
656  T291:;  T235:;
657          {register object V142;          {register object V127;
658          V142= (*(LnkLI145))((V135),(V140),(V141));          V127= (*(LnkLI159))((V120),(V125),(V126));
659          if(((V137))==Cnil){          if(((V122))==Cnil){
660          goto T293;}          goto T237;}
661          {object V143;          {object V128;
662          object V145;          object V130;
663          V143= list(2,(V137),VV[68]);          V128= list(2,(V122),VV[73]);
664          V145= make_cons((V143),CMPcadr(V142));          V130= make_cons((V128),CMPcadr(V127));
665          (CMPcdr(V142))->c.c_car = (V145);          (CMPcdr(V127))->c.c_car = (V130);
666          (void)(CMPcdr(V142));}          (void)(CMPcdr(V127));}
667          goto T293;          goto T237;
668  T293:;  T237:;
669          if(((V136))==Cnil){          if(((V121))==Cnil){
670          goto T299;}          goto T243;}
671          V142= (*(LnkLI146))((V142),(V136));          V127= (*(LnkLI160))((V127),(V121));
672          goto T299;          goto T243;
673  T299:;  T243:;
674          if(((V134))==Cnil){          if(((V119))==Cnil){
675          goto T303;}          goto T247;}
676          V142= list(3,VV[69],list(2,VV[59],list(3,VV[70],(V134),(V142))),VV[71]);          V127= list(3,VV[74],list(3,VV[75],(V119),(V127)),VV[76]);
677          goto T303;          goto T247;
678  T303:;  T247:;
679          base[6]= (V139);          base[6]= (V124);
680          base[7]= list(4,VV[70],VV[72],VV[73],list(3,VV[74],VV[75],(V142)));          base[7]= list(4,VV[75],VV[77],VV[78],list(3,VV[79],VV[80],(V127)));
681          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
682          return;}}          return;}}
683          }          }
684  }  }
685  /*      local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS   */  /*      local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS   */
686    
687  static object LI17(V149,V150,V151)  static object LI20(V134,V135,V136)
688    
689  object V149;object V150;object V151;  object V134;object V135;object V136;
690  {        VMB14 VMS14 VMV14  {        VMB13 VMS13 VMV13
691          goto TTL;          goto TTL;
692  TTL:;  TTL:;
693          {object V152;          {register object V137;
694          object V153;          register object V138;
695          object V154;          register object V139;
696          object V155;          register object V140;
697          object V156;          register object V141;
698          {object V157;          V137= Cnil;
699          register object V158;          V138= Cnil;
700          object V159;          V139= Cnil;
701          register object V160;          V140= Cnil;
702          object V161;          V141= Cnil;
703          register object V162;          {register object V142;
704          object V163;          object V143;
705          register object V164;          V142= (V134);
706          object V165;          V143= CMPcar((V142));
707          register object V166;          goto T257;
708          V157= Cnil;  T257:;
709          V158= Cnil;          if(!(((V142))==Cnil)){
710          V159= Cnil;          goto T258;}
711          V160= Cnil;          goto T253;
712          V161= Cnil;          goto T258;
713          V162= Cnil;  T258:;
714          V163= Cnil;          {register object V144;
715          V164= Cnil;          object V145;
716          V165= Cnil;          register object V146;
717          V166= Cnil;          register object V147;
718          {register object V167;          object V148;
719          object V168;          base[1]= (V143);
         V167= (V149);  
         V168= CMPcar((V167));  
         goto T324;  
 T324:;  
         if(!(((V167))==Cnil)){  
         goto T325;}  
         goto T320;  
         goto T325;  
 T325:;  
         {register object V169;  
         object V170;  
         register object V171;  
         register object V172;  
         object V173;  
         base[1]= (V168);  
720          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
721          (void) (*Lnk147)();          (void) (*Lnk161)();
722          if(vs_base>=vs_top){vs_top=sup;goto T332;}          if(vs_base>=vs_top){vs_top=sup;goto T265;}
723          V169= vs_base[0];          V144= vs_base[0];
724          vs_base++;          vs_base++;
725          if(vs_base>=vs_top){vs_top=sup;goto T333;}          if(vs_base>=vs_top){vs_top=sup;goto T266;}
726          V170= vs_base[0];          V145= vs_base[0];
727          vs_base++;          vs_base++;
728          if(vs_base>=vs_top){vs_top=sup;goto T334;}          if(vs_base>=vs_top){vs_top=sup;goto T267;}
729          V171= vs_base[0];          V146= vs_base[0];
730          vs_base++;          vs_base++;
731          if(vs_base>=vs_top){vs_top=sup;goto T335;}          if(vs_base>=vs_top){vs_top=sup;goto T268;}
732          V172= vs_base[0];          V147= vs_base[0];
733          vs_base++;          vs_base++;
734          if(vs_base>=vs_top){vs_top=sup;goto T336;}          if(vs_base>=vs_top){vs_top=sup;goto T269;}
735          V173= vs_base[0];          V148= vs_base[0];
736          vs_top=sup;          vs_top=sup;
737          goto T337;          goto T270;
738          goto T332;          goto T265;
739  T332:;  T265:;
740          V169= Cnil;          V144= Cnil;
741          goto T333;          goto T266;
742  T333:;  T266:;
743          V170= Cnil;          V145= Cnil;
744          goto T334;          goto T267;
745  T334:;  T267:;
746          V171= Cnil;          V146= Cnil;
747          goto T335;          goto T268;
748  T335:;  T268:;
749          V172= Cnil;          V147= Cnil;
750          goto T336;          goto T269;
751  T336:;  T269:;
752          V173= Cnil;          V148= Cnil;
753          goto T337;          goto T270;
754  T337:;  T270:;
755          {register object V174;          {register object V149;
756          vs_base=vs_top;          vs_base=vs_top;
757          Lgensym();          Lgensym();
758          vs_top=sup;          vs_top=sup;
759          V174= vs_base[0];          V149= vs_base[0];
760          if(((V157))!=Cnil){          V137= make_cons(V144,(V137));
761          goto T341;}          V138= make_cons(V149,(V138));
762          V158= make_cons(V169,Cnil);          {object V152;
763          V157= (V158);          V153= make_cons(VV[81],(V145));
764          goto T339;          V154= list(3,VV[83],list(3,VV[84],(V149),VV[85]),VV[86]);
765          goto T341;          V155= list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[88],list(2,VV[38],(V144)))));
766  T341:;          V156= list(4,VV[82],/* INLINE-ARGS */V154,/* INLINE-ARGS */V155,list(3,VV[89],(V149),VV[85]));
767          V177= make_cons(V169,Cnil);          V152= list(3,/* INLINE-ARGS */V153,/* INLINE-ARGS */V156,list(3,VV[90],VV[91],(V144)));
768          ((V158))->c.c_cdr = /* INLINE-ARGS */V177;          V139= make_cons((V152),(V139));}
769          V176= (V158);          if(((V148))==Cnil){
770          V158= CMPcdr(V176);          goto T279;}
771          goto T339;          {object V157;
772  T339:;          V158= list(2,VV[93],(V144));
773          if(((V159))!=Cnil){          V157= list(3,VV[92],/* INLINE-ARGS */V158,list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[94],list(2,VV[38],(V144))))));
774          goto T349;}          V140= make_cons((V157),(V140));}
775          V160= make_cons(V174,Cnil);          goto T279;
776          V159= (V160);  T279:;
777          goto T347;          goto T286;
778          goto T349;  T286:;
779  T349:;          base[1]= (V147);
         V180= make_cons(V174,Cnil);  
         ((V160))->c.c_cdr = /* INLINE-ARGS */V180;  
         V179= (V160);  
         V160= CMPcdr(V179);  
         goto T347;  
 T347:;  
         {object V181;  
         V182= make_cons(VV[76],(V170));  
         V183= list(3,VV[78],(V174),VV[79]);  
         V184= list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[81],list(2,VV[31],(V169)))));  
         V185= list(4,VV[77],/* INLINE-ARGS */V183,/* INLINE-ARGS */V184,list(3,VV[82],(V174),VV[79]));  
         V181= list(3,/* INLINE-ARGS */V182,/* INLINE-ARGS */V185,list(3,VV[83],VV[84],(V169)));  
         if(((V161))!=Cnil){  
         goto T358;}  
         V162= make_cons((V181),Cnil);  
         V161= (V162);  
         goto T355;  
         goto T358;  
 T358:;  
         V187= make_cons((V181),Cnil);  
         ((V162))->c.c_cdr = /* INLINE-ARGS */V187;  
         V186= (V162);  
         V162= CMPcdr(V186);}  
         goto T355;  
 T355:;  
         if(((V173))==Cnil){  
         goto T364;}  
         {object V188;  
         V189= list(2,VV[86],(V169));  
         V188= list(3,VV[85],/* INLINE-ARGS */V189,list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[87],list(2,VV[31],(V169))))));  
         if(((V163))!=Cnil){  
         goto T369;}  
         V164= make_cons((V188),Cnil);  
         V163= (V164);  
         goto T364;  
         goto T369;  
 T369:;  
         V191= make_cons((V188),Cnil);  
         ((V164))->c.c_cdr = /* INLINE-ARGS */V191;  
         V190= (V164);  
         V164= CMPcdr(V190);}  
         goto T364;  
 T364:;  
         goto T377;  
 T377:;  
         base[1]= (V172);  
780          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
781          Lconstantp();          Lconstantp();
782          vs_top=sup;          vs_top=sup;
783          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
784          goto T379;}{object V192;          goto T288;}{object V159;
785          V192= (V172);          V159= (V147);
786          base[1]= (V172);          base[1]= (V147);
787          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
788          Leval();          Leval();
789          vs_top=sup;          vs_top=sup;
790          V172= vs_base[0];          V147= vs_base[0];
791          V193 = (V172);          if((((V159)==((V147))?Ct:Cnil))==Cnil){
792          if((((V192)==(V193)?Ct:Cnil))==Cnil){          goto T287;}}
793          goto T378;}}          goto T288;
794          goto T379;  T288:;
795  T379:;          goto T284;
796          goto T375;          goto T287;
797          goto T378;  T287:;
798  T378:;          goto T286;
799          goto T377;          goto T284;
800          goto T375;  T284:;
801  T375:;          {object V160;
802          {object V194;          if(!(((V147))==(VV[95]))){
803          if(!(((V172))==(VV[88]))){          goto T298;}
804          goto T389;}          V160= list(3,VV[89],(V144),list(2,VV[96],(V144)));
805          V194= list(3,VV[82],(V169),list(2,VV[89],(V169)));          goto T296;
806          goto T387;          goto T298;
807          goto T389;  T298:;
808  T389:;          if(!(((V147))==(VV[59]))){
809          if(!(((V172))==(VV[52]))){          goto T301;}
810          goto T392;}          V160= Cnil;
811          V194= Cnil;          goto T296;
812          goto T387;          goto T301;
813          goto T392;  T301:;
814  T392:;          V160= list(4,VV[97],(V147),list(2,VV[95],list(3,VV[89],(V144),list(2,VV[96],(V144)))),VV[98]);
815          V194= list(4,VV[90],(V172),list(2,VV[88],list(3,VV[82],(V169),list(2,VV[89],(V169)))),VV[91]);          goto T296;
816          goto T387;  T296:;
817  T387:;          V141= make_cons((V160),(V141));}}}
818          if(((V165))!=Cnil){          V142= CMPcdr((V142));
819          goto T395;}          V143= CMPcar((V142));
820          V166= make_cons((V194),Cnil);          goto T257;}
821          V165= (V166);          goto T253;
822          goto T329;  T253:;
823          goto T395;          V161= nreverse((V137));
824  T395:;          V162= nreverse((V138));
825          V196= make_cons((V194),Cnil);          V163= append(/* INLINE-ARGS */V161,/* INLINE-ARGS */V162);
826          ((V166))->c.c_cdr = /* INLINE-ARGS */V196;          V164= nreverse((V139));
827          V195= (V166);          V165= list(3,VV[100],VV[101],list(4,VV[99],VV[102],VV[103],make_cons(VV[104],/* INLINE-ARGS */V164)));
828          V166= CMPcdr(V195);}}}          base[0]= nreverse((V140));
829          goto T329;          base[1]= nreverse((V141));
830  T329:;          base[2]= (V136);
         V167= CMPcdr((V167));  
         V168= CMPcar((V167));  
         goto T324;}  
         goto T320;  
 T320:;  
         base[0]= (V157);  
         base[1]= (V159);  
         base[2]= (V161);  
         base[3]= (V163);  
         base[4]= (V165);  
         vs_top=(vs_base=base+0)+5;}  
         if(vs_base>=vs_top){vs_top=sup;goto T411;}  
         V152= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T412;}  
         V153= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T413;}  
         V154= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T414;}  
         V155= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T415;}  
         V156= vs_base[0];  
         vs_top=sup;  
         goto T416;  
         goto T411;  
 T411:;  
         V152= Cnil;  
         goto T412;  
 T412:;  
         V153= Cnil;  
         goto T413;  
 T413:;  
         V154= Cnil;  
         goto T414;  
 T414:;  
         V155= Cnil;  
         goto T415;  
 T415:;  
         V156= Cnil;  
         goto T416;  
 T416:;  
         V197= append((V152),(V153));  
         V198= list(3,VV[93],VV[94],list(4,VV[92],VV[95],VV[96],make_cons(VV[97],(V154))));  
         base[0]= (V155);  
         base[1]= (V156);  
         base[2]= (V151);  
831          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
832          Lappend();          Lappend();
833          vs_top=sup;          vs_top=sup;
834          V199= vs_base[0];          V166= vs_base[0];
835          V200= make_cons(/* INLINE-ARGS */V198,V199);          V167= make_cons(/* INLINE-ARGS */V165,V166);
836          {object V201 = listA(3,VV[92],/* INLINE-ARGS */V197,append((V150),/* INLINE-ARGS */V200));          {object V168 = listA(3,VV[99],/* INLINE-ARGS */V163,append((V135),/* INLINE-ARGS */V167));
837          VMR14(V201)}}          VMR13(V168)}}
838          base[0]=base[0];          base[0]=base[0];
839          return Cnil;          return Cnil;
840  }  }
841  /*      function definition for PARSE-METHOD-GROUP-SPECIFIER    */  /*      function definition for PARSE-METHOD-GROUP-SPECIFIER    */
842    
843  static void L18()  static void L21()
844  {register object *base=vs_base;  {register object *base=vs_base;
845          register object *sup=base+VM15; VC15          register object *sup=base+VM14; VC14
846          vs_check;          vs_check;
847          {register object V202;          {object V169;
848          check_arg(1);          check_arg(1);
849          V202=(base[0]);          V169=(base[0]);
850          vs_top=sup;          vs_top=sup;
851          goto TTL;          goto TTL;
852  TTL:;  TTL:;
853          {object V203;          {register object V170;
854          register object V204;          {object V171;
855          object V205;          V171= CMPcar((V169));
856          {object V206;          V169= CMPcdr((V169));
857          V206= CMPcar((V202));          V170= (V171);}
858          V202= CMPcdr((V202));          {register object V172;
859          V203= (V206);}          V172= (V169);
860          V204= Cnil;          {register object V173;
861          {register object V207;          V173= Cnil;
862          register object V208;          {register object V174;
863          V207= Cnil;          register object V175;
864          V208= Cnil;          register object V176;
865          goto T431;          V174= make_cons(Cnil,Cnil);
866  T431:;          V175= (V174);
867          if(((V202))==Cnil){          V176= Cnil;
868          goto T433;}          {register object V177;
869          {register object x= CMPcar((V202)),V209= VV[98];          register object V178;
870          while(V209!=Cnil)          register object V179;
871          if(x==(V209->c.c_car)){          V177= make_cons(Cnil,Cnil);
872          goto T437;          V178= (V177);
873          }else V209=V209->c.c_cdr;          V179= Cnil;
874          goto T434;}          goto T324;
875          goto T437;  T324:;
876  T437:;          if(!(type_of((V172))!=t_cons)){
877          goto T433;          goto T326;}
878  T433:;          goto T325;
879          goto T429;          goto T326;
880          goto T434;  T326:;
881  T434:;          V173= CMPcar((V172));
882          {register object V210;          {register object x= (V173),V180= VV[105];
883          {object V211;          while(V180!=Cnil)
884          V211= CMPcar((V202));          if(x==(V180->c.c_car)){
885          V202= CMPcdr((V202));          goto T333;
886          V210= (V211);}          }else V180=V180->c.c_cdr;
887          V204= make_cons(V210,(V204));          goto T331;}
888          {register object V213;          goto T333;
889          V213= (*(LnkLI148))((V203),(V210));  T333:;
890          if(((V207))!=Cnil){          goto T325;
891          goto T446;}          goto T331;
892          V208= make_cons((V213),Cnil);  T331:;{object V181;
893          V207= (V208);          V181= (V175);
894          goto T432;          V175= make_cons((V173),Cnil);
895          goto T446;          (V181)->c.c_cdr = (V175);}
896  T446:;          V176= CMPcdr((V174));{object V182;
897          V215= make_cons((V213),Cnil);          V182= (V178);
898          ((V208))->c.c_cdr = /* INLINE-ARGS */V215;          V183= (*(LnkLI162))((V170),(V173));
899          V214= (V208);          V178= make_cons(/* INLINE-ARGS */V183,Cnil);
900          V208= CMPcdr(V214);}}          (V182)->c.c_cdr = (V178);}
901          goto T432;          V179= CMPcdr((V177));
902  T432:;          V172= CMPcdr((V172));
903          goto T431;          goto T324;
904          goto T429;          goto T325;
905  T429:;  T325:;
906          V205= (V207);}          base[3]= (V170);
907          base[3]= (V203);          base[4]= (V179);
908          base[4]= (V205);          base[6]= (V172);
909          base[6]= (V202);          base[7]= VV[106];
910          base[7]= VV[99];          V184= nreverse((V176));
911          base[8]= (*(LnkLI149))((V204));          base[8]= (*(LnkLI163))(/* INLINE-ARGS */V184);
912          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
913          Lgetf();          Lgetf();
914          vs_top=sup;          vs_top=sup;
915          base[5]= vs_base[0];          base[5]= vs_base[0];
916          base[7]= (V202);          base[7]= (V172);
917          base[8]= VV[100];          base[8]= VV[107];
918          base[9]= VV[88];          base[9]= VV[95];
919          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
920          Lgetf();          Lgetf();
921          vs_top=sup;          vs_top=sup;
922          base[6]= vs_base[0];          base[6]= vs_base[0];
923          base[8]= (V202);          base[8]= (V172);
924          base[9]= VV[101];          base[9]= VV[108];
925          base[10]= Cnil;          base[10]= Cnil;
926          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
927          Lgetf();          Lgetf();
928          vs_top=sup;          vs_top=sup;
929          base[7]= vs_base[0];          base[7]= vs_base[0];
930          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
931          return;}          return;
932            base[3]= Cnil;
933            vs_top=(vs_base=base+3)+1;
934            return;}}}}}
935          }          }
936  }  }
937  /*      local entry for function PARSE-QUALIFIER-PATTERN        */  /*      local entry for function PARSE-QUALIFIER-PATTERN        */
938    
939  static object LI19(V218,V219)  static object LI22(V187,V188)
940    
941  object V218;register object V219;  object V187;register object V188;
942  {        VMB16 VMS16 VMV16  {        VMB15 VMS15 VMV15
943          goto TTL;          goto TTL;
944  TTL:;  TTL:;
945          if(!(((V219))==(Cnil))){          if(!(((V188))==(Cnil))){
946          goto T468;}          goto T360;}
947          {object V220 = VV[102];          {object V189 = VV[109];
948          VMR16(V220)}          VMR15(V189)}
949          goto T468;          goto T360;
950  T468:;  T360:;
951          if(!(((V219))==(VV[103]))){          if(!(((V188))==(VV[110]))){
952          goto T471;}          goto T363;}
953          {object V221 = Ct;          {object V190 = Ct;
954          VMR16(V221)}          VMR15(V190)}
955          goto T471;          goto T363;
956  T471:;  T363:;
957          if(!(type_of((V219))==t_symbol)){          if(!(type_of((V188))==t_symbol)){
958          goto T474;}          goto T366;}
959          {object V222 = list(2,(V219),VV[104]);          {object V191 = list(2,(V188),VV[111]);
960          VMR16(V222)}          VMR15(V191)}
961          goto T474;          goto T366;
962  T474:;  T366:;
963          if(!(type_of((V219))==t_cons||((V219))==Cnil)){          if(!(type_of((V188))==t_cons||((V188))==Cnil)){
964          goto T477;}          goto T369;}
965          {object V223 = list(3,VV[105],list(2,VV[31],(V219)),VV[104]);          {object V192 = list(3,VV[112],list(2,VV[38],(V188)),VV[111]);
966          VMR16(V223)}          VMR15(V192)}
967          goto T477;          goto T369;
968  T477:;  T369:;
969          base[0]= VV[106];          base[0]= VV[113];
970          base[1]= (V218);          base[1]= (V187);
971          base[2]= (V219);          base[2]= (V188);
972          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
973          Lerror();          Lerror();
974          vs_top=sup;          vs_top=sup;
975          {object V224 = vs_base[0];          {object V193 = vs_base[0];
976          VMR16(V224)}          VMR15(V193)}
977          base[0]=base[0];          base[0]=base[0];
978          return Cnil;          return Cnil;
979  }  }
980  /*      local entry for function QUALIFIER-CHECK-RUNTIME        */  /*      local entry for function QUALIFIER-CHECK-RUNTIME        */
981    
982  static object LI20(V227,V228)  static object LI23(V196,V197)
983    
984  register object V227;register object V228;  register object V196;register object V197;
985  {        VMB17 VMS17 VMV17  {        VMB16 VMS16 VMV16
986          goto TTL;          goto TTL;
987  TTL:;  TTL:;
988          goto T483;          goto T375;
989  T483:;  T375:;
990          if(((V227))!=Cnil){          if(((V196))!=Cnil){
991          goto T486;}          goto T378;}
992          if(((V228))!=Cnil){          if(((V197))!=Cnil){
993          goto T486;}          goto T378;}
994          {object V229 = Ct;          {object V198 = Ct;
995          VMR17(V229)}          VMR16(V198)}
996          goto T486;          goto T378;
997  T486:;  T378:;
998          if(!(((V227))==(VV[103]))){          if(!(((V196))==(VV[110]))){
999          goto T491;}          goto T383;}
1000          {object V230 = Ct;          {object V199 = Ct;
1001          VMR17(V230)}          VMR16(V199)}
1002          goto T491;          goto T383;
1003  T491:;  T383:;
1004          if(((V227))==Cnil){          if(((V196))==Cnil){
1005          goto T494;}          goto T386;}
1006          if(((V228))==Cnil){          if(((V197))==Cnil){
1007          goto T494;}          goto T386;}
1008          if(!((CMPcar((V227)))==(CMPcar((V228))))){          {register object V200;
1009          goto T494;}          V200= CMPcar((V196));
1010          {register object V231;          if(!(((V200))==(CMPcar((V197))))){
1011          V231= CMPcar((V227));          goto T393;}
1012          V227= CMPcdr((V227));}          goto T391;
1013          {register object V232;          goto T393;
1014          V232= CMPcar((V228));  T393:;
1015          V228= CMPcdr((V228));          if(!(((V200))==(VV[110]))){
1016          goto T484;}          goto T386;}}
1017          goto T494;          goto T391;
1018  T494:;  T391:;
1019          {object V233 = Cnil;          {register object V201;
1020          VMR17(V233)}          V201= CMPcar((V196));
1021          goto T484;          V196= CMPcdr((V196));}
1022  T484:;          {register object V202;
1023          goto T483;          V202= CMPcar((V197));
1024            V197= CMPcdr((V197));
1025            goto T376;}
1026            goto T386;
1027    T386:;
1028            {object V203 = Cnil;
1029            VMR16(V203)}
1030            goto T376;
1031    T376:;
1032            goto T375;
1033          return Cnil;          return Cnil;
1034  }  }
1035  /*      local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION  */  /*      local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION  */
1036    
1037  static object LI21(V235)  static object LI24(V205)
1038    
1039  register object V235;  register object V205;
1040  {        VMB18 VMS18 VMV18  {        VMB17 VMS17 VMV17
1041          goto TTL;          goto TTL;
1042  TTL:;  TTL:;
1043          if((CMPcdr((V235)))==Cnil){          if((CMPcdr((V205)))==Cnil){
1044          goto T509;}          goto T404;}
1045          base[0]= Cnil;          base[0]= Cnil;
1046          base[1]= VV[107];          base[1]= VV[114];
1047          base[3]= (V235);          base[3]= (V205);
1048          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1049          Lbutlast();          Lbutlast();
1050          vs_top=sup;          vs_top=sup;
1051          base[2]= vs_base[0];          base[2]= vs_base[0];
1052          base[4]= (V235);          base[4]= (V205);
1053          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1054          Llast();          Llast();
1055          vs_top=sup;          vs_top=sup;
1056          V236= vs_base[0];          V206= vs_base[0];
1057          base[3]= CMPcar(V236);          base[3]= CMPcar(V206);
1058          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1059          Lformat();          Lformat();
1060          vs_top=sup;          vs_top=sup;
1061          {object V237 = vs_base[0];          {object V207 = vs_base[0];
1062          VMR18(V237)}          VMR17(V207)}
1063          goto T509;          goto T404;
1064  T509:;  T404:;
1065          base[0]= Cnil;          base[0]= Cnil;
1066          base[1]= VV[108];          base[1]= VV[115];
1067          base[2]= CMPcar((V235));          base[2]= CMPcar((V205));
1068          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1069          Lformat();          Lformat();
1070          vs_top=sup;          vs_top=sup;
1071          {object V238 = vs_base[0];          {object V208 = vs_base[0];
1072          VMR18(V238)}          VMR17(V208)}
1073          base[0]=base[0];          base[0]=base[0];
1074          return Cnil;          return Cnil;
1075  }  }
1076  /*      local entry for function DEAL-WITH-ARGUMENTS-OPTION     */  /*      local entry for function DEAL-WITH-ARGUMENTS-OPTION     */
1077    
1078  static object LI22(V241,V242)  static object LI25(V211,V212)
1079    
1080  object V241;object V242;  object V211;object V212;
1081    {        VMB18 VMS18 VMV18
1082            goto TTL;
1083    TTL:;
1084            {object V213;
1085            register object V214;
1086            register object V215;
1087            object V216;
1088            {register object V217;
1089            register object V218;
1090            V217= Cnil;
1091            V218= (V212);
1092            {object V219;
1093            object V220;
1094            V219= make_cons(Cnil,Cnil);
1095            V220= (V219);
1096            goto T420;
1097    T420:;
1098            if(!(((V218))==Cnil)){
1099            goto T422;}
1100            goto T421;
1101            goto T422;
1102    T422:;
1103            V217= CMPcar((V218));
1104            V218= CMPcdr((V218));
1105            {register object x= (V217),V221= VV[116];
1106            while(V221!=Cnil)
1107            if(x==(V221->c.c_car)){
1108            goto T429;
1109            }else V221=V221->c.c_cdr;}{object V222;
1110            V222= (V220);
1111            V223= list(2,(V217),list(2,VV[38],(V217)));
1112            V220= make_cons(/* INLINE-ARGS */V223,Cnil);
1113            (V222)->c.c_cdr = (V220);}
1114            goto T429;
1115    T429:;
1116            goto T420;
1117            goto T421;
1118    T421:;
1119            V213= CMPcdr((V219));
1120            goto T416;
1121            V213= Cnil;
1122            goto T416;}}
1123            goto T416;
1124    T416:;
1125            V214= small_fixnum(0);
1126            V215= small_fixnum(0);
1127            V216= Cnil;
1128            {register object V224;
1129            V224= VV[117];
1130            {register object V225;
1131            register object V226;
1132            V225= Cnil;
1133            V226= (V212);
1134            goto T436;
1135    T436:;
1136            if(!(((V226))==Cnil)){
1137            goto T438;}
1138            goto T437;
1139            goto T438;
1140    T438:;
1141            V225= CMPcar((V226));
1142            V226= CMPcdr((V226));
1143            {register object x= (V225),V227= VV[116];
1144            while(V227!=Cnil)
1145            if(x==(V227->c.c_car)){
1146            goto T448;
1147            }else V227=V227->c.c_cdr;
1148            goto T447;}
1149            goto T448;
1150    T448:;
1151            V224= (V225);
1152            goto T445;
1153            goto T447;
1154    T447:;
1155            {object V228= (V224);
1156            if((V228!= VV[117]))goto T450;
1157            V214= number_plus((V214),small_fixnum(1));
1158            goto T445;
1159            goto T450;
1160    T450:;
1161            if((V228!= VV[138]))goto T452;
1162            V215= number_plus((V215),small_fixnum(1));
1163            goto T445;
1164            goto T452;
1165    T452:;
1166            if((V228!= VV[164]))goto T454;
1167            V216= (V225);
1168            V224= VV[117];
1169            goto T445;
1170            goto T454;
1171    T454:;}
1172            goto T445;
1173    T445:;
1174            goto T436;
1175            goto T437;
1176    T437:;
1177            goto T434;}}
1178            goto T434;
1179    T434:;
1180            goto T460;
1181    T460:;
1182            {register object x= CMPcar((V211)),V229= VV[118];
1183            while(V229!=Cnil)
1184            if(x==(V229->c.c_car)){
1185            goto T461;
1186            }else V229=V229->c.c_cdr;}
1187            base[1]= VV[119];
1188            vs_top=(vs_base=base+1)+1;
1189            (void) (*Lnk165)();
1190            vs_top=sup;
1191            base[0]= vs_base[0];
1192            base[2]= Cnil;
1193            base[3]= VV[120];
1194            base[4]= VV[166];
1195            goto T460;
1196            vs_top=(vs_base=base+2)+4;
1197            (void) (*Lnk167)();
1198            vs_top=sup;
1199            base[1]= vs_base[0];
1200            vs_top=(vs_base=base+0)+2;
1201            (void) (*Lnk168)();
1202            vs_top=sup;
1203            goto T461;
1204    T461:;
1205            goto T458;
1206            goto T458;
1207    T458:;
1208            {object V231;
1209            V231= append((V213),CMPcadr((V211)));
1210            (CMPcdr(V211))->c.c_car = (V231);
1211            (void)(CMPcdr(V211));}
1212            {register object x= VV[121],V232= (V212);
1213            while(V232!=Cnil)
1214            if(x==(V232->c.c_car)){
1215            goto T474;
1216            }else V232=V232->c.c_cdr;}
1217            {register object x= VV[122],V233= (V212);
1218            while(V233!=Cnil)
1219            if(x==(V233->c.c_car)){
1220            goto T474;
1221            }else V233=V233->c.c_cdr;}
1222            {object V234;
1223            {register object x= VV[123],V235= (V212);
1224            while(V235!=Cnil)
1225            if(x==(V235->c.c_car)){
1226            V234= V235;
1227            goto T479;
1228            }else V235=V235->c.c_cdr;
1229            V234= Cnil;}
1230            goto T479;
1231    T479:;
1232            base[1]= (V212);
1233            base[2]= (V234);
1234            vs_top=(vs_base=base+1)+2;
1235            Lldiff();
1236            vs_top=sup;
1237            base[0]= vs_base[0];
1238            {register object x= VV[124],V236= (V212);
1239            while(V236!=Cnil)
1240            if(x==(V236->c.c_car)){
1241            goto T487;
1242            }else V236=V236->c.c_cdr;
1243            goto T486;}
1244            goto T487;
1245    T487:;
1246            base[1]= VV[125];
1247            goto T484;
1248            goto T486;
1249    T486:;
1250            base[1]= VV[126];
1251            goto T484;
1252    T484:;
1253            base[2]= (V234);
1254            vs_top=(vs_base=base+0)+3;
1255            Lappend();
1256            vs_top=sup;
1257            V212= vs_base[0];}
1258            goto T474;
1259    T474:;
1260            V237= list(2,list(2,VV[127],(V211)),VV[128]);
1261            V238= list(2,VV[38],(V212));
1262            V239= list(2,VV[38],(V214));
1263            V240= list(6,VV[129],VV[131],VV[132],VV[133],/* INLINE-ARGS */V239,list(2,VV[38],(V215)));
1264            {register object x= VV[134],V242= (V212);
1265            while(V242!=Cnil)
1266            if(x==(V242->c.c_car)){
1267            goto T492;
1268            }else V242=V242->c.c_cdr;
1269            goto T491;}
1270            goto T492;
1271    T492:;
1272            V241= VV[135];
1273            goto T489;
1274            goto T491;
1275    T491:;
1276            V241= Cnil;
1277            goto T489;
1278    T489:;
1279            if(((V216))==Cnil){
1280            goto T495;}
1281            V243= list(4,VV[129],VV[136],list(2,VV[38],(V216)),VV[137]);
1282            goto T493;
1283            goto T495;
1284    T495:;
1285            V243= Cnil;
1286            goto T493;
1287    T493:;
1288            {object V244 = list(3,VV[99],/* INLINE-ARGS */V237,list(7,VV[129],VV[130],/* INLINE-ARGS */V238,/* INLINE-ARGS */V240,V241,V243,VV[127]));
1289            VMR18(V244)}}
1290            base[0]=base[0];
1291            return Cnil;
1292    }
1293    /*      local entry for function FROB-COMBINED-METHOD-ARGS      */
1294    
1295    static object LI26(V249,V250,V251,V252)
1296    
1297    register object V249;object V250;object V251;object V252;
1298  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1299          goto TTL;          goto TTL;
1300  TTL:;  TTL:;
1301          {object V243;          {register object V253;
1302          object V244;          V253= VV[117];
1303          {register object V245;          {register object V254;
1304          register object V246;          register object V255;
1305          V245= Cnil;          V254= Cnil;
1306          V246= Cnil;          V255= (V250);
1307          {register object V247;          {register long V256;
1308          register object V248;          register long V257;
1309          V247= (V242);          V256= 0;
1310          V248= CMPcar((V247));          V257= 0;
1311          goto T528;          {object V258;
1312  T528:;          object V259;
1313          if(!(((V247))==Cnil)){          object V260;
1314          goto T529;}          V258= make_cons(Cnil,Cnil);
1315          goto T524;          V259= (V258);
1316          goto T529;          V260= Cnil;
1317  T529:;          {object V261;
1318          {register object x= (V248),V249= VV[109];          object V262;
1319          while(V249!=Cnil)          object V263;
1320          if(x==(V249->c.c_car)){          V261= make_cons(Cnil,Cnil);
1321          goto T536;          V262= (V261);
1322          }else V249=V249->c.c_cdr;          V263= Cnil;
1323          goto T535;}          goto T506;
1324          goto T536;  T506:;
1325  T536:;          if(!(((V255))==Cnil)){
1326          if(((V245))!=Cnil){          goto T508;}
1327          goto T538;}          goto T507;
1328          V246= make_cons(V248,Cnil);          goto T508;
1329          V245= (V246);  T508:;
1330          goto T533;          V254= CMPcar((V255));
1331          goto T538;          V255= CMPcdr((V255));
1332  T538:;          {register object x= (V254),V264= VV[116];
1333          V252= make_cons(V248,Cnil);          while(V264!=Cnil)
1334          ((V246))->c.c_cdr = /* INLINE-ARGS */V252;          if(x==(V264->c.c_car)){
1335          V251= (V246);          goto T518;
1336          V246= CMPcdr(V251);          }else V264=V264->c.c_cdr;
1337          goto T533;          goto T517;}
1338          goto T535;          goto T518;
1339  T535:;  T518:;
1340          {object V253;          V253= (V254);
1341            if(((V253))==(VV[138])){
1342            goto T515;}
1343          vs_base=vs_top;          vs_base=vs_top;
1344          Lgensym();          (void) (*Lnk169)();
1345          vs_top=sup;          vs_top=sup;
1346          V253= vs_base[0];          goto T515;
1347          if(((V245))!=Cnil){          goto T517;
1348          goto T546;}  T517:;
1349          V246= make_cons((V253),Cnil);          if(!(((V253))==(VV[117]))){
1350          V245= (V246);          goto T524;}
1351          goto T533;          V256= (long)(V256)+1;{object V265;
1352          goto T546;          V265= (V259);
1353  T546:;          {object V267;
1354          V255= make_cons((V253),Cnil);          V267= CMPcar((V249));
1355          ((V246))->c.c_cdr = /* INLINE-ARGS */V255;          V249= CMPcdr((V249));
1356          V254= (V246);          V266= (V267);}
1357          V246= CMPcdr(V254);}          V259= make_cons(V266,Cnil);
1358          goto T533;          (V265)->c.c_cdr = (V259);}
1359  T533:;          V260= CMPcdr((V258));
1360          V247= CMPcdr((V247));          goto T515;
         V248= CMPcar((V247));  
         goto T528;}  
1361          goto T524;          goto T524;
1362  T524:;  T524:;
1363          V243= (V245);}          if(!(((V253))==(VV[138]))){
1364          {object V256;          goto T515;}
1365          register object V257;          V257= (long)(V257)+1;{object V268;
1366          V256= Cnil;          V268= (V262);
         V257= Cnil;  
         {register object V258;  
         register object V259;  
         register object V260;  
         object V261;  
         V258= (V242);  
         V259= Cnil;  
         V260= (V243);  
         V261= Cnil;  
         goto T566;  
 T566:;  
         {object V262;  
         if(!(((V258))==Cnil)){  
         goto T572;}  
         goto T560;  
         goto T572;  
 T572:;  
         V262= CMPcar((V258));  
         V258= CMPcdr((V258));  
         V259= (V262);}  
         {object V263;  
         if(!(((V260))==Cnil)){  
         goto T580;}  
         goto T560;  
         goto T580;  
 T580:;  
         V263= CMPcar((V260));  
         V260= CMPcdr((V260));  
         V261= (V263);}  
         {register object x= (V259),V264= VV[109];  
         while(V264!=Cnil)  
         if(x==(V264->c.c_car)){  
         goto T567;  
         }else V264=V264->c.c_cdr;}  
         {object V265;  
         V265= list(2,(V259),list(2,VV[31],(V261)));  
         if(((V256))!=Cnil){  
         goto T588;}  
         V257= make_cons((V265),Cnil);  
         V256= (V257);  
         goto T567;  
         goto T588;  
 T588:;  
         V267= make_cons((V265),Cnil);  
         ((V257))->c.c_cdr = /* INLINE-ARGS */V267;  
         V266= (V257);  
         V257= CMPcdr(V266);}  
         goto T567;  
 T567:;  
         goto T566;}  
         goto T560;  
 T560:;  
         V244= (V256);}  
         {object V269;  
         V269= append((V244),CMPcadr((V241)));  
         (CMPcdr(V241))->c.c_car = (V269);  
         (void)(CMPcdr(V241));}  
1367          {object V270;          {object V270;
1368          {register object x= VV[110],V271= (V243);          V270= CMPcar((V249));
1369          while(V271!=Cnil)          V249= CMPcdr((V249));
1370          if(x==(V271->c.c_car)){          V269= (V270);}
1371          V270= V271;          V262= make_cons(V269,Cnil);
1372          goto T599;          (V268)->c.c_cdr = (V262);}
1373          }else V271=V271->c.c_cdr;          V263= CMPcdr((V261));
1374          V270= Cnil;}          goto T515;
1375          goto T599;  T515:;
1376  T599:;          goto T506;
1377          if(((V270))==Cnil){          goto T507;
1378          goto T601;}  T507:;
1379          goto T598;          base[3]= (V260);
1380          goto T601;          base[4]= CMPmake_fixnum(V256);
1381  T601:;          base[5]= (V251);
1382          {object V272;          vs_top=(vs_base=base+3)+3;
1383          {register object x= VV[111],V273= (V243);          L27(base);
1384          while(V273!=Cnil)          vs_top=sup;
1385          if(x==(V273->c.c_car)){          base[2]= vs_base[0];
1386          V272= V273;          base[4]= (V263);
1387          goto T603;          base[5]= CMPmake_fixnum(V257);
1388          }else V273=V273->c.c_cdr;          base[6]= (V252);
1389          V272= Cnil;}          vs_top=(vs_base=base+4)+3;
1390          goto T603;          L27(base);
1391  T603:;          vs_top=sup;
1392          if(((V272))==Cnil){          base[3]= vs_base[0];
1393          goto T605;}          base[4]= (V249);
1394          goto T598;          vs_top=(vs_base=base+2)+3;
1395          goto T605;          Lnconc();
1396  T605:;          vs_top=sup;
1397          {register object x= VV[112],V274= (V243);          {object V271 = vs_base[0];
1398          while(V274!=Cnil)          VMR19(V271)}
1399          if(x==(V274->c.c_car)){          {object V272 = Cnil;
1400          goto T609;          VMR19(V272)}}}}}}
         }else V274=V274->c.c_cdr;  
         goto T608;}  
         goto T609;  
 T609:;  
         V243= append((V243),VV[113]);  
         goto T598;  
         goto T608;  
 T608:;  
         V243= append((V243),VV[114]);}}  
         goto T598;  
 T598:;  
         V275= list(2,VV[115],(V241));  
         V276= make_cons(/* INLINE-ARGS */V275,Cnil);  
         V277= list(2,VV[31],(V243));  
         {register object x= VV[120],V279= (V243);  
         while(V279!=Cnil)  
         if(x==(V279->c.c_car)){  
         goto T615;  
         }else V279=V279->c.c_cdr;  
         goto T614;}  
         goto T615;  
 T615:;  
         V278= VV[121];  
         goto T612;  
         goto T614;  
 T614:;  
         V278= Cnil;  
         goto T612;  
 T612:;  
         {object V280 = list(3,VV[92],/* INLINE-ARGS */V276,list(4,VV[116],VV[117],list(3,VV[116],VV[118],list(5,VV[116],VV[119],/* INLINE-ARGS */V277,V278,VV[115])),VV[122]));  
         VMR19(V280)}}  
1401          base[0]=base[0];          base[0]=base[0];
1402          return Cnil;          return Cnil;
1403  }  }
1404  /*      local function CLOSURE  */  /*      local function FROB     */
1405    
1406  static void LC24(base0)  static void L27(base0)
1407  register object *base0;  register object *base0;
1408  {       register object *base=vs_base;  {       register object *base=vs_base;
1409          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1410          vs_check;          vs_check;
1411          {object V281;          {object V273;
1412          object V282;          object V274;
1413          object V283;          object V275;
1414          check_arg(3);          check_arg(3);
1415          V281=(base[0]);          V273=(base[0]);
1416          V282=(base[1]);          V274=(base[1]);
1417          V283=(base[2]);          V275=(base[2]);
1418          vs_top=sup;          vs_top=sup;
1419          base[3]= VV[57];          goto TTL;
1420          base[4]= VV[45];  TTL:;
1421          base[5]= (V282);          if(!(number_compare((V274),(V275))>0)){
1422          base[6]= VV[24];          goto T557;}
1423          base[7]= (base0[0]->c.c_car);          base[3]= (V273);
1424          base[8]= VV[46];          base[4]= number_minus((V274),(V275));
1425          base[9]= (V283);          vs_top=(vs_base=base+3)+2;
1426          vs_top=(vs_base=base+3)+7;          Lbutlast();
1427          (void) (*Lnk135)(Lclptr135);          return;
1428            goto T557;
1429    T557:;
1430            if(!(number_compare((V274),(V275))<0)){
1431            goto T562;}
1432            base[3]= number_minus((V275),(V274));
1433            vs_top=(vs_base=base+3)+1;
1434            Lmake_list();
1435            vs_top=sup;
1436            V276= vs_base[0];
1437            base[3]= nconc((V273),V276);
1438            vs_top=(vs_base=base+3)+1;
1439            return;
1440            goto T562;
1441    T562:;
1442            base[3]= (V273);
1443            vs_top=(vs_base=base+3)+1;
1444          return;          return;
1445          }          }
1446  }  }
1447  /*      local function LOSE     */  /*      local function CLOSURE  */
1448    
1449  static void L11(base0)  static void LC30(base0)
1450  register object *base0;  register object *base0;
1451  {       register object *base=vs_base;  {       register object *base=vs_base;
1452          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1453          vs_check;          vs_check;
1454          {register object V284;          {object V277;
1455          object V285;          check_arg(1);
1456            V277=(base[0]);
1457            vs_top=sup;
1458            base[1]= Cnil;
1459            base[2]= (V277);
1460            vs_top=(vs_base=base+1)+2;
1461            (void) (*Lnk170)();
1462            return;
1463            }
1464    }
1465    /*      local function CLOSURE  */
1466    
1467    static void LC29(base0)
1468    register object *base0;
1469    {       register object *base=vs_base;
1470            register object *sup=base+VM22; VC22
1471            vs_check;
1472            {object V278;
1473            object V279;
1474            object V280;
1475            if(vs_top-vs_base<2) too_few_arguments();
1476            V278=(base[0]);
1477            V279=(base[1]);
1478            vs_base=vs_base+2;
1479            vs_top[0]=Cnil;
1480            {object *p=vs_top;
1481             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1482            V280=(base[2]);
1483            vs_top=sup;
1484            ck_larg_exactly(3,V278);
1485            base[3]=(V278)->c.c_car;
1486            base[4]=((V278
1487            )->c.c_cdr)->c.c_car;
1488            base[5]=(((V278
1489            )->c.c_cdr
1490            )->c.c_cdr)->c.c_car;
1491            base[6]= VV[70];
1492            base[7]= VV[52];
1493            base[8]= base[4];
1494            base[9]= VV[53];
1495            base[10]= base[5];
1496            base[11]= VV[46];
1497            base[12]= (base0[1]->c.c_car);
1498            base[13]= VV[71];
1499            base[14]= (base0[0]->c.c_car);
1500            base[15]= VV[31];
1501            base[16]= (base0[2]->c.c_car);
1502            vs_top=(vs_base=base+6)+11;
1503            (void) (*Lnk149)(Lclptr149);
1504            return;
1505            }
1506    }
1507    /*      local function LOSE     */
1508    
1509    static void L15(base0)
1510    register object *base0;
1511    {       register object *base=vs_base;
1512            register object *sup=base+VM23; VC23
1513            vs_check;
1514            {register object V282;
1515            object V283;
1516          check_arg(2);          check_arg(2);
1517          V284=(base[0]);          V282=(base[0]);
1518          V285=(base[1]);          V283=(base[1]);
1519          vs_top=sup;          vs_top=sup;
1520          goto TTL;          goto TTL;
1521  TTL:;  TTL:;
1522          base[2]= (V284);          base[2]= (V282);
1523          base[3]= VV[51];          base[3]= VV[58];
1524          base[4]= (V284);          base[4]= (V282);
1525          base[5]= (V285);          base[5]= (V283);
1526          base[6]= base0[0];          base[6]= base0[0];
1527          base[7]= base0[0];          base[7]= base0[0];
1528          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
1529          (void) (*Lnk150)();          (void) (*Lnk171)();
1530          return;          return;
1531          }          }
1532  }  }
1533  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1534    
1535  static void LC23(base0)  static void LC28(base0)
1536  register object *base0;  register object *base0;
1537  {       register object *base=vs_base;  {       register object *base=vs_base;
1538          register object *sup=base+VM22; VC22          register object *sup=base+VM24; VC24
1539          vs_check;          vs_check;
1540          {object V286;          {object V284;
1541          object V287;          object V285;
1542          object V288;          object V286;
1543          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1544          V286=(base[0]);          V284=(base[0]);
1545          V287=(base[1]);          V285=(base[1]);
1546          vs_base=vs_base+2;          vs_base=vs_base+2;
1547          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1548          {object *p=vs_top;          {object *p=vs_top;
1549           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1550          V288=(base[2]);          V286=(base[2]);
1551          vs_top=sup;          vs_top=sup;
1552          ck_larg_exactly(3,V286);          ck_larg_exactly(3,V284);
1553          base[3]=(V286)->c.c_car;          base[3]=(V284)->c.c_car;
1554          base[4]=((V286          base[4]=((V284
1555          )->c.c_cdr)->c.c_car;          )->c.c_cdr)->c.c_car;
1556          base[5]=(((V286          base[5]=(((V284
1557          )->c.c_cdr          )->c.c_cdr
1558          )->c.c_cdr)->c.c_car;          )->c.c_cdr)->c.c_car;
1559          base[6]= base[4];          base[6]= base[4];
# Line 1589  register object *base0; Line 1563  register object *base0;
1563          base[10]= (base0[0]->c.c_car);          base[10]= (base0[0]->c.c_car);
1564          base[11]= (base0[1]->c.c_car);          base[11]= (base0[1]->c.c_car);
1565          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
1566          (void) (*Lnk151)();          (void) (*Lnk172)();
1567          return;          return;
1568          }          }
1569  }  }
1570  /*      local function REAL-METHOD-COMBINATION-ERROR    */  /*      local function REAL-METHOD-COMBINATION-ERROR    */
1571    
1572  static void LC4(base0)  static void LC7(base0)
1573  register object *base0;  register object *base0;
1574  {       register object *base=vs_base;  {       register object *base=vs_base;
1575          register object *sup=base+VM23; VC23          register object *sup=base+VM25; VC25
1576          vs_check;          vs_check;
1577          {object V290;          {object V288;
1578          object V291;          object V289;
1579          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1580          V290=(base[0]);          V288=(base[0]);
1581          vs_base=vs_base+1;          vs_base=vs_base+1;
1582          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1583          {object *p=vs_top;          {object *p=vs_top;
1584           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1585          V291=(base[1]);          V289=(base[1]);
1586          vs_top=sup;          vs_top=sup;
1587          base[2]= (V290);          base[2]= (V288);
1588          {object V292;          {object V290;
1589          V292= (V291);          V290= (V289);
1590           vs_top=base+3;           vs_top=base+3;
1591           while(V292!=Cnil)           while(V290!=Cnil)
1592           {vs_push((V292)->c.c_car);V292=(V292)->c.c_cdr;}           {vs_push((V290)->c.c_car);V290=(V290)->c.c_cdr;}
1593          vs_base=base+2;}          vs_base=base+2;}
1594          Lerror();          Lerror();
1595          return;          return;
# Line 1623  register object *base0; Line 1597  register object *base0;
1597  }  }
1598  /*      local function REAL-INVALID-METHOD-ERROR        */  /*      local function REAL-INVALID-METHOD-ERROR        */
1599    
1600  static void LC3(base0)  static void LC6(base0)
1601  register object *base0;  register object *base0;
1602  {       register object *base=vs_base;  {       register object *base=vs_base;
1603          register object *sup=base+VM24; VC24          register object *sup=base+VM26; VC26
1604          vs_check;          vs_check;
1605          {object V293;          {object V291;
1606          object V294;          object V292;
1607          object V295;          object V293;
1608          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1609          V293=(base[0]);          V291=(base[0]);
1610          V294=(base[1]);          V292=(base[1]);
1611          vs_base=vs_base+2;          vs_base=vs_base+2;
1612          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1613          {object *p=vs_top;          {object *p=vs_top;
1614           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1615          V295=(base[2]);          V293=(base[2]);
1616          vs_top=sup;          vs_top=sup;
1617          base[3]= (V294);          base[3]= (V292);
1618          {object V296;          {object V294;
1619          V296= (V295);          V294= (V293);
1620           vs_top=base+4;           vs_top=base+4;
1621           while(V296!=Cnil)           while(V294!=Cnil)
1622           {vs_push((V296)->c.c_car);V296=(V296)->c.c_cdr;}           {vs_push((V294)->c.c_car);V294=(V294)->c.c_cdr;}
1623          vs_base=base+3;}          vs_base=base+3;}
1624          Lerror();          Lerror();
1625          return;          return;
1626          }          }
1627  }  }
1628  static void LnkT151(){ call_or_link(VV[151],(void **)(void *)&Lnk151);} /* DO-SHORT-METHOD-COMBINATION */  /*      local function CALL-NEXT-METHOD */
1629  static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* INVALID-METHOD-ERROR */  
1630  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */  static void L5(base0)
1631  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */  register object *base0;
1632  static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* PARSE-METHOD-GROUP-SPECIFIER */  {       register object *base=vs_base;
1633  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */          register object *sup=base+VM27; VC27
1634  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */          vs_check;
1635  static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* EXTRACT-DECLARATIONS */          {object V295;
1636  static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */          vs_top[0]=Cnil;
1637  static void LnkT142(ptr) object *ptr;{ call_or_link_closure(VV[142],(void **)(void *)&Lnk142,(void **)(void *)&Lclptr142);} /* METHOD-QUALIFIERS */          {object *p=vs_top;
1638  static void LnkT141(ptr) object *ptr;{ call_or_link_closure(VV[141],(void **)(void *)&Lnk141,(void **)(void *)&Lclptr141);} /* METHOD-COMBINATION-OPTIONS */           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1639  static void LnkT140(ptr) object *ptr;{ call_or_link_closure(VV[140],(void **)(void *)&Lnk140,(void **)(void *)&Lclptr140);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */          V295=(base[0]);
1640  static void LnkT139(ptr) object *ptr;{ call_or_link_closure(VV[139],(void **)(void *)&Lnk139,(void **)(void *)&Lclptr139);} /* SHORT-COMBINATION-OPERATOR */          vs_top=sup;
1641  static void LnkT138(ptr) object *ptr;{ call_or_link_closure(VV[138],(void **)(void *)&Lnk138,(void **)(void *)&Lclptr138);} /* METHOD-COMBINATION-TYPE */          if((base0[1])==Cnil){
1642  static void LnkT135(ptr) object *ptr;{ call_or_link_closure(VV[135],(void **)(void *)&Lnk135,(void **)(void *)&Lclptr135);} /* MAKE-INSTANCE */          goto T596;}
1643  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* GET-METHOD */          if(((V295))==Cnil){
1644  static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */          goto T599;}
1645  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* FIND-CLASS */          {register object V296;
1646  static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* LOAD-TRUENAME */          object V297;
1647  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */          object V298;
1648  static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* METHOD-COMBINATION-ERROR */          object V299;
1649  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* TYPECASE-ERROR-STRING */          V296= (V295);
1650  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* STRUCTURE-SUBTYPE-P */          {object V300;
1651  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */          V300= CMPcar((V296));
1652  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */          V296= CMPcdr((V296));
1653            V297= (V300);}
1654            {object V301;
1655            V301= CMPcar((V296));
1656            V296= CMPcdr((V296));
1657            V298= (V301);}
1658            {object V302;
1659            V302= CMPcar((V296));
1660            V296= CMPcdr((V296));
1661            V299= (V302);}
1662            base[4]= base0[1];
1663            base[5]= VV[2];
1664            vs_top=(vs_base=base+4)+2;
1665            (void) (*Lnk173)();
1666            vs_top=sup;
1667            if((vs_base[0])==Cnil){
1668            goto T616;}
1669            base[4]= STREF(object,base0[1],0);
1670            base[5]= STREF(object,base0[1],4);
1671            base[6]= STREF(object,base0[1],8);
1672            base[7]= (V297);
1673            base[8]= (V298);
1674            base[9]= (V299);
1675            vs_top=(vs_base=base+5)+5;
1676            {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1677                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1678                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1679                   else super_funcall_no_event(_funobj);}
1680            return;
1681            goto T616;
1682    T616:;
1683            {register object V304;
1684            V304= base0[1];
1685            base[4]= (V304);
1686            base[5]= VV[3];
1687            vs_top=(vs_base=base+4)+2;
1688            (void) (*Lnk173)();
1689            vs_top=sup;
1690            if((vs_base[0])==Cnil){
1691            goto T627;}
1692            {object V305;
1693            object V306;
1694            register object V307;
1695            V305= STREF(object,base0[1],0);
1696            V306= list(3,(V297),(V298),(V299));
1697            V307= STREF(object,base0[1],4);
1698            if(((V307))==Cnil){
1699            goto T635;}
1700            if((CMPcdr((V307)))!=Cnil){
1701            goto T635;}
1702            base[4]= (V306);
1703            base[5]= CMPcar((V307));
1704            vs_top=(vs_base=base+4)+2;
1705            {object _funobj = (V305);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1706                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1707                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1708                   else super_funcall_no_event(_funobj);}
1709            return;
1710            goto T635;
1711    T635:;
1712            base[4]= (V305);
1713            base[5]= (V306);
1714            {object V308;
1715            V308= (V307);
1716             vs_top=base+6;
1717             while(V308!=Cnil)
1718             {vs_push((V308)->c.c_car);V308=(V308)->c.c_cdr;}
1719            vs_base=base+5;}
1720            {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1721                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1722                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1723                   else super_funcall_no_event(_funobj);}
1724            return;}
1725            goto T627;
1726    T627:;
1727            base[4]= (V304);
1728            vs_top=(vs_base=base+4)+1;
1729            Lfunctionp();
1730            vs_top=sup;
1731            if((vs_base[0])==Cnil){
1732            goto T645;}
1733            base[4]= (V297);
1734            base[5]= (V298);
1735            base[6]= (V299);
1736            vs_top=(vs_base=base+4)+3;
1737            {object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1738                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1739                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1740                   else super_funcall_no_event(_funobj);}
1741            return;
1742            goto T645;
1743    T645:;
1744            base[4]= VV[4];
1745            base[5]= VV[5];
1746            base[6]= VV[6];
1747            base[7]= VV[7];
1748            base[8]= base0[1];
1749            base[9]= VV[8];
1750            base[10]= VV[9];
1751            base[11]= VV[10];
1752            base[12]= VV[11];
1753            vs_top=(vs_base=base+4)+9;
1754            (void) (*Lnk174)();
1755            return;}}
1756            goto T599;
1757    T599:;
1758            base[1]= base0[1];
1759            base[2]= VV[2];
1760            vs_top=(vs_base=base+1)+2;
1761            (void) (*Lnk173)();
1762            vs_top=sup;
1763            if((vs_base[0])==Cnil){
1764            goto T662;}
1765            base[1]= STREF(object,base0[1],0);
1766            base[2]= STREF(object,base0[1],4);
1767            base[3]= STREF(object,base0[1],8);
1768            base[4]= base0[2];
1769            base[5]= base0[3];
1770            base[6]= base0[4];
1771            vs_top=(vs_base=base+2)+5;
1772            {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1773                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1774                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1775                   else super_funcall_no_event(_funobj);}
1776            return;
1777            goto T662;
1778    T662:;
1779            {register object V310;
1780            V310= base0[1];
1781            base[1]= (V310);
1782            base[2]= VV[3];
1783            vs_top=(vs_base=base+1)+2;
1784            (void) (*Lnk173)();
1785            vs_top=sup;
1786            if((vs_base[0])==Cnil){
1787            goto T673;}
1788            {object V311;
1789            object V312;
1790            register object V313;
1791            V311= STREF(object,base0[1],0);
1792            V312= list(3,base0[2],base0[3],base0[4]);
1793            V313= STREF(object,base0[1],4);
1794            if(((V313))==Cnil){
1795            goto T681;}
1796            if((CMPcdr((V313)))!=Cnil){
1797            goto T681;}
1798            base[1]= (V312);
1799            base[2]= CMPcar((V313));
1800            vs_top=(vs_base=base+1)+2;
1801            {object _funobj = (V311);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1802                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1803                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1804                   else super_funcall_no_event(_funobj);}
1805            return;
1806            goto T681;
1807    T681:;
1808            base[1]= (V311);
1809            base[2]= (V312);
1810            {object V314;
1811            V314= (V313);
1812             vs_top=base+3;
1813             while(V314!=Cnil)
1814             {vs_push((V314)->c.c_car);V314=(V314)->c.c_cdr;}
1815            vs_base=base+2;}
1816            {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1817                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1818                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1819                   else super_funcall_no_event(_funobj);}
1820            return;}
1821            goto T673;
1822    T673:;
1823            base[1]= (V310);
1824            vs_top=(vs_base=base+1)+1;
1825            Lfunctionp();
1826            vs_top=sup;
1827            if((vs_base[0])==Cnil){
1828            goto T691;}
1829            base[1]= base0[2];
1830            base[2]= base0[3];
1831            base[3]= base0[4];
1832            vs_top=(vs_base=base+1)+3;
1833            {object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1834                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1835                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1836                   else super_funcall_no_event(_funobj);}
1837            return;
1838            goto T691;
1839    T691:;
1840            base[1]= VV[4];
1841            base[2]= VV[5];
1842            base[3]= VV[6];
1843            base[4]= VV[7];
1844            base[5]= base0[1];
1845            base[6]= VV[8];
1846            base[7]= VV[12];
1847            base[8]= VV[10];
1848            base[9]= VV[13];
1849            vs_top=(vs_base=base+1)+9;
1850            (void) (*Lnk174)();
1851            return;}
1852            goto T596;
1853    T596:;
1854            base[1]= VV[14];
1855            base[2]= base0[2];
1856            base[3]= base0[3];
1857            base[4]= base0[4];
1858            vs_top=(vs_base=base+1)+4;
1859            (void) (*Lnk175)();
1860            return;
1861            }
1862    }
1863    static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* CALL-NO-NEXT-METHOD */
1864    static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* ERROR */
1865    static void LnkT173(){ call_or_link(VV[173],(void **)(void *)&Lnk173);} /* STRUCTURE-SUBTYPE-P */
1866    static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* MAKE-SHORT-METHOD-COMBINATION */
1867    static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* INVALID-METHOD-ERROR */
1868    static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* ASSERT-REPORT */
1869    static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* LOOP-FINISH */
1870    static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* RESTART-CASE */
1871    static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* CONTINUE */
1872    static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* SIMPLE-ASSERTION-FAILURE */
1873    static object  LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */
1874    static object  LnkTLI162(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[162],(void **)(void *)&LnkLI162,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */
1875    static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* PARSE-METHOD-GROUP-SPECIFIER */
1876    static object  LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[160],(void **)(void *)&LnkLI160,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */
1877    static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */
1878    static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* EXTRACT-DECLARATIONS */
1879    static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */
1880    static void LnkT156(ptr) object *ptr;{ call_or_link_closure(VV[156],(void **)(void *)&Lnk156,(void **)(void *)&Lclptr156);} /* METHOD-QUALIFIERS */
1881    static void LnkT155(ptr) object *ptr;{ call_or_link_closure(VV[155],(void **)(void *)&Lnk155,(void **)(void *)&Lclptr155);} /* METHOD-COMBINATION-OPTIONS */
1882    static void LnkT154(ptr) object *ptr;{ call_or_link_closure(VV[154],(void **)(void *)&Lnk154,(void **)(void *)&Lclptr154);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */
1883    static void LnkT153(ptr) object *ptr;{ call_or_link_closure(VV[153],(void **)(void *)&Lnk153,(void **)(void *)&Lclptr153);} /* SHORT-COMBINATION-OPERATOR */
1884    static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* METHOD-COMBINATION-TYPE */
1885    static void LnkT149(ptr) object *ptr;{ call_or_link_closure(VV[149],(void **)(void *)&Lnk149,(void **)(void *)&Lclptr149);} /* MAKE-INSTANCE */
1886    static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* GET-METHOD */
1887    static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */
1888    static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
1889    static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* LOAD-TRUENAME */
1890    static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
1891    static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* METHOD-COMBINATION-ERROR */
1892    static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */
1893    static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */
1894    
1895  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1896  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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