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

Diff of /gcl/pcl/pcl_init.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 618  T210:; Line 618  T210:;
618          goto T201;}          goto T201;}
619          goto T220;          goto T220;
620  T220:;  T220:;
621          base[9]= (V139);          V147= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
622          base[10]= V126;          V148 = V139;
623          base[11]= V99;          V149 = V126;
624          base[12]= V134;          V150 = V99;
625          vs_top=(vs_base=base+9)+4;          V151 = V134;
626          (void) (*Lnk38)(Lclptr38);          (void)((
627          vs_top=sup;          V152 = V147,
628            (type_of(V152) == t_sfun ?(*((V152)->sfn.sfn_self)):
629            (fcall.argd=4,type_of(V152)==t_vfun) ?
630            (*((V152)->sfn.sfn_self)):
631            (fcall.fun=(V152),fcalln))(V148,V149,V150,V151)));
632          goto T192;          goto T192;
633          goto T201;          goto T201;
634  T201:;  T201:;
# Line 634  T198:; Line 638  T198:;
638          if(((V100))==Cnil){          if(((V100))==Cnil){
639          goto T192;}          goto T192;}
640          if(((V100))==(Ct)){          if(((V100))==(Ct)){
641          goto T230;}          goto T227;}
642          {register object x= (V135),V146= (V100);          {register object x= (V135),V153= (V100);
643          while(V146!=Cnil)          while(V153!=Cnil)
644          if(x==(V146->c.c_car)){          if(x==(V153->c.c_car)){
645          goto T233;          goto T230;
646          }else V146=V146->c.c_cdr;          }else V153=V153->c.c_cdr;
647          goto T192;}          goto T192;}
         goto T233;  
 T233:;  
