/[gcl]/gcl/cmpnew/cmpwt.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpwt.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 470  object V59; Line 470  object V59;
470  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
471  goto TTL;  goto TTL;
472  TTL:;  TTL:;
473          {object V60;          {object V61;
474          object V61;          object V62;
475          V60= symbol_value(VV[6]);          V61= symbol_value(VV[6]);
476          V61= make_cons((V59),caddr((V60)));          V62= make_cons(V59,caddr((V61)));
477          if(type_of(cddr((V60)))!=t_cons)FEwrong_type_argument(Scons,cddr((V60)));          if(type_of(cddr((V61)))!=t_cons)FEwrong_type_argument(Scons,cddr((V61)));
478          (cddr((V60)))->c.c_car = (V61);          (cddr((V61)))->c.c_car = (V62);
479          (void)(cddr((V60)));          (void)(cddr((V61)));
480          {object V62 = (V61);          {object V63 = (V62);
481          VMR12(V62)}}          VMR12(V63)}}
482          base[0]=base[0];          base[0]=base[0];
483          return Cnil;          return Cnil;
484  }  }
# Line 490  static void L13() Line 490  static void L13()
490          vs_reserve(VM13);          vs_reserve(VM13);
491          check_arg(2);          check_arg(2);
492          vs_top=sup;          vs_top=sup;
493          {object V63=base[0]->c.c_cdr;          {object V64=base[0]->c.c_cdr;
494          base[2]= V63;          base[2]= V64;
495          base[3]= Cnil;}          base[3]= Cnil;}
496          {register object V64;          {register object V65;
497          register object V65;          register object V66;
498          V64= base[2];          V65= base[2];
499          V65= car((V64));          V66= car((V65));
500  goto T173;  goto T173;
501  T173:;  T173:;
502          if(!(endp_prop((V64)))){          if(!(endp_prop((V65)))){
503          goto T174;}          goto T174;}
504          V66= make_cons(Cnil,base[3]);          V67= make_cons(Cnil,base[3]);
505          V67= reverse(/* INLINE-ARGS */V66);          V68= reverse(/* INLINE-ARGS */V67);
506          base[5]= make_cons(VV[29],/* INLINE-ARGS */V67);          base[5]= make_cons(VV[29],/* INLINE-ARGS */V68);
507          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
508          return;          return;
509  goto T174;  goto T174;
510  T174:;  T174:;
511          if(!(type_of((V65))==t_string)){          if(!(type_of((V66))==t_string)){
512          goto T180;}          goto T180;}
513          V68= list(3,VV[30],(V65),VV[0]);          {register object V69;
514          base[3]= make_cons(/* INLINE-ARGS */V68,base[3]);          V69= list(3,VV[30],(V66),VV[0]);
515          goto T178;          base[3]= make_cons((V69),base[3]);
516            goto T178;}
517  goto T180;  goto T180;
518  T180:;  T180:;
519          V69= list(2,VV[31],(V65));          {register object V70;
520          base[3]= make_cons(/* INLINE-ARGS */V69,base[3]);          V70= list(2,VV[31],(V66));
521            base[3]= make_cons((V70),base[3]);}
522  goto T178;  goto T178;
523  T178:;  T178:;
524          V64= cdr((V64));          V65= cdr((V65));
525          V65= car((V64));          V66= car((V65));
526          goto T173;}          goto T173;}
527  }  }
528  /*      macro definition for WT-H       */  /*      macro definition for WT-H       */
# Line 531  static void L14() Line 533  static void L14()
533          vs_reserve(VM14);          vs_reserve(VM14);
534          check_arg(2);          check_arg(2);
535          vs_top=sup;          vs_top=sup;
536          {object V70=base[0]->c.c_cdr;          {object V71=base[0]->c.c_cdr;
537          base[2]= V70;          base[2]= V71;
538          base[3]= Cnil;}          base[3]= Cnil;}
539          if(!(endp_prop(base[2]))){          if(!(endp_prop(base[2]))){
540          goto T191;}          goto T193;}
541          base[4]= VV[32];          base[4]= VV[32];
542          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
543          return;          return;
544  goto T191;  goto T193;
545  T191:;  T193:;
546          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
547          goto T194;}          goto T196;}
548          {register object V71;          {register object V72;
549          register object V72;          register object V73;
550          V71= cdr(base[2]);          V72= cdr(base[2]);
551          V72= car((V71));          V73= car((V72));
552  goto T199;  goto T201;
553  T199:;  T201:;
554          if(!(endp_prop((V71)))){          if(!(endp_prop((V72)))){
555          goto T200;}          goto T202;}
556          V73= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[34],car(base[2])));          V74= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[34],car(base[2])));
557          V74= list(3,VV[30],/* INLINE-ARGS */V73,VV[5]);          V75= list(3,VV[30],/* INLINE-ARGS */V74,VV[5]);
558          V75= make_cons(Cnil,base[3]);          V76= make_cons(Cnil,base[3]);
559          base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75));          base[6]= listA(3,VV[29],/* INLINE-ARGS */V75,reverse(/* INLINE-ARGS */V76));
560          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
561          return;          return;
562  goto T200;  goto T202;
563  T200:;  T202:;
564          if(!(type_of((V72))==t_string)){          if(!(type_of((V73))==t_string)){
565            goto T208;}
566            {register object V77;
567            V77= list(3,VV[30],(V73),VV[5]);
568            base[3]= make_cons((V77),base[3]);
569          goto T206;}          goto T206;}
570          V76= list(3,VV[30],(V72),VV[5]);  goto T208;
571          base[3]= make_cons(/* INLINE-ARGS */V76,base[3]);  T208:;
572          goto T204;          {register object V78;
573            V78= list(2,VV[35],(V73));
574            base[3]= make_cons((V78),base[3]);}
575  goto T206;  goto T206;
576  T206:;  T206:;
577          V77= list(2,VV[35],(V72));          V72= cdr((V72));
578          base[3]= make_cons(/* INLINE-ARGS */V77,base[3]);          V73= car((V72));
579  goto T204;          goto T201;}
580  T204:;  goto T196;
581          V71= cdr((V71));  T196:;
582          V72= car((V71));          {register object V79;
583          goto T199;}          register object V80;
584  goto T194;          V79= base[2];
585  T194:;          V80= car((V79));
586          {register object V78;  goto T222;
587          register object V79;  T222:;
588          V78= base[2];          if(!(endp_prop((V79)))){
589          V79= car((V78));          goto T223;}
590  goto T218;          V81= make_cons(Cnil,base[3]);
591  T218:;          base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V81));
         if(!(endp_prop((V78)))){  
         goto T219;}  
         V80= make_cons(Cnil,base[3]);  
         base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80));  
