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

Diff of /gcl/pcl/pcl_std_class.c

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

revision 1.2 by camm, Tue Jul 15 18:03:39 2003 UTC revision 1.3 by camm, Fri Oct 3 16:03:18 2003 UTC
# Line 650  T245:; Line 650  T245:;
650          vs_top=sup;}          vs_top=sup;}
651          if(((V117))==Cnil){          if(((V117))==Cnil){
652          goto T256;}          goto T256;}
653            V129 = (V118);
654          base[4]= (V105);          base[4]= (V105);
655          base[5]= VV[4];          base[5]= VV[4];
656          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
657          (void) (*Lnk187)(Lclptr187);          (void) (*Lnk187)(Lclptr187);
658          vs_top=sup;          vs_top=sup;
659          V129= vs_base[0];          V130= vs_base[0];
660          if(((V118))==(V129)){          if((V129)==(V130)){
661          goto T256;}          goto T256;}
662          {object V130;          {object V131;
663          V130= make_cons((V116),(V115));          V131= make_cons((V116),(V115));
664          (VV[18]->s.s_dbind)= make_cons((V130),(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons((V131),(VV[18]->s.s_dbind));
665          {object V131 = (VV[18]->s.s_dbind);          {object V132 = (VV[18]->s.s_dbind);
666          VMR6(V131)}}          VMR6(V132)}}
667          goto T256;          goto T256;
668  T256:;  T256:;
669          {object V132 = Cnil;          {object V133 = Cnil;
670          VMR6(V132)}}}}          VMR6(V133)}}}}
671          base[0]=base[0];          base[0]=base[0];
672          return Cnil;          return Cnil;
673  }  }
674  /*      local entry for function (FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))   */  /*      local entry for function (FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))   */
675    
676  static object LI7(V136,V137,V138)  static object LI7(V137,V138,V139)
677    
678  object V136;object V137;object V138;  object V137;object V138;object V139;
679  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
680          goto TTL;          goto TTL;
681  TTL:;  TTL:;
682          {object V140 = VV[19];          {object V141 = VV[19];
683          VMR7(V140)}          VMR7(V141)}
684          return Cnil;          return Cnil;
685  }  }
686  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) */
687    
688  static object LI8(V146,V147,V148,V149,V150)  static object LI8(V147,V148,V149,V150,V151)
689    
690  object V146;object V147;object V148;object V149;object V150;  object V147;object V148;object V149;object V150;object V151;
691  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
692          goto TTL;          goto TTL;
693  TTL:;  TTL:;
694          {object V152;          {object V153;
695          object V154;          object V155;
696          V152= (*(LnkLI193))(VV[20],V150);          V153= (*(LnkLI193))(VV[20],V151);
697          if(!(type_of((V152))==t_cons)){          if(!(type_of((V153))==t_cons)){
698          goto T273;}          goto T273;}
699          V154= CMPcar((V152));          V155= CMPcar((V153));
700          goto T271;          goto T271;
701          goto T273;          goto T273;
702  T273:;  T273:;
703          V154= Cnil;          V155= Cnil;
704          goto T271;          goto T271;
705  T271:;  T271:;
706          if((V152)==Cnil){          if((V153)==Cnil){
707          goto T277;}          goto T277;}
708          {object V157 = (*(LnkLI194))((V154),V148,VV[21]);          {object V158 = (*(LnkLI194))((V155),V149,VV[21]);
709          VMR8(V157)}          VMR8(V158)}
710          goto T277;          goto T277;
711  T277:;  T277:;
712          {object V158 = Cnil;          {object V159 = Cnil;
713          VMR8(V158)}}          VMR8(V159)}}
714          base[0]=base[0];          base[0]=base[0];
715          return Cnil;          return Cnil;
716  }  }
717  /*      local entry for function (FAST-METHOD DOCUMENTATION (T))        */  /*      local entry for function (FAST-METHOD DOCUMENTATION (T))        */
718    
719  static object LI9(V163,V164,V165,V166)  static object LI9(V164,V165,V166,V167)
720    
721  object V163;object V164;object V165;object V166;  object V164;object V165;object V166;object V167;
722  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
723          goto TTL;          goto TTL;
724  TTL:;  TTL:;
725          {register object V167;          {register object V168;
726          object V168;          object V169;
727          V167= (V166);          V168= (V167);
728          if(((V167))==Cnil){          if(((V168))==Cnil){
729          goto T284;}          goto T284;}
730          {object V169;          {object V170;
731          V169= CMPcar((V167));          V170= CMPcar((V168));
732          V167= CMPcdr((V167));          V168= CMPcdr((V168));
733          V168= (V169);          V169= (V170);
734          goto T282;}          goto T282;}
735          goto T284;          goto T284;
736  T284:;  T284:;
737          V168= Cnil;          V169= Cnil;
738          goto T282;          goto T282;
739  T282:;  T282:;
740          base[1]= (V165);          base[1]= (V166);
741          base[2]= (V168);          base[2]= (V169);
742          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
743          (void) (*Lnk195)();          (void) (*Lnk195)();
744          vs_top=sup;          vs_top=sup;
745          {object V170 = vs_base[0];          {object V171 = vs_base[0];
746          VMR9(V170)}}          VMR9(V171)}}
747          base[0]=base[0];          base[0]=base[0];
748          return Cnil;          return Cnil;
749  }  }
750  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T T))       */  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T T))       */
751    
752  static object LI10(V176,V177,V178,V179,V180)  static object LI10(V177,V178,V179,V180,V181)
753    
754  object V176;object V177;object V178;object V179;object V180;  object V177;object V178;object V179;object V180;object V181;
755  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
756          goto TTL;          goto TTL;
757  TTL:;  TTL:;
758          {register object V181;          {register object V182;
759          object V182;          object V183;
760          V181= (V180);          V182= (V181);
761          if(((V181))==Cnil){          if(((V182))==Cnil){
762          goto T297;}          goto T297;}
763          {object V183;          {object V184;
764          V183= CMPcar((V181));          V184= CMPcar((V182));
765          V181= CMPcdr((V181));          V182= CMPcdr((V182));
766          V182= (V183);          V183= (V184);
767          goto T295;}          goto T295;}
768          goto T297;          goto T297;
769  T297:;  T297:;
770          V182= Cnil;          V183= Cnil;
771          goto T295;          goto T295;
772  T295:;  T295:;
773          base[1]= VV[22];          base[1]= VV[22];
774          base[2]= (V179);          base[2]= (V180);
775          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
776          Lerror();          Lerror();
777          vs_top=sup;          vs_top=sup;
778          {object V184 = vs_base[0];          {object V185 = vs_base[0];
779          VMR10(V184)}}          VMR10(V185)}}
780          base[0]=base[0];          base[0]=base[0];
781          return Cnil;          return Cnil;
782  }  }
783  /*      local entry for function (FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))      */  /*      local entry for function (FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))      */
784    
785  static object LI11(V189,V190,V191,V192)  static object LI11(V190,V191,V192,V193)
786    
787  object V189;object V190;object V191;object V192;  object V190;object V191;object V192;object V193;
788  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
789          goto TTL;          goto TTL;
790  TTL:;  TTL:;
791          {register object V193;          {register object V194;
792          object V194;          object V195;
793          V193= (V192);          V194= (V193);
794          if(((V193))==Cnil){          if(((V194))==Cnil){
795          goto T310;}          goto T310;}
796          {object V195;          {object V196;
797          V195= CMPcar((V193));          V196= CMPcar((V194));
798          V193= CMPcdr((V193));          V194= CMPcdr((V194));
799          V194= (V195);          V195= (V196);
800          goto T308;}          goto T308;}
801          goto T310;          goto T310;
802  T310:;  T310:;
803          V194= Cnil;          V195= Cnil;
804          goto T308;          goto T308;
805  T308:;  T308:;
806          {object V196 = (*(LnkLI196))((V191),VV[21]);          {object V197 = (*(LnkLI196))((V192),VV[21]);
807          VMR11(V196)}}          VMR11(V197)}}
808          base[0]=base[0];          base[0]=base[0];
809          return Cnil;          return Cnil;
810  }  }
811  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))     */  /*      local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))     */
812    
813  static object LI12(V202,V203,V204,V205,V206)  static object LI12(V203,V204,V205,V206,V207)
814    
815  object V202;object V203;object V204;object V205;object V206;  object V203;object V204;object V205;object V206;object V207;
816  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
817          goto TTL;          goto TTL;
818  TTL:;  TTL:;
819          {register object V207;          {register object V208;
820          object V208;          object V209;
821          V207= (V206);          V208= (V207);
822          if(((V207))==Cnil){          if(((V208))==Cnil){
823          goto T321;}          goto T321;}
824          {object V209;          {object V210;
825          V209= CMPcar((V207));          V210= CMPcar((V208));
826          V207= CMPcdr((V207));          V208= CMPcdr((V208));
827          V208= (V209);          V209= (V210);
828          goto T319;}          goto T319;}
829          goto T321;          goto T321;
830  T321:;  T321:;
831          V208= Cnil;          V209= Cnil;
832          goto T319;          goto T319;
833  T319:;  T319:;
834          {object V212 = (*(LnkLI194))((V204),V205,VV[21]);          {object V213 = (*(LnkLI194))((V205),V206,VV[21]);
835          VMR12(V212)}}          VMR12(V213)}}
836          base[0]=base[0];          base[0]=base[0];
837          return Cnil;          return Cnil;
838  }  }
# Line 841  static void L13() Line 842  static void L13()
842  {register object *base=vs_base;  {register object *base=vs_base;
843          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
844          vs_check;          vs_check;
845          {object V213;          {object V214;
846          object V214;          object V215;
847          register object V215;          register object V216;
848          object V216;          object V217;
849          check_arg(4);          check_arg(4);
850          V213=(base[0]);          V214=(base[0]);
851          V214=(base[1]);          V215=(base[1]);
852          V215=(base[2]);          V216=(base[2]);
853          V216=(base[3]);          V217=(base[3]);
854          vs_top=sup;          vs_top=sup;
855          goto TTL;          goto TTL;
856  TTL:;  TTL:;
857          {register object V217;          {register object V218;
858          object V218;          object V219;
859          V217= (V216);          V218= (V217);
860          if(((V217))==Cnil){          if(((V218))==Cnil){
861          goto T332;}          goto T332;}
862          {object V219;          {object V220;
863          V219= CMPcar((V217));          V220= CMPcar((V218));
864          V217= CMPcdr((V217));          V218= CMPcdr((V218));
865          V218= (V219);          V219= (V220);
866          goto T330;}          goto T330;}
867          goto T332;          goto T332;
868  T332:;  T332:;
869          V218= Cnil;          V219= Cnil;
870          goto T330;          goto T330;
871  T330:;  T330:;
872          {object V220;          {object V221;
873          object V221;          object V222;
874          V220= CMPcar((V213));          V221= CMPcar((V214));
875          V221= CMPcdr((V213));          V222= CMPcdr((V214));
876          {object V222;          {object V223;
877          if(type_of(V215)==t_structure){          if(type_of(V216)==t_structure){
878          goto T345;}          goto T345;}
879          goto T343;          goto T343;
880          goto T345;          goto T345;
881  T345:;  T345:;
882          if(!(((V215)->str.str_def)==(VV[23]))){          if(!(((V216)->str.str_def)==(VV[23]))){
883          goto T343;}          goto T343;}
884          V222= STREF(object,(V215),4);          V223= STREF(object,(V216),4);
885          goto T341;          goto T341;
886          goto T343;          goto T343;
887  T343:;{object V224;  T343:;{object V225;
888          V224= (VV[2]->s.s_dbind);          V225= (VV[2]->s.s_dbind);
889          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
890          base[6]= (V215);          base[6]= (V216);
891          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
892          (void) (*Lnk177)();          (void) (*Lnk177)();
893          vs_top=sup;          vs_top=sup;
894          V225= vs_base[0];          V226= vs_base[0];
895          if(!((V224)==(CMPcar(V225)))){          if(!((V225)==(CMPcar(V226)))){
896          goto T348;}}          goto T348;}}
897          V222= CMPcar(((V215))->cc.cc_turbo[12]);          V223= CMPcar(((V216))->cc.cc_turbo[12]);
898          goto T341;          goto T341;
899          goto T348;          goto T348;
900  T348:;  T348:;
901          V222= Cnil;          V223= Cnil;
902          goto T341;          goto T341;
903  T341:;  T341:;
904          {register object V226;          {register object V227;
905          V226= ((V220))->v.v_self[1];          V227= ((V221))->v.v_self[1];
906          if(!(type_of(V226)==t_fixnum)){          if(!(type_of(V227)==t_fixnum)){
907          goto T358;}          goto T358;}
908          V226= ((V222))->v.v_self[fix((V226))];          V227= ((V223))->v.v_self[fix((V227))];
909          goto T356;          goto T356;
910          goto T358;          goto T358;
911  T358:;  T358:;
912          V226= VV[3];          V227= VV[3];
913          goto T356;          goto T356;
914  T356:;  T356:;
915          if(!(((V226))==(VV[3]))){          if(!(((V227))==(VV[3]))){
916          goto T361;}          goto T361;}
917          base[5]= (V215);          base[5]= (V216);
918          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
919          (void) (*Lnk197)(Lclptr197);          (void) (*Lnk197)(Lclptr197);
920          return;          return;
921          goto T361;          goto T361;
922  T361:;  T361:;
923          base[5]= (V226);          base[5]= (V227);
924          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
925          return;}}}}          return;}}}}
926          }          }
# Line 930  static void L14() Line 931  static void L14()
931  {register object *base=vs_base;  {register object *base=vs_base;
932          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
933          vs_check;          vs_check;
934          {object V228;          {object V229;
         object V229;  
935          object V230;          object V230;
936          register object V231;          object V231;
937          object V232;          register object V232;
938            object V233;
939          check_arg(5);          check_arg(5);
940          V228=(base[0]);          V229=(base[0]);
941          V229=(base[1]);          V230=(base[1]);
942          V230=(base[2]);          V231=(base[2]);
943          V231=(base[3]);          V232=(base[3]);
944          V232=(base[4]);          V233=(base[4]);
945          vs_top=sup;          vs_top=sup;
946          goto TTL;          goto TTL;
947  TTL:;  TTL:;
948          {register object V233;          {register object V234;
949          object V234;          object V235;
950          V233= (V232);          V234= (V233);
951          if(((V233))==Cnil){          if(((V234))==Cnil){
952          goto T369;}          goto T369;}
953          {object V235;          {object V236;
954          V235= CMPcar((V233));          V236= CMPcar((V234));
955          V233= CMPcdr((V233));          V234= CMPcdr((V234));
956          V234= (V235);          V235= (V236);
957          goto T367;}          goto T367;}
958          goto T369;          goto T369;
959  T369:;  T369:;
960          V234= Cnil;          V235= Cnil;
961          goto T367;          goto T367;
962  T367:;  T367:;
963          {object V236;          {object V237;
964          object V237;          object V238;
965          V236= CMPcar((V228));          V237= CMPcar((V229));
966          V237= CMPcdr((V228));          V238= CMPcdr((V229));
967          {object V238;          {object V239;
968          if(type_of(V231)==t_structure){          if(type_of(V232)==t_structure){
969          goto T382;}          goto T382;}
970          goto T380;          goto T380;
971          goto T382;          goto T382;
972  T382:;  T382:;
973          if(!(((V231)->str.str_def)==(VV[24]))){          if(!(((V232)->str.str_def)==(VV[24]))){
974          goto T380;}          goto T380;}
975          V238= STREF(object,(V231),4);          V239= STREF(object,(V232),4);
976          goto T378;          goto T378;
977          goto T380;          goto T380;
978  T380:;{object V240;  T380:;{object V241;
979          V240= (VV[2]->s.s_dbind);          V241= (VV[2]->s.s_dbind);
980          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
981          base[7]= (V231);          base[7]= (V232);
982          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
983          (void) (*Lnk177)();          (void) (*Lnk177)();
984          vs_top=sup;          vs_top=sup;
985          V241= vs_base[0];          V242= vs_base[0];
986          if(!((V240)==(CMPcar(V241)))){          if(!((V241)==(CMPcar(V242)))){
987          goto T385;}}          goto T385;}}
988          V238= CMPcar(((V231))->cc.cc_turbo[12]);          V239= CMPcar(((V232))->cc.cc_turbo[12]);
989          goto T378;          goto T378;
990          goto T385;          goto T385;
991  T385:;  T385:;
992          V238= Cnil;          V239= Cnil;
993          goto T378;          goto T378;
994  T378:;  T378:;
995          {object V243;          {object V244;
996          V243= ((V236))->v.v_self[1];          V244= ((V237))->v.v_self[1];
997          if(!(type_of(V243)==t_fixnum)){          if(!(type_of(V244)==t_fixnum)){
998          goto T393;}          goto T393;}
999          base[6]= ((V238))->v.v_self[fix((V243))]= (V230);          base[6]= ((V239))->v.v_self[fix((V244))]= (V231);
1000          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1001          return;          return;
1002          goto T393;          goto T393;
1003  T393:;  T393:;
1004          base[6]= V230;          base[6]= V231;
1005          base[7]= (V231);          base[7]= (V232);
1006          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1007          (void) (*Lnk198)(Lclptr198);          (void) (*Lnk198)(Lclptr198);
1008          return;}}}}          return;}}}}
# Line 1009  T393:; Line 1010  T393:;
1010  }  }
1011  /*      local entry for function (FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))    */  /*      local entry for function (FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))    */
1012    
1013  static object LI15(V248,V249,V250)  static object LI15(V249,V250,V251)
1014    
1015  object V248;object V249;register object V250;  object V249;object V250;register object V251;
1016  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1017          goto TTL;          goto TTL;
1018  TTL:;  TTL:;
1019          {object V252;          {object V253;
1020          object V253;          object V254;
1021          V252= CMPcar((V248));          V253= CMPcar((V249));
1022          V253= CMPcdr((V248));          V254= CMPcdr((V249));
1023          {object V254;          {object V255;
1024          if(type_of(V250)==t_structure){          if(type_of(V251)==t_structure){
1025          goto T407;}          goto T407;}
1026          goto T405;          goto T405;
1027          goto T407;          goto T407;
1028  T407:;  T407:;
1029          if(!(((V250)->str.str_def)==(VV[25]))){          if(!(((V251)->str.str_def)==(VV[25]))){
1030          goto T405;}          goto T405;}
1031          V254= STREF(object,(V250),4);          V255= STREF(object,(V251),4);
1032          goto T403;          goto T403;
1033          goto T405;          goto T405;
1034  T405:;{object V256;  T405:;{object V257;
1035          V256= (VV[2]->s.s_dbind);          V257= (VV[2]->s.s_dbind);
1036          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1037          base[1]= (V250);          base[1]= (V251);
1038          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1039          (void) (*Lnk177)();          (void) (*Lnk177)();
1040          vs_top=sup;          vs_top=sup;
1041          V257= vs_base[0];          V258= vs_base[0];
1042          if(!((V256)==(CMPcar(V257)))){          if(!((V257)==(CMPcar(V258)))){
1043          goto T410;}}          goto T410;}}
1044          V254= CMPcar(((V250))->cc.cc_turbo[12]);          V255= CMPcar(((V251))->cc.cc_turbo[12]);
1045          goto T403;          goto T403;
1046          goto T410;          goto T410;
1047  T410:;  T410:;
1048          V254= Cnil;          V255= Cnil;
1049          goto T403;          goto T403;
1050  T403:;  T403:;
1051          {register object V260;          {register object V261;
1052          V260= ((V252))->v.v_self[1];          V261= ((V253))->v.v_self[1];
1053          if(!(type_of(V260)==t_fixnum)){          if(!(type_of(V261)==t_fixnum)){
1054          goto T422;}          goto T422;}
1055          V260= ((V254))->v.v_self[fix((V260))];          V261= ((V255))->v.v_self[fix((V261))];
1056          goto T420;          goto T420;
1057          goto T422;          goto T422;
1058  T422:;  T422:;
1059          V260= VV[3];          V261= VV[3];
1060          goto T420;          goto T420;
1061  T420:;  T420:;
1062          if(!(((V260))==(VV[3]))){          if(!(((V261))==(VV[3]))){
1063          goto T425;}          goto T425;}
1064          base[0]= (V250);          base[0]= (V251);
1065          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1066          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
1067          vs_top=sup;          vs_top=sup;
1068          V259= vs_base[0];          V260= vs_base[0];
1069          goto T417;          goto T417;
1070          goto T425;          goto T425;
1071  T425:;  T425:;
1072          V259= (V260);}          V260= (V261);}
1073          goto T417;          goto T417;
1074  T417:;  T417:;
1075          {object V262 = ((((V259)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V263 = ((((V260)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
1076          VMR15(V262)}}}          VMR15(V263)}}}
1077          base[0]=base[0];          base[0]=base[0];
1078          return Cnil;          return Cnil;
1079  }  }
# Line 1082  static void L16() Line 1083  static void L16()
1083  {register object *base=vs_base;  {register object *base=vs_base;
1084          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1085          vs_check;          vs_check;
1086          {object V263;          {object V264;
1087          object V264;          object V265;
1088          register object V265;          register object V266;
1089          check_arg(3);          check_arg(3);
1090          V263=(base[0]);          V264=(base[0]);
1091          V264=(base[1]);          V265=(base[1]);
1092          V265=(base[2]);          V266=(base[2]);
1093          vs_top=sup;          vs_top=sup;
1094          goto TTL;          goto TTL;
1095  TTL:;  TTL:;
1096          {object V267;          {object V268;
1097          object V268;          object V269;
1098          V267= CMPcar((V263));          V268= CMPcar((V264));
1099          V268= CMPcdr((V263));          V269= CMPcdr((V264));
1100          {object V269;          {object V270;
1101          if(type_of(V265)==t_structure){          if(type_of(V266)==t_structure){
1102          goto T438;}          goto T438;}
1103          goto T436;          goto T436;
1104          goto T438;          goto T438;
1105  T438:;  T438:;
1106          if(!(((V265)->str.str_def)==(VV[26]))){          if(!(((V266)->str.str_def)==(VV[26]))){
1107          goto T436;}          goto T436;}
1108          V269= STREF(object,(V265),4);          V270= STREF(object,(V266),4);
1109          goto T434;          goto T434;
1110          goto T436;          goto T436;
1111  T436:;{object V271;  T436:;{object V272;
1112          V271= (VV[2]->s.s_dbind);          V272= (VV[2]->s.s_dbind);
1113          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1114          base[4]= (V265);          base[4]= (V266);
1115          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1116          (void) (*Lnk177)();          (void) (*Lnk177)();
1117          vs_top=sup;          vs_top=sup;
1118          V272= vs_base[0];          V273= vs_base[0];
1119          if(!((V271)==(CMPcar(V272)))){          if(!((V272)==(CMPcar(V273)))){
1120          goto T441;}}          goto T441;}}
1121          V269= CMPcar(((V265))->cc.cc_turbo[12]);          V270= CMPcar(((V266))->cc.cc_turbo[12]);
1122          goto T434;          goto T434;
1123          goto T441;          goto T441;
1124  T441:;  T441:;
1125          V269= Cnil;          V270= Cnil;
1126          goto T434;          goto T434;
1127  T434:;  T434:;
1128          {object V274;          {object V275;
1129          {register object V275;          {register object V276;
1130          V275= ((V267))->v.v_self[1];          V276= ((V268))->v.v_self[1];
1131          if(!(type_of(V275)==t_fixnum)){          if(!(type_of(V276)==t_fixnum)){
1132          goto T453;}          goto T453;}
1133          V275= ((V269))->v.v_self[fix((V275))];          V276= ((V270))->v.v_self[fix((V276))];
1134          goto T451;          goto T451;
1135          goto T453;          goto T453;
1136  T453:;  T453:;
1137          V275= VV[3];          V276= VV[3];
1138          goto T451;          goto T451;
1139  T451:;  T451:;
1140          if(!(((V275))==(VV[3]))){          if(!(((V276))==(VV[3]))){
1141          goto T456;}          goto T456;}
1142          base[3]= (V265);          base[3]= (V266);
1143          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1144          (void) (*Lnk200)(Lclptr200);          (void) (*Lnk200)(Lclptr200);
1145          vs_top=sup;          vs_top=sup;
1146          V274= vs_base[0];          V275= vs_base[0];
1147          goto T448;          goto T448;
1148          goto T456;          goto T456;
1149  T456:;  T456:;
1150          V274= (V275);}          V275= (V276);}
1151          goto T448;          goto T448;
1152  T448:;  T448:;
1153          if(((V274))==Cnil){          if(((V275))==Cnil){
1154          goto T460;}          goto T460;}
1155          base[3]= (V274);          base[3]= (V275);
1156          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1157          return;          return;
1158          goto T460;          goto T460;
1159  T460:;  T460:;
1160          {object V277;          {object V278;
1161          base[3]= (V265);          base[3]= (V266);
1162          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1163          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk201)(Lclptr201);
1164          vs_top=sup;          vs_top=sup;
1165          V277= vs_base[0];          V278= vs_base[0];
1166          {object V278;          {object V279;
1167          V278= ((V267))->v.v_self[1];          V279= ((V268))->v.v_self[1];
1168          if(!(type_of(V278)==t_fixnum)){          if(!(type_of(V279)==t_fixnum)){
1169          goto T466;}          goto T466;}
1170          base[3]= ((V269))->v.v_self[fix((V278))]= ((V277));          base[3]= ((V270))->v.v_self[fix((V279))]= ((V278));
1171          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1172          return;          return;
1173          goto T466;          goto T466;
1174  T466:;  T466:;
1175          base[3]= (V277);          base[3]= (V278);
1176          base[4]= (V265);          base[4]= (V266);
1177          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1178          (void) (*Lnk202)(Lclptr202);          (void) (*Lnk202)(Lclptr202);
1179          return;}}}}}          return;}}}}}
# Line 1184  static void L17() Line 1185  static void L17()
1185  {register object *base=vs_base;  {register object *base=vs_base;
1186          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1187          vs_check;          vs_check;
1188          {object V280;          {object V281;
1189          object V281;          object V282;
1190          register object V282;          register object V283;
1191          check_arg(3);          check_arg(3);
1192          V280=(base[0]);          V281=(base[0]);
1193          V281=(base[1]);          V282=(base[1]);
1194          V282=(base[2]);          V283=(base[2]);
1195          vs_top=sup;          vs_top=sup;
1196          goto TTL;          goto TTL;
1197  TTL:;  TTL:;
1198          {register object V284;          {register object V285;
1199          object V285;          object V286;
1200          V284= CMPcar((V280));          V285= CMPcar((V281));
1201          V285= CMPcdr((V280));          V286= CMPcdr((V281));
1202          {register object V286;          {register object V287;
1203          if(type_of(V282)==t_structure){          if(type_of(V283)==t_structure){
1204          goto T480;}          goto T480;}
1205          goto T478;          goto T478;
1206          goto T480;          goto T480;
1207  T480:;  T480:;
1208          if(!(((V282)->str.str_def)==(VV[27]))){          if(!(((V283)->str.str_def)==(VV[27]))){
1209          goto T478;}          goto T478;}
1210          V286= STREF(object,(V282),4);          V287= STREF(object,(V283),4);
1211          goto T476;          goto T476;
1212          goto T478;          goto T478;
1213  T478:;{object V288;  T478:;{object V289;
1214          V288= (VV[2]->s.s_dbind);          V289= (VV[2]->s.s_dbind);
1215          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1216          base[4]= (V282);          base[4]= (V283);
1217          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1218          (void) (*Lnk177)();          (void) (*Lnk177)();
1219          vs_top=sup;          vs_top=sup;
1220          V289= vs_base[0];          V290= vs_base[0];
1221          if(!((V288)==(CMPcar(V289)))){          if(!((V289)==(CMPcar(V290)))){
1222          goto T483;}}          goto T483;}}
1223          V286= CMPcar(((V282))->cc.cc_turbo[12]);          V287= CMPcar(((V283))->cc.cc_turbo[12]);
1224          goto T476;          goto T476;
1225          goto T483;          goto T483;
1226  T483:;  T483:;
1227          V286= Cnil;          V287= Cnil;
1228          goto T476;          goto T476;
1229  T476:;  T476:;
1230          {object V291;          {object V292;
1231          {register object V292;          {register object V293;
1232          V292= ((V284))->v.v_self[2];          V293= ((V285))->v.v_self[2];
1233          if(!(type_of(V292)==t_fixnum)){          if(!(type_of(V293)==t_fixnum)){
1234          goto T495;}          goto T495;}
1235          V292= ((V286))->v.v_self[fix((V292))];          V293= ((V287))->v.v_self[fix((V293))];
1236          goto T493;          goto T493;
1237          goto T495;          goto T495;
1238  T495:;  T495:;
1239          V292= VV[3];          V293= VV[3];
1240          goto T493;          goto T493;
1241  T493:;  T493:;
1242          if(!(((V292))==(VV[3]))){          if(!(((V293))==(VV[3]))){
1243          goto T498;}          goto T498;}
1244          base[3]= (V282);          base[3]= (V283);
1245          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1246          (void) (*Lnk200)(Lclptr200);          (void) (*Lnk200)(Lclptr200);
1247          vs_top=sup;          vs_top=sup;
1248          V291= vs_base[0];          V292= vs_base[0];
1249          goto T490;          goto T490;
1250          goto T498;          goto T498;
1251  T498:;  T498:;
1252          V291= (V292);}          V292= (V293);}
1253          goto T490;          goto T490;
1254  T490:;  T490:;
1255          if(((V291))==Cnil){          if(((V292))==Cnil){
1256          goto T502;}          goto T502;}
1257          base[3]= (V291);          base[3]= (V292);
1258          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1259          return;          return;
1260          goto T502;          goto T502;
1261  T502:;  T502:;
1262          {object V294;          {object V295;
1263          {register object V295;          {register object V296;
1264          V295= ((V284))->v.v_self[1];          V296= ((V285))->v.v_self[1];
1265          if(!(type_of(V295)==t_fixnum)){          if(!(type_of(V296)==t_fixnum)){
1266          goto T512;}          goto T512;}
1267          V295= ((V286))->v.v_self[fix((V295))];          V296= ((V287))->v.v_self[fix((V296))];
1268          goto T510;          goto T510;
1269          goto T512;          goto T512;
1270  T512:;  T512:;
1271          V295= VV[3];          V296= VV[3];
1272          goto T510;          goto T510;
1273  T510:;  T510:;
1274          if(!(((V295))==(VV[3]))){          if(!(((V296))==(VV[3]))){
1275          goto T515;}          goto T515;}
1276          base[3]= (V282);          base[3]= (V283);
1277          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1278          (void) (*Lnk203)(Lclptr203);          (void) (*Lnk203)(Lclptr203);
1279          vs_top=sup;          vs_top=sup;
# Line 1281  T510:; Line 1282  T510:;
1282          goto T507;          goto T507;
1283          goto T515;          goto T515;
1284  T515:;  T515:;
1285          if(((V295))==Cnil){          if(((V296))==Cnil){
1286          goto T506;}}          goto T506;}}
1287          goto T507;          goto T507;
1288  T507:;  T507:;
1289          base[3]= (V282);          base[3]= (V283);
1290          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1291          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk201)(Lclptr201);
1292          vs_top=sup;          vs_top=sup;
1293          V294= vs_base[0];          V295= vs_base[0];
1294          goto T504;          goto T504;
1295          goto T506;          goto T506;
1296  T506:;  T506:;
1297          {register object V298;          {register object V299;
1298          V298= ((V284))->v.v_self[3];          V299= ((V285))->v.v_self[3];
1299          if(!(type_of(V298)==t_fixnum)){          if(!(type_of(V299)==t_fixnum)){
1300          goto T524;}          goto T524;}
1301          V298= ((V286))->v.v_self[fix((V298))];          V299= ((V287))->v.v_self[fix((V299))];
1302          goto T522;          goto T522;
1303          goto T524;          goto T524;
1304  T524:;  T524:;
1305          V298= VV[3];          V299= VV[3];
1306          goto T522;          goto T522;
1307  T522:;  T522:;
1308          if(!(((V298))==(VV[3]))){          if(!(((V299))==(VV[3]))){
1309          goto T527;}          goto T527;}
1310          base[3]= (V282);          base[3]= (V283);
1311          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1312          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
1313          vs_top=sup;          vs_top=sup;
1314          V297= vs_base[0];          V298= vs_base[0];
1315          goto T519;          goto T519;
1316          goto T527;          goto T527;
1317  T527:;  T527:;
1318          V297= (V298);}          V298= (V299);}
1319          goto T519;          goto T519;
1320  T519:;  T519:;
1321          V294= (VFUN_NARGS=1,(*(LnkLI204))(V297));          V295= (VFUN_NARGS=1,(*(LnkLI204))(V298));
1322          goto T504;          goto T504;
1323  T504:;  T504:;
1324          {object V300;          {object V301;
1325          V300= ((V284))->v.v_self[2];          V301= ((V285))->v.v_self[2];
1326          if(!(type_of(V300)==t_fixnum)){          if(!(type_of(V301)==t_fixnum)){
1327          goto T532;}          goto T532;}
1328          base[3]= ((V286))->v.v_self[fix((V300))]= ((V294));          base[3]= ((V287))->v.v_self[fix((V301))]= ((V295));
1329          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1330          return;          return;
1331          goto T532;          goto T532;
1332  T532:;  T532:;
1333          base[3]= (V294);          base[3]= (V295);
1334          base[4]= (V282);          base[4]= (V283);
1335          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1336          (void) (*Lnk202)(Lclptr202);          (void) (*Lnk202)(Lclptr202);
1337          return;}}}}}          return;}}}}}
# Line 1338  T532:; Line 1339  T532:;
1339  }  }
1340  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))       */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))       */
1341    
1342  static object LI18(V305,V306,V307)  static object LI18(V306,V307,V308)
1343    
1344  object V305;object V306;object V307;  object V306;object V307;object V308;
1345  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1346          goto TTL;          goto TTL;
1347  TTL:;  TTL:;
1348          {object V309 = (*(LnkLI196))((V307),VV[28]);          {object V310 = (*(LnkLI196))((V308),VV[28]);
1349          VMR18(V309)}          VMR18(V310)}
1350          return Cnil;          return Cnil;
1351  }  }
1352  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))      */  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))      */
1353    
1354  static object LI19(V313,V314,V315)  static object LI19(V314,V315,V316)
1355    
1356  object V313;object V314;object V315;  object V314;object V315;object V316;
1357  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1358          goto TTL;          goto TTL;
1359  TTL:;  TTL:;
1360          {object V317 = (*(LnkLI196))((V315),VV[29]);          {object V318 = (*(LnkLI196))((V316),VV[29]);
1361          VMR19(V317)}          VMR19(V318)}
1362          return Cnil;          return Cnil;
1363  }  }
1364  /*      local entry for function (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))  */  /*      local entry for function (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))  */
1365    
1366  static object LI20(V321,V322,V323)  static object LI20(V322,V323,V324)
1367    
1368  object V321;object V322;object V323;  object V322;object V323;object V324;
1369  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1370          goto TTL;          goto TTL;
1371  TTL:;  TTL:;
1372          {object V325 = (*(LnkLI196))((V323),VV[30]);          {object V326 = (*(LnkLI196))((V324),VV[30]);
1373          VMR20(V325)}          VMR20(V326)}
1374          return Cnil;          return Cnil;
1375  }  }
1376  /*      local entry for function (FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))     */  /*      local entry for function (FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))     */
1377    
1378  static object LI21(V329,V330,V331)  static object LI21(V330,V331,V332)
1379    
1380  object V329;object V330;object V331;  object V330;object V331;object V332;
1381  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1382          goto TTL;          goto TTL;
1383  TTL:;  TTL:;
1384          {object V333 = (*(LnkLI196))((V331),VV[31]);          {object V334 = (*(LnkLI196))((V332),VV[31]);
1385          VMR21(V333)}          VMR21(V334)}
1386          return Cnil;          return Cnil;
1387  }  }
1388  /*      local entry for function (FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))        */  /*      local entry for function (FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))        */
1389    
1390  static object LI22(V338,V339,V340,V341)  static object LI22(V339,V340,V341,V342)
1391    
1392  object V338;object V339;register object V340;object V341;  object V339;object V340;register object V341;object V342;
1393  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1394          goto TTL;          goto TTL;
1395  TTL:;  TTL:;
1396          {object V343;          {object V344;
1397          object V344;          object V345;
1398          V343= CMPcar((V338));          V344= CMPcar((V339));
1399          V344= CMPcdr((V338));          V345= CMPcdr((V339));
1400          {object V345;          {object V346;
1401          if(type_of(V340)==t_structure){          if(type_of(V341)==t_structure){
1402          goto T558;}          goto T558;}
1403          goto T556;          goto T556;
1404          goto T558;          goto T558;
1405  T558:;  T558:;
1406          if(!(((V340)->str.str_def)==(VV[32]))){          if(!(((V341)->str.str_def)==(VV[32]))){
1407          goto T556;}          goto T556;}
1408          V345= STREF(object,(V340),4);          V346= STREF(object,(V341),4);
1409          goto T554;          goto T554;
1410          goto T556;          goto T556;
1411  T556:;{object V347;  T556:;{object V348;
1412          V347= (VV[2]->s.s_dbind);          V348= (VV[2]->s.s_dbind);
1413          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1414          base[1]= (V340);          base[1]= (V341);
1415          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1416          (void) (*Lnk177)();          (void) (*Lnk177)();
1417          vs_top=sup;          vs_top=sup;
1418          V348= vs_base[0];          V349= vs_base[0];
1419          if(!((V347)==(CMPcar(V348)))){          if(!((V348)==(CMPcar(V349)))){
1420          goto T561;}}          goto T561;}}
1421          V345= CMPcar(((V340))->cc.cc_turbo[12]);          V346= CMPcar(((V341))->cc.cc_turbo[12]);
1422          goto T554;          goto T554;
1423          goto T561;          goto T561;
1424  T561:;  T561:;
1425          V345= Cnil;          V346= Cnil;
1426          goto T554;          goto T554;
1427  T554:;  T554:;
1428          {object V351;          {object V352;
1429          base[0]= V341;          base[0]= V342;
1430          {register object V352;          {register object V353;
1431          V352= ((V343))->v.v_self[1];          V353= ((V344))->v.v_self[1];
1432          if(!(type_of(V352)==t_fixnum)){          if(!(type_of(V353)==t_fixnum)){
1433          goto T577;}          goto T577;}
1434          V352= ((V345))->v.v_self[fix((V352))];          V353= ((V346))->v.v_self[fix((V353))];
1435          goto T575;          goto T575;
1436          goto T577;          goto T577;
1437  T577:;  T577:;
1438          V352= VV[3];          V353= VV[3];
1439          goto T575;          goto T575;
1440  T575:;  T575:;
1441          if(!(((V352))==(VV[3]))){          if(!(((V353))==(VV[3]))){
1442          goto T580;}          goto T580;}
1443          base[2]= (V340);          base[2]= (V341);
1444          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1445          (void) (*Lnk205)(Lclptr205);          (void) (*Lnk205)(Lclptr205);
1446          vs_top=sup;          vs_top=sup;
# Line 1447  T575:; Line 1448  T575:;
1448          goto T572;          goto T572;
1449          goto T580;          goto T580;
1450  T580:;  T580:;
1451          base[1]= (V352);}          base[1]= (V353);}
1452          goto T572;          goto T572;
1453  T572:;  T572:;
1454          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1455          Ladjoin();          Ladjoin();
1456          vs_top=sup;          vs_top=sup;
1457          V351= vs_base[0];          V352= vs_base[0];
1458          {object V354;          {object V355;
1459          V354= ((V343))->v.v_self[1];          V355= ((V344))->v.v_self[1];
1460          if(!(type_of(V354)==t_fixnum)){          if(!(type_of(V355)==t_fixnum)){
1461          goto T585;}          goto T585;}
1462          (void)(((V345))->v.v_self[fix((V354))]= ((V351)));          (void)(((V346))->v.v_self[fix((V355))]= ((V352)));
1463          goto T569;          goto T569;
1464          goto T585;          goto T585;
1465  T585:;  T585:;
1466          base[0]= (V351);          base[0]= (V352);
1467          base[1]= (V340);          base[1]= (V341);
1468          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1469          (void) (*Lnk206)(Lclptr206);          (void) (*Lnk206)(Lclptr206);
1470          vs_top=sup;}}          vs_top=sup;}}
1471          goto T569;          goto T569;
1472  T569:;  T569:;
1473          {object V356 = (V341);          {object V357 = (V342);
1474          VMR22(V356)}}}          VMR22(V357)}}}
1475          base[0]=base[0];          base[0]=base[0];
1476          return Cnil;          return Cnil;
1477  }  }
1478  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))     */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))     */
1479    
1480  static object LI23(V361,V362,V363,V364)  static object LI23(V362,V363,V364,V365)
1481    
1482  object V361;object V362;register object V363;object V364;  object V362;object V363;register object V364;object V365;
1483  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1484          goto TTL;          goto TTL;
1485  TTL:;  TTL:;
1486          {object V366;          {object V367;
1487          object V367;          object V368;
1488          V366= CMPcar((V361));          V367= CMPcar((V362));
1489          V367= CMPcdr((V361));          V368= CMPcdr((V362));
1490          {object V368;          {object V369;
1491          if(type_of(V363)==t_structure){          if(type_of(V364)==t_structure){
1492          goto T599;}          goto T599;}
1493          goto T597;          goto T597;
1494          goto T599;          goto T599;
1495  T599:;  T599:;
1496          if(!(((V363)->str.str_def)==(VV[33]))){          if(!(((V364)->str.str_def)==(VV[33]))){
1497          goto T597;}          goto T597;}
1498          V368= STREF(object,(V363),4);          V369= STREF(object,(V364),4);
1499          goto T595;          goto T595;
1500          goto T597;          goto T597;
1501  T597:;{object V370;  T597:;{object V371;
1502          V370= (VV[2]->s.s_dbind);          V371= (VV[2]->s.s_dbind);
1503          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1504          base[1]= (V363);          base[1]= (V364);
1505          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1506          (void) (*Lnk177)();          (void) (*Lnk177)();
1507          vs_top=sup;          vs_top=sup;
1508          V371= vs_base[0];          V372= vs_base[0];
1509          if(!((V370)==(CMPcar(V371)))){          if(!((V371)==(CMPcar(V372)))){
1510          goto T602;}}          goto T602;}}
1511          V368= CMPcar(((V363))->cc.cc_turbo[12]);          V369= CMPcar(((V364))->cc.cc_turbo[12]);
1512          goto T595;          goto T595;
1513          goto T602;          goto T602;
1514  T602:;  T602:;
1515          V368= Cnil;          V369= Cnil;
1516          goto T595;          goto T595;
1517  T595:;  T595:;
1518          {object V373;          {object V374;
1519          base[0]= (V364);          base[0]= (V365);
1520          {register object V374;          {register object V375;
1521          V374= ((V366))->v.v_self[1];          V375= ((V367))->v.v_self[1];
1522          if(!(type_of(V374)==t_fixnum)){          if(!(type_of(V375)==t_fixnum)){
1523          goto T618;}          goto T618;}
1524          V374= ((V368))->v.v_self[fix((V374))];          V375= ((V369))->v.v_self[fix((V375))];
1525          goto T616;          goto T616;
1526          goto T618;          goto T618;
1527  T618:;  T618:;
1528          V374= VV[3];          V375= VV[3];
1529          goto T616;          goto T616;
1530  T616:;  T616:;
1531          if(!(((V374))==(VV[3]))){          if(!(((V375))==(VV[3]))){
1532          goto T621;}          goto T621;}
1533          base[2]= (V363);          base[2]= (V364);
1534          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1535          (void) (*Lnk205)(Lclptr205);          (void) (*Lnk205)(Lclptr205);
1536          vs_top=sup;          vs_top=sup;
# Line 1537  T616:; Line 1538  T616:;
1538          goto T613;          goto T613;
1539          goto T621;          goto T621;
1540  T621:;  T621:;
1541          base[1]= (V374);}          base[1]= (V375);}
1542          goto T613;          goto T613;
1543  T613:;  T613:;
1544          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1545          (void) (*Lnk95)();          (void) (*Lnk95)();
1546          vs_top=sup;          vs_top=sup;
1547          V373= vs_base[0];          V374= vs_base[0];
1548          {object V376;          {object V377;
1549          V376= ((V366))->v.v_self[1];          V377= ((V367))->v.v_self[1];
1550          if(!(type_of(V376)==t_fixnum)){          if(!(type_of(V377)==t_fixnum)){
1551          goto T626;}          goto T626;}
1552          (void)(((V368))->v.v_self[fix((V376))]= ((V373)));          (void)(((V369))->v.v_self[fix((V377))]= ((V374)));
1553          goto T610;          goto T610;
1554          goto T626;          goto T626;
1555  T626:;  T626:;
1556          base[0]= (V373);          base[0]= (V374);
1557          base[1]= (V363);          base[1]= (V364);
1558          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1559          (void) (*Lnk206)(Lclptr206);          (void) (*Lnk206)(Lclptr206);
1560          vs_top=sup;}}          vs_top=sup;}}
1561          goto T610;          goto T610;
1562  T610:;  T610:;
1563          {object V378 = (V364);          {object V379 = (V365);
1564          VMR23(V378)}}}          VMR23(V379)}}}
1565          base[0]=base[0];          base[0]=base[0];
1566          return Cnil;          return Cnil;
1567  }  }
1568  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) */  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) */
1569    
1570  static object LI24(V383,V384,V385,V386)  static object LI24(V384,V385,V386,V387)
1571    
1572  object V383;object V384;register object V385;object V386;  object V384;object V385;register object V386;object V387;
1573  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1574          goto TTL;          goto TTL;
1575  TTL:;  TTL:;
1576          {register object V388;          {register object V389;
1577          object V389;          object V390;
1578          V388= CMPcar((V383));          V389= CMPcar((V384));
1579          V389= CMPcdr((V383));          V390= CMPcdr((V384));
1580          {object V390;          {object V391;
1581          if(type_of(V385)==t_structure){          if(type_of(V386)==t_structure){
1582          goto T640;}          goto T640;}
1583          goto T638;          goto T638;
1584          goto T640;          goto T640;
1585  T640:;  T640:;
1586          if(!(((V385)->str.str_def)==(VV[34]))){          if(!(((V386)->str.str_def)==(VV[34]))){
1587          goto T638;}          goto T638;}
1588          V390= STREF(object,(V385),4);          V391= STREF(object,(V386),4);
1589          goto T636;          goto T636;
1590          goto T638;          goto T638;
1591  T638:;{object V392;  T638:;{object V393;
1592          V392= (VV[2]->s.s_dbind);          V393= (VV[2]->s.s_dbind);
1593          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1594          base[1]= (V385);          base[1]= (V386);
1595          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1596          (void) (*Lnk177)();          (void) (*Lnk177)();
1597          vs_top=sup;          vs_top=sup;
1598          V393= vs_base[0];          V394= vs_base[0];
1599          if(!((V392)==(CMPcar(V393)))){          if(!((V393)==(CMPcar(V394)))){
1600          goto T643;}}          goto T643;}}
1601          V390= CMPcar(((V385))->cc.cc_turbo[12]);          V391= CMPcar(((V386))->cc.cc_turbo[12]);
1602          goto T636;          goto T636;
1603          goto T643;          goto T643;
1604  T643:;  T643:;
1605          V390= Cnil;          V391= Cnil;
1606          goto T636;          goto T636;
1607  T636:;  T636:;
1608          {object V395;          {object V396;
1609          object V396;          object V397;
1610          {register object V397;          {register object V398;
1611          V397= ((V388))->v.v_self[1];          V398= ((V389))->v.v_self[1];
1612          if(!(type_of(V397)==t_fixnum)){          if(!(type_of(V398)==t_fixnum)){
1613          goto T658;}          goto T658;}
1614          V397= ((V390))->v.v_self[fix((V397))];          V398= ((V391))->v.v_self[fix((V398))];
1615          goto T656;          goto T656;
1616          goto T658;          goto T658;
1617  T658:;  T658:;
1618          V397= VV[3];          V398= VV[3];
1619          goto T656;          goto T656;
1620  T656:;  T656:;
1621          if(!(((V397))==(VV[3]))){          if(!(((V398))==(VV[3]))){
1622          goto T661;}          goto T661;}
1623          base[2]= (V385);          base[2]= (V386);
1624          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1625          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1626          vs_top=sup;          vs_top=sup;
1627          V395= vs_base[0];          V396= vs_base[0];
1628          goto T653;          goto T653;
1629          goto T661;          goto T661;
1630  T661:;  T661:;
1631          V395= (V397);}          V396= (V398);}
1632          goto T653;          goto T653;
1633  T653:;  T653:;
1634          base[2]= (V386);          base[2]= (V387);
1635          {register object V400;          {register object V401;
1636          V400= ((V388))->v.v_self[1];          V401= ((V389))->v.v_self[1];
1637          if(!(type_of(V400)==t_fixnum)){          if(!(type_of(V401)==t_fixnum)){
1638          goto T672;}          goto T672;}
1639          V400= ((V390))->v.v_self[fix((V400))];          V401= ((V391))->v.v_self[fix((V401))];
1640          goto T670;          goto T670;
1641          goto T672;          goto T672;
1642  T672:;  T672:;
1643          V400= VV[3];          V401= VV[3];
1644          goto T670;          goto T670;
1645  T670:;  T670:;
1646          if(!(((V400))==(VV[3]))){          if(!(((V401))==(VV[3]))){
1647          goto T675;}          goto T675;}
1648          base[4]= (V385);          base[4]= (V386);
1649          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1650          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1651          vs_top=sup;          vs_top=sup;
1652          V399= vs_base[0];          V400= vs_base[0];
1653          goto T667;          goto T667;
1654          goto T675;          goto T675;
1655  T675:;  T675:;
1656          V399= (V400);}          V400= (V401);}
1657          goto T667;          goto T667;
1658  T667:;  T667:;
1659          base[3]= CMPcar(V399);          base[3]= CMPcar(V400);
1660          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1661          Ladjoin();          Ladjoin();
1662          vs_top=sup;          vs_top=sup;
1663          V396= vs_base[0];          V397= vs_base[0];
1664          ((V395))->c.c_car = (V396);}          ((V396))->c.c_car = (V397);}
1665          {object V402;          {object V403;
1666          {register object V404;          {register object V405;
1667          V404= ((V388))->v.v_self[1];          V405= ((V389))->v.v_self[1];
1668          if(!(type_of(V404)==t_fixnum)){          if(!(type_of(V405)==t_fixnum)){
1669          goto T684;}          goto T684;}
1670          V404= ((V390))->v.v_self[fix((V404))];          V405= ((V391))->v.v_self[fix((V405))];
1671          goto T682;          goto T682;
1672          goto T684;          goto T684;
1673  T684:;  T684:;
1674          V404= VV[3];          V405= VV[3];
1675          goto T682;          goto T682;
1676  T682:;  T682:;
1677          if(!(((V404))==(VV[3]))){          if(!(((V405))==(VV[3]))){
1678          goto T687;}          goto T687;}
1679          base[1]= (V385);          base[1]= (V386);
1680          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1681          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1682          vs_top=sup;          vs_top=sup;
1683          V402= vs_base[0];          V403= vs_base[0];
1684          goto T679;          goto T679;
1685          goto T687;          goto T687;
1686  T687:;  T687:;
1687          V402= (V404);}          V403= (V405);}
1688          goto T679;          goto T679;
1689  T679:;  T679:;
1690          ((V402))->c.c_cdr = Cnil;}          ((V403))->c.c_cdr = Cnil;}
1691          {object V406 = (V386);          {object V407 = (V387);
1692          VMR24(V406)}}}          VMR24(V407)}}}
1693          base[0]=base[0];          base[0]=base[0];
1694          return Cnil;          return Cnil;
1695  }  }
1696  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))      */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))      */
1697    
1698  static object LI25(V411,V412,V413,V414)  static object LI25(V412,V413,V414,V415)
1699    
1700  object V411;object V412;register object V413;object V414;  object V412;object V413;register object V414;object V415;
1701  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1702          goto TTL;          goto TTL;
1703  TTL:;  TTL:;
1704          {register object V416;          {register object V417;
1705          object V417;          object V418;
1706          V416= CMPcar((V411));          V417= CMPcar((V412));
1707          V417= CMPcdr((V411));          V418= CMPcdr((V412));
1708          {object V418;          {object V419;
1709          if(type_of(V413)==t_structure){          if(type_of(V414)==t_structure){
1710          goto T701;}          goto T701;}
1711          goto T699;          goto T699;
1712          goto T701;          goto T701;
1713  T701:;  T701:;
1714          if(!(((V413)->str.str_def)==(VV[35]))){          if(!(((V414)->str.str_def)==(VV[35]))){
1715          goto T699;}          goto T699;}
1716          V418= STREF(object,(V413),4);          V419= STREF(object,(V414),4);
1717          goto T697;          goto T697;
1718          goto T699;          goto T699;
1719  T699:;{object V420;  T699:;{object V421;
1720          V420= (VV[2]->s.s_dbind);          V421= (VV[2]->s.s_dbind);
1721          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1722          base[1]= (V413);          base[1]= (V414);
1723          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1724          (void) (*Lnk177)();          (void) (*Lnk177)();
1725          vs_top=sup;          vs_top=sup;
1726          V421= vs_base[0];          V422= vs_base[0];
1727          if(!((V420)==(CMPcar(V421)))){          if(!((V421)==(CMPcar(V422)))){
1728          goto T704;}}          goto T704;}}
1729          V418= CMPcar(((V413))->cc.cc_turbo[12]);          V419= CMPcar(((V414))->cc.cc_turbo[12]);
1730          goto T697;          goto T697;
1731          goto T704;          goto T704;
1732  T704:;  T704:;
1733          V418= Cnil;          V419= Cnil;
1734          goto T697;          goto T697;
1735  T697:;  T697:;
1736          {object V423;          {object V424;
1737          object V424;          object V425;
1738          {register object V425;          {register object V426;
1739          V425= ((V416))->v.v_self[1];          V426= ((V417))->v.v_self[1];
1740          if(!(type_of(V425)==t_fixnum)){          if(!(type_of(V426)==t_fixnum)){
1741          goto T719;}          goto T719;}
1742          V425= ((V418))->v.v_self[fix((V425))];          V426= ((V419))->v.v_self[fix((V426))];
1743          goto T717;          goto T717;
1744          goto T719;          goto T719;
1745  T719:;  T719:;
1746          V425= VV[3];          V426= VV[3];
1747          goto T717;          goto T717;
1748  T717:;  T717:;
1749          if(!(((V425))==(VV[3]))){          if(!(((V426))==(VV[3]))){
1750          goto T722;}          goto T722;}
1751          base[2]= (V413);          base[2]= (V414);
1752          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1753          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1754          vs_top=sup;          vs_top=sup;
1755          V423= vs_base[0];          V424= vs_base[0];
1756          goto T714;          goto T714;
1757          goto T722;          goto T722;
1758  T722:;  T722:;
1759          V423= (V425);}          V424= (V426);}
1760          goto T714;          goto T714;
1761  T714:;  T714:;
1762          base[2]= (V414);          base[2]= (V415);
1763          {register object V428;          {register object V429;
1764          V428= ((V416))->v.v_self[1];          V429= ((V417))->v.v_self[1];
1765          if(!(type_of(V428)==t_fixnum)){          if(!(type_of(V429)==t_fixnum)){
1766          goto T733;}          goto T733;}
1767          V428= ((V418))->v.v_self[fix((V428))];          V429= ((V419))->v.v_self[fix((V429))];
1768          goto T731;          goto T731;
1769          goto T733;          goto T733;
1770  T733:;  T733:;
1771          V428= VV[3];          V429= VV[3];
1772          goto T731;          goto T731;
1773  T731:;  T731:;
1774          if(!(((V428))==(VV[3]))){          if(!(((V429))==(VV[3]))){
1775          goto T736;}          goto T736;}
1776          base[4]= (V413);          base[4]= (V414);
1777          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1778          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1779          vs_top=sup;          vs_top=sup;
1780          V427= vs_base[0];          V428= vs_base[0];
1781          goto T728;          goto T728;
1782          goto T736;          goto T736;
1783  T736:;  T736:;
1784          V427= (V428);}          V428= (V429);}
1785          goto T728;          goto T728;
1786  T728:;  T728:;
1787          base[3]= CMPcar(V427);          base[3]= CMPcar(V428);
1788          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1789          (void) (*Lnk95)();          (void) (*Lnk95)();
1790          vs_top=sup;          vs_top=sup;
1791          V424= vs_base[0];          V425= vs_base[0];
1792          ((V423))->c.c_car = (V424);}          ((V424))->c.c_car = (V425);}
1793          {object V430;          {object V431;
1794          {register object V432;          {register object V433;
1795          V432= ((V416))->v.v_self[1];          V433= ((V417))->v.v_self[1];
1796          if(!(type_of(V432)==t_fixnum)){          if(!(type_of(V433)==t_fixnum)){
1797          goto T745;}          goto T745;}
1798          V432= ((V418))->v.v_self[fix((V432))];          V433= ((V419))->v.v_self[fix((V433))];
1799          goto T743;          goto T743;
1800          goto T745;          goto T745;
1801  T745:;  T745:;
1802          V432= VV[3];          V433= VV[3];
1803          goto T743;          goto T743;
1804  T743:;  T743:;
1805          if(!(((V432))==(VV[3]))){          if(!(((V433))==(VV[3]))){
1806          goto T748;}          goto T748;}
1807          base[1]= (V413);          base[1]= (V414);
1808          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1809          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1810          vs_top=sup;          vs_top=sup;
1811          V430= vs_base[0];          V431= vs_base[0];
1812          goto T740;          goto T740;
1813          goto T748;          goto T748;
1814  T748:;  T748:;
1815          V430= (V432);}          V431= (V433);}
1816          goto T740;          goto T740;
1817  T740:;  T740:;
1818          ((V430))->c.c_cdr = Cnil;}          ((V431))->c.c_cdr = Cnil;}
1819          {object V434 = (V414);          {object V435 = (V415);
1820          VMR25(V434)}}}          VMR25(V435)}}}
1821          base[0]=base[0];          base[0]=base[0];
1822          return Cnil;          return Cnil;
1823  }  }
1824  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))       */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))       */
1825    
1826  static object LI26(V438,V439,V440)  static object LI26(V439,V440,V441)
1827    
1828  object V438;object V439;register object V440;  object V439;object V440;register object V441;
1829  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1830          goto TTL;          goto TTL;
1831  TTL:;  TTL:;
1832          {object V442;          {object V443;
1833          object V443;          object V444;
1834          V442= CMPcar((V438));          V443= CMPcar((V439));
1835          V443= CMPcdr((V438));          V444= CMPcdr((V439));
1836          {object V444;          {object V445;
1837          if(type_of(V440)==t_structure){          if(type_of(V441)==t_structure){
1838          goto T762;}          goto T762;}
1839          goto T760;          goto T760;
1840          goto T762;          goto T762;
1841  T762:;  T762:;
1842          if(!(((V440)->str.str_def)==(VV[36]))){          if(!(((V441)->str.str_def)==(VV[36]))){
1843          goto T760;}          goto T760;}
1844          V444= STREF(object,(V440),4);          V445= STREF(object,(V441),4);
1845          goto T758;          goto T758;
1846          goto T760;          goto T760;
1847  T760:;{object V446;  T760:;{object V447;
1848          V446= (VV[2]->s.s_dbind);          V447= (VV[2]->s.s_dbind);
1849          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1850          base[1]= (V440);          base[1]= (V441);
1851          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1852          (void) (*Lnk177)();          (void) (*Lnk177)();
1853          vs_top=sup;          vs_top=sup;
1854          V447= vs_base[0];          V448= vs_base[0];
1855          if(!((V446)==(CMPcar(V447)))){          if(!((V447)==(CMPcar(V448)))){
1856          goto T765;}}          goto T765;}}
1857          V444= CMPcar(((V440))->cc.cc_turbo[12]);          V445= CMPcar(((V441))->cc.cc_turbo[12]);
1858          goto T758;          goto T758;
1859          goto T765;          goto T765;
1860  T765:;  T765:;
1861          V444= Cnil;          V445= Cnil;
1862          goto T758;          goto T758;
1863  T758:;  T758:;
1864          {register object V450;          {register object V451;
1865          V450= ((V442))->v.v_self[1];          V451= ((V443))->v.v_self[1];
1866          if(!(type_of(V450)==t_fixnum)){          if(!(type_of(V451)==t_fixnum)){
1867          goto T777;}          goto T777;}
1868          V450= ((V444))->v.v_self[fix((V450))];          V451= ((V445))->v.v_self[fix((V451))];
1869          goto T775;          goto T775;
1870          goto T777;          goto T777;
1871  T777:;  T777:;
1872          V450= VV[3];          V451= VV[3];
1873          goto T775;          goto T775;
1874  T775:;  T775:;
1875          if(!(((V450))==(VV[3]))){          if(!(((V451))==(VV[3]))){
1876          goto T780;}          goto T780;}
1877          base[0]= (V440);          base[0]= (V441);
1878          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1879          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1880          vs_top=sup;          vs_top=sup;
1881          V449= vs_base[0];          V450= vs_base[0];
1882          goto T772;          goto T772;
1883          goto T780;          goto T780;
1884  T780:;  T780:;
1885          V449= (V450);}          V450= (V451);}
1886          goto T772;          goto T772;
1887  T772:;  T772:;
1888          {object V452 = CMPcar(V449);          {object V453 = CMPcar(V450);
1889          VMR26(V452)}}}          VMR26(V453)}}}
1890          base[0]=base[0];          base[0]=base[0];
1891          return Cnil;          return Cnil;
1892  }  }
1893  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))     */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))     */
1894    
1895  static object LI27(V456,V457,V458)  static object LI27(V457,V458,V459)
1896    
1897  object V456;object V457;register object V458;  object V457;object V458;register object V459;
1898  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1899          goto TTL;          goto TTL;
1900  TTL:;  TTL:;
1901          {object V460;          {object V461;
1902          object V461;          object V462;
1903          V460= CMPcar((V456));          V461= CMPcar((V457));
1904          V461= CMPcdr((V456));          V462= CMPcdr((V457));
1905          {object V462;          {object V463;
1906          if(type_of(V458)==t_structure){          if(type_of(V459)==t_structure){
1907          goto T793;}          goto T793;}
1908          goto T791;          goto T791;
1909          goto T793;          goto T793;
1910  T793:;  T793:;
1911          if(!(((V458)->str.str_def)==(VV[37]))){          if(!(((V459)->str.str_def)==(VV[37]))){
1912          goto T791;}          goto T791;}
1913          V462= STREF(object,(V458),4);          V463= STREF(object,(V459),4);
1914          goto T789;          goto T789;
1915          goto T791;          goto T791;
1916  T791:;{object V464;  T791:;{object V465;
1917          V464= (VV[2]->s.s_dbind);          V465= (VV[2]->s.s_dbind);
1918          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
1919          base[1]= (V458);          base[1]= (V459);
1920          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1921          (void) (*Lnk177)();          (void) (*Lnk177)();
1922          vs_top=sup;          vs_top=sup;
1923          V465= vs_base[0];          V466= vs_base[0];
1924          if(!((V464)==(CMPcar(V465)))){          if(!((V465)==(CMPcar(V466)))){
1925          goto T796;}}          goto T796;}}
1926          V462= CMPcar(((V458))->cc.cc_turbo[12]);          V463= CMPcar(((V459))->cc.cc_turbo[12]);
1927          goto T789;          goto T789;
1928          goto T796;          goto T796;
1929  T796:;  T796:;
1930          V462= Cnil;          V463= Cnil;
1931          goto T789;          goto T789;
1932  T789:;  T789:;
1933          {object V467;          {object V468;
1934          {object V469;          {object V470;
1935          V469= ((V460))->v.v_self[1];          V470= ((V461))->v.v_self[1];
1936          if(!(type_of(V469)==t_fixnum)){          if(!(type_of(V470)==t_fixnum)){
1937          goto T809;}          goto T809;}
1938          V469= ((V462))->v.v_self[fix((V469))];          V470= ((V463))->v.v_self[fix((V470))];
1939          goto T807;          goto T807;
1940          goto T809;          goto T809;
1941  T809:;  T809:;
1942          V469= VV[3];          V470= VV[3];
1943          goto T807;          goto T807;
1944  T807:;  T807:;
1945          if(!(((V469))==(VV[3]))){          if(!(((V470))==(VV[3]))){
1946          goto T812;}          goto T812;}
1947          base[0]= (V458);          base[0]= (V459);
1948          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1949          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1950          vs_top=sup;          vs_top=sup;
1951          V468= vs_base[0];          V469= vs_base[0];
1952          goto T804;          goto T804;
1953          goto T812;          goto T812;
1954  T812:;  T812:;
1955          V468= (V469);}          V469= (V470);}
1956          goto T804;          goto T804;
1957  T804:;  T804:;
1958          V467= CMPcdr(V468);          V468= CMPcdr(V469);
1959          if(((V467))==Cnil){          if(((V468))==Cnil){
1960          goto T816;}          goto T816;}
1961          {object V471 = (V467);          {object V472 = (V468);
1962          VMR27(V471)}          VMR27(V472)}
1963          goto T816;          goto T816;
1964  T816:;  T816:;
1965          {object V472;          {object V473;
1966          object V473;          object V474;
1967          {object V474;          {object V475;
1968          V474= ((V460))->v.v_self[1];          V475= ((V461))->v.v_self[1];
1969          if(!(type_of(V474)==t_fixnum)){          if(!(type_of(V475)==t_fixnum)){
1970          goto T823;}          goto T823;}
1971          V474= ((V462))->v.v_self[fix((V474))];          V475= ((V463))->v.v_self[fix((V475))];
1972          goto T821;          goto T821;
1973          goto T823;          goto T823;
1974  T823:;  T823:;
1975          V474= VV[3];          V475= VV[3];
1976          goto T821;          goto T821;
1977  T821:;  T821:;
1978          if(!(((V474))==(VV[3]))){          if(!(((V475))==(VV[3]))){
1979          goto T826;}          goto T826;}
1980          base[2]= (V458);          base[2]= (V459);
1981          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1982          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
1983          vs_top=sup;          vs_top=sup;
1984          V472= vs_base[0];          V473= vs_base[0];
1985          goto T818;          goto T818;
1986          goto T826;          goto T826;
1987  T826:;  T826:;
1988          V472= (V474);}          V473= (V475);}
1989          goto T818;          goto T818;
1990  T818:;  T818:;
1991          {register object V476;          {register object V477;
1992          register object V477;          register object V478;
         V476= Cnil;  
1993          V477= Cnil;          V477= Cnil;
1994          {register object V478;          V478= Cnil;
1995          register object V479;          {register object V479;
1996          {object V481;          register object V480;
1997          V481= ((V460))->v.v_self[1];          {object V482;
1998          if(!(type_of(V481)==t_fixnum)){          V482= ((V461))->v.v_self[1];
1999            if(!(type_of(V482)==t_fixnum)){
2000          goto T839;}          goto T839;}
2001          V481= ((V462))->v.v_self[fix((V481))];          V482= ((V463))->v.v_self[fix((V482))];
2002          goto T837;          goto T837;
2003          goto T839;          goto T839;
2004  T839:;  T839:;
2005          V481= VV[3];          V482= VV[3];
2006          goto T837;          goto T837;
2007  T837:;  T837:;
2008          if(!(((V481))==(VV[3]))){          if(!(((V482))==(VV[3]))){
2009          goto T842;}          goto T842;}
2010          base[4]= (V458);          base[4]= (V459);
2011          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2012          (void) (*Lnk207)(Lclptr207);          (void) (*Lnk207)(Lclptr207);
2013          vs_top=sup;          vs_top=sup;
2014          V480= vs_base[0];          V481= vs_base[0];
2015          goto T834;          goto T834;
2016          goto T842;          goto T842;
2017  T842:;  T842:;
2018          V480= (V481);}          V481= (V482);}
2019          goto T834;          goto T834;
2020  T834:;  T834:;
2021          V478= CMPcar(V480);          V479= CMPcar(V481);
2022          V479= CMPcar((V478));          V480= CMPcar((V479));
2023          goto T847;          goto T847;
2024  T847:;  T847:;
2025          if(!(((V478))==Cnil)){          if(!(((V479))==Cnil)){
2026          goto T848;}          goto T848;}
2027          goto T832;          goto T832;
2028          goto T848;          goto T848;
2029  T848:;  T848:;
2030          {register object V483;          {register object V484;
2031          base[4]= (V479);          base[4]= (V480);
2032          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2033          (void) (*Lnk208)(Lclptr208);          (void) (*Lnk208)(Lclptr208);
2034          vs_top=sup;          vs_top=sup;
2035          V483= vs_base[0];          V484= vs_base[0];
2036          if(((V476))!=Cnil){          if(((V477))!=Cnil){
2037          goto T856;}          goto T856;}
2038          V477= make_cons((V483),Cnil);          V478= make_cons((V484),Cnil);
2039          V476= (V477);          V477= (V478);
2040          goto T852;          goto T852;
2041          goto T856;          goto T856;
2042  T856:;  T856:;
2043          {register object x= (V483),V484= (V476);          {register object x= (V484),V485= (V477);
2044          while(V484!=Cnil)          while(V485!=Cnil)
2045          if(x==(V484->c.c_car)){          if(x==(V485->c.c_car)){
2046          goto T852;          goto T852;
2047          }else V484=V484->c.c_cdr;}          }else V485=V485->c.c_cdr;}
2048          V486= make_cons((V483),Cnil);          V487= make_cons((V484),Cnil);
2049          ((V477))->c.c_cdr = /* INLINE-ARGS */V486;          ((V478))->c.c_cdr = /* INLINE-ARGS */V487;
2050          V485= (V477);          V486= (V478);
2051          V477= CMPcdr(V485);}          V478= CMPcdr(V486);}
2052          goto T852;          goto T852;
2053  T852:;  T852:;
2054          V478= CMPcdr((V478));          V479= CMPcdr((V479));
2055          V479= CMPcar((V478));          V480= CMPcar((V479));
2056          goto T847;}          goto T847;}
2057          goto T832;          goto T832;
2058  T832:;  T832:;
2059          V473= (V476);}          V474= (V477);}
2060          ((V472))->c.c_cdr = (V473);          ((V473))->c.c_cdr = (V474);
2061          {object V487 = (V473);          {object V488 = (V474);
2062          VMR27(V487)}}}}}          VMR27(V488)}}}}}
2063          base[0]=base[0];          base[0]=base[0];
2064          return Cnil;          return Cnil;
2065  }  }
2066  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))       */  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))       */
2067    
2068  static object LI28(V491,V492,V493)  static object LI28(V492,V493,V494)
2069    
2070  object V491;object V492;object V493;  object V492;object V493;object V494;
2071  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
2072          goto TTL;          goto TTL;
2073  TTL:;  TTL:;
2074          {object V495 = (VV[38]->s.s_dbind);          {object V496 = (VV[38]->s.s_dbind);
2075          VMR28(V495)}          VMR28(V496)}
2076          return Cnil;          return Cnil;
2077  }  }
2078  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))  */  /*      local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))  */
2079    
2080  static object LI29(V499,V500,V501)  static object LI29(V500,V501,V502)
2081    
2082  object V499;object V500;object V501;  object V500;object V501;object V502;
2083  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
2084          goto TTL;          goto TTL;
2085  TTL:;  TTL:;
2086          {object V503 = (VV[39]->s.s_dbind);          {object V504 = (VV[39]->s.s_dbind);
2087          VMR29(V503)}          VMR29(V504)}
2088          return Cnil;          return Cnil;
2089  }  }
2090  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))       */  /*      local entry for function (FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))       */
2091    
2092  static object LI30(V508,V509,V510,V511)  static object LI30(V509,V510,V511,V512)
2093    
2094  object V508;object V509;object V510;object V511;  object V509;object V510;object V511;object V512;
2095  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
2096          goto TTL;          goto TTL;
2097  TTL:;  TTL:;
2098          {object V513;          {object V514;
2099          object V514;          object V515;
2100          register object V515;          register object V516;
2101          base[3]= (V510);          base[3]= (V511);
2102          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2103          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk209)(Lclptr209);
2104          vs_top=sup;          vs_top=sup;
2105          V513= vs_base[0];          V514= vs_base[0];
2106          base[3]= (V510);          base[3]= (V511);
2107          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2108          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
2109          vs_top=sup;          vs_top=sup;
2110          V514= vs_base[0];          V515= vs_base[0];
2111          base[3]= (V513);          base[3]= (V514);
2112          base[4]= (V514);          base[4]= (V515);
2113          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2114          Lgethash();          Lgethash();
2115          vs_top=sup;          vs_top=sup;
2116          V515= vs_base[0];          V516= vs_base[0];
2117          if(((V515))!=Cnil){          if(((V516))!=Cnil){
2118          goto T887;}          goto T887;}
2119          {object V518;          {object V519;
2120          V518= make_cons(Cnil,Cnil);          V519= make_cons(Cnil,Cnil);
2121          base[4]= V513;          base[4]= V514;
2122          base[5]= V514;          base[5]= V515;
2123          base[6]= (V518);          base[6]= (V519);
2124          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2125          siLhash_set();          siLhash_set();
2126          vs_top=sup;          vs_top=sup;
2127          V515= vs_base[0];}          V516= vs_base[0];}
2128          goto T887;          goto T887;
2129  T887:;  T887:;
2130          {object V520;          {object V521;
2131          base[4]= (V511);          base[4]= (V512);
2132          base[5]= CMPcar((V515));          base[5]= CMPcar((V516));
2133          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2134          Ladjoin();          Ladjoin();
2135          vs_top=sup;          vs_top=sup;
2136          V520= vs_base[0];          V521= vs_base[0];
2137          (V515)->c.c_car = (V520);}          (V516)->c.c_car = (V521);}
2138          (V515)->c.c_cdr = Cnil;          (V516)->c.c_cdr = Cnil;
2139          {object V523 = (V511);          {object V524 = (V512);
2140          VMR30(V523)}}          VMR30(V524)}}
2141          base[0]=base[0];          base[0]=base[0];
2142          return Cnil;          return Cnil;
2143  }  }
2144  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))    */  /*      local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))    */
2145    
2146  static object LI31(V528,V529,V530,V531)  static object LI31(V529,V530,V531,V532)
2147    
2148  object V528;object V529;object V530;object V531;  object V529;object V530;object V531;object V532;
2149  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
2150          goto TTL;          goto TTL;
2151  TTL:;  TTL:;
2152          {object V533;          {object V534;
2153          register object V534;          register object V535;
2154          base[2]= (V530);          base[2]= (V531);
2155          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2156          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk209)(Lclptr209);
2157          vs_top=sup;          vs_top=sup;
2158          V533= vs_base[0];          V534= vs_base[0];
2159          base[2]= (V533);          base[2]= (V534);
2160          base[4]= (V530);          base[4]= (V531);
2161          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2162          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
2163          vs_top=sup;          vs_top=sup;
# Line 2164  TTL:; Line 2165  TTL:;
2165          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2166          Lgethash();          Lgethash();
2167          vs_top=sup;          vs_top=sup;
2168          V534= vs_base[0];          V535= vs_base[0];
2169          if(((V534))==Cnil){          if(((V535))==Cnil){
2170          goto T912;}          goto T912;}
2171          {object V536;          {object V537;
2172          base[3]= (V531);          base[3]= (V532);
2173          base[4]= CMPcar((V534));          base[4]= CMPcar((V535));
2174          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2175          (void) (*Lnk95)();          (void) (*Lnk95)();
2176          vs_top=sup;          vs_top=sup;
2177          V536= vs_base[0];          V537= vs_base[0];
2178          (V534)->c.c_car = (V536);}          (V535)->c.c_car = (V537);}
2179          (V534)->c.c_cdr = Cnil;          (V535)->c.c_cdr = Cnil;
2180          goto T912;          goto T912;
2181  T912:;  T912:;
2182          {object V539 = (V531);          {object V540 = (V532);
2183          VMR31(V539)}}          VMR31(V540)}}
2184          base[0]=base[0];          base[0]=base[0];
2185          return Cnil;          return Cnil;
2186  }  }
2187  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))     */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))     */
2188    
2189  static object LI32(V543,V544,V545)  static object LI32(V544,V545,V546)
2190    
2191  object V543;object V544;object V545;  object V544;object V545;object V546;
2192  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
2193          goto TTL;          goto TTL;
2194  TTL:;  TTL:;
2195          base[1]= (V545);          base[1]= (V546);
2196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2197          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk209)(Lclptr209);
2198          vs_top=sup;          vs_top=sup;
2199          base[0]= vs_base[0];          base[0]= vs_base[0];
2200          base[2]= (V545);          base[2]= (V546);
2201          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2202          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
2203          vs_top=sup;          vs_top=sup;
# Line 2204  TTL:; Line 2205  TTL:;
2205          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2206          Lgethash();          Lgethash();
2207          vs_top=sup;          vs_top=sup;
2208          V547= vs_base[0];          V548= vs_base[0];
2209          {object V548 = CMPcar(V547);          {object V549 = CMPcar(V548);
2210          VMR32(V548)}          VMR32(V549)}
2211          base[0]=base[0];          base[0]=base[0];
2212          return Cnil;          return Cnil;
2213  }  }
2214  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))   */  /*      local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))   */
2215    
2216  static object LI33(V552,V553,V554)  static object LI33(V553,V554,V555)
2217    
2218  object V552;object V553;object V554;  object V553;object V554;object V555;
2219  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2220          goto TTL;          goto TTL;
2221  TTL:;  TTL:;
2222          {object V556;          {object V557;
2223          register object V557;          register object V558;
2224          base[2]= (V554);          base[2]= (V555);
2225          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2226          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk209)(Lclptr209);
2227          vs_top=sup;          vs_top=sup;
2228          V556= vs_base[0];          V557= vs_base[0];
2229          base[2]= (V556);          base[2]= (V557);
2230          base[4]= (V554);          base[4]= (V555);
2231          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2232          (void) (*Lnk210)(Lclptr210);          (void) (*Lnk210)(Lclptr210);
2233          vs_top=sup;          vs_top=sup;
# Line 2234  TTL:; Line 2235  TTL:;
2235          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2236          Lgethash();          Lgethash();
2237          vs_top=sup;          vs_top=sup;
2238          V557= vs_base[0];          V558= vs_base[0];
2239          if(((V557))==Cnil){          if(((V558))==Cnil){
2240          goto T939;}{object V558;          goto T939;}{object V559;
2241          V558= CMPcdr((V557));          V559= CMPcdr((V558));
2242          if(V558==Cnil)goto T941;          if(V559==Cnil)goto T941;
2243          {object V559 = V558;          {object V560 = V559;
2244          VMR33(V559)}          VMR33(V560)}
2245          goto T941;          goto T941;
2246  T941:;}  T941:;}
2247          {object V561;          {object V562;
2248          {register object V562;          {register object V563;
2249          register object V563;          register object V564;
         V562= Cnil;  
2250          V563= Cnil;          V563= Cnil;
2251          {register object V564;          V564= Cnil;
2252          register object V565;          {register object V565;
2253          V564= CMPcar((V557));          register object V566;
2254          V565= CMPcar((V564));          V565= CMPcar((V558));
2255            V566= CMPcar((V565));
2256          goto T950;          goto T950;
2257  T950:;  T950:;
2258          if(!(((V564))==Cnil)){          if(!(((V565))==Cnil)){
2259          goto T951;}          goto T951;}
2260          goto T946;          goto T946;
2261          goto T951;          goto T951;
2262  T951:;  T951:;
2263          {register object V566;          {register object V567;
2264          base[5]= (V565);          base[5]= (V566);
2265          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2266          (void) (*Lnk208)(Lclptr208);          (void) (*Lnk208)(Lclptr208);
2267          vs_top=sup;          vs_top=sup;
2268          V566= vs_base[0];          V567= vs_base[0];
2269          if(((V562))!=Cnil){          if(((V563))!=Cnil){
2270          goto T959;}          goto T959;}
2271          V563= make_cons((V566),Cnil);          V564= make_cons((V567),Cnil);
2272          V562= (V563);          V563= (V564);
2273          goto T955;          goto T955;
2274          goto T959;          goto T959;
2275  T959:;  T959:;
2276          {register object x= (V566),V567= (V562);          {register object x= (V567),V568= (V563);
2277          while(V567!=Cnil)          while(V568!=Cnil)
2278          if(x==(V567->c.c_car)){          if(x==(V568->c.c_car)){
2279          goto T955;          goto T955;
2280          }else V567=V567->c.c_cdr;}          }else V568=V568->c.c_cdr;}
2281          V569= make_cons((V566),Cnil);          V570= make_cons((V567),Cnil);
2282          ((V563))->c.c_cdr = /* INLINE-ARGS */V569;          ((V564))->c.c_cdr = /* INLINE-ARGS */V570;
2283          V568= (V563);          V569= (V564);
2284          V563= CMPcdr(V568);}          V564= CMPcdr(V569);}
2285          goto T955;          goto T955;
2286  T955:;  T955:;
2287          V564= CMPcdr((V564));          V565= CMPcdr((V565));
2288          V565= CMPcar((V564));          V566= CMPcar((V565));
2289          goto T950;}          goto T950;}
2290          goto T946;          goto T946;
2291  T946:;  T946:;
2292          V561= (V562);}          V562= (V563);}
2293          (V557)->c.c_cdr = (V561);          (V558)->c.c_cdr = (V562);
2294          {object V570 = (V561);          {object V571 = (V562);
2295          VMR33(V570)}}          VMR33(V571)}}
2296          goto T939;          goto T939;
2297  T939:;  T939:;
2298          {object V571 = Cnil;          {object V572 = Cnil;
2299          VMR33(V571)}}          VMR33(V572)}}
2300          base[0]=base[0];          base[0]=base[0];
2301          return Cnil;          return Cnil;
2302  }  }
2303  /*      local entry for function MAP-SPECIALIZERS       */  /*      local entry for function MAP-SPECIALIZERS       */
2304    
2305  static object LI35(V573)  static object LI35(V574)
2306    
2307  object V573;  object V574;
2308  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2309          goto TTL;          goto TTL;
2310  TTL:;  TTL:;
2311          base[0]=MMcons((V573),Cnil);          base[0]=MMcons((V574),Cnil);
2312          base[1]=          base[1]=
2313          make_cclosure_new(LC126,Cnil,base[0],Cdata);          make_cclosure_new(LC126,Cnil,base[0],Cdata);
2314          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2325  TTL:; Line 2326  TTL:;
2326          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2327          Lmaphash();          Lmaphash();
2328          vs_top=sup;          vs_top=sup;
2329          {object V574 = Cnil;          {object V575 = Cnil;
2330          VMR34(V574)}          VMR34(V575)}
2331          base[0]=base[0];          base[0]=base[0];
2332          return Cnil;          return Cnil;
2333  }  }
2334  /*      local entry for function MAP-ALL-GENERIC-FUNCTIONS      */  /*      local entry for function MAP-ALL-GENERIC-FUNCTIONS      */
2335    
2336  static object LI37(V576)  static object LI37(V577)
2337    
2338  object V576;  object V577;
2339  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2340          goto TTL;          goto TTL;
2341  TTL:;  TTL:;
2342          base[0]=MMcons((V576),Cnil);          base[0]=MMcons((V577),Cnil);
2343          base[2]= VV[8];          base[2]= VV[8];
2344          base[3]= VV[9];          base[3]= VV[9];
2345          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2346  TTL:; Line 2347  TTL:;
2347          vs_top=sup;          vs_top=sup;
2348          base[1]= vs_base[0];          base[1]= vs_base[0];
2349          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
2350          V577=          V578=
2351          make_cclosure_new(LC129,Cnil,base[1],Cdata);          make_cclosure_new(LC129,Cnil,base[1],Cdata);
2352          (void)((*(LnkLI212))(V577));          (void)((*(LnkLI212))(V578));
2353          {object V578 = Cnil;          {object V579 = Cnil;
2354          VMR35(V578)}          VMR35(V579)}
2355          base[0]=base[0];          base[0]=base[0];
2356          return Cnil;          return Cnil;
2357  }  }
# Line 2360  static void L38() Line 2361  static void L38()
2361  {register object *base=vs_base;  {register object *base=vs_base;
2362          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2363          vs_check;          vs_check;
2364          {object V579;          {object V580;
2365          object V580;          object V581;
2366          register object V581;          register object V582;
         object V582;  
2367          object V583;          object V583;
2368            object V584;
2369          check_arg(5);          check_arg(5);
2370          V579=(base[0]);          V580=(base[0]);
2371          V580=(base[1]);          V581=(base[1]);
2372          V581=(base[2]);          V582=(base[2]);
2373          V582=(base[3]);          V583=(base[3]);
2374          V583=(base[4]);          V584=(base[4]);
2375          vs_top=sup;          vs_top=sup;
2376          goto TTL;          goto TTL;
2377  TTL:;  TTL:;
2378          {object V585;          {object V586;
2379          object V586;          object V587;
2380          V585= CMPcar((V579));          V586= CMPcar((V580));
2381          V586= CMPcdr((V579));          V587= CMPcdr((V580));
2382          {object V587;          {object V588;
2383          if(type_of(V581)==t_structure){          if(type_of(V582)==t_structure){
2384          goto T996;}          goto T996;}
2385          goto T994;          goto T994;
2386          goto T996;          goto T996;
2387  T996:;  T996:;
2388          if(!(((V581)->str.str_def)==(VV[41]))){          if(!(((V582)->str.str_def)==(VV[41]))){
2389          goto T994;}          goto T994;}
2390          V587= STREF(object,(V581),4);          V588= STREF(object,(V582),4);
2391          goto T992;          goto T992;
2392          goto T994;          goto T994;
2393  T994:;{object V589;  T994:;{object V590;
2394          V589= (VV[2]->s.s_dbind);          V590= (VV[2]->s.s_dbind);
2395          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
2396          base[6]= (V581);          base[6]= (V582);
2397          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2398          (void) (*Lnk177)();          (void) (*Lnk177)();
2399          vs_top=sup;          vs_top=sup;
2400          V590= vs_base[0];          V591= vs_base[0];
2401          if(!((V589)==(CMPcar(V590)))){          if(!((V590)==(CMPcar(V591)))){
2402          goto T999;}}          goto T999;}}
2403          V587= CMPcar(((V581))->cc.cc_turbo[12]);          V588= CMPcar(((V582))->cc.cc_turbo[12]);
2404          goto T992;          goto T992;
2405          goto T999;          goto T999;
2406  T999:;  T999:;
2407          V587= Cnil;          V588= Cnil;
2408          goto T992;          goto T992;
2409  T992:;  T992:;
2410          {object V591;          {object V592;
2411          base[5]= (V581);          base[5]= (V582);
2412          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2413          (void) (*Lnk213)(Lclptr213);          (void) (*Lnk213)(Lclptr213);
2414          vs_top=sup;          vs_top=sup;
2415          V592= vs_base[0];          V593= vs_base[0];
2416          V591= list(2,VV[42],V592);          V592= list(2,VV[42],V593);
2417          {object V593;          {object V594;
2418          V593= ((V585))->v.v_self[1];          V594= ((V586))->v.v_self[1];
2419          if(!(type_of(V593)==t_fixnum)){          if(!(type_of(V594)==t_fixnum)){
2420          goto T1010;}          goto T1010;}
2421          base[5]= ((V587))->v.v_self[fix((V593))]= ((V591));          base[5]= ((V588))->v.v_self[fix((V594))]= ((V592));
2422          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2423          return;          return;
2424          goto T1010;          goto T1010;
2425  T1010:;  T1010:;
2426          base[5]= (V591);          base[5]= (V592);
2427          base[6]= (V581);          base[6]= (V582);
2428          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2429          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk214)(Lclptr214);
2430          return;}}}}          return;}}}}
# Line 2435  static void L39() Line 2436  static void L39()
2436  {register object *base=vs_base;  {register object *base=vs_base;
2437          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2438          vs_check;          vs_check;
2439          {object V595;          {object V596;
2440          object V596;          object V597;
2441          register object V597;          register object V598;
         object V598;  
2442          object V599;          object V599;
2443            object V600;
2444          check_arg(5);          check_arg(5);
2445          V595=(base[0]);          V596=(base[0]);
2446          V596=(base[1]);          V597=(base[1]);
2447          V597=(base[2]);          V598=(base[2]);
2448          V598=(base[3]);          V599=(base[3]);
2449          V599=(base[4]);          V600=(base[4]);
2450          vs_top=sup;          vs_top=sup;
2451          goto TTL;          goto TTL;
2452  TTL:;  TTL:;
2453          {object V601;          {object V602;
2454          object V602;          object V603;
2455          V601= CMPcar((V595));          V602= CMPcar((V596));
2456          V602= CMPcdr((V595));          V603= CMPcdr((V596));
2457          {object V603;          {object V604;
2458          if(type_of(V597)==t_structure){          if(type_of(V598)==t_structure){
2459          goto T1024;}          goto T1024;}
2460          goto T1022;          goto T1022;
2461          goto T1024;          goto T1024;
2462  T1024:;  T1024:;
2463          if(!(((V597)->str.str_def)==(VV[43]))){          if(!(((V598)->str.str_def)==(VV[43]))){
2464          goto T1022;}          goto T1022;}
2465          V603= STREF(object,(V597),4);          V604= STREF(object,(V598),4);
2466          goto T1020;          goto T1020;
2467          goto T1022;          goto T1022;
2468  T1022:;{object V605;  T1022:;{object V606;
2469          V605= (VV[2]->s.s_dbind);          V606= (VV[2]->s.s_dbind);
2470          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
2471          base[6]= (V597);          base[6]= (V598);
2472          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2473          (void) (*Lnk177)();          (void) (*Lnk177)();
2474          vs_top=sup;          vs_top=sup;
2475          V606= vs_base[0];          V607= vs_base[0];
2476          if(!((V605)==(CMPcar(V606)))){          if(!((V606)==(CMPcar(V607)))){
2477          goto T1027;}}          goto T1027;}}
2478          V603= CMPcar(((V597))->cc.cc_turbo[12]);          V604= CMPcar(((V598))->cc.cc_turbo[12]);
2479          goto T1020;          goto T1020;
2480          goto T1027;          goto T1027;
2481  T1027:;  T1027:;
2482          V603= Cnil;          V604= Cnil;
2483          goto T1020;          goto T1020;
2484  T1020:;  T1020:;
2485          {object V607;          {object V608;
2486          base[5]= (V597);          base[5]= (V598);
2487          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2488          (void) (*Lnk209)(Lclptr209);          (void) (*Lnk209)(Lclptr209);
2489          vs_top=sup;          vs_top=sup;
2490          V608= vs_base[0];          V609= vs_base[0];
2491          V607= list(2,VV[44],V608);          V608= list(2,VV[44],V609);
2492          {object V609;          {object V610;
2493          V609= ((V601))->v.v_self[1];          V610= ((V602))->v.v_self[1];
2494          if(!(type_of(V609)==t_fixnum)){          if(!(type_of(V610)==t_fixnum)){
2495          goto T1038;}          goto T1038;}
2496          base[5]= ((V603))->v.v_self[fix((V609))]= ((V607));          base[5]= ((V604))->v.v_self[fix((V610))]= ((V608));
2497          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2498          return;          return;
2499          goto T1038;          goto T1038;
2500  T1038:;  T1038:;
2501          base[5]= (V607);          base[5]= (V608);
2502          base[6]= (V597);          base[6]= (V598);
2503          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2504          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk214)(Lclptr214);
2505          return;}}}}          return;}}}}
# Line 2506  T1038:; Line 2507  T1038:;
2507  }  }
2508  /*      local entry for function REAL-LOAD-DEFCLASS     */  /*      local entry for function REAL-LOAD-DEFCLASS     */
2509    
2510  static object LI40(V617,V618,V619,V620,V621,V622)  static object LI40(V618,V619,V620,V621,V622,V623)
2511    
2512  object V617;object V618;object V619;object V620;object V621;object V622;  object V618;object V619;object V620;object V621;object V622;object V623;
2513  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2514          goto TTL;          goto TTL;
2515  TTL:;  TTL:;
2516          (void)((*(LnkLI215))((V622)));          (void)((*(LnkLI215))((V623)));
2517          {object V623;          {object V624;
2518          base[0]= (V617);          base[0]= (V618);
2519          base[1]= VV[45];          base[1]= VV[45];
2520          base[2]= (V618);          base[2]= (V619);
2521          base[3]= VV[46];          base[3]= VV[46];
2522          base[4]= (V619);          base[4]= (V620);
2523          base[5]= VV[47];          base[5]= VV[47];
2524          base[6]= (V620);          base[6]= (V621);
2525          base[7]= VV[48];          base[7]= VV[48];
2526          V625= list(2,VV[49],(V617));          V626= list(2,VV[49],(V618));
2527          vs_base=vs_top;          vs_base=vs_top;
2528          (void) (*Lnk216)();          (void) (*Lnk216)();
2529          vs_top=sup;          vs_top=sup;
2530          V626= vs_base[0];          V627= vs_base[0];
2531          base[8]= list(2,/* INLINE-ARGS */V625,V626);          base[8]= list(2,/* INLINE-ARGS */V626,V627);
2532          {object V624;          {object V625;
2533          V624= (V621);          V625= (V622);
2534           vs_top=base+9;           vs_top=base+9;
2535           while(V624!=Cnil)           while(V625!=Cnil)
2536           {vs_push((V624)->c.c_car);V624=(V624)->c.c_cdr;}           {vs_push((V625)->c.c_car);V625=(V625)->c.c_cdr;}
2537          vs_base=base+0;}          vs_base=base+0;}
2538          (void) (*Lnk217)();          (void) (*Lnk217)();
2539          vs_top=sup;          vs_top=sup;
2540          V623= vs_base[0];          V624= vs_base[0];
2541          {object V627 = (V623);          {object V628 = (V624);
2542          VMR38(V627)}}          VMR38(V628)}}
2543          base[0]=base[0];          base[0]=base[0];
2544          return Cnil;          return Cnil;
2545  }  }
# Line 2548  static void L41() Line 2549  static void L41()
2549  {register object *base=vs_base;  {register object *base=vs_base;
2550          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2551          vs_check;          vs_check;
2552          {object V628;          {object V629;
2553          object V629;          object V630;
2554          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2555          V628=(base[0]);          V629=(base[0]);
2556          vs_base=vs_base+1;          vs_base=vs_base+1;
2557          vs_top[0]=Cnil;          vs_top[0]=Cnil;
2558          {object *p=vs_top;          {object *p=vs_top;
2559           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2560          V629=(base[1]);          V630=(base[1]);
2561          vs_top=sup;          vs_top=sup;
2562          base[2]=VV[218]->s.s_gfdef;          base[2]=VV[218]->s.s_gfdef;
2563          base[3]= (V628);          base[3]= (V629);
2564          base[4]= (VFUN_NARGS=2,(*(LnkLI219))((V628),Cnil));          base[4]= (VFUN_NARGS=2,(*(LnkLI219))((V629),Cnil));
2565          {object V630;          {object V631;
2566          V630= (V629);          V631= (V630);
2567           vs_top=base+5;           vs_top=base+5;
2568           while(V630!=Cnil)           while(V631!=Cnil)
2569           {vs_push((V630)->c.c_car);V630=(V630)->c.c_cdr;}           {vs_push((V631)->c.c_car);V631=(V631)->c.c_cdr;}
2570          vs_base=base+3;}          vs_base=base+3;}
2571          (void) (*Lnk218)(Lclptr218);          (void) (*Lnk218)(Lclptr218);
2572          return;          return;
# Line 2573  static void L41() Line 2574  static void L41()
2574  }  }
2575  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))        */  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))        */
2576    
2577  static object LI42(V636,V637,V638,V639,V640)  static object LI42(V637,V638,V639,V640,V641)
2578    
2579  object V636;object V637;register object V638;register object V639;object V640;  object V637;object V638;register object V639;register object V640;object V641;
2580  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2581          goto TTL;          goto TTL;
2582  TTL:;  TTL:;
2583          {object V643;          {object V644;
2584          object V644;          object V645;
2585          base[0]= (V639);          base[0]= (V640);
2586          base[1]= V640;          base[1]= V641;
2587          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2588          (void) (*Lnk220)();          (void) (*Lnk220)();
2589          if(vs_base>=vs_top){vs_top=sup;goto T1064;}          if(vs_base>=vs_top){vs_top=sup;goto T1064;}
2590          V643= vs_base[0];          V644= vs_base[0];
2591          vs_base++;          vs_base++;
2592          if(vs_base>=vs_top){vs_top=sup;goto T1065;}          if(vs_base>=vs_top){vs_top=sup;goto T1065;}
2593          V644= vs_base[0];          V645= vs_base[0];
2594          vs_top=sup;          vs_top=sup;
2595          goto T1066;          goto T1066;
2596          goto T1064;          goto T1064;
2597  T1064:;  T1064:;
2598          V643= Cnil;          V644= Cnil;
2599          goto T1065;          goto T1065;
2600  T1065:;  T1065:;
2601          V644= Cnil;          V645= Cnil;
2602          goto T1066;          goto T1066;
2603  T1066:;  T1066:;
2604          base[1]= (V643);          base[1]= (V644);
2605          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2606          (void) (*Lnk221)(Lclptr221);          (void) (*Lnk221)(Lclptr221);
2607          vs_top=sup;          vs_top=sup;
2608          base[0]= vs_base[0];          base[0]= vs_base[0];
2609          base[1]= (V638);          base[1]= (V639);
2610          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2611          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk222)(Lclptr222);
2612          vs_top=sup;          vs_top=sup;
2613          base[0]=VV[223]->s.s_gfdef;          base[0]=VV[223]->s.s_gfdef;
2614          base[1]= (V643);          base[1]= (V644);
2615          base[2]= VV[50];          base[2]= VV[50];
2616          base[3]= (V638);          base[3]= (V639);
2617          {object V645;          {object V646;
2618          V645= (V644);          V646= (V645);
2619           vs_top=base+4;           vs_top=base+4;
2620           while(V645!=Cnil)           while(V646!=Cnil)
2621           {vs_push((V645)->c.c_car);V645=(V645)->c.c_cdr;}           {vs_push((V646)->c.c_car);V646=(V646)->c.c_cdr;}
2622          vs_base=base+1;}          vs_base=base+1;}
2623          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk223)(Lclptr223);
2624          vs_top=sup;          vs_top=sup;
2625          V639= vs_base[0];          V640= vs_base[0];
2626          (void)((*(LnkLI224))(V639,V638));          (void)((*(LnkLI224))(V640,V639));
2627          base[0]= (V639);          base[0]= (V640);
2628          base[1]= (V638);          base[1]= (V639);
2629          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2630          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk222)(Lclptr222);
2631          vs_top=sup;          vs_top=sup;
2632          {object V648 = (V639);          {object V649 = (V640);
2633          VMR40(V648)}}          VMR40(V649)}}
2634          base[0]=base[0];          base[0]=base[0];
2635          return Cnil;          return Cnil;
2636  }  }
2637  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))   */  /*      local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))   */
2638    
2639  static object LI43(V654,V655,V656,V657,V658)  static object LI43(V655,V656,V657,V658,V659)
2640    
2641  object V654;object V655;object V656;register object V657;object V658;  object V655;object V656;object V657;register object V658;object V659;
2642  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2643          goto TTL;          goto TTL;
2644  TTL:;  TTL:;
2645          {object V661;          {object V662;
2646          object V662;          object V663;
2647          base[0]= (V657);          base[0]= (V658);
2648          base[1]= V658;          base[1]= V659;
2649          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2650          (void) (*Lnk220)();          (void) (*Lnk220)();
2651          if(vs_base>=vs_top){vs_top=sup;goto T1087;}          if(vs_base>=vs_top){vs_top=sup;goto T1087;}
2652          V661= vs_base[0];          V662= vs_base[0];
2653          vs_base++;          vs_base++;
2654          if(vs_base>=vs_top){vs_top=sup;goto T1088;}          if(vs_base>=vs_top){vs_top=sup;goto T1088;}
2655          V662= vs_base[0];          V663= vs_base[0];
2656          vs_top=sup;          vs_top=sup;
2657          goto T1089;          goto T1089;
2658          goto T1087;          goto T1087;
2659  T1087:;  T1087:;
2660          V661= Cnil;          V662= Cnil;
2661          goto T1088;          goto T1088;
2662  T1088:;  T1088:;
2663          V662= Cnil;          V663= Cnil;
2664          goto T1089;          goto T1089;
2665  T1089:;  T1089:;
2666          V663= (*(LnkLI225))((V657));          V664= (*(LnkLI225))((V658));
2667          if((/* INLINE-ARGS */V663)==((V661))){          V665 = (V662);
2668            if((/* INLINE-ARGS */V664)==(V665)){
2669          goto T1090;}          goto T1090;}
2670          base[0]= (V657);          base[0]= (V658);
2671          base[1]= (V661);          base[1]= (V662);
2672          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2673          (void) (*Lnk226)(Lclptr226);          (void) (*Lnk226)(Lclptr226);
2674          vs_top=sup;          vs_top=sup;
2675          goto T1090;          goto T1090;
2676  T1090:;  T1090:;
2677          base[0]=VV[227]->s.s_gfdef;          base[0]=VV[227]->s.s_gfdef;
2678          base[1]= (V657);          base[1]= (V658);
2679          {object V664;          {object V666;
2680          V664= (V662);          V666= (V663);
2681           vs_top=base+2;           vs_top=base+2;
2682           while(V664!=Cnil)           while(V666!=Cnil)
2683           {vs_push((V664)->c.c_car);V664=(V664)->c.c_cdr;}           {vs_push((V666)->c.c_car);V666=(V666)->c.c_cdr;}
2684          vs_base=base+1;}          vs_base=base+1;}
2685          (void) (*Lnk227)(Lclptr227);          (void) (*Lnk227)(Lclptr227);
2686          vs_top=sup;          vs_top=sup;
2687          (void)((*(LnkLI224))(V657,V656));          (void)((*(LnkLI224))(V658,V657));
2688          base[0]= (V657);          base[0]= (V658);
2689          base[1]= (V656);          base[1]= (V657);
2690          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2691          (void) (*Lnk222)(Lclptr222);          (void) (*Lnk222)(Lclptr222);
2692          vs_top=sup;          vs_top=sup;
2693          {object V667 = (V657);          {object V669 = (V658);
2694          VMR41(V667)}}          VMR41(V669)}}
2695          base[0]=base[0];          base[0]=base[0];
2696          return Cnil;          return Cnil;
2697  }  }
2698  /*      local entry for function (FAST-METHOD CLASS-PREDICATE-NAME (T)) */  /*      local entry for function (FAST-METHOD CLASS-PREDICATE-NAME (T)) */
2699    
2700  static object LI44(V671,V672,V673)  static object LI44(V673,V674,V675)
2701    
2702  object V671;object V672;object V673;  object V673;object V674;object V675;
2703  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2704          goto TTL;          goto TTL;
2705  TTL:;  TTL:;
2706          {object V675 = VV[51];          {object V677 = VV[51];
2707          VMR42(V675)}          VMR42(V677)}
2708          return Cnil;          return Cnil;
2709  }  }
2710  /*      function definition for ENSURE-CLASS-VALUES     */  /*      function definition for ENSURE-CLASS-VALUES     */
# Line 2711  static void L45() Line 2713  static void L45()
2713  {register object *base=vs_base;  {register object *base=vs_base;
2714          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2715          vs_check;          vs_check;
2716          {object V676;          {object V678;
2717          object V677;          object V679;
2718          check_arg(2);          check_arg(2);
2719          V676=(base[0]);          V678=(base[0]);
2720          V677=(base[1]);          V679=(base[1]);
2721          vs_top=sup;          vs_top=sup;
2722          goto TTL;          goto TTL;
2723  TTL:;  TTL:;
2724          {register object V678;          {register object V680;
         object V679;  
         object V680;  
2725          object V681;          object V681;
2726          object V682;          object V682;
2727          object V683;          object V683;
2728          base[8]= (V677);          object V684;
2729            object V685;
2730            base[8]= (V679);
2731          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2732          Lcopy_list();          Lcopy_list();
2733          vs_top=sup;          vs_top=sup;
2734          V678= vs_base[0];          V680= vs_base[0];
2735          V679= make_cons(small_fixnum(1),Cnil);          V681= make_cons(small_fixnum(1),Cnil);
2736          base[8]= (V678);          base[8]= (V680);
2737          base[9]= VV[45];          base[9]= VV[45];
2738          base[10]= (V679);          base[10]= (V681);
2739          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2740          Lgetf();          Lgetf();
2741          vs_top=sup;          vs_top=sup;
2742          V680= vs_base[0];          V682= vs_base[0];
2743          base[8]= (V678);          base[8]= (V680);
2744          base[9]= VV[46];          base[9]= VV[46];
2745          base[10]= (V679);          base[10]= (V681);
2746          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2747          Lgetf();          Lgetf();
2748          vs_top=sup;          vs_top=sup;
2749          V681= vs_base[0];          V683= vs_base[0];
2750          base[8]= (V678);          base[8]= (V680);
2751          base[9]= VV[47];          base[9]= VV[47];
2752          base[10]= (V679);          base[10]= (V681);
2753          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
2754          Lgetf();          Lgetf();
2755          vs_top=sup;          vs_top=sup;
2756          V682= vs_base[0];          V684= vs_base[0];
2757          if(!(((((V680))==((V679))?Ct:Cnil))==Cnil)){          if(!(((((V682))==((V681))?Ct:Cnil))==Cnil)){
2758          goto T1122;}          goto T1122;}
2759          V683= (VFUN_NARGS=1,(*(LnkLI219))((V680)));          V685= (VFUN_NARGS=1,(*(LnkLI219))((V682)));
2760          goto T1120;          goto T1120;
2761          goto T1122;          goto T1122;
2762  T1122:;  T1122:;
2763          if(((V676))==Cnil){          if(((V678))==Cnil){
2764          goto T1124;}          goto T1124;}
2765          base[8]= (V676);          base[8]= (V678);
2766          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2767          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
2768          vs_top=sup;          vs_top=sup;
# Line 2768  T1122:; Line 2770  T1122:;
2770          goto T1125;}          goto T1125;}
2771          goto T1124;          goto T1124;
2772  T1124:;  T1124:;
2773          V683= (VV[52]->s.s_dbind);          V685= (VV[52]->s.s_dbind);
2774          goto T1120;          goto T1120;
2775          goto T1125;          goto T1125;
2776  T1125:;  T1125:;
2777          V683= (*(LnkLI225))((V676));          V685= (*(LnkLI225))((V678));
2778          goto T1120;          goto T1120;
2779  T1120:;  T1120:;
2780          goto T1132;          goto T1132;
2781  T1132:;  T1132:;
2782          {register object V684;          {register object V686;
2783          register object V685;          register object V687;
2784          base[8]= (V678);          base[8]= (V680);
2785          base[9]= VV[45];          base[9]= VV[45];
2786          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2787          siLrem_f();          siLrem_f();
2788          if(vs_base>=vs_top){vs_top=sup;goto T1139;}          if(vs_base>=vs_top){vs_top=sup;goto T1139;}
2789          V684= vs_base[0];          V686= vs_base[0];
2790          vs_base++;          vs_base++;
2791          if(vs_base>=vs_top){vs_top=sup;goto T1140;}          if(vs_base>=vs_top){vs_top=sup;goto T1140;}
2792          V685= vs_base[0];          V687= vs_base[0];
2793          vs_top=sup;          vs_top=sup;
2794          goto T1141;          goto T1141;
2795          goto T1139;          goto T1139;
2796  T1139:;  T1139:;
2797          V684= Cnil;          V686= Cnil;
2798          goto T1140;          goto T1140;
2799  T1140:;  T1140:;
2800          V685= Cnil;          V687= Cnil;
2801          goto T1141;          goto T1141;
2802  T1141:;  T1141:;
2803          V678= (V684);          V680= (V686);
2804          if(((V685))!=Cnil){          if(((V687))!=Cnil){
2805          goto T1133;}}          goto T1133;}}
2806          goto T1130;          goto T1130;
2807          goto T1133;          goto T1133;
# Line 2809  T1133:; Line 2811  T1133:;
2811  T1130:;  T1130:;
2812          goto T1147;          goto T1147;
2813  T1147:;  T1147:;
2814          {register object V686;          {register object V688;
2815          register object V687;          register object V689;
2816          base[8]= (V678);          base[8]= (V680);
2817          base[9]= VV[46];          base[9]= VV[46];
2818          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2819          siLrem_f();          siLrem_f();
2820          if(vs_base>=vs_top){vs_top=sup;goto T1154;}          if(vs_base>=vs_top){vs_top=sup;goto T1154;}
2821          V686= vs_base[0];          V688= vs_base[0];
2822          vs_base++;          vs_base++;
2823          if(vs_base>=vs_top){vs_top=sup;goto T1155;}          if(vs_base>=vs_top){vs_top=sup;goto T1155;}
2824          V687= vs_base[0];          V689= vs_base[0];
2825          vs_top=sup;          vs_top=sup;
2826          goto T1156;          goto T1156;
2827          goto T1154;          goto T1154;
2828  T1154:;  T1154:;
2829          V686= Cnil;          V688= Cnil;
2830          goto T1155;          goto T1155;
2831  T1155:;  T1155:;
2832          V687= Cnil;          V689= Cnil;
2833          goto T1156;          goto T1156;
2834  T1156:;  T1156:;
2835          V678= (V686);          V680= (V688);
2836          if(((V687))!=Cnil){          if(((V689))!=Cnil){
2837          goto T1148;}}          goto T1148;}}
2838          goto T1145;          goto T1145;
2839          goto T1148;          goto T1148;
# Line 2841  T1148:; Line 2843  T1148:;
2843  T1145:;  T1145:;
2844          goto T1162;          goto T1162;
2845  T1162:;  T1162:;
2846          {register object V688;          {register object V690;
2847          register object V689;          register object V691;
2848          base[8]= (V678);          base[8]= (V680);
2849          base[9]= VV[47];          base[9]= VV[47];
2850          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2851          siLrem_f();          siLrem_f();
2852          if(vs_base>=vs_top){vs_top=sup;goto T1169;}          if(vs_base>=vs_top){vs_top=sup;goto T1169;}
2853          V688= vs_base[0];          V690= vs_base[0];
2854          vs_base++;          vs_base++;
2855          if(vs_base>=vs_top){vs_top=sup;goto T1170;}          if(vs_base>=vs_top){vs_top=sup;goto T1170;}
2856          V689= vs_base[0];          V691= vs_base[0];
2857          vs_top=sup;          vs_top=sup;
2858          goto T1171;          goto T1171;
2859          goto T1169;          goto T1169;
2860  T1169:;  T1169:;
2861          V688= Cnil;          V690= Cnil;
2862          goto T1170;          goto T1170;
2863  T1170:;  T1170:;
2864          V689= Cnil;          V691= Cnil;
2865          goto T1171;          goto T1171;
2866  T1171:;  T1171:;
2867          V678= (V688);          V680= (V690);
2868          if(((V689))!=Cnil){          if(((V691))!=Cnil){
2869          goto T1163;}}          goto T1163;}}
2870          goto T1160;          goto T1160;
2871          goto T1163;          goto T1163;
# Line 2871  T1163:; Line 2873  T1163:;
2873          goto T1162;          goto T1162;
2874          goto T1160;          goto T1160;
2875  T1160:;  T1160:;
2876          base[8]= (V683);          base[8]= (V685);
2877          if(((((V681))==((V679))?Ct:Cnil))==Cnil){          if(((((V683))==((V681))?Ct:Cnil))==Cnil){
2878          goto T1178;}          goto T1178;}
2879          V690= Cnil;          V692= Cnil;
2880          goto T1177;          goto T1177;
2881          goto T1178;          goto T1178;
2882  T1178:;  T1178:;
2883          {object V691;          {object V693;
2884          object V692= (V681);          object V694= (V683);
2885          if(V692==Cnil){          if(V694==Cnil){
2886          V690= Cnil;          V692= Cnil;
2887          goto T1177;}          goto T1177;}
2888          base[10]=V691=MMcons(Cnil,Cnil);          base[10]=V693=MMcons(Cnil,Cnil);
2889          goto T1180;          goto T1180;
2890  T1180:;  T1180:;
2891          base[11]= (V692->c.c_car);          base[11]= (V694->c.c_car);
2892          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
2893          L46(base);          L46(base);
2894          vs_top=sup;          vs_top=sup;
2895          (V691->c.c_car)= vs_base[0];          (V693->c.c_car)= vs_base[0];
2896          if((V692=MMcdr(V692))==Cnil){          if((V694=MMcdr(V694))==Cnil){
2897          V690= base[10];          V692= base[10];
2898          goto T1177;}          goto T1177;}
2899          V691=MMcdr(V691)=MMcons(Cnil,Cnil);          V693=MMcdr(V693)=MMcons(Cnil,Cnil);
2900          goto T1180;}          goto T1180;}
2901          goto T1177;          goto T1177;
2902  T1177:;  T1177:;
2903          if(((((V682))==((V679))?Ct:Cnil))==Cnil){          if(((((V684))==((V681))?Ct:Cnil))==Cnil){
2904          goto T1184;}          goto T1184;}
2905          V693= Cnil;          V695= Cnil;
2906          goto T1183;          goto T1183;
2907          goto T1184;          goto T1184;
2908  T1184:;  T1184:;
2909          V693= (V682);          V695= (V684);
2910          goto T1183;          goto T1183;
2911  T1183:;  T1183:;
2912          base[9]= listA(5,VV[46],V690,VV[47],V693,(V678));          V696 = (V680);
2913            base[9]= listA(5,VV[46],V692,VV[47],V695,V696);
2914          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2915          return;}          return;}
2916          }          }
2917  }  }
2918  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))   */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))   */
2919    
2920  static object LI47(V699,V700,V701,V702,V703)  static object LI47(V702,V703,V704,V705,V706)
2921    
2922  object V699;object V700;register object V701;object V702;object V703;  object V702;object V703;register object V704;object V705;object V706;
2923  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2924          goto TTL;          goto TTL;
2925  TTL:;  TTL:;
2926          {object V705;          {object V708;
         object V707;  
         object V708;  
2927          object V710;          object V710;
2928          object V711;          object V711;
2929          object V713;          object V713;
2930          object V714;          object V714;
2931          object V716;          object V716;
2932          V705= (*(LnkLI193))(VV[46],V703);          object V717;
2933          if(!(type_of((V705))==t_cons)){          object V719;
2934            V708= (*(LnkLI193))(VV[46],V706);
2935            if(!(type_of((V708))==t_cons)){
2936          goto T1191;}          goto T1191;}
2937          V707= CMPcar((V705));          V710= CMPcar((V708));
2938          goto T1189;          goto T1189;
2939          goto T1191;          goto T1191;
2940  T1191:;  T1191:;
2941          V707= Cnil;          V710= Cnil;
2942          goto T1189;          goto T1189;
2943  T1189:;  T1189:;
2944          V708= (*(LnkLI193))(VV[47],V703);          V711= (*(LnkLI193))(VV[47],V706);
2945          if(!(type_of((V708))==t_cons)){          if(!(type_of((V711))==t_cons)){
2946          goto T1196;}          goto T1196;}
2947          V710= CMPcar((V708));          V713= CMPcar((V711));
2948          goto T1194;          goto T1194;
2949          goto T1196;          goto T1196;
2950  T1196:;  T1196:;
2951          V710= Cnil;          V713= Cnil;
2952          goto T1194;          goto T1194;
2953  T1194:;  T1194:;
2954          V711= (*(LnkLI193))(VV[55],V703);          V714= (*(LnkLI193))(VV[55],V706);
2955          if(!(type_of((V711))==t_cons)){          if(!(type_of((V714))==t_cons)){
2956          goto T1201;}          goto T1201;}
2957          V713= CMPcar((V711));          V716= CMPcar((V714));
2958          goto T1199;          goto T1199;
2959          goto T1201;          goto T1201;
2960  T1201:;  T1201:;
2961          V713= Cnil;          V716= Cnil;
2962          goto T1199;          goto T1199;
2963  T1199:;  T1199:;
2964          V714= (*(LnkLI193))(VV[56],V703);          V717= (*(LnkLI193))(VV[56],V706);
2965          if(!(type_of((V714))==t_cons)){          if(!(type_of((V717))==t_cons)){
2966          goto T1206;}          goto T1206;}
2967          V716= CMPcar((V714));          V719= CMPcar((V717));
2968          goto T1204;          goto T1204;
2969          goto T1206;          goto T1206;
2970  T1206:;  T1206:;
2971          V716= Cnil;          V719= Cnil;
2972          goto T1204;          goto T1204;
2973  T1204:;  T1204:;
2974          {object V717;          {object V720;
2975          object V718;          object V721;
2976          V717= CMPcar((V699));          V720= CMPcar((V702));
2977          V718= CMPcdr((V699));          V721= CMPcdr((V702));
2978          {object V719;          {object V722;
2979          if(type_of(V701)==t_structure){          if(type_of(V704)==t_structure){
2980          goto T1216;}          goto T1216;}
2981          goto T1214;          goto T1214;
2982          goto T1216;          goto T1216;
2983  T1216:;  T1216:;
2984          if(!(((V701)->str.str_def)==(VV[57]))){          if(!(((V704)->str.str_def)==(VV[57]))){
2985          goto T1214;}          goto T1214;}
2986          V719= STREF(object,(V701),4);          V722= STREF(object,(V704),4);
2987          goto T1212;          goto T1212;
2988          goto T1214;          goto T1214;
2989  T1214:;{object V721;  T1214:;{object V724;
2990          V721= (VV[2]->s.s_dbind);          V724= (VV[2]->s.s_dbind);
2991          base[8]= small_fixnum(14);          base[8]= small_fixnum(14);
2992          base[9]= (V701);          base[9]= (V704);
2993          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2994          (void) (*Lnk177)();          (void) (*Lnk177)();
2995          vs_top=sup;          vs_top=sup;
2996          V722= vs_base[0];          V725= vs_base[0];
2997          if(!((V721)==(CMPcar(V722)))){          if(!((V724)==(CMPcar(V725)))){
2998          goto T1219;}}          goto T1219;}}
2999          V719= CMPcar(((V701))->cc.cc_turbo[12]);          V722= CMPcar(((V704))->cc.cc_turbo[12]);
3000          goto T1212;          goto T1212;
3001          goto T1219;          goto T1219;
3002  T1219:;  T1219:;
3003          V719= Cnil;          V722= Cnil;
3004          goto T1212;          goto T1212;
3005  T1212:;  T1212:;
3006          if((V705)==Cnil){          if((V708)==Cnil){
3007          goto T1227;}          goto T1227;}
3008          if((V707)!=Cnil){          if((V710)!=Cnil){
3009          goto T1230;}          goto T1230;}
3010          V707= make_cons((VV[58]->s.s_dbind),Cnil);          V710= make_cons((VV[58]->s.s_dbind),Cnil);
3011          goto T1230;          goto T1230;
3012  T1230:;  T1230:;
3013          {register object V723;          {register object V726;
3014          register object V724;          register object V727;
3015          V723= (V707);          V726= (V710);
3016          V724= CMPcar((V723));          V727= CMPcar((V726));
3017          goto T1235;          goto T1235;
3018  T1235:;  T1235:;
3019          if(!(((V723))==Cnil)){          if(!(((V726))==Cnil)){
3020          goto T1236;}          goto T1236;}
3021          goto T1231;          goto T1231;
3022          goto T1236;          goto T1236;
3023  T1236:;  T1236:;
3024          base[9]= (V701);          base[9]= (V704);
3025          base[10]= (V724);          base[10]= (V727);
3026          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
3027          (void) (*Lnk60)(Lclptr60);          (void) (*Lnk60)(Lclptr60);
3028          vs_top=sup;          vs_top=sup;
3029          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3030          goto T1240;}          goto T1240;}
3031          base[9]= VV[59];          base[9]= VV[59];
3032          base[10]= (V724);          base[10]= (V727);
3033          base[11]= (V701);          base[11]= (V704);
3034          base[12]= (*(LnkLI225))((V724));          base[12]= (*(LnkLI225))((V727));
3035          base[13]= (*(LnkLI225))((V701));          base[13]= (*(LnkLI225))((V704));
3036          base[14]= VV[60];          base[14]= VV[60];
3037          vs_top=(vs_base=base+9)+6;          vs_top=(vs_base=base+9)+6;
3038          Lerror();          Lerror();
3039          vs_top=sup;          vs_top=sup;
3040          goto T1240;          goto T1240;
3041  T1240:;  T1240:;
3042          V723= CMPcdr((V723));          V726= CMPcdr((V726));
3043          V724= CMPcar((V723));          V727= CMPcar((V726));
3044          goto T1235;}          goto T1235;}
3045          goto T1231;          goto T1231;
3046  T1231:;  T1231:;
3047          {object V726;          {object V729;
3048          V726= ((V717))->v.v_self[2];          V729= ((V720))->v.v_self[2];
3049          if(!(type_of(V726)==t_fixnum)){          if(!(type_of(V729)==t_fixnum)){
3050          goto T1258;}          goto T1258;}
3051          (void)(((V719))->v.v_self[fix((V726))]= (V707));          (void)(((V722))->v.v_self[fix((V729))]= (V710));
3052          goto T1225;          goto T1225;
3053          goto T1258;          goto T1258;
3054  T1258:;  T1258:;
3055          base[8]= V707;          base[8]= V710;
3056          base[9]= (V701);          base[9]= (V704);
3057          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3058          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
3059          vs_top=sup;          vs_top=sup;
3060          goto T1225;}          goto T1225;}
3061          goto T1227;          goto T1227;
3062  T1227:;  T1227:;
3063          {object V728;          {object V731;
3064          V728= ((V717))->v.v_self[2];          V731= ((V720))->v.v_self[2];
3065          if(!(type_of(V728)==t_fixnum)){          if(!(type_of(V731)==t_fixnum)){
3066          goto T1267;}          goto T1267;}
3067          V728= ((V719))->v.v_self[fix((V728))];          V731= ((V722))->v.v_self[fix((V731))];
3068          goto T1265;          goto T1265;
3069          goto T1267;          goto T1267;
3070  T1267:;  T1267:;
3071          V728= VV[3];          V731= VV[3];
3072          goto T1265;          goto T1265;
3073  T1265:;  T1265:;
3074          if(!(((V728))==(VV[3]))){          if(!(((V731))==(VV[3]))){
3075          goto T1270;}          goto T1270;}
3076          base[8]= (V701);          base[8]= (V704);
3077          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3078          (void) (*Lnk230)(Lclptr230);          (void) (*Lnk230)(Lclptr230);
3079          vs_top=sup;          vs_top=sup;
3080          V707= vs_base[0];          V710= vs_base[0];
3081          goto T1262;          goto T1262;
3082          goto T1270;          goto T1270;
3083  T1270:;  T1270:;
3084          V707= (V728);}          V710= (V731);}
3085          goto T1262;          goto T1262;
3086  T1262:;  T1262:;
3087          goto T1225;          goto T1225;
3088  T1225:;  T1225:;
3089          if((V708)==Cnil){          if((V711)==Cnil){
3090          goto T1276;}          goto T1276;}
3091          {object V730;          {object V733;
3092          {object V731;          {object V734;
3093          object V732= (V710);          object V735= (V713);
3094          if(V732==Cnil){          if(V735==Cnil){
3095          V730= Cnil;          V733= Cnil;
3096          goto T1278;}          goto T1278;}
3097          base[8]=V731=MMcons(Cnil,Cnil);          base[8]=V734=MMcons(Cnil,Cnil);
3098          goto T1279;          goto T1279;
3099  T1279:;  T1279:;
3100          base[9]= (V701);          base[9]= (V704);
3101          base[10]= (V732->c.c_car);          base[10]= (V735->c.c_car);
3102          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
3103          (void) (*Lnk231)();          (void) (*Lnk231)();
3104          vs_top=sup;          vs_top=sup;
3105          (V731->c.c_car)= vs_base[0];          (V734->c.c_car)= vs_base[0];
3106          if((V732=MMcdr(V732))==Cnil){          if((V735=MMcdr(V735))==Cnil){
3107          V730= base[8];          V733= base[8];
3108          goto T1278;}          goto T1278;}
3109          V731=MMcdr(V731)=MMcons(Cnil,Cnil);          V734=MMcdr(V734)=MMcons(Cnil,Cnil);
3110          goto T1279;}          goto T1279;}
3111          goto T1278;          goto T1278;
3112  T1278:;  T1278:;
3113          {object V734;          {object V737;
3114          V734= ((V717))->v.v_self[1];          V737= ((V720))->v.v_self[1];
3115          if(!(type_of(V734)==t_fixnum)){          if(!(type_of(V737)==t_fixnum)){
3116          goto T1285;}          goto T1285;}
3117          V710= ((V719))->v.v_self[fix((V734))]= ((V730));          V713= ((V722))->v.v_self[fix((V737))]= ((V733));
3118          goto T1274;          goto T1274;
3119          goto T1285;          goto T1285;
3120  T1285:;  T1285:;
3121          base[8]= (V730);          base[8]= (V733);
3122          base[9]= (V701);          base[9]= (V704);
3123          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3124          (void) (*Lnk232)(Lclptr232);          (void) (*Lnk232)(Lclptr232);
3125          vs_top=sup;          vs_top=sup;
3126          V710= vs_base[0];          V713= vs_base[0];
3127          goto T1274;}}          goto T1274;}}
3128          goto T1276;          goto T1276;
3129  T1276:;  T1276:;
3130          {object V736;          {object V739;
3131          V736= ((V717))->v.v_self[1];          V739= ((V720))->v.v_self[1];
3132          if(!(type_of(V736)==t_fixnum)){          if(!(type_of(V739)==t_fixnum)){
3133          goto T1293;}          goto T1293;}
3134          V736= ((V719))->v.v_self[fix((V736))];          V739= ((V722))->v.v_self[fix((V739))];
3135          goto T1291;          goto T1291;
3136          goto T1293;          goto T1293;
3137  T1293:;  T1293:;
3138          V736= VV[3];          V739= VV[3];
3139          goto T1291;          goto T1291;
3140  T1291:;  T1291:;
3141          if(!(((V736))==(VV[3]))){          if(!(((V739))==(VV[3]))){
3142          goto T1296;}          goto T1296;}
3143          base[8]= (V701);          base[8]= (V704);
3144          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3145          (void) (*Lnk233)(Lclptr233);          (void) (*Lnk233)(Lclptr233);
3146          vs_top=sup;          vs_top=sup;
3147          V710= vs_base[0];          V713= vs_base[0];
3148          goto T1274;          goto T1274;
3149          goto T1296;          goto T1296;
3150  T1296:;  T1296:;
3151          V710= (V736);}          V713= (V739);}
3152          goto T1274;          goto T1274;
3153  T1274:;  T1274:;
3154          if((V711)==Cnil){          if((V714)==Cnil){
3155          goto T1301;}          goto T1301;}
3156          (void)((*(LnkLI194))((V713),V701,VV[28]));          (void)((*(LnkLI194))((V716),V704,VV[28]));
3157          goto T1299;          goto T1299;
3158          goto T1301;          goto T1301;
3159  T1301:;  T1301:;
3160          V713= (*(LnkLI196))((V701),VV[28]);          V716= (*(LnkLI196))((V704),VV[28]);
3161          goto T1299;          goto T1299;
3162  T1299:;  T1299:;
3163          {object V743;          {object V746;
3164          register object V744;          register object V747;
3165          V743= Cnil;          V746= Cnil;
3166          V744= Cnil;          V747= Cnil;
3167          {register object V745;          {register object V748;
3168          register object V746;          register object V749;
3169          V745= (V710);          V748= (V713);
3170          V746= CMPcar((V745));          V749= CMPcar((V748));
3171          goto T1312;          goto T1312;
3172  T1312:;  T1312:;
3173          if(!(((V745))==Cnil)){          if(!(((V748))==Cnil)){
3174          goto T1313;}          goto T1313;}
3175          goto T1308;          goto T1308;
3176          goto T1313;          goto T1313;
3177  T1313:;  T1313:;
3178          base[9]= (V746);          base[9]= (V749);
3179          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3180          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
3181          vs_top=sup;          vs_top=sup;
3182          V747= vs_base[0];          V750= vs_base[0];
3183          if(!((V747)==((V701)))){          V751 = (V704);
3184            if(!((V750)==(V751))){
3185          goto T1317;}          goto T1317;}
3186          {object V748;          {object V752;
3187          base[9]= (V746);          base[9]= (V749);
3188          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3189          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk235)(Lclptr235);
3190          vs_top=sup;          vs_top=sup;
3191          V748= vs_base[0];          V752= vs_base[0];
3192          {object V749;          {object V753;
3193          base[9]= (V746);          base[9]= (V749);
3194          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3195          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3196          vs_top=sup;          vs_top=sup;
3197          V750= vs_base[0];          V754= vs_base[0];
3198          if(((V748))==Cnil){          if(((V752))==Cnil){
3199          goto T1329;}          goto T1329;}
3200          vs_base=vs_top;          vs_base=vs_top;
3201          {object _funobj = (V748);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V752);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3202                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3203                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3204                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3205          vs_top=sup;          vs_top=sup;
3206          V751= vs_base[0];          V755= vs_base[0];
3207          goto T1327;          goto T1327;
3208          goto T1329;          goto T1329;
3209  T1329:;  T1329:;
3210          V751= (VV[61]->s.s_dbind);          V755= (VV[61]->s.s_dbind);
3211          goto T1327;          goto T1327;
3212  T1327:;  T1327:;
3213          V749= make_cons(V750,V751);          V753= make_cons(V754,V755);
3214          if(((V743))!=Cnil){          if(((V746))!=Cnil){
3215          goto T1332;}          goto T1332;}
3216          V744= make_cons((V749),Cnil);          V747= make_cons((V753),Cnil);
3217          V743= (V744);          V746= (V747);
3218          goto T1317;          goto T1317;
3219          goto T1332;          goto T1332;
3220  T1332:;  T1332:;
3221          V753= make_cons((V749),Cnil);          V757= make_cons((V753),Cnil);
3222          ((V744))->c.c_cdr = /* INLINE-ARGS */V753;          ((V747))->c.c_cdr = /* INLINE-ARGS */V757;
3223          V752= (V744);          V756= (V747);
3224          V744= CMPcdr(V752);}}          V747= CMPcdr(V756);}}
3225          goto T1317;          goto T1317;
3226  T1317:;  T1317:;
3227          V745= CMPcdr((V745));          V748= CMPcdr((V748));
3228          V746= CMPcar((V745));          V749= CMPcar((V748));
3229          goto T1312;}          goto T1312;}
3230          goto T1308;          goto T1308;
3231  T1308:;  T1308:;
3232          V742= (V743);}          V745= (V746);}
3233          (void)((*(LnkLI194))(V742,V701,VV[31]));          V758 = V704;
3234          if((V714)==Cnil){          V759 = VV[31];
3235            (void)((*(LnkLI194))(V745,V758,V759));
3236            if((V717)==Cnil){
3237          goto T1346;}          goto T1346;}
3238          {object V754;          {object V760;
3239          V754= CMPcar((V716));          V760= CMPcar((V719));
3240          {object V755;          {object V761;
3241          V755= ((V717))->v.v_self[3];          V761= ((V720))->v.v_self[3];
3242          if(!(type_of(V755)==t_fixnum)){          if(!(type_of(V761)==t_fixnum)){
3243          goto T1351;}          goto T1351;}
3244          V716= ((V719))->v.v_self[fix((V755))]= ((V754));          V719= ((V722))->v.v_self[fix((V761))]= ((V760));
3245          goto T1344;          goto T1344;
3246          goto T1351;          goto T1351;
3247  T1351:;  T1351:;
3248          base[8]= (V754);          base[8]= (V760);
3249          base[9]= (V701);          base[9]= (V704);
3250          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3251          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
3252          vs_top=sup;          vs_top=sup;
3253          V716= vs_base[0];          V719= vs_base[0];
3254          goto T1344;}}          goto T1344;}}
3255          goto T1346;          goto T1346;
3256  T1346:;  T1346:;
3257          {object V757;          {object V763;
3258          {object V758;          {object V764;
3259          V758= ((V717))->v.v_self[3];          V764= ((V720))->v.v_self[3];
3260          if(!(type_of(V758)==t_fixnum)){          if(!(type_of(V764)==t_fixnum)){
3261          goto T1360;}          goto T1360;}
3262          V758= ((V719))->v.v_self[fix((V758))];          V764= ((V722))->v.v_self[fix((V764))];
3263          goto T1358;          goto T1358;
3264          goto T1360;          goto T1360;
3265  T1360:;  T1360:;
3266          V758= VV[3];          V764= VV[3];
3267          goto T1358;          goto T1358;
3268  T1358:;  T1358:;
3269          if(!(((V758))==(VV[3]))){          if(!(((V764))==(VV[3]))){
3270          goto T1363;}          goto T1363;}
3271          base[8]= (V701);          base[8]= (V704);
3272          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3273          (void) (*Lnk238)(Lclptr238);          (void) (*Lnk238)(Lclptr238);
3274          vs_top=sup;          vs_top=sup;
3275          V757= vs_base[0];          V763= vs_base[0];
3276          goto T1355;          goto T1355;
3277          goto T1363;          goto T1363;
3278  T1363:;  T1363:;
3279          V757= (V758);}          V763= (V764);}
3280          goto T1355;          goto T1355;
3281  T1355:;  T1355:;
3282          if(((V757))==Cnil){          if(((V763))==Cnil){
3283          goto T1367;}          goto T1367;}
3284          V716= (V757);          V719= (V763);
3285          goto T1344;          goto T1344;
3286          goto T1367;          goto T1367;
3287  T1367:;  T1367:;
3288          {object V760;          {object V766;
3289          base[9]= (V701);          base[9]= (V704);
3290          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3291          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
3292          vs_top=sup;          vs_top=sup;
# Line 3288  T1367:; Line 3294  T1367:;
3294          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3295          (void) (*Lnk240)();          (void) (*Lnk240)();
3296          vs_top=sup;          vs_top=sup;
3297          V760= vs_base[0];          V766= vs_base[0];
3298          {object V761;          {object V767;
3299          V761= ((V717))->v.v_self[3];          V767= ((V720))->v.v_self[3];
3300          if(!(type_of(V761)==t_fixnum)){          if(!(type_of(V767)==t_fixnum)){
3301          goto T1374;}          goto T1374;}
3302          V716= ((V719))->v.v_self[fix((V761))]= ((V760));          V719= ((V722))->v.v_self[fix((V767))]= ((V766));
3303          goto T1344;          goto T1344;
3304          goto T1374;          goto T1374;
3305  T1374:;  T1374:;
3306          base[8]= (V760);          base[8]= (V766);
3307          base[9]= (V701);          base[9]= (V704);
3308          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
3309          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
3310          vs_top=sup;          vs_top=sup;
3311          V716= vs_base[0];}}}          V719= vs_base[0];}}}
3312          goto T1344;          goto T1344;
3313  T1344:;  T1344:;
3314          (void)((*(LnkLI241))((V701),(V707)));          (void)((*(LnkLI241))((V704),(V710)));
3315          (void)((*(LnkLI242))((V701),Cnil));          (void)((*(LnkLI242))((V704),Cnil));
3316          (void)((*(LnkLI243))((V701),(V716)));          (void)((*(LnkLI243))((V704),(V719)));
3317          {object V763 = (*(LnkLI244))((V701),(V710));          {object V769 = (*(LnkLI244))((V704),(V713));
3318          VMR44(V763)}}}}          VMR44(V769)}}}}
3319          base[0]=base[0];          base[0]=base[0];
3320          return Cnil;          return Cnil;
3321  }  }
# Line 3319  static void L48() Line 3325  static void L48()
3325  {register object *base=vs_base;  {register object *base=vs_base;
3326          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3327          vs_check;          vs_check;
3328          {object V764;          {object V770;
3329          object V765;          object V771;
3330          register object V766;          register object V772;
3331          object V767;          object V773;
3332          object V768;          object V774;
3333          check_arg(5);          check_arg(5);
3334          V764=(base[0]);          V770=(base[0]);
3335          V765=(base[1]);          V771=(base[1]);
3336          V766=(base[2]);          V772=(base[2]);
3337          V767=(base[3]);          V773=(base[3]);
3338          V768=(base[4]);          V774=(base[4]);
3339          vs_top=sup;          vs_top=sup;
3340          goto TTL;          goto TTL;
3341  TTL:;  TTL:;
3342          {object V770;          {object V776;
3343          V770= (*(LnkLI245))(VV[50],V768);          V776= (*(LnkLI245))(VV[50],V774);
3344          {object V771;          {object V777;
3345          object V772;          object V778;
3346          V771= CMPcar((V764));          V777= CMPcar((V770));
3347          V772= CMPcdr((V764));          V778= CMPcdr((V770));
3348          {object V773;          {object V779;
3349          if(type_of(V766)==t_structure){          if(type_of(V772)==t_structure){
3350          goto T1392;}          goto T1392;}
3351          goto T1390;          goto T1390;
3352          goto T1392;          goto T1392;
3353  T1392:;  T1392:;
3354          if(!(((V766)->str.str_def)==(VV[62]))){          if(!(((V772)->str.str_def)==(VV[62]))){
3355          goto T1390;}          goto T1390;}
3356          V773= STREF(object,(V766),4);          V779= STREF(object,(V772),4);
3357          goto T1388;          goto T1388;
3358          goto T1390;          goto T1390;
3359  T1390:;{object V775;  T1390:;{object V781;
3360          V775= (VV[2]->s.s_dbind);          V781= (VV[2]->s.s_dbind);
3361          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
3362          base[7]= (V766);          base[7]= (V772);
3363          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3364          (void) (*Lnk177)();          (void) (*Lnk177)();
3365          vs_top=sup;          vs_top=sup;
3366          V776= vs_base[0];          V782= vs_base[0];
3367          if(!((V775)==(CMPcar(V776)))){          if(!((V781)==(CMPcar(V782)))){
3368          goto T1395;}}          goto T1395;}}
3369          V773= CMPcar(((V766))->cc.cc_turbo[12]);          V779= CMPcar(((V772))->cc.cc_turbo[12]);
3370          goto T1388;          goto T1388;
3371          goto T1395;          goto T1395;
3372  T1395:;  T1395:;
3373          V773= Cnil;          V779= Cnil;
3374          goto T1388;          goto T1388;
3375  T1388:;  T1388:;
3376          {object V777;          {object V783;
3377          V777= list(2,VV[63],(V766));          V783= list(2,VV[63],(V772));
3378          {object V778;          {object V784;
3379          V778= ((V771))->v.v_self[1];          V784= ((V777))->v.v_self[1];
3380          if(!(type_of(V778)==t_fixnum)){          if(!(type_of(V784)==t_fixnum)){
3381          goto T1405;}          goto T1405;}
3382          (void)(((V773))->v.v_self[fix((V778))]= ((V777)));          (void)(((V779))->v.v_self[fix((V784))]= ((V783)));
3383          goto T1401;          goto T1401;
3384          goto T1405;          goto T1405;
3385  T1405:;  T1405:;
3386          base[6]= (V777);          base[6]= (V783);
3387          base[7]= (V766);          base[7]= (V772);
3388          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3389          (void) (*Lnk214)(Lclptr214);          (void) (*Lnk214)(Lclptr214);
3390          vs_top=sup;}}          vs_top=sup;}}
3391          goto T1401;          goto T1401;
3392  T1401:;  T1401:;
3393          {object V780;          {object V786;
3394          base[6]= VV[64];          base[6]= VV[64];
3395          base[7]= VV[65];          base[7]= VV[65];
3396          base[8]= (V766);          base[8]= (V772);
3397          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3398          (void) (*Lnk246)();          (void) (*Lnk246)();
3399          vs_top=sup;          vs_top=sup;
3400          V780= vs_base[0];          V786= vs_base[0];
3401          {object V781;          {object V787;
3402          V781= ((V771))->v.v_self[2];          V787= ((V777))->v.v_self[2];
3403          if(!(type_of(V781)==t_fixnum)){          if(!(type_of(V787)==t_fixnum)){
3404          goto T1415;}          goto T1415;}
3405          base[6]= ((V773))->v.v_self[fix((V781))]= ((V780));          base[6]= ((V779))->v.v_self[fix((V787))]= ((V786));
3406          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3407          return;          return;
3408          goto T1415;          goto T1415;
3409  T1415:;  T1415:;
3410          base[6]= (V780);          base[6]= (V786);
3411          base[7]= (V766);          base[7]= (V772);
3412          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3413          (void) (*Lnk247)(Lclptr247);          (void) (*Lnk247)(Lclptr247);
3414          return;}}}}}          return;}}}}}
# Line 3410  T1415:; Line 3416  T1415:;
3416  }  }
3417  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))       */  /*      local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))       */
3418    
3419  static object LI49(V787,V788,V789,V790)  static object LI49(V793,V794,V795,V796)
3420    
3421  object V787;object V788;register object V789;object V790;  object V793;object V794;register object V795;object V796;
3422  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3423          goto TTL;          goto TTL;
3424  TTL:;  TTL:;
3425          base[0]= (V789);          V798 = (V795);
3426            base[0]= (V795);
3427          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3428          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk249)(Lclptr249);
3429          vs_top=sup;          vs_top=sup;
3430          V792= vs_base[0];          V799= vs_base[0];
3431          (void)((*(LnkLI248))((V789),V792));          (void)((*(LnkLI248))(V798,V799));
3432          base[0]= (V789);          V800 = (V795);
3433            base[0]= (V795);
3434          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3435          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk251)(Lclptr251);
3436          vs_top=sup;          vs_top=sup;
3437          V793= vs_base[0];          V801= vs_base[0];
3438          {object V794 = (*(LnkLI250))((V789),V793);          {object V802 = (*(LnkLI250))(V800,V801);
3439          VMR46(V794)}          VMR46(V802)}
3440          base[0]=base[0];          base[0]=base[0];
3441          return Cnil;          return Cnil;
3442  }  }
# Line 3438  static void L50() Line 3446  static void L50()
3446  {register object *base=vs_base;  {register object *base=vs_base;
3447          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
3448          vs_check;          vs_check;
3449          {object V795;          {object V803;
3450          object V796;          object V804;
3451          object V797;          object V805;
3452          check_arg(4);          check_arg(4);
3453          V795=(base[0]);          V803=(base[0]);
3454          V796=(base[1]);          V804=(base[1]);
3455          base[2]=MMcons(base[2],Cnil);          base[2]=MMcons(base[2],Cnil);
3456          V797=(base[3]);          V805=(base[3]);
3457          vs_top=sup;          vs_top=sup;
3458          base[4]=MMcons(V797,base[2]);          base[4]=MMcons(V805,base[2]);
3459          base[5]= (base[2]->c.c_car);          base[5]= (base[2]->c.c_car);
3460          base[6]=          base[6]=
3461          make_cclosure_new(LC130,Cnil,base[4],Cdata);          make_cclosure_new(LC130,Cnil,base[4],Cdata);
# Line 3458  static void L50() Line 3466  static void L50()
3466  }  }
3467  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))     */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))     */
3468    
3469  static object LI51(V804,V805,V806,V807,V808)  static object LI51(V812,V813,V814,V815,V816)
3470    
3471  object V804;object V805;register object V806;object V807;object V808;  object V812;object V813;register object V814;object V815;object V816;
3472  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3473          goto TTL;          goto TTL;
3474  TTL:;  TTL:;
3475          {object V810;          {object V818;
3476          object V812;          object V820;
3477          object V813;          object V821;
3478          register object V815;          register object V823;
3479          object V816;          object V824;
3480          object V817;          object V825;
3481          object V819;          object V827;
3482          V810= (*(LnkLI193))(VV[46],V808);          V818= (*(LnkLI193))(VV[46],V816);
3483          if(!(type_of((V810))==t_cons)){          if(!(type_of((V818))==t_cons)){
3484          goto T1437;}          goto T1437;}
3485          V812= CMPcar((V810));          V820= CMPcar((V818));
3486          goto T1435;          goto T1435;
3487          goto T1437;          goto T1437;
3488  T1437:;  T1437:;
3489          V812= Cnil;          V820= Cnil;
3490          goto T1435;          goto T1435;
3491  T1435:;  T1435:;
3492          V813= (*(LnkLI193))(VV[47],V808);          V821= (*(LnkLI193))(VV[47],V816);
3493          if(!(type_of((V813))==t_cons)){          if(!(type_of((V821))==t_cons)){
3494          goto T1442;}          goto T1442;}
3495          V815= CMPcar((V813));          V823= CMPcar((V821));
3496          goto T1440;          goto T1440;
3497          goto T1442;          goto T1442;
3498  T1442:;  T1442:;
3499          V815= Cnil;          V823= Cnil;
3500          goto T1440;          goto T1440;
3501  T1440:;  T1440:;
3502          V816= (*(LnkLI245))(VV[55],V808);          V824= (*(LnkLI245))(VV[55],V816);
3503          V817= (*(LnkLI193))(VV[56],V808);          V825= (*(LnkLI193))(VV[56],V816);
3504          if(!(type_of((V817))==t_cons)){          if(!(type_of((V825))==t_cons)){
3505          goto T1448;}          goto T1448;}
3506          V819= CMPcar((V817));          V827= CMPcar((V825));
3507          goto T1446;          goto T1446;
3508          goto T1448;          goto T1448;
3509  T1448:;  T1448:;
3510          V819= Cnil;          V827= Cnil;
3511          goto T1446;          goto T1446;
3512  T1446:;  T1446:;
3513          {register object V820;          {register object V828;
3514          object V821;          object V829;
3515          V820= CMPcar((V804));          V828= CMPcar((V812));
3516          V821= CMPcdr((V804));          V829= CMPcdr((V812));
3517          {register object V822;          {register object V830;
3518          if(type_of(V806)==t_structure){          if(type_of(V814)==t_structure){
3519          goto T1458;}          goto T1458;}
3520          goto T1456;          goto T1456;
3521          goto T1458;          goto T1458;
3522  T1458:;  T1458:;
3523          if(!(((V806)->str.str_def)==(VV[66]))){          if(!(((V814)->str.str_def)==(VV[66]))){
3524          goto T1456;}          goto T1456;}
3525          V822= STREF(object,(V806),4);          V830= STREF(object,(V814),4);
3526          goto T1454;          goto T1454;
3527          goto T1456;          goto T1456;
3528  T1456:;{object V824;  T1456:;{object V832;
3529          V824= (VV[2]->s.s_dbind);          V832= (VV[2]->s.s_dbind);
3530          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
3531          base[8]= (V806);          base[8]= (V814);
3532          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3533          (void) (*Lnk177)();          (void) (*Lnk177)();
3534          vs_top=sup;          vs_top=sup;
3535          V825= vs_base[0];          V833= vs_base[0];
3536          if(!((V824)==(CMPcar(V825)))){          if(!((V832)==(CMPcar(V833)))){
3537          goto T1461;}}          goto T1461;}}
3538          V822= CMPcar(((V806))->cc.cc_turbo[12]);          V830= CMPcar(((V814))->cc.cc_turbo[12]);
3539          goto T1454;          goto T1454;
3540          goto T1461;          goto T1461;
3541  T1461:;  T1461:;
3542          V822= Cnil;          V830= Cnil;
3543          goto T1454;          goto T1454;
3544  T1454:;  T1454:;
3545          if((V810)==Cnil){          if((V818)==Cnil){
3546          goto T1469;}          goto T1469;}
3547          {object V826;          {object V834;
3548          if((V812)!=Cnil){          if((V820)!=Cnil){
3549          V826= (V812);          V834= (V820);
3550          goto T1471;}          goto T1471;}
3551          base[7]= (V806);          base[7]= (V814);
3552          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3553          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
3554          vs_top=sup;          vs_top=sup;
3555          V827= vs_base[0];          V835= vs_base[0];
3556          if((((V827)==(VV[67])?Ct:Cnil))==Cnil){          if((((V835)==(VV[67])?Ct:Cnil))==Cnil){
3557          goto T1473;}          goto T1473;}
3558          V812= Cnil;          V820= Cnil;
3559          goto T1472;          goto T1472;
3560          goto T1473;          goto T1473;
3561  T1473:;  T1473:;
3562          V812= make_cons((VV[68]->s.s_dbind),Cnil);          V820= make_cons((VV[68]->s.s_dbind),Cnil);
3563          goto T1472;          goto T1472;
3564  T1472:;  T1472:;
3565          V826= (V812);          V834= (V820);
3566          goto T1471;          goto T1471;
3567  T1471:;  T1471:;
3568          {object V828;          {object V836;
3569          V828= ((V820))->v.v_self[5];          V836= ((V828))->v.v_self[5];
3570          if(!(type_of(V828)==t_fixnum)){          if(!(type_of(V836)==t_fixnum)){
3571          goto T1479;}          goto T1479;}
3572          (void)(((V822))->v.v_self[fix((V828))]= ((V826)));          (void)(((V830))->v.v_self[fix((V836))]= ((V834)));
3573          goto T1467;          goto T1467;
3574          goto T1479;          goto T1479;
3575  T1479:;  T1479:;
3576          base[7]= (V826);          base[7]= (V834);
3577          base[8]= (V806);          base[8]= (V814);
3578          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3579          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
3580          vs_top=sup;          vs_top=sup;
3581          goto T1467;}}          goto T1467;}}
3582          goto T1469;          goto T1469;
3583  T1469:;  T1469:;
3584          {register object V830;          {register object V838;
3585          V830= ((V820))->v.v_self[5];          V838= ((V828))->v.v_self[5];
3586          if(!(type_of(V830)==t_fixnum)){          if(!(type_of(V838)==t_fixnum)){
3587          goto T1488;}          goto T1488;}
3588          V830= ((V822))->v.v_self[fix((V830))];          V838= ((V830))->v.v_self[fix((V838))];
3589          goto T1486;          goto T1486;
3590          goto T1488;          goto T1488;
3591  T1488:;  T1488:;
3592          V830= VV[3];          V838= VV[3];
3593          goto T1486;          goto T1486;
3594  T1486:;  T1486:;
3595          if(!(((V830))==(VV[3]))){          if(!(((V838))==(VV[3]))){
3596          goto T1491;}          goto T1491;}
3597          base[7]= (V806);          base[7]= (V814);
3598          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3599          (void) (*Lnk230)(Lclptr230);          (void) (*Lnk230)(Lclptr230);
3600          vs_top=sup;          vs_top=sup;
3601          V812= vs_base[0];          V820= vs_base[0];
3602          goto T1483;          goto T1483;
3603          goto T1491;          goto T1491;
3604  T1491:;  T1491:;
3605          V812= (V830);}          V820= (V838);}
3606          goto T1483;          goto T1483;
3607  T1483:;  T1483:;
3608          goto T1467;          goto T1467;
3609  T1467:;  T1467:;
3610          {register object V832;          {register object V840;
3611          object V833;          object V841;
3612          object V834;          object V842;
3613          base[10]= (V806);          base[10]= (V814);
3614          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
3615          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
3616          vs_top=sup;          vs_top=sup;
3617          V832= vs_base[0];          V840= vs_base[0];
3618          {register object V835;          {register object V843;
3619          V835= ((V820))->v.v_self[6];          V843= ((V828))->v.v_self[6];
3620          if(!(type_of(V835)==t_fixnum)){          if(!(type_of(V843)==t_fixnum)){
3621          goto T1502;}          goto T1502;}
3622          V835= ((V822))->v.v_self[fix((V835))];          V843= ((V830))->v.v_self[fix((V843))];
3623          goto T1500;          goto T1500;
3624          goto T1502;          goto T1502;
3625  T1502:;  T1502:;
3626          V835= VV[3];          V843= VV[3];
3627          goto T1500;          goto T1500;
3628  T1500:;  T1500:;
3629          if(!(((V835))==(VV[3]))){          if(!(((V843))==(VV[3]))){
3630          goto T1505;}          goto T1505;}
3631          base[10]= (V806);          base[10]= (V814);
3632          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
3633          (void) (*Lnk253)(Lclptr253);          (void) (*Lnk253)(Lclptr253);
3634          vs_top=sup;          vs_top=sup;
3635          V833= vs_base[0];          V841= vs_base[0];
3636          goto T1497;          goto T1497;
3637          goto T1505;          goto T1505;
3638  T1505:;  T1505:;
3639          V833= (V835);}          V841= (V843);}
3640          goto T1497;          goto T1497;
3641  T1497:;  T1497:;
3642          if((V833)!=Cnil){          if((V841)!=Cnil){
3643          V834= (V833);          V842= (V841);
3644          goto T1508;}          goto T1508;}
3645          V837= (*(LnkLI254))((V832));          V845= (*(LnkLI254))((V840));
3646          V834= ((/* INLINE-ARGS */V837)==Cnil?Ct:Cnil);          V842= ((/* INLINE-ARGS */V845)==Cnil?Ct:Cnil);
3647          goto T1508;          goto T1508;
3648  T1508:;  T1508:;
3649          if((V813)==Cnil){          if((V821)==Cnil){
3650          goto T1511;}          goto T1511;}
3651          {object V838;          {object V846;
3652          {object V839;          {object V847;
3653          object V840= (V815);          object V848= (V823);
3654          if(V840==Cnil){          if(V848==Cnil){
3655          V815= Cnil;          V823= Cnil;
3656          goto T1514;}          goto T1514;}
3657          base[10]=V839=MMcons(Cnil,Cnil);          base[10]=V847=MMcons(Cnil,Cnil);
3658          goto T1515;          goto T1515;
3659  T1515:;  T1515:;
3660          {object V841;          {object V849;
3661          V841= (V840->c.c_car);          V849= (V848->c.c_car);
3662          if(((V834))==Cnil){          if(((V842))==Cnil){
3663          goto T1517;}          goto T1517;}
3664          {object V842;          {object V850;
3665          object V843;          object V851;
3666          object V844;          object V852;
3667          base[14]= (V841);          base[14]= (V849);
3668          base[15]= VV[50];          base[15]= VV[50];
3669          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
3670          Lgetf();          Lgetf();
3671          vs_top=sup;          vs_top=sup;
3672          V842= vs_base[0];          V850= vs_base[0];
3673          base[14]= Cnil;          base[14]= Cnil;
3674          base[15]= VV[69];          base[15]= VV[69];
3675          base[16]= (V832);          base[16]= (V840);
3676          base[17]= (V842);          base[17]= (V850);
3677          vs_top=(vs_base=base+14)+4;          vs_top=(vs_base=base+14)+4;
3678          Lformat();          Lformat();
3679          vs_top=sup;          vs_top=sup;
3680          V843= vs_base[0];          V851= vs_base[0];
3681          base[14]= (V843);          base[14]= (V851);
3682          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
3683          Lintern();          Lintern();
3684          vs_top=sup;          vs_top=sup;
3685          V844= vs_base[0];          V852= vs_base[0];
3686          V841= listA(3,VV[70],(V844),(V841));}          V849= listA(3,VV[70],(V852),(V849));}
3687          goto T1517;          goto T1517;
3688  T1517:;  T1517:;
3689          base[11]= (V806);          base[11]= (V814);
3690          base[12]= (V841);          base[12]= (V849);
3691          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
3692          (void) (*Lnk231)();          (void) (*Lnk231)();
3693          vs_top=sup;          vs_top=sup;
3694          (V839->c.c_car)= vs_base[0];}          (V847->c.c_car)= vs_base[0];}
3695          if((V840=MMcdr(V840))==Cnil){          if((V848=MMcdr(V848))==Cnil){
3696          V815= base[10];          V823= base[10];
3697          goto T1514;}          goto T1514;}
3698          V839=MMcdr(V839)=MMcons(Cnil,Cnil);          V847=MMcdr(V847)=MMcons(Cnil,Cnil);
3699          goto T1515;}          goto T1515;}
3700          goto T1514;          goto T1514;
3701  T1514:;  T1514:;
3702          V838= (V815);          V846= (V823);
3703          {object V845;          {object V853;
3704          V845= ((V820))->v.v_self[4];          V853= ((V828))->v.v_self[4];
3705          if(!(type_of(V845)==t_fixnum)){          if(!(type_of(V853)==t_fixnum)){
3706          goto T1535;}          goto T1535;}
3707          (void)(((V822))->v.v_self[fix((V845))]= ((V838)));          (void)(((V830))->v.v_self[fix((V853))]= ((V846)));
3708          goto T1509;          goto T1509;
3709          goto T1535;          goto T1535;
3710  T1535:;  T1535:;
3711          base[10]= (V838);          base[10]= (V846);
3712          base[11]= (V806);          base[11]= (V814);
3713          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
3714          (void) (*Lnk232)(Lclptr232);          (void) (*Lnk232)(Lclptr232);
3715          vs_top=sup;          vs_top=sup;
3716          goto T1509;}}          goto T1509;}}
3717          goto T1511;          goto T1511;
3718  T1511:;  T1511:;
3719          {register object V847;          {register object V855;
3720          V847= ((V820))->v.v_self[4];          V855= ((V828))->v.v_self[4];
3721          if(!(type_of(V847)==t_fixnum)){          if(!(type_of(V855)==t_fixnum)){
3722          goto T1544;}          goto T1544;}
3723          V847= ((V822))->v.v_self[fix((V847))];          V855= ((V830))->v.v_self[fix((V855))];
3724          goto T1542;          goto T1542;
3725          goto T1544;          goto T1544;
3726  T1544:;  T1544:;
3727          V847= VV[3];          V855= VV[3];
3728          goto T1542;          goto T1542;
3729  T1542:;  T1542:;
3730          if(!(((V847))==(VV[3]))){          if(!(((V855))==(VV[3]))){
3731          goto T1547;}          goto T1547;}
3732          base[10]= (V806);          base[10]= (V814);
3733          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
3734          (void) (*Lnk233)(Lclptr233);          (void) (*Lnk233)(Lclptr233);
3735          vs_top=sup;          vs_top=sup;
3736          V815= vs_base[0];          V823= vs_base[0];
3737          goto T1539;          goto T1539;
3738          goto T1547;          goto T1547;
3739  T1547:;  T1547:;
3740          V815= (V847);}          V823= (V855);}
3741          goto T1539;          goto T1539;
3742  T1539:;  T1539:;
3743          goto T1509;          goto T1509;
3744  T1509:;  T1509:;
3745          if(((V834))==Cnil){          if(((V842))==Cnil){
3746          goto T1494;}          goto T1494;}
3747          {object V849;          {object V857;
3748          object V850;          object V858;
3749          object V851;          object V859;
3750          object V852;          object V860;
3751          object V853;          object V861;
3752          object V854;          object V862;
3753          object V855;          object V863;
3754          object V856;          object V864;
3755          object V857;          object V865;
3756          {register object V859;          {register object V867;
3757          V859= ((V820))->v.v_self[5];          V867= ((V828))->v.v_self[5];
3758          if(!(type_of(V859)==t_fixnum)){          if(!(type_of(V867)==t_fixnum)){
3759          goto T1558;}          goto T1558;}
3760          V859= ((V822))->v.v_self[fix((V859))];          V867= ((V830))->v.v_self[fix((V867))];
3761          goto T1556;          goto T1556;
3762          goto T1558;          goto T1558;
3763  T1558:;  T1558:;
3764          V859= VV[3];          V867= VV[3];
3765          goto T1556;          goto T1556;
3766  T1556:;  T1556:;
3767          if(!(((V859))==(VV[3]))){          if(!(((V867))==(VV[3]))){
3768          goto T1561;}          goto T1561;}
3769          base[19]= (V806);          base[19]= (V814);
3770          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3771          (void) (*Lnk230)(Lclptr230);          (void) (*Lnk230)(Lclptr230);
3772          vs_top=sup;          vs_top=sup;
3773          V858= vs_base[0];          V866= vs_base[0];
3774          goto T1553;          goto T1553;
3775          goto T1561;          goto T1561;
3776  T1561:;  T1561:;
3777          V858= (V859);}          V866= (V867);}
3778          goto T1553;          goto T1553;
3779  T1553:;  T1553:;
3780          V849= CMPcar(V858);          V857= CMPcar(V866);
3781          base[20]= Cnil;          base[20]= Cnil;
3782          base[21]= VV[71];          base[21]= VV[71];
3783          base[22]= (V832);          base[22]= (V840);
3784          vs_top=(vs_base=base+20)+3;          vs_top=(vs_base=base+20)+3;
3785          Lformat();          Lformat();
3786          vs_top=sup;          vs_top=sup;
# Line 3780  T1553:; Line 3788  T1553:;
3788          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3789          Lintern();          Lintern();
3790          vs_top=sup;          vs_top=sup;
3791          V850= vs_base[0];          V858= vs_base[0];
3792          base[20]= Cnil;          base[20]= Cnil;
3793          base[21]= VV[72];          base[21]= VV[72];
3794          base[22]= (V850);          base[22]= (V858);
3795          vs_top=(vs_base=base+20)+3;          vs_top=(vs_base=base+20)+3;
3796          Lformat();          Lformat();
3797          vs_top=sup;          vs_top=sup;
# Line 3791  T1553:; Line 3799  T1553:;
3799          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3800          Lintern();          Lintern();
3801          vs_top=sup;          vs_top=sup;
3802          V851= vs_base[0];          V859= vs_base[0];
3803          if(((V849))==Cnil){          if(((V857))==Cnil){
3804          goto T1577;}          goto T1577;}
3805          base[19]= (V849);          base[19]= (V857);
3806          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3807          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
3808          vs_top=sup;          vs_top=sup;
3809          V862= vs_base[0];          V870= vs_base[0];
3810          V863= list(2,VV[74],V862);          V871= list(2,VV[74],V870);
3811          V861= make_cons(/* INLINE-ARGS */V863,Cnil);          V869= make_cons(/* INLINE-ARGS */V871,Cnil);
3812          goto T1575;          goto T1575;
3813          goto T1577;          goto T1577;
3814  T1577:;  T1577:;
3815          V861= Cnil;          V869= Cnil;
3816          goto T1575;          goto T1575;
3817  T1575:;  T1575:;
3818          V864= list(2,VV[77],(V850));          V872= list(2,VV[77],(V858));
3819          V865= list(4,VV[75],VV[76],/* INLINE-ARGS */V864,list(3,VV[78],(V851),Cnil));          V873= list(4,VV[75],VV[76],/* INLINE-ARGS */V872,list(3,VV[78],(V859),Cnil));
3820          V866= append(V861,/* INLINE-ARGS */V865);          V874= append(V869,/* INLINE-ARGS */V873);
3821          V867= make_cons((V832),/* INLINE-ARGS */V866);          V875= make_cons((V840),/* INLINE-ARGS */V874);
3822          {object V869;          {object V877;
3823          object V870= (V815);          object V878= (V823);
3824          if(V870==Cnil){          if(V878==Cnil){
3825          V868= Cnil;          V876= Cnil;
3826          goto T1581;}          goto T1581;}
3827          base[19]=V869=MMcons(Cnil,Cnil);          base[19]=V877=MMcons(Cnil,Cnil);
3828          goto T1582;          goto T1582;
3829  T1582:;  T1582:;
3830          base[20]= (V870->c.c_car);          base[20]= (V878->c.c_car);
3831          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3832          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3833          vs_top=sup;          vs_top=sup;
3834          V872= vs_base[0];          V880= vs_base[0];
3835          (V869->c.c_car)= list(2,V872,VV[61]);          (V877->c.c_car)= list(2,V880,VV[61]);
3836          if((V870=MMcdr(V870))==Cnil){          if((V878=MMcdr(V878))==Cnil){
3837          V868= base[19];          V876= base[19];
3838          goto T1581;}          goto T1581;}
3839          V869=MMcdr(V869)=MMcons(Cnil,Cnil);          V877=MMcdr(V877)=MMcons(Cnil,Cnil);
3840          goto T1582;}          goto T1582;}
3841          goto T1581;          goto T1581;
3842  T1581:;  T1581:;
3843          V852= listA(3,VV[73],/* INLINE-ARGS */V867,V868);          V860= listA(3,VV[73],/* INLINE-ARGS */V875,V876);
3844          {object V873;          {object V881;
3845          object V874= (V815);          object V882= (V823);
3846          if(V874==Cnil){          if(V882==Cnil){
3847          V853= Cnil;          V861= Cnil;
3848          goto T1586;}          goto T1586;}
3849          base[19]=V873=MMcons(Cnil,Cnil);          base[19]=V881=MMcons(Cnil,Cnil);
3850          goto T1587;          goto T1587;
3851  T1587:;  T1587:;
3852          base[21]= Cnil;          base[21]= Cnil;
3853          base[22]= VV[79];          base[22]= VV[79];
3854          base[23]= (V850);          base[23]= (V858);
3855          base[25]= (V874->c.c_car);          base[25]= (V882->c.c_car);
3856          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
3857          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3858          vs_top=sup;          vs_top=sup;
# Line 3856  T1587:; Line 3864  T1587:;
3864          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3865          Lintern();          Lintern();
3866          vs_top=sup;          vs_top=sup;
3867          (V873->c.c_car)= vs_base[0];          (V881->c.c_car)= vs_base[0];
3868          if((V874=MMcdr(V874))==Cnil){          if((V882=MMcdr(V882))==Cnil){
3869          V853= base[19];          V861= base[19];
3870          goto T1586;}          goto T1586;}
3871          V873=MMcdr(V873)=MMcons(Cnil,Cnil);          V881=MMcdr(V881)=MMcons(Cnil,Cnil);
3872          goto T1587;}          goto T1587;}
3873          goto T1586;          goto T1586;
3874  T1586:;  T1586:;
3875          {object V876;          {object V884;
3876          object V877= (V815);          object V885= (V823);
3877          if(V877==Cnil){          if(V885==Cnil){
3878          V854= Cnil;          V862= Cnil;
3879          goto T1595;}          goto T1595;}
3880          base[19]=V876=MMcons(Cnil,Cnil);          base[19]=V884=MMcons(Cnil,Cnil);
3881          goto T1596;          goto T1596;
3882  T1596:;  T1596:;
3883          base[21]= Cnil;          base[21]= Cnil;
3884          base[22]= VV[80];          base[22]= VV[80];
3885          base[23]= (V850);          base[23]= (V858);
3886          base[25]= (V877->c.c_car);          base[25]= (V885->c.c_car);
3887          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
3888          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3889          vs_top=sup;          vs_top=sup;
# Line 3887  T1596:; Line 3895  T1596:;
3895          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3896          Lintern();          Lintern();
3897          vs_top=sup;          vs_top=sup;
3898          (V876->c.c_car)= vs_base[0];          (V884->c.c_car)= vs_base[0];
3899          if((V877=MMcdr(V877))==Cnil){          if((V885=MMcdr(V885))==Cnil){
3900          V854= base[19];          V862= base[19];
3901          goto T1595;}          goto T1595;}
3902          V876=MMcdr(V876)=MMcons(Cnil,Cnil);          V884=MMcdr(V884)=MMcons(Cnil,Cnil);
3903          goto T1596;}          goto T1596;}
3904          goto T1595;          goto T1595;
3905  T1595:;  T1595:;
3906          {object V879;          {object V887;
3907          object V880= (V815);          object V888= (V823);
3908          object V881= (V853);          object V889= (V861);
3909          if(V880==Cnil||V881==Cnil){          if(V888==Cnil||V889==Cnil){
3910          V855= Cnil;          V863= Cnil;
3911          goto T1604;}          goto T1604;}
3912          base[19]=V879=MMcons(Cnil,Cnil);          base[19]=V887=MMcons(Cnil,Cnil);
3913          goto T1605;          goto T1605;
3914  T1605:;  T1605:;
3915          {object V884;          {object V892;
3916          base[20]= (V880->c.c_car);          base[20]= (V888->c.c_car);
3917          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3918          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk255)(Lclptr255);
3919          vs_top=sup;          vs_top=sup;
3920          V884= vs_base[0];          V892= vs_base[0];
3921          V885= list(2,VV[83],list(3,VV[84],(V832),VV[85]));          V893= list(2,VV[83],list(3,VV[84],(V840),VV[85]));
3922          (V879->c.c_car)= list(5,VV[81],(V881->c.c_car),VV[82],/* INLINE-ARGS */V885,list(2,(V884),VV[85]));}          (V887->c.c_car)= list(5,VV[81],(V889->c.c_car),VV[82],/* INLINE-ARGS */V893,list(2,(V892),VV[85]));}
3923          if((V880=MMcdr(V880))==Cnil||(V881=MMcdr(V881))==Cnil){          if((V888=MMcdr(V888))==Cnil||(V889=MMcdr(V889))==Cnil){
3924          V855= base[19];          V863= base[19];
3925          goto T1604;}          goto T1604;}
3926          V879=MMcdr(V879)=MMcons(Cnil,Cnil);          V887=MMcdr(V887)=MMcons(Cnil,Cnil);
3927          goto T1605;}          goto T1605;}
3928          goto T1604;          goto T1604;
3929  T1604:;  T1604:;
3930          {object V886;          {object V894;
3931          object V887= (V815);          object V895= (V823);
3932          object V888= (V854);          object V896= (V862);
3933          if(V887==Cnil||V888==Cnil){          if(V895==Cnil||V896==Cnil){
3934          V856= Cnil;          V864= Cnil;
3935          goto T1609;}          goto T1609;}
3936          base[19]=V886=MMcons(Cnil,Cnil);          base[19]=V894=MMcons(Cnil,Cnil);
3937          goto T1610;          goto T1610;
3938  T1610:;  T1610:;
3939          {object V891;          {object V899;
3940          base[20]= (V887->c.c_car);          base[20]= (V895->c.c_car);
3941          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3942          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk255)(Lclptr255);
3943          vs_top=sup;          vs_top=sup;
3944          V891= vs_base[0];          V899= vs_base[0];
3945          V892= list(2,VV[83],list(3,VV[84],(V832),VV[85]));          V900= list(2,VV[83],list(3,VV[84],(V840),VV[85]));
3946          (V886->c.c_car)= list(5,VV[81],(V888->c.c_car),VV[86],/* INLINE-ARGS */V892,list(3,VV[87],list(2,(V891),VV[85]),VV[88]));}          (V894->c.c_car)= list(5,VV[81],(V896->c.c_car),VV[86],/* INLINE-ARGS */V900,list(3,VV[87],list(2,(V899),VV[85]),VV[88]));}
3947          if((V887=MMcdr(V887))==Cnil||(V888=MMcdr(V888))==Cnil){          if((V895=MMcdr(V895))==Cnil||(V896=MMcdr(V896))==Cnil){
3948          V856= base[19];          V864= base[19];
3949          goto T1609;}          goto T1609;}
3950          V886=MMcdr(V886)=MMcons(Cnil,Cnil);          V894=MMcdr(V894)=MMcons(Cnil,Cnil);
3951          goto T1610;}          goto T1610;}
3952          goto T1609;          goto T1609;
3953  T1609:;  T1609:;
3954          base[19]= (V855);          V901 = (V860);
3955          base[20]= (V856);          base[19]= (V863);
3956          V894= listA(3,VV[90],list(2,VV[91],(V832)),VV[92]);          base[20]= (V864);
3957          base[21]= make_cons(/* INLINE-ARGS */V894,Cnil);          V903= listA(3,VV[90],list(2,VV[91],(V840)),VV[92]);
3958            base[21]= make_cons(/* INLINE-ARGS */V903,Cnil);
3959          vs_top=(vs_base=base+19)+3;          vs_top=(vs_base=base+19)+3;
3960          Lappend();          Lappend();
3961          vs_top=sup;          vs_top=sup;
3962          V893= vs_base[0];          V902= vs_base[0];
3963          V857= listA(3,VV[89],(V852),V893);          V865= listA(3,VV[89],V901,V902);
3964          if(((*(LnkLI254))((V832)))!=Cnil){          if(((*(LnkLI254))((V840)))!=Cnil){
3965          goto T1619;}          goto T1619;}
3966          base[19]= (V857);          base[19]= (V865);
3967          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
3968          Leval();          Leval();
3969          vs_top=sup;          vs_top=sup;
3970          goto T1619;          goto T1619;
3971  T1619:;  T1619:;
3972          {          {
3973          object V895= (V815);          object V904= (V823);
3974          object V896= (V853);          object V905= (V861);
3975          object V897= (V854);          object V906= (V862);
3976          if(V895==Cnil||V896==Cnil||V897==Cnil){          if(V904==Cnil||V905==Cnil||V906==Cnil){
3977          goto T1623;}          goto T1623;}
3978          goto T1624;          goto T1624;
3979  T1624:;  T1624:;
3980          {object V901;          {object V910;
3981          object V902;          object V911;
3982          V901= (*(LnkLI183))((V896->c.c_car));          V910= (*(LnkLI183))((V905->c.c_car));
3983          if(((*(LnkLI256))((V897->c.c_car)))==Cnil){          if(((*(LnkLI256))((V906->c.c_car)))==Cnil){
3984          goto T1629;}          goto T1629;}
3985          V902= (*(LnkLI183))((V897->c.c_car));          V911= (*(LnkLI183))((V906->c.c_car));
3986          goto T1627;          goto T1627;
3987          goto T1629;          goto T1629;
3988  T1629:;  T1629:;
3989          V902= Cnil;          V911= Cnil;
3990          goto T1627;          goto T1627;
3991  T1627:;  T1627:;
3992          base[21]= (V901);          base[21]= (V910);
3993          base[22]= (V895->c.c_car);          base[22]= (V904->c.c_car);
3994          vs_top=(vs_base=base+21)+2;          vs_top=(vs_base=base+21)+2;
3995          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk257)(Lclptr257);
3996          vs_top=sup;          vs_top=sup;
3997          base[21]= (V902);          base[21]= (V911);
3998          base[22]= (V895->c.c_car);          base[22]= (V904->c.c_car);
3999          vs_top=(vs_base=base+21)+2;          vs_top=(vs_base=base+21)+2;
4000          (void) (*Lnk258)(Lclptr258);          (void) (*Lnk258)(Lclptr258);
4001          vs_top=sup;}          vs_top=sup;}
4002          if((V895=MMcdr(V895))==Cnil||(V896=MMcdr(V896))==Cnil||(V897=MMcdr(V897))==Cnil){          if((V904=MMcdr(V904))==Cnil||(V905=MMcdr(V905))==Cnil||(V906=MMcdr(V906))==Cnil){
4003          goto T1623;}          goto T1623;}
4004          goto T1624;}          goto T1624;}
4005          goto T1623;          goto T1623;
4006  T1623:;  T1623:;
4007          {object V904;          {object V913;
4008          V904= ((V820))->v.v_self[3];          V913= ((V828))->v.v_self[3];
4009          if(!(type_of(V904)==t_fixnum)){          if(!(type_of(V913)==t_fixnum)){
4010          goto T1639;}          goto T1639;}
4011          (void)(((V822))->v.v_self[fix((V904))]= (V857));          (void)(((V830))->v.v_self[fix((V913))]= (V865));
4012          goto T1636;          goto T1636;
4013          goto T1639;          goto T1639;
4014  T1639:;  T1639:;
4015          base[19]= V857;          base[19]= V865;
4016          base[20]= (V806);          base[20]= (V814);
4017          vs_top=(vs_base=base+19)+2;          vs_top=(vs_base=base+19)+2;
4018          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
4019          vs_top=sup;}          vs_top=sup;}
4020          goto T1636;          goto T1636;
4021  T1636:;  T1636:;
4022          {object V907;          {object V916;
4023          V907= ((V820))->v.v_self[2];          V916= ((V828))->v.v_self[2];
4024          if(!(type_of(V907)==t_fixnum)){          if(!(type_of(V916)==t_fixnum)){
4025          goto T1645;}          goto T1645;}
4026          (void)(((V822))->v.v_self[fix((V907))]= (V851));          (void)(((V830))->v.v_self[fix((V916))]= (V859));
4027          goto T1494;          goto T1494;
4028          goto T1645;          goto T1645;
4029  T1645:;  T1645:;
4030          base[19]= V851;          base[19]= V859;
4031          base[20]= (V806);          base[20]= (V814);
4032          vs_top=(vs_base=base+19)+2;          vs_top=(vs_base=base+19)+2;
4033          (void) (*Lnk260)(Lclptr260);          (void) (*Lnk260)(Lclptr260);
4034          vs_top=sup;}}}          vs_top=sup;}}}
4035          goto T1494;          goto T1494;
4036  T1494:;  T1494:;
4037          (void)((*(LnkLI241))((V806),(V812)));          (void)((*(LnkLI241))((V814),(V820)));
4038          {object V909;          {object V918;
4039          base[7]= (V806);          base[7]= (V814);
4040          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4041          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
4042          vs_top=sup;          vs_top=sup;
4043          V909= vs_base[0];          V918= vs_base[0];
4044          {object V910;          {object V919;
4045          V910= ((V820))->v.v_self[1];          V919= ((V828))->v.v_self[1];
4046          if(!(type_of(V910)==t_fixnum)){          if(!(type_of(V919)==t_fixnum)){
4047          goto T1655;}          goto T1655;}
4048          (void)(((V822))->v.v_self[fix((V910))]= ((V909)));          (void)(((V830))->v.v_self[fix((V919))]= ((V918)));
4049          goto T1650;          goto T1650;
4050          goto T1655;          goto T1655;
4051  T1655:;  T1655:;
4052          base[7]= (V909);          base[7]= (V918);
4053          base[8]= (V806);          base[8]= (V814);
4054          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4055          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk98)(Lclptr98);
4056          vs_top=sup;}}          vs_top=sup;}}
4057          goto T1650;          goto T1650;
4058  T1650:;  T1650:;
4059          {object V912;          {object V921;
4060          base[7]= (V806);          base[7]= (V814);
4061          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4062          (void) (*Lnk262)(Lclptr262);          (void) (*Lnk262)(Lclptr262);
4063          vs_top=sup;          vs_top=sup;
4064          V912= vs_base[0];          V921= vs_base[0];
4065          {object V913;          {object V922;
4066          V913= ((V820))->v.v_self[8];          V922= ((V828))->v.v_self[8];
4067          if(!(type_of(V913)==t_fixnum)){          if(!(type_of(V922)==t_fixnum)){
4068          goto T1664;}          goto T1664;}
4069          (void)(((V822))->v.v_self[fix((V913))]= ((V912)));          (void)(((V830))->v.v_self[fix((V922))]= ((V921)));
4070          goto T1659;          goto T1659;
4071          goto T1664;          goto T1664;
4072  T1664:;  T1664:;
4073          base[7]= (V912);          base[7]= (V921);
4074          base[8]= (V806);          base[8]= (V814);
4075          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4076          (void) (*Lnk102)(Lclptr102);          (void) (*Lnk102)(Lclptr102);
4077          vs_top=sup;}}          vs_top=sup;}}
4078          goto T1659;          goto T1659;
4079  T1659:;  T1659:;
4080          {register object V915;          {register object V924;
4081          V915= ((V820))->v.v_self[9];          V924= ((V828))->v.v_self[9];
4082          if(!(type_of(V915)==t_fixnum)){          if(!(type_of(V924)==t_fixnum)){
4083          goto T1675;}          goto T1675;}
4084          V915= ((V822))->v.v_self[fix((V915))];          V924= ((V830))->v.v_self[fix((V924))];
4085          goto T1673;          goto T1673;
4086          goto T1675;          goto T1675;
4087  T1675:;  T1675:;
4088          V915= VV[3];          V924= VV[3];
4089          goto T1673;          goto T1673;
4090  T1673:;  T1673:;
4091          if(!(((V915))==(VV[3]))){          if(!(((V924))==(VV[3]))){
4092          goto T1678;}          goto T1678;}
4093          base[7]= (V806);          base[7]= (V814);
4094          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4095          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
4096          vs_top=sup;          vs_top=sup;
# Line 4090  T1673:; Line 4099  T1673:;
4099          goto T1670;          goto T1670;
4100          goto T1678;          goto T1678;
4101  T1678:;  T1678:;
4102          if(((V915))!=Cnil){          if(((V924))!=Cnil){
4103          goto T1668;}}          goto T1668;}}
4104          goto T1670;          goto T1670;
4105  T1670:;  T1670:;
4106          {object V917;          {object V926;
4107          V917= (VFUN_NARGS=2,(*(LnkLI263))(small_fixnum(0),(V806)));          V926= (VFUN_NARGS=2,(*(LnkLI263))(small_fixnum(0),(V814)));
4108          {object V918;          {object V927;
4109          V918= ((V820))->v.v_self[9];          V927= ((V828))->v.v_self[9];
4110          if(!(type_of(V918)==t_fixnum)){          if(!(type_of(V927)==t_fixnum)){
4111          goto T1684;}          goto T1684;}
4112          (void)(((V822))->v.v_self[fix((V918))]= ((V917)));          (void)(((V830))->v.v_self[fix((V927))]= ((V926)));
4113          goto T1668;          goto T1668;
4114          goto T1684;          goto T1684;
4115  T1684:;  T1684:;
4116          base[7]= (V917);          base[7]= (V926);
4117          base[8]= (V806);          base[8]= (V814);
4118          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4119          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
4120          vs_top=sup;}}          vs_top=sup;}}
4121          goto T1668;          goto T1668;
4122  T1668:;  T1668:;
4123          (void)((*(LnkLI264))((V806)));          (void)((*(LnkLI264))((V814)));
4124          if((V817)==Cnil){          if((V825)==Cnil){
4125          goto T1692;}          goto T1692;}
4126          {object V920;          {object V929;
4127          V920= CMPcar((V819));          V929= CMPcar((V827));
4128          {object V921;          {object V930;
4129          V921= ((V820))->v.v_self[7];          V930= ((V828))->v.v_self[7];
4130          if(!(type_of(V921)==t_fixnum)){          if(!(type_of(V930)==t_fixnum)){
4131          goto T1697;}          goto T1697;}
4132          V819= ((V822))->v.v_self[fix((V921))]= ((V920));          V827= ((V830))->v.v_self[fix((V930))]= ((V929));
4133          goto T1690;          goto T1690;
4134          goto T1697;          goto T1697;
4135  T1697:;  T1697:;
4136          base[7]= (V920);          base[7]= (V929);
4137          base[8]= (V806);          base[8]= (V814);
4138          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4139          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
4140          vs_top=sup;          vs_top=sup;
4141          V819= vs_base[0];          V827= vs_base[0];
4142          goto T1690;}}          goto T1690;}}
4143          goto T1692;          goto T1692;
4144  T1692:;  T1692:;
4145          {object V923;          {object V932;
4146          {register object V924;          {register object V933;
4147          V924= ((V820))->v.v_self[7];          V933= ((V828))->v.v_self[7];
4148          if(!(type_of(V924)==t_fixnum)){          if(!(type_of(V933)==t_fixnum)){
4149          goto T1706;}          goto T1706;}
4150          V924= ((V822))->v.v_self[fix((V924))];          V933= ((V830))->v.v_self[fix((V933))];
4151          goto T1704;          goto T1704;
4152          goto T1706;          goto T1706;
4153  T1706:;  T1706:;
4154          V924= VV[3];          V933= VV[3];
4155          goto T1704;          goto T1704;
4156  T1704:;  T1704:;
4157          if(!(((V924))==(VV[3]))){          if(!(((V933))==(VV[3]))){
4158          goto T1709;}          goto T1709;}
4159          base[7]= (V806);          base[7]= (V814);
4160          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4161          (void) (*Lnk238)(Lclptr238);          (void) (*Lnk238)(Lclptr238);
4162          vs_top=sup;          vs_top=sup;
4163          V923= vs_base[0];          V932= vs_base[0];
4164          goto T1701;          goto T1701;
4165          goto T1709;          goto T1709;
4166  T1709:;  T1709:;
4167          V923= (V924);}          V932= (V933);}
4168          goto T1701;          goto T1701;
4169  T1701:;  T1701:;
4170          if(((V923))==Cnil){          if(((V932))==Cnil){
4171          goto T1713;}          goto T1713;}
4172          V819= (V923);          V827= (V932);
4173          goto T1690;          goto T1690;
4174          goto T1713;          goto T1713;
4175  T1713:;  T1713:;
4176          {object V926;          {object V935;
4177          base[8]= (V806);          base[8]= (V814);
4178          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
4179          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
4180          vs_top=sup;          vs_top=sup;
# Line 4173  T1713:; Line 4182  T1713:;
4182          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4183          (void) (*Lnk240)();          (void) (*Lnk240)();
4184          vs_top=sup;          vs_top=sup;
4185          V926= vs_base[0];          V935= vs_base[0];
4186          {object V927;          {object V936;
4187          V927= ((V820))->v.v_self[7];          V936= ((V828))->v.v_self[7];
4188          if(!(type_of(V927)==t_fixnum)){          if(!(type_of(V936)==t_fixnum)){
4189          goto T1720;}          goto T1720;}
4190          V819= ((V822))->v.v_self[fix((V927))]= ((V926));          V827= ((V830))->v.v_self[fix((V936))]= ((V935));
4191          goto T1690;          goto T1690;
4192          goto T1720;          goto T1720;
4193  T1720:;  T1720:;
4194          base[7]= (V926);          base[7]= (V935);
4195          base[8]= (V806);          base[8]= (V814);
4196          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4197          (void) (*Lnk237)(Lclptr237);          (void) (*Lnk237)(Lclptr237);
4198          vs_top=sup;          vs_top=sup;
4199          V819= vs_base[0];}}}          V827= vs_base[0];}}}
4200          goto T1690;          goto T1690;
4201  T1690:;  T1690:;
4202          (void)((*(LnkLI243))((V806),(V819)));          (void)((*(LnkLI243))((V814),(V827)));
4203          {object V929 = (*(LnkLI244))((V806),(V815));          {object V938 = (*(LnkLI244))((V814),(V823));
4204          VMR48(V929)}}}}          VMR48(V938)}}}}
4205          base[0]=base[0];          base[0]=base[0];
4206          return Cnil;          return Cnil;
4207  }  }
4208  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */
4209    
4210  static object LI52(V934,V935,V936,V937)  static object LI52(V943,V944,V945,V946)
4211    
4212  object V934;object V935;object V936;object V937;  object V943;object V944;object V945;object V946;
4213  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4214          goto TTL;          goto TTL;
4215  TTL:;  TTL:;
4216          {object V939 = (VFUN_NARGS=1,(*(LnkLI219))(VV[93]));          {object V948 = (VFUN_NARGS=1,(*(LnkLI219))(VV[93]));
4217          VMR49(V939)}          VMR49(V948)}
4218          return Cnil;          return Cnil;
4219  }  }
4220  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))   */  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))   */
4221    
4222  static object LI53(V943,V944,V945)  static object LI53(V952,V953,V954)
4223    
4224  object V943;object V944;object V945;  object V952;object V953;object V954;
4225  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4226          goto TTL;          goto TTL;
4227  TTL:;  TTL:;
4228          {object V947 = Cnil;          {object V956 = Cnil;
4229          VMR50(V947)}          VMR50(V956)}
4230          return Cnil;          return Cnil;
4231  }  }
4232  /*      local entry for function ADD-SLOT-ACCESSORS     */  /*      local entry for function ADD-SLOT-ACCESSORS     */
4233    
4234  static object LI54(V950,V951)  static object LI54(V959,V960)
4235    
4236  object V950;object V951;  object V959;object V960;
4237  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4238          goto TTL;          goto TTL;
4239  TTL:;  TTL:;
4240          {object V952 = (*(LnkLI265))((V950),(V951),VV[94]);          {object V961 = (*(LnkLI265))((V959),(V960),VV[94]);
4241          VMR51(V952)}          VMR51(V961)}
4242          return Cnil;          return Cnil;
4243  }  }
4244  /*      local entry for function REMOVE-SLOT-ACCESSORS  */  /*      local entry for function REMOVE-SLOT-ACCESSORS  */
4245    
4246  static object LI55(V955,V956)  static object LI55(V964,V965)
4247    
4248  object V955;object V956;  object V964;object V965;
4249  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4250          goto TTL;          goto TTL;
4251  TTL:;  TTL:;
4252          {object V957 = (*(LnkLI265))((V955),(V956),VV[95]);          {object V966 = (*(LnkLI265))((V964),(V965),VV[95]);
4253          VMR52(V957)}          VMR52(V966)}
4254          return Cnil;          return Cnil;
4255  }  }
4256  /*      local entry for function FIX-SLOT-ACCESSORS     */  /*      local entry for function FIX-SLOT-ACCESSORS     */
4257    
4258  static object LI58(V961,V962,V963)  static object LI58(V970,V971,V972)
4259    
4260  object V961;object V962;object V963;  object V970;object V971;object V972;
4261  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
4262          goto TTL;          goto TTL;
4263  TTL:;  TTL:;
4264          base[0]= (V963);          base[0]= (V972);
4265          base[1]= (V961);          base[1]= (V970);
4266          {register object V964;          {register object V973;
4267          object V965;          object V974;
4268          V964= (V962);          V973= (V971);
4269          V965= CMPcar((V964));          V974= CMPcar((V973));
4270          goto T1734;          goto T1734;
4271  T1734:;  T1734:;
4272          if(!(((V964))==Cnil)){          if(!(((V973))==Cnil)){
4273          goto T1735;}          goto T1735;}
4274          {object V966 = Cnil;          {object V975 = Cnil;
4275          VMR53(V966)}          VMR53(V975)}
4276          goto T1735;          goto T1735;
4277  T1735:;  T1735:;
4278          {register object V967;          {register object V976;
4279          base[3]= (V965);          base[3]= (V974);
4280          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4281          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
4282          vs_top=sup;          vs_top=sup;
4283          V967= vs_base[0];          V976= vs_base[0];
4284          {register object V968;          {register object V977;
4285          register object V969;          register object V978;
4286          base[5]= (V965);          base[5]= (V974);
4287          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4288          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk266)(Lclptr266);
4289          vs_top=sup;          vs_top=sup;
4290          V968= vs_base[0];          V977= vs_base[0];
4291          V969= CMPcar((V968));          V978= CMPcar((V977));
4292          goto T1747;          goto T1747;
4293  T1747:;  T1747:;
4294          if(!(((V968))==Cnil)){          if(!(((V977))==Cnil)){
4295          goto T1748;}          goto T1748;}
4296          goto T1742;          goto T1742;
4297          goto T1748;          goto T1748;
4298  T1748:;  T1748:;
4299          base[5]= (V969);          base[5]= (V978);
4300          base[6]= (V967);          base[6]= (V976);
4301          base[7]= VV[96];          base[7]= VV[96];
4302          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
4303          L59(base);          L59(base);
4304          vs_top=sup;          vs_top=sup;
4305          V968= CMPcdr((V968));          V977= CMPcdr((V977));
4306          V969= CMPcar((V968));          V978= CMPcar((V977));
4307          goto T1747;}          goto T1747;}
4308          goto T1742;          goto T1742;
4309  T1742:;  T1742:;
4310          {register object V970;          {register object V979;
4311          register object V971;          register object V980;
4312          base[5]= (V965);          base[5]= (V974);
4313          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4314          (void) (*Lnk267)(Lclptr267);          (void) (*Lnk267)(Lclptr267);
4315          vs_top=sup;          vs_top=sup;
4316          V970= vs_base[0];          V979= vs_base[0];
4317          V971= CMPcar((V970));          V980= CMPcar((V979));
4318          goto T1765;          goto T1765;
4319  T1765:;  T1765:;
4320          if(!(((V970))==Cnil)){          if(!(((V979))==Cnil)){
4321          goto T1766;}          goto T1766;}
4322          goto T1739;          goto T1739;
4323          goto T1766;          goto T1766;
4324  T1766:;  T1766:;
4325          base[5]= (V971);          base[5]= (V980);
4326          base[6]= (V967);          base[6]= (V976);
4327          base[7]= VV[97];          base[7]= VV[97];
4328          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
4329          L59(base);          L59(base);
4330          vs_top=sup;          vs_top=sup;
4331          V970= CMPcdr((V970));          V979= CMPcdr((V979));
4332          V971= CMPcar((V970));          V980= CMPcar((V979));
4333          goto T1765;}}          goto T1765;}}
4334          goto T1739;          goto T1739;
4335  T1739:;  T1739:;
4336          V964= CMPcdr((V964));          V973= CMPcdr((V973));
4337          V965= CMPcar((V964));          V974= CMPcar((V973));
4338          goto T1734;}          goto T1734;}
4339          base[0]=base[0];          base[0]=base[0];
4340          return Cnil;          return Cnil;
4341  }  }
4342  /*      local entry for function ADD-DIRECT-SUBCLASSES  */  /*      local entry for function ADD-DIRECT-SUBCLASSES  */
4343    
4344  static object LI60(V974,V975)  static object LI60(V983,V984)
4345    
4346  register object V974;object V975;  register object V983;object V984;
4347  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
4348          goto TTL;          goto TTL;
4349  TTL:;  TTL:;
4350          {register object V976;          {register object V985;
4351          register object V977;          register object V986;
4352          V976= (V975);          V985= (V984);
4353          V977= CMPcar((V976));          V986= CMPcar((V985));
4354          goto T1787;          goto T1787;
4355  T1787:;  T1787:;
4356          if(!(((V976))==Cnil)){          if(!(((V985))==Cnil)){
4357          goto T1788;}          goto T1788;}
4358          {object V978 = Cnil;          {object V987 = Cnil;
4359          VMR54(V978)}          VMR54(V987)}
4360          goto T1788;          goto T1788;
4361  T1788:;  T1788:;
4362          base[1]= (V974);          V989 = (V983);
4363            base[1]= (V983);
4364          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4365          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk268)(Lclptr268);
4366          vs_top=sup;          vs_top=sup;
4367          V980= vs_base[0];          V990= vs_base[0];
4368          {register object x= (V974),V979= V980;          {register object x= V989,V988= V990;
4369          while(V979!=Cnil)          while(V988!=Cnil)
4370          if(x==(V979->c.c_car)){          if(x==(V988->c.c_car)){
4371          goto T1792;          goto T1792;
4372          }else V979=V979->c.c_cdr;}          }else V988=V988->c.c_cdr;}
4373          base[1]= (V977);          base[1]= (V986);
4374          base[2]= (V974);          base[2]= (V983);
4375          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4376          (void) (*Lnk269)(Lclptr269);          (void) (*Lnk269)(Lclptr269);
4377          vs_top=sup;          vs_top=sup;
4378          goto T1792;          goto T1792;
4379  T1792:;  T1792:;
4380          V976= CMPcdr((V976));          V985= CMPcdr((V985));
4381          V977= CMPcar((V976));          V986= CMPcar((V985));
4382          goto T1787;}          goto T1787;}
4383          base[0]=base[0];          base[0]=base[0];
4384          return Cnil;          return Cnil;
4385  }  }
4386  /*      local entry for function REMOVE-DIRECT-SUBCLASSES       */  /*      local entry for function REMOVE-DIRECT-SUBCLASSES       */
4387    
4388  static object LI61(V983,V984)  static object LI61(V993,V994)
4389    
4390  register object V983;object V984;  register object V993;object V994;
4391  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
4392          goto TTL;          goto TTL;
4393  TTL:;  TTL:;
4394          {object V985;          {object V995;
4395          base[0]= (V983);          base[0]= (V993);
4396          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4397          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk249)(Lclptr249);
4398          vs_top=sup;          vs_top=sup;
4399          V985= vs_base[0];          V995= vs_base[0];
4400          {register object V986;          {register object V996;
4401          register object V987;          register object V997;
4402          base[2]= (V985);          base[2]= (V995);
4403          base[3]= (V984);          base[3]= (V994);
4404          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4405          (void) (*Lnk270)();          (void) (*Lnk270)();
4406          vs_top=sup;          vs_top=sup;
4407          V986= vs_base[0];          V996= vs_base[0];
4408          V987= CMPcar((V986));          V997= CMPcar((V996));
4409          goto T1811;          goto T1811;
4410  T1811:;  T1811:;
4411          if(!(((V986))==Cnil)){          if(!(((V996))==Cnil)){
4412          goto T1812;}          goto T1812;}
4413          {object V988 = Cnil;          {object V998 = Cnil;
4414          VMR55(V988)}          VMR55(V998)}
4415          goto T1812;          goto T1812;
4416  T1812:;  T1812:;
4417          base[2]= (V987);          base[2]= (V997);
4418          base[3]= (V983);          base[3]= (V993);
4419          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4420          (void) (*Lnk271)(Lclptr271);          (void) (*Lnk271)(Lclptr271);
4421          vs_top=sup;          vs_top=sup;
4422          V986= CMPcdr((V986));          V996= CMPcdr((V996));
4423          V987= CMPcar((V986));          V997= CMPcar((V996));
4424          goto T1811;}}          goto T1811;}}
4425          base[0]=base[0];          base[0]=base[0];
4426          return Cnil;          return Cnil;
4427  }  }
4428  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) */  /*      local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) */
4429    
4430  static object LI62(V992,V993,V994)  static object LI62(V1002,V1003,V1004)
4431    
4432  object V992;object V993;object V994;  object V1002;object V1003;object V1004;
4433  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
4434          goto TTL;          goto TTL;
4435  TTL:;  TTL:;
4436          {object V996 = (*(LnkLI242))((V994),Ct);          {object V1006 = (*(LnkLI242))((V1004),Ct);
4437          VMR56(V996)}          VMR56(V1006)}
4438          return Cnil;          return Cnil;
4439  }  }
4440  /*      local entry for function CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P    */  /*      local entry for function CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P    */
4441    
4442  static object LI63(V998)  static object LI63(V1008)
4443    
4444  object V998;  object V1008;
4445  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
4446          goto TTL;          goto TTL;
4447  TTL:;{object V999;  TTL:;{object V1009;
4448          base[0]= (V998);          base[0]= (V1008);
4449          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4450          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
4451          vs_top=sup;          vs_top=sup;
4452          V999= vs_base[0];          V1009= vs_base[0];
4453          if(V999==Cnil)goto T1827;          if(V1009==Cnil)goto T1827;
4454          {object V1000 = V999;          {object V1010 = V1009;
4455          VMR57(V1000)}          VMR57(V1010)}
4456          goto T1827;          goto T1827;
4457  T1827:;}  T1827:;}
4458          base[0]= (VV[272]->s.s_gfdef);          base[0]= (VV[272]->s.s_gfdef);
4459          base[2]= (V998);          base[2]= (V1008);
4460          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4461          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk249)(Lclptr249);
4462          vs_top=sup;          vs_top=sup;
# Line 4454  T1827:;} Line 4464  T1827:;}
4464          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4465          (void) (*Lnk273)();          (void) (*Lnk273)();
4466          vs_top=sup;          vs_top=sup;
4467          {object V1001 = vs_base[0];          {object V1011 = vs_base[0];
4468          VMR57(V1001)}          VMR57(V1011)}
4469          base[0]=base[0];          base[0]=base[0];
4470          return Cnil;          return Cnil;
4471  }  }
4472  /*      local entry for function UPDATE-CLASS   */  /*      local entry for function UPDATE-CLASS   */
4473    
4474  static object LI64(V1004,V1005)  static object LI64(V1014,V1015)
4475    
4476  register object V1004;object V1005;  register object V1014;object V1015;
4477  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
4478          goto TTL;          goto TTL;
4479  TTL:;  TTL:;
4480          if(((V1005))!=Cnil){          if(((V1015))!=Cnil){
4481          goto T1834;}          goto T1834;}
4482          base[0]= (V1004);          base[0]= (V1014);
4483          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4484          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
4485          vs_top=sup;          vs_top=sup;
4486          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4487          goto T1834;}          goto T1834;}
4488          if(((*(LnkLI272))((V1004)))!=Cnil){          if(((*(LnkLI272))((V1014)))!=Cnil){
4489          goto T1833;}          goto T1833;}
4490          goto T1834;          goto T1834;
4491  T1834:;  T1834:;
4492          base[0]= (V1004);          V1016 = (V1014);
4493            base[0]= (V1014);
4494          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4495          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
4496          vs_top=sup;          vs_top=sup;
4497          V1006= vs_base[0];          V1017= vs_base[0];
4498          (void)((*(LnkLI275))((V1004),V1006));          (void)((*(LnkLI275))(V1016,V1017));
4499          base[0]= (V1004);          V1018 = (V1014);
4500            base[0]= (V1014);
4501          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4502          (void) (*Lnk262)(Lclptr262);          (void) (*Lnk262)(Lclptr262);
4503          vs_top=sup;          vs_top=sup;
4504          V1007= vs_base[0];          V1019= vs_base[0];
4505          (void)((*(LnkLI276))((V1004),V1007));          (void)((*(LnkLI276))(V1018,V1019));
4506          (void)((*(LnkLI277))((V1004)));          (void)((*(LnkLI277))((V1014)));
4507          base[0]= (V1004);          V1020 = (V1014);
4508            base[0]= (V1014);
4509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4510          (void) (*Lnk279)(Lclptr279);          (void) (*Lnk279)(Lclptr279);
4511          vs_top=sup;          vs_top=sup;
4512          V1008= vs_base[0];          V1021= vs_base[0];
4513          (void)((*(LnkLI278))((V1004),V1008));          (void)((*(LnkLI278))(V1020,V1021));
4514          base[0]= (V1004);          base[0]= (V1014);
4515          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4516          (void) (*Lnk280)();          (void) (*Lnk280)();
4517          vs_top=sup;          vs_top=sup;
4518          goto T1833;          goto T1833;
4519  T1833:;  T1833:;
4520          if(((V1005))!=Cnil){          if(((V1015))!=Cnil){
4521          goto T1853;}          goto T1853;}
4522          {register object V1009;          {register object V1022;
4523          register object V1010;          register object V1023;
4524          base[2]= (V1004);          base[2]= (V1014);
4525          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4526          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk268)(Lclptr268);
4527          vs_top=sup;          vs_top=sup;
4528          V1009= vs_base[0];          V1022= vs_base[0];
4529          V1010= CMPcar((V1009));          V1023= CMPcar((V1022));
4530          goto T1859;          goto T1859;
4531  T1859:;  T1859:;
4532          if(!(((V1009))==Cnil)){          if(!(((V1022))==Cnil)){
4533          goto T1860;}          goto T1860;}
4534          {object V1011 = Cnil;          {object V1024 = Cnil;
4535          VMR58(V1011)}          VMR58(V1024)}
4536          goto T1860;          goto T1860;
4537  T1860:;  T1860:;
4538          (void)((*(LnkLI242))((V1010),Cnil));          (void)((*(LnkLI242))((V1023),Cnil));
4539          V1009= CMPcdr((V1009));          V1022= CMPcdr((V1022));
4540          V1010= CMPcar((V1009));          V1023= CMPcar((V1022));
4541          goto T1859;}          goto T1859;}
4542          goto T1853;          goto T1853;
4543  T1853:;  T1853:;
4544          {object V1012 = Cnil;          {object V1025 = Cnil;
4545          VMR58(V1012)}          VMR58(V1025)}
4546          base[0]=base[0];          base[0]=base[0];
4547          return Cnil;          return Cnil;
4548  }  }
4549  /*      local entry for function UPDATE-CPL     */  /*      local entry for function UPDATE-CPL     */
4550    
4551  static object LI65(V1015,V1016)  static object LI65(V1028,V1029)
4552    
4553  register object V1015;object V1016;  register object V1028;object V1029;
4554  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
4555          goto TTL;          goto TTL;
4556  TTL:;  TTL:;
4557          base[0]= (V1015);          base[0]= (V1028);
4558          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4559          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
4560          vs_top=sup;          vs_top=sup;
4561          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4562          goto T1870;}          goto T1870;}
4563          base[0]= (V1015);          base[0]= (V1028);
4564          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4565          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
4566          vs_top=sup;          vs_top=sup;
4567          V1017= vs_base[0];          V1030= vs_base[0];
4568          if(equal(V1017,(V1016))){          V1031 = (V1029);
4569            if(equal(V1030,V1031)){
4570          goto T1870;}          goto T1870;}
4571          (void)((*(LnkLI281))((V1015)));          (void)((*(LnkLI281))((V1028)));
4572          goto T1870;          goto T1870;
4573  T1870:;  T1870:;
4574          if(!((VV[98])->s.s_gfdef!=OBJNULL)){          if(!((VV[98])->s.s_gfdef!=OBJNULL)){
4575          goto T1880;}          goto T1880;}
4576          base[0]= (V1016);          base[0]= (V1029);
4577          base[1]= (V1015);          base[1]= (V1028);
4578          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4579          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk98)(Lclptr98);
4580          vs_top=sup;          vs_top=sup;
# Line 4570  T1880:; Line 4584  T1880:;
4584          (void)((*(LnkLI283))(VV[98],VV[99]));          (void)((*(LnkLI283))(VV[98],VV[99]));
4585          goto T1878;          goto T1878;
4586  T1878:;  T1878:;
4587          {object V1018 = (*(LnkLI284))((V1016));          {object V1032 = (*(LnkLI284))((V1029));
4588          VMR59(V1018)}          VMR59(V1032)}
4589          base[0]=base[0];          base[0]=base[0];
4590          return Cnil;          return Cnil;
4591  }  }
4592  /*      local entry for function UPDATE-CLASS-CAN-PRECEDE-P     */  /*      local entry for function UPDATE-CLASS-CAN-PRECEDE-P     */
4593    
4594  static object LI66(V1020)  static object LI66(V1034)
4595    
4596  object V1020;  object V1034;
4597  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
4598          goto TTL;          goto TTL;
4599  TTL:;  TTL:;
4600          if(((V1020))==Cnil){          if(((V1034))==Cnil){
4601          goto T1885;}          goto T1885;}
4602          {object V1021;          {object V1035;
4603          V1021= CMPcar((V1020));          V1035= CMPcar((V1034));
4604          {register object V1022;          {register object V1036;
4605          register object V1023;          register object V1037;
4606          V1022= CMPcdr((V1020));          V1036= CMPcdr((V1034));
4607          V1023= CMPcar((V1022));          V1037= CMPcar((V1036));
4608          goto T1892;          goto T1892;
4609  T1892:;  T1892:;
4610          if(!(((V1022))==Cnil)){          if(!(((V1036))==Cnil)){
4611          goto T1893;}          goto T1893;}
4612          goto T1887;          goto T1887;
4613          goto T1893;          goto T1893;
4614  T1893:;  T1893:;
4615          {register object V1024;          {register object V1038;
4616          register object V1025;          register object V1039;
4617          register object V1026;          register object V1040;
4618          register object V1027;          register object V1041;
4619          V1024= (V1023);          V1038= (V1037);
4620          V1025= (V1021);          V1039= (V1035);
4621          V1026= VV[100];          V1040= VV[100];
4622          base[3]= (V1024);          base[3]= (V1038);
4623          base[5]= (V1025);          base[5]= (V1039);
4624          base[6]= (V1026);          base[6]= (V1040);
4625          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4626          (void) (*Lnk285)();          (void) (*Lnk285)();
4627          vs_top=sup;          vs_top=sup;
# Line 4615  T1893:; Line 4629  T1893:;
4629          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4630          Ladjoin();          Ladjoin();
4631          vs_top=sup;          vs_top=sup;
4632          V1027= vs_base[0];          V1041= vs_base[0];
4633          base[3]= (V1025);          base[3]= (V1039);
4634          base[4]= (V1026);          base[4]= (V1040);
4635          base[5]= (V1027);          base[5]= (V1041);
4636          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4637          (void) (*Lnk286)();          (void) (*Lnk286)();
4638          vs_top=sup;}          vs_top=sup;}
4639          V1022= CMPcdr((V1022));          V1036= CMPcdr((V1036));
4640          V1023= CMPcar((V1022));          V1037= CMPcar((V1036));
4641          goto T1892;}}          goto T1892;}}
4642          goto T1887;          goto T1887;
4643  T1887:;  T1887:;
4644          V1020= CMPcdr((V1020));          V1034= CMPcdr((V1034));
4645          goto TTL;          goto TTL;
4646          goto T1885;          goto T1885;
4647  T1885:;  T1885:;
4648          {object V1028 = Cnil;          {object V1042 = Cnil;
4649          VMR60(V1028)}          VMR60(V1042)}
4650          base[0]=base[0];          base[0]=base[0];
4651          return Cnil;          return Cnil;
4652  }  }
4653  /*      local entry for function CLASS-CAN-PRECEDE-P    */  /*      local entry for function CLASS-CAN-PRECEDE-P    */
4654    
4655  static object LI67(V1031,V1032)  static object LI67(V1045,V1046)
4656    
4657  object V1031;object V1032;  object V1045;object V1046;
4658  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
4659          goto TTL;          goto TTL;
4660  TTL:;  TTL:;
4661          base[0]= (V1031);          V1048 = (V1046);
4662            base[0]= (V1045);
4663          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4664          (void) (*Lnk287)(Lclptr287);          (void) (*Lnk287)(Lclptr287);
4665          vs_top=sup;          vs_top=sup;
4666          V1034= vs_base[0];          V1049= vs_base[0];
4667          {register object x= (V1032),V1033= V1034;          {register object x= V1048,V1047= V1049;
4668          while(V1033!=Cnil)          while(V1047!=Cnil)
4669          if(eql(x,V1033->c.c_car)){          if(eql(x,V1047->c.c_car)){
4670          {object V1035 = V1033;          {object V1050 = V1047;
4671          VMR61(V1035)}          VMR61(V1050)}
4672          }else V1033=V1033->c.c_cdr;          }else V1047=V1047->c.c_cdr;
4673          {object V1036 = Cnil;          {object V1051 = Cnil;
4674          VMR61(V1036)}}          VMR61(V1051)}}
4675          base[0]=base[0];          base[0]=base[0];
4676          return Cnil;          return Cnil;
4677  }  }
4678  /*      local entry for function UPDATE-SLOTS   */  /*      local entry for function UPDATE-SLOTS   */
4679    
4680  static object LI68(V1039,V1040)  static object LI68(V1054,V1055)
4681    
4682  object V1039;object V1040;  object V1054;object V1055;
4683  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
4684          goto TTL;          goto TTL;
4685  TTL:;  TTL:;
4686          {register object V1041;          {register object V1056;
4687          register object V1042;          register object V1057;
4688          V1041= Cnil;          V1056= Cnil;
4689          V1042= Cnil;          V1057= Cnil;
4690          {register object V1043;          {register object V1058;
4691          register object V1044;          register object V1059;
4692          V1043= (V1040);          V1058= (V1055);
4693          V1044= CMPcar((V1043));          V1059= CMPcar((V1058));
4694          goto T1922;          goto T1922;
4695  T1922:;  T1922:;
4696          if(!(((V1043))==Cnil)){          if(!(((V1058))==Cnil)){
4697          goto T1923;}          goto T1923;}
4698          goto T1918;          goto T1918;
4699          goto T1923;          goto T1923;
4700  T1923:;  T1923:;
4701          {register object V1045;          {register object V1060;
4702          base[1]= (V1044);          base[1]= (V1059);
4703          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4704          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
4705          vs_top=sup;          vs_top=sup;
4706          V1045= vs_base[0];          V1060= vs_base[0];
4707          if(!(((V1045))==(VV[19]))){          if(!(((V1060))==(VV[19]))){
4708          goto T1931;}          goto T1931;}
4709          V1041= make_cons(V1044,(V1041));          V1056= make_cons(V1059,(V1056));
4710          goto T1927;          goto T1927;
4711          goto T1931;          goto T1931;
4712  T1931:;  T1931:;
4713          base[1]= (V1045);          base[1]= (V1060);
4714          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4715          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk288)(Lclptr288);
4716          vs_top=sup;          vs_top=sup;
4717          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4718          goto T1927;}          goto T1927;}
4719          V1042= make_cons(V1044,(V1042));}          V1057= make_cons(V1059,(V1057));}
4720          goto T1927;          goto T1927;
4721  T1927:;  T1927:;
4722          V1043= CMPcdr((V1043));          V1058= CMPcdr((V1058));
4723          V1044= CMPcar((V1043));          V1059= CMPcar((V1058));
4724          goto T1922;}          goto T1922;}
4725          goto T1918;          goto T1918;
4726  T1918:;  T1918:;
4727          {object V1048;          {object V1063;
4728          object V1049;          object V1064;
4729          object V1050;          object V1065;
4730          object V1051;          object V1066;
4731          object V1052;          object V1067;
4732          object V1053;          object V1068;
4733          object V1054;          object V1069;
4734          base[8]=VV[236]->s.s_gfdef;          base[8]=VV[236]->s.s_gfdef;
4735          base[9]= (V1041);          base[9]= (V1056);
4736          base[10]= (VV[289]->s.s_gfdef);          base[10]= (VV[289]->s.s_gfdef);
4737          base[11]= VV[101];          base[11]= VV[101];
4738          base[12]= (VV[290]->s.s_gfdef);          base[12]= (VV[290]->s.s_gfdef);
4739          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
4740          (void) (*Lnk291)();          (void) (*Lnk291)();
4741          vs_top=sup;          vs_top=sup;
4742          V1057= vs_base[0];          V1072= vs_base[0];
4743          {object V1055;          {object V1070;
4744          object V1056= V1057;          object V1071= V1072;
4745          if(V1056==Cnil){          if(V1071==Cnil){
4746          V1048= Cnil;          V1063= Cnil;
4747          goto T1943;}          goto T1943;}
4748          base[7]=V1055=MMcons(Cnil,Cnil);          base[7]=V1070=MMcons(Cnil,Cnil);
4749          goto T1944;          goto T1944;
4750  T1944:;  T1944:;
4751          base[9]= (V1056->c.c_car);          base[9]= (V1071->c.c_car);
4752          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4753          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
4754          vs_top=sup;          vs_top=sup;
4755          (V1055->c.c_car)= vs_base[0];          (V1070->c.c_car)= vs_base[0];
4756          if((V1056=MMcdr(V1056))==Cnil){          if((V1071=MMcdr(V1071))==Cnil){
4757          V1048= base[7];          V1063= base[7];
4758          goto T1943;}          goto T1943;}
4759          V1055=MMcdr(V1055)=MMcons(Cnil,Cnil);          V1070=MMcdr(V1070)=MMcons(Cnil,Cnil);
4760          goto T1944;}          goto T1944;}
4761          goto T1943;          goto T1943;
4762  T1943:;  T1943:;
4763          V1049= CMPmake_fixnum((long)length((V1048)));          V1064= CMPmake_fixnum((long)length((V1063)));
4764          V1050= (*(LnkLI292))((V1042));          V1065= (*(LnkLI292))((V1057));
4765          base[7]= (V1039);          base[7]= (V1054);
4766          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4767          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
4768          vs_top=sup;          vs_top=sup;
4769          V1051= vs_base[0];          V1066= vs_base[0];
4770          if((V1051)==Cnil){          if((V1066)==Cnil){
4771          V1052= Cnil;          V1067= Cnil;
4772          goto T1956;}          goto T1956;}
4773          V1052= ((V1051))->v.v_self[9];          V1067= ((V1066))->v.v_self[9];
4774          goto T1956;          goto T1956;
4775  T1956:;  T1956:;
4776          if((V1051)==Cnil){          if((V1066)==Cnil){
4777          V1053= Cnil;          V1068= Cnil;
4778          goto T1957;}          goto T1957;}
4779          V1053= ((V1051))->v.v_self[10];          V1068= ((V1066))->v.v_self[10];
4780          goto T1957;          goto T1957;
4781  T1957:;  T1957:;
4782          if(((V1051))!=Cnil){          if(((V1066))!=Cnil){
4783          goto T1960;}          goto T1960;}
4784          V1054= (VFUN_NARGS=2,(*(LnkLI263))((V1049),(V1039)));          V1069= (VFUN_NARGS=2,(*(LnkLI263))((V1064),(V1054)));
4785          goto T1958;          goto T1958;
4786          goto T1960;          goto T1960;
4787  T1960:;  T1960:;
4788          if(!(equal((V1048),(V1052)))){          if(!(equal((V1063),(V1067)))){
4789          goto T1963;}          goto T1963;}
4790          {register object V1058;          {register object V1073;
4791          object V1059;          object V1074;
4792          register object V1060;          register object V1075;
4793          object V1061;          object V1076;
4794          V1058= (V1053);          V1073= (V1068);
4795          V1059= Cnil;          V1074= Cnil;
4796          V1060= (V1050);          V1075= (V1065);
4797          V1061= Cnil;          V1076= Cnil;
4798          goto T1972;          goto T1972;
4799  T1972:;  T1972:;
4800          {object V1062;          {object V1077;
4801          if(!(((V1058))==Cnil)){          if(!(((V1073))==Cnil)){
4802          goto T1978;}          goto T1978;}
4803          goto T1966;          goto T1966;
4804          goto T1978;          goto T1978;
4805  T1978:;  T1978:;
4806          V1062= CMPcar((V1058));          V1077= CMPcar((V1073));
4807          V1058= CMPcdr((V1058));          V1073= CMPcdr((V1073));
4808          V1059= (V1062);}          V1074= (V1077);}
4809          {object V1063;          {object V1078;
4810          if(!(((V1060))==Cnil)){          if(!(((V1075))==Cnil)){
4811          goto T1986;}          goto T1986;}
4812          goto T1966;          goto T1966;
4813          goto T1986;          goto T1986;
4814  T1986:;  T1986:;
4815          V1063= CMPcar((V1060));          V1078= CMPcar((V1075));
4816          V1060= CMPcdr((V1060));          V1075= CMPcdr((V1075));
4817          V1061= (V1063);}          V1076= (V1078);}
4818          if((CMPcar((V1059)))==(CMPcar((V1061)))){          if((CMPcar((V1074)))==(CMPcar((V1076)))){
4819          goto T1973;}          goto T1973;}
4820          goto T1963;          goto T1963;
4821          goto T1973;          goto T1973;
# Line 4808  T1973:; Line 4823  T1973:;
4823          goto T1972;}          goto T1972;}
4824          goto T1966;          goto T1966;
4825  T1966:;  T1966:;
4826          V1054= (V1051);          V1069= (V1066);
4827          goto T1958;          goto T1958;
4828          goto T1963;          goto T1963;
4829  T1963:;  T1963:;
4830          base[7]= (V1039);          base[7]= (V1054);
4831          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4832          (void) (*Lnk294)(Lclptr294);          (void) (*Lnk294)(Lclptr294);
4833          vs_top=sup;          vs_top=sup;
4834          base[7]= (V1039);          base[7]= (V1054);
4835          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4836          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
4837          vs_top=sup;          vs_top=sup;
4838          V1054= vs_base[0];          V1069= vs_base[0];
4839          goto T1958;          goto T1958;
4840  T1958:;  T1958:;
4841          if(!((VV[102])->s.s_gfdef!=OBJNULL)){          if(!((VV[102])->s.s_gfdef!=OBJNULL)){
4842          goto T2000;}          goto T2000;}
4843          base[7]= (V1040);          base[7]= (V1055);
4844          base[8]= V1039;          base[8]= V1054;
4845          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4846          (void) (*Lnk102)(Lclptr102);          (void) (*Lnk102)(Lclptr102);
4847          vs_top=sup;          vs_top=sup;
# Line 4836  T2000:; Line 4851  T2000:;
4851          (void)((*(LnkLI283))(VV[102],VV[103]));          (void)((*(LnkLI283))(VV[102],VV[103]));
4852          goto T1998;          goto T1998;
4853  T1998:;  T1998:;
4854          (void)(((V1054))->v.v_self[9]= ((V1048)));          (void)(((V1069))->v.v_self[9]= ((V1063)));
4855          (void)(((V1054))->v.v_self[10]= ((V1050)));          (void)(((V1069))->v.v_self[10]= ((V1065)));
4856          (void)(((V1054))->v.v_self[12]= ((V1049)));          (void)(((V1069))->v.v_self[12]= ((V1064)));
4857          if(!((VV[104])->s.s_gfdef!=OBJNULL)){          if(!((VV[104])->s.s_gfdef!=OBJNULL)){
4858          goto T2008;}          goto T2008;}
4859          base[7]= (V1054);          base[7]= (V1069);
4860          base[8]= V1039;          base[8]= V1054;
4861          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4862          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
4863          vs_top=sup;          vs_top=sup;
# Line 4852  T2008:; Line 4867  T2008:;
4867          (void)((*(LnkLI283))(VV[104],VV[105]));          (void)((*(LnkLI283))(VV[104],VV[105]));
4868          goto T1996;          goto T1996;
4869  T1996:;  T1996:;
4870          if(((V1051))==((V1054))){          if(((V1066))==((V1069))){
4871          goto T2013;}          goto T2013;}
4872          {object V1065 = (*(LnkLI264))((V1039));          {object V1080 = (*(LnkLI264))((V1054));
4873          VMR62(V1065)}          VMR62(V1080)}
4874          goto T2013;          goto T2013;
4875  T2013:;  T2013:;
4876          {object V1066 = Cnil;          {object V1081 = Cnil;
4877          VMR62(V1066)}}}          VMR62(V1081)}}}
4878          base[0]=base[0];          base[0]=base[0];
4879          return Cnil;          return Cnil;
4880  }  }
4881  /*      local entry for function COMPUTE-CLASS-SLOTS    */  /*      local entry for function COMPUTE-CLASS-SLOTS    */
4882    
4883  static object LI69(V1068)  static object LI69(V1083)
4884    
4885  object V1068;  object V1083;
4886  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
4887          goto TTL;          goto TTL;
4888  TTL:;  TTL:;
4889          {register object V1069;          {register object V1084;
4890          register object V1070;          register object V1085;
4891          V1069= Cnil;          V1084= Cnil;
4892          V1070= Cnil;          V1085= Cnil;
4893          {register object V1071;          {register object V1086;
4894          register object V1072;          register object V1087;
4895          V1071= (V1068);          V1086= (V1083);
4896          V1072= CMPcar((V1071));          V1087= CMPcar((V1086));
4897          goto T2021;          goto T2021;
4898  T2021:;  T2021:;
4899          if(!(((V1071))==Cnil)){          if(!(((V1086))==Cnil)){
4900          goto T2022;}          goto T2022;}
4901          goto T2017;          goto T2017;
4902          goto T2022;          goto T2022;
4903  T2022:;  T2022:;
4904          {register object V1073;          {register object V1088;
4905          base[1]= (V1072);          base[1]= (V1087);
4906          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4907          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
4908          vs_top=sup;          vs_top=sup;
4909          V1075= vs_base[0];          V1090= vs_base[0];
4910          base[2]= (V1072);          base[2]= (V1087);
4911          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4912          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
4913          vs_top=sup;          vs_top=sup;
# Line 4900  T2022:; Line 4915  T2022:;
4915          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4916          (void) (*Lnk31)(Lclptr31);          (void) (*Lnk31)(Lclptr31);
4917          vs_top=sup;          vs_top=sup;
4918          V1076= vs_base[0];          V1091= vs_base[0];
4919          {register object x= V1075,V1074= V1076;          {register object x= V1090,V1089= V1091;
4920          while(V1074!=Cnil)          while(V1089!=Cnil)
4921          if(eql(x,V1074->c.c_car->c.c_car) &&V1074->c.c_car != Cnil){          if(eql(x,V1089->c.c_car->c.c_car) &&V1089->c.c_car != Cnil){
4922          V1073= (V1074->c.c_car);          V1088= (V1089->c.c_car);
4923          goto T2027;          goto T2027;
4924          }else V1074=V1074->c.c_cdr;          }else V1089=V1089->c.c_cdr;
4925          V1073= Cnil;}          V1088= Cnil;}
4926          goto T2027;          goto T2027;
4927  T2027:;  T2027:;
4928          if(((V1069))!=Cnil){          if(((V1084))!=Cnil){
4929          goto T2034;}          goto T2034;}
4930          V1070= make_cons((V1073),Cnil);          V1085= make_cons((V1088),Cnil);
4931          V1069= (V1070);          V1084= (V1085);
4932          goto T2026;          goto T2026;
4933          goto T2034;          goto T2034;
4934  T2034:;  T2034:;
4935          V1078= make_cons((V1073),Cnil);          V1093= make_cons((V1088),Cnil);
4936          ((V1070))->c.c_cdr = /* INLINE-ARGS */V1078;          ((V1085))->c.c_cdr = /* INLINE-ARGS */V1093;
4937          V1077= (V1070);          V1092= (V1085);
4938          V1070= CMPcdr(V1077);}          V1085= CMPcdr(V1092);}
4939          goto T2026;          goto T2026;
4940  T2026:;  T2026:;
4941          V1071= CMPcdr((V1071));          V1086= CMPcdr((V1086));
4942          V1072= CMPcar((V1071));          V1087= CMPcar((V1086));
4943          goto T2021;}          goto T2021;}
4944          goto T2017;          goto T2017;
4945  T2017:;  T2017:;
4946          {object V1079 = (V1069);          {object V1094 = (V1084);
4947          VMR63(V1079)}}          VMR63(V1094)}}
4948          base[0]=base[0];          base[0]=base[0];
4949          return Cnil;          return Cnil;
4950  }  }
4951  /*      local entry for function COMPUTE-LAYOUT */  /*      local entry for function COMPUTE-LAYOUT */
4952    
4953  static object LI70(V1082,V1083)  static object LI70(V1097,V1098)
4954    
4955  object V1082;object V1083;  object V1097;object V1098;
4956  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
4957          goto TTL;          goto TTL;
4958  TTL:;  TTL:;
4959          {object V1084;          {object V1099;
4960          register object V1085;          register object V1100;
4961          V1084= Cnil;          V1099= Cnil;
4962          V1085= Cnil;          V1100= Cnil;
4963          {register object V1086;          {register object V1101;
4964          register object V1087;          register object V1102;
4965          V1086= (V1083);          V1101= (V1098);
4966          V1087= CMPcar((V1086));          V1102= CMPcar((V1101));
4967          goto T2052;          goto T2052;
4968  T2052:;  T2052:;
4969          if(!(((V1086))==Cnil)){          if(!(((V1101))==Cnil)){
4970          goto T2053;}          goto T2053;}
4971          goto T2048;          goto T2048;
4972          goto T2053;          goto T2053;
4973  T2053:;  T2053:;
4974          base[3]= (V1087);          base[3]= (V1102);
4975          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4976          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
4977          vs_top=sup;          vs_top=sup;
4978          V1088= vs_base[0];          V1103= vs_base[0];
4979          if(!((V1088)==(VV[19]))){          if(!((V1103)==(VV[19]))){
4980          goto T2057;}          goto T2057;}
4981          {register object V1089;          {register object V1104;
4982          base[3]= (V1087);          base[3]= (V1102);
4983          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4984          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
4985          vs_top=sup;          vs_top=sup;
4986          V1089= vs_base[0];          V1104= vs_base[0];
4987          if(((V1084))!=Cnil){          if(((V1099))!=Cnil){
4988          goto T2065;}          goto T2065;}
4989          V1085= make_cons((V1089),Cnil);          V1100= make_cons((V1104),Cnil);
4990          V1084= (V1085);          V1099= (V1100);
4991          goto T2057;          goto T2057;
4992          goto T2065;          goto T2065;
4993  T2065:;  T2065:;
4994          V1091= make_cons((V1089),Cnil);          V1106= make_cons((V1104),Cnil);
4995          ((V1085))->c.c_cdr = /* INLINE-ARGS */V1091;          ((V1100))->c.c_cdr = /* INLINE-ARGS */V1106;
4996          V1090= (V1085);          V1105= (V1100);
4997          V1085= CMPcdr(V1090);}          V1100= CMPcdr(V1105);}
4998          goto T2057;          goto T2057;
4999  T2057:;  T2057:;
5000          V1086= CMPcdr((V1086));          V1101= CMPcdr((V1101));
5001          V1087= CMPcar((V1086));          V1102= CMPcar((V1101));
5002          goto T2052;}          goto T2052;}
5003          goto T2048;          goto T2048;
5004  T2048:;  T2048:;
5005          base[0]= (V1084);}          base[0]= (V1099);}
5006          base[1]= Cnil;          base[1]= Cnil;
5007          base[3]= CMPcar((V1082));          base[3]= CMPcar((V1097));
5008          base[4]= VV[103];          base[4]= VV[103];
5009          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5010          (void) (*Lnk295)();          (void) (*Lnk295)();
5011          vs_top=sup;          vs_top=sup;
5012          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5013          goto T2079;}          goto T2079;}
5014          base[2]= (V1082);          base[2]= (V1097);
5015          goto T2077;          goto T2077;
5016          goto T2079;          goto T2079;
5017  T2079:;  T2079:;
5018          base[2]= CMPcdr((V1082));          base[2]= CMPcdr((V1097));
5019          goto T2077;          goto T2077;
5020  T2077:;  T2077:;
5021          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5022          L71(base);          L71(base);
5023          vs_top=sup;          vs_top=sup;
5024          V1092= append(base[0],base[1]);          V1107= append(base[0],base[1]);
5025          {object V1093 = reverse(/* INLINE-ARGS */V1092);          {object V1108 = reverse(/* INLINE-ARGS */V1107);
5026          VMR64(V1093)}          VMR64(V1108)}
5027          base[0]=base[0];          base[0]=base[0];
5028          return Cnil;          return Cnil;
5029  }  }
5030  /*      local entry for function UPDATE-GFS-OF-CLASS    */  /*      local entry for function UPDATE-GFS-OF-CLASS    */
5031    
5032  static object LI74(V1095)  static object LI74(V1110)
5033    
5034  object V1095;  object V1110;
5035  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
5036          goto TTL;          goto TTL;
5037  TTL:;  TTL:;
5038          base[0]=MMcons((V1095),Cnil);          base[0]=MMcons((V1110),Cnil);
5039          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5040          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5041          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
5042          vs_top=sup;          vs_top=sup;
5043          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5044          goto T2084;}          goto T2084;}
5045          {object V1096;          {object V1111;
5046          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5047          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5048          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5049          vs_top=sup;          vs_top=sup;
5050          V1096= vs_base[0];{object V1097;          V1111= vs_base[0];{object V1112;
5051          {register object x= (VV[106]->s.s_dbind),V1098= (V1096);          {register object x= (VV[106]->s.s_dbind),V1113= (V1111);
5052          while(V1098!=Cnil)          while(V1113!=Cnil)
5053          if(eql(x,V1098->c.c_car)){          if(eql(x,V1113->c.c_car)){
5054          V1097= V1098;          V1112= V1113;
5055          goto T2092;          goto T2092;
5056          }else V1098=V1098->c.c_cdr;          }else V1113=V1113->c.c_cdr;
5057          V1097= Cnil;}          V1112= Cnil;}
5058          goto T2092;          goto T2092;
5059  T2092:;  T2092:;
5060          if(V1097==Cnil)goto T2091;          if(V1112==Cnil)goto T2091;
5061          if((V1097)==Cnil){          if((V1112)==Cnil){
5062          goto T2084;}          goto T2084;}
5063          goto T2088;          goto T2088;
5064          goto T2091;          goto T2091;
5065  T2091:;}  T2091:;}
5066          {register object x= (VV[107]->s.s_dbind),V1099= (V1096);          {register object x= (VV[107]->s.s_dbind),V1114= (V1111);
5067          while(V1099!=Cnil)          while(V1114!=Cnil)
5068          if(eql(x,V1099->c.c_car)){          if(eql(x,V1114->c.c_car)){
5069          goto T2088;          goto T2088;
5070          }else V1099=V1099->c.c_cdr;          }else V1114=V1114->c.c_cdr;
5071          goto T2084;}}          goto T2084;}}
5072          goto T2088;          goto T2088;
5073  T2088:;  T2088:;
# Line 5072  T2088:; Line 5087  T2088:;
5087          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5088          Lmaphash();          Lmaphash();
5089          vs_top=sup;          vs_top=sup;
5090          {object V1100 = vs_base[0];          {object V1115 = vs_base[0];
5091          VMR65(V1100)}          VMR65(V1115)}
5092          goto T2084;          goto T2084;
5093  T2084:;  T2084:;
5094          {object V1101 = Cnil;          {object V1116 = Cnil;
5095          VMR65(V1101)}          VMR65(V1116)}
5096          base[0]=base[0];          base[0]=base[0];
5097          return Cnil;          return Cnil;
5098  }  }
5099  /*      local entry for function UPDATE-INITS   */  /*      local entry for function UPDATE-INITS   */
5100    
5101  static object LI76(V1104,V1105)  static object LI76(V1119,V1120)
5102    
5103  object V1104;object V1105;  object V1119;object V1120;
5104  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
5105          goto TTL;          goto TTL;
5106  TTL:;  TTL:;
5107          {object V1108 = (*(LnkLI194))((V1105),V1104,VV[29]);          {object V1123 = (*(LnkLI194))((V1120),V1119,VV[29]);
5108          VMR66(V1108)}          VMR66(V1123)}
5109          return Cnil;          return Cnil;
5110  }  }
5111  /*      local entry for function (FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))    */  /*      local entry for function (FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))    */
5112    
5113  static object LI79(V1112,V1113,V1114)  static object LI79(V1127,V1128,V1129)
5114    
5115  object V1112;object V1113;object V1114;  object V1127;object V1128;object V1129;
5116  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
5117          goto TTL;          goto TTL;
5118  TTL:;  TTL:;
5119          base[0]= (V1114);          base[0]= (V1129);
5120          {object V1116;          {object V1131;
5121          base[2]= base[0];          base[2]= base[0];
5122          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5123          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5124          vs_top=sup;          vs_top=sup;
5125          V1116= vs_base[0];          V1131= vs_base[0];
5126          base[2]= base[0];          base[2]= base[0];
5127          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5128          (void) (*Lnk296)(Lclptr296);          (void) (*Lnk296)(Lclptr296);
5129          vs_top=sup;          vs_top=sup;
5130          base[1]= vs_base[0];          base[1]= vs_base[0];
5131          {object V1117;          {object V1132;
5132          base[2]= (V1116);          base[2]= (V1131);
5133          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5134          L80(base);          L80(base);
5135          vs_top=sup;          vs_top=sup;
5136          V1117= vs_base[0];          V1132= vs_base[0];
5137          base[2]= (V1117);          base[2]= (V1132);
5138          base[3]= VV[8];          base[3]= VV[8];
5139          base[4]= (VV[9]->s.s_gfdef);          base[4]= (VV[9]->s.s_gfdef);
5140          base[5]= VV[101];          base[5]= VV[101];
# Line 5129  TTL:; Line 5144  TTL:;
5144          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
5145          (void) (*Lnk298)();          (void) (*Lnk298)();
5146          vs_top=sup;          vs_top=sup;
5147          {object V1118 = vs_base[0];          {object V1133 = vs_base[0];
5148          VMR67(V1118)}}}          VMR67(V1133)}}}
5149          base[0]=base[0];          base[0]=base[0];
5150          return Cnil;          return Cnil;
5151  }  }
5152  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))       */  /*      local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))       */
5153    
5154  static object LI81(V1123,V1124,V1125,V1126)  static object LI81(V1138,V1139,V1140,V1141)
5155    
5156  object V1123;object V1124;object V1125;object V1126;  object V1138;object V1139;object V1140;object V1141;
5157  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
5158          goto TTL;          goto TTL;
5159  TTL:;  TTL:;
5160          {object V1128 = (VFUN_NARGS=1,(*(LnkLI219))(VV[109]));          {object V1143 = (VFUN_NARGS=1,(*(LnkLI219))(VV[109]));
5161          VMR68(V1128)}          VMR68(V1143)}
5162          return Cnil;          return Cnil;
5163  }  }
5164  /*      function definition for MAKE-DIRECT-SLOTD       */  /*      function definition for MAKE-DIRECT-SLOTD       */
# Line 5152  static void L82() Line 5167  static void L82()
5167  {register object *base=vs_base;  {register object *base=vs_base;
5168          register object *sup=base+VM69; VC69          register object *sup=base+VM69; VC69
5169          vs_check;          vs_check;
5170          {object V1129;          {object V1144;
5171          object V1130;          object V1145;
5172          check_arg(2);          check_arg(2);
5173          V1129=(base[0]);          V1144=(base[0]);
5174          V1130=(base[1]);          V1145=(base[1]);
5175          vs_top=sup;          vs_top=sup;
5176          goto TTL;          goto TTL;
5177  TTL:;  TTL:;
5178          {object V1131;          {object V1146;
5179          V1131= listA(3,VV[65],(V1129),(V1130));          V1146= listA(3,VV[65],(V1144),(V1145));
5180          base[2]=VV[223]->s.s_gfdef;          base[2]=VV[223]->s.s_gfdef;
5181          base[4]= (V1129);          base[4]= (V1144);
5182          base[5]= (V1131);          base[5]= (V1146);
5183          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5184          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk299)(Lclptr299);
5185          vs_top=sup;          vs_top=sup;
5186          base[3]= vs_base[0];          base[3]= vs_base[0];
5187          {object V1132;          {object V1147;
5188          V1132= (V1131);          V1147= (V1146);
5189           vs_top=base+4;           vs_top=base+4;
5190           while(V1132!=Cnil)           while(V1147!=Cnil)
5191           {vs_push((V1132)->c.c_car);V1132=(V1132)->c.c_cdr;}           {vs_push((V1147)->c.c_car);V1147=(V1147)->c.c_cdr;}
5192          vs_base=base+3;}          vs_base=base+3;}
5193          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk223)(Lclptr223);
5194          return;}          return;}
# Line 5181  TTL:; Line 5196  TTL:;
5196  }  }
5197  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STD-CLASS))        */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STD-CLASS))        */
5198    
5199  static object LI83(V1136,V1137,V1138)  static object LI83(V1151,V1152,V1153)
5200    
5201  object V1136;object V1137;object V1138;  object V1151;object V1152;object V1153;
5202  {        VMB70 VMS70 VMV70  {        VMB70 VMS70 VMV70
5203          goto TTL;          goto TTL;
5204  TTL:;  TTL:;
5205          {register object V1140;          {register object V1155;
5206          V1140= Cnil;          V1155= Cnil;
5207          {object V1141;          {object V1156;
5208          object V1142;          object V1157;
5209          base[2]= (V1138);          base[2]= (V1153);
5210          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5211          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5212          vs_top=sup;          vs_top=sup;
5213          V1141= vs_base[0];          V1156= vs_base[0];
5214          V1142= CMPcar((V1141));          V1157= CMPcar((V1156));
5215          goto T2132;          goto T2132;
5216  T2132:;  T2132:;
5217          if(!(((V1141))==Cnil)){          if(!(((V1156))==Cnil)){
5218          goto T2133;}          goto T2133;}
5219          goto T2127;          goto T2127;
5220          goto T2133;          goto T2133;
5221  T2133:;  T2133:;
5222          {object V1143;          {object V1158;
5223          base[2]= (V1142);          base[2]= (V1157);
5224          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5225          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk251)(Lclptr251);
5226          vs_top=sup;          vs_top=sup;
5227          V1143= vs_base[0];          V1158= vs_base[0];
5228          {register object V1144;          {register object V1159;
5229          register object V1145;          register object V1160;
5230          V1144= (V1143);          V1159= (V1158);
5231          V1145= CMPcar((V1144));          V1160= CMPcar((V1159));
5232          goto T2143;          goto T2143;
5233  T2143:;  T2143:;
5234          if(!(((V1144))==Cnil)){          if(!(((V1159))==Cnil)){
5235          goto T2144;}          goto T2144;}
5236          goto T2137;          goto T2137;
5237          goto T2144;          goto T2144;
5238  T2144:;  T2144:;
5239          {register object V1146;          {register object V1161;
5240          register object V1147;          register object V1162;
5241          base[5]= (V1145);          base[5]= (V1160);
5242          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5243          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
5244          vs_top=sup;          vs_top=sup;
5245          V1146= vs_base[0];          V1161= vs_base[0];
5246          {register object x= (V1146),V1148= (V1140);          {register object x= (V1161),V1163= (V1155);
5247          while(V1148!=Cnil)          while(V1163!=Cnil)
5248          if(EQ(x,V1148->c.c_car->c.c_car) &&V1148->c.c_car != Cnil){          if(EQ(x,V1163->c.c_car->c.c_car) &&V1163->c.c_car != Cnil){
5249          V1147= (V1148->c.c_car);          V1162= (V1163->c.c_car);
5250          goto T2151;          goto T2151;
5251          }else V1148=V1148->c.c_cdr;          }else V1163=V1163->c.c_cdr;
5252          V1147= Cnil;}          V1162= Cnil;}
5253          goto T2151;          goto T2151;
5254  T2151:;  T2151:;
5255          if(((V1147))==Cnil){          if(((V1162))==Cnil){
5256          goto T2153;}          goto T2153;}
5257          {register object V1150;          {register object V1165;
5258          register object V1151;          register object V1166;
5259          V1150= (V1147);          V1165= (V1162);
5260          V1151= make_cons(V1145,CMPcdr((V1150)));          V1166= make_cons(V1160,CMPcdr((V1165)));
5261          ((V1150))->c.c_cdr = (V1151);          ((V1165))->c.c_cdr = (V1166);
5262          goto T2148;}          goto T2148;}
5263          goto T2153;          goto T2153;
5264  T2153:;  T2153:;
5265          {object V1152;          {object V1167;
5266          V1152= list(2,(V1146),(V1145));          V1167= list(2,(V1161),(V1160));
5267          V1140= make_cons((V1152),(V1140));}}          V1155= make_cons((V1167),(V1155));}}
5268          goto T2148;          goto T2148;
5269  T2148:;  T2148:;
5270          V1144= CMPcdr((V1144));          V1159= CMPcdr((V1159));
5271          V1145= CMPcar((V1144));          V1160= CMPcar((V1159));
5272          goto T2143;}}          goto T2143;}}
5273          goto T2137;          goto T2137;
5274  T2137:;  T2137:;
5275          V1141= CMPcdr((V1141));          V1156= CMPcdr((V1156));
5276          V1142= CMPcar((V1141));          V1157= CMPcar((V1156));
5277          goto T2132;}          goto T2132;}
5278          goto T2127;          goto T2127;
5279  T2127:;  T2127:;
5280          {object V1153;          {object V1168;
5281          object V1154= (V1140);          object V1169= (V1155);
5282          if(V1154==Cnil){          if(V1169==Cnil){
5283          {object V1155 = Cnil;          {object V1170 = Cnil;
5284          VMR70(V1155)}}          VMR70(V1170)}}
5285          base[0]=V1153=MMcons(Cnil,Cnil);          base[0]=V1168=MMcons(Cnil,Cnil);
5286          goto T2170;          goto T2170;
5287  T2170:;  T2170:;
5288          base[1]= (V1138);          base[1]= (V1153);
5289          base[2]= nreverse(CMPcdr((V1154->c.c_car)));          base[2]= nreverse(CMPcdr((V1169->c.c_car)));
5290          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5291          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
5292          vs_top=sup;          vs_top=sup;
5293          (V1153->c.c_car)= vs_base[0];          (V1168->c.c_car)= vs_base[0];
5294          if((V1154=MMcdr(V1154))==Cnil){          if((V1169=MMcdr(V1169))==Cnil){
5295          {object V1157 = base[0];          {object V1172 = base[0];
5296          VMR70(V1157)}}          VMR70(V1172)}}
5297          V1153=MMcdr(V1153)=MMcons(Cnil,Cnil);          V1168=MMcdr(V1168)=MMcons(Cnil,Cnil);
5298          goto T2170;}}          goto T2170;}}
5299          base[0]=base[0];          base[0]=base[0];
5300          return Cnil;          return Cnil;
5301  }  }
5302  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))        */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))        */
5303    
5304  static object LI84(V1161,V1162,V1163)  static object LI84(V1176,V1177,V1178)
5305    
5306  object V1161;object V1162;object V1163;  object V1176;object V1177;object V1178;
5307  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
5308          goto TTL;          goto TTL;
5309  TTL:;  TTL:;
5310          {object V1165;          {object V1180;
5311          object V1166;          object V1181;
5312          object V1167;          object V1182;
5313          object V1168;          object V1183;
5314          if(((V1162))==Cnil){          if(((V1177))==Cnil){
5315          goto T2179;}          goto T2179;}
5316          base[0]= (V1162);          base[0]= (V1177);
5317          base[1]= VV[110];          base[1]= VV[110];
5318          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5319          (void) (*Lnk301)();          (void) (*Lnk301)();
5320          vs_top=sup;          vs_top=sup;
5321          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5322          goto T2183;}          goto T2183;}
5323          V1165= (          V1180= (
5324          V1169 = STREF(object,(V1162),0),          V1184 = STREF(object,(V1177),0),
5325          (type_of(V1169) == t_sfun ?(*((V1169)->sfn.sfn_self)):          (type_of(V1184) == t_sfun ?(*((V1184)->sfn.sfn_self)):
5326          (fcall.argd=3,type_of(V1169)==t_vfun) ?          (fcall.argd=3,type_of(V1184)==t_vfun) ?
5327          (*((V1169)->sfn.sfn_self)):          (*((V1184)->sfn.sfn_self)):
5328          (fcall.fun=(V1169),fcalln))(STREF(object,(V1162),4),STREF(object,(V1162),8),(V1163)));          (fcall.fun=(V1184),fcalln))(STREF(object,(V1177),4),STREF(object,(V1177),8),(V1178)));
5329          goto T2177;          goto T2177;
5330          goto T2183;          goto T2183;
5331  T2183:;  T2183:;
5332          if(!(type_of((V1162))==t_fixnum)){          if(!(type_of((V1177))==t_fixnum)){
5333          goto T2188;}          goto T2188;}
5334          {object V1170;          {object V1185;
5335          object V1171;          object V1186;
5336          if(type_of(V1163)==t_structure){          if(type_of(V1178)==t_structure){
5337          goto T2194;}          goto T2194;}
5338          goto T2192;          goto T2192;
5339          goto T2194;          goto T2194;
5340  T2194:;  T2194:;
5341          if(!(((V1163)->str.str_def)==(VV[111]))){          if(!(((V1178)->str.str_def)==(VV[111]))){
5342          goto T2192;}          goto T2192;}
5343          V1170= STREF(object,(V1163),4);          V1185= STREF(object,(V1178),4);
5344          goto T2190;          goto T2190;
5345          goto T2192;          goto T2192;
5346  T2192:;{object V1173;  T2192:;{object V1188;
5347          V1173= (VV[2]->s.s_dbind);          V1188= (VV[2]->s.s_dbind);
5348          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5349          base[3]= (V1163);          base[3]= (V1178);
5350          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5351          (void) (*Lnk177)();          (void) (*Lnk177)();
5352          vs_top=sup;          vs_top=sup;
5353          V1174= vs_base[0];          V1189= vs_base[0];
5354          if(!((V1173)==(CMPcar(V1174)))){          if(!((V1188)==(CMPcar(V1189)))){
5355          goto T2197;}}          goto T2197;}}
5356          V1170= CMPcar(((V1163))->cc.cc_turbo[12]);          V1185= CMPcar(((V1178))->cc.cc_turbo[12]);
5357          goto T2190;          goto T2190;
5358          goto T2197;          goto T2197;
5359  T2197:;  T2197:;
5360          V1170= Cnil;          V1185= Cnil;
5361          goto T2190;          goto T2190;
5362  T2190:;  T2190:;
5363          if(((V1170))==Cnil){          if(((V1185))==Cnil){
5364          goto T2204;}          goto T2204;}
5365          V1171= ((V1170))->v.v_self[fix((V1162))];          V1186= ((V1185))->v.v_self[fix((V1177))];
5366          goto T2202;          goto T2202;
5367          goto T2204;          goto T2204;
5368  T2204:;  T2204:;
5369          V1171= Cnil;          V1186= Cnil;
5370          goto T2202;          goto T2202;
5371  T2202:;  T2202:;
5372          if(!(((V1171))==(VV[3]))){          if(!(((V1186))==(VV[3]))){
5373          goto T2207;}          goto T2207;}
5374          base[2]= (V1163);          base[2]= (V1178);
5375          base[3]= (V1162);          base[3]= (V1177);
5376          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5377          (void) (*Lnk302)();          (void) (*Lnk302)();
5378          vs_top=sup;          vs_top=sup;
5379          V1165= vs_base[0];          V1180= vs_base[0];
5380          goto T2177;          goto T2177;
5381          goto T2207;          goto T2207;
5382  T2207:;  T2207:;
5383          V1165= (V1171);          V1180= (V1186);
5384          goto T2177;}          goto T2177;}
5385          goto T2188;          goto T2188;
5386  T2188:;  T2188:;
5387          base[0]= V1162;          base[0]= V1177;
5388          base[1]= VV[112];          base[1]= VV[112];
5389          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5390          (void) (*Lnk301)();          (void) (*Lnk301)();
5391          vs_top=sup;          vs_top=sup;
5392          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5393          goto T2212;}          goto T2212;}
5394          {object V1176;          {object V1191;
5395          object V1177;          object V1192;
5396          object V1178;          object V1193;
5397          V1176= STREF(object,(V1162),0);          V1191= STREF(object,(V1177),0);
5398          V1177= make_cons((V1163),Cnil);          V1192= make_cons((V1178),Cnil);
5399          V1178= STREF(object,(V1162),4);          V1193= STREF(object,(V1177),4);
5400          if(((V1178))==Cnil){          if(((V1193))==Cnil){
5401          goto T2220;}          goto T2220;}
5402          if((CMPcdr((V1178)))!=Cnil){          if((CMPcdr((V1193)))!=Cnil){
5403          goto T2220;}          goto T2220;}
5404          V1165= (          V1180= (
5405          (type_of((V1176)) == t_sfun ?(*(((V1176))->sfn.sfn_self)):          (type_of((V1191)) == t_sfun ?(*(((V1191))->sfn.sfn_self)):
5406          (fcall.argd=2,type_of((V1176))==t_vfun) ?          (fcall.argd=2,type_of((V1191))==t_vfun) ?
5407          (*(((V1176))->sfn.sfn_self)):          (*(((V1191))->sfn.sfn_self)):
5408          (fcall.fun=((V1176)),fcalln))((V1177),CMPcar((V1178))));          (fcall.fun=((V1191)),fcalln))((V1192),CMPcar((V1193))));
5409          goto T2177;          goto T2177;
5410          goto T2220;          goto T2220;
5411  T2220:;  T2220:;
5412          base[0]= (V1176);          base[0]= (V1191);
5413          base[1]= (V1177);          base[1]= (V1192);
5414          {object V1179;          {object V1194;
5415          V1179= (V1178);          V1194= (V1193);
5416           vs_top=base+2;           vs_top=base+2;
5417           while(V1179!=Cnil)           while(V1194!=Cnil)
5418           {vs_push((V1179)->c.c_car);V1179=(V1179)->c.c_cdr;}           {vs_push((V1194)->c.c_car);V1194=(V1194)->c.c_cdr;}
5419          vs_base=base+1;}          vs_base=base+1;}
5420          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5421                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5422                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5423                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5424          vs_top=sup;          vs_top=sup;
5425          V1165= vs_base[0];          V1180= vs_base[0];
5426          goto T2177;}          goto T2177;}
5427          goto T2212;          goto T2212;
5428  T2212:;  T2212:;
5429          base[0]= V1162;          base[0]= V1177;
5430          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5431          Lfunctionp();          Lfunctionp();
5432          vs_top=sup;          vs_top=sup;
5433          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5434          goto T2228;}          goto T2228;}
5435          V1165= (          V1180= (
5436          (type_of((V1162)) == t_sfun ?(*(((V1162))->sfn.sfn_self)):          (type_of((V1177)) == t_sfun ?(*(((V1177))->sfn.sfn_self)):
5437          (fcall.argd=1,type_of((V1162))==t_vfun) ?          (fcall.argd=1,type_of((V1177))==t_vfun) ?
5438          (*(((V1162))->sfn.sfn_self)):          (*(((V1177))->sfn.sfn_self)):
5439          (fcall.fun=((V1162)),fcalln))((V1163)));          (fcall.fun=((V1177)),fcalln))((V1178)));
5440          goto T2177;          goto T2177;
5441          goto T2228;          goto T2228;
5442  T2228:;  T2228:;
5443          base[1]= VV[113];          base[1]= VV[113];
5444          base[2]= V1162;          base[2]= V1177;
5445          base[3]= VV[114];          base[3]= VV[114];
5446          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5447          (void) (*Lnk303)();          (void) (*Lnk303)();
# Line 5435  T2228:; Line 5450  T2228:;
5450          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5451          Lerror();          Lerror();
5452          vs_top=sup;          vs_top=sup;
5453          V1165= vs_base[0];          V1180= vs_base[0];
5454          goto T2177;          goto T2177;
5455          goto T2179;          goto T2179;
5456  T2179:;  T2179:;
# Line 5443  T2179:; Line 5458  T2179:;
5458          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5459          Lerror();          Lerror();
5460          vs_top=sup;          vs_top=sup;
5461          V1165= vs_base[0];          V1180= vs_base[0];
5462          goto T2177;          goto T2177;
5463  T2177:;  T2177:;
5464          base[0]= (V1163);          base[0]= (V1178);
5465          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5466          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
5467          vs_top=sup;          vs_top=sup;
5468          V1166= vs_base[0];          V1181= vs_base[0];
5469          V1167= Cnil;          V1182= Cnil;
5470          V1168= Cnil;          V1183= Cnil;
5471          {register object V1180;          {register object V1195;
5472          register object V1181;          register object V1196;
5473          V1180= (V1165);          V1195= (V1180);
5474          V1181= CMPcar((V1180));          V1196= CMPcar((V1195));
5475          goto T2242;          goto T2242;
5476  T2242:;  T2242:;
5477          if(!(((V1180))==Cnil)){          if(!(((V1195))==Cnil)){
5478          goto T2243;}          goto T2243;}
5479          goto T2238;          goto T2238;
5480          goto T2243;          goto T2243;
5481  T2243:;  T2243:;
5482          {object V1182;          {object V1197;
5483          base[1]= (V1181);          base[1]= (V1196);
5484          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5485          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
5486          vs_top=sup;          vs_top=sup;
5487          V1182= vs_base[0];          V1197= vs_base[0];
5488          if(!(((V1182))==(VV[19]))){          if(!(((V1197))==(VV[19]))){
5489          goto T2251;}          goto T2251;}
5490          V1167= make_cons(V1181,(V1167));          V1182= make_cons(V1196,(V1182));
5491          goto T2247;          goto T2247;
5492          goto T2251;          goto T2251;
5493  T2251:;  T2251:;
5494          base[1]= (V1182);          base[1]= (V1197);
5495          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5496          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk288)(Lclptr288);
5497          vs_top=sup;          vs_top=sup;
5498          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5499          goto T2247;}          goto T2247;}
5500          V1168= make_cons(V1181,(V1168));}          V1183= make_cons(V1196,(V1183));}
5501          goto T2247;          goto T2247;
5502  T2247:;  T2247:;
5503          V1180= CMPcdr((V1180));          V1195= CMPcdr((V1195));
5504          V1181= CMPcar((V1180));          V1196= CMPcar((V1195));
5505          goto T2242;}          goto T2242;}
5506          goto T2238;          goto T2238;
5507  T2238:;  T2238:;
5508          {object V1185;          {object V1200;
5509          V1185= (*(LnkLI304))((V1166),(V1167));          V1200= (*(LnkLI304))((V1181),(V1182));
5510          {register object V1186;          {register object V1201;
5511          register object V1187;          register object V1202;
5512          V1186= (V1167);          V1201= (V1182);
5513          V1187= CMPcar((V1186));          V1202= CMPcar((V1201));
5514          goto T2268;          goto T2268;
5515  T2268:;  T2268:;
5516          if(!(((V1186))==Cnil)){          if(!(((V1201))==Cnil)){
5517          goto T2269;}          goto T2269;}
5518          goto T2263;          goto T2263;
5519          goto T2269;          goto T2269;
5520  T2269:;  T2269:;
5521          base[3]= (V1187);          base[3]= (V1202);
5522          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5523          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
5524          vs_top=sup;          vs_top=sup;
5525          base[2]= vs_base[0];          base[2]= vs_base[0];
5526          base[3]= (V1185);          base[3]= (V1200);
5527          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5528          (void) (*Lnk305)();          (void) (*Lnk305)();
5529          vs_top=sup;          vs_top=sup;
5530          base[1]= vs_base[0];          base[1]= vs_base[0];
5531          base[2]= V1187;          base[2]= V1202;
5532          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5533          (void) (*Lnk306)(Lclptr306);          (void) (*Lnk306)(Lclptr306);
5534          vs_top=sup;          vs_top=sup;
5535          V1186= CMPcdr((V1186));          V1201= CMPcdr((V1201));
5536          V1187= CMPcar((V1186));          V1202= CMPcar((V1201));
5537          goto T2268;}}          goto T2268;}}
5538          goto T2263;          goto T2263;
5539  T2263:;  T2263:;
5540          {register object V1189;          {register object V1204;
5541          register object V1190;          register object V1205;
5542          V1189= (V1168);          V1204= (V1183);
5543          V1190= CMPcar((V1189));          V1205= CMPcar((V1204));
5544          goto T2288;          goto T2288;
5545  T2288:;  T2288:;
5546          if(!(((V1189))==Cnil)){          if(!(((V1204))==Cnil)){
5547          goto T2289;}          goto T2289;}
5548          goto T2284;          goto T2284;
5549          goto T2289;          goto T2289;
5550  T2289:;  T2289:;
5551          base[2]= (V1190);          base[2]= (V1205);
5552          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5553          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
5554          vs_top=sup;          vs_top=sup;
5555          V1193= vs_base[0];          V1208= vs_base[0];
5556          base[3]= (V1190);          base[3]= (V1205);
5557          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5558          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
5559          vs_top=sup;          vs_top=sup;
# Line 5546  T2289:; Line 5561  T2289:;
5561          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5562          (void) (*Lnk31)(Lclptr31);          (void) (*Lnk31)(Lclptr31);
5563          vs_top=sup;          vs_top=sup;
5564          V1194= vs_base[0];          V1209= vs_base[0];
5565          {register object x= V1193,V1192= V1194;          {register object x= V1208,V1207= V1209;
5566          while(V1192!=Cnil)          while(V1207!=Cnil)
5567          if(eql(x,V1192->c.c_car->c.c_car) &&V1192->c.c_car != Cnil){          if(eql(x,V1207->c.c_car->c.c_car) &&V1207->c.c_car != Cnil){
5568          base[1]= (V1192->c.c_car);          base[1]= (V1207->c.c_car);
5569          goto T2294;          goto T2294;
5570          }else V1192=V1192->c.c_cdr;          }else V1207=V1207->c.c_cdr;
5571          base[1]= Cnil;}          base[1]= Cnil;}
5572          goto T2294;          goto T2294;
5573  T2294:;  T2294:;
5574          base[2]= V1190;          base[2]= V1205;
5575          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5576          (void) (*Lnk306)(Lclptr306);          (void) (*Lnk306)(Lclptr306);
5577          vs_top=sup;          vs_top=sup;
5578          V1189= CMPcdr((V1189));          V1204= CMPcdr((V1204));
5579          V1190= CMPcar((V1189));          V1205= CMPcar((V1204));
5580          goto T2288;}          goto T2288;}
5581          goto T2284;          goto T2284;
5582  T2284:;  T2284:;
5583          base[0]=VV[307]->s.s_gfdef;          base[0]=VV[307]->s.s_gfdef;
5584          {          {
5585          object V1195= (V1165);          object V1210= (V1180);
5586          if(V1195==Cnil){          if(V1210==Cnil){
5587          goto T2306;}          goto T2306;}
5588          goto T2307;          goto T2307;
5589  T2307:;  T2307:;
5590          base[1]= (V1195->c.c_car);          base[1]= (V1210->c.c_car);
5591          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5592          (void) (*Lnk307)(Lclptr307);          (void) (*Lnk307)(Lclptr307);
5593          vs_top=sup;          vs_top=sup;
5594          if((V1195=MMcdr(V1195))==Cnil){          if((V1210=MMcdr(V1210))==Cnil){
5595          goto T2306;}          goto T2306;}
5596          goto T2307;}          goto T2307;}
5597          goto T2306;          goto T2306;
5598  T2306:;  T2306:;
5599          {object V1196 = (V1165);          {object V1211 = (V1180);
5600          VMR71(V1196)}}          VMR71(V1211)}}
5601          base[0]=base[0];          base[0]=base[0];
5602          return Cnil;          return Cnil;
5603  }  }
5604  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))  */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))  */
5605    
5606  static object LI85(V1200,V1201,V1202)  static object LI85(V1215,V1216,V1217)
5607    
5608  object V1200;object V1201;register object V1202;  object V1215;object V1216;register object V1217;
5609  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
5610          goto TTL;          goto TTL;
5611  TTL:;  TTL:;
5612          {object V1204;          {object V1219;
5613          object V1205;          object V1220;
5614          V1204= CMPcar((V1200));          V1219= CMPcar((V1215));
5615          V1205= CMPcdr((V1200));          V1220= CMPcdr((V1215));
5616          {object V1206;          {object V1221;
5617          if(type_of(V1202)==t_structure){          if(type_of(V1217)==t_structure){
5618          goto T2320;}          goto T2320;}
5619          goto T2318;          goto T2318;
5620          goto T2320;          goto T2320;
5621  T2320:;  T2320:;
5622          if(!(((V1202)->str.str_def)==(VV[116]))){          if(!(((V1217)->str.str_def)==(VV[116]))){
5623          goto T2318;}          goto T2318;}
5624          V1206= STREF(object,(V1202),4);          V1221= STREF(object,(V1217),4);
5625          goto T2316;          goto T2316;
5626          goto T2318;          goto T2318;
5627  T2318:;{object V1208;  T2318:;{object V1223;
5628          V1208= (VV[2]->s.s_dbind);          V1223= (VV[2]->s.s_dbind);
5629          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5630          base[1]= (V1202);          base[1]= (V1217);
5631          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5632          (void) (*Lnk177)();          (void) (*Lnk177)();
5633          vs_top=sup;          vs_top=sup;
5634          V1209= vs_base[0];          V1224= vs_base[0];
5635          if(!((V1208)==(CMPcar(V1209)))){          if(!((V1223)==(CMPcar(V1224)))){
5636          goto T2323;}}          goto T2323;}}
5637          V1206= CMPcar(((V1202))->cc.cc_turbo[12]);          V1221= CMPcar(((V1217))->cc.cc_turbo[12]);
5638          goto T2316;          goto T2316;
5639          goto T2323;          goto T2323;
5640  T2323:;  T2323:;
5641          V1206= Cnil;          V1221= Cnil;
5642          goto T2316;          goto T2316;
5643  T2316:;  T2316:;
5644          {register object V1213;          {register object V1228;
5645          V1213= ((V1204))->v.v_self[1];          V1228= ((V1219))->v.v_self[1];
5646          if(!(type_of(V1213)==t_fixnum)){          if(!(type_of(V1228)==t_fixnum)){
5647          goto T2335;}          goto T2335;}
5648          V1213= ((V1206))->v.v_self[fix((V1213))];          V1228= ((V1221))->v.v_self[fix((V1228))];
5649          goto T2333;          goto T2333;
5650          goto T2335;          goto T2335;
5651  T2335:;  T2335:;
5652          V1213= VV[3];          V1228= VV[3];
5653          goto T2333;          goto T2333;
5654  T2333:;  T2333:;
5655          if(!(((V1213))==(VV[3]))){          if(!(((V1228))==(VV[3]))){
5656          goto T2338;}          goto T2338;}
5657          base[1]= (V1202);          base[1]= (V1217);
5658          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5659          (void) (*Lnk308)(Lclptr308);          (void) (*Lnk308)(Lclptr308);
5660          vs_top=sup;          vs_top=sup;
5661          V1212= vs_base[0];          V1227= vs_base[0];
5662          goto T2330;          goto T2330;
5663          goto T2338;          goto T2338;
5664  T2338:;  T2338:;
5665          V1212= (V1213);}          V1227= (V1228);}
5666          goto T2330;          goto T2330;
5667  T2330:;  T2330:;
5668          V1215= reverse(V1212);          V1230= reverse(V1227);
5669          {object V1210;          {object V1225;
5670          object V1211= /* INLINE-ARGS */V1215;          object V1226= /* INLINE-ARGS */V1230;
5671          if(V1211==Cnil){          if(V1226==Cnil){
5672          {object V1216 = Cnil;          {object V1231 = Cnil;
5673          VMR72(V1216)}}          VMR72(V1231)}}
5674          base[0]=V1210=MMcons(Cnil,Cnil);          base[0]=V1225=MMcons(Cnil,Cnil);
5675          goto T2329;          goto T2329;
5676  T2329:;  T2329:;
5677          base[2]= (V1211->c.c_car);          base[2]= (V1226->c.c_car);
5678          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5679          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk251)(Lclptr251);
5680          vs_top=sup;          vs_top=sup;
5681          V1220= vs_base[0];          V1235= vs_base[0];
5682          {object V1218;          {object V1233;
5683          object V1219= V1220;          object V1234= V1235;
5684          if(V1219==Cnil){          if(V1234==Cnil){
5685          (V1210->c.c_cdr)= Cnil;          (V1225->c.c_cdr)= Cnil;
5686          goto T2341;}          goto T2341;}
5687          base[1]=V1218=MMcons(Cnil,Cnil);          base[1]=V1233=MMcons(Cnil,Cnil);
5688          goto T2342;          goto T2342;
5689  T2342:;  T2342:;
5690          base[2]= (V1202);          base[2]= (V1217);
5691          base[3]= make_cons((V1219->c.c_car),Cnil);          base[3]= make_cons((V1234->c.c_car),Cnil);
5692          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5693          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
5694          vs_top=sup;          vs_top=sup;
5695          (V1218->c.c_car)= vs_base[0];          (V1233->c.c_car)= vs_base[0];
5696          if((V1219=MMcdr(V1219))==Cnil){          if((V1234=MMcdr(V1234))==Cnil){
5697          (V1210->c.c_cdr)= base[1];          (V1225->c.c_cdr)= base[1];
5698          goto T2341;}          goto T2341;}
5699          V1218=MMcdr(V1218)=MMcons(Cnil,Cnil);          V1233=MMcdr(V1233)=MMcons(Cnil,Cnil);
5700          goto T2342;}          goto T2342;}
5701          goto T2341;          goto T2341;
5702  T2341:;  T2341:;
5703          while(MMcdr(V1210)!=Cnil)V1210=MMcdr(V1210);          while(MMcdr(V1225)!=Cnil)V1225=MMcdr(V1225);
5704          if((V1211=MMcdr(V1211))==Cnil){          if((V1226=MMcdr(V1226))==Cnil){
5705          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
5706          {object V1222 = base[0];          {object V1237 = base[0];
5707          VMR72(V1222)}}          VMR72(V1237)}}
5708          goto T2329;}}}          goto T2329;}}}
5709          base[0]=base[0];          base[0]=base[0];
5710          return Cnil;          return Cnil;
5711  }  }
5712  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))  */  /*      local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))  */
5713    
5714  static object LI86(V1226,V1227,V1228)  static object LI86(V1241,V1242,V1243)
5715    
5716  object V1226;register object V1227;register object V1228;  object V1241;register object V1242;register object V1243;
5717  {        VMB73 VMS73 VMV73  {        VMB73 VMS73 VMV73
5718          goto TTL;          goto TTL;
5719  TTL:;  TTL:;
5720          {object V1230;          {object V1245;
5721          if(((V1227))==Cnil){          if(((V1242))==Cnil){
5722          goto T2353;}          goto T2353;}
5723          base[0]= (V1227);          base[0]= (V1242);
5724          base[1]= VV[110];          base[1]= VV[110];
5725          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5726          (void) (*Lnk301)();          (void) (*Lnk301)();
5727          vs_top=sup;          vs_top=sup;
5728          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5729          goto T2357;}          goto T2357;}
5730          V1230= (          V1245= (
5731          V1231 = STREF(object,(V1227),0),          V1246 = STREF(object,(V1242),0),
5732          (type_of(V1231) == t_sfun ?(*((V1231)->sfn.sfn_self)):          (type_of(V1246) == t_sfun ?(*((V1246)->sfn.sfn_self)):
5733          (fcall.argd=3,type_of(V1231)==t_vfun) ?          (fcall.argd=3,type_of(V1246)==t_vfun) ?
5734          (*((V1231)->sfn.sfn_self)):          (*((V1246)->sfn.sfn_self)):
5735          (fcall.fun=(V1231),fcalln))(STREF(object,(V1227),4),STREF(object,(V1227),8),(V1228)));          (fcall.fun=(V1246),fcalln))(STREF(object,(V1242),4),STREF(object,(V1242),8),(V1243)));
5736          goto T2351;          goto T2351;
5737          goto T2357;          goto T2357;
5738  T2357:;  T2357:;
5739          if(!(type_of((V1227))==t_fixnum)){          if(!(type_of((V1242))==t_fixnum)){
5740          goto T2362;}          goto T2362;}
5741          {object V1232;          {object V1247;
5742          object V1233;          object V1248;
5743          if(type_of(V1228)==t_structure){          if(type_of(V1243)==t_structure){
5744          goto T2368;}          goto T2368;}
5745          goto T2366;          goto T2366;
5746          goto T2368;          goto T2368;
5747  T2368:;  T2368:;
5748          if(!(((V1228)->str.str_def)==(VV[117]))){          if(!(((V1243)->str.str_def)==(VV[117]))){
5749          goto T2366;}          goto T2366;}
5750          V1232= STREF(object,(V1228),4);          V1247= STREF(object,(V1243),4);
5751          goto T2364;          goto T2364;
5752          goto T2366;          goto T2366;
5753  T2366:;{object V1235;  T2366:;{object V1250;
5754          V1235= (VV[2]->s.s_dbind);          V1250= (VV[2]->s.s_dbind);
5755          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5756          base[3]= (V1228);          base[3]= (V1243);
5757          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5758          (void) (*Lnk177)();          (void) (*Lnk177)();
5759          vs_top=sup;          vs_top=sup;
5760          V1236= vs_base[0];          V1251= vs_base[0];
5761          if(!((V1235)==(CMPcar(V1236)))){          if(!((V1250)==(CMPcar(V1251)))){
5762          goto T2371;}}          goto T2371;}}
5763          V1232= CMPcar(((V1228))->cc.cc_turbo[12]);          V1247= CMPcar(((V1243))->cc.cc_turbo[12]);
5764          goto T2364;          goto T2364;
5765          goto T2371;          goto T2371;
5766  T2371:;  T2371:;
5767          V1232= Cnil;          V1247= Cnil;
5768          goto T2364;          goto T2364;
5769  T2364:;  T2364:;
5770          if(((V1232))==Cnil){          if(((V1247))==Cnil){
5771          goto T2378;}          goto T2378;}
5772          V1233= ((V1232))->v.v_self[fix((V1227))];          V1248= ((V1247))->v.v_self[fix((V1242))];
5773          goto T2376;          goto T2376;
5774          goto T2378;          goto T2378;
5775  T2378:;  T2378:;
5776          V1233= Cnil;          V1248= Cnil;
5777          goto T2376;          goto T2376;
5778  T2376:;  T2376:;
5779          if(!(((V1233))==(VV[3]))){          if(!(((V1248))==(VV[3]))){
5780          goto T2381;}          goto T2381;}
5781          base[2]= (V1228);          base[2]= (V1243);
5782          base[3]= (V1227);          base[3]= (V1242);
5783          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5784          (void) (*Lnk302)();          (void) (*Lnk302)();
5785          vs_top=sup;          vs_top=sup;
5786          V1230= vs_base[0];          V1245= vs_base[0];
5787          goto T2351;          goto T2351;
5788          goto T2381;          goto T2381;
5789  T2381:;  T2381:;
5790          V1230= (V1233);          V1245= (V1248);
5791          goto T2351;}          goto T2351;}
5792          goto T2362;          goto T2362;
5793  T2362:;  T2362:;
5794          {register object V1237;          {register object V1252;
5795          V1237= (V1227);          V1252= (V1242);
5796          base[0]= (V1237);          base[0]= (V1252);
5797          base[1]= VV[112];          base[1]= VV[112];
5798          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5799          (void) (*Lnk301)();          (void) (*Lnk301)();
5800          vs_top=sup;          vs_top=sup;
5801          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5802          goto T2386;}          goto T2386;}
5803          {object V1238;          {object V1253;
5804          object V1239;          object V1254;
5805          register object V1240;          register object V1255;
5806          V1238= STREF(object,(V1227),0);          V1253= STREF(object,(V1242),0);
5807          V1239= make_cons((V1228),Cnil);          V1254= make_cons((V1243),Cnil);
5808          V1240= STREF(object,(V1227),4);          V1255= STREF(object,(V1242),4);
5809          if(((V1240))==Cnil){          if(((V1255))==Cnil){
5810          goto T2394;}          goto T2394;}
5811          if((CMPcdr((V1240)))!=Cnil){          if((CMPcdr((V1255)))!=Cnil){
5812          goto T2394;}          goto T2394;}
5813          V1230= (          V1245= (
5814          (type_of((V1238)) == t_sfun ?(*(((V1238))->sfn.sfn_self)):          (type_of((V1253)) == t_sfun ?(*(((V1253))->sfn.sfn_self)):
5815          (fcall.argd=2,type_of((V1238))==t_vfun) ?          (fcall.argd=2,type_of((V1253))==t_vfun) ?
5816          (*(((V1238))->sfn.sfn_self)):          (*(((V1253))->sfn.sfn_self)):
5817          (fcall.fun=((V1238)),fcalln))((V1239),CMPcar((V1240))));          (fcall.fun=((V1253)),fcalln))((V1254),CMPcar((V1255))));
5818          goto T2351;          goto T2351;
5819          goto T2394;          goto T2394;
5820  T2394:;  T2394:;
5821          base[0]= (V1238);          base[0]= (V1253);
5822          base[1]= (V1239);          base[1]= (V1254);
5823          {object V1241;          {object V1256;
5824          V1241= (V1240);          V1256= (V1255);
5825           vs_top=base+2;           vs_top=base+2;
5826           while(V1241!=Cnil)           while(V1256!=Cnil)
5827           {vs_push((V1241)->c.c_car);V1241=(V1241)->c.c_cdr;}           {vs_push((V1256)->c.c_car);V1256=(V1256)->c.c_cdr;}
5828          vs_base=base+1;}          vs_base=base+1;}
5829          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5830                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5831                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5832                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5833          vs_top=sup;          vs_top=sup;
5834          V1230= vs_base[0];          V1245= vs_base[0];
5835          goto T2351;}          goto T2351;}
5836          goto T2386;          goto T2386;
5837  T2386:;  T2386:;
5838          base[0]= (V1237);          base[0]= (V1252);
5839          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5840          Lfunctionp();          Lfunctionp();
5841          vs_top=sup;          vs_top=sup;
5842          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5843          goto T2402;}          goto T2402;}
5844          V1230= (          V1245= (
5845          (type_of((V1227)) == t_sfun ?(*(((V1227))->sfn.sfn_self)):          (type_of((V1242)) == t_sfun ?(*(((V1242))->sfn.sfn_self)):
5846          (fcall.argd=1,type_of((V1227))==t_vfun) ?          (fcall.argd=1,type_of((V1242))==t_vfun) ?
5847          (*(((V1227))->sfn.sfn_self)):          (*(((V1242))->sfn.sfn_self)):
5848          (fcall.fun=((V1227)),fcalln))((V1228)));          (fcall.fun=((V1242)),fcalln))((V1243)));
5849          goto T2351;          goto T2351;
5850          goto T2402;          goto T2402;
5851  T2402:;  T2402:;
5852          base[1]= VV[113];          base[1]= VV[113];
5853          base[2]= (V1237);          base[2]= (V1252);
5854          base[3]= VV[118];          base[3]= VV[118];
5855          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5856          (void) (*Lnk303)();          (void) (*Lnk303)();
# Line 5844  T2402:; Line 5859  T2402:;
5859          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5860          Lerror();          Lerror();
5861          vs_top=sup;          vs_top=sup;
5862          V1230= vs_base[0];          V1245= vs_base[0];
5863          goto T2351;}          goto T2351;}
5864          goto T2353;          goto T2353;
5865  T2353:;  T2353:;
# Line 5852  T2353:; Line 5867  T2353:;
5867          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5868          Lerror();          Lerror();
5869          vs_top=sup;          vs_top=sup;
5870          V1230= vs_base[0];          V1245= vs_base[0];
5871          goto T2351;          goto T2351;
5872  T2351:;  T2351:;
5873          base[0]=VV[307]->s.s_gfdef;          base[0]=VV[307]->s.s_gfdef;
5874          {          {
5875          object V1242= (V1230);          object V1257= (V1245);
5876          if(V1242==Cnil){          if(V1257==Cnil){
5877          goto T2410;}          goto T2410;}
5878          goto T2411;          goto T2411;
5879  T2411:;  T2411:;
5880          base[1]= (V1242->c.c_car);          base[1]= (V1257->c.c_car);
5881          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5882          (void) (*Lnk307)(Lclptr307);          (void) (*Lnk307)(Lclptr307);
5883          vs_top=sup;          vs_top=sup;
5884          if((V1242=MMcdr(V1242))==Cnil){          if((V1257=MMcdr(V1257))==Cnil){
5885          goto T2410;}          goto T2410;}
5886          goto T2411;}          goto T2411;}
5887          goto T2410;          goto T2410;
5888  T2410:;  T2410:;
5889          {object V1243 = (V1230);          {object V1258 = (V1245);
5890          VMR73(V1243)}}          VMR73(V1258)}}
5891          base[0]=base[0];          base[0]=base[0];
5892          return Cnil;          return Cnil;
5893  }  }
# Line 5882  static void L87() Line 5897  static void L87()
5897  {register object *base=vs_base;  {register object *base=vs_base;
5898          register object *sup=base+VM74; VC74          register object *sup=base+VM74; VC74
5899          vs_check;          vs_check;
5900          {object V1244;          {object V1259;
5901          object V1245;          object V1260;
5902          object V1246;          object V1261;
5903          object V1247;          object V1262;
5904          check_arg(4);          check_arg(4);
5905          V1244=(base[0]);          V1259=(base[0]);
5906          V1245=(base[1]);          V1260=(base[1]);
5907          V1246=(base[2]);          V1261=(base[2]);
5908          V1247=(base[3]);          V1262=(base[3]);
5909          vs_top=sup;          vs_top=sup;
5910          goto TTL;          goto TTL;
5911  TTL:;  TTL:;
5912          {object V1249;          {object V1264;
5913          object V1250;          object V1265;
5914          base[6]= (V1246);          base[6]= (V1261);
5915          base[7]= (V1247);          base[7]= (V1262);
5916          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
5917          (void) (*Lnk309)(Lclptr309);          (void) (*Lnk309)(Lclptr309);
5918          vs_top=sup;          vs_top=sup;
5919          V1249= vs_base[0];          V1264= vs_base[0];
5920          base[6]= (V1246);          base[6]= (V1261);
5921          base[7]= (V1249);          base[7]= (V1264);
5922          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
5923          (void) (*Lnk310)(Lclptr310);          (void) (*Lnk310)(Lclptr310);
5924          vs_top=sup;          vs_top=sup;
5925          V1250= vs_base[0];          V1265= vs_base[0];
5926          base[6]=VV[223]->s.s_gfdef;          base[6]=VV[223]->s.s_gfdef;
5927          base[7]= (V1250);          base[7]= (V1265);
5928          {object V1251;          {object V1266;
5929          V1251= (V1249);          V1266= (V1264);
5930           vs_top=base+8;           vs_top=base+8;
5931           while(V1251!=Cnil)           while(V1266!=Cnil)
5932           {vs_push((V1251)->c.c_car);V1251=(V1251)->c.c_cdr;}           {vs_push((V1266)->c.c_car);V1266=(V1266)->c.c_cdr;}
5933          vs_base=base+7;}          vs_base=base+7;}
5934          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk223)(Lclptr223);
5935          return;}          return;}
# Line 5922  TTL:; Line 5937  TTL:;
5937  }  }
5938  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))    */  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))    */
5939    
5940  static object LI88(V1256,V1257,V1258,V1259)  static object LI88(V1271,V1272,V1273,V1274)
5941    
5942  object V1256;object V1257;object V1258;object V1259;  object V1271;object V1272;object V1273;object V1274;
5943  {        VMB75 VMS75 VMV75  {        VMB75 VMS75 VMV75
5944          goto TTL;          goto TTL;
5945  TTL:;  TTL:;
5946          {object V1261 = (VFUN_NARGS=1,(*(LnkLI219))(VV[119]));          {object V1276 = (VFUN_NARGS=1,(*(LnkLI219))(VV[119]));
5947          VMR75(V1261)}          VMR75(V1276)}
5948          return Cnil;          return Cnil;
5949  }  }
5950  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))      */  /*      local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))      */
5951    
5952  static object LI89(V1266,V1267,V1268,V1269)  static object LI89(V1281,V1282,V1283,V1284)
5953    
5954  object V1266;object V1267;object V1268;object V1269;  object V1281;object V1282;object V1283;object V1284;
5955  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
5956          goto TTL;          goto TTL;
5957  TTL:;  TTL:;
5958          {object V1271 = (VFUN_NARGS=1,(*(LnkLI219))(VV[120]));          {object V1286 = (VFUN_NARGS=1,(*(LnkLI219))(VV[120]));
5959          VMR76(V1271)}          VMR76(V1286)}
5960          return Cnil;          return Cnil;
5961  }  }
5962  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))        */  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))        */
5963    
5964  static object LI90(V1276,V1277,V1278,V1279)  static object LI90(V1291,V1292,V1293,V1294)
5965    
5966  object V1276;object V1277;object V1278;object V1279;  object V1291;object V1292;object V1293;object V1294;
5967  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
5968          goto TTL;          goto TTL;
5969  TTL:;  TTL:;
5970          {object V1281;          {object V1296;
5971          object V1282;          object V1297;
5972          object V1283;          object V1298;
5973          register object V1284;          register object V1299;
5974          object V1285;          object V1300;
5975          register object V1286;          register object V1301;
5976          register object V1287;          register object V1302;
5977          register object V1288;          register object V1303;
5978          register object V1289;          register object V1304;
5979          V1281= Cnil;          V1296= Cnil;
5980          V1282= Cnil;          V1297= Cnil;
5981          V1283= Cnil;          V1298= Cnil;
5982          V1284= Cnil;          V1299= Cnil;
5983          V1285= Cnil;          V1300= Cnil;
5984          V1286= Ct;          V1301= Ct;
5985          V1287= Cnil;          V1302= Cnil;
5986          V1288= Cnil;          V1303= Cnil;
5987          V1289= Cnil;          V1304= Cnil;
5988          {register object V1290;          {register object V1305;
5989          register object V1291;          register object V1306;
5990          V1290= (V1279);          V1305= (V1294);
5991          V1291= CMPcar((V1290));          V1306= CMPcar((V1305));
5992          goto T2447;          goto T2447;
5993  T2447:;  T2447:;
5994          if(!(((V1290))==Cnil)){          if(!(((V1305))==Cnil)){
5995          goto T2448;}          goto T2448;}
5996          goto T2443;          goto T2443;
5997          goto T2448;          goto T2448;
5998  T2448:;  T2448:;
5999          if(((V1291))==Cnil){          if(((V1306))==Cnil){
6000          goto T2452;}          goto T2452;}
6001          if(((V1287))!=Cnil){          if(((V1302))!=Cnil){
6002          goto T2455;}          goto T2455;}
6003          base[1]= (V1291);          base[1]= (V1306);
6004          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6005          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
6006          vs_top=sup;          vs_top=sup;
6007          V1281= vs_base[0];          V1296= vs_base[0];
6008          V1287= Ct;          V1302= Ct;
6009          goto T2455;          goto T2455;
6010  T2455:;  T2455:;
6011          if(((V1288))!=Cnil){          if(((V1303))!=Cnil){
6012          goto T2462;}          goto T2462;}
6013          base[1]= (V1291);          base[1]= (V1306);
6014          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6015          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk235)(Lclptr235);
6016          vs_top=sup;          vs_top=sup;
6017          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6018          goto T2462;}          goto T2462;}
6019          base[1]= (V1291);          base[1]= (V1306);
6020          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6021          (void) (*Lnk311)(Lclptr311);          (void) (*Lnk311)(Lclptr311);
6022          vs_top=sup;          vs_top=sup;
6023          V1283= vs_base[0];          V1298= vs_base[0];
6024          base[1]= (V1291);          base[1]= (V1306);
6025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6026          (void) (*Lnk235)(Lclptr235);          (void) (*Lnk235)(Lclptr235);
6027          vs_top=sup;          vs_top=sup;
6028          V1282= vs_base[0];          V1297= vs_base[0];
6029          V1288= Ct;          V1303= Ct;
6030          goto T2462;          goto T2462;
6031  T2462:;  T2462:;
6032          if(((V1289))!=Cnil){          if(((V1304))!=Cnil){
6033          goto T2475;}          goto T2475;}
6034          base[1]= (V1291);          base[1]= (V1306);
6035          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6036          (void) (*Lnk234)(Lclptr234);          (void) (*Lnk234)(Lclptr234);
6037          vs_top=sup;          vs_top=sup;
6038          V1285= vs_base[0];          V1300= vs_base[0];
6039          V1289= Ct;          V1304= Ct;
6040          goto T2475;          goto T2475;
6041  T2475:;  T2475:;
6042          base[1]= (V1291);          base[1]= (V1306);
6043          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6044          (void) (*Lnk312)(Lclptr312);          (void) (*Lnk312)(Lclptr312);
6045          vs_top=sup;          vs_top=sup;
6046          V1292= vs_base[0];          V1307= vs_base[0];
6047          V1284= append(V1292,(V1284));          V1308 = (V1299);
6048          {register object V1293;          V1299= append(V1307,V1308);
6049          base[1]= (V1291);          {register object V1309;
6050            base[1]= (V1306);
6051          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6052          (void) (*Lnk313)(Lclptr313);          (void) (*Lnk313)(Lclptr313);
6053          vs_top=sup;          vs_top=sup;
6054          V1293= vs_base[0];          V1309= vs_base[0];
6055          if(!(((V1286))==(Ct))){          if(!(((V1301))==(Ct))){
6056          goto T2490;}          goto T2490;}
6057          V1286= (V1293);          V1301= (V1309);
6058          goto T2488;          goto T2488;
6059          goto T2490;          goto T2490;
6060  T2490:;  T2490:;
6061          base[1]= (V1286);          base[1]= (V1301);
6062          base[2]= (V1293);          base[2]= (V1309);
6063          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6064          (void) (*Lnk314)();          (void) (*Lnk314)();
6065          vs_top=sup;          vs_top=sup;
# Line 6052  T2490:; Line 6068  T2490:;
6068          goto T2488;          goto T2488;
6069          goto T2493;          goto T2493;
6070  T2493:;  T2493:;
6071          V1286= list(3,VV[121],(V1286),(V1293));          V1301= list(3,VV[121],(V1301),(V1309));
6072          goto T2488;          goto T2488;
6073  T2488:;}  T2488:;}
6074          goto T2452;          goto T2452;
6075  T2452:;  T2452:;
6076          V1290= CMPcdr((V1290));          V1305= CMPcdr((V1305));
6077          V1291= CMPcar((V1290));          V1306= CMPcar((V1305));
6078          goto T2447;}          goto T2447;}
6079          goto T2443;          goto T2443;
6080  T2443:;  T2443:;
6081          base[0]= VV[50];          base[0]= VV[50];
6082          base[1]= (V1281);          base[1]= (V1296);
6083          base[2]= VV[122];          base[2]= VV[122];
6084          base[3]= (V1283);          base[3]= (V1298);
6085          base[4]= VV[123];          base[4]= VV[123];
6086          base[5]= (V1282);          base[5]= (V1297);
6087          base[6]= VV[124];          base[6]= VV[124];
6088          base[7]= (V1284);          base[7]= (V1299);
6089          base[8]= VV[125];          base[8]= VV[125];
6090          base[9]= (V1285);          base[9]= (V1300);
6091          base[10]= VV[126];          base[10]= VV[126];
6092          base[11]= (V1286);          base[11]= (V1301);
6093          base[12]= VV[65];          base[12]= VV[65];
6094          base[13]= (V1278);          base[13]= (V1293);
6095          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
6096          Llist();          Llist();
6097          vs_top=sup;          vs_top=sup;
6098          {object V1294 = vs_base[0];          {object V1310 = vs_base[0];
6099          VMR77(V1294)}}          VMR77(V1310)}}
6100          base[0]=base[0];          base[0]=base[0];
6101          return Cnil;          return Cnil;
6102  }  }
6103  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))   */  /*      local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))   */
6104    
6105  static object LI91(V1299,V1300,V1301,V1302)  static object LI91(V1315,V1316,V1317,V1318)
6106    
6107  object V1299;register object V1300;register object V1301;register object V1302;  object V1315;register object V1316;register object V1317;register object V1318;
6108  {        VMB78 VMS78 VMV78  {        VMB78 VMS78 VMV78
6109          goto TTL;          goto TTL;
6110  TTL:;  TTL:;
6111          {object V1304;          {object V1320;
6112          V1304= CMPcar((V1302));          V1320= CMPcar((V1318));
6113          base[0]= (V1304);          base[0]= (V1320);
6114          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6115          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk255)(Lclptr255);
6116          vs_top=sup;          vs_top=sup;
6117          V1305= vs_base[0];          V1321= vs_base[0];
6118          base[0]= (V1304);          base[0]= (V1320);
6119          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6120          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
6121          vs_top=sup;          vs_top=sup;
6122          V1306= vs_base[0];          V1322= vs_base[0];
6123          base[0]= (V1304);          base[0]= (V1320);
6124          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6125          (void) (*Lnk316)(Lclptr316);          (void) (*Lnk316)(Lclptr316);
6126          vs_top=sup;          vs_top=sup;
6127          V1307= vs_base[0];          V1323= vs_base[0];
6128          if(((V1300))==Cnil){          if(((V1316))==Cnil){
6129          goto T2528;}          goto T2528;}
6130          base[0]= (V1300);          base[0]= (V1316);
6131          base[1]= VV[110];          base[1]= VV[110];
6132          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6133          (void) (*Lnk301)();          (void) (*Lnk301)();
6134          vs_top=sup;          vs_top=sup;
6135          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6136          goto T2532;}          goto T2532;}
6137          base[0]= STREF(object,(V1300),0);          base[0]= STREF(object,(V1316),0);
6138          base[1]= STREF(object,(V1300),4);          base[1]= STREF(object,(V1316),4);
6139          base[2]= STREF(object,(V1300),8);          base[2]= STREF(object,(V1316),8);
6140          base[3]= (V1301);          base[3]= (V1317);
6141          base[4]= (V1302);          base[4]= (V1318);
6142          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
6143          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6144                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6145                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6146                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6147          vs_top=sup;          vs_top=sup;
6148          V1308= vs_base[0];          V1324= vs_base[0];
6149          goto T2526;          goto T2526;
6150          goto T2532;          goto T2532;
6151  T2532:;  T2532:;
6152          if(!(type_of((V1300))==t_fixnum)){          if(!(type_of((V1316))==t_fixnum)){
6153          goto T2542;}          goto T2542;}
6154          {object V1310;          {object V1326;
6155          if(type_of(V1301)==t_structure){          if(type_of(V1317)==t_structure){
6156          goto T2548;}          goto T2548;}
6157          goto T2546;          goto T2546;
6158          goto T2548;          goto T2548;
6159  T2548:;  T2548:;
6160          if(!(((V1301)->str.str_def)==(VV[129]))){          if(!(((V1317)->str.str_def)==(VV[129]))){
6161          goto T2546;}          goto T2546;}
6162          V1310= STREF(object,(V1301),4);          V1326= STREF(object,(V1317),4);
6163          goto T2544;          goto T2544;
6164          goto T2546;          goto T2546;
6165  T2546:;{object V1312;  T2546:;{object V1328;
6166          V1312= (VV[2]->s.s_dbind);          V1328= (VV[2]->s.s_dbind);
6167          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6168          base[1]= (V1301);          base[1]= (V1317);
6169          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6170          (void) (*Lnk177)();          (void) (*Lnk177)();
6171          vs_top=sup;          vs_top=sup;
6172          V1313= vs_base[0];          V1329= vs_base[0];
6173          if(!((V1312)==(CMPcar(V1313)))){          if(!((V1328)==(CMPcar(V1329)))){
6174          goto T2551;}}          goto T2551;}}
6175          V1310= CMPcar(((V1301))->cc.cc_turbo[12]);          V1326= CMPcar(((V1317))->cc.cc_turbo[12]);
6176          goto T2544;          goto T2544;
6177          goto T2551;          goto T2551;
6178  T2551:;  T2551:;
6179          V1310= Cnil;          V1326= Cnil;
6180          goto T2544;          goto T2544;
6181  T2544:;  T2544:;
6182          if(((V1310))==Cnil){          if(((V1326))==Cnil){
6183          goto T2557;}          goto T2557;}
6184          V1308= ((V1310))->v.v_self[fix((V1300))]= (V1301);          V1324= ((V1326))->v.v_self[fix((V1316))]= (V1317);
6185          goto T2526;          goto T2526;
6186          goto T2557;          goto T2557;
6187  T2557:;  T2557:;
6188          V1308= Cnil;          V1324= Cnil;
6189          goto T2526;}          goto T2526;}
6190          goto T2542;          goto T2542;
6191  T2542:;  T2542:;
6192          {register object V1314;          {register object V1330;
6193          V1314= (V1300);          V1330= (V1316);
6194          base[0]= (V1314);          base[0]= (V1330);
6195          base[1]= VV[112];          base[1]= VV[112];
6196          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6197          (void) (*Lnk301)();          (void) (*Lnk301)();
6198          vs_top=sup;          vs_top=sup;
6199          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6200          goto T2560;}          goto T2560;}
6201          {object V1315;          {object V1331;
6202          object V1316;          object V1332;
6203          register object V1317;          register object V1333;
6204          V1315= STREF(object,(V1300),0);          V1331= STREF(object,(V1316),0);
6205          V1316= list(2,(V1301),(V1302));          V1332= list(2,(V1317),(V1318));
6206          V1317= STREF(object,(V1300),4);          V1333= STREF(object,(V1316),4);
6207          if(((V1317))==Cnil){          if(((V1333))==Cnil){
6208          goto T2568;}          goto T2568;}
6209          if((CMPcdr((V1317)))!=Cnil){          if((CMPcdr((V1333)))!=Cnil){
6210          goto T2568;}          goto T2568;}
6211          base[0]= (V1316);          base[0]= (V1332);
6212          base[1]= CMPcar((V1317));          base[1]= CMPcar((V1333));
6213          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6214          {object _funobj = (V1315);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6215                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6216                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6217                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6218          vs_top=sup;          vs_top=sup;
6219          V1308= vs_base[0];          V1324= vs_base[0];
6220          goto T2526;          goto T2526;
6221          goto T2568;          goto T2568;
6222  T2568:;  T2568:;
6223          base[0]= (V1315);          base[0]= (V1331);
6224          base[1]= (V1316);          base[1]= (V1332);
6225          {object V1318;          {object V1334;
6226          V1318= (V1317);          V1334= (V1333);
6227           vs_top=base+2;           vs_top=base+2;
6228           while(V1318!=Cnil)           while(V1334!=Cnil)
6229           {vs_push((V1318)->c.c_car);V1318=(V1318)->c.c_cdr;}           {vs_push((V1334)->c.c_car);V1334=(V1334)->c.c_cdr;}
6230          vs_base=base+1;}          vs_base=base+1;}
6231          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6232                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6233                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6234                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6235          vs_top=sup;          vs_top=sup;
6236          V1308= vs_base[0];          V1324= vs_base[0];
6237          goto T2526;}          goto T2526;}
6238          goto T2560;          goto T2560;
6239  T2560:;  T2560:;
6240          base[0]= (V1314);          base[0]= (V1330);
6241          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6242          Lfunctionp();          Lfunctionp();
6243          vs_top=sup;          vs_top=sup;
6244          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6245          goto T2578;}          goto T2578;}
6246          base[0]= (V1301);          base[0]= (V1317);
6247          base[1]= (V1302);          base[1]= (V1318);
6248          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6249          {object _funobj = (V1300);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1316);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6250                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
6251                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
6252                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
6253          vs_top=sup;          vs_top=sup;
6254          V1308= vs_base[0];          V1324= vs_base[0];
6255          goto T2526;          goto T2526;
6256          goto T2578;          goto T2578;
6257  T2578:;  T2578:;
6258          base[1]= VV[113];          base[1]= VV[113];
6259          base[2]= (V1314);          base[2]= (V1330);
6260          base[3]= VV[130];          base[3]= VV[130];
6261          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6262          (void) (*Lnk303)();          (void) (*Lnk303)();
# Line 6249  T2578:; Line 6265  T2578:;
6265          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6266          Lerror();          Lerror();
6267          vs_top=sup;          vs_top=sup;
6268          V1308= vs_base[0];          V1324= vs_base[0];
6269          goto T2526;}          goto T2526;}
6270          goto T2528;          goto T2528;
6271  T2528:;  T2528:;
# Line 6257  T2528:; Line 6273  T2528:;
6273          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6274          Lerror();          Lerror();
6275          vs_top=sup;          vs_top=sup;
6276          V1308= vs_base[0];          V1324= vs_base[0];
6277          goto T2526;          goto T2526;
6278  T2526:;  T2526:;
6279          {object V1319 = listA(7,VV[70],V1305,VV[127],V1306,VV[128],V1307,V1308);          {object V1335 = listA(7,VV[70],V1321,VV[127],V1322,VV[128],V1323,V1324);
6280          VMR78(V1319)}}          VMR78(V1335)}}
6281          base[0]=base[0];          base[0]=base[0];
6282          return Cnil;          return Cnil;
6283  }  }
6284  /*      local entry for function (FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))       */
6285    
6286  static object LI92(V1325,V1326,V1327,V1328,V1329)  static object LI92(V1341,V1342,V1343,V1344,V1345)
6287    
6288  object V1325;object V1326;object V1327;object V1328;object V1329;  object V1341;object V1342;object V1343;object V1344;object V1345;
6289  {        VMB79 VMS79 VMV79  {        VMB79 VMS79 VMV79
6290          goto TTL;          goto TTL;
6291  TTL:;  TTL:;
6292          {object V1332 = (VFUN_NARGS=1,(*(LnkLI219))(VV[131]));          {object V1348 = (VFUN_NARGS=1,(*(LnkLI219))(VV[131]));
6293          VMR79(V1332)}          VMR79(V1348)}
6294          return Cnil;          return Cnil;
6295  }  }
6296  /*      function definition for (FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))        */  /*      function definition for (FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))        */
# Line 6283  static void L93() Line 6299  static void L93()
6299  {register object *base=vs_base;  {register object *base=vs_base;
6300          register object *sup=base+VM80; VC80          register object *sup=base+VM80; VC80
6301          vs_check;          vs_check;
6302          {object V1333;          {object V1349;
6303          object V1334;          object V1350;
6304          register object V1335;          register object V1351;
6305          object V1336;          object V1352;
6306          object V1337;          object V1353;
6307          check_arg(5);          check_arg(5);
6308          V1333=(base[0]);          V1349=(base[0]);
6309          V1334=(base[1]);          V1350=(base[1]);
6310          V1335=(base[2]);          V1351=(base[2]);
6311          V1336=(base[3]);          V1352=(base[3]);
6312          V1337=(base[4]);          V1353=(base[4]);
6313          vs_top=sup;          vs_top=sup;
6314          goto TTL;          goto TTL;
6315  TTL:;  TTL:;
6316          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[317]->s.s_gfdef);
6317          base[6]= (V1336);          base[6]= (V1352);
6318          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[318]->s.s_gfdef);
6319          base[9]= VV[131];          base[9]= VV[131];
6320          base[10]= Cnil;{object V1340;          base[10]= Cnil;{object V1356;
6321          base[12]= (V1335);          base[12]= (V1351);
6322          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6323          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6324          vs_top=sup;          vs_top=sup;
6325          V1340= vs_base[0];          V1356= vs_base[0];
6326          if(V1340==Cnil)goto T2600;          if(V1356==Cnil)goto T2600;
6327          V1339= V1340;          V1355= V1356;
6328          goto T2599;          goto T2599;
6329          goto T2600;          goto T2600;
6330  T2600:;}  T2600:;}
6331          V1339= VV[132];          V1355= VV[132];
6332          goto T2599;          goto T2599;
6333  T2599:;  T2599:;
6334          base[11]= make_cons(V1339,Cnil);          base[11]= make_cons(V1355,Cnil);
6335          base[12]= make_cons((V1335),Cnil);          base[12]= make_cons((V1351),Cnil);
6336          base[14]= (V1335);          base[14]= (V1351);
6337          base[15]= (V1337);          base[15]= (V1353);
6338          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6339          (void) (*Lnk319)(Lclptr319);          (void) (*Lnk319)(Lclptr319);
6340          vs_top=sup;          vs_top=sup;
6341          base[13]= vs_base[0];          base[13]= vs_base[0];
6342          base[14]= VV[133];          base[14]= VV[133];
6343          base[15]= (V1337);          base[15]= (V1353);
6344          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6345          lispcall(base+5,2);          lispcall(base+5,2);
6346          return;          return;
# Line 6332  T2599:; Line 6348  T2599:;
6348  }  }
6349  /*      local entry for function (FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))       */
6350    
6351  static object LI94(V1346,V1347,V1348,V1349,V1350)  static object LI94(V1362,V1363,V1364,V1365,V1366)
6352    
6353  object V1346;object V1347;object V1348;object V1349;object V1350;  object V1362;object V1363;object V1364;object V1365;object V1366;
6354  {        VMB81 VMS81 VMV81  {        VMB81 VMS81 VMV81
6355          goto TTL;          goto TTL;
6356  TTL:;  TTL:;
6357          {object V1353 = (VFUN_NARGS=1,(*(LnkLI219))(VV[134]));          {object V1369 = (VFUN_NARGS=1,(*(LnkLI219))(VV[134]));
6358          VMR81(V1353)}          VMR81(V1369)}
6359          return Cnil;          return Cnil;
6360  }  }
6361  /*      function definition for (FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))        */  /*      function definition for (FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))        */
# Line 6348  static void L95() Line 6364  static void L95()
6364  {register object *base=vs_base;  {register object *base=vs_base;
6365          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
6366          vs_check;          vs_check;
6367          {object V1354;          {object V1370;
6368          object V1355;          object V1371;
6369          register object V1356;          register object V1372;
6370          object V1357;          object V1373;
6371          object V1358;          object V1374;
6372          check_arg(5);          check_arg(5);
6373          V1354=(base[0]);          V1370=(base[0]);
6374          V1355=(base[1]);          V1371=(base[1]);
6375          V1356=(base[2]);          V1372=(base[2]);
6376          V1357=(base[3]);          V1373=(base[3]);
6377          V1358=(base[4]);          V1374=(base[4]);
6378          vs_top=sup;          vs_top=sup;
6379          goto TTL;          goto TTL;
6380  TTL:;  TTL:;
6381          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[317]->s.s_gfdef);
6382          base[6]= (V1357);          base[6]= (V1373);
6383          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[318]->s.s_gfdef);
6384          base[9]= VV[134];          base[9]= VV[134];
6385          base[10]= Cnil;{object V1361;          base[10]= Cnil;{object V1377;
6386          base[12]= (V1356);          base[12]= (V1372);
6387          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6388          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6389          vs_top=sup;          vs_top=sup;
6390          V1361= vs_base[0];          V1377= vs_base[0];
6391          if(V1361==Cnil)goto T2621;          if(V1377==Cnil)goto T2621;
6392          V1360= V1361;          V1376= V1377;
6393          goto T2620;          goto T2620;
6394          goto T2621;          goto T2621;
6395  T2621:;}  T2621:;}
6396          V1360= VV[132];          V1376= VV[132];
6397          goto T2620;          goto T2620;
6398  T2620:;  T2620:;
6399          base[11]= list(2,VV[135],V1360);          base[11]= list(2,VV[135],V1376);
6400          base[12]= list(2,(VV[136]->s.s_dbind),(V1356));          base[12]= list(2,(VV[136]->s.s_dbind),(V1372));
6401          base[14]= (V1356);          base[14]= (V1372);
6402          base[15]= (V1358);          base[15]= (V1374);
6403          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6404          (void) (*Lnk320)(Lclptr320);          (void) (*Lnk320)(Lclptr320);
6405          vs_top=sup;          vs_top=sup;
6406          base[13]= vs_base[0];          base[13]= vs_base[0];
6407          base[14]= VV[137];          base[14]= VV[137];
6408          base[15]= (V1358);          base[15]= (V1374);
6409          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6410          lispcall(base+5,2);          lispcall(base+5,2);
6411          return;          return;
# Line 6401  static void L96() Line 6417  static void L96()
6417  {register object *base=vs_base;  {register object *base=vs_base;
6418          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
6419          vs_check;          vs_check;
6420          {object V1362;          {object V1378;
6421          object V1363;          object V1379;
6422          register object V1364;          register object V1380;
6423          object V1365;          object V1381;
6424          object V1366;          object V1382;
6425          check_arg(5);          check_arg(5);
6426          V1362=(base[0]);          V1378=(base[0]);
6427          V1363=(base[1]);          V1379=(base[1]);
6428          V1364=(base[2]);          V1380=(base[2]);
6429          V1365=(base[3]);          V1381=(base[3]);
6430          V1366=(base[4]);          V1382=(base[4]);
6431          vs_top=sup;          vs_top=sup;
6432          goto TTL;          goto TTL;
6433  TTL:;  TTL:;
6434          base[5]=(VV[317]->s.s_gfdef);          base[5]=(VV[317]->s.s_gfdef);
6435          base[6]= (V1365);          base[6]= (V1381);
6436          base[8]=(VV[318]->s.s_gfdef);          base[8]=(VV[318]->s.s_gfdef);
6437          base[9]= VV[138];          base[9]= VV[138];
6438          base[10]= Cnil;{object V1369;          base[10]= Cnil;{object V1385;
6439          base[12]= (V1364);          base[12]= (V1380);
6440          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6441          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6442          vs_top=sup;          vs_top=sup;
6443          V1369= vs_base[0];          V1385= vs_base[0];
6444          if(V1369==Cnil)goto T2639;          if(V1385==Cnil)goto T2639;
6445          V1368= V1369;          V1384= V1385;
6446          goto T2638;          goto T2638;
6447          goto T2639;          goto T2639;
6448  T2639:;}  T2639:;}
6449          V1368= VV[132];          V1384= VV[132];
6450          goto T2638;          goto T2638;
6451  T2638:;  T2638:;
6452          base[11]= make_cons(V1368,Cnil);          base[11]= make_cons(V1384,Cnil);
6453          base[12]= make_cons((V1364),Cnil);          base[12]= make_cons((V1380),Cnil);
6454          base[14]= (V1364);          base[14]= (V1380);
6455          base[15]= (V1366);          base[15]= (V1382);
6456          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
6457          (void) (*Lnk321)(Lclptr321);          (void) (*Lnk321)(Lclptr321);
6458          vs_top=sup;          vs_top=sup;
6459          base[13]= vs_base[0];          base[13]= vs_base[0];
6460          base[14]= VV[139];          base[14]= VV[139];
6461          base[15]= (V1366);          base[15]= (V1382);
6462          base[7]= simple_lispcall(base+8,7);          base[7]= simple_lispcall(base+8,7);
6463          lispcall(base+5,2);          lispcall(base+5,2);
6464          return;          return;
# Line 6450  T2638:; Line 6466  T2638:;
6466  }  }
6467  /*      local entry for function (FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))      */
6468    
6469  static object LI97(V1374,V1375,V1376,V1377)  static object LI97(V1390,V1391,V1392,V1393)
6470    
6471  object V1374;object V1375;object V1376;object V1377;  object V1390;object V1391;object V1392;object V1393;
6472  {        VMB84 VMS84 VMV84  {        VMB84 VMS84 VMV84
6473          goto TTL;          goto TTL;
6474  TTL:;  TTL:;
6475          {object V1379;          {object V1395;
6476          V1380= make_cons((V1376),Cnil);          V1396= make_cons((V1392),Cnil);
6477          V1379= (VFUN_NARGS=4,(*(LnkLI322))((V1377),Cnil,/* INLINE-ARGS */V1380,Cnil));          V1395= (VFUN_NARGS=4,(*(LnkLI322))((V1393),Cnil,/* INLINE-ARGS */V1396,Cnil));
6478          if(((V1379))==Cnil){          if(((V1395))==Cnil){
6479          goto T2653;}          goto T2653;}
6480          base[0]= (V1377);          base[0]= (V1393);
6481          base[1]= (V1379);          base[1]= (V1395);
6482          {object V1381 = simple_symlispcall(VV[323],base+0,2);          {object V1397 = simple_symlispcall(VV[323],base+0,2);
6483          VMR84(V1381)}          VMR84(V1397)}
6484          goto T2653;          goto T2653;
6485  T2653:;  T2653:;
6486          {object V1382 = Cnil;          {object V1398 = Cnil;
6487          VMR84(V1382)}}          VMR84(V1398)}}
6488          base[0]=base[0];          base[0]=base[0];
6489          return Cnil;          return Cnil;
6490  }  }
6491  /*      local entry for function (FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))      */
6492    
6493  static object LI98(V1387,V1388,V1389,V1390)  static object LI98(V1403,V1404,V1405,V1406)
6494    
6495  object V1387;object V1388;object V1389;object V1390;  object V1403;object V1404;object V1405;object V1406;
6496  {        VMB85 VMS85 VMV85  {        VMB85 VMS85 VMV85
6497          goto TTL;          goto TTL;
6498  TTL:;  TTL:;
6499          {object V1392;          {object V1408;
6500          V1393= list(2,(VV[136]->s.s_dbind),(V1389));          V1409= list(2,(VV[136]->s.s_dbind),(V1405));
6501          V1392= (VFUN_NARGS=4,(*(LnkLI322))((V1390),Cnil,/* INLINE-ARGS */V1393,Cnil));          V1408= (VFUN_NARGS=4,(*(LnkLI322))((V1406),Cnil,/* INLINE-ARGS */V1409,Cnil));
6502          if(((V1392))==Cnil){          if(((V1408))==Cnil){
6503          goto T2662;}          goto T2662;}
6504          base[0]= (V1390);          base[0]= (V1406);
6505          base[1]= (V1392);          base[1]= (V1408);
6506          {object V1394 = simple_symlispcall(VV[323],base+0,2);          {object V1410 = simple_symlispcall(VV[323],base+0,2);
6507          VMR85(V1394)}          VMR85(V1410)}
6508          goto T2662;          goto T2662;
6509  T2662:;  T2662:;
6510          {object V1395 = Cnil;          {object V1411 = Cnil;
6511          VMR85(V1395)}}          VMR85(V1411)}}
6512          base[0]=base[0];          base[0]=base[0];
6513          return Cnil;          return Cnil;
6514  }  }
6515  /*      local entry for function (FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))      */  /*      local entry for function (FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))      */
6516    
6517  static object LI99(V1400,V1401,V1402,V1403)  static object LI99(V1416,V1417,V1418,V1419)
6518    
6519  object V1400;object V1401;object V1402;object V1403;  object V1416;object V1417;object V1418;object V1419;
6520  {        VMB86 VMS86 VMV86  {        VMB86 VMS86 VMV86
6521          goto TTL;          goto TTL;
6522  TTL:;  TTL:;
6523          {object V1405;          {object V1421;
6524          V1406= make_cons((V1402),Cnil);          V1422= make_cons((V1418),Cnil);
6525          V1405= (VFUN_NARGS=4,(*(LnkLI322))((V1403),Cnil,/* INLINE-ARGS */V1406,Cnil));          V1421= (VFUN_NARGS=4,(*(LnkLI322))((V1419),Cnil,/* INLINE-ARGS */V1422,Cnil));
6526          if(((V1405))==Cnil){          if(((V1421))==Cnil){
6527          goto T2671;}          goto T2671;}
6528          base[0]= (V1403);          base[0]= (V1419);
6529          base[1]= (V1405);          base[1]= (V1421);
6530          {object V1407 = simple_symlispcall(VV[323],base+0,2);          {object V1423 = simple_symlispcall(VV[323],base+0,2);
6531          VMR86(V1407)}          VMR86(V1423)}
6532          goto T2671;          goto T2671;
6533  T2671:;  T2671:;
6534          {object V1408 = Cnil;          {object V1424 = Cnil;
6535          VMR86(V1408)}}          VMR86(V1424)}}
6536          base[0]=base[0];          base[0]=base[0];
6537          return Cnil;          return Cnil;
6538  }  }
6539  /*      local entry for function (FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))       */
6540    
6541  static object LI100(V1413,V1414,V1415,V1416)  static object LI100(V1429,V1430,V1431,V1432)
6542    
6543  object V1413;object V1414;object V1415;object V1416;  object V1429;object V1430;object V1431;object V1432;
6544  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
6545          goto TTL;          goto TTL;
6546  TTL:;  TTL:;
6547          base[0]= (V1415);          base[0]= (V1431);
6548          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6549          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6550          vs_top=sup;          vs_top=sup;
6551          V1418= vs_base[0];          V1434= vs_base[0];
6552          {object V1419 = (*(LnkLI324))(V1418,(V1416));          V1435 = (V1432);
6553          VMR87(V1419)}          {object V1436 = (*(LnkLI324))(V1434,V1435);
6554            VMR87(V1436)}
6555          base[0]=base[0];          base[0]=base[0];
6556          return Cnil;          return Cnil;
6557  }  }
6558  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))       */
6559    
6560  static object LI101(V1424,V1425,V1426,V1427)  static object LI101(V1441,V1442,V1443,V1444)
6561    
6562  object V1424;object V1425;object V1426;object V1427;  object V1441;object V1442;object V1443;object V1444;
6563  {        VMB88 VMS88 VMV88  {        VMB88 VMS88 VMV88
6564          goto TTL;          goto TTL;
6565  TTL:;  TTL:;
6566          base[0]= (V1426);          base[0]= (V1443);
6567          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6568          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6569          vs_top=sup;          vs_top=sup;
6570          V1429= vs_base[0];          V1446= vs_base[0];
6571          {object V1430 = (*(LnkLI325))(V1429,(V1427));          V1447 = (V1444);
6572          VMR88(V1430)}          {object V1448 = (*(LnkLI325))(V1446,V1447);
6573            VMR88(V1448)}
6574          base[0]=base[0];          base[0]=base[0];
6575          return Cnil;          return Cnil;
6576  }  }
6577  /*      local entry for function (FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))       */  /*      local entry for function (FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))       */
6578    
6579  static object LI102(V1435,V1436,V1437,V1438)  static object LI102(V1453,V1454,V1455,V1456)
6580    
6581  object V1435;object V1436;object V1437;object V1438;  object V1453;object V1454;object V1455;object V1456;
6582  {        VMB89 VMS89 VMV89  {        VMB89 VMS89 VMV89
6583          goto TTL;          goto TTL;
6584  TTL:;  TTL:;
6585          base[0]= (V1437);          base[0]= (V1455);
6586          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6587          (void) (*Lnk239)(Lclptr239);          (void) (*Lnk239)(Lclptr239);
6588          vs_top=sup;          vs_top=sup;
6589          V1440= vs_base[0];          V1458= vs_base[0];
6590          {object V1441 = (*(LnkLI326))(V1440,(V1438));          V1459 = (V1456);
6591          VMR89(V1441)}          {object V1460 = (*(LnkLI326))(V1458,V1459);
6592            VMR89(V1460)}
6593          base[0]=base[0];          base[0]=base[0];
6594          return Cnil;          return Cnil;
6595  }  }
6596  /*      local entry for function (FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))     */  /*      local entry for function (FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))     */
6597    
6598  static object LI103(V1446,V1447,V1448,V1449)  static object LI103(V1465,V1466,V1467,V1468)
6599    
6600  object V1446;object V1447;object V1448;object V1449;  object V1465;object V1466;object V1467;object V1468;
6601  {        VMB90 VMS90 VMV90  {        VMB90 VMS90 VMV90
6602          goto TTL;          goto TTL;
6603  TTL:;  TTL:;
6604          {object V1451 = (*(LnkLI327))((V1449));          {object V1470 = (*(LnkLI327))((V1468));
6605          VMR90(V1451)}          VMR90(V1470)}
6606          return Cnil;          return Cnil;
6607  }  }
6608  /*      local entry for function (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))     */  /*      local entry for function (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))     */
6609    
6610  static object LI104(V1456,V1457,V1458,V1459)  static object LI104(V1475,V1476,V1477,V1478)
6611    
6612  object V1456;object V1457;object V1458;object V1459;  object V1475;object V1476;object V1477;object V1478;
6613  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
6614          goto TTL;          goto TTL;
6615  TTL:;  TTL:;
6616          V1461= (*(LnkLI225))((V1458));          V1480= (*(LnkLI225))((V1477));
6617          V1462= (*(LnkLI225))((V1459));          V1481= (*(LnkLI225))((V1478));
6618          {object V1463 = ((/* INLINE-ARGS */V1461)==(/* INLINE-ARGS */V1462)?Ct:Cnil);          {object V1482 = ((/* INLINE-ARGS */V1480)==(/* INLINE-ARGS */V1481)?Ct:Cnil);
6619          VMR91(V1463)}          VMR91(V1482)}
6620          return Cnil;          return Cnil;
6621  }  }
6622  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))        */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))        */
6623    
6624  static object LI105(V1468,V1469,V1470,V1471)  static object LI105(V1487,V1488,V1489,V1490)
6625    
6626  object V1468;object V1469;object V1470;object V1471;  object V1487;object V1488;object V1489;object V1490;
6627  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
6628          goto TTL;          goto TTL;
6629  TTL:;  TTL:;
6630          if(!(((V1471))==((VV[136]->s.s_dbind)))){          if(!(((V1490))==((VV[136]->s.s_dbind)))){
6631          goto T2700;}          goto T2700;}
6632          {object V1473 = Ct;          {object V1492 = Ct;
6633          VMR92(V1473)}          VMR92(V1492)}
6634          goto T2700;          goto T2700;
6635  T2700:;  T2700:;
6636          V1474= (*(LnkLI225))((V1470));          V1493= (*(LnkLI225))((V1489));
6637          V1475= (*(LnkLI225))((V1471));          V1494= (*(LnkLI225))((V1490));
6638          {object V1476 = ((/* INLINE-ARGS */V1474)==(/* INLINE-ARGS */V1475)?Ct:Cnil);          {object V1495 = ((/* INLINE-ARGS */V1493)==(/* INLINE-ARGS */V1494)?Ct:Cnil);
6639          VMR92(V1476)}          VMR92(V1495)}
6640          return Cnil;          return Cnil;
6641  }  }
6642  /*      local entry for function FORCE-CACHE-FLUSHES    */  /*      local entry for function FORCE-CACHE-FLUSHES    */
6643    
6644  static object LI106(V1478)  static object LI106(V1497)
6645    
6646  object V1478;  object V1497;
6647  {        VMB93 VMS93 VMV93  {        VMB93 VMS93 VMV93
6648          goto TTL;          goto TTL;
6649  TTL:;  TTL:;
6650          {register object V1479;          {register object V1498;
6651          object V1480;          object V1499;
6652          base[2]= (V1478);          base[2]= (V1497);
6653          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6654          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
6655          vs_top=sup;          vs_top=sup;
6656          V1479= vs_base[0];          V1498= vs_base[0];
6657          V1480= ((V1479))->v.v_self[8];          V1499= ((V1498))->v.v_self[8];
6658          if(!(((V1480))==(Ct))){          if(!(((V1499))==(Ct))){
6659          goto T2706;}          goto T2706;}
6660          {register object V1481;          {register object V1500;
6661          V1481= (VFUN_NARGS=2,(*(LnkLI263))(((V1479))->v.v_self[12],(V1478)));          V1500= (VFUN_NARGS=2,(*(LnkLI263))(((V1498))->v.v_self[12],(V1497)));
6662          (void)(((V1481))->v.v_self[9]= (((V1479))->v.v_self[9]));          (void)(((V1500))->v.v_self[9]= (((V1498))->v.v_self[9]));
6663          (void)(((V1481))->v.v_self[10]= (((V1479))->v.v_self[10]));          (void)(((V1500))->v.v_self[10]= (((V1498))->v.v_self[10]));
6664          if(!((VV[104])->s.s_gfdef!=OBJNULL)){          if(!((VV[104])->s.s_gfdef!=OBJNULL)){
6665          goto T2713;}          goto T2713;}
6666          base[2]= (V1481);          base[2]= (V1500);
6667          base[3]= (V1478);          base[3]= (V1497);
6668          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6669          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
6670          vs_top=sup;          vs_top=sup;
# Line 6655  T2713:; Line 6674  T2713:;
6674          (void)((*(LnkLI283))(VV[104],VV[105]));          (void)((*(LnkLI283))(VV[104],VV[105]));
6675          goto T2711;          goto T2711;
6676  T2711:;  T2711:;
6677          {object V1482 = (*(LnkLI328))((V1479),VV[140],(V1481));          {object V1501 = (*(LnkLI328))((V1498),VV[140],(V1500));
6678          VMR93(V1482)}}          VMR93(V1501)}}
6679          goto T2706;          goto T2706;
6680  T2706:;  T2706:;
6681          {object V1483 = Cnil;          {object V1502 = Cnil;
6682          VMR93(V1483)}}          VMR93(V1502)}}
6683          base[0]=base[0];          base[0]=base[0];
6684          return Cnil;          return Cnil;
6685  }  }
6686  /*      local entry for function FLUSH-CACHE-TRAP       */  /*      local entry for function FLUSH-CACHE-TRAP       */
6687    
6688  static object LI107(V1487,V1488,V1489)  static object LI107(V1506,V1507,V1508)
6689    
6690  object V1487;object V1488;object V1489;  object V1506;object V1507;object V1508;
6691  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
6692          goto TTL;          goto TTL;
6693  TTL:;  TTL:;
6694          {object V1490 = (*(LnkLI329))((V1489),(V1488));          {object V1509 = (*(LnkLI329))((V1508),(V1507));
6695          VMR94(V1490)}          VMR94(V1509)}
6696          return Cnil;          return Cnil;
6697  }  }
6698  /*      local entry for function (FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))      */  /*      local entry for function (FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))      */
6699    
6700  static object LI108(V1494,V1495,V1496)  static object LI108(V1513,V1514,V1515)
6701    
6702  object V1494;object V1495;register object V1496;  object V1513;object V1514;register object V1515;
6703  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
6704          goto TTL;          goto TTL;
6705  TTL:;  TTL:;
6706          {object V1498;          {object V1517;
6707          object V1499;          object V1518;
6708          V1498= CMPcar((V1494));          V1517= CMPcar((V1513));
6709          V1499= CMPcdr((V1494));          V1518= CMPcdr((V1513));
6710          {object V1500;          {object V1519;
6711          if(type_of(V1496)==t_structure){          if(type_of(V1515)==t_structure){
6712          goto T2727;}          goto T2727;}
6713          goto T2725;          goto T2725;
6714          goto T2727;          goto T2727;
6715  T2727:;  T2727:;
6716          if(!(((V1496)->str.str_def)==(VV[141]))){          if(!(((V1515)->str.str_def)==(VV[141]))){
6717          goto T2725;}          goto T2725;}
6718          V1500= STREF(object,(V1496),4);          V1519= STREF(object,(V1515),4);
6719          goto T2723;          goto T2723;
6720          goto T2725;          goto T2725;
6721  T2725:;{object V1502;  T2725:;{object V1521;
6722          V1502= (VV[2]->s.s_dbind);          V1521= (VV[2]->s.s_dbind);
6723          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6724          base[1]= (V1496);          base[1]= (V1515);
6725          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6726          (void) (*Lnk177)();          (void) (*Lnk177)();
6727          vs_top=sup;          vs_top=sup;
6728          V1503= vs_base[0];          V1522= vs_base[0];
6729          if(!((V1502)==(CMPcar(V1503)))){          if(!((V1521)==(CMPcar(V1522)))){
6730          goto T2730;}}          goto T2730;}}
6731          V1500= CMPcar(((V1496))->cc.cc_turbo[12]);          V1519= CMPcar(((V1515))->cc.cc_turbo[12]);
6732          goto T2723;          goto T2723;
6733          goto T2730;          goto T2730;
6734  T2730:;  T2730:;
6735          V1500= Cnil;          V1519= Cnil;
6736          goto T2723;          goto T2723;
6737  T2723:;  T2723:;
6738          {register object V1504;          {register object V1523;
6739          register object V1505;          register object V1524;
6740          base[2]= (V1496);          base[2]= (V1515);
6741          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6742          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
6743          vs_top=sup;          vs_top=sup;
6744          V1504= vs_base[0];          V1523= vs_base[0];
6745          V1505= (VFUN_NARGS=2,(*(LnkLI263))(((V1504))->v.v_self[12],(V1496)));          V1524= (VFUN_NARGS=2,(*(LnkLI263))(((V1523))->v.v_self[12],(V1515)));
6746          (void)(((V1505))->v.v_self[9]= (((V1504))->v.v_self[9]));          (void)(((V1524))->v.v_self[9]= (((V1523))->v.v_self[9]));
6747          (void)(((V1505))->v.v_self[10]= (((V1504))->v.v_self[10]));          (void)(((V1524))->v.v_self[10]= (((V1523))->v.v_self[10]));
6748          {object V1507;          {object V1526;
6749          V1507= ((V1498))->v.v_self[1];          V1526= ((V1517))->v.v_self[1];
6750          if(!(type_of(V1507)==t_fixnum)){          if(!(type_of(V1526)==t_fixnum)){
6751          goto T2744;}          goto T2744;}
6752          (void)(((V1500))->v.v_self[fix((V1507))]= (V1505));          (void)(((V1519))->v.v_self[fix((V1526))]= (V1524));
6753          goto T2741;          goto T2741;
6754          goto T2744;          goto T2744;
6755  T2744:;  T2744:;
6756          base[2]= V1505;          base[2]= V1524;
6757          base[3]= (V1496);          base[3]= (V1515);
6758          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6759          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
6760          vs_top=sup;}          vs_top=sup;}
6761          goto T2741;          goto T2741;
6762  T2741:;  T2741:;
6763          (void)((*(LnkLI328))((V1504),VV[142],(V1505)));          (void)((*(LnkLI328))((V1523),VV[142],(V1524)));
6764          {object V1509 = (V1496);          {object V1528 = (V1515);
6765          VMR95(V1509)}}}}          VMR95(V1528)}}}}
6766          base[0]=base[0];          base[0]=base[0];
6767          return Cnil;          return Cnil;
6768  }  }
# Line 6753  static void L109() Line 6772  static void L109()
6772  {register object *base=vs_base;  {register object *base=vs_base;
6773          register object *sup=base+VM96; VC96          register object *sup=base+VM96; VC96
6774          vs_check;          vs_check;
6775          {object V1510;          {object V1529;
6776          object V1511;          object V1530;
6777          object V1512;          object V1531;
6778          check_arg(3);          check_arg(3);
6779          V1510=(base[0]);          V1529=(base[0]);
6780          V1511=(base[1]);          V1530=(base[1]);
6781          V1512=(base[2]);          V1531=(base[2]);
6782          vs_top=sup;          vs_top=sup;
6783          goto TTL;          goto TTL;
6784  TTL:;  TTL:;
6785          base[3]= (VFUN_NARGS=1,(*(LnkLI219))((V1512)));          base[3]= (VFUN_NARGS=1,(*(LnkLI219))((V1531)));
6786          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6787          (void) (*Lnk294)(Lclptr294);          (void) (*Lnk294)(Lclptr294);
6788          return;          return;
# Line 6771  TTL:; Line 6790  TTL:;
6790  }  }
6791  /*      local entry for function OBSOLETE-INSTANCE-TRAP */  /*      local entry for function OBSOLETE-INSTANCE-TRAP */
6792    
6793  static object LI110(V1517,V1518,V1519)  static object LI110(V1536,V1537,V1538)
6794    
6795  object V1517;object V1518;object V1519;  object V1536;object V1537;object V1538;
6796  {        VMB97 VMS97 VMV97  {        VMB97 VMS97 VMV97
6797          bds_check;          bds_check;
6798          goto TTL;          goto TTL;
6799  TTL:;  TTL:;
6800          if(type_of(V1519)==t_structure){          if(type_of(V1538)==t_structure){
6801          goto T2757;}          goto T2757;}
6802          goto T2756;          goto T2756;
6803          goto T2757;          goto T2757;
6804  T2757:;  T2757:;
6805          if(((V1519)->str.str_def)==(VV[143])){          if(((V1538)->str.str_def)==(VV[143])){
6806          goto T2754;}          goto T2754;}
6807          goto T2756;          goto T2756;
6808  T2756:;{object V1521;  T2756:;{object V1540;
6809          V1521= (VV[2]->s.s_dbind);          V1540= (VV[2]->s.s_dbind);
6810          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6811          base[1]= (V1519);          base[1]= (V1538);
6812          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6813          (void) (*Lnk177)();          (void) (*Lnk177)();
6814          vs_top=sup;          vs_top=sup;
6815          V1522= vs_base[0];          V1541= vs_base[0];
6816          if((V1521)==(CMPcar(V1522))){          if((V1540)==(CMPcar(V1541))){
6817          goto T2754;}}          goto T2754;}}
6818          if(((VV[144]->s.s_dbind))==Cnil){          if(((VV[144]->s.s_dbind))==Cnil){
6819          goto T2764;}          goto T2764;}
6820          {object V1523 = (VV[145]->s.s_dbind);          {object V1542 = (VV[145]->s.s_dbind);
6821          VMR97(V1523)}          VMR97(V1542)}
6822          goto T2764;          goto T2764;
6823  T2764:;  T2764:;
6824          bds_bind(VV[144],Ct);          bds_bind(VV[144],Ct);
6825          base[1]= VV[146];          base[1]= VV[146];
6826          base[2]= (V1519);          base[2]= (V1538);
6827          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6828          Lerror();          Lerror();
6829          vs_top=sup;          vs_top=sup;
6830          {object V1524 = vs_base[0];          {object V1543 = vs_base[0];
6831          bds_unwind1;          bds_unwind1;
6832          VMR97(V1524)}          VMR97(V1543)}
6833          goto T2754;          goto T2754;
6834  T2754:;  T2754:;
6835          {object V1525;          {object V1544;
6836          object V1526;          object V1545;
6837          object V1527;          object V1546;
6838          object V1528;          object V1547;
6839          object V1529;          object V1548;
6840          object V1530;          object V1549;
6841          object V1531;          object V1550;
6842          object V1532;          object V1551;
6843          register object V1533;          register object V1552;
6844          register object V1534;          register object V1553;
6845          V1525= ((V1518))->v.v_self[11];          V1544= ((V1537))->v.v_self[11];
6846          base[7]= (V1525);          base[7]= (V1544);
6847          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6848          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk201)(Lclptr201);
6849          vs_top=sup;          vs_top=sup;
6850          V1526= vs_base[0];          V1545= vs_base[0];
6851          V1527= ((V1517))->v.v_self[9];          V1546= ((V1536))->v.v_self[9];
6852          V1528= ((V1518))->v.v_self[9];          V1547= ((V1537))->v.v_self[9];
6853          if(type_of(V1519)==t_structure){          if(type_of(V1538)==t_structure){
6854          goto T2777;}          goto T2777;}
6855          goto T2775;          goto T2775;
6856          goto T2777;          goto T2777;
6857  T2777:;  T2777:;
6858          if(!(((V1519)->str.str_def)==(VV[147]))){          if(!(((V1538)->str.str_def)==(VV[147]))){
6859          goto T2775;}          goto T2775;}
6860          V1529= STREF(object,(V1519),4);          V1548= STREF(object,(V1538),4);
6861          goto T2773;          goto T2773;
6862          goto T2775;          goto T2775;
6863  T2775:;{object V1536;  T2775:;{object V1555;
6864          V1536= (VV[2]->s.s_dbind);          V1555= (VV[2]->s.s_dbind);
6865          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
6866          base[8]= (V1519);          base[8]= (V1538);
6867          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6868          (void) (*Lnk177)();          (void) (*Lnk177)();
6869          vs_top=sup;          vs_top=sup;
6870          V1537= vs_base[0];          V1556= vs_base[0];
6871          if(!((V1536)==(CMPcar(V1537)))){          if(!((V1555)==(CMPcar(V1556)))){
6872          goto T2780;}}          goto T2780;}}
6873          V1529= CMPcar(((V1519))->cc.cc_turbo[12]);          V1548= CMPcar(((V1538))->cc.cc_turbo[12]);
6874          goto T2773;          goto T2773;
6875          goto T2780;          goto T2780;
6876  T2780:;  T2780:;
# Line 6859  T2780:; Line 6878  T2780:;
6878          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6879          Lerror();          Lerror();
6880          vs_top=sup;          vs_top=sup;
6881          V1529= vs_base[0];          V1548= vs_base[0];
6882          goto T2773;          goto T2773;
6883  T2773:;  T2773:;
6884          if(type_of(V1526)==t_structure){          if(type_of(V1545)==t_structure){
6885          goto T2790;}          goto T2790;}
6886          goto T2788;          goto T2788;
6887          goto T2790;          goto T2790;
6888  T2790:;  T2790:;
6889          if(!(((V1526)->str.str_def)==(VV[149]))){          if(!(((V1545)->str.str_def)==(VV[149]))){
6890          goto T2788;}          goto T2788;}
6891          V1530= STREF(object,(V1526),4);          V1549= STREF(object,(V1545),4);
6892          goto T2786;          goto T2786;
6893          goto T2788;          goto T2788;
6894  T2788:;{object V1539;  T2788:;{object V1558;
6895          V1539= (VV[2]->s.s_dbind);          V1558= (VV[2]->s.s_dbind);
6896          base[7]= small_fixnum(14);          base[7]= small_fixnum(14);
6897          base[8]= (V1526);          base[8]= (V1545);
6898          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6899          (void) (*Lnk177)();          (void) (*Lnk177)();
6900          vs_top=sup;          vs_top=sup;
6901          V1540= vs_base[0];          V1559= vs_base[0];
6902          if(!((V1539)==(CMPcar(V1540)))){          if(!((V1558)==(CMPcar(V1559)))){
6903          goto T2793;}}          goto T2793;}}
6904          V1530= CMPcar(((V1526))->cc.cc_turbo[12]);          V1549= CMPcar(((V1545))->cc.cc_turbo[12]);
6905          goto T2786;          goto T2786;
6906          goto T2793;          goto T2793;
6907  T2793:;  T2793:;
# Line 6890  T2793:; Line 6909  T2793:;
6909          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6910          Lerror();          Lerror();
6911          vs_top=sup;          vs_top=sup;
6912          V1530= vs_base[0];          V1549= vs_base[0];
6913          goto T2786;          goto T2786;
6914  T2786:;  T2786:;
6915          V1531= ((V1517))->v.v_self[10];          V1550= ((V1536))->v.v_self[10];
6916          V1532= Cnil;          V1551= Cnil;
6917          V1533= Cnil;          V1552= Cnil;
6918          V1534= Cnil;          V1553= Cnil;
6919          {register object V1541;          {register object V1560;
6920          register object V1542;          register object V1561;
6921          object V1543;          object V1562;
6922          object V1544;          object V1563;
6923          V1541= (V1527);          V1560= (V1546);
6924          V1542= Cnil;          V1561= Cnil;
6925          V1543= small_fixnum(0);          V1562= small_fixnum(0);
6926          V1544= Cnil;          V1563= Cnil;
6927          goto T2809;          goto T2809;
6928  T2809:;  T2809:;
6929          {object V1545;          {object V1564;
6930          if(!(((V1541))==Cnil)){          if(!(((V1560))==Cnil)){
6931          goto T2815;}          goto T2815;}
6932          goto T2803;          goto T2803;
6933          goto T2815;          goto T2815;
6934  T2815:;  T2815:;
6935          V1545= CMPcar((V1541));          V1564= CMPcar((V1560));
6936          V1541= CMPcdr((V1541));          V1560= CMPcdr((V1560));
6937          V1542= (V1545);}          V1561= (V1564);}
6938          {object V1546;          {object V1565;
6939          V1546= (V1543);          V1565= (V1562);
6940          V1543= number_plus((V1543),small_fixnum(1));          V1562= number_plus((V1562),small_fixnum(1));
6941          V1544= (V1546);}          V1563= (V1565);}
6942          {long V1547;          {long V1566;
6943          object V1548;          object V1567;
6944          V1547= fix((V1544));          V1566= fix((V1563));
6945          base[8]= (V1542);          base[8]= (V1561);
6946          base[9]= (V1528);          base[9]= (V1547);
6947          base[10]= VV[8];          base[10]= VV[8];
6948          base[11]= (VV[9]->s.s_gfdef);          base[11]= (VV[9]->s.s_gfdef);
6949          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
6950          (void) (*Lnk305)();          (void) (*Lnk305)();
6951          vs_top=sup;          vs_top=sup;
6952          V1548= vs_base[0];          V1567= vs_base[0];
6953          if(((V1548))==Cnil){          if(((V1567))==Cnil){
6954          goto T2830;}          goto T2830;}
6955          (void)((((V1530))->v.v_self[fix((V1548))]=(((V1529))->v.v_self[V1547])));          (void)((((V1549))->v.v_self[fix((V1567))]=(((V1548))->v.v_self[V1566])));
6956          goto T2810;          goto T2810;
6957          goto T2830;          goto T2830;
6958  T2830:;  T2830:;
6959          V1533= make_cons(V1542,(V1533));          V1552= make_cons(V1561,(V1552));
6960          if((((V1529))->v.v_self[V1547])==((VV[61]->s.s_dbind))){          if((((V1548))->v.v_self[V1566])==((VV[61]->s.s_dbind))){
6961          goto T2810;}          goto T2810;}
6962          {object V1551;          {object V1570;
6963          V1551= ((V1529))->v.v_self[V1547];          V1570= ((V1548))->v.v_self[V1566];
6964          {object V1552;          {object V1571;
6965          base[9]= (V1534);          base[9]= (V1553);
6966          base[10]= (V1551);          base[10]= (V1570);
6967          base[11]= V1542;          base[11]= V1561;
6968          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
6969          siLput_f();          siLput_f();
6970          vs_top=sup;          vs_top=sup;
6971          V1552= vs_base[0];          V1571= vs_base[0];
6972          V1534= (V1552);}}}          V1553= (V1571);}}}
6973          goto T2810;          goto T2810;
6974  T2810:;  T2810:;
6975          goto T2809;}          goto T2809;}
6976          goto T2803;          goto T2803;
6977  T2803:;  T2803:;
6978          {register object V1553;          {register object V1572;
6979          register object V1554;          register object V1573;
6980          V1553= (V1531);          V1572= (V1550);
6981          V1554= Cnil;          V1573= Cnil;
6982          goto T2848;          goto T2848;
6983  T2848:;  T2848:;
6984          {object V1555;          {object V1574;
6985          if(!(((V1553))==Cnil)){          if(!(((V1572))==Cnil)){
6986          goto T2854;}          goto T2854;}
6987          goto T2844;          goto T2844;
6988          goto T2854;          goto T2854;
6989  T2854:;  T2854:;
6990          V1555= CMPcar((V1553));          V1574= CMPcar((V1572));
6991          V1553= CMPcdr((V1553));          V1572= CMPcdr((V1572));
6992          V1554= (V1555);}          V1573= (V1574);}
6993          {object V1556;          {object V1575;
6994          object V1557;          object V1576;
6995          V1556= CMPcar((V1554));          V1575= CMPcar((V1573));
6996          V1557= CMPcdr((V1554));          V1576= CMPcdr((V1573));
6997          {object V1558;          {object V1577;
6998          base[7]= (V1556);          base[7]= (V1575);
6999          base[8]= (V1528);          base[8]= (V1547);
7000          base[9]= VV[8];          base[9]= VV[8];
7001          base[10]= (VV[9]->s.s_gfdef);          base[10]= (VV[9]->s.s_gfdef);
7002          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
7003          (void) (*Lnk305)();          (void) (*Lnk305)();
7004          vs_top=sup;          vs_top=sup;
7005          V1558= vs_base[0];          V1577= vs_base[0];
7006          if(((V1558))==Cnil){          if(((V1577))==Cnil){
7007          goto T2866;}          goto T2866;}
7008          (void)((((V1530))->v.v_self[fix((V1558))]=(CMPcdr((V1554)))));          (void)((((V1549))->v.v_self[fix((V1577))]=(CMPcdr((V1573)))));
7009          goto T2849;          goto T2849;
7010          goto T2866;          goto T2866;
7011  T2866:;  T2866:;
7012          V1533= make_cons(V1556,(V1533));          V1552= make_cons(V1575,(V1552));
7013          if(((V1557))==((VV[61]->s.s_dbind))){          if(((V1576))==((VV[61]->s.s_dbind))){
7014          goto T2849;}          goto T2849;}
7015          {object V1562;          {object V1581;
7016          base[7]= (V1534);          base[7]= (V1553);
7017          base[8]= V1557;          base[8]= V1576;
7018          base[9]= V1556;          base[9]= V1575;
7019          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
7020          siLput_f();          siLput_f();
7021          vs_top=sup;          vs_top=sup;
7022          V1562= vs_base[0];          V1581= vs_base[0];
7023          V1534= (V1562);}}}          V1553= (V1581);}}}
7024          goto T2849;          goto T2849;
7025  T2849:;  T2849:;
7026          goto T2848;}          goto T2848;}
7027          goto T2844;          goto T2844;
7028  T2844:;  T2844:;
7029          {register object V1563;          {register object V1582;
7030          register object V1564;          register object V1583;
7031          V1563= (V1528);          V1582= (V1547);
7032          V1564= CMPcar((V1563));          V1583= CMPcar((V1582));
7033          goto T2883;          goto T2883;
7034  T2883:;  T2883:;
7035          if(!(((V1563))==Cnil)){          if(!(((V1582))==Cnil)){
7036          goto T2884;}          goto T2884;}
7037          goto T2879;          goto T2879;
7038          goto T2884;          goto T2884;
7039  T2884:;  T2884:;
7040          {register object x= (V1564),V1565= (V1527);          {register object x= (V1583),V1584= (V1546);
7041          while(V1565!=Cnil)          while(V1584!=Cnil)
7042          if(x==(V1565->c.c_car)){          if(x==(V1584->c.c_car)){
7043          goto T2888;          goto T2888;
7044          }else V1565=V1565->c.c_cdr;}          }else V1584=V1584->c.c_cdr;}
7045          {register object x= (V1564),V1566= (V1531);          {register object x= (V1583),V1585= (V1550);
7046          while(V1566!=Cnil)          while(V1585!=Cnil)
7047          if(EQ(x,V1566->c.c_car->c.c_car) &&V1566->c.c_car != Cnil){          if(EQ(x,V1585->c.c_car->c.c_car) &&V1585->c.c_car != Cnil){
7048          goto T2888;          goto T2888;
7049          }else V1566=V1566->c.c_cdr;}          }else V1585=V1585->c.c_cdr;}
7050          V1532= make_cons(V1564,(V1532));          V1551= make_cons(V1583,(V1551));
7051          goto T2888;          goto T2888;
7052  T2888:;  T2888:;
7053          V1563= CMPcdr((V1563));          V1582= CMPcdr((V1582));
7054          V1564= CMPcar((V1563));          V1583= CMPcar((V1582));
7055          goto T2883;}          goto T2883;}
7056          goto T2879;          goto T2879;
7057  T2879:;  T2879:;
7058          (void)((*(LnkLI330))((V1519),(V1526)));          (void)((*(LnkLI330))((V1538),(V1545)));
7059          base[7]= (V1519);          base[7]= (V1538);
7060          base[8]= (V1532);          base[8]= (V1551);
7061          base[9]= (V1533);          base[9]= (V1552);
7062          base[10]= (V1534);          base[10]= (V1553);
7063          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
7064          (void) (*Lnk331)(Lclptr331);          (void) (*Lnk331)(Lclptr331);
7065          vs_top=sup;          vs_top=sup;
7066          {object V1568 = (V1518);          {object V1587 = (V1537);
7067          VMR97(V1568)}}          VMR97(V1587)}}
7068          base[0]=base[0];          base[0]=base[0];
7069          return Cnil;          return Cnil;
7070  }  }
# Line 7057  static void L111() Line 7076  static void L111()
7076          vs_check;          vs_check;
7077          check_arg(2);          check_arg(2);
7078          vs_top=sup;          vs_top=sup;
7079          {object V1569=base[0]->c.c_cdr;          {object V1588=base[0]->c.c_cdr;
7080          if(endp(V1569))invalid_macro_call();          if(endp(V1588))invalid_macro_call();
7081          base[2]= (V1569->c.c_car);          base[2]= (V1588->c.c_car);
7082          V1569=V1569->c.c_cdr;          V1588=V1588->c.c_cdr;
7083          if(!endp(V1569))invalid_macro_call();}          if(!endp(V1588))invalid_macro_call();}
7084          V1570= list(2,VV[153],base[2]);          V1589= list(2,VV[153],base[2]);
7085          V1571= list(2,VV[154],base[2]);          V1590= list(2,VV[154],base[2]);
7086          V1572= list(3,VV[87],/* INLINE-ARGS */V1571,list(2,VV[154],base[2]));          V1591= list(3,VV[87],/* INLINE-ARGS */V1590,list(2,VV[154],base[2]));
7087          V1573= list(2,VV[155],base[2]);          V1592= list(2,VV[155],base[2]);
7088          base[3]= list(2,VV[89],list(4,VV[150],VV[151],list(4,VV[152],/* INLINE-ARGS */V1570,/* INLINE-ARGS */V1572,list(3,VV[87],/* INLINE-ARGS */V1573,list(2,VV[155],base[2]))),VV[156]));          base[3]= list(2,VV[89],list(4,VV[150],VV[151],list(4,VV[152],/* INLINE-ARGS */V1589,/* INLINE-ARGS */V1591,list(3,VV[87],/* INLINE-ARGS */V1592,list(2,VV[155],base[2]))),VV[156]));
7089          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7090          return;          return;
7091  }  }
7092  /*      local entry for function CHANGE-CLASS-INTERNAL  */  /*      local entry for function CHANGE-CLASS-INTERNAL  */
7093    
7094  static object LI112(V1576,V1577)  static object LI112(V1595,V1596)
7095    
7096  object V1576;object V1577;  object V1595;object V1596;
7097  {        VMB99 VMS99 VMV99  {        VMB99 VMS99 VMV99
7098          goto TTL;          goto TTL;
7099  TTL:;  TTL:;
7100          {object V1578;          {object V1597;
7101          object V1579;          object V1598;
7102          object V1580;          object V1599;
7103          object V1581;          object V1600;
7104          object V1582;          object V1601;
7105          object V1583;          object V1602;
7106          object V1584;          object V1603;
7107          object V1585;          object V1604;
7108          object V1586;          object V1605;
7109          V1578= (*(LnkLI225))((V1576));          V1597= (*(LnkLI225))((V1595));
7110          base[9]= (V1577);          base[9]= (V1596);
7111          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7112          (void) (*Lnk201)(Lclptr201);          (void) (*Lnk201)(Lclptr201);
7113          vs_top=sup;          vs_top=sup;
7114          V1579= vs_base[0];          V1598= vs_base[0];
7115          if(type_of(V1579)==t_structure){          if(type_of(V1598)==t_structure){
7116          goto T2912;}          goto T2912;}
7117          goto T2910;          goto T2910;
7118          goto T2912;          goto T2912;
7119  T2912:;  T2912:;
7120          if(!(((V1579)->str.str_def)==(VV[157]))){          if(!(((V1598)->str.str_def)==(VV[157]))){
7121          goto T2910;}          goto T2910;}
7122          V1580= STREF(object,(V1579),0);          V1599= STREF(object,(V1598),0);
7123          goto T2908;          goto T2908;
7124          goto T2910;          goto T2910;
7125  T2910:;{object V1588;  T2910:;{object V1607;
7126          V1588= (VV[2]->s.s_dbind);          V1607= (VV[2]->s.s_dbind);
7127          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7128          base[10]= (V1579);          base[10]= (V1598);
7129          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7130          (void) (*Lnk177)();          (void) (*Lnk177)();
7131          vs_top=sup;          vs_top=sup;
7132          V1589= vs_base[0];          V1608= vs_base[0];
7133          if(!((V1588)==(CMPcar(V1589)))){          if(!((V1607)==(CMPcar(V1608)))){
7134          goto T2915;}}          goto T2915;}}
7135          V1580= CMPcar(((V1579))->cc.cc_turbo[13]);          V1599= CMPcar(((V1598))->cc.cc_turbo[13]);
7136          goto T2908;          goto T2908;
7137          goto T2915;          goto T2915;
7138  T2915:;  T2915:;
# Line 7121  T2915:; Line 7140  T2915:;
7140          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7141          Lerror();          Lerror();
7142          vs_top=sup;          vs_top=sup;
7143          V1580= vs_base[0];          V1599= vs_base[0];
7144          goto T2908;          goto T2908;
7145  T2908:;  T2908:;
7146          base[9]= (V1578);          base[9]= (V1597);
7147          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7148          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
7149          vs_top=sup;          vs_top=sup;
7150          V1581= vs_base[0];          V1600= vs_base[0];
7151          V1582= ((V1581))->v.v_self[9];          V1601= ((V1600))->v.v_self[9];
7152          V1583= ((V1580))->v.v_self[9];          V1602= ((V1599))->v.v_self[9];
7153          if(type_of(V1576)==t_structure){          if(type_of(V1595)==t_structure){
7154          goto T2929;}          goto T2929;}
7155          goto T2927;          goto T2927;
7156          goto T2929;          goto T2929;
7157  T2929:;  T2929:;
7158          if(!(((V1576)->str.str_def)==(VV[159]))){          if(!(((V1595)->str.str_def)==(VV[159]))){
7159          goto T2927;}          goto T2927;}
7160          V1584= STREF(object,(V1576),4);          V1603= STREF(object,(V1595),4);
7161          goto T2925;          goto T2925;
7162          goto T2927;          goto T2927;
7163  T2927:;{object V1591;  T2927:;{object V1610;
7164          V1591= (VV[2]->s.s_dbind);          V1610= (VV[2]->s.s_dbind);
7165          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7166          base[10]= (V1576);          base[10]= (V1595);
7167          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7168          (void) (*Lnk177)();          (void) (*Lnk177)();
7169          vs_top=sup;          vs_top=sup;
7170          V1592= vs_base[0];          V1611= vs_base[0];
7171          if(!((V1591)==(CMPcar(V1592)))){          if(!((V1610)==(CMPcar(V1611)))){
7172          goto T2932;}}          goto T2932;}}
7173          V1584= CMPcar(((V1576))->cc.cc_turbo[12]);          V1603= CMPcar(((V1595))->cc.cc_turbo[12]);
7174          goto T2925;          goto T2925;
7175          goto T2932;          goto T2932;
7176  T2932:;  T2932:;
# Line 7159  T2932:; Line 7178  T2932:;
7178          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7179          Lerror();          Lerror();
7180          vs_top=sup;          vs_top=sup;
7181          V1584= vs_base[0];          V1603= vs_base[0];
7182          goto T2925;          goto T2925;
7183  T2925:;  T2925:;
7184          if(type_of(V1579)==t_structure){          if(type_of(V1598)==t_structure){
7185          goto T2942;}          goto T2942;}
7186          goto T2940;          goto T2940;
7187          goto T2942;          goto T2942;
7188  T2942:;  T2942:;
7189          if(!(((V1579)->str.str_def)==(VV[160]))){          if(!(((V1598)->str.str_def)==(VV[160]))){
7190          goto T2940;}          goto T2940;}
7191          V1585= STREF(object,(V1579),4);          V1604= STREF(object,(V1598),4);
7192          goto T2938;          goto T2938;
7193          goto T2940;          goto T2940;
7194  T2940:;{object V1594;  T2940:;{object V1613;
7195          V1594= (VV[2]->s.s_dbind);          V1613= (VV[2]->s.s_dbind);
7196          base[9]= small_fixnum(14);          base[9]= small_fixnum(14);
7197          base[10]= (V1579);          base[10]= (V1598);
7198          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7199          (void) (*Lnk177)();          (void) (*Lnk177)();
7200          vs_top=sup;          vs_top=sup;
7201          V1595= vs_base[0];          V1614= vs_base[0];
7202          if(!((V1594)==(CMPcar(V1595)))){          if(!((V1613)==(CMPcar(V1614)))){
7203          goto T2945;}}          goto T2945;}}
7204          V1585= CMPcar(((V1579))->cc.cc_turbo[12]);          V1604= CMPcar(((V1598))->cc.cc_turbo[12]);
7205          goto T2938;          goto T2938;
7206          goto T2945;          goto T2945;
7207  T2945:;  T2945:;
# Line 7190  T2945:; Line 7209  T2945:;
7209          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7210          Lerror();          Lerror();
7211          vs_top=sup;          vs_top=sup;
7212          V1585= vs_base[0];          V1604= vs_base[0];
7213          goto T2938;          goto T2938;
7214  T2938:;  T2938:;
7215          V1586= ((V1581))->v.v_self[10];          V1605= ((V1600))->v.v_self[10];
7216          {register object V1596;          {register object V1615;
7217          object V1597;          object V1616;
7218          register object V1598;          register object V1617;
7219          object V1599;          object V1618;
7220          V1596= (V1583);          V1615= (V1602);
7221          V1597= Cnil;          V1616= Cnil;
7222          V1598= small_fixnum(0);          V1617= small_fixnum(0);
7223          V1599= Cnil;          V1618= Cnil;
7224          goto T2958;          goto T2958;
7225  T2958:;  T2958:;
7226          {object V1600;          {object V1619;
7227          if(!(((V1596))==Cnil)){          if(!(((V1615))==Cnil)){
7228          goto T2964;}          goto T2964;}
7229          goto T2952;          goto T2952;
7230          goto T2964;          goto T2964;
7231  T2964:;  T2964:;
7232          V1600= CMPcar((V1596));          V1619= CMPcar((V1615));
7233          V1596= CMPcdr((V1596));          V1615= CMPcdr((V1615));
7234          V1597= (V1600);}          V1616= (V1619);}
7235          {object V1601;          {object V1620;
7236          V1601= (V1598);          V1620= (V1617);
7237          V1598= number_plus((V1598),small_fixnum(1));          V1617= number_plus((V1617),small_fixnum(1));
7238          V1599= (V1601);}          V1618= (V1620);}
7239          {long V1602;          {long V1621;
7240          register object V1603;          register object V1622;
7241          V1602= fix((V1599));          V1621= fix((V1618));
7242          base[10]= (V1597);          base[10]= (V1616);
7243          base[11]= (V1582);          base[11]= (V1601);
7244          base[12]= VV[8];          base[12]= VV[8];
7245          base[13]= (VV[9]->s.s_gfdef);          base[13]= (VV[9]->s.s_gfdef);
7246          vs_top=(vs_base=base+10)+4;          vs_top=(vs_base=base+10)+4;
7247          (void) (*Lnk305)();          (void) (*Lnk305)();
7248          vs_top=sup;          vs_top=sup;
7249          V1603= vs_base[0];          V1622= vs_base[0];
7250          if(((V1603))==Cnil){          if(((V1622))==Cnil){
7251          goto T2959;}          goto T2959;}
7252          (void)(((V1585))->v.v_self[V1602]= (((V1584))->v.v_self[fix((V1603))]));}          (void)(((V1604))->v.v_self[V1621]= (((V1603))->v.v_self[fix((V1622))]));}
7253          goto T2959;          goto T2959;
7254  T2959:;  T2959:;
7255          goto T2958;}          goto T2958;}
7256          goto T2952;          goto T2952;
7257  T2952:;  T2952:;
7258          {register object V1604;          {register object V1623;
7259          register object V1605;          register object V1624;
7260          V1604= (V1586);          V1623= (V1605);
7261          V1605= Cnil;          V1624= Cnil;
7262          goto T2985;          goto T2985;
7263  T2985:;  T2985:;
7264          {object V1606;          {object V1625;
7265          if(!(((V1604))==Cnil)){          if(!(((V1623))==Cnil)){
7266          goto T2991;}          goto T2991;}
7267          goto T2981;          goto T2981;
7268          goto T2991;          goto T2991;
7269  T2991:;  T2991:;
7270          V1606= CMPcar((V1604));          V1625= CMPcar((V1623));
7271          V1604= CMPcdr((V1604));          V1623= CMPcdr((V1623));
7272          V1605= (V1606);}          V1624= (V1625);}
7273          {register object V1607;          {register object V1626;
7274          base[9]= CMPcar((V1605));          base[9]= CMPcar((V1624));
7275          base[10]= (V1583);          base[10]= (V1602);
7276          base[11]= VV[8];          base[11]= VV[8];
7277          base[12]= (VV[9]->s.s_gfdef);          base[12]= (VV[9]->s.s_gfdef);
7278          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
7279          (void) (*Lnk305)();          (void) (*Lnk305)();
7280          vs_top=sup;          vs_top=sup;
7281          V1607= vs_base[0];          V1626= vs_base[0];
7282          if(((V1607))==Cnil){          if(((V1626))==Cnil){
7283          goto T2986;}          goto T2986;}
7284          (void)((((V1585))->v.v_self[fix((V1607))]=(CMPcdr((V1605)))));}          (void)((((V1604))->v.v_self[fix((V1626))]=(CMPcdr((V1624)))));}
7285          goto T2986;          goto T2986;
7286  T2986:;  T2986:;
7287          goto T2985;}          goto T2985;}
7288          goto T2981;          goto T2981;
7289  T2981:;  T2981:;
7290          (void)((*(LnkLI330))((V1576),(V1579)));          (void)((*(LnkLI330))((V1595),(V1598)));
7291          base[9]= (V1579);          base[9]= (V1598);
7292          base[10]= (V1576);          base[10]= (V1595);
7293          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7294          (void) (*Lnk332)(Lclptr332);          (void) (*Lnk332)(Lclptr332);
7295          vs_top=sup;          vs_top=sup;
7296          {object V1608 = (V1576);          {object V1627 = (V1595);
7297          VMR99(V1608)}}          VMR99(V1627)}}
7298          base[0]=base[0];          base[0]=base[0];
7299          return Cnil;          return Cnil;
7300  }  }
7301  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))    */  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))    */
7302    
7303  static object LI113(V1613,V1614,V1615,V1616)  static object LI113(V1632,V1633,V1634,V1635)
7304    
7305  object V1613;object V1614;register object V1615;object V1616;  object V1632;object V1633;register object V1634;object V1635;
7306  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
7307          goto TTL;          goto TTL;
7308  TTL:;  TTL:;
7309          if(type_of(V1615)==t_structure){          if(type_of(V1634)==t_structure){
7310          goto T3014;}          goto T3014;}
7311          goto T3013;          goto T3013;
7312          goto T3014;          goto T3014;
7313  T3014:;  T3014:;
7314          if(((V1615)->str.str_def)==(VV[161])){          if(((V1634)->str.str_def)==(VV[161])){
7315          goto T3011;}          goto T3011;}
7316          goto T3013;          goto T3013;
7317  T3013:;  T3013:;
7318          base[0]= VV[162];          base[0]= VV[162];
7319          base[1]= (V1615);          base[1]= (V1634);
7320          base[2]= (V1616);          base[2]= (V1635);
7321          base[3]= VV[163];          base[3]= VV[163];
7322          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7323          Lerror();          Lerror();
7324          vs_top=sup;          vs_top=sup;
7325          goto T3011;          goto T3011;
7326  T3011:;  T3011:;
7327          {object V1619 = (*(LnkLI333))((V1615),(V1616));          {object V1638 = (*(LnkLI333))((V1634),(V1635));
7328          VMR100(V1619)}          VMR100(V1638)}
7329          base[0]=base[0];          base[0]=base[0];
7330          return Cnil;          return Cnil;
7331  }  }
7332  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))        */  /*      local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))        */
7333    
7334  static object LI114(V1624,V1625,V1626,V1627)  static object LI114(V1643,V1644,V1645,V1646)
7335    
7336  object V1624;object V1625;register object V1626;object V1627;  object V1643;object V1644;register object V1645;object V1646;
7337  {        VMB101 VMS101 VMV101  {        VMB101 VMS101 VMV101
7338          goto TTL;          goto TTL;
7339  TTL:;{object V1629;  TTL:;{object V1648;
7340          V1629= (VV[2]->s.s_dbind);          V1648= (VV[2]->s.s_dbind);
7341          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
7342          base[1]= (V1626);          base[1]= (V1645);
7343          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7344          (void) (*Lnk177)();          (void) (*Lnk177)();
7345          vs_top=sup;          vs_top=sup;
7346          V1630= vs_base[0];          V1649= vs_base[0];
7347          if((V1629)==(CMPcar(V1630))){          if((V1648)==(CMPcar(V1649))){
7348          goto T3024;}}          goto T3024;}}
7349          base[0]= VV[164];          base[0]= VV[164];
7350          base[1]= (V1626);          base[1]= (V1645);
7351          base[2]= (V1627);          base[2]= (V1646);
7352          base[3]= VV[165];          base[3]= VV[165];
7353          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7354          Lerror();          Lerror();
7355          vs_top=sup;          vs_top=sup;
7356          goto T3024;          goto T3024;
7357  T3024:;  T3024:;
7358          {object V1631 = (*(LnkLI333))((V1626),(V1627));          {object V1650 = (*(LnkLI333))((V1645),(V1646));
7359          VMR101(V1631)}          VMR101(V1650)}
7360          base[0]=base[0];          base[0]=base[0];
7361          return Cnil;          return Cnil;
7362  }  }
# Line 7347  static void L115() Line 7366  static void L115()
7366  {register object *base=vs_base;  {register object *base=vs_base;
7367          register object *sup=base+VM102; VC102          register object *sup=base+VM102; VC102
7368          vs_check;          vs_check;
7369          {object V1632;          {object V1651;
7370          object V1633;          object V1652;
7371          object V1634;          object V1653;
7372          object V1635;          object V1654;
7373          check_arg(4);          check_arg(4);
7374          V1632=(base[0]);          V1651=(base[0]);
7375          V1633=(base[1]);          V1652=(base[1]);
7376          V1634=(base[2]);          V1653=(base[2]);
7377          V1635=(base[3]);          V1654=(base[3]);
7378          vs_top=sup;          vs_top=sup;
7379          goto TTL;          goto TTL;
7380  TTL:;  TTL:;
7381          base[4]= (V1634);          base[4]= (V1653);
7382          base[5]= (VFUN_NARGS=1,(*(LnkLI219))((V1635)));          base[5]= (VFUN_NARGS=1,(*(LnkLI219))((V1654)));
7383          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7384          (void) (*Lnk226)(Lclptr226);          (void) (*Lnk226)(Lclptr226);
7385          return;          return;
# Line 7368  TTL:; Line 7387  TTL:;
7387  }  }
7388  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))     */  /*      local entry for function (FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))     */
7389    
7390  static object LI116(V1642,V1643,V1644,V1645,V1646)  static object LI116(V1661,V1662,V1663,V1664,V1665)
7391    
7392  object V1642;object V1643;object V1644;object V1645;object V1646;  object V1661;object V1662;object V1663;object V1664;object V1665;
7393  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
7394          goto TTL;          goto TTL;
7395  TTL:;  TTL:;
# Line 7378  TTL:; Line 7397  TTL:;
7397          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7398          Lerror();          Lerror();
7399          vs_top=sup;          vs_top=sup;
7400          {object V1649 = vs_base[0];          {object V1668 = vs_base[0];
7401          VMR103(V1649)}          VMR103(V1668)}
7402          base[0]=base[0];          base[0]=base[0];
7403          return Cnil;          return Cnil;
7404  }  }
7405  /*      local entry for function (FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))      */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))      */
7406    
7407  static object LI117(V1653,V1654,V1655)  static object LI117(V1672,V1673,V1674)
7408    
7409  object V1653;object V1654;object V1655;  object V1672;object V1673;object V1674;
7410  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
7411          goto TTL;          goto TTL;
7412  TTL:;  TTL:;
7413          {object V1657 = Cnil;          {object V1676 = Cnil;
7414          VMR104(V1657)}          VMR104(V1676)}
7415          return Cnil;          return Cnil;
7416  }  }
7417  /*      local entry for function (FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))     */  /*      local entry for function (FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))     */
7418    
7419  static object LI118(V1661,V1662,V1663)  static object LI118(V1680,V1681,V1682)
7420    
7421  object V1661;object V1662;object V1663;  object V1680;object V1681;object V1682;
7422  {        VMB105 VMS105 VMV105  {        VMB105 VMS105 VMV105
7423          goto TTL;          goto TTL;
7424  TTL:;  TTL:;
7425          {object V1665 = Cnil;          {object V1684 = Cnil;
7426          VMR105(V1665)}          VMR105(V1684)}
7427          return Cnil;          return Cnil;
7428  }  }
7429  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))   */  /*      local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))   */
7430    
7431  static object LI119(V1669,V1670,V1671)  static object LI119(V1688,V1689,V1690)
7432    
7433  object V1669;object V1670;object V1671;  object V1688;object V1689;object V1690;
7434  {        VMB106 VMS106 VMV106  {        VMB106 VMS106 VMV106
7435          goto TTL;          goto TTL;
7436  TTL:;  TTL:;
7437          {object V1673 = Cnil;          {object V1692 = Cnil;
7438          VMR106(V1673)}          VMR106(V1692)}
7439          return Cnil;          return Cnil;
7440  }  }
7441  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))  */  /*      local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))  */
7442    
7443  static object LI120(V1677,V1678,V1679)  static object LI120(V1696,V1697,V1698)
7444    
7445  object V1677;object V1678;object V1679;  object V1696;object V1697;object V1698;
7446  {        VMB107 VMS107 VMV107  {        VMB107 VMS107 VMV107
7447          goto TTL;          goto TTL;
7448  TTL:;  TTL:;
7449          {object V1681 = Cnil;          {object V1700 = Cnil;
7450          VMR107(V1681)}          VMR107(V1700)}
7451          return Cnil;          return Cnil;
7452  }  }
7453  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))       */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))       */
7454    
7455  static object LI121(V1686,V1687,V1688,V1689)  static object LI121(V1705,V1706,V1707,V1708)
7456    
7457  object V1686;object V1687;object V1688;object V1689;  object V1705;object V1706;object V1707;object V1708;
7458  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
7459          goto TTL;          goto TTL;
7460  TTL:;  TTL:;
7461          {object V1691 = (((V1689))==((VV[136]->s.s_dbind))?Ct:Cnil);          {object V1710 = (((V1708))==((VV[136]->s.s_dbind))?Ct:Cnil);
7462          VMR108(V1691)}          VMR108(V1710)}
7463          return Cnil;          return Cnil;
7464  }  }
7465  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))        */  /*      local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))        */
7466    
7467  static object LI122(V1696,V1697,V1698,V1699)  static object LI122(V1715,V1716,V1717,V1718)
7468    
7469  object V1696;object V1697;object V1698;object V1699;  object V1715;object V1716;object V1717;object V1718;
7470  {        VMB109 VMS109 VMV109  {        VMB109 VMS109 VMV109
7471          goto TTL;          goto TTL;
7472  TTL:;  TTL:;
7473          {object V1701 = Ct;          {object V1720 = Ct;
7474          VMR109(V1701)}          VMR109(V1720)}
7475          return Cnil;          return Cnil;
7476  }  }
7477  /*      local entry for function (FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */  /*      local entry for function (FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */
7478    
7479  static object LI123(V1706,V1707,V1708,V1709)  static object LI123(V1725,V1726,V1727,V1728)
7480    
7481  object V1706;object V1707;object V1708;object V1709;  object V1725;object V1726;object V1727;object V1728;
7482  {        VMB110 VMS110 VMV110  {        VMB110 VMS110 VMV110
7483          goto TTL;          goto TTL;
7484  TTL:;  TTL:;
7485          {object V1714;          {object V1733;
7486          base[1]= V1709;          base[1]= V1728;
7487          base[2]= (*(LnkLI196))(V1708,VV[167]);          base[2]= (*(LnkLI196))(V1727,VV[167]);
7488          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7489          Ladjoin();          Ladjoin();
7490          vs_top=sup;          vs_top=sup;
7491          V1714= vs_base[0];          V1733= vs_base[0];
7492          {object V1717 = (*(LnkLI194))((V1714),V1708,VV[167]);          {object V1736 = (*(LnkLI194))((V1733),V1727,VV[167]);
7493          VMR110(V1717)}}          VMR110(V1736)}}
7494          base[0]=base[0];          base[0]=base[0];
7495          return Cnil;          return Cnil;
7496  }  }
7497  /*      local entry for function (FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))      */  /*      local entry for function (FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))      */
7498    
7499  static object LI124(V1722,V1723,V1724,V1725)  static object LI124(V1741,V1742,V1743,V1744)
7500    
7501  object V1722;object V1723;object V1724;object V1725;  object V1741;object V1742;object V1743;object V1744;
7502  {        VMB111 VMS111 VMV111  {        VMB111 VMS111 VMV111
7503          goto TTL;          goto TTL;
7504  TTL:;  TTL:;
7505          base[0]= (V1725);          base[0]= (V1744);
7506          base[1]= (*(LnkLI196))((V1724),VV[167]);          base[1]= (*(LnkLI196))((V1743),VV[167]);
7507          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7508          (void) (*Lnk334)();          (void) (*Lnk334)();
7509          vs_top=sup;          vs_top=sup;
7510          V1729= vs_base[0];          V1748= vs_base[0];
7511          {object V1730 = (*(LnkLI194))(V1729,V1724,VV[167]);          V1749 = V1743;
7512          VMR111(V1730)}          V1750 = VV[167];
7513            {object V1751 = (*(LnkLI194))(V1748,V1749,V1750);
7514            VMR111(V1751)}
7515          base[0]=base[0];          base[0]=base[0];
7516          return Cnil;          return Cnil;
7517  }  }
7518  /*      local entry for function (FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))        */  /*      local entry for function (FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))        */
7519    
7520  static object LI125(V1735,V1736,V1737,V1738)  static object LI125(V1756,V1757,V1758,V1759)
7521    
7522  object V1735;object V1736;object V1737;register object V1738;  object V1756;object V1757;object V1758;register object V1759;
7523  {        VMB112 VMS112 VMV112  {        VMB112 VMS112 VMV112
7524          goto TTL;          goto TTL;
7525  TTL:;  TTL:;
7526          {register object V1740;          {register object V1761;
7527          register object V1741;          register object V1762;
7528          V1740= (*(LnkLI196))((V1737),VV[167]);          V1761= (*(LnkLI196))((V1758),VV[167]);
7529          V1741= CMPcar((V1740));          V1762= CMPcar((V1761));
7530          goto T3082;          goto T3082;
7531  T3082:;  T3082:;
7532          if(!(((V1740))==Cnil)){          if(!(((V1761))==Cnil)){
7533          goto T3083;}          goto T3083;}
7534          {object V1742 = Cnil;          {object V1763 = Cnil;
7535          VMR112(V1742)}          VMR112(V1763)}
7536          goto T3083;          goto T3083;
7537  T3083:;  T3083:;
7538          (void)((          (void)((
7539          (type_of((V1738)) == t_sfun ?(*(((V1738))->sfn.sfn_self)):          (type_of((V1759)) == t_sfun ?(*(((V1759))->sfn.sfn_self)):
7540          (fcall.argd=1,type_of((V1738))==t_vfun) ?          (fcall.argd=1,type_of((V1759))==t_vfun) ?
7541          (*(((V1738))->sfn.sfn_self)):          (*(((V1759))->sfn.sfn_self)):
7542          (fcall.fun=((V1738)),fcalln))((V1741))));          (fcall.fun=((V1759)),fcalln))((V1762))));
7543          V1740= CMPcdr((V1740));          V1761= CMPcdr((V1761));
7544          V1741= CMPcar((V1740));          V1762= CMPcar((V1761));
7545          goto T3082;}          goto T3082;}
7546          base[0]=base[0];          base[0]=base[0];
7547          return Cnil;          return Cnil;
# Line 7532  register object *base0; Line 7553  register object *base0;
7553  {       register object *base=vs_base;  {       register object *base=vs_base;
7554          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
7555          vs_check;          vs_check;
7556          {register object V1743;          {register object V1764;
7557          check_arg(1);          check_arg(1);
7558          V1743=(base[0]);          V1764=(base[0]);
7559          vs_top=sup;          vs_top=sup;
7560          goto TTL;          goto TTL;
7561  TTL:;  TTL:;
7562          if(((V1743))!=Cnil){          if(((V1764))!=Cnil){
7563          goto T3094;}          goto T3094;}
7564          base[1]= Cnil;          base[1]= Cnil;
7565          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7566          return;          return;
7567          goto T3094;          goto T3094;
7568  T3094:;  T3094:;
7569          {object V1744;          {object V1765;
7570          {object V1745;          {object V1766;
7571          V1745= CMPcar((V1743));          V1766= CMPcar((V1764));
7572          V1743= CMPcdr((V1743));          V1764= CMPcdr((V1764));
7573          V1744= (V1745);}          V1765= (V1766);}
7574          if(!(((V1744))==(base0[0]))){          if(!(((V1765))==(base0[0]))){
7575          goto T3102;}          goto T3102;}
7576          V1746= base0[1];          V1767= base0[1];
7577          goto T3100;          goto T3100;
7578          goto T3102;          goto T3102;
7579  T3102:;  T3102:;
7580          base[1]= (V1744);          base[1]= (V1765);
7581          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7582          (void) (*Lnk296)(Lclptr296);          (void) (*Lnk296)(Lclptr296);
7583          vs_top=sup;          vs_top=sup;
7584          V1746= vs_base[0];          V1767= vs_base[0];
7585          goto T3100;          goto T3100;
7586  T3100:;  T3100:;
7587          base[1]= (V1743);          base[1]= (V1764);
7588          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7589          L80(base0);          L80(base0);
7590          vs_top=sup;          vs_top=sup;
7591          V1747= vs_base[0];          V1768= vs_base[0];
7592          base[1]= append(V1746,V1747);          base[1]= append(V1767,V1768);
7593          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7594          return;}          return;}
7595          }          }
# Line 7580  register object *base0; Line 7601  register object *base0;
7601  {       register object *base=vs_base;  {       register object *base=vs_base;
7602          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
7603          vs_check;          vs_check;
7604          {object V1748;          {object V1769;
7605          object V1749;          object V1770;
7606          check_arg(2);          check_arg(2);
7607          V1748=(base[0]);          V1769=(base[0]);
7608          V1749=(base[1]);          V1770=(base[1]);
7609          vs_top=sup;          vs_top=sup;
7610          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7611          base[3]= (V1748);          base[3]= (V1769);
7612          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7613          (void) (*Lnk335)(Lclptr335);          (void) (*Lnk335)(Lclptr335);
7614          return;          return;
# Line 7600  register object *base0; Line 7621  register object *base0;
7621  {       register object *base=vs_base;  {       register object *base=vs_base;
7622          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
7623          vs_check;          vs_check;
7624          {object V1750;          {object V1771;
7625          check_arg(1);          check_arg(1);
7626          V1750=(base[0]);          V1771=(base[0]);
7627          vs_top=sup;          vs_top=sup;
7628          goto TTL;          goto TTL;
7629  TTL:;  TTL:;
7630          {register object V1751;          {register object V1772;
7631          register object V1752;          register object V1773;
7632          base[3]= (V1750);          base[3]= (V1771);
7633          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7634          (void) (*Lnk336)(Lclptr336);          (void) (*Lnk336)(Lclptr336);
7635          vs_top=sup;          vs_top=sup;
7636          V1751= vs_base[0];          V1772= vs_base[0];
7637          V1752= CMPcar((V1751));          V1773= CMPcar((V1772));
7638          goto T3114;          goto T3114;
7639  T3114:;  T3114:;
7640          if(!(((V1751))==Cnil)){          if(!(((V1772))==Cnil)){
7641          goto T3115;}          goto T3115;}
7642          goto T3109;          goto T3109;
7643          goto T3115;          goto T3115;
7644  T3115:;  T3115:;
7645          {register object V1753;          {register object V1774;
7646          register object V1754;          register object V1775;
7647          register object V1755;          register object V1776;
7648          V1753= (V1752);          V1774= (V1773);
7649          V1754= base0[1];          V1775= base0[1];
7650          V1755= Ct;          V1776= Ct;
7651          base[3]= (V1753);          base[3]= (V1774);
7652          base[4]= (V1754);          base[4]= (V1775);
7653          base[5]= (V1755);          base[5]= (V1776);
7654          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7655          siLhash_set();          siLhash_set();
7656          vs_top=sup;}          vs_top=sup;}
7657          V1751= CMPcdr((V1751));          V1772= CMPcdr((V1772));
7658          V1752= CMPcar((V1751));          V1773= CMPcar((V1772));
7659          goto T3114;}          goto T3114;}
7660          goto T3109;          goto T3109;
7661  T3109:;  T3109:;
7662          base[1]= (V1750);          base[1]= (V1771);
7663          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7664          (void) (*Lnk249)(Lclptr249);          (void) (*Lnk249)(Lclptr249);
7665          vs_top=sup;          vs_top=sup;
7666          V1757= vs_base[0];          V1778= vs_base[0];
7667          {          {
7668          object V1756= V1757;          object V1777= V1778;
7669          if(V1756==Cnil){          if(V1777==Cnil){
7670          base[1]= Cnil;          base[1]= Cnil;
7671          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7672          return;}          return;}
7673          goto T3131;          goto T3131;
7674  T3131:;  T3131:;
7675          base[1]= (V1756->c.c_car);          base[1]= (V1777->c.c_car);
7676          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7677          L75(base0);          L75(base0);
7678          vs_top=sup;          vs_top=sup;
7679          if((V1756=MMcdr(V1756))==Cnil){          if((V1777=MMcdr(V1777))==Cnil){
7680          base[1]= V1757;          base[1]= V1778;
7681          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7682          return;}          return;}
7683          goto T3131;}          goto T3131;}
# Line 7669  register object *base0; Line 7690  register object *base0;
7690  {       register object *base=vs_base;  {       register object *base=vs_base;
7691          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
7692          vs_check;          vs_check;
7693          {object V1758;          {object V1779;
7694          check_arg(1);          check_arg(1);
7695          V1758=(base[0]);          V1779=(base[0]);
7696          vs_top=sup;          vs_top=sup;
7697          goto TTL;          goto TTL;
7698  TTL:;  TTL:;
7699          if(((V1758))==Cnil){          if(((V1779))==Cnil){
7700          goto T3137;}          goto T3137;}
7701          base[1]= CMPcdr((V1758));          base[1]= CMPcdr((V1779));
7702          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7703          L71(base0);          L71(base0);
7704          vs_top=sup;          vs_top=sup;
7705          {register object V1759;          {register object V1780;
7706          object V1760;          object V1781;
7707          base[3]= CMPcar((V1758));          base[3]= CMPcar((V1779));
7708          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7709          (void) (*Lnk337)(Lclptr337);          (void) (*Lnk337)(Lclptr337);
7710          vs_top=sup;          vs_top=sup;
7711          V1759= vs_base[0];          V1780= vs_base[0];
7712          V1760= CMPcar((V1759));          V1781= CMPcar((V1780));
7713          goto T3145;          goto T3145;
7714  T3145:;  T3145:;
7715          if(!(((V1759))==Cnil)){          if(!(((V1780))==Cnil)){
7716          goto T3146;}          goto T3146;}
7717          base[3]= Cnil;          base[3]= Cnil;
7718          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7719          return;          return;
7720          goto T3146;          goto T3146;
7721  T3146:;  T3146:;
7722          {register object V1761;          {register object V1782;
7723          base[3]= (V1760);          base[3]= (V1781);
7724          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7725          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
7726          vs_top=sup;          vs_top=sup;
7727          V1761= vs_base[0];          V1782= vs_base[0];
7728          {register object x= (V1761),V1762= base0[0];          {register object x= (V1782),V1783= base0[0];
7729          while(V1762!=Cnil)          while(V1783!=Cnil)
7730          if(eql(x,V1762->c.c_car)){          if(eql(x,V1783->c.c_car)){
7731          goto T3154;          goto T3154;
7732          }else V1762=V1762->c.c_cdr;          }else V1783=V1783->c.c_cdr;
7733          goto T3150;}          goto T3150;}
7734          goto T3154;          goto T3154;
7735  T3154:;  T3154:;
7736          base0[1]= make_cons((V1761),base0[1]);          base0[1]= make_cons((V1782),base0[1]);
7737          base[3]= (V1761);          base[3]= (V1782);
7738          base[4]= base0[0];          base[4]= base0[0];
7739          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7740          (void) (*Lnk95)();          (void) (*Lnk95)();
# Line 7721  T3154:; Line 7742  T3154:;
7742          base0[0]= vs_base[0];}          base0[0]= vs_base[0];}
7743          goto T3150;          goto T3150;
7744  T3150:;  T3150:;
7745          V1759= CMPcdr((V1759));          V1780= CMPcdr((V1780));
7746          V1760= CMPcar((V1759));          V1781= CMPcar((V1780));
7747          goto T3145;}          goto T3145;}
7748          goto T3137;          goto T3137;
7749  T3137:;  T3137:;
# Line 7738  register object *base0; Line 7759  register object *base0;
7759  {       register object *base=vs_base;  {       register object *base=vs_base;
7760          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
7761          vs_check;          vs_check;
7762          {object V1763;          {object V1784;
7763          object V1764;          object V1785;
7764          object V1765;          object V1786;
7765          check_arg(3);          check_arg(3);
7766          V1763=(base[0]);          V1784=(base[0]);
7767          V1764=(base[1]);          V1785=(base[1]);
7768          V1765=(base[2]);          V1786=(base[2]);
7769          vs_top=sup;          vs_top=sup;
7770          goto TTL;          goto TTL;
7771  TTL:;  TTL:;
7772          {object V1766;          {object V1787;
7773          base[3]= (V1763);          base[3]= (V1784);
7774          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7775          (void) (*Lnk338)();          (void) (*Lnk338)();
7776          vs_top=sup;          vs_top=sup;
7777          V1766= vs_base[0];          V1787= vs_base[0];
7778          {object V1767= (V1765);          {object V1788= (V1786);
7779          if((V1767!= VV[96]))goto T3167;          if((V1788!= VV[96]))goto T3167;
7780          if(!((base0[0])==(VV[94]))){          if(!((base0[0])==(VV[94]))){
7781          goto T3169;}          goto T3169;}
7782          base[3]= base0[1];          base[3]= base0[1];
7783          base[4]= (V1766);          base[4]= (V1787);
7784          base[5]= (V1764);          base[5]= (V1785);
7785          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7786          (void) (*Lnk339)(Lclptr339);          (void) (*Lnk339)(Lclptr339);
7787          return;          return;
7788          goto T3169;          goto T3169;
7789  T3169:;  T3169:;
7790          base[3]= base0[1];          base[3]= base0[1];
7791          base[4]= (V1766);          base[4]= (V1787);
7792          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7793          (void) (*Lnk340)(Lclptr340);          (void) (*Lnk340)(Lclptr340);
7794          return;          return;
7795          goto T3167;          goto T3167;
7796  T3167:;  T3167:;
7797          if((V1767!= VV[97]))goto T3176;          if((V1788!= VV[97]))goto T3176;
7798          if(!((base0[0])==(VV[94]))){          if(!((base0[0])==(VV[94]))){
7799          goto T3178;}          goto T3178;}
7800          base[3]= base0[1];          base[3]= base0[1];
7801          base[4]= (V1766);          base[4]= (V1787);
7802          base[5]= (V1764);          base[5]= (V1785);
7803          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7804          (void) (*Lnk341)(Lclptr341);          (void) (*Lnk341)(Lclptr341);
7805          return;          return;
7806          goto T3178;          goto T3178;
7807  T3178:;  T3178:;
7808          base[3]= base0[1];          base[3]= base0[1];
7809          base[4]= (V1766);          base[4]= (V1787);
7810          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7811          (void) (*Lnk342)(Lclptr342);          (void) (*Lnk342)(Lclptr342);
7812          return;          return;
# Line 7803  register object *base0; Line 7824  register object *base0;
7824  {       register object *base=vs_base;  {       register object *base=vs_base;
7825          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
7826          vs_check;          vs_check;
7827          {object V1768;          {object V1789;
7828          check_arg(1);          check_arg(1);
7829          V1768=(base[0]);          V1789=(base[0]);
7830          vs_top=sup;          vs_top=sup;
7831          base[1]=VV[343]->s.s_gfdef;          base[1]=VV[343]->s.s_gfdef;
7832          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
7833          base[3]= (V1768);          base[3]= (V1789);
7834          {object V1769;          {object V1790;
7835          V1769= (base0[0]->c.c_car);          V1790= (base0[0]->c.c_car);
7836           vs_top=base+4;           vs_top=base+4;
7837           while(V1769!=Cnil)           while(V1790!=Cnil)
7838           {vs_push((V1769)->c.c_car);V1769=(V1769)->c.c_cdr;}           {vs_push((V1790)->c.c_car);V1790=(V1790)->c.c_cdr;}
7839          vs_base=base+2;}          vs_base=base+2;}
7840          (void) (*Lnk343)(Lclptr343);          (void) (*Lnk343)(Lclptr343);
7841          return;          return;
# Line 7827  register object *base0; Line 7848  register object *base0;
7848  {       register object *base=vs_base;  {       register object *base=vs_base;
7849          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
7850          vs_check;          vs_check;
7851          {object V1770;          {object V1791;
7852          check_arg(1);          check_arg(1);
7853          V1770=(base[0]);          V1791=(base[0]);
7854          vs_top=sup;          vs_top=sup;
7855          goto TTL;          goto TTL;
7856  TTL:;  TTL:;
7857          base[1]= (V1770);          base[1]= (V1791);
7858          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7859          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk288)(Lclptr288);
7860          vs_top=sup;          vs_top=sup;
7861          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7862          goto T3189;}          goto T3189;}
7863          base[1]= (V1770);          base[1]= (V1791);
7864          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7865          return;          return;
7866          goto T3189;          goto T3189;
7867  T3189:;  T3189:;
7868          if(((*(LnkLI344))((V1770)))!=Cnil){          if(((*(LnkLI344))((V1791)))!=Cnil){
7869          goto T3193;}          goto T3193;}
7870          base[1]= VV[53];          base[1]= VV[53];
7871          base[2]= (V1770);          base[2]= (V1791);
7872          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7873          Lerror();          Lerror();
7874          return;          return;
7875          goto T3193;          goto T3193;
7876  T3193:;{object V1771;  T3193:;{object V1792;
7877          V1771= (VFUN_NARGS=2,(*(LnkLI219))((V1770),Cnil));          V1792= (VFUN_NARGS=2,(*(LnkLI219))((V1791),Cnil));
7878          if(V1771==Cnil)goto T3197;          if(V1792==Cnil)goto T3197;
7879          base[1]= V1771;          base[1]= V1792;
7880          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7881          return;          return;
7882          goto T3197;          goto T3197;
7883  T3197:;}  T3197:;}
7884          {object V1773;          {object V1794;
7885          base[2]= VV[54];          base[2]= VV[54];
7886          base[3]= VV[50];          base[3]= VV[50];
7887          base[4]= (V1770);          base[4]= (V1791);
7888          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7889          (void) (*Lnk223)(Lclptr223);          (void) (*Lnk223)(Lclptr223);
7890          vs_top=sup;          vs_top=sup;
7891          V1773= vs_base[0];          V1794= vs_base[0];
7892          base[2]= (*(LnkLI224))((V1773),V1770);          base[2]= (*(LnkLI224))((V1794),V1791);
7893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7894          return;}          return;}
7895          }          }
# Line 7880  register object *base0; Line 7901  register object *base0;
7901  {       register object *base=vs_base;  {       register object *base=vs_base;
7902          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
7903          vs_check;          vs_check;
7904          {object V1774;          {object V1795;
7905          check_arg(1);          check_arg(1);
7906          V1774=(base[0]);          V1795=(base[0]);
7907          vs_top=sup;          vs_top=sup;
7908          {register object V1775;          {register object V1796;
7909          register object V1776;          register object V1797;
7910          base[3]= (V1774);          base[3]= (V1795);
7911          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7912          (void) (*Lnk336)(Lclptr336);          (void) (*Lnk336)(Lclptr336);
7913          vs_top=sup;          vs_top=sup;
7914          V1775= vs_base[0];          V1796= vs_base[0];
7915          V1776= CMPcar((V1775));          V1797= CMPcar((V1796));
7916          goto T3207;          goto T3207;
7917  T3207:;  T3207:;
7918          if(!(((V1775))==Cnil)){          if(!(((V1796))==Cnil)){
7919          goto T3208;}          goto T3208;}
7920          base[3]= Cnil;          base[3]= Cnil;
7921          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7922          return;          return;
7923          goto T3208;          goto T3208;
7924  T3208:;  T3208:;
7925          base[3]= (V1776);          base[3]= (V1797);
7926          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
7927          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7928          Lgethash();          Lgethash();
7929          vs_top=sup;          vs_top=sup;
7930          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
7931          goto T3212;}          goto T3212;}
7932          {register object V1777;          {register object V1798;
7933          register object V1778;          register object V1799;
7934          register object V1779;          register object V1800;
7935          V1777= (V1776);          V1798= (V1797);
7936          V1778= (base0[0]->c.c_car);          V1799= (base0[0]->c.c_car);
7937          V1779= Ct;          V1800= Ct;
7938          base[3]= (V1777);          base[3]= (V1798);
7939          base[4]= (V1778);          base[4]= (V1799);
7940          base[5]= (V1779);          base[5]= (V1800);
7941          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7942          siLhash_set();          siLhash_set();
7943          vs_top=sup;}          vs_top=sup;}
# Line 7924  T3208:; Line 7945  T3208:;
7945          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):
7946          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?
7947          (*(((base0[1]->c.c_car))->sfn.sfn_self)):          (*(((base0[1]->c.c_car))->sfn.sfn_self)):
7948          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V1776))));          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V1797))));
7949          goto T3212;          goto T3212;
7950  T3212:;  T3212:;
7951          V1775= CMPcdr((V1775));          V1796= CMPcdr((V1796));
7952          V1776= CMPcar((V1775));          V1797= CMPcar((V1796));
7953          goto T3207;}          goto T3207;}
7954          }          }
7955  }  }
# Line 7939  register object *base0; Line 7960  register object *base0;
7960  {       register object *base=vs_base;  {       register object *base=vs_base;
7961          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
7962          vs_check;          vs_check;
7963          {object V1780;          {object V1801;
7964          object V1781;          object V1802;
7965          check_arg(2);          check_arg(2);
7966          V1780=(base[0]);          V1801=(base[0]);
7967          V1781=(base[1]);          V1802=(base[1]);
7968          vs_top=sup;          vs_top=sup;
7969          base[2]= (V1781);          base[2]= (V1802);
7970          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7971          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7972                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7961  register object *base0; Line 7982  register object *base0;
7982  {       register object *base=vs_base;  {       register object *base=vs_base;
7983          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
7984          vs_check;          vs_check;
7985          {object V1782;          {object V1803;
7986          object V1783;          object V1804;
7987          check_arg(2);          check_arg(2);
7988          V1782=(base[0]);          V1803=(base[0]);
7989          V1783=(base[1]);          V1804=(base[1]);
7990          vs_top=sup;          vs_top=sup;
7991          base[2]= (*(LnkLI345))((V1782));          base[2]= (*(LnkLI345))((V1803));
7992          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7993          return;          return;
7994          }          }
# Line 7979  register object *base0; Line 8000  register object *base0;
8000  {       register object *base=vs_base;  {       register object *base=vs_base;
8001          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
8002          vs_check;          vs_check;
8003          {object V1784;          {object V1805;
8004          check_arg(1);          check_arg(1);
8005          V1784=(base[0]);          V1805=(base[0]);
8006          vs_top=sup;          vs_top=sup;
8007          base[1]= (V1784);          V1806 = (base0[0]->c.c_car);
8008            base[1]= (V1805);
8009          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8010          (void) (*Lnk64)(Lclptr64);          (void) (*Lnk64)(Lclptr64);
8011          vs_top=sup;          vs_top=sup;
8012          V1785= vs_base[0];          V1807= vs_base[0];
8013          (void)((          (void)((
8014          (type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):          V1808 = V1806,
8015          (fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?          (type_of(V1808) == t_sfun ?(*((V1808)->sfn.sfn_self)):
8016          (*(((base0[0]->c.c_car))->sfn.sfn_self)):          (fcall.argd=1,type_of(V1808)==t_vfun) ?
8017          (fcall.fun=((base0[0]->c.c_car)),fcalln))(V1785)));          (*((V1808)->sfn.sfn_self)):
8018          base[1]= (V1784);          (fcall.fun=(V1808),fcalln))(V1807)));
8019            base[1]= (V1805);
8020          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8021          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8022                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

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

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