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

Diff of /gcl/pcl/pcl_defclass.c

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

revision 1.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 322  T84:; Line 322  T84:;
322          (void) (*Lnk103)(Lclptr103);          (void) (*Lnk103)(Lclptr103);
323          vs_top=sup;          vs_top=sup;
324          V57= vs_base[0];          V57= vs_base[0];
325          {object V58 = list(3,VV[7],V57,(V35));          V58 = (V35);
326            {object V59 = list(3,VV[7],V57,V58);
327          bds_unwind1;          bds_unwind1;
328          bds_unwind1;          bds_unwind1;
329          bds_unwind1;          bds_unwind1;
330          bds_unwind1;          bds_unwind1;
331          VMR4(V58)}          VMR4(V59)}
332          goto T90;          goto T90;
333  T90:;  T90:;
334          if(!(((VV[9]->s.s_dbind))==(VV[19]))){          if(!(((VV[9]->s.s_dbind))==(VV[19]))){
335          goto T96;}          goto T96;}
336          {register object x= VV[31],V59= (VV[10]->s.s_dbind);          {register object x= VV[31],V60= (VV[10]->s.s_dbind);
337          while(V59!=Cnil)          while(V60!=Cnil)
338          if(eql(x,V59->c.c_car)){          if(eql(x,V60->c.c_car)){
339          goto T96;          goto T96;
340          }else V59=V59->c.c_cdr;}          }else V60=V60->c.c_cdr;}
341          (void)((*(LnkLI104))((V18)));          (void)((*(LnkLI104))((V18)));
342          goto T96;          goto T96;
343  T96:;  T96:;
344          {object V60 = (V35);          {object V61 = (V35);
345          bds_unwind1;          bds_unwind1;
346          bds_unwind1;          bds_unwind1;
347          bds_unwind1;          bds_unwind1;
348          bds_unwind1;          bds_unwind1;
349          VMR4(V60)}}}}          VMR4(V61)}}}}
350          base[0]=base[0];          base[0]=base[0];
351          return Cnil;          return Cnil;
352  }  }
353  /*      local entry for function MAKE-INITFUNCTION      */  /*      local entry for function MAKE-INITFUNCTION      */
354    
355  static object LI9(V62)  static object LI9(V63)
356    
357  register object V62;  register object V63;
358  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
359          goto TTL;          goto TTL;
360  TTL:;  TTL:;
361          if(((V62))==(Ct)){          if(((V63))==(Ct)){
362          goto T101;}          goto T101;}
363          if(!(equal((V62),VV[32]))){          if(!(equal((V63),VV[32]))){
364          goto T102;}          goto T102;}
365          goto T101;          goto T101;
366  T101:;  T101:;
367          {object V63 = VV[33];          {object V64 = VV[33];
368          VMR5(V63)}          VMR5(V64)}
369          goto T102;          goto T102;
370  T102:;  T102:;
371          if(((V62))==(Cnil)){          if(((V63))==(Cnil)){
372          goto T106;}          goto T106;}
373          if(!(equal((V62),VV[34]))){          if(!(equal((V63),VV[34]))){
374          goto T107;}          goto T107;}
375          goto T106;          goto T106;
376  T106:;  T106:;
377          {object V64 = VV[35];          {object V65 = VV[35];
378          VMR5(V64)}          VMR5(V65)}
379          goto T107;          goto T107;
380  T107:;  T107:;
381          if(eql((V62),small_fixnum(0))){          if(eql((V63),small_fixnum(0))){
382          goto T111;}          goto T111;}
383          if(!(equal((V62),VV[36]))){          if(!(equal((V63),VV[36]))){
384          goto T112;}          goto T112;}
385          goto T111;          goto T111;
386  T111:;  T111:;
387          {object V65 = VV[37];          {object V66 = VV[37];
388          VMR5(V65)}          VMR5(V66)}
389          goto T112;          goto T112;
390  T112:;  T112:;
391          {register object V66;          {register object V67;
392          {register object x= (V62),V67= (VV[18]->s.s_dbind);          {register object x= (V63),V68= (VV[18]->s.s_dbind);
393          while(V67!=Cnil)          while(V68!=Cnil)
394          if(equal(x,V67->c.c_car->c.c_car) &&V67->c.c_car != Cnil){          if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){
395          V66= (V67->c.c_car);          V67= (V68->c.c_car);
396          goto T116;          goto T116;
397          }else V67=V67->c.c_cdr;          }else V68=V68->c.c_cdr;
398          V66= Cnil;}          V67= Cnil;}
399          goto T116;          goto T116;
400  T116:;  T116:;
401          if(((V66))!=Cnil){          if(((V67))!=Cnil){
402          goto T117;}          goto T117;}
403            V69 = (V63);
404          vs_base=vs_top;          vs_base=vs_top;
405          Lgensym();          Lgensym();
406          vs_top=sup;          vs_top=sup;
407          V68= vs_base[0];          V70= vs_base[0];
408          V66= list(3,(V62),V68,list(2,VV[38],list(3,VV[39],Cnil,(V62))));          V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63))));
409          (VV[18]->s.s_dbind)= make_cons(V66,(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind));
410          goto T117;          goto T117;
411  T117:;  T117:;
412          {object V70 = CMPcadr((V66));          {object V72 = CMPcadr((V67));
413          VMR5(V70)}}          VMR5(V72)}}
414          base[0]=base[0];          base[0]=base[0];
415          return Cnil;          return Cnil;
416  }  }
417  /*      local entry for function CANONICALIZE-SLOT-SPECIFICATION        */  /*      local entry for function CANONICALIZE-SLOT-SPECIFICATION        */
418    
419  static object LI10(V73,V74)  static object LI10(V75,V76)
420    
421  object V73;register object V74;  object V75;register object V76;
422  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
423          goto TTL;          goto TTL;
424  TTL:;  TTL:;
425          if(!(type_of((V74))==t_symbol)){          if(!(type_of((V76))==t_symbol)){
426          goto T125;}          goto T125;}
427          if((type_of((V74))==t_symbol&&((V74))->s.s_hpack==keyword_package)){          if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){
428          goto T125;}          goto T125;}
429          {register object x= (V74),V75= VV[40];          {register object x= (V76),V77= VV[40];
430          while(V75!=Cnil)          while(V77!=Cnil)
431          if(x==(V75->c.c_car)){          if(x==(V77->c.c_car)){
432          goto T125;          goto T125;
433          }else V75=V75->c.c_cdr;}          }else V77=V77->c.c_cdr;}
434          {object V76 = list(2,VV[28],list(2,VV[41],(V74)));          {object V78 = list(2,VV[28],list(2,VV[41],(V76)));
435          VMR6(V76)}          VMR6(V78)}
436          goto T125;          goto T125;
437  T125:;  T125:;
438          if(type_of((V74))==t_cons){          if(type_of((V76))==t_cons){
439          goto T132;}          goto T132;}
440          base[0]= VV[42];          base[0]= VV[42];
441          base[1]= (V74);          base[1]= (V76);
442          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
443          Lerror();          Lerror();
444          vs_top=sup;          vs_top=sup;
445          {object V77 = vs_base[0];          {object V79 = vs_base[0];
446          VMR6(V77)}          VMR6(V79)}
447          goto T132;          goto T132;
448  T132:;  T132:;
449          if((CMPcdr((V74)))!=Cnil){          if((CMPcdr((V76)))!=Cnil){
450          goto T137;}          goto T137;}
451          {object V78 = list(2,VV[28],list(2,VV[41],CMPcar((V74))));          {object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76))));
452          VMR6(V78)}          VMR6(V80)}
453          goto T137;          goto T137;
454  T137:;  T137:;
455          if((CMPcddr((V74)))!=Cnil){          if((CMPcddr((V76)))!=Cnil){
456          goto T140;}          goto T140;}
457          base[0]= VV[43];          base[0]= VV[43];
458          base[1]= (V73);          base[1]= (V75);
459          base[2]= (V74);          base[2]= (V76);
460          base[3]= list(3,CMPcar((V74)),VV[44],CMPcadr((V74)));          base[3]= list(3,CMPcar((V76)),VV[44],CMPcadr((V76)));
461          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
462          Lerror();          Lerror();
463          vs_top=sup;          vs_top=sup;
464          {object V79 = vs_base[0];          {object V81 = vs_base[0];
465          VMR6(V79)}          VMR6(V81)}
466          goto T140;          goto T140;
467  T140:;  T140:;
468          {object V80;          {object V82;
         register object V81;  
         register object V82;  
469          register object V83;          register object V83;
470          object V84;          register object V84;
471          object V85;          register object V85;
472          {object V86;          object V86;
473          V86= CMPcar((V74));          object V87;
474          V74= CMPcdr((V74));          {object V88;
475          V80= (V86);}          V88= CMPcar((V76));
476          V81= Cnil;          V76= CMPcdr((V76));
477          V82= Cnil;          V82= (V88);}
478          V83= Cnil;          V83= Cnil;
479          V84= make_cons(Cnil,Cnil);          V84= Cnil;
480          base[3]= (V74);          V85= Cnil;
481            V86= make_cons(Cnil,Cnil);
482            base[3]= (V76);
483          base[4]= VV[44];          base[4]= VV[44];
484          base[5]= (V84);          base[5]= (V86);
485          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
486          Lgetf();          Lgetf();
487          vs_top=sup;          vs_top=sup;
488          V85= vs_base[0];          V87= vs_base[0];
489          {register object V87;          {register object V89;
490          object V88;          object V90;
491          register object V89;          register object V91;
492          V87= (V74);          V89= (V76);
493          V88= Cnil;          V90= Cnil;
494          V89= Cnil;          V91= Cnil;
495          goto T160;          goto T160;
496  T160:;  T160:;
497          if(((V87))!=Cnil){          if(((V89))!=Cnil){
498          goto T162;}          goto T162;}
499          goto T158;          goto T158;
500          goto T162;          goto T162;
501  T162:;  T162:;
502          {object V90;          {object V92;
503          V90= CMPcar((V87));          V92= CMPcar((V89));
504          V87= CMPcdr((V87));          V89= CMPcdr((V89));
505          V88= (V90);}          V90= (V92);}
506          if(((V87))!=Cnil){          if(((V89))!=Cnil){
507          goto T170;}          goto T170;}
508          base[3]= VV[45];          base[3]= VV[45];
509          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 509  T162:; Line 511  T162:;
511          vs_top=sup;          vs_top=sup;
512          goto T170;          goto T170;
513  T170:;  T170:;
514          {object V91;          {object V93;
515          V91= CMPcar((V87));          V93= CMPcar((V89));
516          V87= CMPcdr((V87));          V89= CMPcdr((V89));
517          V89= (V91);}          V91= (V93);}
518          {object V92= (V88);          {object V94= (V90);
519          if((V92!= VV[47]))goto T179;          if((V94!= VV[47]))goto T179;
520          (VV[17]->s.s_dbind)= make_cons(V89,(VV[17]->s.s_dbind));          (VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind));
521          V81= make_cons(V89,(V81));          V83= make_cons(V91,(V83));
522          {object V95;          {object V97;
523          V95= list(2,VV[46],(V89));          V97= list(2,VV[46],(V91));
524          V82= make_cons((V95),(V82));          V84= make_cons((V97),(V84));
525          goto T161;}          goto T161;}
526          goto T179;          goto T179;
527  T179:;  T179:;
528          if((V92!= VV[48]))goto T186;          if((V94!= VV[48]))goto T186;
529          V81= make_cons(V89,(V81));          V83= make_cons(V91,(V83));
530          goto T161;          goto T161;
531          goto T186;          goto T186;
532  T186:;  T186:;
533          if((V92!= VV[49]))goto T188;          if((V94!= VV[49]))goto T188;
534          V82= make_cons(V89,(V82));          V84= make_cons(V91,(V84));
535          goto T161;          goto T161;
536          goto T188;          goto T188;
537  T188:;  T188:;
538          if((V92!= VV[50]))goto T190;          if((V94!= VV[50]))goto T190;
539          V83= make_cons(V89,(V83));          V85= make_cons(V91,(V85));
540          goto T161;          goto T161;
541          goto T190;          goto T190;
542  T190:;}  T190:;}
# Line 545  T161:; Line 547  T161:;
547  T158:;  T158:;
548          goto T195;          goto T195;
549  T195:;  T195:;
550          {object V99;          {object V101;
551          object V100;          object V102;
552          base[3]= (V74);          base[3]= (V76);
553          base[4]= VV[47];          base[4]= VV[47];
554          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
555          siLrem_f();          siLrem_f();
556          if(vs_base>=vs_top){vs_top=sup;goto T202;}          if(vs_base>=vs_top){vs_top=sup;goto T202;}
557          V99= vs_base[0];          V101= vs_base[0];
558          vs_base++;          vs_base++;
559          if(vs_base>=vs_top){vs_top=sup;goto T203;}          if(vs_base>=vs_top){vs_top=sup;goto T203;}
560          V100= vs_base[0];          V102= vs_base[0];
561          vs_top=sup;          vs_top=sup;
562          goto T204;          goto T204;
563          goto T202;          goto T202;
564  T202:;  T202:;
565          V99= Cnil;          V101= Cnil;
566          goto T203;          goto T203;
567  T203:;  T203:;
568          V100= Cnil;          V102= Cnil;
569          goto T204;          goto T204;
570  T204:;  T204:;
571          V74= (V99);          V76= (V101);
572          if(((V100))!=Cnil){          if(((V102))!=Cnil){
573          goto T196;}}          goto T196;}}
574          goto T193;          goto T193;
575          goto T196;          goto T196;
# Line 577  T196:; Line 579  T196:;
579  T193:;  T193:;
580          goto T210;          goto T210;
581  T210:;  T210:;
582          {object V101;          {object V103;
583          object V102;          object V104;
584          base[3]= (V74);          base[3]= (V76);
585          base[4]= VV[48];          base[4]= VV[48];
586          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
587          siLrem_f();          siLrem_f();
588          if(vs_base>=vs_top){vs_top=sup;goto T217;}          if(vs_base>=vs_top){vs_top=sup;goto T217;}
589          V101= vs_base[0];          V103= vs_base[0];
590          vs_base++;          vs_base++;
591          if(vs_base>=vs_top){vs_top=sup;goto T218;}          if(vs_base>=vs_top){vs_top=sup;goto T218;}
592          V102= vs_base[0];          V104= vs_base[0];
593          vs_top=sup;          vs_top=sup;
594          goto T219;          goto T219;
595          goto T217;          goto T217;
596  T217:;  T217:;
597          V101= Cnil;          V103= Cnil;
598          goto T218;          goto T218;
599  T218:;  T218:;
600          V102= Cnil;          V104= Cnil;
601          goto T219;          goto T219;
602  T219:;  T219:;
603          V74= (V101);          V76= (V103);
604          if(((V102))!=Cnil){          if(((V104))!=Cnil){
605          goto T211;}}          goto T211;}}
606          goto T208;          goto T208;
607          goto T211;          goto T211;
# Line 609  T211:; Line 611  T211:;
611  T208:;  T208:;
612          goto T225;          goto T225;
613  T225:;  T225:;
614          {object V103;          {object V105;
615          object V104;          object V106;
616          base[3]= (V74);          base[3]= (V76);
617          base[4]= VV[49];          base[4]= VV[49];
618          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
619          siLrem_f();          siLrem_f();
620          if(vs_base>=vs_top){vs_top=sup;goto T232;}          if(vs_base>=vs_top){vs_top=sup;goto T232;}
621          V103= vs_base[0];          V105= vs_base[0];
622          vs_base++;          vs_base++;
623          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T233;}
624          V104= vs_base[0];          V106= vs_base[0];
625          vs_top=sup;          vs_top=sup;
626          goto T234;          goto T234;
627          goto T232;          goto T232;
628  T232:;  T232:;
629          V103= Cnil;          V105= Cnil;
630          goto T233;          goto T233;
631  T233:;  T233:;
632          V104= Cnil;          V106= Cnil;
633          goto T234;          goto T234;
634  T234:;  T234:;
635          V74= (V103);          V76= (V105);
636          if(((V104))!=Cnil){          if(((V106))!=Cnil){
637          goto T226;}}          goto T226;}}
638          goto T223;          goto T223;
639          goto T226;          goto T226;
# Line 641  T226:; Line 643  T226:;
643  T223:;  T223:;
644          goto T240;          goto T240;
645  T240:;  T240:;
646          {object V105;          {object V107;
647          object V106;          object V108;
648          base[3]= (V74);          base[3]= (V76);
649          base[4]= VV[50];          base[4]= VV[50];
650          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
651          siLrem_f();          siLrem_f();
652          if(vs_base>=vs_top){vs_top=sup;goto T247;}          if(vs_base>=vs_top){vs_top=sup;goto T247;}
653          V105= vs_base[0];          V107= vs_base[0];
654          vs_base++;          vs_base++;
655          if(vs_base>=vs_top){vs_top=sup;goto T248;}          if(vs_base>=vs_top){vs_top=sup;goto T248;}
656          V106= vs_base[0];          V108= vs_base[0];
657          vs_top=sup;          vs_top=sup;
658          goto T249;          goto T249;
659          goto T247;          goto T247;
660  T247:;  T247:;
661          V105= Cnil;          V107= Cnil;
662          goto T248;          goto T248;
663  T248:;  T248:;
664          V106= Cnil;          V108= Cnil;
665          goto T249;          goto T249;
666  T249:;  T249:;
667          V74= (V105);          V76= (V107);
668          if(((V106))!=Cnil){          if(((V108))!=Cnil){
669          goto T241;}}          goto T241;}}
670          goto T238;          goto T238;
671          goto T241;          goto T241;
# Line 671  T241:; Line 673  T241:;
673          goto T240;          goto T240;
674          goto T238;          goto T238;
675  T238:;  T238:;
676          (VV[15]->s.s_dbind)= append((V82),(VV[15]->s.s_dbind));          (VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind));
677          (VV[16]->s.s_dbind)= append((V81),(VV[16]->s.s_dbind));          (VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind));
         V107= list(2,VV[28],(V80));  
         V108= list(2,VV[28],(V81));  
