/[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.3 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 133  static void L5() Line 133  static void L5()
133          V29= vs_base[0];          V29= vs_base[0];
134          V32= (VFUN_NARGS=1,(*(LnkLI122))(VV[25]));          V32= (VFUN_NARGS=1,(*(LnkLI122))(VV[25]));
135          V33= (*(LnkLI123))((V28));          V33= (*(LnkLI123))((V28));
136          V30= list(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(VV[26]->s.s_dbind));          V34 = (VV[26]->s.s_dbind);
137          V34= (VV[125]->s.s_gfdef);          V30= list(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,V34);
138          V31= (VFUN_NARGS=4,(*(LnkLI124))(V34,Cnil,(V30),Cnil));          V35= (VV[125]->s.s_gfdef);
139            V36 = (V30);
140            V31= (VFUN_NARGS=4,(*(LnkLI124))(V35,Cnil,V36,Cnil));
141          base[7]=MMcons(Cnil,base[3]);          base[7]=MMcons(Cnil,base[3]);
142          base[8]= VV[27];          base[8]= VV[27];
143          base[9]= VV[28];          base[9]= VV[28];
# Line 174  static void L6() Line 176  static void L6()
176  {register object *base=vs_base;  {register object *base=vs_base;
177          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
178          vs_check;          vs_check;
179          {object V35;          {object V37;
180          register object V36;          register object V38;
         object V37;  
         object V38;  
181          object V39;          object V39;
182          object V40;          object V40;
183            object V41;
184            object V42;
185          check_arg(6);          check_arg(6);
186          V35=(base[0]);          V37=(base[0]);
187          V36=(base[1]);          V38=(base[1]);
188          V37=(base[2]);          V39=(base[2]);
189          V38=(base[3]);          V40=(base[3]);
190          V39=(base[4]);          V41=(base[4]);
191          V40=(base[5]);          V42=(base[5]);
192          vs_top=sup;          vs_top=sup;
193          goto TTL;          goto TTL;
194  TTL:;  TTL:;
195          if(((V36))!=Cnil){          if(((V38))!=Cnil){
196          goto T59;}          goto T59;}
197          V36= VV[34];          V38= VV[34];
198          goto T57;          goto T57;
199          goto T59;          goto T59;
200  T59:;  T59:;
201          {object V41;          {object V43;
202          V41= (equal((V36),VV[35])?Ct:Cnil);          V43= (equal((V38),VV[35])?Ct:Cnil);
203          if(((V41))==Cnil){          if(((V43))==Cnil){
204          goto T64;}          goto T64;}
205          goto T57;          goto T57;
206          goto T64;          goto T64;
207  T64:;  T64:;
208          {object V42;          {object V44;
209          V42= (equal((V36),VV[36])?Ct:Cnil);          V44= (equal((V38),VV[36])?Ct:Cnil);
210          if(((V42))==Cnil){          if(((V44))==Cnil){
211          goto T68;}          goto T68;}
212          goto T57;          goto T57;
213          goto T68;          goto T68;
214  T68:;  T68:;
215          base[6]= VV[37];          base[6]= VV[37];
216          base[7]= (V35);          base[7]= (V37);
217          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
218          (void) (*Lnk118)();          (void) (*Lnk118)();
219          vs_top=sup;}}          vs_top=sup;}}
# Line 219  T68:; Line 221  T68:;
221  T57:;  T57:;
222          base[6]= VV[2];          base[6]= VV[2];
223          base[7]= VV[38];          base[7]= VV[38];
224          base[8]= (V35);          base[8]= (V37);
225          base[9]= VV[39];          base[9]= VV[39];
226          base[10]= (V36);          base[10]= (V38);
227          base[11]= VV[20];          base[11]= VV[20];
228          base[12]= (V37);          base[12]= (V39);
229          base[13]= VV[19];          base[13]= VV[19];
230          base[14]= (V38);          base[14]= (V40);
231          base[15]= VV[33];          base[15]= VV[33];
232          base[16]= (V39);          base[16]= (V41);
233          base[17]= VV[17];          base[17]= VV[17];
234          base[18]= (V40);          base[18]= (V42);
235          vs_top=(vs_base=base+6)+13;          vs_top=(vs_base=base+6)+13;
236          (void) (*Lnk126)(Lclptr126);          (void) (*Lnk126)(Lclptr126);
237          return;          return;
# Line 237  T57:; Line 239  T57:;
239  }  }
240  /*      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))   */
241    
242  static object LI7(V48,V49,V50,V51,V52)  static object LI7(V50,V51,V52,V53,V54)
243    
244  object V48;object V49;object V50;object V51;object V52;  object V50;object V51;object V52;object V53;object V54;
245  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
246          goto TTL;          goto TTL;
247  TTL:;  TTL:;
248          {object V54;          {object V56;
249          object V55;          object V57;
250          object V56;          object V58;
251          register object V57;          register object V59;
252          base[1]= (V51);          base[1]= (V53);
253          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
254          (void) (*Lnk129)(Lclptr129);          (void) (*Lnk129)(Lclptr129);
255          vs_top=sup;          vs_top=sup;
256          base[0]= vs_base[0];          base[0]= vs_base[0];
257          base[1]= (V51);          base[1]= (V53);
258          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
259          (void) (*Lnk130)(Lclptr130);          (void) (*Lnk130)(Lclptr130);
260          vs_top=sup;          vs_top=sup;
261          V54= vs_base[0];          V56= vs_base[0];
262          base[1]= (V51);          base[1]= (V53);
263          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
264          (void) (*Lnk131)(Lclptr131);          (void) (*Lnk131)(Lclptr131);
265          vs_top=sup;          vs_top=sup;
266          V55= vs_base[0];          V57= vs_base[0];
267          V56= Cnil;          V58= Cnil;
268          V57= Cnil;          V59= Cnil;
269          {register object V58;          {register object V60;
270          register object V59;          register object V61;
271          V58= (V52);          V60= (V54);
272          V59= CMPcar((V58));          V61= CMPcar((V60));
273          goto T99;          goto T99;
274  T99:;  T99:;
275          if(!(((V58))==Cnil)){          if(!(((V60))==Cnil)){
276          goto T100;}          goto T100;}
277          goto T95;          goto T95;
278          goto T100;          goto T100;
279  T100:;  T100:;
280          {register object V60;          {register object V62;
281          base[2]= (V59);          base[2]= (V61);
282          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
283          (void) (*Lnk132)(Lclptr132);          (void) (*Lnk132)(Lclptr132);
284          vs_top=sup;          vs_top=sup;
285          V60= vs_base[0];          V62= vs_base[0];
286          if(((V60))!=Cnil){          if(((V62))!=Cnil){
287          goto T108;}          goto T108;}
288          base[2]= (V59);          base[2]= (V61);
289          base[3]= VV[40];          base[3]= VV[40];
290          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
291          L8(base);          L8(base);
# Line 291  T100:; Line 293  T100:;
293          goto T104;          goto T104;
294          goto T108;          goto T108;
295  T108:;  T108:;
296          if((CMPcdr((V60)))==Cnil){          if((CMPcdr((V62)))==Cnil){
297          goto T113;}          goto T113;}
298          base[2]= (V59);          base[2]= (V61);
299          base[3]= VV[41];          base[3]= VV[41];
300          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
301          L8(base);          L8(base);
# Line 301  T108:; Line 303  T108:;
303          goto T104;          goto T104;
304          goto T113;          goto T113;
305  T113:;  T113:;
306          if(!((CMPcar((V60)))==(VV[42]))){          if(!((CMPcar((V62)))==(VV[42]))){
307          goto T118;}          goto T118;}
308          V56= make_cons(V59,(V56));          V58= make_cons(V61,(V58));
309          goto T104;          goto T104;
310          goto T118;          goto T118;
311  T118:;  T118:;
312          if(!((CMPcar((V60)))==(base[0]))){          if(!((CMPcar((V62)))==(base[0]))){
313          goto T122;}          goto T122;}
314          V57= make_cons(V59,(V57));          V59= make_cons(V61,(V59));
315          goto T104;          goto T104;
316          goto T122;          goto T122;
317  T122:;  T122:;
318          base[2]= (V59);          base[2]= (V61);
319          base[3]= VV[43];          base[3]= VV[43];
320          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
321          L8(base);          L8(base);
322          vs_top=sup;}          vs_top=sup;}
323          goto T104;          goto T104;
324  T104:;  T104:;
325          V58= CMPcdr((V58));          V60= CMPcdr((V60));
326          V59= CMPcar((V58));          V61= CMPcar((V60));
327          goto T99;}          goto T99;}
328          goto T95;          goto T95;
329  T95:;  T95:;
330          V56= nreverse((V56));          V58= nreverse((V58));
331          V57= nreverse((V57));          V59= nreverse((V59));
332          {object V63;          {object V65;
333          if((CMPcdr((V57)))!=Cnil){          if((CMPcdr((V59)))!=Cnil){
334          goto T138;}          goto T138;}
335          if(((V55))==Cnil){          if(((V57))==Cnil){
336          goto T138;}          goto T138;}
337          V63= list(3,VV[45],CMPcar((V57)),Cnil);          V65= list(3,VV[45],CMPcar((V59)),Cnil);
338          goto T136;          goto T136;
339          goto T138;          goto T138;
340  T138:;  T138:;
341          {object V65;          V66 = (V56);
342          object V66= (V57);          {object V68;
343          if(V66==Cnil){          object V69= (V59);
344          V64= Cnil;          if(V69==Cnil){
345            V67= Cnil;
346          goto T142;}          goto T142;}
347          base[1]=V65=MMcons(Cnil,Cnil);          base[1]=V68=MMcons(Cnil,Cnil);
348          goto T143;          goto T143;
349  T143:;  T143:;
350          (V65->c.c_car)= list(3,VV[45],(V66->c.c_car),Cnil);          (V68->c.c_car)= list(3,VV[45],(V69->c.c_car),Cnil);
351          if((V66=MMcdr(V66))==Cnil){          if((V69=MMcdr(V69))==Cnil){
352          V64= base[1];          V67= base[1];
353          goto T142;}          goto T142;}
354          V65=MMcdr(V65)=MMcons(Cnil,Cnil);          V68=MMcdr(V68)=MMcons(Cnil,Cnil);
355          goto T143;}          goto T143;}
356          goto T142;          goto T142;
357  T142:;  T142:;
358          V63= make_cons((V54),V64);          V65= make_cons(V66,V67);
359          goto T136;          goto T136;
360  T136:;  T136:;
361          if(((V57))!=Cnil){          if(((V59))!=Cnil){
362          goto T146;}          goto T146;}
363          V68= list(2,VV[24],base[0]);          V71= list(2,VV[24],base[0]);
364          {object V69 = list(4,VV[46],VV[47],/* INLINE-ARGS */V68,list(2,VV[24],(V50)));          {object V72 = list(4,VV[46],VV[47],/* INLINE-ARGS */V71,list(2,VV[24],(V52)));
365          VMR7(V69)}          VMR7(V72)}
366          goto T146;          goto T146;
367  T146:;  T146:;
368          if(((V56))!=Cnil){          if(((V58))!=Cnil){
369          goto T149;}          goto T149;}
370          {object V70 = (V63);          {object V73 = (V65);
371          VMR7(V70)}          VMR7(V73)}
372          goto T149;          goto T149;
373  T149:;  T149:;
374          V71= CMPcar((V56));          V74= CMPcar((V58));
375          V72= CMPcdr((V56));          V75= CMPcdr((V58));
376          V73= list(2,VV[48],(V63));          V76= list(2,VV[48],(V65));
377          V74= make_cons(/* INLINE-ARGS */V73,Cnil);          V77= make_cons(/* INLINE-ARGS */V76,Cnil);
378          {object V75 = list(3,VV[45],/* INLINE-ARGS */V71,append(/* INLINE-ARGS */V72,/* INLINE-ARGS */V74));          {object V78 = list(3,VV[45],/* INLINE-ARGS */V74,append(/* INLINE-ARGS */V75,/* INLINE-ARGS */V77));
379          VMR7(V75)}}}          VMR7(V78)}}}
380          base[0]=base[0];          base[0]=base[0];
381          return Cnil;          return Cnil;
382  }  }
# Line 390  TTL:; Line 393  TTL:;
393          base[0]= VV[49];          base[0]= VV[49];
394          base[1]= VV[3];          base[1]= VV[3];
395          base[2]= VV[50];          base[2]= VV[50];
396          V76= listA(9,VV[5],VV[51],VV[7],VV[52],VV[9],Cnil,VV[10],VV[53],Cnil);          V79= listA(9,VV[5],VV[51],VV[7],VV[52],VV[9],Cnil,VV[10],VV[53],Cnil);
397          base[3]= make_cons(/* INLINE-ARGS */V76,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V79,Cnil);
398          base[4]= Cnil;          base[4]= Cnil;
399          base[5]= Cnil;          base[5]= Cnil;
400          symlispcall(VV[119],base+0,6);          symlispcall(VV[119],base+0,6);
# Line 399  TTL:; Line 402  TTL:;
402  }  }
403  /*      local entry for function EXPAND-LONG-DEFCOMBIN  */  /*      local entry for function EXPAND-LONG-DEFCOMBIN  */
404    
405  static object LI10(V78)  static object LI10(V81)
406    
407  register object V78;  register object V81;
408  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
409          goto TTL;          goto TTL;
410  TTL:;  TTL:;
411          {object V79;          {object V82;
         object V80;  
         object V81;  
         register object V82;  
412          object V83;          object V83;
413          object V84;          object V84;
414          V79= CMPcadr((V78));          register object V85;
415          V80= CMPcaddr((V78));          object V86;
416          V81= CMPcadddr((V78));          object V87;
417          V82= CMPcddddr((V78));          V82= CMPcadr((V81));
418          V83= Cnil;          V83= CMPcaddr((V81));
419          V84= Cnil;          V84= CMPcadddr((V81));
420          if(!(type_of(CMPcar((V82)))==t_cons)){          V85= CMPcddddr((V81));
421            V86= Cnil;
422            V87= Cnil;
423            if(!(type_of(CMPcar((V85)))==t_cons)){
424          goto T161;}          goto T161;}
425          if(!((CMPcaar((V82)))==(VV[54]))){          if(!((CMPcaar((V85)))==(VV[54]))){
426          goto T161;}          goto T161;}
427          {object V86;          {object V89;
428          V86= CMPcar((V82));          V89= CMPcar((V85));
429          V82= CMPcdr((V82));          V85= CMPcdr((V85));
430          V85= (V86);}          V88= (V89);}
431          V83= CMPcdr(V85);          V86= CMPcdr(V88);
432          goto T161;          goto T161;
433  T161:;  T161:;
434          if(!(type_of(CMPcar((V82)))==t_cons)){          if(!(type_of(CMPcar((V85)))==t_cons)){
435          goto T171;}          goto T171;}
436          if(!((CMPcaar((V82)))==(VV[55]))){          if(!((CMPcaar((V85)))==(VV[55]))){
437          goto T171;}          goto T171;}
438          {object V88;          {object V91;
439          V88= CMPcar((V82));          V91= CMPcar((V85));
440          V82= CMPcdr((V82));          V85= CMPcdr((V85));
441          V87= (V88);}          V90= (V91);}
442          V84= CMPcadr(V87);          V87= CMPcadr(V90);
443          goto T171;          goto T171;
444  T171:;  T171:;
445          {object V89;          {object V92;
446          object V90;          object V93;
447          base[0]= (V79);          base[0]= (V82);
448          base[1]= (V80);          base[1]= (V83);
449          base[2]= (V81);          base[2]= (V84);
450          base[3]= (V83);          base[3]= (V86);
451          base[4]= (V84);          base[4]= (V87);
452          base[5]= (V82);          base[5]= (V85);
453          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
454          (void) (*Lnk133)();          (void) (*Lnk133)();
455          if(vs_base>=vs_top){vs_top=sup;goto T188;}          if(vs_base>=vs_top){vs_top=sup;goto T188;}
456          V89= vs_base[0];          V92= vs_base[0];
457          vs_base++;          vs_base++;
458          if(vs_base>=vs_top){vs_top=sup;goto T189;}          if(vs_base>=vs_top){vs_top=sup;goto T189;}
459          V90= vs_base[0];          V93= vs_base[0];
460          vs_top=sup;          vs_top=sup;
461          goto T190;          goto T190;
462          goto T188;          goto T188;
463  T188:;  T188:;
464          V89= Cnil;          V92= Cnil;
465          goto T189;          goto T189;
466  T189:;  T189:;
467          V90= Cnil;          V93= Cnil;
468          goto T190;          goto T190;
469  T190:;  T190:;
470          V91= list(2,VV[21],(V79));          V94= list(2,VV[21],(V82));
471          V92= list(2,VV[24],(V79));          V95= list(2,VV[24],(V82));
472          V93= list(2,VV[24],(V89));          V96= list(2,VV[24],(V92));
473          V94= list(4,VV[57],/* INLINE-ARGS */V92,/* INLINE-ARGS */V93,list(2,VV[51],(V90)));          V97= list(4,VV[57],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,list(2,VV[51],(V93)));
474          {object V95 = (*(LnkLI120))(/* INLINE-ARGS */V91,VV[56],/* INLINE-ARGS */V94);          {object V98 = (*(LnkLI120))(/* INLINE-ARGS */V94,VV[56],/* INLINE-ARGS */V97);
475          VMR9(V95)}}}          VMR9(V98)}}}
476          base[0]=base[0];          base[0]=base[0];
477          return Cnil;          return Cnil;
478  }  }
# Line 479  static void L11() Line 482  static void L11()
482  {register object *base=vs_base;  {register object *base=vs_base;
483          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
484          vs_check;          vs_check;
485          {object V96;          {object V99;
486          object V97;          object V100;
487          check_arg(3);          check_arg(3);
488          V96=(base[0]);          V99=(base[0]);
489          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
490          V97=(base[2]);          V100=(base[2]);
491          vs_top=sup;          vs_top=sup;
492          {object V98;          {object V101;
493          object V99;          object V102;
494          object V100;          object V103;
495          V101= (VFUN_NARGS=1,(*(LnkLI122))(VV[25]));          V104= (VFUN_NARGS=1,(*(LnkLI122))(VV[25]));
496          V102= (*(LnkLI123))((V96));          V105= (*(LnkLI123))((V99));
497          V98= list(3,/* INLINE-ARGS */V101,/* INLINE-ARGS */V102,(VV[26]->s.s_dbind));          V106 = (VV[26]->s.s_dbind);
498          V103= (VV[125]->s.s_gfdef);          V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,V106);
499          V99= (VFUN_NARGS=4,(*(LnkLI124))(V103,Cnil,(V98),Cnil));          V107= (VV[125]->s.s_gfdef);
500            V108 = (V101);
501            V102= (VFUN_NARGS=4,(*(LnkLI124))(V107,Cnil,V108,Cnil));
502          base[6]= VV[27];          base[6]= VV[27];
503          base[7]= VV[28];          base[7]= VV[28];
504          base[8]= Cnil;          base[8]= Cnil;
505          base[9]= VV[29];          base[9]= VV[29];
506          base[10]= (V98);          base[10]= (V101);
507          base[11]= VV[30];          base[11]= VV[30];
508          base[12]= VV[58];          base[12]= VV[58];
509          base[13]= VV[32];          base[13]= VV[32];
510          base[14]=          base[14]=
511          make_cclosure_new(LC21,Cnil,base[1],Cdata);          make_cclosure_new(LC21,Cnil,base[1],Cdata);
512          base[15]= VV[33];          base[15]= VV[33];
513          V104= list(2,VV[21],(V96));          V109= list(2,VV[21],(V99));
514          vs_base=vs_top;          vs_base=vs_top;
515          (void) (*Lnk121)();          (void) (*Lnk121)();
516          vs_top=sup;          vs_top=sup;
517          V105= vs_base[0];          V110= vs_base[0];
518          base[16]= list(2,/* INLINE-ARGS */V104,V105);          base[16]= list(2,/* INLINE-ARGS */V109,V110);
519          vs_top=(vs_base=base+6)+11;          vs_top=(vs_base=base+6)+11;
520          (void) (*Lnk126)(Lclptr126);          (void) (*Lnk126)(Lclptr126);
521          vs_top=sup;          vs_top=sup;
522          V100= vs_base[0];          V103= vs_base[0];
523          {object V107;          {object V112;
524          V107= (VV[59]->s.s_dbind);          V112= (VV[59]->s.s_dbind);
525          base[6]= V96;          base[6]= V99;
526          base[7]= (V107);          base[7]= (V112);
527          base[8]= V97;          base[8]= V100;
528          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
529          siLhash_set();          siLhash_set();
530          vs_top=sup;}          vs_top=sup;}
531          if(((V99))==Cnil){          if(((V102))==Cnil){
532          goto T212;}          goto T212;}
533          base[6]=(VV[127]->s.s_gfdef);          base[6]=(VV[127]->s.s_gfdef);
534          base[7]= (VV[125]->s.s_gfdef);          base[7]= (VV[125]->s.s_gfdef);
535          base[8]= (V99);          base[8]= (V102);
536          (void)simple_lispcall(base+6,2);          (void)simple_lispcall(base+6,2);
537          goto T212;          goto T212;
538  T212:;  T212:;
539          base[6]=(VV[128]->s.s_gfdef);          base[6]=(VV[128]->s.s_gfdef);
540          base[7]= (VV[125]->s.s_gfdef);          base[7]= (VV[125]->s.s_gfdef);
541          base[8]= (V100);          base[8]= (V103);
542          lispcall(base+6,2);          lispcall(base+6,2);
543          return;}          return;}
544          }          }
# Line 544  static void L12() Line 549  static void L12()
549  {register object *base=vs_base;  {register object *base=vs_base;
550          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
551          vs_check;          vs_check;
552          {object V109;          {object V114;
553          object V110;          object V115;
554          object V111;          object V116;
555          object V112;          object V117;
556          object V113;          object V118;
557          check_arg(5);          check_arg(5);
558          V109=(base[0]);          V114=(base[0]);
559          V110=(base[1]);          V115=(base[1]);
560          V111=(base[2]);          V116=(base[2]);
561          V112=(base[3]);          V117=(base[3]);
562          V113=(base[4]);          V118=(base[4]);
563          vs_top=sup;          vs_top=sup;
564          goto TTL;          goto TTL;
565  TTL:;  TTL:;
566          base[7]= (V112);          base[7]= (V117);
567          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
568          (void) (*Lnk129)(Lclptr129);          (void) (*Lnk129)(Lclptr129);
569          vs_top=sup;          vs_top=sup;
# Line 568  TTL:; Line 573  TTL:;
573          Lgethash();          Lgethash();
574          vs_top=sup;          vs_top=sup;
575          base[5]= vs_base[0];          base[5]= vs_base[0];
576          base[6]= (V111);          base[6]= (V116);
577          base[7]= (V112);          base[7]= (V117);
578          base[8]= (V113);          base[8]= (V118);
579          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
580          {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))
581                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 585  static void L13() Line 590  static void L13()
590  {register object *base=vs_base;  {register object *base=vs_base;
591          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
592          vs_check;          vs_check;
593          {object V115;          {object V120;
594          object V116;          object V121;
595          object V117;          object V122;
596          object V118;          object V123;
597          object V119;          object V124;
598          object V120;          object V125;
599          check_arg(6);          check_arg(6);
600          V115=(base[0]);          V120=(base[0]);
601          V116=(base[1]);          V121=(base[1]);
602          V117=(base[2]);          V122=(base[2]);
603          V118=(base[3]);          V123=(base[3]);
604          V119=(base[4]);          V124=(base[4]);
605          V120=(base[5]);          V125=(base[5]);
606          vs_top=sup;          vs_top=sup;
607          goto TTL;          goto TTL;
608  TTL:;  TTL:;
609          {object V121;          {object V126;
610          object V122;          object V127;
611          object V123;          object V128;
612          base[6]= (V120);          base[6]= (V125);
613          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
614          (void) (*Lnk134)();          (void) (*Lnk134)();
615          if(vs_base>=vs_top){vs_top=sup;goto T232;}          if(vs_base>=vs_top){vs_top=sup;goto T232;}
616          V121= vs_base[0];          V126= vs_base[0];
617          vs_base++;          vs_base++;
618          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T233;}
619          V122= vs_base[0];          V127= vs_base[0];
620          vs_base++;          vs_base++;
621          if(vs_base>=vs_top){vs_top=sup;goto T234;}          if(vs_base>=vs_top){vs_top=sup;goto T234;}
622          V123= vs_base[0];          V128= vs_base[0];
623          vs_top=sup;          vs_top=sup;
624          goto T235;          goto T235;
625          goto T232;          goto T232;
626  T232:;  T232:;
627          V121= Cnil;          V126= Cnil;
628          goto T233;          goto T233;
629  T233:;  T233:;
630          V122= Cnil;          V127= Cnil;
631          goto T234;          goto T234;
632  T234:;  T234:;
633          V123= Cnil;          V128= Cnil;
634          goto T235;          goto T235;
635  T235:;  T235:;
636          {register object V124;          {register object V129;
637          V124= (*(LnkLI135))((V117),(V122),(V123));          V129= (*(LnkLI135))((V122),(V127),(V128));
638          if(((V119))==Cnil){          if(((V124))==Cnil){
639          goto T237;}          goto T237;}
640          {object V125;          {object V130;
641          object V127;          object V132;
642          V125= list(2,(V119),VV[60]);          V130= list(2,(V124),VV[60]);
643          V127= make_cons((V125),CMPcadr(V124));          V132= make_cons((V130),CMPcadr(V129));
644          (CMPcdr(V124))->c.c_car = (V127);          (CMPcdr(V129))->c.c_car = (V132);
645          (void)(CMPcdr(V124));}          (void)(CMPcdr(V129));}
646          goto T237;          goto T237;
647  T237:;  T237:;
648          if(((V118))==Cnil){          if(((V123))==Cnil){
649          goto T243;}          goto T243;}
650          V124= (*(LnkLI136))((V124),(V118));          V129= (*(LnkLI136))((V129),(V123));
651          goto T243;          goto T243;
652  T243:;  T243:;
653          if(((V116))==Cnil){          if(((V121))==Cnil){
654          goto T247;}          goto T247;}
655          V124= list(3,VV[61],list(2,VV[51],list(3,VV[62],(V116),(V124))),VV[63]);          V129= list(3,VV[61],list(2,VV[51],list(3,VV[62],(V121),(V129))),VV[63]);
656          goto T247;          goto T247;
657  T247:;  T247:;
658          base[6]= (V121);          base[6]= (V126);
659          base[7]= list(4,VV[62],VV[64],VV[65],list(3,VV[66],VV[67],(V124)));          base[7]= list(4,VV[62],VV[64],VV[65],list(3,VV[66],VV[67],(V129)));
660          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
661          return;}}          return;}}
662          }          }
663  }  }
664  /*      local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS   */  /*      local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS   */
665    
666  static object LI14(V131,V132,V133)  static object LI14(V136,V137,V138)
667    
668  object V131;object V132;object V133;  object V136;object V137;object V138;
669  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
670          goto TTL;          goto TTL;
671  TTL:;  TTL:;
         {object V134;  
         object V135;  
         object V136;  
         object V137;  
         object V138;  
672          {object V139;          {object V139;
673          register object V140;          object V140;
674          object V141;          object V141;
675          register object V142;          object V142;
676          object V143;          object V143;
677          register object V144;          {object V144;
678          object V145;          register object V145;
679          register object V146;          object V146;
680          object V147;          register object V147;
681          register object V148;          object V148;
682          V139= Cnil;          register object V149;
683          V140= Cnil;          object V150;
684          V141= Cnil;          register object V151;
685          V142= Cnil;          object V152;
686          V143= Cnil;          register object V153;
687          V144= Cnil;          V144= Cnil;
688          V145= Cnil;          V145= Cnil;
689          V146= Cnil;          V146= Cnil;
690          V147= Cnil;          V147= Cnil;
691          V148= Cnil;          V148= Cnil;
692          {register object V149;          V149= Cnil;
693          object V150;          V150= Cnil;
694          V149= (V131);          V151= Cnil;
695          V150= CMPcar((V149));          V152= Cnil;
696            V153= Cnil;
697            {register object V154;
698            object V155;
699            V154= (V136);
700            V155= CMPcar((V154));
701          goto T268;          goto T268;
702  T268:;  T268:;
703          if(!(((V149))==Cnil)){          if(!(((V154))==Cnil)){
704          goto T269;}          goto T269;}
705          goto T264;          goto T264;
706          goto T269;          goto T269;
707  T269:;  T269:;
708          {register object V151;          {register object V156;
709          object V152;          object V157;
710          register object V153;          register object V158;
711          register object V154;          register object V159;
712          object V155;          object V160;
713          base[1]= (V150);          base[1]= (V155);
714          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
715          (void) (*Lnk137)();          (void) (*Lnk137)();
716          if(vs_base>=vs_top){vs_top=sup;goto T276;}          if(vs_base>=vs_top){vs_top=sup;goto T276;}
717          V151= vs_base[0];          V156= vs_base[0];
718          vs_base++;          vs_base++;
719          if(vs_base>=vs_top){vs_top=sup;goto T277;}          if(vs_base>=vs_top){vs_top=sup;goto T277;}
720          V152= vs_base[0];          V157= vs_base[0];
721          vs_base++;          vs_base++;
722          if(vs_base>=vs_top){vs_top=sup;goto T278;}          if(vs_base>=vs_top){vs_top=sup;goto T278;}
723          V153= vs_base[0];          V158= vs_base[0];
724          vs_base++;          vs_base++;
725          if(vs_base>=vs_top){vs_top=sup;goto T279;}          if(vs_base>=vs_top){vs_top=sup;goto T279;}
726          V154= vs_base[0];          V159= vs_base[0];
727          vs_base++;          vs_base++;
728          if(vs_base>=vs_top){vs_top=sup;goto T280;}          if(vs_base>=vs_top){vs_top=sup;goto T280;}
729          V155= vs_base[0];          V160= vs_base[0];
730          vs_top=sup;          vs_top=sup;
731          goto T281;          goto T281;
732          goto T276;          goto T276;
733  T276:;  T276:;
734          V151= Cnil;          V156= Cnil;
735          goto T277;          goto T277;
736  T277:;  T277:;
737          V152= Cnil;          V157= Cnil;
738          goto T278;          goto T278;
739  T278:;  T278:;
740          V153= Cnil;          V158= Cnil;
741          goto T279;          goto T279;
742  T279:;  T279:;
743          V154= Cnil;          V159= Cnil;
744          goto T280;          goto T280;
745  T280:;  T280:;
746          V155= Cnil;          V160= Cnil;
747          goto T281;          goto T281;
748  T281:;  T281:;
749          {register object V156;          {register object V161;
750          vs_base=vs_top;          vs_base=vs_top;
751          Lgensym();          Lgensym();
752          vs_top=sup;          vs_top=sup;
753          V156= vs_base[0];          V161= vs_base[0];
754          if(((V139))!=Cnil){          if(((V144))!=Cnil){
755          goto T285;}          goto T285;}
756          V140= make_cons(V151,Cnil);          V145= make_cons(V156,Cnil);
757          V139= (V140);          V144= (V145);
758          goto T283;          goto T283;
759          goto T285;          goto T285;
760  T285:;  T285:;
761          V159= make_cons(V151,Cnil);          V164= make_cons(V156,Cnil);
762          ((V140))->c.c_cdr = /* INLINE-ARGS */V159;          ((V145))->c.c_cdr = /* INLINE-ARGS */V164;
763          V158= (V140);          V163= (V145);
764          V140= CMPcdr(V158);          V145= CMPcdr(V163);
765          goto T283;          goto T283;
766  T283:;  T283:;
767          if(((V141))!=Cnil){          if(((V146))!=Cnil){
768          goto T293;}          goto T293;}
769          V142= make_cons(V156,Cnil);          V147= make_cons(V161,Cnil);
770          V141= (V142);          V146= (V147);
771          goto T291;          goto T291;
772          goto T293;          goto T293;
773  T293:;  T293:;
774          V162= make_cons(V156,Cnil);          V167= make_cons(V161,Cnil);
775          ((V142))->c.c_cdr = /* INLINE-ARGS */V162;          ((V147))->c.c_cdr = /* INLINE-ARGS */V167;
776          V161= (V142);          V166= (V147);
777          V142= CMPcdr(V161);          V147= CMPcdr(V166);
778          goto T291;          goto T291;
779  T291:;  T291:;
780          {object V163;          {object V168;
781          V164= make_cons(VV[68],(V152));          V169= make_cons(VV[68],(V157));
782          V165= list(3,VV[70],(V156),VV[71]);          V170= list(3,VV[70],(V161),VV[71]);
783          V166= list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[73],list(2,VV[24],(V151)))));          V171= list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[73],list(2,VV[24],(V156)))));
784          V167= list(4,VV[69],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,list(3,VV[74],(V156),VV[71]));          V172= list(4,VV[69],/* INLINE-ARGS */V170,/* INLINE-ARGS */V171,list(3,VV[74],(V161),VV[71]));
785          V163= list(3,/* INLINE-ARGS */V164,/* INLINE-ARGS */V167,list(3,VV[75],VV[76],(V151)));          V168= list(3,/* INLINE-ARGS */V169,/* INLINE-ARGS */V172,list(3,VV[75],VV[76],(V156)));
786          if(((V143))!=Cnil){          if(((V148))!=Cnil){
787          goto T302;}          goto T302;}
788          V144= make_cons((V163),Cnil);          V149= make_cons((V168),Cnil);
789          V143= (V144);          V148= (V149);
790          goto T299;          goto T299;
791          goto T302;          goto T302;
792  T302:;  T302:;
793          V169= make_cons((V163),Cnil);          V174= make_cons((V168),Cnil);
794          ((V144))->c.c_cdr = /* INLINE-ARGS */V169;          ((V149))->c.c_cdr = /* INLINE-ARGS */V174;
795          V168= (V144);          V173= (V149);
796          V144= CMPcdr(V168);}          V149= CMPcdr(V173);}
797          goto T299;          goto T299;
798  T299:;  T299:;
799          if(((V155))==Cnil){          if(((V160))==Cnil){
800          goto T308;}          goto T308;}
801          {object V170;          {object V175;
802          V171= list(2,VV[78],(V151));          V176= list(2,VV[78],(V156));
803          V170= list(3,VV[77],/* INLINE-ARGS */V171,list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[79],list(2,VV[24],(V151))))));          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))))));
804          if(((V145))!=Cnil){          if(((V150))!=Cnil){
805          goto T313;}          goto T313;}
806          V146= make_cons((V170),Cnil);          V151= make_cons((V175),Cnil);
807          V145= (V146);          V150= (V151);
808          goto T308;          goto T308;
809          goto T313;          goto T313;
810  T313:;  T313:;
811          V173= make_cons((V170),Cnil);          V178= make_cons((V175),Cnil);
812          ((V146))->c.c_cdr = /* INLINE-ARGS */V173;          ((V151))->c.c_cdr = /* INLINE-ARGS */V178;
813          V172= (V146);          V177= (V151);
814          V146= CMPcdr(V172);}          V151= CMPcdr(V177);}
815          goto T308;          goto T308;
816  T308:;  T308:;
817          goto T321;          goto T321;
818  T321:;  T321:;
819          base[1]= (V154);          base[1]= (V159);
820          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
821          Lconstantp();          Lconstantp();
822          vs_top=sup;          vs_top=sup;
823          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
824          goto T323;}{object V174;          goto T323;}{object V179;
825          V174= (V154);          V179= (V159);
826          base[1]= (V154);          base[1]= (V159);
827          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
828          Leval();          Leval();
829          vs_top=sup;          vs_top=sup;
830          V154= vs_base[0];          V159= vs_base[0];
831          if((((V174)==((V154))?Ct:Cnil))==Cnil){          V180 = (V159);
832            if((((V179)==(V180)?Ct:Cnil))==Cnil){
833          goto T322;}}          goto T322;}}
834          goto T323;          goto T323;
835  T323:;  T323:;
# Line 833  T322:; Line 839  T322:;
839          goto T321;          goto T321;
840          goto T319;          goto T319;
841  T319:;  T319:;
842          {object V175;          {object V181;
843          if(!(((V154))==(VV[80]))){          if(!(((V159))==(VV[80]))){
844          goto T333;}          goto T333;}
845          V175= list(3,VV[74],(V151),list(2,VV[81],(V151)));          V181= list(3,VV[74],(V156),list(2,VV[81],(V156)));
846          goto T331;          goto T331;
847          goto T333;          goto T333;
848  T333:;  T333:;
849          if(!(((V154))==(VV[82]))){          if(!(((V159))==(VV[82]))){
850          goto T336;}          goto T336;}
851          V175= Cnil;          V181= Cnil;
852          goto T331;          goto T331;
853          goto T336;          goto T336;
854  T336:;  T336:;
855          V175= list(4,VV[83],(V154),list(2,VV[80],list(3,VV[74],(V151),list(2,VV[81],(V151)))),VV[84]);          V181= list(4,VV[83],(V159),list(2,VV[80],list(3,VV[74],(V156),list(2,VV[81],(V156)))),VV[84]);
856          goto T331;          goto T331;
857  T331:;  T331:;
858          if(((V147))!=Cnil){          if(((V152))!=Cnil){
859          goto T339;}          goto T339;}
860          V148= make_cons((V175),Cnil);          V153= make_cons((V181),Cnil);
861          V147= (V148);          V152= (V153);
862          goto T273;          goto T273;
863          goto T339;          goto T339;
864  T339:;  T339:;
865          V177= make_cons((V175),Cnil);          V183= make_cons((V181),Cnil);
866          ((V148))->c.c_cdr = /* INLINE-ARGS */V177;          ((V153))->c.c_cdr = /* INLINE-ARGS */V183;
867          V176= (V148);          V182= (V153);
868          V148= CMPcdr(V176);}}}          V153= CMPcdr(V182);}}}
869          goto T273;          goto T273;
870  T273:;  T273:;
871          V149= CMPcdr((V149));          V154= CMPcdr((V154));
872          V150= CMPcar((V149));          V155= CMPcar((V154));
873          goto T268;}          goto T268;}
874          goto T264;          goto T264;
875  T264:;  T264:;
876          base[0]= (V139);          base[0]= (V144);
877          base[1]= (V141);          base[1]= (V146);
878          base[2]= (V143);          base[2]= (V148);
879          base[3]= (V145);          base[3]= (V150);
880          base[4]= (V147);          base[4]= (V152);
881          vs_top=(vs_base=base+0)+5;}          vs_top=(vs_base=base+0)+5;}
882          if(vs_base>=vs_top){vs_top=sup;goto T355;}          if(vs_base>=vs_top){vs_top=sup;goto T355;}
883          V134= vs_base[0];          V139= vs_base[0];
884          vs_base++;          vs_base++;
885          if(vs_base>=vs_top){vs_top=sup;goto T356;}          if(vs_base>=vs_top){vs_top=sup;goto T356;}
886          V135= vs_base[0];          V140= vs_base[0];
887          vs_base++;          vs_base++;
888          if(vs_base>=vs_top){vs_top=sup;goto T357;}          if(vs_base>=vs_top){vs_top=sup;goto T357;}
889          V136= vs_base[0];          V141= vs_base[0];
890          vs_base++;          vs_base++;
891          if(vs_base>=vs_top){vs_top=sup;goto T358;}          if(vs_base>=vs_top){vs_top=sup;goto T358;}
892          V137= vs_base[0];          V142= vs_base[0];
893          vs_base++;          vs_base++;
894          if(vs_base>=vs_top){vs_top=sup;goto T359;}          if(vs_base>=vs_top){vs_top=sup;goto T359;}
895          V138= vs_base[0];          V143= vs_base[0];
896          vs_top=sup;          vs_top=sup;
897          goto T360;          goto T360;
898          goto T355;          goto T355;
899  T355:;  T355:;
900          V134= Cnil;          V139= Cnil;
901          goto T356;          goto T356;
902  T356:;  T356:;
903          V135= Cnil;          V140= Cnil;
904          goto T357;          goto T357;
905  T357:;  T357:;
906          V136= Cnil;          V141= Cnil;
907          goto T358;          goto T358;
908  T358:;  T358:;
909          V137= Cnil;          V142= Cnil;
910          goto T359;          goto T359;
911  T359:;  T359:;
912          V138= Cnil;          V143= Cnil;
913          goto T360;          goto T360;
914  T360:;  T360:;
915          V178= append((V134),(V135));          V184= append((V139),(V140));
916          V179= list(3,VV[86],VV[87],list(4,VV[85],VV[88],VV[89],make_cons(VV[90],(V136))));          V185= list(3,VV[86],VV[87],list(4,VV[85],VV[88],VV[89],make_cons(VV[90],(V141))));
917          base[0]= (V137);          base[0]= (V142);
918          base[1]= (V138);          base[1]= (V143);
919          base[2]= (V133);          base[2]= (V138);
920          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
921          Lappend();          Lappend();
922          vs_top=sup;          vs_top=sup;
923          V180= vs_base[0];          V186= vs_base[0];
924          V181= make_cons(/* INLINE-ARGS */V179,V180);          V187= make_cons(/* INLINE-ARGS */V185,V186);
925          {object V182 = listA(3,VV[85],/* INLINE-ARGS */V178,append((V132),/* INLINE-ARGS */V181));          {object V188 = listA(3,VV[85],/* INLINE-ARGS */V184,append((V137),/* INLINE-ARGS */V187));
926          VMR13(V182)}}          VMR13(V188)}}
927          base[0]=base[0];          base[0]=base[0];
928          return Cnil;          return Cnil;
929  }  }
# Line 927  static void L15() Line 933  static void L15()
933  {register object *base=vs_base;  {register object *base=vs_base;
934          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
935          vs_check;          vs_check;
936          {register object V183;          {register object V189;
937          check_arg(1);          check_arg(1);
938          V183=(base[0]);          V189=(base[0]);
939          vs_top=sup;          vs_top=sup;
940          goto TTL;          goto TTL;
941  TTL:;  TTL:;
942          {object V184;          {object V190;
943          register object V185;          register object V191;
944          object V186;          object V192;
945          {object V187;          {object V193;
946          V187= CMPcar((V183));          V193= CMPcar((V189));
947          V183= CMPcdr((V183));          V189= CMPcdr((V189));
948          V184= (V187);}          V190= (V193);}
949          V185= Cnil;          V191= Cnil;
950          {register object V188;          {register object V194;
951          register object V189;          register object V195;
952          V188= Cnil;          V194= Cnil;
953          V189= Cnil;          V195= Cnil;
954          goto T375;          goto T375;
955  T375:;  T375:;
956          if(((V183))==Cnil){          if(((V189))==Cnil){
957          goto T377;}          goto T377;}
958          {register object x= CMPcar((V183)),V190= VV[91];          {register object x= CMPcar((V189)),V196= VV[91];
959          while(V190!=Cnil)          while(V196!=Cnil)
960          if(x==(V190->c.c_car)){          if(x==(V196->c.c_car)){
961          goto T381;          goto T381;
962          }else V190=V190->c.c_cdr;          }else V196=V196->c.c_cdr;
963          goto T378;}          goto T378;}
964          goto T381;          goto T381;
965  T381:;  T381:;
# Line 962  T377:; Line 968  T377:;
968          goto T373;          goto T373;
969          goto T378;          goto T378;
970  T378:;  T378:;
971          {register object V191;          {register object V197;
972          {object V192;          {object V198;
973          V192= CMPcar((V183));          V198= CMPcar((V189));
974          V183= CMPcdr((V183));          V189= CMPcdr((V189));
975          V191= (V192);}          V197= (V198);}
976          V185= make_cons(V191,(V185));          V191= make_cons(V197,(V191));
977          {register object V194;          {register object V200;
978          V194= (*(LnkLI138))((V184),(V191));          V200= (*(LnkLI138))((V190),(V197));
979          if(((V188))!=Cnil){          if(((V194))!=Cnil){
980          goto T390;}          goto T390;}
981          V189= make_cons((V194),Cnil);          V195= make_cons((V200),Cnil);
982          V188= (V189);          V194= (V195);
983          goto T376;          goto T376;
984          goto T390;          goto T390;
985  T390:;  T390:;
986          V196= make_cons((V194),Cnil);          V202= make_cons((V200),Cnil);
987          ((V189))->c.c_cdr = /* INLINE-ARGS */V196;          ((V195))->c.c_cdr = /* INLINE-ARGS */V202;
988          V195= (V189);          V201= (V195);
989          V189= CMPcdr(V195);}}          V195= CMPcdr(V201);}}
990          goto T376;          goto T376;
991  T376:;  T376:;
992          goto T375;          goto T375;
993          goto T373;          goto T373;
994  T373:;  T373:;
995          V186= (V188);}          V192= (V194);}
996          base[3]= (V184);          base[3]= (V190);
997          base[4]= (V186);          base[4]= (V192);
998          base[6]= (V183);          base[6]= (V189);
999          base[7]= VV[92];          base[7]= VV[92];
1000          base[8]= (*(LnkLI139))((V185));          base[8]= (*(LnkLI139))((V191));
1001          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1002          Lgetf();          Lgetf();
1003          vs_top=sup;          vs_top=sup;
1004          base[5]= vs_base[0];          base[5]= vs_base[0];
1005          base[7]= (V183);          base[7]= (V189);
1006          base[8]= VV[93];          base[8]= VV[93];
1007          base[9]= VV[80];          base[9]= VV[80];
1008          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1009          Lgetf();          Lgetf();
1010          vs_top=sup;          vs_top=sup;
1011          base[6]= vs_base[0];          base[6]= vs_base[0];
1012          base[8]= (V183);          base[8]= (V189);
1013          base[9]= VV[94];          base[9]= VV[94];
1014          base[10]= Cnil;          base[10]= Cnil;
1015          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
# Line 1016  T373:; Line 1022  T373:;
1022  }  }
1023  /*      local entry for function PARSE-QUALIFIER-PATTERN        */  /*      local entry for function PARSE-QUALIFIER-PATTERN        */
1024    
1025  static object LI16(V199,V200)  static object LI16(V205,V206)
1026    
1027  object V199;register object V200;  object V205;register object V206;
1028  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1029          goto TTL;          goto TTL;
1030  TTL:;  TTL:;
1031          if(!(((V200))==(Cnil))){          if(!(((V206))==(Cnil))){
1032          goto T412;}          goto T412;}
1033          {object V201 = VV[95];          {object V207 = VV[95];
1034          VMR15(V201)}          VMR15(V207)}
1035          goto T412;          goto T412;
1036  T412:;  T412:;
1037          if(!(((V200))==(VV[96]))){          if(!(((V206))==(VV[96]))){
1038          goto T415;}          goto T415;}
1039          {object V202 = Ct;          {object V208 = Ct;
1040          VMR15(V202)}          VMR15(V208)}
1041          goto T415;          goto T415;
1042  T415:;  T415:;
1043          if(!(type_of((V200))==t_symbol)){          if(!(type_of((V206))==t_symbol)){
1044          goto T418;}          goto T418;}
1045          {object V203 = list(2,(V200),VV[97]);          {object V209 = list(2,(V206),VV[97]);
1046          VMR15(V203)}          VMR15(V209)}
1047          goto T418;          goto T418;
1048  T418:;  T418:;
1049          if(!(type_of((V200))==t_cons||((V200))==Cnil)){          if(!(type_of((V206))==t_cons||((V206))==Cnil)){
1050          goto T421;}          goto T421;}
1051          {object V204 = list(3,VV[98],list(2,VV[24],(V200)),VV[97]);          {object V210 = list(3,VV[98],list(2,VV[24],(V206)),VV[97]);
1052          VMR15(V204)}          VMR15(V210)}
1053          goto T421;          goto T421;
1054  T421:;  T421:;
1055          base[0]= VV[99];          base[0]= VV[99];
1056          base[1]= (V199);          base[1]= (V205);
1057          base[2]= (V200);          base[2]= (V206);
1058          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1059          Lerror();          Lerror();
1060          vs_top=sup;          vs_top=sup;
1061          {object V205 = vs_base[0];          {object V211 = vs_base[0];
1062          VMR15(V205)}          VMR15(V211)}
1063          base[0]=base[0];          base[0]=base[0];
1064          return Cnil;          return Cnil;
1065  }  }
1066  /*      local entry for function QUALIFIER-CHECK-RUNTIME        */  /*      local entry for function QUALIFIER-CHECK-RUNTIME        */
1067    
1068  static object LI17(V208,V209)  static object LI17(V214,V215)
1069    
1070  register object V208;register object V209;  register object V214;register object V215;
1071  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1072          goto TTL;          goto TTL;
1073  TTL:;  TTL:;
1074          goto T427;          goto T427;
1075  T427:;  T427:;
1076          if(((V208))!=Cnil){          if(((V214))!=Cnil){
1077          goto T430;}          goto T430;}
1078          if(((V209))!=Cnil){          if(((V215))!=Cnil){
1079          goto T430;}          goto T430;}
1080          {object V210 = Ct;          {object V216 = Ct;
1081          VMR16(V210)}          VMR16(V216)}
1082          goto T430;          goto T430;
1083  T430:;  T430:;
1084          if(!(((V208))==(VV[96]))){          if(!(((V214))==(VV[96]))){
1085          goto T435;}          goto T435;}
1086          {object V211 = Ct;          {object V217 = Ct;
1087          VMR16(V211)}          VMR16(V217)}
1088          goto T435;          goto T435;
1089  T435:;  T435:;
1090          if(((V208))==Cnil){          if(((V214))==Cnil){
1091          goto T438;}          goto T438;}
1092          if(((V209))==Cnil){          if(((V215))==Cnil){
1093          goto T438;}          goto T438;}
1094          if(!((CMPcar((V208)))==(CMPcar((V209))))){          if(!((CMPcar((V214)))==(CMPcar((V215))))){
1095          goto T438;}          goto T438;}
1096          {register object V212;          {register object V218;
1097          V212= CMPcar((V208));          V218= CMPcar((V214));
1098          V208= CMPcdr((V208));}          V214= CMPcdr((V214));}
1099          {register object V213;          {register object V219;
1100          V213= CMPcar((V209));          V219= CMPcar((V215));
1101          V209= CMPcdr((V209));          V215= CMPcdr((V215));
1102          goto T428;}          goto T428;}
1103          goto T438;          goto T438;
1104  T438:;  T438:;
1105          {object V214 = Cnil;          {object V220 = Cnil;
1106          VMR16(V214)}          VMR16(V220)}
1107          goto T428;          goto T428;
1108  T428:;  T428:;
1109          goto T427;          goto T427;
# Line 1105  T428:; Line 1111  T428:;
1111  }  }
1112  /*      local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION  */  /*      local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION  */
1113    
1114  static object LI18(V216)  static object LI18(V222)
1115    
1116  register object V216;  register object V222;
1117  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1118          goto TTL;          goto TTL;
1119  TTL:;  TTL:;
1120          if((CMPcdr((V216)))==Cnil){          if((CMPcdr((V222)))==Cnil){
1121          goto T453;}          goto T453;}
1122          base[0]= Cnil;          base[0]= Cnil;
1123          base[1]= VV[100];          base[1]= VV[100];
1124          base[3]= (V216);          base[3]= (V222);
1125          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1126          Lbutlast();          Lbutlast();
1127          vs_top=sup;          vs_top=sup;
1128          base[2]= vs_base[0];          base[2]= vs_base[0];
1129          base[4]= (V216);          base[4]= (V222);
1130          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1131          Llast();          Llast();
1132          vs_top=sup;          vs_top=sup;
1133          V217= vs_base[0];          V223= vs_base[0];
1134          base[3]= CMPcar(V217);          base[3]= CMPcar(V223);
1135          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1136          Lformat();          Lformat();
1137          vs_top=sup;          vs_top=sup;
1138          {object V218 = vs_base[0];          {object V224 = vs_base[0];
1139          VMR17(V218)}          VMR17(V224)}
1140          goto T453;          goto T453;
1141  T453:;  T453:;
1142          base[0]= Cnil;          base[0]= Cnil;
1143          base[1]= VV[101];          base[1]= VV[101];
1144          base[2]= CMPcar((V216));          base[2]= CMPcar((V222));
1145          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1146          Lformat();          Lformat();
1147          vs_top=sup;          vs_top=sup;
1148          {object V219 = vs_base[0];          {object V225 = vs_base[0];
1149          VMR17(V219)}          VMR17(V225)}
1150          base[0]=base[0];          base[0]=base[0];
1151          return Cnil;          return Cnil;
1152  }  }
1153  /*      local entry for function DEAL-WITH-ARGUMENTS-OPTION     */  /*      local entry for function DEAL-WITH-ARGUMENTS-OPTION     */
1154    
1155  static object LI19(V222,V223)  static object LI19(V228,V229)
1156    
1157  object V222;object V223;  object V228;object V229;
1158  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1159          goto TTL;          goto TTL;
1160  TTL:;  TTL:;
1161          {object V224;          {object V230;
1162          object V225;          object V231;
1163          {register object V226;          {register object V232;
1164          register object V227;          register object V233;
1165          V226= Cnil;          V232= Cnil;
1166          V227= Cnil;          V233= Cnil;
1167          {register object V228;          {register object V234;
1168          register object V229;          register object V235;
1169          V228= (V223);          V234= (V229);
1170          V229= CMPcar((V228));          V235= CMPcar((V234));
1171          goto T472;          goto T472;
1172  T472:;  T472:;
1173          if(!(((V228))==Cnil)){          if(!(((V234))==Cnil)){
1174          goto T473;}          goto T473;}
1175          goto T468;          goto T468;
1176          goto T473;          goto T473;
1177  T473:;  T473:;
1178          {register object x= (V229),V230= VV[102];          {register object x= (V235),V236= VV[102];
1179          while(V230!=Cnil)          while(V236!=Cnil)
1180          if(x==(V230->c.c_car)){          if(x==(V236->c.c_car)){
1181          goto T480;          goto T480;
1182          }else V230=V230->c.c_cdr;          }else V236=V236->c.c_cdr;
1183          goto T479;}          goto T479;}
1184          goto T480;          goto T480;
1185  T480:;  T480:;
1186          if(((V226))!=Cnil){          if(((V232))!=Cnil){
1187          goto T482;}          goto T482;}
1188          V227= make_cons(V229,Cnil);          V233= make_cons(V235,Cnil);
1189          V226= (V227);          V232= (V233);
1190          goto T477;          goto T477;
1191          goto T482;          goto T482;
1192  T482:;  T482:;
1193          V233= make_cons(V229,Cnil);          V239= make_cons(V235,Cnil);
1194          ((V227))->c.c_cdr = /* INLINE-ARGS */V233;          ((V233))->c.c_cdr = /* INLINE-ARGS */V239;
1195          V232= (V227);          V238= (V233);
1196          V227= CMPcdr(V232);          V233= CMPcdr(V238);
1197          goto T477;          goto T477;
1198          goto T479;          goto T479;
1199  T479:;  T479:;
1200          {object V234;          {object V240;
1201          vs_base=vs_top;          vs_base=vs_top;
1202          Lgensym();          Lgensym();
1203          vs_top=sup;          vs_top=sup;
1204          V234= vs_base[0];          V240= vs_base[0];
1205          if(((V226))!=Cnil){          if(((V232))!=Cnil){
1206          goto T490;}          goto T490;}
1207          V227= make_cons((V234),Cnil);          V233= make_cons((V240),Cnil);
1208          V226= (V227);          V232= (V233);
1209          goto T477;          goto T477;
1210          goto T490;          goto T490;
1211  T490:;  T490:;
1212          V236= make_cons((V234),Cnil);          V242= make_cons((V240),Cnil);
1213          ((V227))->c.c_cdr = /* INLINE-ARGS */V236;          ((V233))->c.c_cdr = /* INLINE-ARGS */V242;
1214          V235= (V227);          V241= (V233);
1215          V227= CMPcdr(V235);}          V233= CMPcdr(V241);}
1216          goto T477;          goto T477;
1217  T477:;  T477:;
1218          V228= CMPcdr((V228));          V234= CMPcdr((V234));
1219          V229= CMPcar((V228));          V235= CMPcar((V234));
1220          goto T472;}          goto T472;}
1221          goto T468;          goto T468;
1222  T468:;  T468:;
1223          V224= (V226);}          V230= (V232);}
1224          {object V237;          {object V243;
1225          register object V238;          register object V244;
1226          V237= Cnil;          V243= Cnil;
1227          V238= Cnil;          V244= Cnil;
1228          {register object V239;          {register object V245;
1229          register object V240;          register object V246;
1230          register object V241;          register object V247;
1231          object V242;          object V248;
1232          V239= (V223);          V245= (V229);
1233          V240= Cnil;          V246= Cnil;
1234          V241= (V224);          V247= (V230);
1235          V242= Cnil;          V248= Cnil;
1236          goto T510;          goto T510;
1237  T510:;  T510:;
1238          {object V243;          {object V249;
1239          if(!(((V239))==Cnil)){          if(!(((V245))==Cnil)){
1240          goto T516;}          goto T516;}
1241          goto T504;          goto T504;
1242          goto T516;          goto T516;
1243  T516:;  T516:;
1244          V243= CMPcar((V239));          V249= CMPcar((V245));
1245          V239= CMPcdr((V239));          V245= CMPcdr((V245));
1246          V240= (V243);}          V246= (V249);}
1247          {object V244;          {object V250;
1248          if(!(((V241))==Cnil)){          if(!(((V247))==Cnil)){
1249          goto T524;}          goto T524;}
1250          goto T504;          goto T504;
1251          goto T524;          goto T524;
1252  T524:;  T524:;
1253          V244= CMPcar((V241));          V250= CMPcar((V247));
1254          V241= CMPcdr((V241));          V247= CMPcdr((V247));
1255          V242= (V244);}          V248= (V250);}
1256          {register object x= (V240),V245= VV[102];          {register object x= (V246),V251= VV[102];
1257          while(V245!=Cnil)          while(V251!=Cnil)
1258          if(x==(V245->c.c_car)){          if(x==(V251->c.c_car)){
1259          goto T511;          goto T511;
1260          }else V245=V245->c.c_cdr;}          }else V251=V251->c.c_cdr;}
1261          {object V246;          {object V252;
1262          V246= list(2,(V240),list(2,VV[24],(V242)));          V252= list(2,(V246),list(2,VV[24],(V248)));
1263          if(((V237))!=Cnil){          if(((V243))!=Cnil){
1264          goto T532;}          goto T532;}
1265          V238= make_cons((V246),Cnil);          V244= make_cons((V252),Cnil);
1266          V237= (V238);          V243= (V244);
1267          goto T511;          goto T511;
1268          goto T532;          goto T532;
1269  T532:;  T532:;
1270          V248= make_cons((V246),Cnil);          V254= make_cons((V252),Cnil);
1271          ((V238))->c.c_cdr = /* INLINE-ARGS */V248;          ((V244))->c.c_cdr = /* INLINE-ARGS */V254;
1272          V247= (V238);          V253= (V244);
1273          V238= CMPcdr(V247);}          V244= CMPcdr(V253);}
1274          goto T511;          goto T511;
1275  T511:;  T511:;
1276          goto T510;}          goto T510;}
1277          goto T504;          goto T504;
1278  T504:;  T504:;
1279          V225= (V237);}          V231= (V243);}
1280          {object V250;          {object V256;
1281          V250= append((V225),CMPcadr((V222)));          V256= append((V231),CMPcadr((V228)));
1282          (CMPcdr(V222))->c.c_car = (V250);          (CMPcdr(V228))->c.c_car = (V256);
1283          (void)(CMPcdr(V222));}          (void)(CMPcdr(V228));}
1284          {object V251;          {object V257;
1285          {register object x= VV[103],V252= (V224);          {register object x= VV[103],V258= (V230);
1286          while(V252!=Cnil)          while(V258!=Cnil)
1287          if(x==(V252->c.c_car)){          if(x==(V258->c.c_car)){
1288          V251= V252;          V257= V258;
1289          goto T543;          goto T543;
1290          }else V252=V252->c.c_cdr;          }else V258=V258->c.c_cdr;
1291          V251= Cnil;}          V257= Cnil;}
1292          goto T543;          goto T543;
1293  T543:;  T543:;
1294          if(((V251))==Cnil){          if(((V257))==Cnil){
1295          goto T545;}          goto T545;}
1296          goto T542;          goto T542;
1297          goto T545;          goto T545;
1298  T545:;  T545:;
1299          {object V253;          {object V259;
1300          {register object x= VV[104],V254= (V224);          {register object x= VV[104],V260= (V230);
1301          while(V254!=Cnil)          while(V260!=Cnil)
1302          if(x==(V254->c.c_car)){          if(x==(V260->c.c_car)){
1303          V253= V254;          V259= V260;
1304          goto T547;          goto T547;
1305          }else V254=V254->c.c_cdr;          }else V260=V260->c.c_cdr;
1306          V253= Cnil;}          V259= Cnil;}
1307          goto T547;          goto T547;
1308  T547:;  T547:;
1309          if(((V253))==Cnil){          if(((V259))==Cnil){
1310          goto T549;}          goto T549;}
1311          goto T542;          goto T542;
1312          goto T549;          goto T549;
1313  T549:;  T549:;
1314          {register object x= VV[105],V255= (V224);          {register object x= VV[105],V261= (V230);
1315          while(V255!=Cnil)          while(V261!=Cnil)
1316          if(x==(V255->c.c_car)){          if(x==(V261->c.c_car)){
1317          goto T553;          goto T553;
1318          }else V255=V255->c.c_cdr;          }else V261=V261->c.c_cdr;
1319          goto T552;}          goto T552;}
1320          goto T553;          goto T553;
1321  T553:;  T553:;
1322          V224= append((V224),VV[106]);          V230= append((V230),VV[106]);
1323          goto T542;          goto T542;
1324          goto T552;          goto T552;
1325  T552:;  T552:;
1326          V224= append((V224),VV[107]);}}          V230= append((V230),VV[107]);}}
1327          goto T542;          goto T542;
1328  T542:;  T542:;
1329          V256= list(2,VV[108],(V222));          V262= list(2,VV[108],(V228));
1330          V257= make_cons(/* INLINE-ARGS */V256,Cnil);          V263= make_cons(/* INLINE-ARGS */V262,Cnil);
1331          V258= list(2,VV[24],(V224));          V264= list(2,VV[24],(V230));
1332          {register object x= VV[113],V260= (V224);          {register object x= VV[113],V266= (V230);
1333          while(V260!=Cnil)          while(V266!=Cnil)
1334          if(x==(V260->c.c_car)){          if(x==(V266->c.c_car)){
1335          goto T559;          goto T559;
1336          }else V260=V260->c.c_cdr;          }else V266=V266->c.c_cdr;
1337          goto T558;}          goto T558;}
1338          goto T559;          goto T559;
1339  T559:;  T559:;
1340          V259= VV[114];          V265= VV[114];
1341          goto T556;          goto T556;
1342          goto T558;          goto T558;
1343  T558:;  T558:;
1344          V259= Cnil;          V265= Cnil;
1345          goto T556;          goto T556;
1346  T556:;  T556:;
1347          {object V261 = list(3,VV[85],/* INLINE-ARGS */V257,list(4,VV[109],VV[110],list(3,VV[109],VV[111],list(5,VV[109],VV[112],/* INLINE-ARGS */V258,V259,VV[108])),VV[115]));          {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]));
1348          VMR18(V261)}}          VMR18(V267)}}
1349          base[0]=base[0];          base[0]=base[0];
1350          return Cnil;          return Cnil;
1351  }  }
# Line 1350  register object *base0; Line 1356  register object *base0;
1356  {       register object *base=vs_base;  {       register object *base=vs_base;
1357          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1358          vs_check;          vs_check;
1359          {object V262;          {object V268;
1360          object V263;          object V269;
1361          object V264;          object V270;
1362          check_arg(3);          check_arg(3);
1363          V262=(base[0]);          V268=(base[0]);
1364          V263=(base[1]);          V269=(base[1]);
1365          V264=(base[2]);          V270=(base[2]);
1366          vs_top=sup;          vs_top=sup;
1367          base[3]= VV[49];          base[3]= VV[49];
1368          base[4]= VV[38];          base[4]= VV[38];
1369          base[5]= (V263);          base[5]= (V269);
1370          base[6]= VV[17];          base[6]= VV[17];
1371          base[7]= (base0[0]->c.c_car);          base[7]= (base0[0]->c.c_car);
1372          base[8]= VV[39];          base[8]= VV[39];
1373          base[9]= (V264);          base[9]= (V270);
1374          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1375          (void) (*Lnk126)(Lclptr126);          (void) (*Lnk126)(Lclptr126);
1376          return;          return;
# Line 1377  register object *base0; Line 1383  register object *base0;
1383  {       register object *base=vs_base;  {       register object *base=vs_base;
1384          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1385          vs_check;          vs_check;
1386          {register object V265;          {register object V271;
1387          object V266;          object V272;
1388          check_arg(2);          check_arg(2);
1389          V265=(base[0]);          V271=(base[0]);
1390          V266=(base[1]);          V272=(base[1]);
1391          vs_top=sup;          vs_top=sup;
1392          goto TTL;          goto TTL;
1393  TTL:;  TTL:;
1394          base[2]= (V265);          base[2]= (V271);
1395          base[3]= VV[44];          base[3]= VV[44];
1396          base[4]= (V265);          base[4]= (V271);
1397          base[5]= (V266);          base[5]= (V272);
1398          base[6]= base0[0];          base[6]= base0[0];
1399          base[7]= base0[0];          base[7]= base0[0];
1400          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
# Line 1403  register object *base0; Line 1409  register object *base0;
1409  {       register object *base=vs_base;  {       register object *base=vs_base;
1410          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1411          vs_check;          vs_check;
1412          {object V267;          {object V273;
1413          object V268;          object V274;
1414          object V269;          object V275;
1415          check_arg(3);          check_arg(3);
1416          V267=(base[0]);          V273=(base[0]);
1417          V268=(base[1]);          V274=(base[1]);
1418          V269=(base[2]);          V275=(base[2]);
1419          vs_top=sup;          vs_top=sup;
1420          base[3]= (V268);          base[3]= (V274);
1421          base[4]= (V269);          base[4]= (V275);
1422          base[5]= (base0[3]->c.c_car);          base[5]= (base0[3]->c.c_car);
1423          base[6]= (base0[2]->c.c_car);          base[6]= (base0[2]->c.c_car);
1424          base[7]= (base0[0]->c.c_car);          base[7]= (base0[0]->c.c_car);

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

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