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

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

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