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

Diff of /gcl/pcl/pcl_slots.c

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

revision 1.3 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.4 by camm, Tue Oct 7 21:07:39 2003 UTC
# Line 455  TTL:; Line 455  TTL:;
455          return;          return;
456          goto T135;          goto T135;
457  T135:;  T135:;
458          base[5]= (V116);          base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
459          base[6]= V117;          base[6]= V116;
460          base[7]= V114;          base[7]= V117;
461          base[8]= V118;          base[8]= V114;
462          vs_top=(vs_base=base+5)+4;          base[9]= V118;
463          (void) (*Lnk53)(Lclptr53);          vs_top=(vs_base=base+6)+4;
464            {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
465                       (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
466                   else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
467                   else super_funcall_no_event(_funobj);}
468          return;}          return;}
469          }          }
470  }  }
# Line 470  static void L13() Line 474  static void L13()
474  {register object *base=vs_base;  {register object *base=vs_base;
475          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
476          vs_check;          vs_check;
477          {object V122;          {object V123;
478          object V123;          object V124;
479          check_arg(2);          check_arg(2);
480          V122=(base[0]);          V123=(base[0]);
481          V123=(base[1]);          V124=(base[1]);
482          vs_top=sup;          vs_top=sup;
483          goto TTL;          goto TTL;
484  TTL:;  TTL:;
485          {object V124;          {object V125;
486          object V125;          object V126;
487          V124= (*(LnkLI51))((V122));          V125= (*(LnkLI51))((V123));
488          V125= (*(LnkLI52))((V124),(V123));          V126= (*(LnkLI52))((V125),(V124));
489          if(((V125))!=Cnil){          if(((V126))!=Cnil){
490          goto T148;}          goto T149;}
491          base[4]= (V124);          base[4]= (V125);
492          base[5]= (V122);          base[5]= (V123);
493          base[6]= (V123);          base[6]= (V124);
494          base[7]= VV[12];          base[7]= VV[12];
495          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
496          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk43)(Lclptr43);
497          return;          return;
498          goto T148;          goto T149;
499  T148:;  T149:;
500          base[4]= (V124);          base[4]= (V125);
501          base[5]= (V122);          base[5]= (V123);
502          base[6]= (V125);          base[6]= (V126);
503          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
504          (void) (*Lnk26)(Lclptr26);          (void) (*Lnk26)(Lclptr26);
505          return;}          return;}
# Line 507  static void L14() Line 511  static void L14()
511  {register object *base=vs_base;  {register object *base=vs_base;
512          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
513          vs_check;          vs_check;
514          {object V126;          {object V127;
515          object V127;          object V128;
516          check_arg(2);          check_arg(2);
517          V126=(base[0]);          V127=(base[0]);
518          V127=(base[1]);          V128=(base[1]);
519          vs_top=sup;          vs_top=sup;
520          goto TTL;          goto TTL;
521  TTL:;  TTL:;
522          {object V128;          {object V129;
523          object V129;          object V130;
524          V128= (*(LnkLI51))((V126));          V129= (*(LnkLI51))((V127));
525          V129= (*(LnkLI52))((V128),(V127));          V130= (*(LnkLI52))((V129),(V128));
526          if(((V129))!=Cnil){          if(((V130))!=Cnil){
527          goto T160;}          goto T161;}
528          base[4]= (V128);          base[4]= (V129);
529          base[5]= (V126);          base[5]= (V127);
530          base[6]= (V127);          base[6]= (V128);
531          base[7]= VV[13];          base[7]= VV[13];
532          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
533          (void) (*Lnk43)(Lclptr43);          (void) (*Lnk43)(Lclptr43);
534          return;          return;
535          goto T160;          goto T161;
536  T160:;  T161:;
537          base[4]= (V128);          base[4]= (V129);
538          base[5]= (V126);          base[5]= (V127);
539          base[6]= (V129);          base[6]= (V130);
540          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
541          (void) (*Lnk30)(Lclptr30);          (void) (*Lnk30)(Lclptr30);
542          return;}          return;}
# Line 540  T160:; Line 544  T160:;
544  }  }
545  /*      local entry for function SLOT-EXISTS-P  */  /*      local entry for function SLOT-EXISTS-P  */
546    
547  static object LI15(V132,V133)  static object LI15(V133,V134)
548    
549  object V132;object V133;  object V133;object V134;
550  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
551          goto TTL;          goto TTL;
552  TTL:;  TTL:;
553          {object V134;          {object V135;
554          V134= (*(LnkLI51))((V132));          V135= (*(LnkLI51))((V133));
555          V135= (*(LnkLI52))((V134),(V133));          V136= (*(LnkLI52))((V135),(V134));
556          {object V136 = ((((/* INLINE-ARGS */V135)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V137 = ((((/* INLINE-ARGS */V136)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
557          VMR15(V136)}}          VMR15(V137)}}
558          return Cnil;          return Cnil;
559  }  }
560  /*      function definition for SLOT-VALUE-OR-DEFAULT   */  /*      function definition for SLOT-VALUE-OR-DEFAULT   */
# Line 559  static void L16() Line 563  static void L16()
563  {register object *base=vs_base;  {register object *base=vs_base;
564          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
565          vs_check;          vs_check;
566          {object V137;          {object V138;
         object V138;  
567          object V139;          object V139;
568            object V140;
569          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
570          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
571          V137=(base[0]);          V138=(base[0]);
572          V138=(base[1]);          V139=(base[1]);
573          vs_base=vs_base+2;          vs_base=vs_base+2;
574          if(vs_base>=vs_top){vs_top=sup;goto T170;}          if(vs_base>=vs_top){vs_top=sup;goto T171;}
575          V139=(base[2]);          V140=(base[2]);
576          vs_top=sup;          vs_top=sup;
577          goto T171;          goto T172;
         goto T170;  
 T170:;  
         V139= VV[14];  
578          goto T171;          goto T171;
579  T171:;  T171:;
580          base[3]= (V137);          V140= VV[14];
581          base[4]= (V138);          goto T172;
582    T172:;
583            base[3]= (V138);
584            base[4]= (V139);
585          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
586          (void) (*Lnk12)();          (void) (*Lnk12)();
587          vs_top=sup;          vs_top=sup;
588          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
589          goto T174;}          goto T175;}
590          base[3]= (V137);          base[3]= (V138);
591          base[4]= (V138);          base[4]= (V139);
592          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
593          (void) (*Lnk9)();          (void) (*Lnk9)();
594          return;          return;
595          goto T174;          goto T175;
596  T174:;  T175:;
597          base[3]= (V139);          base[3]= (V140);
598          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
599          return;          return;
600          }          }
601  }  }
602  /*      local entry for function STANDARD-INSTANCE-ACCESS       */  /*      local entry for function STANDARD-INSTANCE-ACCESS       */
603    
604  static object LI17(V142,V143)  static object LI17(V143,V144)
605    
606  object V142;object V143;  object V143;object V144;
607  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
608          goto TTL;          goto TTL;
609  TTL:;  TTL:;
610          {object V144 = (STREF(object,(V142),4))->v.v_self[fix((V143))];          {object V145 = (STREF(object,(V143),4))->v.v_self[fix((V144))];
611          VMR17(V144)}          VMR17(V145)}
612          return Cnil;          return Cnil;
613  }  }
614  /*      local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS   */  /*      local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS   */
615    
616  static object LI18(V147,V148)  static object LI18(V148,V149)
617    
618  object V147;object V148;  object V148;object V149;
619  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
620          goto TTL;          goto TTL;
621  TTL:;  TTL:;
622          {object V149 = (CMPcar(((V147))->cc.cc_turbo[12]))->v.v_self[fix((V148))];          {object V150 = (CMPcar(((V148))->cc.cc_turbo[12]))->v.v_self[fix((V149))];
623          VMR18(V149)}          VMR18(V150)}
624          return Cnil;          return Cnil;
625  }  }
626  /*      function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))     */  /*      function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))     */
# Line 625  static void L19() Line 629  static void L19()
629  {register object *base=vs_base;  {register object *base=vs_base;
630          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
631          vs_check;          vs_check;
632          {object V150;          {object V151;
         object V151;  
633          object V152;          object V152;
634          register object V153;          object V153;
635          register object V154;          register object V154;
636            register object V155;
637          check_arg(5);          check_arg(5);
638          V150=(base[0]);          V151=(base[0]);
639          V151=(base[1]);          V152=(base[1]);
640          V152=(base[2]);          V153=(base[2]);
641          V153=(base[3]);          V154=(base[3]);
642          V154=(base[4]);          V155=(base[4]);
643          vs_top=sup;          vs_top=sup;
644          goto TTL;          goto TTL;
645  TTL:;  TTL:;
646          {register object V156;          {register object V157;
647          object V157;          object V158;
648          base[7]= (V154);          base[7]= (V155);
649          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
650          (void) (*Lnk54)(Lclptr54);          (void) (*Lnk53)(Lclptr53);
651          vs_top=sup;          vs_top=sup;
652          V156= vs_base[0];          V157= vs_base[0];
653          {register object V158;          {register object V159;
654          V158= (V156);          V159= (V157);
655          if(!(type_of((V158))==t_fixnum)){          if(!(type_of((V159))==t_fixnum)){
656          goto T189;}          goto T190;}
657          if(type_of(V153)==t_structure){          if(type_of(V154)==t_structure){
658          goto T194;}          goto T195;}
659          goto T192;          goto T193;
660          goto T194;          goto T195;
661  T194:;  T195:;
662          if(!(((V153)->str.str_def)==(VV[15]))){          if(!(((V154)->str.str_def)==(VV[15]))){
663          goto T192;}          goto T193;}
664          if((Ct)==((STREF(object,(V153),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V154),0))->v.v_self[8])){
665          goto T196;}          goto T197;}
666          (void)((*(LnkLI55))((V153)));          (void)((*(LnkLI54))((V154)));
667          goto T196;          goto T197;
668  T196:;  T197:;
669          V157= (STREF(object,(V153),4))->v.v_self[fix((V156))];          V158= (STREF(object,(V154),4))->v.v_self[fix((V157))];
670          goto T187;          goto T188;
671          goto T192;          goto T193;
672  T192:;{object V160;  T193:;{object V161;
673          V160= (VV[5]->s.s_dbind);          V161= (VV[5]->s.s_dbind);
674          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
675          base[8]= (V153);          base[8]= (V154);
676          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
677          (void) (*Lnk41)();          (void) (*Lnk41)();
678          vs_top=sup;          vs_top=sup;
679          V161= vs_base[0];          V162= vs_base[0];
680          if(!((V160)==(CMPcar(V161)))){          if(!((V161)==(CMPcar(V162)))){
681          goto T200;}}          goto T201;}}
682          if((Ct)==((CMPcar(((V153))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V154))->cc.cc_turbo[13]))->v.v_self[8])){
683          goto T205;}          goto T206;}
684          (void)((*(LnkLI55))((V153)));          (void)((*(LnkLI54))((V154)));
685          goto T205;          goto T206;
686  T205:;  T206:;
687          V157= (CMPcar(((V153))->cc.cc_turbo[12]))->v.v_self[fix((V156))];          V158= (CMPcar(((V154))->cc.cc_turbo[12]))->v.v_self[fix((V157))];
688          goto T187;          goto T188;
689          goto T200;          goto T201;
690  T200:;  T201:;
691          base[7]= VV[16];          base[7]= VV[16];
692          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
693          Lerror();          Lerror();
694          vs_top=sup;          vs_top=sup;
695          V157= vs_base[0];          V158= vs_base[0];
696          goto T187;          goto T188;
697          goto T189;          goto T190;
698  T189:;  T190:;
699          if(!(type_of((V158))==t_cons)){          if(!(type_of((V159))==t_cons)){
700          goto T210;}          goto T211;}
701          V157= CMPcdr((V156));          V158= CMPcdr((V157));
702          goto T187;          goto T188;
703          goto T210;          goto T211;
704  T210:;  T211:;
705          base[7]= VV[17];          base[7]= VV[17];
706          base[8]= (V154);          base[8]= (V155);
707          base[9]= VV[18];          base[9]= VV[18];
708          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
709          Lerror();          Lerror();
710          vs_top=sup;          vs_top=sup;
711          V157= vs_base[0];}          V158= vs_base[0];}
712          goto T187;          goto T188;
713  T187:;  T188:;
714          if(!(((V157))==((VV[10]->s.s_dbind)))){          if(!(((V158))==((VV[10]->s.s_dbind)))){
715          goto T216;}          goto T217;}
716          base[7]= (V152);          base[7]= (V153);
717          base[8]= (V153);          base[8]= (V154);
718          base[10]= (V154);          base[10]= (V155);
719          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
720          (void) (*Lnk50)(Lclptr50);          (void) (*Lnk50)(Lclptr50);
721          vs_top=sup;          vs_top=sup;
# Line 719  T187:; Line 723  T187:;
723          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
724          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk44)(Lclptr44);
725          return;          return;
726          goto T216;          goto T217;
727  T216:;  T217:;
728          base[7]= (V157);          base[7]= (V158);
729          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
730          return;}          return;}
731          }          }
732  }  }
733  /*      local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */
734    
735  static object LI20(V168,V169,V170,V171,V172,V173)  static object LI20(V169,V170,V171,V172,V173,V174)
736    
737  object V168;object V169;object V170;object V171;register object V172;object V173;  object V169;object V170;object V171;object V172;register object V173;object V174;
738  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
739          goto TTL;          goto TTL;
740  TTL:;  TTL:;
741          {register object V175;          {register object V176;
742          base[0]= (V173);          base[0]= (V174);
743          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
744          (void) (*Lnk54)(Lclptr54);          (void) (*Lnk53)(Lclptr53);
745          vs_top=sup;          vs_top=sup;
746          V175= vs_base[0];          V176= vs_base[0];
747          {register object V176;          {register object V177;
748          V176= (V175);          V177= (V176);
749          if(!(type_of((V176))==t_fixnum)){          if(!(type_of((V177))==t_fixnum)){
750          goto T230;}          goto T231;}
751          if(type_of(V172)==t_structure){          if(type_of(V173)==t_structure){
752          goto T235;}          goto T236;}
753          goto T233;          goto T234;
754          goto T235;          goto T236;
755  T235:;  T236:;
756          if(!(((V172)->str.str_def)==(VV[19]))){          if(!(((V173)->str.str_def)==(VV[19]))){
757          goto T233;}          goto T234;}
758          if((Ct)==((STREF(object,(V172),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V173),0))->v.v_self[8])){
759          goto T237;}          goto T238;}
760          (void)((*(LnkLI55))((V172)));          (void)((*(LnkLI54))((V173)));
761          goto T237;          goto T238;
762  T237:;  T238:;
763          {object V178 = (STREF(object,(V172),4))->v.v_self[fix((V175))]= ((V170));          {object V179 = (STREF(object,(V173),4))->v.v_self[fix((V176))]= ((V171));
764          VMR20(V178)}          VMR20(V179)}
765          goto T233;          goto T234;
766  T233:;{object V179;  T234:;{object V180;
767          V179= (VV[5]->s.s_dbind);          V180= (VV[5]->s.s_dbind);
768          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
769          base[1]= (V172);          base[1]= (V173);
770          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
771          (void) (*Lnk41)();          (void) (*Lnk41)();
772          vs_top=sup;          vs_top=sup;
773          V180= vs_base[0];          V181= vs_base[0];
774          if(!((V179)==(CMPcar(V180)))){          if(!((V180)==(CMPcar(V181)))){
775          goto T241;}}          goto T242;}}
776          if((Ct)==((CMPcar(((V172))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V173))->cc.cc_turbo[13]))->v.v_self[8])){
777          goto T246;}          goto T247;}
778          (void)((*(LnkLI55))((V172)));          (void)((*(LnkLI54))((V173)));
779          goto T246;          goto T247;
780  T246:;  T247:;
781          {object V181 = (CMPcar(((V172))->cc.cc_turbo[12]))->v.v_self[fix((V175))]= ((V170));          {object V182 = (CMPcar(((V173))->cc.cc_turbo[12]))->v.v_self[fix((V176))]= ((V171));
782          VMR20(V181)}          VMR20(V182)}
783          goto T241;          goto T242;
784  T241:;  T242:;
785          base[0]= VV[20];          base[0]= VV[20];
786          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
787          Lerror();          Lerror();
788          vs_top=sup;          vs_top=sup;
789          {object V182 = vs_base[0];          {object V183 = vs_base[0];
790          VMR20(V182)}          VMR20(V183)}
791          goto T230;          goto T231;
792  T230:;  T231:;
793          if(!(type_of((V176))==t_cons)){          if(!(type_of((V177))==t_cons)){
794          goto T251;}          goto T252;}
795          (V175)->c.c_cdr = V170;          (V176)->c.c_cdr = V171;
796          {object V185 = V170;          {object V186 = V171;
797          VMR20(V185)}          VMR20(V186)}
798          goto T251;          goto T252;
799  T251:;  T252:;
800          base[0]= VV[21];          base[0]= VV[21];
801          base[1]= (V173);          base[1]= (V174);
802          base[2]= VV[22];          base[2]= VV[22];
803          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
804          Lerror();          Lerror();
805          vs_top=sup;          vs_top=sup;
806          {object V186 = vs_base[0];          {object V187 = vs_base[0];
807          VMR20(V186)}}}          VMR20(V187)}}}
808          base[0]=base[0];          base[0]=base[0];
809          return Cnil;          return Cnil;
810  }  }
811  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))   */
812    
813  static object LI21(V192,V193,V194,V195,V196)  static object LI21(V193,V194,V195,V196,V197)
814    
815  object V192;object V193;object V194;register object V195;object V196;  object V193;object V194;object V195;register object V196;object V197;
816  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
817          goto TTL;          goto TTL;
818  TTL:;  TTL:;
819          {register object V198;          {register object V199;
820          object V199;          object V200;
821          base[2]= (V196);          base[2]= (V197);
822          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
823          (void) (*Lnk54)(Lclptr54);          (void) (*Lnk53)(Lclptr53);
824          vs_top=sup;          vs_top=sup;
825          V198= vs_base[0];          V199= vs_base[0];
826          {register object V200;          {register object V201;
827          V200= (V198);          V201= (V199);
828          if(!(type_of((V200))==t_fixnum)){          if(!(type_of((V201))==t_fixnum)){
829          goto T266;}          goto T267;}
830          if(type_of(V195)==t_structure){          if(type_of(V196)==t_structure){
831          goto T271;}          goto T272;}
832          goto T269;          goto T270;
833          goto T271;          goto T272;
834  T271:;  T272:;
835          if(!(((V195)->str.str_def)==(VV[23]))){          if(!(((V196)->str.str_def)==(VV[23]))){
836          goto T269;}          goto T270;}
837          if((Ct)==((STREF(object,(V195),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V196),0))->v.v_self[8])){
838          goto T273;}          goto T274;}
839          (void)((*(LnkLI55))((V195)));          (void)((*(LnkLI54))((V196)));
840          goto T273;          goto T274;
841  T273:;  T274:;
842          V199= (STREF(object,(V195),4))->v.v_self[fix((V198))];          V200= (STREF(object,(V196),4))->v.v_self[fix((V199))];
843          goto T264;          goto T265;
844          goto T269;          goto T270;
845  T269:;{object V202;  T270:;{object V203;
846          V202= (VV[5]->s.s_dbind);          V203= (VV[5]->s.s_dbind);
847          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
848          base[3]= (V195);          base[3]= (V196);
849          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
850          (void) (*Lnk41)();          (void) (*Lnk41)();
851          vs_top=sup;          vs_top=sup;
852          V203= vs_base[0];          V204= vs_base[0];
853          if(!((V202)==(CMPcar(V203)))){          if(!((V203)==(CMPcar(V204)))){
854          goto T277;}}          goto T278;}}
855          if((Ct)==((CMPcar(((V195))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V196))->cc.cc_turbo[13]))->v.v_self[8])){
856          goto T282;}          goto T283;}
857          (void)((*(LnkLI55))((V195)));          (void)((*(LnkLI54))((V196)));
858          goto T282;          goto T283;
859  T282:;  T283:;
860          V199= (CMPcar(((V195))->cc.cc_turbo[12]))->v.v_self[fix((V198))];          V200= (CMPcar(((V196))->cc.cc_turbo[12]))->v.v_self[fix((V199))];
861          goto T264;          goto T265;
862          goto T277;          goto T278;
863  T277:;  T278:;
864          base[2]= VV[24];          base[2]= VV[24];
865          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
866          Lerror();          Lerror();
867          vs_top=sup;          vs_top=sup;
868          V199= vs_base[0];          V200= vs_base[0];
869          goto T264;          goto T265;
870          goto T266;          goto T267;
871  T266:;  T267:;
872          if(!(type_of((V200))==t_cons)){          if(!(type_of((V201))==t_cons)){
873          goto T287;}          goto T288;}
874          V199= CMPcdr((V198));          V200= CMPcdr((V199));
875          goto T264;          goto T265;
876          goto T287;          goto T288;
877  T287:;  T288:;
878          base[2]= VV[25];          base[2]= VV[25];
879          base[3]= (V196);          base[3]= (V197);
880          base[4]= VV[26];          base[4]= VV[26];
881          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
882          Lerror();          Lerror();
883          vs_top=sup;          vs_top=sup;
884          V199= vs_base[0];}          V200= vs_base[0];}
885          goto T264;          goto T265;
886  T264:;  T265:;
887          {object V204 = (((((V199))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V205 = (((((V200))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);
888          VMR21(V204)}}          VMR21(V205)}}
889          base[0]=base[0];          base[0]=base[0];
890          return Cnil;          return Cnil;
891  }  }
892  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))       */  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))       */
893    
894  static object LI22(V210,V211,V212,V213,V214)  static object LI22(V211,V212,V213,V214,V215)
895    
896  object V210;object V211;object V212;register object V213;object V214;  object V211;object V212;object V213;register object V214;object V215;
897  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
898          goto TTL;          goto TTL;
899  TTL:;  TTL:;
900          {register object V216;          {register object V217;
901          base[0]= (V214);          base[0]= (V215);
902          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
903          (void) (*Lnk54)(Lclptr54);          (void) (*Lnk53)(Lclptr53);
904          vs_top=sup;          vs_top=sup;
905          V216= vs_base[0];          V217= vs_base[0];
906          {register object V217;          {register object V218;
907          V217= (V216);          V218= (V217);
908          if(!(type_of((V217))==t_fixnum)){          if(!(type_of((V218))==t_fixnum)){
909          goto T301;}          goto T302;}
910          if(type_of(V213)==t_structure){          if(type_of(V214)==t_structure){
911          goto T306;}          goto T307;}
912          goto T304;          goto T305;
913          goto T306;          goto T307;
914  T306:;  T307:;
915          if(!(((V213)->str.str_def)==(VV[27]))){          if(!(((V214)->str.str_def)==(VV[27]))){
916          goto T304;}          goto T305;}
917          if((Ct)==((STREF(object,(V213),0))->v.v_self[8])){          if((Ct)==((STREF(object,(V214),0))->v.v_self[8])){
918          goto T308;}          goto T309;}
919          (void)((*(LnkLI55))((V213)));          (void)((*(LnkLI54))((V214)));
920          goto T308;          goto T309;
921  T308:;  T309:;
922          (void)((STREF(object,(V213),4))->v.v_self[fix((V216))]= ((VV[10]->s.s_dbind)));          (void)((STREF(object,(V214),4))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind)));
923          goto T297;          goto T298;
924          goto T304;          goto T305;
925  T304:;{object V219;  T305:;{object V220;
926          V219= (VV[5]->s.s_dbind);          V220= (VV[5]->s.s_dbind);
927          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
928          base[1]= (V213);          base[1]= (V214);
929          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
930          (void) (*Lnk41)();          (void) (*Lnk41)();
931          vs_top=sup;          vs_top=sup;
932          V220= vs_base[0];          V221= vs_base[0];
933          if(!((V219)==(CMPcar(V220)))){          if(!((V220)==(CMPcar(V221)))){
934          goto T312;}}          goto T313;}}
935          if((Ct)==((CMPcar(((V213))->cc.cc_turbo[13]))->v.v_self[8])){          if((Ct)==((CMPcar(((V214))->cc.cc_turbo[13]))->v.v_self[8])){
936          goto T317;}          goto T318;}
937          (void)((*(LnkLI55))((V213)));          (void)((*(LnkLI54))((V214)));
938          goto T317;          goto T318;
939  T317:;  T318:;
940          (void)((CMPcar(((V213))->cc.cc_turbo[12]))->v.v_self[fix((V216))]= ((VV[10]->s.s_dbind)));          (void)((CMPcar(((V214))->cc.cc_turbo[12]))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind)));
941          goto T297;          goto T298;
942          goto T312;          goto T313;
943  T312:;  T313:;
944          base[0]= VV[28];          base[0]= VV[28];
945          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
946          Lerror();          Lerror();
947          vs_top=sup;          vs_top=sup;
948          goto T297;          goto T298;
949          goto T301;          goto T302;
950  T301:;  T302:;
951          if(!(type_of((V217))==t_cons)){          if(!(type_of((V218))==t_cons)){
952          goto T322;}          goto T323;}
953          {object V222;          {object V223;
954          V222= (VV[10]->s.s_dbind);          V223= (VV[10]->s.s_dbind);
955          (V216)->c.c_cdr = (V222);          (V217)->c.c_cdr = (V223);
956          goto T297;}          goto T298;}
957          goto T322;          goto T323;
958  T322:;  T323:;
959          base[0]= VV[29];          base[0]= VV[29];
960          base[1]= (V214);          base[1]= (V215);
961          base[2]= VV[30];          base[2]= VV[30];
962          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
963          Lerror();          Lerror();
964          vs_top=sup;}}          vs_top=sup;}}
965          goto T297;          goto T298;
966  T297:;  T298:;
967          {object V223 = Cnil;          {object V224 = Cnil;
968          VMR22(V223)}          VMR22(V224)}
969          base[0]=base[0];          base[0]=base[0];
970          return Cnil;          return Cnil;
971  }  }
# Line 971  static void L23() Line 975  static void L23()
975  {register object *base=vs_base;  {register object *base=vs_base;
976          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
977          vs_check;          vs_check;
978          {object V224;          {object V225;
         object V225;  
979          object V226;          object V226;
980          object V227;          object V227;
981          object V228;          object V228;
982            object V229;
983          check_arg(5);          check_arg(5);
984          V224=(base[0]);          V225=(base[0]);
985          V225=(base[1]);          V226=(base[1]);
986          V226=(base[2]);          V227=(base[2]);
987          V227=(base[3]);          V228=(base[3]);
988          V228=(base[4]);          V229=(base[4]);
989          vs_top=sup;          vs_top=sup;
990          goto TTL;          goto TTL;
991  TTL:;  TTL:;
992          {object V230;          {object V231;
993          object V231;          object V232;
994          base[7]= (V228);          base[7]= (V229);
995          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
996          (void) (*Lnk56)(Lclptr56);          (void) (*Lnk55)(Lclptr55);
997          vs_top=sup;          vs_top=sup;
998          V230= vs_base[0];          V231= vs_base[0];
999          V231= (          V232= (
1000          (type_of((V230)) == t_sfun ?(*(((V230))->sfn.sfn_self)):          (type_of((V231)) == t_sfun ?(*(((V231))->sfn.sfn_self)):
1001          (fcall.argd=1,type_of((V230))==t_vfun) ?          (fcall.argd=1,type_of((V231))==t_vfun) ?
1002          (*(((V230))->sfn.sfn_self)):          (*(((V231))->sfn.sfn_self)):
1003          (fcall.fun=((V230)),fcalln))((V227)));          (fcall.fun=((V231)),fcalln))((V228)));
1004          if(!(((V231))==((VV[10]->s.s_dbind)))){          if(!(((V232))==((VV[10]->s.s_dbind)))){
1005          goto T338;}          goto T339;}
1006          base[7]= (V226);          base[7]= (V227);
1007          base[8]= (V227);          base[8]= (V228);
1008          base[10]= (V228);          base[10]= (V229);
1009          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1010          (void) (*Lnk50)(Lclptr50);          (void) (*Lnk50)(Lclptr50);
1011          vs_top=sup;          vs_top=sup;
# Line 1009  TTL:; Line 1013  TTL:;
1013          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1014          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk44)(Lclptr44);
1015          return;          return;
1016          goto T338;          goto T339;
1017  T338:;  T339:;
1018          base[7]= (V231);          base[7]= (V232);
1019          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1020          return;}          return;}
1021          }          }
# Line 1022  static void L24() Line 1026  static void L24()
1026  {register object *base=vs_base;  {register object *base=vs_base;
1027          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1028          vs_check;          vs_check;
1029          {object V232;          {object V233;
         object V233;  
1030          object V234;          object V234;
1031          object V235;          object V235;
1032          object V236;          object V236;
1033          object V237;          object V237;
1034            object V238;
1035          check_arg(6);          check_arg(6);
1036          V232=(base[0]);          V233=(base[0]);
1037          V233=(base[1]);          V234=(base[1]);
1038          V234=(base[2]);          V235=(base[2]);
1039          V235=(base[3]);          V236=(base[3]);
1040          V236=(base[4]);          V237=(base[4]);
1041          V237=(base[5]);          V238=(base[5]);
1042          vs_top=sup;          vs_top=sup;
1043          goto TTL;          goto TTL;
1044  TTL:;  TTL:;
1045          {object V239;          {object V240;
1046          base[6]= (V237);          base[6]= (V238);
1047          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1048          (void) (*Lnk57)(Lclptr57);          (void) (*Lnk56)(Lclptr56);
1049          vs_top=sup;          vs_top=sup;
1050          V239= vs_base[0];          V240= vs_base[0];
1051          base[6]= (V234);          base[6]= (V235);
1052          base[7]= (V236);          base[7]= (V237);
1053          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1054          {object _funobj = (V239);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V240);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1055                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1056                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1057                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 1056  TTL:; Line 1060  TTL:;
1060  }  }
1061  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))   */
1062    
1063  static object LI25(V245,V246,V247,V248,V249)  static object LI25(V246,V247,V248,V249,V250)
1064    
1065  object V245;object V246;object V247;object V248;object V249;  object V246;object V247;object V248;object V249;object V250;
1066  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1067          goto TTL;          goto TTL;
1068  TTL:;  TTL:;
1069          {object V251 = Ct;          {object V252 = Ct;
1070          VMR25(V251)}          VMR25(V252)}
1071          return Cnil;          return Cnil;
1072  }  }
1073  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))       */  /*      local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))       */
1074    
1075  static object LI26(V257,V258,V259,V260,V261)  static object LI26(V258,V259,V260,V261,V262)
1076    
1077  object V257;object V258;object V259;object V260;object V261;  object V258;object V259;object V260;object V261;object V262;
1078  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1079          goto TTL;          goto TTL;
1080  TTL:;  TTL:;
# Line 1078  TTL:; Line 1082  TTL:;
1082          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1083          Lerror();          Lerror();
1084          vs_top=sup;          vs_top=sup;
1085          {object V263 = vs_base[0];          {object V264 = vs_base[0];
1086          VMR26(V263)}          VMR26(V264)}
1087          base[0]=base[0];          base[0]=base[0];
1088          return Cnil;          return Cnil;
1089  }  }
1090  /*      local entry for function (FAST-METHOD SLOT-MISSING (T T T T))   */  /*      local entry for function (FAST-METHOD SLOT-MISSING (T T T T))   */
1091    
1092  static object LI27(V271,V272,V273,V274,V275,V276,V277)  static object LI27(V272,V273,V274,V275,V276,V277,V278)
1093    
1094  object V271;object V272;object V273;object V274;object V275;object V276;object V277;  object V272;object V273;object V274;object V275;object V276;object V277;object V278;
1095  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1096          goto TTL;          goto TTL;
1097  TTL:;  TTL:;
1098          {register object V278;          {register object V279;
1099          object V279;          object V280;
1100          V278= (V277);          V279= (V278);
1101          if(((V278))==Cnil){          if(((V279))==Cnil){
1102          goto T369;}          goto T370;}
1103          {object V280;          {object V281;
1104          V280= CMPcar((V278));          V281= CMPcar((V279));
1105          V278= CMPcdr((V278));          V279= CMPcdr((V279));
1106          V279= (V280);          V280= (V281);
1107          goto T367;}          goto T368;}
1108          goto T369;          goto T370;
1109  T369:;  T370:;
1110          V279= Cnil;          V280= Cnil;
1111          goto T367;          goto T368;
1112  T367:;  T368:;
1113          base[1]= VV[32];          base[1]= VV[32];
1114          {object V281= (V276);          {object V282= (V277);
1115          if((V281!= VV[9]))goto T377;          if((V282!= VV[9]))goto T378;
1116          base[2]= VV[33];          base[2]= VV[33];
         goto T376;  
1117          goto T377;          goto T377;
1118  T377:;          goto T378;
1119          if((V281!= VV[11]))goto T378;  T378:;
1120            if((V282!= VV[11]))goto T379;
1121          base[3]= Cnil;          base[3]= Cnil;
1122          base[4]= VV[34];          base[4]= VV[34];
1123          base[5]= (V279);          base[5]= (V280);
1124          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1125          Lformat();          Lformat();
1126          vs_top=sup;          vs_top=sup;
1127          base[2]= vs_base[0];          base[2]= vs_base[0];
1128          goto T376;          goto T377;
1129          goto T378;          goto T379;
1130  T378:;  T379:;
1131          if((V281!= VV[12]))goto T382;          if((V282!= VV[12]))goto T383;
1132          base[2]= VV[35];          base[2]= VV[35];
1133          goto T376;          goto T377;
         goto T382;  
 T382:;  
         if((V281!= VV[13]))goto T383;  
         base[2]= VV[36];  
         goto T376;  
1134          goto T383;          goto T383;
1135  T383:;  T383:;
1136          FEerror("The ECASE key value ~s is illegal.",1,V281);          if((V282!= VV[13]))goto T384;
1137            base[2]= VV[36];
1138            goto T377;
1139            goto T384;
1140    T384:;
1141            FEerror("The ECASE key value ~s is illegal.",1,V282);
1142          base[2]= Cnil;          base[2]= Cnil;
1143          goto T376;}          goto T377;}
1144          goto T376;          goto T377;
1145  T376:;  T377:;
1146          base[3]= (V275);          base[3]= (V276);
1147          base[4]= (V274);          base[4]= (V275);
1148          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1149          Lerror();          Lerror();
1150          vs_top=sup;          vs_top=sup;
1151          {object V282 = vs_base[0];          {object V283 = vs_base[0];
1152          VMR27(V282)}}          VMR27(V283)}}
1153          base[0]=base[0];          base[0]=base[0];
1154          return Cnil;          return Cnil;
1155  }  }
1156  /*      local entry for function (FAST-METHOD SLOT-UNBOUND (T T T))     */  /*      local entry for function (FAST-METHOD SLOT-UNBOUND (T T T))     */
1157    
1158  static object LI28(V288,V289,V290,V291,V292)  static object LI28(V289,V290,V291,V292,V293)
1159    
1160  object V288;object V289;object V290;object V291;object V292;  object V289;object V290;object V291;object V292;object V293;
1161  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1162          goto TTL;          goto TTL;
1163  TTL:;  TTL:;
1164          base[0]= VV[37];          base[0]= VV[37];
1165          base[1]= (V292);          base[1]= (V293);
1166          base[2]= (V291);          base[2]= (V292);
1167          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1168          Lerror();          Lerror();
1169          vs_top=sup;          vs_top=sup;
1170          {object V294 = vs_base[0];          {object V295 = vs_base[0];
1171          VMR28(V294)}          VMR28(V295)}
1172          base[0]=base[0];          base[0]=base[0];
1173          return Cnil;          return Cnil;
1174  }  }
# Line 1174  static void L29() Line 1178  static void L29()
1178  {register object *base=vs_base;  {register object *base=vs_base;
1179          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1180          vs_check;          vs_check;
1181          {object V295;          {object V296;
1182          object V296;          object V297;
1183          check_arg(2);          check_arg(2);
1184          V295=(base[0]);          V296=(base[0]);
1185          V296=(base[1]);          V297=(base[1]);
1186          vs_top=sup;          vs_top=sup;
1187          goto TTL;          goto TTL;
1188  TTL:;  TTL:;
1189          base[2]= (*(LnkLI51))((V295));          base[2]= (*(LnkLI51))((V296));
1190          base[3]= (V295);          base[3]= (V296);
1191          {register object V297;          {register object V298;
1192          V297= (V296);          V298= (V297);
1193          if(!(type_of((V297))==t_fixnum)){          if(!(type_of((V298))==t_fixnum)){
1194          goto T396;}          goto T397;}
1195          V298= (*(LnkLI58))((V295));          V299= (*(LnkLI57))((V296));
1196          base[4]= nth(fix((V296)),(/* INLINE-ARGS */V298)->v.v_self[9]);          base[4]= nth(fix((V297)),(/* INLINE-ARGS */V299)->v.v_self[9]);
1197          goto T394;          goto T395;
1198          goto T396;          goto T397;
1199  T396:;  T397:;
1200          if(!(type_of((V297))==t_cons)){          if(!(type_of((V298))==t_cons)){
1201          goto T399;}          goto T400;}
1202          base[4]= CMPcar((V296));          base[4]= CMPcar((V297));
1203          goto T394;          goto T395;
1204          goto T399;          goto T400;
1205  T399:;  T400:;
1206          base[6]= VV[38];          base[6]= VV[38];
1207          base[7]= (V297);          base[7]= (V298);
1208          base[8]= VV[39];          base[8]= VV[39];
1209          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1210          (void) (*Lnk59)();          (void) (*Lnk58)();
1211          vs_top=sup;          vs_top=sup;
1212          base[5]= vs_base[0];          base[5]= vs_base[0];
1213          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1214          Lerror();          Lerror();
1215          vs_top=sup;          vs_top=sup;
1216          base[4]= vs_base[0];}          base[4]= vs_base[0];}
1217          goto T394;          goto T395;
1218  T394:;  T395:;
1219          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1220          (void) (*Lnk44)(Lclptr44);          (void) (*Lnk44)(Lclptr44);
1221          return;          return;
# Line 1219  T394:; Line 1223  T394:;
1223  }  }
1224  /*      local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))       */  /*      local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))       */
1225    
1226  static object LI30(V303,V304,V305,V306)  static object LI30(V304,V305,V306,V307)
1227    
1228  object V303;object V304;register object V305;object V306;  object V304;object V305;register object V306;object V307;
1229  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1230          goto TTL;          goto TTL;
1231  TTL:;  TTL:;
1232          base[0]= (V305);          base[0]= (V306);
1233          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1234          (void) (*Lnk60)(Lclptr60);          (void) (*Lnk59)(Lclptr59);
1235          vs_top=sup;          vs_top=sup;
1236          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1237          goto T408;}          goto T409;}
1238          base[0]= (V305);          base[0]= (V306);
1239          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1240          (void) (*Lnk61)(Lclptr61);          (void) (*Lnk60)(Lclptr60);
1241          vs_top=sup;          vs_top=sup;
1242          goto T408;          goto T409;
1243  T408:;  T409:;
1244          base[0]= (V305);          base[0]= (V306);
1245          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1246          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk45)(Lclptr45);
1247          vs_top=sup;          vs_top=sup;
1248          V309= vs_base[0];          V310= vs_base[0];
1249          {object V310 = (VFUN_NARGS=1,(*(LnkLI2))(V309));          {object V311 = (VFUN_NARGS=1,(*(LnkLI2))(V310));
1250          VMR30(V310)}          VMR30(V311)}
1251          base[0]=base[0];          base[0]=base[0];
1252          return Cnil;          return Cnil;
1253  }  }
# Line 1253  static void L31() Line 1257  static void L31()
1257  {register object *base=vs_base;  {register object *base=vs_base;
1258          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1259          vs_check;          vs_check;
1260          {object V311;          {object V312;
         object V312;  
1261          object V313;          object V313;
1262          object V314;          object V314;
1263            object V315;
1264          check_arg(4);          check_arg(4);
1265          V311=(base[0]);          V312=(base[0]);
1266          V312=(base[1]);          V313=(base[1]);
1267          V313=(base[2]);          V314=(base[2]);
1268          V314=(base[3]);          V315=(base[3]);
1269          vs_top=sup;          vs_top=sup;
1270          goto TTL;          goto TTL;
1271  TTL:;  TTL:;
1272          {object V317;          {object V318;
1273          base[4]= (V313);          base[4]= (V314);
1274          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1275          (void) (*Lnk62)(Lclptr62);          (void) (*Lnk61)(Lclptr61);
1276          vs_top=sup;          vs_top=sup;
1277          V317= vs_base[0];          V318= vs_base[0];
1278          if(((V317))==Cnil){          if(((V318))==Cnil){
1279          goto T421;}          goto T422;}
1280          vs_base=vs_top;          vs_base=vs_top;
1281          {object _funobj = (V317);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1282                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1283                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1284                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1285          return;          return;
1286          goto T421;          goto T422;
1287  T421:;  T422:;
1288          base[4]= VV[40];          base[4]= VV[40];
1289          base[6]= (V313);          base[6]= (V314);
1290          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1291          (void) (*Lnk63)(Lclptr63);          (void) (*Lnk62)(Lclptr62);
1292          vs_top=sup;          vs_top=sup;
1293          base[5]= vs_base[0];          base[5]= vs_base[0];
1294          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 1292  T421:; Line 1296  T421:;
1296          return;}          return;}
1297          }          }
1298  }  }
1299  static void LnkT63(ptr) object *ptr;{ call_or_link_closure(VV[63],(void **)(void *)&Lnk63,(void **)(void *)&Lclptr63);} /* CLASS-NAME */  static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-NAME */
1300  static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */  static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */
1301  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */
1302  static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* FINALIZE-INHERITANCE */  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* FINALIZE-INHERITANCE */
1303  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-FINALIZED-P */  static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-FINALIZED-P */
1304  static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* TYPECASE-ERROR-STRING */  static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* TYPECASE-ERROR-STRING */
1305  static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
1306  static void LnkT57(ptr) object *ptr;{ call_or_link_closure(VV[57],(void **)(void *)&Lnk57,(void **)(void *)&Lclptr57);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */  static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */
1307  static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */  static void LnkT55(ptr) object *ptr;{ call_or_link_closure(VV[55],(void **)(void *)&Lnk55,(void **)(void *)&Lclptr55);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */
1308  static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
1309  static void LnkT54(ptr) object *ptr;{ call_or_link_closure(VV[54],(void **)(void *)&Lnk54,(void **)(void *)&Lclptr54);} /* SLOT-DEFINITION-LOCATION */  static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SLOT-DEFINITION-LOCATION */
1310  static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */  static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */
1311  static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */  static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */
1312  static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */  static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */
1313  static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */  static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */
 static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SETF PCL SLOT-VALUE-USING-CLASS */  
1314  static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */  static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */
1315  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
1316  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */

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