678          V109= list(2,VV[28],(V82));          V109= list(2,VV[28],(V82));
679          V110= list(2,VV[28],(V83));          V110= list(2,VV[28],(V83));
680          V74= list(9,VV[41],/* INLINE-ARGS */V107,VV[51],/* INLINE-ARGS */V108,VV[52],/* INLINE-ARGS */V109,VV[53],/* INLINE-ARGS */V110,list(2,VV[28],(V74)));          V111= list(2,VV[28],(V84));
681          if(!(((V85))==((V84)))){          V112= list(2,VV[28],(V85));
682            V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76)));
683            if(!(((V87))==((V86)))){
684          goto T260;}          goto T260;}
685          {object V111 = make_cons(VV[54],(V74));          {object V113 = make_cons(VV[54],(V76));
686          VMR6(V111)}          VMR6(V113)}
687          goto T260;          goto T260;
688  T260:;  T260:;
689          V112= (*(LnkLI105))((V85));          V114= (*(LnkLI105))((V87));
690          {object V113 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V112,(V74));          V115 = (V76);
691          VMR6(V113)}}          {object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115);
692            VMR6(V116)}}
693          base[0]=base[0];          base[0]=base[0];
694          return Cnil;          return Cnil;
695  }  }
696  /*      local entry for function CANONICALIZE-DEFCLASS-OPTION   */  /*      local entry for function CANONICALIZE-DEFCLASS-OPTION   */
697    
698  static object LI11(V116,V117)  static object LI11(V119,V120)
699    
700  object V116;object V117;  object V119;object V120;
701  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
702          goto TTL;          goto TTL;
703  TTL:;  TTL:;
704          {object V118= CMPcar((V117));          {object V121= CMPcar((V120));
705          if((V118!= VV[106]))goto T262;          if((V121!= VV[106]))goto T262;
706          {register object V119;          {register object V122;
707          V119= Cnil;          V122= Cnil;
708          {register object V120;          {register object V123;
709          register object V121;          register object V124;
710          register object V122;          register object V125;
711          V122= CMPcdr((V117));          V125= CMPcdr((V120));
712          V120= Cnil;          V123= Cnil;
713          V121= Cnil;          V124= Cnil;
714          goto T266;          goto T266;
715  T266:;  T266:;
716          if(((V122))!=Cnil){          if(((V125))!=Cnil){
717          goto T268;}          goto T268;}
718          goto T264;          goto T264;
719          goto T268;          goto T268;
720  T268:;  T268:;
721          {register object V123;          {register object V126;
722          V123= CMPcar((V122));          V126= CMPcar((V125));
723          V122= CMPcdr((V122));          V125= CMPcdr((V125));
724          V120= (V123);}          V123= (V126);}
725          {register object V124;          {register object V127;
726          V124= CMPcar((V122));          V127= CMPcar((V125));
727          V122= CMPcdr((V122));          V125= CMPcdr((V125));
728          V121= (V124);}          V124= (V127);}
729          {register object V125;          {register object V128;
730          V126= list(2,VV[28],(V120));          V129= list(2,VV[28],(V123));
731          V127= (*(LnkLI105))((V121));          V130= (*(LnkLI105))((V124));
732          V125= list(4,VV[29],/* INLINE-ARGS */V126,/* INLINE-ARGS */V127,list(2,VV[28],(V121)));          V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124)));
733          V119= make_cons((V125),(V119));}          V122= make_cons((V128),(V122));}
734          goto T266;          goto T266;
735          goto T264;          goto T264;
736  T264:;  T264:;
737          V128= nreverse((V119));          V131= nreverse((V122));
738          {object V129 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V128));          {object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131));
739          VMR7(V129)}}}          VMR7(V132)}}}
740          goto T262;          goto T262;
741  T262:;  T262:;
742          V130= list(2,VV[28],CMPcar((V117)));          V133= list(2,VV[28],CMPcar((V120)));
743          {object V131 = list(2,/* INLINE-ARGS */V130,list(2,VV[28],CMPcdr((V117))));          {object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120))));
744          VMR7(V131)}}          VMR7(V134)}}
745          base[0]=base[0];          base[0]=base[0];
746          return Cnil;          return Cnil;
747  }  }
748  /*      local entry for function EARLY-CLASS-DEFINITION */  /*      local entry for function EARLY-CLASS-DEFINITION */
749    
750  static object LI12(V133)  static object LI12(V136)
751    
752  object V133;  object V136;
753  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
754          goto TTL;          goto TTL;
755  TTL:;{object V134;  TTL:;{object V137;
756          base[0]= (V133);          base[0]= (V136);
757          base[1]= (VV[57]->s.s_dbind);          base[1]= (VV[57]->s.s_dbind);
758          base[2]= VV[58];          base[2]= VV[58];
759          base[3]= (VV[107]->s.s_gfdef);          base[3]= (VV[107]->s.s_gfdef);
760          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
761          (void) (*Lnk108)();          (void) (*Lnk108)();
762          vs_top=sup;          vs_top=sup;
763          V134= vs_base[0];          V137= vs_base[0];
764          if(V134==Cnil)goto T284;          if(V137==Cnil)goto T284;
765          {object V135 = V134;          {object V138 = V137;
766          VMR8(V135)}          VMR8(V138)}
767          goto T284;          goto T284;
768  T284:;}  T284:;}
769          base[0]= VV[59];          base[0]= VV[59];
770          base[1]= (V133);          base[1]= (V136);
771          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
772          Lerror();          Lerror();
773          vs_top=sup;          vs_top=sup;
774          {object V136 = vs_base[0];          {object V139 = vs_base[0];
775          VMR8(V136)}          VMR8(V139)}
776          base[0]=base[0];          base[0]=base[0];
777          return Cnil;          return Cnil;
778  }  }
779  /*      local entry for function MAKE-EARLY-CLASS-DEFINITION    */  /*      local entry for function MAKE-EARLY-CLASS-DEFINITION    */
780    
781  static object LI13(V143,V144,V145,V146,V147,V148)  static object LI13(V146,V147,V148,V149,V150,V151)
782    
783  object V143;object V144;object V145;object V146;object V147;object V148;  object V146;object V147;object V148;object V149;object V150;object V151;
784  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
785          goto TTL;          goto TTL;
786  TTL:;  TTL:;
787          {object V149 = list(7,VV[60],(V143),(V144),(V145),(V146),(V147),(V148));          {object V152 = list(7,VV[60],(V146),(V147),(V148),(V149),(V150),(V151));
788          VMR9(V149)}          VMR9(V152)}
789          return Cnil;          return Cnil;
790  }  }
791  /*      local entry for function ECD-CLASS-NAME */  /*      local entry for function ECD-CLASS-NAME */
792    
793  static object LI14(V151)  static object LI14(V154)
794    
795  object V151;  object V154;
796  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
797          goto TTL;          goto TTL;
798  TTL:;  TTL:;
799          {object V152 = CMPcadr((V151));          {object V155 = CMPcadr((V154));
800          VMR10(V152)}          VMR10(V155)}
801          return Cnil;          return Cnil;
802  }  }
803  /*      local entry for function ECD-SOURCE     */  /*      local entry for function ECD-SOURCE     */
804    
805  static object LI15(V154)  static object LI15(V157)
806    
807  object V154;  object V157;
808  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
809          goto TTL;          goto TTL;
810  TTL:;  TTL:;
811          {object V155 = CMPcaddr((V154));          {object V158 = CMPcaddr((V157));
812          VMR11(V155)}          VMR11(V158)}
813          return Cnil;          return Cnil;
814  }  }
815  /*      local entry for function ECD-METACLASS  */  /*      local entry for function ECD-METACLASS  */
816    
817  static object LI16(V157)  static object LI16(V160)
818    
819  object V157;  object V160;
820  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
821          goto TTL;          goto TTL;
822  TTL:;  TTL:;
823          {object V158 = CMPcadddr((V157));          {object V161 = CMPcadddr((V160));
824          VMR12(V158)}          VMR12(V161)}
825          return Cnil;          return Cnil;
826  }  }
827  /*      local entry for function ECD-SUPERCLASS-NAMES   */  /*      local entry for function ECD-SUPERCLASS-NAMES   */
828    
829  static object LI17(V160)  static object LI17(V163)
830    
831  object V160;  object V163;
832  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
833          goto TTL;          goto TTL;
834  TTL:;  TTL:;
835          {object V161 = CMPcar(CMPcddddr((V160)));          {object V164 = CMPcar(CMPcddddr((V163)));
836          VMR13(V161)}          VMR13(V164)}
837          return Cnil;          return Cnil;
838  }  }
839  /*      local entry for function ECD-CANONICAL-SLOTS    */  /*      local entry for function ECD-CANONICAL-SLOTS    */
840    
841  static object LI18(V163)  static object LI18(V166)
842    
843  object V163;  object V166;
844  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
845          goto TTL;          goto TTL;
846  TTL:;  TTL:;
847          {object V164 = CMPcadr(CMPcddddr((V163)));          {object V167 = CMPcadr(CMPcddddr((V166)));
848          VMR14(V164)}          VMR14(V167)}
849          return Cnil;          return Cnil;
850  }  }
851  /*      local entry for function ECD-OTHER-INITARGS     */  /*      local entry for function ECD-OTHER-INITARGS     */
852    
853  static object LI19(V166)  static object LI19(V169)
854    
855  object V166;  object V169;
856  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
857          goto TTL;          goto TTL;
858  TTL:;  TTL:;
859          {object V167 = CMPcaddr(CMPcddddr((V166)));          {object V170 = CMPcaddr(CMPcddddr((V169)));
860          VMR15(V167)}          VMR15(V170)}
861          return Cnil;          return Cnil;
862  }  }
863  /*      local entry for function CANONICAL-SLOT-NAME    */  /*      local entry for function CANONICAL-SLOT-NAME    */
864    
865  static object LI20(V169)  static object LI20(V172)
866    
867  object V169;  object V172;
868  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
869          goto TTL;          goto TTL;
870  TTL:;  TTL:;
871          base[0]= (V169);          base[0]= (V172);
872          base[1]= VV[41];          base[1]= VV[41];
873          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
874          Lgetf();          Lgetf();
875          vs_top=sup;          vs_top=sup;
876          {object V170 = vs_base[0];          {object V173 = vs_base[0];
877          VMR16(V170)}          VMR16(V173)}
878          base[0]=base[0];          base[0]=base[0];
879          return Cnil;          return Cnil;
880  }  }
881  /*      local entry for function EARLY-CLASS-SLOTS      */  /*      local entry for function EARLY-CLASS-SLOTS      */
882    
883  static object LI21(V172)  static object LI21(V175)
884    
885  object V172;  object V175;
886  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
887          goto TTL;          goto TTL;
888  TTL:;{object V174;  TTL:;{object V177;
889          {register object x= (V172),V175= (VV[61]->s.s_dbind);          {register object x= (V175),V178= (VV[61]->s.s_dbind);
890          while(V175!=Cnil)          while(V178!=Cnil)
891          if(eql(x,V175->c.c_car->c.c_car) &&V175->c.c_car != Cnil){          if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){
892          V174= (V175->c.c_car);          V177= (V178->c.c_car);
893          goto T296;          goto T296;
894          }else V175=V175->c.c_cdr;          }else V178=V178->c.c_cdr;
895          V174= Cnil;}          V177= Cnil;}
896          goto T296;          goto T296;
897  T296:;  T296:;
898          if(V174==Cnil)goto T295;          if(V177==Cnil)goto T295;
899          V173= V174;          V176= V177;
900          goto T294;          goto T294;
901          goto T295;          goto T295;
902  T295:;}  T295:;}
903          {object V176;          {object V179;
904          base[1]= (V172);          V180 = (V175);
905            base[1]= (V175);
906          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
907          (void) (*Lnk109)();          (void) (*Lnk109)();
908          vs_top=sup;          vs_top=sup;
909          V180= vs_base[0];          V184= vs_base[0];
910          {object V178;          {object V182;
911          object V179= V180;          object V183= V184;
912          if(V179==Cnil){          if(V183==Cnil){
913          V177= Cnil;          V181= Cnil;
914          goto T298;}          goto T298;}
915          base[0]=V178=MMcons(Cnil,Cnil);          base[0]=V182=MMcons(Cnil,Cnil);
916          goto T299;          goto T299;
917  T299:;  T299:;
918          (V178->c.c_car)= (*(LnkLI110))((V179->c.c_car));          (V182->c.c_car)= (*(LnkLI110))((V183->c.c_car));
919          if((V179=MMcdr(V179))==Cnil){          if((V183=MMcdr(V183))==Cnil){
920          V177= base[0];          V181= base[0];
921          goto T298;}          goto T298;}
922          V178=MMcdr(V178)=MMcons(Cnil,Cnil);          V182=MMcdr(V182)=MMcons(Cnil,Cnil);
923          goto T299;}          goto T299;}
924          goto T298;          goto T298;
925  T298:;  T298:;
926          V176= make_cons((V172),V177);          V179= make_cons(V180,V181);
927          (VV[61]->s.s_dbind)= make_cons(V176,(VV[61]->s.s_dbind));          (VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind));
928          V173= (V176);}          V176= (V179);}
929          goto T294;          goto T294;
930  T294:;  T294:;
931          {object V182 = CMPcdr(V173);          {object V186 = CMPcdr(V176);
932          VMR17(V182)}          VMR17(V186)}
933          base[0]=base[0];          base[0]=base[0];
934          return Cnil;          return Cnil;
935  }  }
936  /*      local entry for function EARLY-CLASS-SIZE       */  /*      local entry for function EARLY-CLASS-SIZE       */
937    
938  static object LI22(V184)  static object LI22(V188)
939    
940  object V184;  object V188;
941  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
942          goto TTL;          goto TTL;
943  TTL:;  TTL:;
944          V185= (*(LnkLI111))((V184));          V189= (*(LnkLI111))((V188));
945          {long V186 = (long)length(/* INLINE-ARGS */V185);          {long V190 = (long)length(/* INLINE-ARGS */V189);
946          VMR18((object)V186)}          VMR18((object)V190)}
947  }  }
948  /*      function definition for EARLY-COLLECT-INHERITANCE       */  /*      function definition for EARLY-COLLECT-INHERITANCE       */
949    
# Line 947  static void L23() Line 951  static void L23()
951  {register object *base=vs_base;  {register object *base=vs_base;
952          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
953          vs_check;          vs_check;
954          {register object V187;          {register object V191;
955          check_arg(1);          check_arg(1);
956          V187=(base[0]);          V191=(base[0]);
957          vs_top=sup;          vs_top=sup;
958          goto TTL;          goto TTL;
959  TTL:;  TTL:;
960          {object V188;          {object V192;
961          V188= (*(LnkLI112))((V187));          V192= (*(LnkLI112))((V191));
962          base[1]= (*(LnkLI113))((V188));          base[1]= (*(LnkLI113))((V192));
963          base[2]= (V188);          base[2]= (V192);
964          base[3]= (*(LnkLI114))((V188));          base[3]= (*(LnkLI114))((V192));
965          {register object V189;          {register object V193;
966          register object V190;          register object V194;
967          V189= Cnil;          V193= Cnil;
968          V190= Cnil;          V194= Cnil;
969          {register object V191;          {register object V195;
970          register object V192;          register object V196;
971          V191= (VV[57]->s.s_dbind);          V195= (VV[57]->s.s_dbind);
972          V192= CMPcar((V191));          V196= CMPcar((V195));
973          goto T316;          goto T316;
974  T316:;  T316:;
975          if(!(((V191))==Cnil)){          if(!(((V195))==Cnil)){
976          goto T317;}          goto T317;}
977          goto T312;          goto T312;
978          goto T317;          goto T317;
979  T317:;  T317:;
980          V194= (*(LnkLI115))((V192));          V198 = (V191);
981          {register object x= (V187),V193= /* INLINE-ARGS */V194;          V199= (*(LnkLI115))((V196));
982          while(V193!=Cnil)          {register object x= V198,V197= /* INLINE-ARGS */V199;
983          if(x==(V193->c.c_car)){          while(V197!=Cnil)
984            if(x==(V197->c.c_car)){
985          goto T323;          goto T323;
986          }else V193=V193->c.c_cdr;          }else V197=V197->c.c_cdr;
987          goto T321;}          goto T321;}
988          goto T323;          goto T323;
989  T323:;  T323:;
990          {register object V195;          {register object V200;
991          V195= (*(LnkLI107))((V192));          V200= (*(LnkLI107))((V196));
992          if(((V189))!=Cnil){          if(((V193))!=Cnil){
993          goto T326;}          goto T326;}
994          V190= make_cons((V195),Cnil);          V194= make_cons((V200),Cnil);
995          V189= (V190);          V193= (V194);
996          goto T321;          goto T321;
997          goto T326;          goto T326;
998  T326:;  T326:;
999          V197= make_cons((V195),Cnil);          V202= make_cons((V200),Cnil);
1000          ((V190))->c.c_cdr = /* INLINE-ARGS */V197;          ((V194))->c.c_cdr = /* INLINE-ARGS */V202;
1001          V196= (V190);          V201= (V194);
1002          V190= CMPcdr(V196);}          V194= CMPcdr(V201);}
1003          goto T321;          goto T321;
1004  T321:;  T321:;
1005          V191= CMPcdr((V191));          V195= CMPcdr((V195));
1006          V192= CMPcar((V191));          V196= CMPcar((V195));
1007          goto T316;}          goto T316;}
1008          goto T312;          goto T312;
1009  T312:;  T312:;
1010          base[4]= (V189);}          base[4]= (V193);}
1011          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1012          return;}          return;}
1013          }          }
1014  }  }
1015  /*      local entry for function EARLY-COLLECT-SLOTS    */  /*      local entry for function EARLY-COLLECT-SLOTS    */
1016    
1017  static object LI24(V199)  static object LI24(V204)
1018    
1019  object V199;  object V204;
1020  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1021          goto TTL;          goto TTL;
1022  TTL:;  TTL:;
1023          {object V200;          {object V205;
1024          object V201;          object V206;
1025          register object V202;          register object V207;
1026          {object V203;          {object V208;
1027          object V204= (V199);          object V209= (V204);
1028          if(V204==Cnil){          if(V209==Cnil){
1029          V200= Cnil;          V205= Cnil;
1030          goto T337;}          goto T337;}
1031          base[3]=V203=MMcons(Cnil,Cnil);          base[3]=V208=MMcons(Cnil,Cnil);
1032          goto T338;          goto T338;
1033  T338:;  T338:;
1034          (V203->c.c_car)= (*(LnkLI60))((V204->c.c_car));          (V208->c.c_car)= (*(LnkLI60))((V209->c.c_car));
1035          if((V204=MMcdr(V204))==Cnil){          if((V209=MMcdr(V209))==Cnil){
1036          V200= base[3];          V205= base[3];
1037          goto T337;}          goto T337;}
1038          V203=MMcdr(V203)=MMcons(Cnil,Cnil);          V208=MMcdr(V208)=MMcons(Cnil,Cnil);
1039          goto T338;}          goto T338;}
1040          goto T337;          goto T337;
1041  T337:;  T337:;
1042          {object V205;          {object V210;
1043          object V206= (V200);          object V211= (V205);
1044          if(V206==Cnil){          if(V211==Cnil){
1045          V201= Cnil;          V206= Cnil;
1046          goto T340;}          goto T340;}
1047          base[3]=V205=MMcons(Cnil,Cnil);          base[3]=V210=MMcons(Cnil,Cnil);
1048          goto T341;          goto T341;
1049  T341:;  T341:;
1050          (V205->c.c_car)= (*(LnkLI116))((V206->c.c_car));          (V210->c.c_car)= (*(LnkLI116))((V211->c.c_car));
1051          if((V206=MMcdr(V206))==Cnil){          if((V211=MMcdr(V211))==Cnil){
1052          V201= base[3];          V206= base[3];
1053          goto T340;}          goto T340;}
1054          V205=MMcdr(V205)=MMcons(Cnil,Cnil);          V210=MMcdr(V210)=MMcons(Cnil,Cnil);
1055          goto T341;}          goto T341;}
1056          goto T340;          goto T340;
1057  T340:;  T340:;
1058          {object V207;          {object V212;
1059          V207= reverse((V201));          V212= reverse((V206));
1060           vs_top=base+3;           vs_top=base+3;
1061           while(V207!=Cnil)           while(V212!=Cnil)
1062           {vs_push((V207)->c.c_car);V207=(V207)->c.c_cdr;}           {vs_push((V212)->c.c_car);V212=(V212)->c.c_cdr;}
1063          vs_base=base+3;}          vs_base=base+3;}
1064          Lappend();          Lappend();
1065          vs_top=sup;          vs_top=sup;
1066          V202= vs_base[0];          V207= vs_base[0];
1067          {register object V208;          {register object V213;
1068          register object V209;          register object V214;
1069          V208= (V202);          V213= (V207);
1070          V209= CMPcar((V208));          V214= CMPcar((V213));
1071          goto T349;          goto T349;
1072  T349:;  T349:;
1073          if(!(((V208))==Cnil)){          if(!(((V213))==Cnil)){
1074          goto T350;}          goto T350;}
1075          goto T345;          goto T345;
1076          goto T350;          goto T350;
1077  T350:;  T350:;
1078          {register object V210;          {register object V215;
1079          V210= (*(LnkLI110))((V209));          V215= (*(LnkLI110))((V214));
1080          {register object V211;          {register object V216;
1081          register object V212;          register object V217;
1082          {register object x= (V209),V214= (V202);          {register object x= (V214),V219= (V207);
1083          while(V214!=Cnil)          while(V219!=Cnil)
1084          if(x==(V214->c.c_car)){          if(x==(V219->c.c_car)){
1085          V213= V214;          V218= V219;
1086          goto T357;          goto T357;
1087          }else V214=V214->c.c_cdr;          }else V219=V219->c.c_cdr;
1088          V213= Cnil;}          V218= Cnil;}
1089          goto T357;          goto T357;
1090  T357:;  T357:;
1091          V211= CMPcdr(V213);          V216= CMPcdr(V218);
1092          V212= CMPcar((V211));          V217= CMPcar((V216));
1093          goto T360;          goto T360;
1094  T360:;  T360:;
1095          if(!(((V211))==Cnil)){          if(!(((V216))==Cnil)){
1096          goto T361;}          goto T361;}
1097          goto T354;          goto T354;
1098          goto T361;          goto T361;
1099  T361:;  T361:;
1100          V215= (*(LnkLI110))((V212));          V220 = (V215);
1101          if(!(((V210))==(/* INLINE-ARGS */V215))){          V221= (*(LnkLI110))((V217));
1102            if(!((V220)==(/* INLINE-ARGS */V221))){
1103          goto T365;}          goto T365;}
1104          base[6]= VV[62];          base[6]= VV[62];
1105          base[7]= (V210);          base[7]= (V215);
1106          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1107          Lerror();          Lerror();
1108          vs_top=sup;          vs_top=sup;
1109          goto T365;          goto T365;
1110  T365:;  T365:;
1111          V211= CMPcdr((V211));          V216= CMPcdr((V216));
1112          V212= CMPcar((V211));          V217= CMPcar((V216));
1113          goto T360;}}          goto T360;}}
1114          goto T354;          goto T354;
1115  T354:;  T354:;
1116          V208= CMPcdr((V208));          V213= CMPcdr((V213));
1117          V209= CMPcar((V208));          V214= CMPcar((V213));
1118          goto T349;}          goto T349;}
1119          goto T345;          goto T345;
1120  T345:;  T345:;
1121          {object V216 = (V202);          {object V222 = (V207);
1122          VMR20(V216)}}          VMR20(V222)}}
1123          base[0]=base[0];          base[0]=base[0];
1124          return Cnil;          return Cnil;
1125  }  }
1126  /*      local entry for function EARLY-COLLECT-CPL      */  /*      local entry for function EARLY-COLLECT-CPL      */
1127    
1128  static object LI25(V218)  static object LI25(V224)
1129    
1130  object V218;  object V224;
1131  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1132          goto TTL;          goto TTL;
1133  TTL:;  TTL:;
1134          base[1]= (V218);          base[1]= (V224);
1135          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1136          L26(base);          L26(base);
1137          vs_top=sup;          vs_top=sup;
# Line 1137  TTL:; Line 1143  TTL:;
1143          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1144          (void) (*Lnk118)();          (void) (*Lnk118)();
1145          vs_top=sup;          vs_top=sup;
1146          {object V219 = vs_base[0];          {object V225 = vs_base[0];
1147          VMR21(V219)}          VMR21(V225)}
1148          base[0]=base[0];          base[0]=base[0];
1149          return Cnil;          return Cnil;
1150  }  }
1151  /*      local entry for function EARLY-COLLECT-DEFAULT-INITARGS */  /*      local entry for function EARLY-COLLECT-DEFAULT-INITARGS */
1152    
1153  static object LI27(V221)  static object LI27(V227)
1154    
1155  object V221;  object V227;
1156  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1157          goto TTL;          goto TTL;
1158  TTL:;  TTL:;
1159          {register object V222;          {register object V228;
1160          V222= Cnil;          V228= Cnil;
1161          {register object V223;          {register object V229;
1162          object V224;          object V230;
1163          V223= (V221);          V229= (V227);
1164          V224= CMPcar((V223));          V230= CMPcar((V229));
1165          goto T390;          goto T390;
1166  T390:;  T390:;
1167          if(!(((V223))==Cnil)){          if(!(((V229))==Cnil)){
1168          goto T391;}          goto T391;}
1169          goto T386;          goto T386;
1170          goto T391;          goto T391;
1171  T391:;  T391:;
1172          {object V225;          {object V231;
1173          register object V226;          register object V232;
1174          V225= (*(LnkLI60))((V224));          V231= (*(LnkLI60))((V230));
1175          V226= (*(LnkLI119))((V225));          V232= (*(LnkLI119))((V231));
1176          goto T399;          goto T399;
1177  T399:;  T399:;
1178          if(((V226))!=Cnil){          if(((V232))!=Cnil){
1179          goto T401;}          goto T401;}
1180          goto T395;          goto T395;
1181          goto T401;          goto T401;
1182  T401:;  T401:;
1183          {register object V227;          {register object V233;
1184          {register object V228;          {register object V234;
1185          V228= CMPcar((V226));          V234= CMPcar((V232));
1186          V226= CMPcdr((V226));          V232= CMPcdr((V232));
1187          V227= (V228);}          V233= (V234);}
1188          if(((V227))==(VV[65])){          if(((V233))==(VV[65])){
1189          goto T404;}          goto T404;}
1190          base[3]= VV[66];          base[3]= VV[66];
1191          base[4]= (V227);          base[4]= (V233);
1192          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1193          Lerror();          Lerror();
1194          vs_top=sup;}          vs_top=sup;}
1195          goto T404;          goto T404;
1196  T404:;  T404:;
1197          {register object V230;          {register object V236;
1198          V230= CMPcar((V226));          V236= CMPcar((V232));
1199          V226= CMPcdr((V226));          V232= CMPcdr((V232));
1200          V229= (V230);}          V235= (V236);}
1201          V231= reverse(V229);          V237= reverse(V235);
1202          V222= nconc((V222),/* INLINE-ARGS */V231);          V228= nconc((V228),/* INLINE-ARGS */V237);
1203          goto T399;}          goto T399;}
1204          goto T395;          goto T395;
1205  T395:;  T395:;
1206          V223= CMPcdr((V223));          V229= CMPcdr((V229));
1207          V224= CMPcar((V223));          V230= CMPcar((V229));
1208          goto T390;}          goto T390;}
1209          goto T386;          goto T386;
1210  T386:;  T386:;
1211          {object V232 = reverse((V222));          {object V238 = reverse((V228));
1212          VMR22(V232)}}          VMR22(V238)}}
1213          base[0]=base[0];          base[0]=base[0];
1214          return Cnil;          return Cnil;
1215  }  }
1216  /*      local entry for function BOOTSTRAP-SLOT-INDEX   */  /*      local entry for function BOOTSTRAP-SLOT-INDEX   */
1217    
1218  static object LI28(V235,V236)  static object LI28(V241,V242)
1219    
1220  object V235;object V236;  object V241;object V242;
1221  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1222          goto TTL;          goto TTL;
1223  TTL:;{object V237;  TTL:;{object V243;
1224          base[0]= (V236);          base[0]= (V242);
1225          base[1]= (*(LnkLI111))((V235));          base[1]= (*(LnkLI111))((V241));
1226          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1227          (void) (*Lnk120)();          (void) (*Lnk120)();
1228          vs_top=sup;          vs_top=sup;
1229          V237= vs_base[0];          V243= vs_base[0];
1230          if(V237==Cnil)goto T424;          if(V243==Cnil)goto T424;
1231          {object V238 = V237;          {object V244 = V243;
1232          VMR23(V238)}          VMR23(V244)}
1233          goto T424;          goto T424;
1234  T424:;}  T424:;}
1235          base[0]= VV[67];          base[0]= VV[67];
1236          base[1]= (V236);          base[1]= (V242);
1237          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1238          Lerror();          Lerror();
1239          vs_top=sup;          vs_top=sup;
1240          {object V239 = vs_base[0];          {object V245 = vs_base[0];
1241          VMR23(V239)}          VMR23(V245)}
1242          base[0]=base[0];          base[0]=base[0];
1243          return Cnil;          return Cnil;
1244  }  }
# Line 1244  static void L29() Line 1250  static void L29()
1250          vs_check;          vs_check;
1251          check_arg(2);          check_arg(2);
1252          vs_top=sup;          vs_top=sup;
1253          {object V240=base[0]->c.c_cdr;          {object V246=base[0]->c.c_cdr;
1254          if(endp(V240))invalid_macro_call();          if(endp(V246))invalid_macro_call();
1255          base[2]= (V240->c.c_car);          base[2]= (V246->c.c_car);
1256          V240=V240->c.c_cdr;          V246=V246->c.c_cdr;
1257          if(endp(V240))invalid_macro_call();          if(endp(V246))invalid_macro_call();
1258          base[3]= (V240->c.c_car);          base[3]= (V246->c.c_car);
1259          V240=V240->c.c_cdr;          V246=V246->c.c_cdr;
1260          if(endp(V240))invalid_macro_call();          if(endp(V246))invalid_macro_call();
1261          base[4]= (V240->c.c_car);          base[4]= (V246->c.c_car);
1262          V240=V240->c.c_cdr;          V246=V246->c.c_cdr;
1263          if(!endp(V240))invalid_macro_call();}          if(!endp(V246))invalid_macro_call();}
1264          V241= list(2,VV[69],base[3]);          V247= list(2,VV[69],base[3]);
1265          base[5]= list(3,VV[68],/* INLINE-ARGS */V241,list(3,VV[70],base[2],base[4]));          base[5]= list(3,VV[68],/* INLINE-ARGS */V247,list(3,VV[70],base[2],base[4]));
1266          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1267          return;          return;
1268  }  }
1269  /*      local entry for function BOOTSTRAP-SET-SLOT     */  /*      local entry for function BOOTSTRAP-SET-SLOT     */
1270    
1271  static object LI30(V246,V247,V248,V249)  static object LI30(V252,V253,V254,V255)
1272    
1273  object V246;register object V247;object V248;object V249;  object V252;register object V253;object V254;object V255;
1274  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1275          goto TTL;          goto TTL;
1276  TTL:;  TTL:;
1277          if(type_of(V247)==t_structure){          if(type_of(V253)==t_structure){
1278          goto T434;}          goto T434;}
1279          goto T432;          goto T432;
1280          goto T434;          goto T434;
1281  T434:;  T434:;
1282          if(!(((V247)->str.str_def)==(VV[71]))){          if(!(((V253)->str.str_def)==(VV[71]))){
1283          goto T432;}          goto T432;}
1284          V250= STREF(object,(V247),4);          V256= STREF(object,(V253),4);
1285          goto T430;          goto T430;
1286          goto T432;          goto T432;
1287  T432:;{object V252;  T432:;{object V258;
1288          V252= (VV[73]->s.s_dbind);          V258= (VV[73]->s.s_dbind);
1289          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1290          base[1]= (V247);          base[1]= (V253);
1291          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1292          (void) (*Lnk121)();          (void) (*Lnk121)();
1293          vs_top=sup;          vs_top=sup;
1294          V253= vs_base[0];          V259= vs_base[0];
1295          if(!((V252)==(CMPcar(V253)))){          if(!((V258)==(CMPcar(V259)))){
1296          goto T437;}}          goto T437;}}
1297          V250= CMPcar(((V247))->cc.cc_turbo[12]);          V256= CMPcar(((V253))->cc.cc_turbo[12]);
1298          goto T430;          goto T430;
1299          goto T437;          goto T437;
1300  T437:;  T437:;
# Line 1296  T437:; Line 1302  T437:;
1302          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1303          Lerror();          Lerror();
1304          vs_top=sup;          vs_top=sup;
1305          V250= vs_base[0];          V256= vs_base[0];
1306          goto T430;          goto T430;
1307  T430:;  T430:;
1308          V254= (*(LnkLI70))((V246),(V248));          V260= (*(LnkLI70))((V252),(V254));
1309          {object V255 = ((V250)->v.v_self[fix(/* INLINE-ARGS */V254)]=((V249)));          V261 = (V255);
1310          VMR25(V255)}          {object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261));
1311            VMR25(V262)}
1312          base[0]=base[0];          base[0]=base[0];
1313          return Cnil;          return Cnil;
1314  }  }
1315  /*      local entry for function EARLY-CLASS-NAME       */  /*      local entry for function EARLY-CLASS-NAME       */
1316    
1317  static object LI31(V257)  static object LI31(V264)
1318    
1319  register object V257;  register object V264;
1320  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1321          goto TTL;          goto TTL;
1322  TTL:;  TTL:;
1323          if(type_of(V257)==t_structure){          if(type_of(V264)==t_structure){
1324          goto T447;}          goto T447;}
1325          goto T445;          goto T445;
1326          goto T447;          goto T447;
1327  T447:;  T447:;
1328          if(!(((V257)->str.str_def)==(VV[75]))){          if(!(((V264)->str.str_def)==(VV[75]))){
1329          goto T445;}          goto T445;}
1330          V258= STREF(object,(V257),4);          V265= STREF(object,(V264),4);
1331          goto T443;          goto T443;
1332          goto T445;          goto T445;
1333  T445:;{object V260;  T445:;{object V267;
1334          V260= (VV[73]->s.s_dbind);          V267= (VV[73]->s.s_dbind);
1335          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1336          base[1]= (V257);          base[1]= (V264);
1337          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1338          (void) (*Lnk121)();          (void) (*Lnk121)();
1339          vs_top=sup;          vs_top=sup;
1340          V261= vs_base[0];          V268= vs_base[0];
1341          if(!((V260)==(CMPcar(V261)))){          if(!((V267)==(CMPcar(V268)))){
1342          goto T450;}}          goto T450;}}
1343          V258= CMPcar(((V257))->cc.cc_turbo[12]);          V265= CMPcar(((V264))->cc.cc_turbo[12]);
1344          goto T443;          goto T443;
1345          goto T450;          goto T450;
1346  T450:;  T450:;
# Line 1341  T450:; Line 1348  T450:;
1348          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1349          Lerror();          Lerror();
1350          vs_top=sup;          vs_top=sup;
1351          V258= vs_base[0];          V265= vs_base[0];
1352          goto T443;          goto T443;
1353  T443:;  T443:;
1354          V262= (*(LnkLI70))(VV[76],VV[77]);          V269= (*(LnkLI70))(VV[76],VV[77]);
1355          {object V263 = (V258)->v.v_self[fix(/* INLINE-ARGS */V262)];          {object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)];
1356          VMR26(V263)}          VMR26(V270)}
1357          base[0]=base[0];          base[0]=base[0];
1358          return Cnil;          return Cnil;
1359  }  }
1360  /*      local entry for function EARLY-CLASS-PRECEDENCE-LIST    */  /*      local entry for function EARLY-CLASS-PRECEDENCE-LIST    */
1361    
1362  static object LI32(V265)  static object LI32(V272)
1363    
1364  register object V265;  register object V272;
1365  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1366          goto TTL;          goto TTL;
1367  TTL:;  TTL:;
1368          if(type_of(V265)==t_structure){          if(type_of(V272)==t_structure){
1369          goto T460;}          goto T460;}
1370          goto T458;          goto T458;
1371          goto T460;          goto T460;
1372  T460:;  T460:;
1373          if(!(((V265)->str.str_def)==(VV[78]))){          if(!(((V272)->str.str_def)==(VV[78]))){
1374          goto T458;}          goto T458;}
1375          V266= STREF(object,(V265),4);          V273= STREF(object,(V272),4);
1376          goto T456;          goto T456;
1377          goto T458;          goto T458;
1378  T458:;{object V268;  T458:;{object V275;
1379          V268= (VV[73]->s.s_dbind);          V275= (VV[73]->s.s_dbind);
1380          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1381          base[1]= (V265);          base[1]= (V272);
1382          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1383          (void) (*Lnk121)();          (void) (*Lnk121)();
1384          vs_top=sup;          vs_top=sup;
1385          V269= vs_base[0];          V276= vs_base[0];
1386          if(!((V268)==(CMPcar(V269)))){          if(!((V275)==(CMPcar(V276)))){
1387          goto T463;}}          goto T463;}}
1388          V266= CMPcar(((V265))->cc.cc_turbo[12]);          V273= CMPcar(((V272))->cc.cc_turbo[12]);
1389          goto T456;          goto T456;
1390          goto T463;          goto T463;
1391  T463:;  T463:;
# Line 1386  T463:; Line 1393  T463:;
1393          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1394          Lerror();          Lerror();
1395          vs_top=sup;          vs_top=sup;
1396          V266= vs_base[0];          V273= vs_base[0];
1397          goto T456;          goto T456;
1398  T456:;  T456:;
1399          V270= (*(LnkLI70))(VV[79],VV[80]);          V277= (*(LnkLI70))(VV[79],VV[80]);
1400          {object V271 = (V266)->v.v_self[fix(/* INLINE-ARGS */V270)];          {object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)];
1401          VMR27(V271)}          VMR27(V278)}
1402          base[0]=base[0];          base[0]=base[0];
1403          return Cnil;          return Cnil;
1404  }  }
1405  /*      local entry for function EARLY-CLASS-NAME-OF    */  /*      local entry for function EARLY-CLASS-NAME-OF    */
1406    
1407  static object LI33(V273)  static object LI33(V280)
1408    
1409  object V273;  object V280;
1410  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1411          goto TTL;          goto TTL;
1412  TTL:;  TTL:;
1413          V274= (*(LnkLI124))((V273));          V281= (*(LnkLI124))((V280));
1414          {object V275 = (*(LnkLI123))(/* INLINE-ARGS */V274);          {object V282 = (*(LnkLI123))(/* INLINE-ARGS */V281);
1415          VMR28(V275)}          VMR28(V282)}
1416          return Cnil;          return Cnil;
1417  }  }
1418  /*      local entry for function EARLY-CLASS-SLOTDS     */  /*      local entry for function EARLY-CLASS-SLOTDS     */
1419    
1420  static object LI34(V277)  static object LI34(V284)
1421    
1422  register object V277;  register object V284;
1423  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1424          goto TTL;          goto TTL;
1425  TTL:;  TTL:;
1426          if(type_of(V277)==t_structure){          if(type_of(V284)==t_structure){
1427          goto T473;}          goto T473;}
1428          goto T471;          goto T471;
1429          goto T473;          goto T473;
1430  T473:;  T473:;
1431          if(!(((V277)->str.str_def)==(VV[81]))){          if(!(((V284)->str.str_def)==(VV[81]))){
1432          goto T471;}          goto T471;}
1433          V278= STREF(object,(V277),4);          V285= STREF(object,(V284),4);
1434          goto T469;          goto T469;
1435          goto T471;          goto T471;
1436  T471:;{object V280;  T471:;{object V287;
1437          V280= (VV[73]->s.s_dbind);          V287= (VV[73]->s.s_dbind);
1438          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1439          base[1]= (V277);          base[1]= (V284);
1440          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1441          (void) (*Lnk121)();          (void) (*Lnk121)();
1442          vs_top=sup;          vs_top=sup;
1443          V281= vs_base[0];          V288= vs_base[0];
1444          if(!((V280)==(CMPcar(V281)))){          if(!((V287)==(CMPcar(V288)))){
1445          goto T476;}}          goto T476;}}
1446          V278= CMPcar(((V277))->cc.cc_turbo[12]);          V285= CMPcar(((V284))->cc.cc_turbo[12]);
1447          goto T469;          goto T469;
1448          goto T476;          goto T476;
1449  T476:;  T476:;
# Line 1444  T476:; Line 1451  T476:;
1451          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1452          Lerror();          Lerror();
1453          vs_top=sup;          vs_top=sup;
1454          V278= vs_base[0];          V285= vs_base[0];
1455          goto T469;          goto T469;
1456  T469:;  T469:;
1457          V282= (*(LnkLI70))(VV[82],VV[83]);          V289= (*(LnkLI70))(VV[82],VV[83]);
1458          {object V283 = (V278)->v.v_self[fix(/* INLINE-ARGS */V282)];          {object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)];
1459          VMR29(V283)}          VMR29(V290)}
1460          base[0]=base[0];          base[0]=base[0];
1461          return Cnil;          return Cnil;
1462  }  }
1463  /*      local entry for function EARLY-SLOT-DEFINITION-NAME     */  /*      local entry for function EARLY-SLOT-DEFINITION-NAME     */
1464    
1465  static object LI35(V285)  static object LI35(V292)
1466    
1467  register object V285;  register object V292;
1468  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1469          goto TTL;          goto TTL;
1470  TTL:;  TTL:;
1471          if(type_of(V285)==t_structure){          if(type_of(V292)==t_structure){
1472          goto T486;}          goto T486;}
1473          goto T484;          goto T484;
1474          goto T486;          goto T486;
1475  T486:;  T486:;
1476          if(!(((V285)->str.str_def)==(VV[84]))){          if(!(((V292)->str.str_def)==(VV[84]))){
1477          goto T484;}          goto T484;}
1478          V286= STREF(object,(V285),4);          V293= STREF(object,(V292),4);
1479          goto T482;          goto T482;
1480          goto T484;          goto T484;
1481  T484:;{object V288;  T484:;{object V295;
1482          V288= (VV[73]->s.s_dbind);          V295= (VV[73]->s.s_dbind);
1483          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1484          base[1]= (V285);          base[1]= (V292);
1485          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1486          (void) (*Lnk121)();          (void) (*Lnk121)();
1487          vs_top=sup;          vs_top=sup;
1488          V289= vs_base[0];          V296= vs_base[0];
1489          if(!((V288)==(CMPcar(V289)))){          if(!((V295)==(CMPcar(V296)))){
1490          goto T489;}}          goto T489;}}
1491          V286= CMPcar(((V285))->cc.cc_turbo[12]);          V293= CMPcar(((V292))->cc.cc_turbo[12]);
1492          goto T482;          goto T482;
1493          goto T489;          goto T489;
1494  T489:;  T489:;
# Line 1489  T489:; Line 1496  T489:;
1496          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1497          Lerror();          Lerror();
1498          vs_top=sup;          vs_top=sup;
1499          V286= vs_base[0];          V293= vs_base[0];
1500          goto T482;          goto T482;
1501  T482:;  T482:;
1502          V290= (*(LnkLI70))(VV[85],VV[77]);          V297= (*(LnkLI70))(VV[85],VV[77]);
1503          {object V291 = (V286)->v.v_self[fix(/* INLINE-ARGS */V290)];          {object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)];
1504          VMR30(V291)}          VMR30(V298)}
1505          base[0]=base[0];          base[0]=base[0];
1506          return Cnil;          return Cnil;
1507  }  }
1508  /*      local entry for function EARLY-SLOT-DEFINITION-LOCATION */  /*      local entry for function EARLY-SLOT-DEFINITION-LOCATION */
1509    
1510  static object LI36(V293)  static object LI36(V300)
1511    
1512  register object V293;  register object V300;
1513  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1514          goto TTL;          goto TTL;
1515  TTL:;  TTL:;
1516          if(type_of(V293)==t_structure){          if(type_of(V300)==t_structure){
1517          goto T499;}          goto T499;}
1518          goto T497;          goto T497;
1519          goto T499;          goto T499;
1520  T499:;  T499:;
1521          if(!(((V293)->str.str_def)==(VV[86]))){          if(!(((V300)->str.str_def)==(VV[86]))){
1522          goto T497;}          goto T497;}
1523          V294= STREF(object,(V293),4);          V301= STREF(object,(V300),4);
1524          goto T495;          goto T495;
1525          goto T497;          goto T497;
1526  T497:;{object V296;  T497:;{object V303;
1527          V296= (VV[73]->s.s_dbind);          V303= (VV[73]->s.s_dbind);
1528          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1529          base[1]= (V293);          base[1]= (V300);
1530          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1531          (void) (*Lnk121)();          (void) (*Lnk121)();
1532          vs_top=sup;          vs_top=sup;
1533          V297= vs_base[0];          V304= vs_base[0];
1534          if(!((V296)==(CMPcar(V297)))){          if(!((V303)==(CMPcar(V304)))){
1535          goto T502;}}          goto T502;}}
1536          V294= CMPcar(((V293))->cc.cc_turbo[12]);          V301= CMPcar(((V300))->cc.cc_turbo[12]);
1537          goto T495;          goto T495;
1538          goto T502;          goto T502;
1539  T502:;  T502:;
# Line 1534  T502:; Line 1541  T502:;
1541          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1542          Lerror();          Lerror();
1543          vs_top=sup;          vs_top=sup;
1544          V294= vs_base[0];          V301= vs_base[0];
1545          goto T495;          goto T495;
1546  T495:;  T495:;
1547          V298= (*(LnkLI70))(VV[85],VV[87]);          V305= (*(LnkLI70))(VV[85],VV[87]);
1548          {object V299 = (V294)->v.v_self[fix(/* INLINE-ARGS */V298)];          {object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)];
1549          VMR31(V299)}          VMR31(V306)}
1550          base[0]=base[0];          base[0]=base[0];
1551          return Cnil;          return Cnil;
1552  }  }
1553  /*      local entry for function EARLY-ACCESSOR-METHOD-SLOT-NAME        */  /*      local entry for function EARLY-ACCESSOR-METHOD-SLOT-NAME        */
1554    
1555  static object LI37(V301)  static object LI37(V308)
1556    
1557  register object V301;  register object V308;
1558  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1559          goto TTL;          goto TTL;
1560  TTL:;  TTL:;
1561          if(type_of(V301)==t_structure){          if(type_of(V308)==t_structure){
1562          goto T512;}          goto T512;}
1563          goto T510;          goto T510;
1564          goto T512;          goto T512;
1565  T512:;  T512:;
1566          if(!(((V301)->str.str_def)==(VV[88]))){          if(!(((V308)->str.str_def)==(VV[88]))){
1567          goto T510;}          goto T510;}
1568          V302= STREF(object,(V301),4);          V309= STREF(object,(V308),4);
1569          goto T508;          goto T508;
1570          goto T510;          goto T510;
1571  T510:;{object V304;  T510:;{object V311;
1572          V304= (VV[73]->s.s_dbind);          V311= (VV[73]->s.s_dbind);
1573          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1574          base[1]= (V301);          base[1]= (V308);
1575          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1576          (void) (*Lnk121)();          (void) (*Lnk121)();
1577          vs_top=sup;          vs_top=sup;
1578          V305= vs_base[0];          V312= vs_base[0];
1579          if(!((V304)==(CMPcar(V305)))){          if(!((V311)==(CMPcar(V312)))){
1580          goto T515;}}          goto T515;}}
1581          V302= CMPcar(((V301))->cc.cc_turbo[12]);          V309= CMPcar(((V308))->cc.cc_turbo[12]);
1582          goto T508;          goto T508;
1583          goto T515;          goto T515;
1584  T515:;  T515:;
# Line 1579  T515:; Line 1586  T515:;
1586          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1587          Lerror();          Lerror();
1588          vs_top=sup;          vs_top=sup;
1589          V302= vs_base[0];          V309= vs_base[0];
1590          goto T508;          goto T508;
1591  T508:;  T508:;
1592          V306= (*(LnkLI70))(VV[89],VV[90]);          V313= (*(LnkLI70))(VV[89],VV[90]);
1593          {object V307 = (V302)->v.v_self[fix(/* INLINE-ARGS */V306)];          {object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)];
1594          VMR32(V307)}          VMR32(V314)}
1595          base[0]=base[0];          base[0]=base[0];
1596          return Cnil;          return Cnil;
1597  }  }
1598  /*      local entry for function EARLY-CLASS-DIRECT-SUBCLASSES  */  /*      local entry for function EARLY-CLASS-DIRECT-SUBCLASSES  */
1599    
1600  static object LI38(V309)  static object LI38(V316)
1601    
1602  register object V309;  register object V316;
1603  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1604          goto TTL;          goto TTL;
1605  TTL:;  TTL:;
1606          if(type_of(V309)==t_structure){          if(type_of(V316)==t_structure){
1607          goto T525;}          goto T525;}
1608          goto T523;          goto T523;
1609          goto T525;          goto T525;
1610  T525:;  T525:;
1611          if(!(((V309)->str.str_def)==(VV[91]))){          if(!(((V316)->str.str_def)==(VV[91]))){
1612          goto T523;}          goto T523;}
1613          V310= STREF(object,(V309),4);          V317= STREF(object,(V316),4);
1614          goto T521;          goto T521;
1615          goto T523;          goto T523;
1616  T523:;{object V312;  T523:;{object V319;
1617          V312= (VV[73]->s.s_dbind);          V319= (VV[73]->s.s_dbind);
1618          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1619          base[1]= (V309);          base[1]= (V316);
1620          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1621          (void) (*Lnk121)();          (void) (*Lnk121)();
1622          vs_top=sup;          vs_top=sup;
1623          V313= vs_base[0];          V320= vs_base[0];
1624          if(!((V312)==(CMPcar(V313)))){          if(!((V319)==(CMPcar(V320)))){
1625          goto T528;}}          goto T528;}}
1626          V310= CMPcar(((V309))->cc.cc_turbo[12]);          V317= CMPcar(((V316))->cc.cc_turbo[12]);
1627          goto T521;          goto T521;
1628          goto T528;          goto T528;
1629  T528:;  T528:;
# Line 1624  T528:; Line 1631  T528:;
1631          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1632          Lerror();          Lerror();
1633          vs_top=sup;          vs_top=sup;
1634          V310= vs_base[0];          V317= vs_base[0];
1635          goto T521;          goto T521;
1636  T521:;  T521:;
1637          V314= (*(LnkLI70))(VV[76],VV[92]);          V321= (*(LnkLI70))(VV[76],VV[92]);
1638          {object V315 = (V310)->v.v_self[fix(/* INLINE-ARGS */V314)];          {object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)];
1639          VMR33(V315)}          VMR33(V322)}
1640          base[0]=base[0];          base[0]=base[0];
1641          return Cnil;          return Cnil;
1642  }  }
1643  /*      local entry for function LOAD-DEFCLASS  */  /*      local entry for function LOAD-DEFCLASS  */
1644    
1645  static object LI39(V322,V323,V324,V325,V326,V327)  static object LI39(V329,V330,V331,V332,V333,V334)
1646    
1647  object V322;object V323;object V324;object V325;object V326;object V327;  object V329;object V330;object V331;object V332;object V333;object V334;
1648  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
1649          goto TTL;          goto TTL;
1650  TTL:;  TTL:;
1651          base[0]= (V324);          base[0]= (V331);
1652          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1653          Lcopy_tree();          Lcopy_tree();
1654          vs_top=sup;          vs_top=sup;
1655          V324= vs_base[0];          V331= vs_base[0];
1656          base[0]= (V325);          base[0]= (V332);
1657          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1658          Lcopy_tree();          Lcopy_tree();
1659          vs_top=sup;          vs_top=sup;
1660          V325= vs_base[0];          V332= vs_base[0];
1661          base[0]= (V326);          base[0]= (V333);
1662          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1663          Lcopy_tree();          Lcopy_tree();
1664          vs_top=sup;          vs_top=sup;
1665          V326= vs_base[0];          V333= vs_base[0];
1666          (void)((*(LnkLI100))((V327)));          (void)((*(LnkLI100))((V334)));
1667          if(!(((V323))==(VV[11]))){          if(!(((V330))==(VV[11]))){
1668          goto T544;}          goto T544;}
1669          (void)((*(LnkLI104))((V322)));          (void)((*(LnkLI104))((V329)));
1670          goto T544;          goto T544;
1671  T544:;  T544:;
1672          {object V328;          {object V335;
1673          object V329;          object V336;
1674            V337 = (V329);
1675          vs_base=vs_top;          vs_base=vs_top;
1676          (void) (*Lnk126)();          (void) (*Lnk126)();
1677          vs_top=sup;          vs_top=sup;
1678          V330= vs_base[0];          V338= vs_base[0];
1679          V328= (*(LnkLI125))((V322),V330,(V323),(V324),(V325),(V326));          V339 = (V330);
1680          base[0]= (V322);          V340 = (V331);
1681            V341 = (V332);
1682            V342 = (V333);
1683            V335= (*(LnkLI125))(V337,V338,V339,V340,V341,V342);
1684            base[0]= (V329);
1685          base[1]= (VV[57]->s.s_dbind);          base[1]= (VV[57]->s.s_dbind);
1686          base[2]= VV[58];          base[2]= VV[58];
1687          base[3]= (VV[107]->s.s_gfdef);          base[3]= (VV[107]->s.s_gfdef);
1688          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1689          (void) (*Lnk108)();          (void) (*Lnk108)();
1690          vs_top=sup;          vs_top=sup;
1691          V329= vs_base[0];          V336= vs_base[0];
1692          base[0]= (V329);          V343 = (V335);
1693            base[0]= (V336);
1694          base[1]= (VV[57]->s.s_dbind);          base[1]= (VV[57]->s.s_dbind);
1695          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1696          (void) (*Lnk95)();          (void) (*Lnk95)();
1697          vs_top=sup;          vs_top=sup;
1698          V331= vs_base[0];          V344= vs_base[0];
1699          (VV[57]->s.s_dbind)= make_cons((V328),V331);          (VV[57]->s.s_dbind)= make_cons(V343,V344);
1700          {object V332 = (V328);          {object V345 = (V335);
1701          VMR34(V332)}}          VMR34(V345)}}
1702          base[0]=base[0];          base[0]=base[0];
1703          return Cnil;          return Cnil;
1704  }  }
# Line 1696  register object *base0; Line 1709  register object *base0;
1709  {       register object *base=vs_base;  {       register object *base=vs_base;
1710          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1711          vs_check;          vs_check;
1712          {object V333;          {object V346;
1713          check_arg(1);          check_arg(1);
1714          V333=(base[0]);          V346=(base[0]);
1715          vs_top=sup;          vs_top=sup;
1716          goto TTL;          goto TTL;
1717  TTL:;  TTL:;
1718          {object V334;          {object V347;
1719          object V335;          object V348;
1720          V334= (*(LnkLI60))((V333));          V347= (*(LnkLI60))((V346));
1721          V335= (*(LnkLI115))((V334));          V348= (*(LnkLI115))((V347));
1722          {object V337;          V349 = (V346);
1723          {object V338;          {object V351;
1724          object V339= (V335);          {object V352;
1725          if(V339==Cnil){          object V353= (V348);
1726          V337= Cnil;          if(V353==Cnil){
1727            V351= Cnil;
1728          goto T562;}          goto T562;}
1729          base[3]=V338=MMcons(Cnil,Cnil);          base[3]=V352=MMcons(Cnil,Cnil);
1730          goto T563;          goto T563;
1731  T563:;  T563:;
1732          (V338->c.c_car)= (*(LnkLI112))((V339->c.c_car));          (V352->c.c_car)= (*(LnkLI112))((V353->c.c_car));
1733          if((V339=MMcdr(V339))==Cnil){          if((V353=MMcdr(V353))==Cnil){
1734          V337= base[3];          V351= base[3];
1735          goto T562;}          goto T562;}
1736          V338=MMcdr(V338)=MMcons(Cnil,Cnil);          V352=MMcdr(V352)=MMcons(Cnil,Cnil);
1737          goto T563;}          goto T563;}
1738          goto T562;          goto T562;
1739  T562:;  T562:;
1740           vs_top=base+3;           vs_top=base+3;
1741           while(V337!=Cnil)           while(V351!=Cnil)
1742           {vs_push((V337)->c.c_car);V337=(V337)->c.c_cdr;}           {vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;}
1743          vs_base=base+3;}          vs_base=base+3;}
1744          Lappend();          Lappend();
1745          vs_top=sup;          vs_top=sup;
1746          V336= vs_base[0];          V350= vs_base[0];
1747          base[3]= make_cons((V333),V336);          base[3]= make_cons(V349,V350);
1748          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1749          return;}          return;}
1750          }          }
# Line 1742  register object *base0; Line 1756  register object *base0;
1756  {       register object *base=vs_base;  {       register object *base=vs_base;
1757          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
1758          vs_check;          vs_check;
1759          {register object V340;          {register object V354;
1760          check_arg(1);          check_arg(1);
1761          V340=(base[0]);          V354=(base[0]);
1762          vs_top=sup;          vs_top=sup;
1763          goto TTL;          goto TTL;
1764  TTL:;  TTL:;
1765          if(((V340))==Cnil){          if(((V354))==Cnil){
1766          goto T566;}          goto T566;}
1767          base[1]= CMPcdr((V340));          base[1]= CMPcdr((V354));
1768          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1769          L6(base0);          L6(base0);
1770          vs_top=sup;          vs_top=sup;
1771          {object V341= CMPcar((V340));          {object V355= CMPcar((V354));
1772          if(!(type_of(V341)==t_cons||(V341)==Cnil)){          if(!(type_of(V355)==t_cons||(V355)==Cnil)){
1773          goto T571;}}          goto T571;}}
1774          if(!((CMPcaar((V340)))==(VV[7]))){          if(!((CMPcaar((V354)))==(VV[7]))){
1775          goto T571;}          goto T571;}
1776          V340= CMPcdar((V340));          V354= CMPcdar((V354));
1777          goto TTL;          goto TTL;
1778          return;          return;
1779          goto T571;          goto T571;
1780  T571:;  T571:;
1781          {object V342;          {object V356;
1782          V342= CMPcar((V340));          V356= CMPcar((V354));
1783          base0[0]= make_cons((V342),base0[0]);          base0[0]= make_cons((V356),base0[0]);
1784          base[2]= base0[0];          base[2]= base0[0];
1785          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1786          return;}          return;}
# Line 1790  register object *base0; Line 1804  register object *base0;
1804  TTL:;  TTL:;
1805          if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){          if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){
1806          goto T580;}          goto T580;}
1807          {register object x= CMPcar(base0[0]),V343= VV[4];          {register object x= CMPcar(base0[0]),V357= VV[4];
1808          while(V343!=Cnil)          while(V357!=Cnil)
1809          if(x==(V343->c.c_car)){          if(x==(V357->c.c_car)){
1810          goto T583;          goto T583;
1811          }else V343=V343->c.c_cdr;          }else V357=V357->c.c_cdr;
1812          goto T580;}          goto T580;}
1813          goto T583;          goto T583;
1814  T583:;  T583:;

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