648          goto T230;          goto T230;
649  T230:;  T230:;
650            goto T227;
651    T227:;
652          if(((V128))!=Cnil){          if(((V128))!=Cnil){
653          goto T234;}          goto T231;}
654          if(((V100))==(Ct)){          if(((V100))==(Ct)){
655          goto T227;}          goto T224;}
656          goto T234;          goto T231;
657  T234:;  T231:;
658          base[9]= (V126);          base[9]= (V126);
659          base[10]= (V99);          base[10]= (V99);
660          base[11]= (V134);          base[11]= (V134);
# Line 659  T234:; Line 663  T234:;
663          vs_top=sup;          vs_top=sup;
664          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
665          goto T192;}          goto T192;}
666          goto T227;          goto T224;
667  T227:;  T224:;
668          {object V147;          {object V154;
669          base[9]= (V134);          base[9]= (V134);
670          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
671          (void) (*Lnk40)(Lclptr40);          (void) (*Lnk40)(Lclptr40);
672          vs_top=sup;          vs_top=sup;
673          V147= vs_base[0];          V154= vs_base[0];
674          if(((V147))==Cnil){          if(((V154))==Cnil){
675          goto T192;}          goto T192;}
676          vs_base=vs_top;          {object V158;
677          {object _funobj = (V147);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          V158= (
678                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);          (type_of((V154)) == t_sfun ?(*(((V154))->sfn.sfn_self)):
679                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();          (fcall.argd=0,type_of((V154))==t_vfun) ?
680                 else super_funcall_no_event(_funobj);}          (*(((V154))->sfn.sfn_self)):
681          vs_top=sup;          (fcall.fun=((V154)),fcalln))());
682          base[9]= vs_base[0];          V159= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
683          base[10]= V126;          V160 = (V158);
684          base[11]= V99;          V161 = V126;
685          base[12]= V134;          V162 = V99;
686          vs_top=(vs_base=base+9)+4;          V163 = V134;
687          (void) (*Lnk38)(Lclptr38);          (void)((
688          vs_top=sup;}}          V164 = V159,
689            (type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)):
690            (fcall.argd=4,type_of(V164)==t_vfun) ?
691            (*((V164)->sfn.sfn_self)):
692            (fcall.fun=(V164),fcalln))(V160,V161,V162,V163)));}}}
693          goto T192;          goto T192;
694  T192:;  T192:;
695          V133= CMPcdr((V133));          V133= CMPcdr((V133));
# Line 696  T183:; Line 704  T183:;
704  }  }
705  /*      local entry for function CHECK-INITARGS-1       */  /*      local entry for function CHECK-INITARGS-1       */
706    
707  static object LI9(object V153,object V152,object V151,object first,...)  static object LI9(object V167,object V166,object V165,object first,...)
708  {        {      
709          va_list ap;          va_list ap;
710          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
711          {object V154;          {object V168;
712          object V155;          object V169;
713          object V156;          object V170;
714          object V157;          object V171;
715          object V158;          object V172;
716          va_start(ap,first);          va_start(ap,first);
717          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
718          V154= V153;          V168= V167;
719          V155= V152;          V169= V166;
720          V156= V151;          V170= V165;
721          narg = narg - 3;          narg = narg - 3;
722          if (narg <= 0) goto T255;          if (narg <= 0) goto T250;
723          else {          else {
724          V157= first;}          V171= first;}
725          if (--narg <= 0) goto T256;          if (--narg <= 0) goto T251;
726          else {          else {
727          V158= va_arg(ap,object);}          V172= va_arg(ap,object);}
728          --narg; goto T257;          --narg; goto T252;
729          goto T255;          goto T250;
730  T255:;  T250:;
731          V157= Ct;          V171= Ct;
732          goto T256;          goto T251;
733  T256:;  T251:;
734          V158= Ct;          V172= Ct;
735          goto T257;          goto T252;
736  T257:;  T252:;
737          {object V159;          {object V173;
738          object V160;          object V174;
739          base[0]= (V154);          base[0]= (V168);
740          base[1]= (V156);          base[1]= (V170);
741          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
742          (void) (*Lnk41)();          (void) (*Lnk41)();
743          if(vs_base>=vs_top){vs_top=sup;goto T263;}          if(vs_base>=vs_top){vs_top=sup;goto T258;}
744          V159= vs_base[0];          V173= vs_base[0];
745          vs_base++;          vs_base++;
746          if(vs_base>=vs_top){vs_top=sup;goto T264;}          if(vs_base>=vs_top){vs_top=sup;goto T259;}
747          V160= vs_base[0];          V174= vs_base[0];
748          vs_top=sup;          vs_top=sup;
749          goto T265;          goto T260;
750          goto T263;          goto T258;
751  T263:;  T258:;
752          V159= Cnil;          V173= Cnil;
753          goto T264;          goto T259;
754  T264:;  T259:;
755          V160= Cnil;          V174= Cnil;
756            goto T260;
757    T260:;
758            if(((V174))!=Cnil){
759            goto T262;}
760            if(((V171))==Cnil){
761            goto T265;}
762            {object V175 = (VFUN_NARGS=4,(*(LnkLI42))((V169),(V168),(V173),(V172)));
763            VMR9(V175)}
764          goto T265;          goto T265;
765  T265:;  T265:;
766          if(((V160))!=Cnil){          {object V176 = (VFUN_NARGS=4,(*(LnkLI43))((V169),(V168),(V173),(V172)));
767          goto T267;}          VMR9(V176)}
768          if(((V157))==Cnil){          goto T262;
769          goto T270;}  T262:;
770          {object V161 = (VFUN_NARGS=4,(*(LnkLI42))((V155),(V154),(V159),(V158)));          {object V177 = Cnil;
771          VMR9(V161)}          VMR9(V177)}}
         goto T270;  
 T270:;  
         {object V162 = (VFUN_NARGS=4,(*(LnkLI43))((V155),(V154),(V159),(V158)));  
         VMR9(V162)}  
         goto T267;  
 T267:;  
         {object V163 = Cnil;  
         VMR9(V163)}}  
772          va_end(ap);          va_end(ap);
773          base[0]=base[0];          base[0]=base[0];
774          return Cnil;}          return Cnil;}
# Line 771  static void L10() Line 779  static void L10()
779  {register object *base=vs_base;  {register object *base=vs_base;
780          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
781          vs_check;          vs_check;
782          {object V164;          {object V178;
783          object V165;          object V179;
784          check_arg(2);          check_arg(2);
785          V164=(base[0]);          V178=(base[0]);
786          V165=(base[1]);          V179=(base[1]);
787          vs_top=sup;          vs_top=sup;
788          goto TTL;          goto TTL;
789  TTL:;  TTL:;
790          {object V166;          {object V180;
791          register object V167;          register object V181;
792          {object V168;          {object V182;
793          object V169= (V165);          object V183= (V179);
794          if(V169==Cnil){          if(V183==Cnil){
795          V166= Cnil;          V180= Cnil;
796          goto T272;}          goto T267;}
797          base[2]=V168=MMcons(Cnil,Cnil);          base[2]=V182=MMcons(Cnil,Cnil);
798          goto T273;          goto T268;
799  T273:;  T268:;
800          {register object V170;          {register object V184;
801          V170= (V169->c.c_car);          V184= (V183->c.c_car);
802          if(!(type_of((V170))==t_cons)){          if(!(type_of((V184))==t_cons)){
803          goto T276;}          goto T271;}
804          base[4]= (*(LnkLI44))(CMPcar((V170)));          base[4]= (*(LnkLI44))(CMPcar((V184)));
805          base[5]= CMPcdr((V170));          base[5]= CMPcdr((V184));
806          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
807          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk45)(Lclptr45);
808          vs_top=sup;          vs_top=sup;
# Line 802  T273:; Line 810  T273:;
810          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
811          Lcopy_list();          Lcopy_list();
812          vs_top=sup;          vs_top=sup;
813          (V168->c.c_cdr)= vs_base[0];          (V182->c.c_cdr)= vs_base[0];
814          goto T274;          goto T269;
815          goto T276;          goto T271;
816  T276:;  T271:;
817          (V168->c.c_cdr)= make_cons((V170),Cnil);}          (V182->c.c_cdr)= make_cons((V184),Cnil);}
818          goto T274;          goto T269;
819  T274:;  T269:;
820          while(MMcdr(V168)!=Cnil)V168=MMcdr(V168);          while(MMcdr(V182)!=Cnil)V182=MMcdr(V182);
821          if((V169=MMcdr(V169))==Cnil){          if((V183=MMcdr(V183))==Cnil){
822          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
823          V166= base[2];          V180= base[2];
824          goto T272;}          goto T267;}
825          goto T273;}          goto T268;}
826          goto T272;          goto T267;
827  T272:;  T267:;
828          {object V171;          {object V185;
829          base[3]=VV[37]->s.s_gfdef;          base[3]=VV[37]->s.s_gfdef;
830          base[4]= (V164);          base[4]= (V178);
831          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
832          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk32)(Lclptr32);
833          vs_top=sup;          vs_top=sup;
834          V174= vs_base[0];          V188= vs_base[0];
835          {object V172;          {object V186;
836          object V173= V174;          object V187= V188;
837          if(V173==Cnil){          if(V187==Cnil){
838          V171= Cnil;          V185= Cnil;
839          goto T282;}          goto T277;}
840          base[2]=V172=MMcons(Cnil,Cnil);          base[2]=V186=MMcons(Cnil,Cnil);
841          goto T283;          goto T278;
842  T283:;  T278:;
843          base[4]= (V173->c.c_car);          base[4]= (V187->c.c_car);
844          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
845          (void) (*Lnk37)(Lclptr37);          (void) (*Lnk37)(Lclptr37);
846          vs_top=sup;          vs_top=sup;
847          (V172->c.c_car)= vs_base[0];          (V186->c.c_car)= vs_base[0];
848          if((V173=MMcdr(V173))==Cnil){          if((V187=MMcdr(V187))==Cnil){
849          V171= base[2];          V185= base[2];
850          goto T282;}          goto T277;}
851          V172=MMcdr(V172)=MMcons(Cnil,Cnil);          V186=MMcdr(V186)=MMcons(Cnil,Cnil);
852          goto T283;}          goto T278;}
853          goto T282;          goto T277;
854  T282:;  T277:;
855           vs_top=base+2;           vs_top=base+2;
856           while(V171!=Cnil)           while(V185!=Cnil)
857           {vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;}           {vs_push((V185)->c.c_car);V185=(V185)->c.c_cdr;}
858          vs_base=base+2;}          vs_base=base+2;}
859          Lappend();          Lappend();
860          vs_top=sup;          vs_top=sup;
861          V167= vs_base[0];          V181= vs_base[0];
862          {register object V175;          {register object V189;
863          register object V176;          register object V190;
864          V175= (V166);          V189= (V180);
865          V176= CMPcar((V175));          V190= CMPcar((V189));
866          goto T292;          goto T287;
867  T292:;  T287:;
868          if(!(((V175))==Cnil)){          if(!(((V189))==Cnil)){
869          goto T293;}          goto T288;}
870            goto T283;
871          goto T288;          goto T288;
872          goto T293;  T288:;
873  T293:;          {register object V191;
874          {register object V177;          register object V192;
875          register object V178;          register object V193;
876          register object V179;          register object V194;
877          register object V180;          register object V195;
878          register object V181;          register object V196;
879          register object V182;          if(!(type_of((V190))==t_cons)){
880          if(!(type_of((V176))==t_cons)){          goto T296;}
881          goto T301;}          base[3]= (*(LnkLI46))((V190));
882          base[3]= (*(LnkLI46))((V176));          goto T294;
883          goto T299;          goto T296;
884          goto T301;  T296:;
885  T301:;          base[4]= (V190);
         base[4]= (V176);  
886          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
887          (void) (*Lnk47)(Lclptr47);          (void) (*Lnk47)(Lclptr47);
888          vs_top=sup;          vs_top=sup;
889          base[3]= vs_base[0];          base[3]= vs_base[0];
890          goto T299;          goto T294;
891  T299:;  T294:;
892          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
893          (void) (*Lnk48)();          (void) (*Lnk48)();
894          if(vs_base>=vs_top){vs_top=sup;goto T304;}          if(vs_base>=vs_top){vs_top=sup;goto T299;}
895          V177= vs_base[0];          V191= vs_base[0];
896          vs_base++;          vs_base++;
897          if(vs_base>=vs_top){vs_top=sup;goto T305;}          if(vs_base>=vs_top){vs_top=sup;goto T300;}
898          V178= vs_base[0];          V192= vs_base[0];
899          vs_base++;          vs_base++;
900          if(vs_base>=vs_top){vs_top=sup;goto T306;}          if(vs_base>=vs_top){vs_top=sup;goto T301;}
901          V179= vs_base[0];          V193= vs_base[0];
902          vs_base++;          vs_base++;
903          if(vs_base>=vs_top){vs_top=sup;goto T307;}          if(vs_base>=vs_top){vs_top=sup;goto T302;}
904          V180= vs_base[0];          V194= vs_base[0];
905          vs_base++;          vs_base++;
906          if(vs_base>=vs_top){vs_top=sup;goto T308;}          if(vs_base>=vs_top){vs_top=sup;goto T303;}
907          V181= vs_base[0];          V195= vs_base[0];
908          vs_base++;          vs_base++;
909          if(vs_base>=vs_top){vs_top=sup;goto T309;}          if(vs_base>=vs_top){vs_top=sup;goto T304;}
910          V182= vs_base[0];          V196= vs_base[0];
911          vs_top=sup;          vs_top=sup;
912          goto T310;          goto T305;
913            goto T299;
914    T299:;
915            V191= Cnil;
916            goto T300;
917    T300:;
918            V192= Cnil;
919            goto T301;
920    T301:;
921            V193= Cnil;
922            goto T302;
923    T302:;
924            V194= Cnil;
925            goto T303;
926    T303:;
927            V195= Cnil;
928          goto T304;          goto T304;
929  T304:;  T304:;
930          V177= Cnil;          V196= Cnil;
931          goto T305;          goto T305;
932  T305:;  T305:;
933          V178= Cnil;          if(((V195))==Cnil){
934          goto T306;          goto T306;}
 T306:;  
         V179= Cnil;  
         goto T307;  
 T307:;  
         V180= Cnil;  
         goto T308;  
 T308:;  
         V181= Cnil;  
         goto T309;  
 T309:;  
         V182= Cnil;  
         goto T310;  
 T310:;  
         if(((V181))==Cnil){  
         goto T311;}  
935          base[3]= Cnil;          base[3]= Cnil;
936          base[4]= Ct;          base[4]= Ct;
937          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
938          return;          return;
939          goto T311;          goto T306;
940  T311:;  T306:;
941          V167= append((V182),(V167));}          V181= append((V196),(V181));}
942          V175= CMPcdr((V175));          V189= CMPcdr((V189));
943          V176= CMPcar((V175));          V190= CMPcar((V189));
944          goto T292;}          goto T287;}
945          goto T288;          goto T283;
946  T288:;  T283:;
947          base[2]= (V167);          base[2]= (V181);
948          base[3]= Cnil;          base[3]= Cnil;
949          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
950          return;}          return;}
# Line 944  T288:; Line 952  T288:;
952  }  }
953  /*      local entry for function CHECK-INITARGS-2-PLIST */  /*      local entry for function CHECK-INITARGS-2-PLIST */
954    
955  static object LI11(object V185,object V184,object V183,object first,...)  static object LI11(object V199,object V198,object V197,object first,...)
956  {        {      
957          va_list ap;          va_list ap;
958          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
959          {object V186;          {object V200;
960          register object V187;          register object V201;
961          register object V188;          register object V202;
962          register object V189;          register object V203;
963          va_start(ap,first);          va_start(ap,first);
964          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
965          V186= V185;          V200= V199;
966          V187= V184;          V201= V198;
967          V188= V183;          V202= V197;
968          narg = narg - 3;          narg = narg - 3;
969          if (narg <= 0) goto T324;          if (narg <= 0) goto T319;
970          else {          else {
971          V189= first;}          V203= first;}
972          --narg; goto T325;          --narg; goto T320;
973          goto T324;          goto T319;
974  T324:;  T319:;
975          V189= Ct;          V203= Ct;
976          goto T325;          goto T320;
977  T325:;  T320:;
978          base[0]= (V186);          base[0]= (V200);
979          base[1]= VV[18];          base[1]= VV[18];
980          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
981          Lgetf();          Lgetf();
982          vs_top=sup;          vs_top=sup;
983          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
984          goto T327;}          goto T322;}
985          {register object V190;          {register object V204;
986          register object V191;          register object V205;
987          register object V192;          register object V206;
988          V190= (V186);          V204= (V200);
989          V191= Cnil;          V205= Cnil;
990          V192= Cnil;          V206= Cnil;
991          goto T333;          goto T328;
992  T333:;  T328:;
993          if(((V190))!=Cnil){          if(((V204))!=Cnil){
994          goto T335;}          goto T330;}
995          goto T327;          goto T322;
996          goto T335;          goto T330;
997  T335:;  T330:;
998          {register object V193;          {register object V207;
999          V193= CMPcar((V190));          V207= CMPcar((V204));
1000          V190= CMPcdr((V190));          V204= CMPcdr((V204));
1001          V191= (V193);}          V205= (V207);}
1002          if(((V190))!=Cnil){          if(((V204))!=Cnil){
1003          goto T343;}          goto T338;}
1004          base[0]= VV[17];          base[0]= VV[17];
1005          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1006          Lerror();          Lerror();
1007          vs_top=sup;          vs_top=sup;
1008          goto T343;          goto T338;
1009  T343:;  T338:;
1010          {register object V194;          {register object V208;
1011          V194= CMPcar((V190));          V208= CMPcar((V204));
1012          V190= CMPcdr((V190));          V204= CMPcdr((V204));
1013          V192= (V194);}          V206= (V208);}
1014          {register object x= (V191),V195= (V188);          {register object x= (V205),V209= (V202);
1015          while(V195!=Cnil)          while(V209!=Cnil)
1016          if(x==(V195->c.c_car)){          if(x==(V209->c.c_car)){
1017          goto T334;          goto T329;
1018          }else V195=V195->c.c_cdr;}          }else V209=V209->c.c_cdr;}
1019          if(((V189))==Cnil){          if(((V203))==Cnil){
1020          goto T355;}          goto T350;}
1021          base[0]= VV[19];          base[0]= VV[19];
1022          base[1]= (V191);          base[1]= (V205);
1023          base[3]= (V187);          base[3]= (V201);
1024          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1025          (void) (*Lnk27)(Lclptr27);          (void) (*Lnk27)(Lclptr27);
1026          vs_top=sup;          vs_top=sup;
# Line 1020  T343:; Line 1028  T343:;
1028          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1029          Lerror();          Lerror();
1030          vs_top=sup;          vs_top=sup;
1031          goto T334;          goto T329;
1032          goto T355;          goto T350;
1033  T355:;  T350:;
1034          {object V196 = Cnil;          {object V210 = Cnil;
1035          VMR11(V196)}          VMR11(V210)}
1036          goto T334;          goto T329;
1037  T334:;  T329:;
1038          goto T333;}          goto T328;}
1039          goto T327;          goto T322;
1040  T327:;  T322:;
1041          {object V197 = Ct;          {object V211 = Ct;
1042          VMR11(V197)}          VMR11(V211)}
1043          va_end(ap);          va_end(ap);
1044          base[0]=base[0];          base[0]=base[0];
1045          return Cnil;}          return Cnil;}
1046          }          }
1047  /*      local entry for function CHECK-INITARGS-2-LIST  */  /*      local entry for function CHECK-INITARGS-2-LIST  */
1048    
1049  static object LI12(object V200,object V199,object V198,object first,...)  static object LI12(object V214,object V213,object V212,object first,...)
1050  {        {      
1051          va_list ap;          va_list ap;
1052          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
1053          {object V201;          {object V215;
1054          register object V202;          register object V216;
1055          register object V203;          register object V217;
1056          register object V204;          register object V218;
1057          va_start(ap,first);          va_start(ap,first);
1058          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1059          V201= V200;          V215= V214;
1060          V202= V199;          V216= V213;
1061          V203= V198;          V217= V212;
1062          narg = narg - 3;          narg = narg - 3;
1063          if (narg <= 0) goto T362;          if (narg <= 0) goto T357;
1064          else {          else {
1065          V204= first;}          V218= first;}
1066          --narg; goto T363;          --narg; goto T358;
1067          goto T362;          goto T357;
1068  T362:;  T357:;
1069          V204= Ct;          V218= Ct;
1070          goto T363;          goto T358;
1071  T363:;  T358:;
1072          {register object x= VV[18],V205= (V201);          {register object x= VV[18],V219= (V215);
1073          while(V205!=Cnil)          while(V219!=Cnil)
1074          if(x==(V205->c.c_car)){          if(x==(V219->c.c_car)){
1075          goto T365;          goto T360;
1076          }else V205=V205->c.c_cdr;}          }else V219=V219->c.c_cdr;}
1077          {register object V206;          {register object V220;
1078          register object V207;          register object V221;
1079          V206= (V201);          V220= (V215);
1080          V207= CMPcar((V206));          V221= CMPcar((V220));
1081            goto T366;
1082    T366:;
1083            if(!(((V220))==Cnil)){
1084            goto T367;}
1085            goto T360;
1086            goto T367;
1087    T367:;
1088            {register object x= (V221),V222= (V217);
1089            while(V222!=Cnil)
1090            if(x==(V222->c.c_car)){
1091          goto T371;          goto T371;
1092  T371:;          }else V222=V222->c.c_cdr;}
1093          if(!(((V206))==Cnil)){          if(((V218))==Cnil){
1094          goto T372;}          goto T375;}
         goto T365;  
         goto T372;  
 T372:;  
         {register object x= (V207),V208= (V203);  
         while(V208!=Cnil)  
         if(x==(V208->c.c_car)){  
         goto T376;  
         }else V208=V208->c.c_cdr;}  
         if(((V204))==Cnil){  
         goto T380;}  
1095          base[1]= VV[20];          base[1]= VV[20];
1096          base[2]= (V207);          base[2]= (V221);
1097          base[4]= (V202);          base[4]= (V216);
1098          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1099          (void) (*Lnk27)(Lclptr27);          (void) (*Lnk27)(Lclptr27);
1100          vs_top=sup;          vs_top=sup;
# Line 1094  T372:; Line 1102  T372:;
1102          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1103          Lerror();          Lerror();
1104          vs_top=sup;          vs_top=sup;
1105          goto T376;          goto T371;
1106          goto T380;          goto T375;
1107  T380:;  T375:;
1108          {object V209 = Cnil;          {object V223 = Cnil;
1109          VMR12(V209)}          VMR12(V223)}
1110          goto T376;          goto T371;
1111  T376:;  T371:;
1112          V206= CMPcdr((V206));          V220= CMPcdr((V220));
1113          V207= CMPcar((V206));          V221= CMPcar((V220));
1114          goto T371;}          goto T366;}
1115          goto T365;          goto T360;
1116  T365:;  T360:;
1117          {object V210 = Ct;          {object V224 = Ct;
1118          VMR12(V210)}          VMR12(V224)}
1119          va_end(ap);          va_end(ap);
1120          base[0]=base[0];          base[0]=base[0];
1121          return Cnil;}          return Cnil;}
# Line 1122  static object  LnkTLI42(object first,... Line 1130  static object  LnkTLI42(object first,...
1130  static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */  static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */
1131  static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */  static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */
1132  static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */  static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */
 static void LnkT38(ptr) object *ptr;{ call_or_link_closure(VV[38],(void **)(void *)&Lnk38,(void **)(void *)&Lclptr38);} /* SETF PCL SLOT-VALUE-USING-CLASS */  
1133  static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */  static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */
1134  static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */
1135  static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */  static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */

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

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