592          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
593          return;          return;
 goto T219;  
 T219:;  
         if(!(type_of((V79))==t_string)){  
         goto T225;}  
         V81= list(3,VV[30],(V79),VV[5]);  
         base[3]= make_cons(/* INLINE-ARGS */V81,base[3]);  
         goto T223;  
 goto T225;  
 T225:;  
         V82= list(2,VV[35],(V79));  
         base[3]= make_cons(/* INLINE-ARGS */V82,base[3]);  
594  goto T223;  goto T223;
595  T223:;  T223:;
596          V78= cdr((V78));          if(!(type_of((V80))==t_string)){
597          V79= car((V78));          goto T229;}
598          goto T218;}          {register object V82;
599            V82= list(3,VV[30],(V80),VV[5]);
600            base[3]= make_cons((V82),base[3]);
601            goto T227;}
602    goto T229;
603    T229:;
604            {register object V83;
605            V83= list(2,VV[35],(V80));
606            base[3]= make_cons((V83),base[3]);}
607    goto T227;
608    T227:;
609            V79= cdr((V79));
610            V80= car((V79));
611            goto T222;}
612  }  }
613  /*      macro definition for WT-NL      */  /*      macro definition for WT-NL      */
614    
# Line 612  static void L15() Line 618  static void L15()
618          vs_reserve(VM15);          vs_reserve(VM15);
619          check_arg(2);          check_arg(2);
620          vs_top=sup;          vs_top=sup;
621          {object V83=base[0]->c.c_cdr;          {object V84=base[0]->c.c_cdr;
622          base[2]= V83;          base[2]= V84;
623          base[3]= Cnil;}          base[3]= Cnil;}
624          if(!(endp_prop(base[2]))){          if(!(endp_prop(base[2]))){
625          goto T236;}          goto T242;}
626          base[4]= VV[37];          base[4]= VV[37];
627          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
628          return;          return;
629  goto T236;  goto T242;
630  T236:;  T242:;
631          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
         goto T239;}  
         {register object V84;  
         register object V85;  
         V84= cdr(base[2]);  
         V85= car((V84));  
 goto T244;  
 T244:;  
         if(!(endp_prop((V84)))){  
632          goto T245;}          goto T245;}
633          V86= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[38],car(base[2])));          {register object V85;
634          V87= list(3,VV[30],/* INLINE-ARGS */V86,VV[0]);          register object V86;
635          V88= make_cons(Cnil,base[3]);          V85= cdr(base[2]);
636          base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88));          V86= car((V85));
637    goto T250;
638    T250:;
639            if(!(endp_prop((V85)))){
640            goto T251;}
641            V87= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[38],car(base[2])));
642            V88= list(3,VV[30],/* INLINE-ARGS */V87,VV[0]);
643            V89= make_cons(Cnil,base[3]);
644            base[6]= listA(3,VV[29],/* INLINE-ARGS */V88,reverse(/* INLINE-ARGS */V89));
645          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
646          return;          return;
 goto T245;  
 T245:;  
         if(!(type_of((V85))==t_string)){  
         goto T251;}  
         V89= list(3,VV[30],(V85),VV[0]);  
         base[3]= make_cons(/* INLINE-ARGS */V89,base[3]);  
         goto T249;  
647  goto T251;  goto T251;
648  T251:;  T251:;
649          V90= list(2,VV[31],(V85));          if(!(type_of((V86))==t_string)){
650          base[3]= make_cons(/* INLINE-ARGS */V90,base[3]);          goto T257;}
651  goto T249;          {register object V90;
652  T249:;          V90= list(3,VV[30],(V86),VV[0]);
653          V84= cdr((V84));          base[3]= make_cons((V90),base[3]);
654          V85= car((V84));          goto T255;}
655          goto T244;}  goto T257;
656  goto T239;  T257:;
 T239:;  
657          {register object V91;          {register object V91;
658          register object V92;          V91= list(2,VV[31],(V86));
659          V91= base[2];          base[3]= make_cons((V91),base[3]);}
660          V92= car((V91));  goto T255;
661  goto T263;  T255:;
662  T263:;          V85= cdr((V85));
663          if(!(endp_prop((V91)))){          V86= car((V85));
664          goto T264;}          goto T250;}
665          V93= make_cons(Cnil,base[3]);  goto T245;
666          base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93));  T245:;
667            {register object V92;
668            register object V93;
669            V92= base[2];
670            V93= car((V92));
671    goto T271;
672    T271:;
673            if(!(endp_prop((V92)))){
674            goto T272;}
675            V94= make_cons(Cnil,base[3]);
676            base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V94));
677          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
678          return;          return;
679  goto T264;  goto T272;
680  T264:;  T272:;
681          if(!(type_of((V92))==t_string)){          if(!(type_of((V93))==t_string)){
682          goto T270;}          goto T278;}
683          V94= list(3,VV[30],(V92),VV[0]);          {register object V95;
684          base[3]= make_cons(/* INLINE-ARGS */V94,base[3]);          V95= list(3,VV[30],(V93),VV[0]);
685          goto T268;          base[3]= make_cons((V95),base[3]);
686  goto T270;          goto T276;}
687  T270:;  goto T278;
688          V95= list(2,VV[31],(V92));  T278:;
689          base[3]= make_cons(/* INLINE-ARGS */V95,base[3]);          {register object V96;
690  goto T268;          V96= list(2,VV[31],(V93));
691  T268:;          base[3]= make_cons((V96),base[3]);}
692          V91= cdr((V91));  goto T276;
693          V92= car((V91));  T276:;
694          goto T263;}          V92= cdr((V92));
695            V93= car((V92));
696            goto T271;}
697  }  }
698  /*      macro definition for WT-NL1     */  /*      macro definition for WT-NL1     */
699    
# Line 693  static void L16() Line 703  static void L16()
703          vs_reserve(VM16);          vs_reserve(VM16);
704          check_arg(2);          check_arg(2);
705          vs_top=sup;          vs_top=sup;
706          {object V96=base[0]->c.c_cdr;          {object V97=base[0]->c.c_cdr;
707          base[2]= V96;          base[2]= V97;
708          base[3]= Cnil;}          base[3]= Cnil;}
709          if(!(endp_prop(base[2]))){          if(!(endp_prop(base[2]))){
710          goto T281;}          goto T291;}
711          base[4]= VV[40];          base[4]= VV[40];
712          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
713          return;          return;
714  goto T281;  goto T291;
715  T281:;  T291:;
716          if(!(type_of(car(base[2]))==t_string)){          if(!(type_of(car(base[2]))==t_string)){
717          goto T284;}          goto T294;}
718          {register object V97;          {register object V98;
719          register object V98;          register object V99;
720          V97= cdr(base[2]);          V98= cdr(base[2]);
721          V98= car((V97));          V99= car((V98));
722  goto T289;  goto T299;
723  T289:;  T299:;
724          if(!(endp_prop((V97)))){          if(!(endp_prop((V98)))){
725          goto T290;}          goto T300;}
726          V99= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[41],car(base[2])));          V100= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[41],car(base[2])));
727          V100= list(3,VV[30],/* INLINE-ARGS */V99,VV[0]);          V101= list(3,VV[30],/* INLINE-ARGS */V100,VV[0]);
728          V101= make_cons(Cnil,base[3]);          V102= make_cons(Cnil,base[3]);
729          base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101));          base[6]= listA(3,VV[29],/* INLINE-ARGS */V101,reverse(/* INLINE-ARGS */V102));
730          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
731          return;          return;
732  goto T290;  goto T300;
733  T290:;  T300:;
734          if(!(type_of((V98))==t_string)){          if(!(type_of((V99))==t_string)){
735          goto T296;}          goto T306;}
736          V102= list(3,VV[30],(V98),VV[0]);          {register object V103;
737          base[3]= make_cons(/* INLINE-ARGS */V102,base[3]);          V103= list(3,VV[30],(V99),VV[0]);
738          goto T294;          base[3]= make_cons((V103),base[3]);
739  goto T296;          goto T304;}
740  T296:;  goto T306;
741          V103= list(2,VV[31],(V98));  T306:;
742          base[3]= make_cons(/* INLINE-ARGS */V103,base[3]);          {register object V104;
743            V104= list(2,VV[31],(V99));
744            base[3]= make_cons((V104),base[3]);}
745    goto T304;
746    T304:;
747            V98= cdr((V98));
748            V99= car((V98));
749            goto T299;}
750  goto T294;  goto T294;
751  T294:;  T294:;
752          V97= cdr((V97));          {register object V105;
753          V98= car((V97));          register object V106;
754          goto T289;}          V105= base[2];
755  goto T284;          V106= car((V105));
756  T284:;  goto T320;
757          {register object V104;  T320:;
758          register object V105;          if(!(endp_prop((V105)))){
759          V104= base[2];          goto T321;}
760          V105= car((V104));          V107= make_cons(Cnil,base[3]);
761  goto T308;          base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V107));
 T308:;  
         if(!(endp_prop((V104)))){  
         goto T309;}  
         V106= make_cons(Cnil,base[3]);  
         base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106));  
762          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
763          return;          return;
764  goto T309;  goto T321;
765  T309:;  T321:;
766          if(!(type_of((V105))==t_string)){          if(!(type_of((V106))==t_string)){
767          goto T315;}          goto T327;}
768          V107= list(3,VV[30],(V105),VV[0]);          {register object V108;
769          base[3]= make_cons(/* INLINE-ARGS */V107,base[3]);          V108= list(3,VV[30],(V106),VV[0]);
770          goto T313;          base[3]= make_cons((V108),base[3]);
771  goto T315;          goto T325;}
772  T315:;  goto T327;
773          V108= list(2,VV[31],(V105));  T327:;
774          base[3]= make_cons(/* INLINE-ARGS */V108,base[3]);          {register object V109;
775  goto T313;          V109= list(2,VV[31],(V106));
776  T313:;          base[3]= make_cons((V109),base[3]);}
777          V104= cdr((V104));  goto T325;
778          V105= car((V104));  T325:;
779          goto T308;}          V105= cdr((V105));
780            V106= car((V105));
781            goto T320;}
782  }  }
783  static object  LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */  static object  LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */
784  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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