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

Diff of /gcl/pcl/pcl_dlisp.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 461  T93:; Line 461  T93:;
461          if((V40!= VV[1]))goto T97;          if((V40!= VV[1]))goto T97;
462          V34= (*(LnkLI166))(small_fixnum(1));          V34= (*(LnkLI166))(small_fixnum(1));
463          V41= (*(LnkLI166))(small_fixnum(0));          V41= (*(LnkLI166))(small_fixnum(0));
464          V35= list(2,/* INLINE-ARGS */V41,(V34));          V42 = (V34);
465            V35= list(2,/* INLINE-ARGS */V41,V42);
466          goto T92;          goto T92;
467          goto T97;          goto T97;
468  T97:;  T97:;
# Line 469  T97:; Line 470  T97:;
470          goto T92;}          goto T92;}
471          goto T92;          goto T92;
472  T92:;  T92:;
473          {object V42= (V32);          {object V43= (V32);
474          if(!eql(V42,VV[20]))goto T102;          if(!eql(V43,VV[20]))goto T102;
475          V36= VV[21];          V36= VV[21];
476          goto T101;          goto T101;
477          goto T102;          goto T102;
478  T102:;  T102:;
479          if(!eql(V42,VV[22]))goto T104;          if(!eql(V43,VV[22]))goto T104;
480          V36= VV[23];          V36= VV[23];
481          goto T101;          goto T101;
482          goto T104;          goto T104;
483  T104:;  T104:;
484          FEerror("The ECASE key value ~s is illegal.",1,V42);          FEerror("The ECASE key value ~s is illegal.",1,V43);
485          goto T101;}          goto T101;}
486          goto T101;          goto T101;
487  T101:;  T101:;
# Line 488  T101:; Line 489  T101:;
489          base[4]= (V35);          base[4]= (V35);
490          if(((V33))!=Cnil){          if(((V33))!=Cnil){
491          goto T111;}          goto T111;}
492          V43= VV[25];          V44= VV[25];
493          goto T109;          goto T109;
494          goto T111;          goto T111;
495  T111:;  T111:;
496          V43= Cnil;          V44= Cnil;
497          goto T109;          goto T109;
498  T109:;  T109:;
499          V44= list(2,VV[28],(V34));          V45= list(2,VV[28],(V34));
500          if(((V33))!=Cnil){          if(((V33))!=Cnil){
501          goto T115;}          goto T115;}
502          V46= list(3,VV[29],VV[19],list(2,VV[30],(V34)));          V47= list(3,VV[29],VV[19],list(2,VV[30],(V34)));
503          V45= make_cons(/* INLINE-ARGS */V46,Cnil);          V46= make_cons(/* INLINE-ARGS */V47,Cnil);
504          goto T113;          goto T113;
505          goto T115;          goto T115;
506  T115:;  T115:;
507          V45= Cnil;          V46= Cnil;
508          goto T113;          goto T113;
509  T113:;  T113:;
510          V47= list(2,VV[31],(V34));          V48= list(2,VV[31],(V34));
511          V48= make_cons(/* INLINE-ARGS */V47,Cnil);          V49= make_cons(/* INLINE-ARGS */V48,Cnil);
512          V49= append(V45,/* INLINE-ARGS */V48);          V50= append(V46,/* INLINE-ARGS */V49);
513          V50= make_cons(/* INLINE-ARGS */V44,/* INLINE-ARGS */V49);          V51= make_cons(/* INLINE-ARGS */V45,/* INLINE-ARGS */V50);
514          V51= list(2,VV[32],(V34));          V52= list(2,VV[32],(V34));
515          if(((V33))!=Cnil){          if(((V33))!=Cnil){
516          goto T119;}          goto T119;}
517          V53= list(3,VV[29],VV[19],list(2,VV[33],(V34)));          V54= list(3,VV[29],VV[19],list(2,VV[33],(V34)));
518          V52= make_cons(/* INLINE-ARGS */V53,Cnil);          V53= make_cons(/* INLINE-ARGS */V54,Cnil);
519          goto T117;          goto T117;
520          goto T119;          goto T119;
521  T119:;  T119:;
522          V52= Cnil;          V53= Cnil;
523          goto T117;          goto T117;
524  T117:;  T117:;
525          V54= list(2,VV[34],(V34));          V55= list(2,VV[34],(V34));
526          V55= make_cons(/* INLINE-ARGS */V54,Cnil);          V56= make_cons(/* INLINE-ARGS */V55,Cnil);
527          V56= append(V52,/* INLINE-ARGS */V55);          V57= append(V53,/* INLINE-ARGS */V56);
528          V57= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V50,make_cons(/* INLINE-ARGS */V51,/* INLINE-ARGS */V56)));          V58= list(2,VV[26],list(3,VV[27],/* INLINE-ARGS */V51,make_cons(/* INLINE-ARGS */V52,/* INLINE-ARGS */V57)));
529          if(((V38))==Cnil){          if(((V38))==Cnil){
530          goto T123;}          goto T123;}
531          V58= VV[35];          V59= VV[35];
532          goto T121;          goto T121;
533          goto T123;          goto T123;
534  T123:;  T123:;
535          V58= Cnil;          V59= Cnil;
536          goto T121;          goto T121;
537  T121:;  T121:;
538          V59= make_cons(/* INLINE-ARGS */V57,V58);          V60= make_cons(/* INLINE-ARGS */V58,V59);
539          V60= append(V43,/* INLINE-ARGS */V59);          V61= append(V44,/* INLINE-ARGS */V60);
540          V61= list(2,VV[39],list(3,VV[40],VV[26],(V37)));          V62= list(2,VV[39],list(3,VV[40],VV[26],(V37)));
541          if(!(eql(small_fixnum(2),(V32)))){          if(!(eql(small_fixnum(2),(V32)))){
542          goto T127;}          goto T127;}
543          V62= VV[43];          V63= VV[43];
544          goto T125;          goto T125;
545          goto T127;          goto T127;
546  T127:;  T127:;
547          V62= Cnil;          V63= Cnil;
548          goto T125;          goto T125;
549  T125:;  T125:;
550          V63= list(2,VV[41],listA(3,VV[37],VV[42],V62));          V64= list(2,VV[41],listA(3,VV[37],VV[42],V63));
551          if(((V38))==Cnil){          if(((V38))==Cnil){
552          goto T131;}          goto T131;}
553          V65= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39)));          V66= list(3,VV[44],VV[45],list(3,VV[29],VV[46],(V39)));
554          V64= make_cons(/* INLINE-ARGS */V65,Cnil);          V65= make_cons(/* INLINE-ARGS */V66,Cnil);
555          goto T129;          goto T129;
556          goto T131;          goto T131;
557  T131:;  T131:;
558          V64= Cnil;          V65= Cnil;
559          goto T129;          goto T129;
560  T129:;  T129:;
561          V66= listA(5,VV[37],VV[38],/* INLINE-ARGS */V61,/* INLINE-ARGS */V63,V64);          V67= listA(5,VV[37],VV[38],/* INLINE-ARGS */V62,/* INLINE-ARGS */V64,V65);
562          V67= listA(3,VV[47],VV[11],(V35));          V68= listA(3,VV[47],VV[11],(V35));
563          if(((V38))==Cnil){          if(((V38))==Cnil){
564          goto T135;}          goto T135;}
565          V68= VV[46];          V69= VV[46];
566          goto T133;          goto T133;
567          goto T135;          goto T135;
568  T135:;  T135:;
569          V68= list(3,VV[48],(V39),CMPcar((V35)));          V69= list(3,VV[48],(V39),CMPcar((V35)));
570          goto T133;          goto T133;
571  T133:;  T133:;
572          base[5]= list(3,VV[24],/* INLINE-ARGS */V60,list(4,VV[36],/* INLINE-ARGS */V66,/* INLINE-ARGS */V67,V68));          base[5]= list(3,VV[24],/* INLINE-ARGS */V61,list(4,VV[36],/* INLINE-ARGS */V67,/* INLINE-ARGS */V68,V69));
573          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
574          (void) (*Lnk160)();          (void) (*Lnk160)();
575          return;}          return;}
# Line 576  T133:; Line 577  T133:;
577  }  }
578  /*      local entry for function EMIT-SLOT-READ-FORM    */  /*      local entry for function EMIT-SLOT-READ-FORM    */
579    
580  static object LI17(V72,V73,V74)  static object LI17(V73,V74,V75)
581    
582  object V72;object V73;object V74;  object V73;object V74;object V75;
583  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
584          goto TTL;          goto TTL;
585  TTL:;  TTL:;
586          if(((V72))==Cnil){          if(((V73))==Cnil){
587          goto T138;}          goto T138;}
588          {object V75 = list(2,VV[49],(V73));          {object V76 = list(2,VV[49],(V74));
589          VMR17(V75)}          VMR17(V76)}
590          goto T138;          goto T138;
591  T138:;  T138:;
592          {object V76 = list(3,VV[50],(V74),(V73));          {object V77 = list(3,VV[50],(V75),(V74));
593          VMR17(V76)}          VMR17(V77)}
594          return Cnil;          return Cnil;
595  }  }
596  /*      local entry for function EMIT-BOUNDP-CHECK      */  /*      local entry for function EMIT-BOUNDP-CHECK      */
597    
598  static object LI18(V80,V81,V82)  static object LI18(V81,V82,V83)
599    
600  object V80;object V81;object V82;  object V81;object V82;object V83;
601  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
602          goto TTL;          goto TTL;
603  TTL:;  TTL:;
604          V83= list(2,VV[46],(V80));          V84= list(2,VV[46],(V81));
605          V84= make_cons(/* INLINE-ARGS */V83,Cnil);          V85= make_cons(/* INLINE-ARGS */V84,Cnil);
606          {object V85 = list(3,VV[14],/* INLINE-ARGS */V84,list(4,VV[36],VV[51],listA(3,VV[47],(V81),(V82)),VV[46]));          {object V86 = list(3,VV[14],/* INLINE-ARGS */V85,list(4,VV[36],VV[51],listA(3,VV[47],(V82),(V83)),VV[46]));
607          VMR18(V85)}          VMR18(V86)}
608          return Cnil;          return Cnil;
609  }  }
610  /*      local entry for function EMIT-SLOT-ACCESS       */  /*      local entry for function EMIT-SLOT-ACCESS       */
611    
612  static object LI19(V92,V93,V94,V95,V96,V97)  static object LI19(V93,V94,V95,V96,V97,V98)
613    
614  object V92;object V93;object V94;object V95;object V96;object V97;  object V93;object V94;object V95;object V96;object V97;object V98;
615  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
616          goto TTL;          goto TTL;
617  TTL:;  TTL:;
618          {object V98;          {object V99;
619          V98= (*(LnkLI165))((V93),(V95),(V94));          V99= (*(LnkLI165))((V94),(V96),(V95));
620          {object V99= (V92);          {object V100= (V93);
621          if((V99!= VV[0]))goto T141;          if((V100!= VV[0]))goto T141;
622          {object V100 = (*(LnkLI167))((V98),(V96),(V97));          {object V101 = (*(LnkLI167))((V99),(V97),(V98));
623          VMR19(V100)}          VMR19(V101)}
624          goto T141;          goto T141;
625  T141:;  T141:;
626          if((V99!= VV[1]))goto T142;          if((V100!= VV[1]))goto T142;
627          {object V101 = list(3,VV[48],(V98),CMPcar((V97)));          {object V102 = list(3,VV[48],(V99),CMPcar((V98)));
628          VMR19(V101)}          VMR19(V102)}
629          goto T142;          goto T142;
630  T142:;  T142:;
631          FEerror("The ECASE key value ~s is illegal.",1,V99);          FEerror("The ECASE key value ~s is illegal.",1,V100);
632          {object V102 = Cnil;          {object V103 = Cnil;
633          VMR19(V102)}}}          VMR19(V103)}}}
634          return Cnil;          return Cnil;
635  }  }
636  /*      macro definition for EMIT-READERWRITER-MACRO    */  /*      macro definition for EMIT-READERWRITER-MACRO    */
# Line 641  static void L20() Line 642  static void L20()
642          bds_check;          bds_check;
643          check_arg(2);          check_arg(2);
644          vs_top=sup;          vs_top=sup;
645          {object V103=base[0]->c.c_cdr;          {object V104=base[0]->c.c_cdr;
646          if(endp(V103))invalid_macro_call();          if(endp(V104))invalid_macro_call();
647          base[2]= (V103->c.c_car);          base[2]= (V104->c.c_car);
648          V103=V103->c.c_cdr;          V104=V104->c.c_cdr;
649          if(endp(V103))invalid_macro_call();          if(endp(V104))invalid_macro_call();
650          base[3]= (V103->c.c_car);          base[3]= (V104->c.c_car);
651          V103=V103->c.c_cdr;          V104=V104->c.c_cdr;
652          if(endp(V103))invalid_macro_call();          if(endp(V104))invalid_macro_call();
653          base[4]= (V103->c.c_car);          base[4]= (V104->c.c_car);
654          V103=V103->c.c_cdr;          V104=V104->c.c_cdr;
655          if(!endp(V103))invalid_macro_call();}          if(!endp(V104))invalid_macro_call();}
656          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
657          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
658          base[8]= base[2];          base[8]= base[2];
# Line 672  static void L21() Line 673  static void L21()
673  {register object *base=vs_base;  {register object *base=vs_base;
674          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
675          vs_check;          vs_check;
676          {object V104;          {object V105;
         register object V105;  
677          register object V106;          register object V106;
678            register object V107;
679          check_arg(3);          check_arg(3);
680          V104=(base[0]);          V105=(base[0]);
681          V105=(base[1]);          V106=(base[1]);
682          V106=(base[2]);          V107=(base[2]);
683          vs_top=sup;          vs_top=sup;
684          goto TTL;          goto TTL;
685  TTL:;  TTL:;
# Line 686  TTL:; Line 687  TTL:;
687          goto T147;}          goto T147;}
688          if(((VV[3]->s.s_dbind))==Cnil){          if(((VV[3]->s.s_dbind))==Cnil){
689          goto T147;}          goto T147;}
690          base[3]= (V104);          base[3]= (V105);
691          base[4]= (V105);          base[4]= (V106);
692          base[5]= (V106);          base[5]= (V107);
693          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
694          (void) (*Lnk168)();          (void) (*Lnk168)();
695          return;          return;
696          goto T147;          goto T147;
697  T147:;  T147:;
698          {register object V107;          {register object V108;
699          object V108;          object V109;
700          {object V109= (V104);          {object V110= (V105);
701          if((V109!= VV[0]))goto T156;          if((V110!= VV[0]))goto T156;
702          V110= (*(LnkLI166))(small_fixnum(0));          V111= (*(LnkLI166))(small_fixnum(0));
703          base[3]= make_cons(/* INLINE-ARGS */V110,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V111,Cnil);
704          base[4]= VV[52];          base[4]= VV[52];
705          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
706          goto T155;          goto T155;
707          goto T156;          goto T156;
708  T156:;  T156:;
709          if((V109!= VV[1]))goto T159;          if((V110!= VV[1]))goto T159;
710          V111= (*(LnkLI166))(small_fixnum(0));          V112= (*(LnkLI166))(small_fixnum(0));
711          base[3]= list(2,/* INLINE-ARGS */V111,(*(LnkLI166))(small_fixnum(1)));          base[3]= list(2,/* INLINE-ARGS */V112,(*(LnkLI166))(small_fixnum(1)));
712          base[4]= VV[53];          base[4]= VV[53];
713          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
714          goto T155;          goto T155;
715          goto T159;          goto T159;
716  T159:;  T159:;
717          FEerror("The ECASE key value ~s is illegal.",1,V109);          FEerror("The ECASE key value ~s is illegal.",1,V110);
718          base[3]= Cnil;          base[3]= Cnil;
719          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
720          goto T155;}          goto T155;}
721          goto T155;          goto T155;
722  T155:;  T155:;
723          if(vs_base>=vs_top){vs_top=sup;goto T162;}          if(vs_base>=vs_top){vs_top=sup;goto T162;}
724          V107= vs_base[0];          V108= vs_base[0];
725          vs_base++;          vs_base++;
726          if(vs_base>=vs_top){vs_top=sup;goto T163;}          if(vs_base>=vs_top){vs_top=sup;goto T163;}
727          V108= vs_base[0];          V109= vs_base[0];
728          vs_top=sup;          vs_top=sup;
729          goto T164;          goto T164;
730          goto T162;          goto T162;
731  T162:;  T162:;
732          V107= Cnil;          V108= Cnil;
733          goto T163;          goto T163;
734  T163:;  T163:;
735          V108= Cnil;          V109= Cnil;
736          goto T164;          goto T164;
737  T164:;  T164:;
738          if(((V105))!=Cnil){          if(((V106))!=Cnil){
739          goto T168;}          goto T168;}
740          V112= VV[55];          V113= VV[55];
741          goto T166;          goto T166;
742          goto T168;          goto T168;
743  T168:;  T168:;
744          V112= Cnil;          V113= Cnil;
745          goto T166;          goto T166;
746  T166:;  T166:;
747          V113= append(V112,VV[56]);          V114= append(V113,VV[56]);
748          base[3]= make_cons(VV[54],/* INLINE-ARGS */V113);          base[3]= make_cons(VV[54],/* INLINE-ARGS */V114);
749          base[4]= (V107);          base[4]= (V108);
750          if(((V106))!=Cnil){          if(((V107))!=Cnil){
751          goto T174;}          goto T174;}
752          V114= VV[57];          V115= VV[57];
753          goto T172;          goto T172;
754          goto T174;          goto T174;
755  T174:;  T174:;
756          V114= Cnil;          V115= Cnil;
757          goto T172;          goto T172;
758  T172:;  T172:;
759          if(((V105))==Cnil){          if(((V106))==Cnil){
760          goto T178;}          goto T178;}
761          V115= VV[58];          V116= VV[58];
762          goto T176;          goto T176;
763          goto T178;          goto T178;
764  T178:;  T178:;
765          V115= Cnil;          V116= Cnil;
766          goto T176;          goto T176;
767  T176:;  T176:;
768          V116= append(V114,V115);          V117= append(V115,V116);
769          V117= (*(LnkLI170))((V104),(V106),VV[19],VV[18],VV[11],(V107));          V118 = (V108);
770          V118= listA(3,VV[47],VV[11],(V107));          V119 = (V109);
771          if(((V105))==Cnil){          V120= (*(LnkLI170))((V105),(V107),VV[19],VV[18],VV[11],(V108));
772            V121= listA(3,VV[47],VV[11],(V108));
773            if(((V106))==Cnil){
774          goto T182;}          goto T182;}
775          V119= VV[18];          V122= VV[18];
776          goto T180;          goto T180;
777          goto T182;          goto T182;
778  T182:;  T182:;
779          V119= Cnil;          V122= Cnil;
780          goto T180;          goto T180;
781  T180:;  T180:;
782          if(((V106))!=Cnil){          if(((V107))!=Cnil){
783          goto T186;}          goto T186;}
784          V120= VV[59];          V123= VV[59];
785          goto T184;          goto T184;
786          goto T186;          goto T186;
787  T186:;  T186:;
788          V120= Cnil;          V123= Cnil;
789          goto T184;          goto T184;
790  T184:;  T184:;
791          base[5]= list(3,VV[14],/* INLINE-ARGS */V116,(VFUN_NARGS=6,(*(LnkLI169))((V107),(V108),/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119,V120)));          base[5]= list(3,VV[14],/* INLINE-ARGS */V117,(VFUN_NARGS=6,(*(LnkLI169))(V118,V119,/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,V122,V123)));
792          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
793          (void) (*Lnk160)();          (void) (*Lnk160)();
794          return;}          return;}
# Line 800  static void L22() Line 803  static void L22()
803          bds_check;          bds_check;
804          check_arg(2);          check_arg(2);
805          vs_top=sup;          vs_top=sup;
806          {object V121=base[0]->c.c_cdr;          {object V124=base[0]->c.c_cdr;
807          if(endp(V121))invalid_macro_call();          if(endp(V124))invalid_macro_call();
808          base[2]= (V121->c.c_car);          base[2]= (V124->c.c_car);
809          V121=V121->c.c_cdr;          V124=V124->c.c_cdr;
810          if(endp(V121))invalid_macro_call();          if(endp(V124))invalid_macro_call();
811          base[3]= (V121->c.c_car);          base[3]= (V124->c.c_car);
812          V121=V121->c.c_cdr;          V124=V124->c.c_cdr;
813          if(endp(V121))invalid_macro_call();          if(endp(V124))invalid_macro_call();
814          base[4]= (V121->c.c_car);          base[4]= (V124->c.c_car);
815          V121=V121->c.c_cdr;          V124=V124->c.c_cdr;
816          if(!endp(V121))invalid_macro_call();}          if(!endp(V124))invalid_macro_call();}
817          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
818          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
819          base[8]= base[2];          base[8]= base[2];
# Line 827  static void L22() Line 830  static void L22()
830  }  }
831  /*      local entry for function EMIT-MISS      */  /*      local entry for function EMIT-MISS      */
832    
833  static object LI23(object V123,object V122,object first,...)  static object LI23(object V126,object V125,object first,...)
834  {        {      
835          va_list ap;          va_list ap;
836          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
837          {object V124;          {object V127;
838          object V125;          object V128;
839          object V126;          object V129;
840          va_start(ap,first);          va_start(ap,first);
841          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
842          V124= V123;          V127= V126;
843          V125= V122;          V128= V125;
844          narg = narg - 2;          narg = narg - 2;
845          if (narg <= 0) goto T192;          if (narg <= 0) goto T192;
846          else {          else {
847          V126= first;}          V129= first;}
848          --narg; goto T193;          --narg; goto T193;
849          goto T192;          goto T192;
850  T192:;  T192:;
851          V126= Cnil;          V129= Cnil;
852          goto T193;          goto T193;
853  T193:;  T193:;
854          {object V127;          {object V130;
855          if(((V126))==Cnil){          if(((V129))==Cnil){
856          goto T197;}          goto T197;}
857          V127= VV[60];          V130= VV[60];
858          goto T195;          goto T195;
859          goto T197;          goto T197;
860  T197:;  T197:;
861          V127= Cnil;          V130= Cnil;
862          goto T195;          goto T195;
863  T195:;  T195:;
864          if(((V127))==Cnil){          if(((V130))==Cnil){
865          goto T200;}          goto T200;}
866          {object V128 = listA(3,VV[61],(V124),append((V125),(V127)));          {object V131 = listA(3,VV[61],(V127),append((V128),(V130)));
867          VMR23(V128)}          VMR23(V131)}
868          goto T200;          goto T200;
869  T200:;  T200:;
870          {object V129 = listA(3,VV[47],(V124),append((V125),(V127)));          {object V132 = listA(3,VV[47],(V127),append((V128),(V130)));
871          VMR23(V129)}}          VMR23(V132)}}
872          va_end(ap);          va_end(ap);
873          return Cnil;}          return Cnil;}
874          }          }
# Line 875  static void L24() Line 878  static void L24()
878  {register object *base=vs_base;  {register object *base=vs_base;
879          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
880          vs_check;          vs_check;
881          {register object V130;          {register object V133;
882          object V131;          object V134;
883          object V132;          object V135;
884          register object V133;          register object V136;
885          check_arg(4);          check_arg(4);
886          V130=(base[0]);          V133=(base[0]);
887          V131=(base[1]);          V134=(base[1]);
888          V132=(base[2]);          V135=(base[2]);
889          V133=(base[3]);          V136=(base[3]);
890          vs_top=sup;          vs_top=sup;
891          goto TTL;          goto TTL;
892  TTL:;  TTL:;
# Line 891  TTL:; Line 894  TTL:;
894          goto T202;}          goto T202;}
895          if(((VV[3]->s.s_dbind))==Cnil){          if(((VV[3]->s.s_dbind))==Cnil){
896          goto T202;}          goto T202;}
897          base[4]= (V130);          base[4]= (V133);
898          base[5]= (V131);          base[5]= (V134);
899          base[6]= (V132);          base[6]= (V135);
900          base[7]= (V133);          base[7]= (V136);
901          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
902          (void) (*Lnk171)();          (void) (*Lnk171)();
903          return;          return;
904          goto T202;          goto T202;
905  T202:;  T202:;
906          {object V134;          {object V137;
907          object V135;          object V138;
908          object V136;          object V139;
909          V134= (*(LnkLI158))((V132),(V133));          V137= (*(LnkLI158))((V135),(V136));
910          base[7]= VV[4];          base[7]= VV[4];
911          base[8]= (V134);          base[8]= (V137);
912          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
913          (void) (*Lnk159)();          (void) (*Lnk159)();
914          vs_top=sup;          vs_top=sup;
915          V135= vs_base[0];          V138= vs_base[0];
916          if(((V133))==Cnil){          if(((V136))==Cnil){
917          goto T217;}          goto T217;}
918          V136= VV[62];          V139= VV[62];
919          goto T215;          goto T215;
920          goto T217;          goto T217;
921  T217:;  T217:;
922          V136= Cnil;          V139= Cnil;
923          goto T215;          goto T215;
924  T215:;  T215:;
925          if(((V130))!=Cnil){          if(((V133))!=Cnil){
926          goto T222;}          goto T222;}
927          V137= VV[63];          V140= VV[63];
928          goto T220;          goto T220;
929          goto T222;          goto T222;
930  T222:;  T222:;
931          V137= Cnil;          V140= Cnil;
932          goto T220;          goto T220;
933  T220:;  T220:;
934          V138= append(V137,VV[64]);          V141= append(V140,VV[64]);
935          base[7]= make_cons(VV[54],/* INLINE-ARGS */V138);          base[7]= make_cons(VV[54],/* INLINE-ARGS */V141);
936          base[8]= (V134);          base[8]= (V137);
937          if(((V130))==Cnil){          if(((V133))==Cnil){
938          goto T228;}          goto T228;}
939          V139= VV[65];          V142= VV[65];
940          goto T226;          goto T226;
941          goto T228;          goto T228;
942  T228:;  T228:;
943          V139= Cnil;          V142= Cnil;
944          goto T226;          goto T226;
945  T226:;  T226:;
946          if(((V131))==Cnil){          V143 = (V138);
947            V144 = (V135);
948            if(((V134))==Cnil){
949          goto T232;}          goto T232;}
950          if(((V130))==Cnil){          if(((V133))==Cnil){
951          goto T235;}          goto T235;}
952          V140= VV[8];          V145= VV[8];
953          goto T230;          goto T230;
954          goto T235;          goto T235;
955  T235:;  T235:;
956          V140= Ct;          V145= Ct;
957          goto T230;          goto T230;
958          goto T232;          goto T232;
959  T232:;  T232:;
960          V140= listA(4,VV[7],VV[8],(V133),append((V135),(V136)));          V145= listA(4,VV[7],VV[8],(V136),append((V138),(V139)));
961          goto T230;          goto T230;
962  T230:;  T230:;
963          V141= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V135),(V133)));          V146= (VFUN_NARGS=3,(*(LnkLI172))(VV[11],(V138),(V136)));
964          if(((V130))==Cnil){          if(((V133))==Cnil){
965          goto T239;}          goto T239;}
966          V142= VV[8];          V147= VV[8];
967          goto T237;          goto T237;
968          goto T239;          goto T239;
969  T239:;  T239:;
970          V142= Cnil;          V147= Cnil;
971          goto T237;          goto T237;
972  T237:;  T237:;
973          base[9]= list(3,VV[14],V139,(VFUN_NARGS=5,(*(LnkLI169))((V135),(V132),V140,/* INLINE-ARGS */V141,V142)));          base[9]= list(3,VV[14],V142,(VFUN_NARGS=5,(*(LnkLI169))(V143,V144,V145,/* INLINE-ARGS */V146,V147)));
974          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
975          (void) (*Lnk160)();          (void) (*Lnk160)();
976          return;}          return;}
# Line 980  static void L25() Line 985  static void L25()
985          bds_check;          bds_check;
986          check_arg(2);          check_arg(2);
987          vs_top=sup;          vs_top=sup;
988          {object V143=base[0]->c.c_cdr;          {object V148=base[0]->c.c_cdr;
989          if(endp(V143))invalid_macro_call();          if(endp(V148))invalid_macro_call();
990          base[2]= (V143->c.c_car);          base[2]= (V148->c.c_car);
991          V143=V143->c.c_cdr;          V148=V148->c.c_cdr;
992          if(endp(V143))invalid_macro_call();          if(endp(V148))invalid_macro_call();
993          base[3]= (V143->c.c_car);          base[3]= (V148->c.c_car);
994          V143=V143->c.c_cdr;          V148=V148->c.c_cdr;
995          if(endp(V143))invalid_macro_call();          if(endp(V148))invalid_macro_call();
996          base[4]= (V143->c.c_car);          base[4]= (V148->c.c_car);
997          V143=V143->c.c_cdr;          V148=V148->c.c_cdr;
998          if(endp(V143))invalid_macro_call();          if(endp(V148))invalid_macro_call();
999          base[5]= (V143->c.c_car);          base[5]= (V148->c.c_car);
1000          V143=V143->c.c_cdr;          V148=V148->c.c_cdr;
1001          if(!endp(V143))invalid_macro_call();}          if(!endp(V148))invalid_macro_call();}
1002          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
1003          bds_bind(VV[2],Ct);          bds_bind(VV[2],Ct);
1004          base[9]= base[2];          base[9]= base[2];
# Line 1011  static void L25() Line 1016  static void L25()
1016  }  }
1017  /*      local entry for function EMIT-DLAP      */  /*      local entry for function EMIT-DLAP      */
1018    
1019  static object LI26(object V148,object V147,object V146,object V145,object V144,object first,...)  static object LI26(object V153,object V152,object V151,object V150,object V149,object first,...)
1020  {        {      
1021          va_list ap;          va_list ap;
1022          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1023          {object V149;          {object V154;
1024          object V150;          object V155;
1025          object V151;          object V156;
1026          object V152;          object V157;
1027          object V153;          object V158;
1028          object V154;          object V159;
1029          va_start(ap,first);          va_start(ap,first);
1030          if(narg <5) too_few_arguments();          if(narg <5) too_few_arguments();
1031          V149= V148;          V154= V153;
1032          V150= V147;          V155= V152;
1033          V151= V146;          V156= V151;
1034          V152= V145;          V157= V150;
1035          V153= V144;          V158= V149;
1036          narg = narg - 5;          narg = narg - 5;
1037          if (narg <= 0) goto T246;          if (narg <= 0) goto T246;
1038          else {          else {
1039          V154= first;}          V159= first;}
1040          --narg; goto T247;          --narg; goto T247;
1041          goto T246;          goto T246;
1042  T246:;  T246:;
1043          V154= Cnil;          V159= Cnil;
1044          goto T247;          goto T247;
1045  T247:;  T247:;
1046          {long V155;          {long V160;
1047          object V156;          object V161;
1048          register object V157;          register object V162;
1049          V155= -1;          V160= -1;
1050          {object V158;          {object V163;
1051          object V159= (V149);          object V164= (V154);
1052          object V160= (V150);          object V165= (V155);
1053          if(V159==Cnil||V160==Cnil){          if(V164==Cnil||V165==Cnil){
1054          V156= Cnil;          V161= Cnil;
1055          goto T250;}          goto T250;}
1056          base[2]=V158=MMcons(Cnil,Cnil);          base[2]=V163=MMcons(Cnil,Cnil);
1057          goto T251;          goto T251;
1058  T251:;  T251:;
1059          if(((V160->c.c_car))==(Ct)){          if(((V165->c.c_car))==(Ct)){
1060          goto T254;}          goto T254;}
1061          V155= (long)(V155)+(1);          V160= (long)(V160)+(1);
1062          base[4]= Cnil;          base[4]= Cnil;
1063          base[5]= VV[66];          base[5]= VV[66];
1064          base[6]= CMPmake_fixnum(V155);          base[6]= CMPmake_fixnum(V160);
1065          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1066          Lformat();          Lformat();
1067          vs_top=sup;          vs_top=sup;
# Line 1065  T251:; Line 1070  T251:;
1070          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1071          Lintern();          Lintern();
1072          vs_top=sup;          vs_top=sup;
1073          V163= vs_base[0];          V168= vs_base[0];
1074          {object V165;          V169 = (V165->c.c_car);
1075          V165= CMPcar((V154));          V170 = (V164->c.c_car);
1076          V154= CMPcdr((V154));          {object V172;
1077          V164= (V165);}          V172= CMPcar((V159));
1078          V166= list(2,V163,(VFUN_NARGS=4,(*(LnkLI173))((V160->c.c_car),(V159->c.c_car),VV[68],V164)));          V159= CMPcdr((V159));
1079          (V158->c.c_cdr)= make_cons(/* INLINE-ARGS */V166,Cnil);          V171= (V172);}
1080            V173= list(2,V168,(VFUN_NARGS=4,(*(LnkLI173))(V169,V170,VV[68],V171)));
1081            (V163->c.c_cdr)= make_cons(/* INLINE-ARGS */V173,Cnil);
1082          goto T252;          goto T252;
1083          goto T254;          goto T254;
1084  T254:;  T254:;
1085          (V158->c.c_cdr)= Cnil;          (V163->c.c_cdr)= Cnil;
1086          goto T252;          goto T252;
1087  T252:;  T252:;
1088          while(MMcdr(V158)!=Cnil)V158=MMcdr(V158);          while(MMcdr(V163)!=Cnil)V163=MMcdr(V163);
1089          if((V159=MMcdr(V159))==Cnil||(V160=MMcdr(V160))==Cnil){          if((V164=MMcdr(V164))==Cnil||(V165=MMcdr(V165))==Cnil){
1090          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
1091          V156= base[2];          V161= base[2];
1092          goto T250;}          goto T250;}
1093          goto T251;}          goto T251;}
1094          goto T250;          goto T250;
1095  T250:;  T250:;
1096          {object V167;          {object V174;
1097          object V168= (V156);          object V175= (V161);
1098          if(V168==Cnil){          if(V175==Cnil){
1099          V157= Cnil;          V162= Cnil;
1100          goto T268;}          goto T268;}
1101          base[2]=V167=MMcons(Cnil,Cnil);          base[2]=V174=MMcons(Cnil,Cnil);
1102          goto T269;          goto T269;
1103  T269:;  T269:;
1104          (V167->c.c_car)= CMPcar((V168->c.c_car));          (V174->c.c_car)= CMPcar((V175->c.c_car));
1105          if((V168=MMcdr(V168))==Cnil){          if((V175=MMcdr(V175))==Cnil){
1106          V157= base[2];          V162= base[2];
1107          goto T268;}          goto T268;}
1108          V167=MMcdr(V167)=MMcons(Cnil,Cnil);          V174=MMcdr(V174)=MMcons(Cnil,Cnil);
1109          goto T269;}          goto T269;}
1110          goto T268;          goto T268;
1111  T268:;  T268:;
1112          if(((V157))!=Cnil){          if(((V162))!=Cnil){
1113          goto T271;}          goto T271;}
1114          base[2]= VV[69];          base[2]= VV[69];
1115          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1110  T268:; Line 1117  T268:;
1117          vs_top=sup;          vs_top=sup;
1118          goto T271;          goto T271;
1119  T271:;  T271:;
1120          V169= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V156));          V176= listA(6,VV[73],VV[74],VV[75],VV[76],VV[77],(V161));
1121          if((CMPcdr((V157)))==Cnil){          if((CMPcdr((V162)))==Cnil){
1122          goto T277;}          goto T277;}
1123          V170= (*(LnkLI174))((V157),VV[68],(V153));          V177= (*(LnkLI174))((V162),VV[68],(V158));
1124          goto T275;          goto T275;
1125          goto T277;          goto T277;
1126  T277:;  T277:;
1127          if(((V153))==Cnil){          if(((V158))==Cnil){
1128          goto T280;}          goto T280;}
1129          V170= (*(LnkLI175))(CMPcar((V157)),VV[68],(V153));          V177= (*(LnkLI175))(CMPcar((V162)),VV[68],(V158));
1130          goto T275;          goto T275;
1131          goto T280;          goto T280;
1132  T280:;  T280:;
1133          V170= (*(LnkLI176))(CMPcar((V157)),VV[68]);          V177= (*(LnkLI176))(CMPcar((V162)),VV[68]);
1134          goto T275;          goto T275;
1135  T275:;  T275:;
1136          V171= list(5,VV[14],/* INLINE-ARGS */V169,VV[78],V170,list(3,VV[79],VV[71],(V151)));          V178= list(5,VV[14],/* INLINE-ARGS */V176,VV[78],V177,list(3,VV[79],VV[71],(V156)));
1137          {object V172 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V171,VV[68],list(3,VV[79],VV[71],(V152))));          {object V179 = list(3,VV[70],VV[71],list(4,VV[72],/* INLINE-ARGS */V178,VV[68],list(3,VV[79],VV[71],(V157))));
1138          VMR26(V172)}}          VMR26(V179)}}
1139          va_end(ap);          va_end(ap);
1140          base[0]=base[0];          base[0]=base[0];
1141          return Cnil;}          return Cnil;}
1142          }          }
1143  /*      local entry for function EMIT-1-NIL-DLAP        */  /*      local entry for function EMIT-1-NIL-DLAP        */
1144    
1145  static object LI27(V175,V176)  static object LI27(V182,V183)
1146    
1147  object V175;object V176;  object V182;object V183;
1148  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1149          goto TTL;          goto TTL;
1150  TTL:;  TTL:;
1151          V177= list(2,list(2,VV[80],(*(LnkLI177))((V175),(V176))),VV[81]);          V184= list(2,list(2,VV[80],(*(LnkLI177))((V182),(V183))),VV[81]);
1152          V178= list(3,VV[85],list(3,VV[44],(V175),VV[86]),VV[87]);          V185= list(3,VV[85],list(3,VV[44],(V182),VV[86]),VV[87]);
1153          V179= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V175)),VV[94]));          V186= list(3,VV[91],VV[92],list(3,VV[85],list(3,VV[44],VV[93],(V182)),VV[94]));
1154          {object V180 = list(4,VV[24],/* INLINE-ARGS */V177,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V178,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V179,list(2,VV[95],(V176))))));          {object V187 = list(4,VV[24],/* INLINE-ARGS */V184,VV[82],list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V185,VV[88],VV[89],list(4,VV[85],VV[90],/* INLINE-ARGS */V186,list(2,VV[95],(V183))))));
1155          VMR27(V180)}          VMR27(V187)}
1156          return Cnil;          return Cnil;
1157  }  }
1158  /*      macro definition for GET-CACHE-VECTOR-LOCK-COUNT        */  /*      macro definition for GET-CACHE-VECTOR-LOCK-COUNT        */
# Line 1156  static void L28() Line 1163  static void L28()
1163          vs_check;          vs_check;
1164          check_arg(2);          check_arg(2);
1165          vs_top=sup;          vs_top=sup;
1166          {object V181=base[0]->c.c_cdr;          {object V188=base[0]->c.c_cdr;
1167          if(endp(V181))invalid_macro_call();          if(endp(V188))invalid_macro_call();
1168          base[2]= (V181->c.c_car);          base[2]= (V188->c.c_car);
1169          V181=V181->c.c_cdr;          V188=V188->c.c_cdr;
1170          if(!endp(V181))invalid_macro_call();}          if(!endp(V188))invalid_macro_call();}
1171          V182= list(2,VV[96],list(2,VV[97],base[2]));          V189= list(2,VV[96],list(2,VV[97],base[2]));
1172          base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V182,Cnil),VV[98]);          base[3]= listA(3,VV[14],make_cons(/* INLINE-ARGS */V189,Cnil),VV[98]);
1173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1174          return;          return;
1175  }  }
1176  /*      local entry for function EMIT-1-T-DLAP  */  /*      local entry for function EMIT-1-T-DLAP  */
1177    
1178  static object LI29(V186,V187,V188)  static object LI29(V193,V194,V195)
1179    
1180  object V186;object V187;object V188;  object V193;object V194;object V195;
1181  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1182          goto TTL;          goto TTL;
1183  TTL:;  TTL:;
1184          V189= list(2,list(2,VV[80],(*(LnkLI177))((V186),(V187))),VV[99]);          V196= list(2,list(2,VV[80],(*(LnkLI177))((V193),(V194))),VV[99]);
1185          V190= list(3,VV[44],(V186),VV[103]);          V197= list(3,VV[44],(V193),VV[103]);
1186          V191= list(4,VV[85],/* INLINE-ARGS */V190,list(3,VV[29],(V188),VV[104]),VV[105]);          V198= list(4,VV[85],/* INLINE-ARGS */V197,list(3,VV[29],(V195),VV[104]),VV[105]);
1187          V192= list(3,VV[44],VV[110],(V186));          V199= list(3,VV[44],VV[110],(V193));
1188          V193= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V192,list(3,VV[29],(V188),VV[111]),VV[112]));          V200= list(3,VV[91],VV[109],list(4,VV[85],/* INLINE-ARGS */V199,list(3,VV[29],(V195),VV[111]),VV[112]));
1189          V194= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V191,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V193,list(2,VV[95],(V187)))));          V201= list(3,VV[70],VV[83],list(5,VV[84],/* INLINE-ARGS */V198,VV[106],VV[107],list(4,VV[85],VV[108],/* INLINE-ARGS */V200,list(2,VV[95],(V194)))));
1190          {object V195 = list(4,VV[14],/* INLINE-ARGS */V189,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V194,list(3,VV[113],VV[114],list(2,VV[95],(V187)))));          {object V202 = list(4,VV[14],/* INLINE-ARGS */V196,VV[100],list(5,VV[14],VV[101],VV[102],/* INLINE-ARGS */V201,list(3,VV[113],VV[114],list(2,VV[95],(V194)))));
1191          VMR29(V195)}          VMR29(V202)}
1192          return Cnil;          return Cnil;
1193  }  }
1194  /*      local entry for function EMIT-GREATER-THAN-1-DLAP       */  /*      local entry for function EMIT-GREATER-THAN-1-DLAP       */
1195    
1196  static object LI30(V199,V200,V201)  static object LI30(V206,V207,V208)
1197    
1198  register object V199;object V200;register object V201;  register object V206;object V207;register object V208;
1199  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1200          goto TTL;          goto TTL;
1201  TTL:;  TTL:;
1202          {object V202;          {object V209;
1203          V203 = CMPmake_fixnum((long)length((V199)));          V210 = CMPmake_fixnum((long)length((V206)));
1204          if(((V201))==Cnil){          if(((V208))==Cnil){
1205          goto T285;}          goto T285;}
1206          V204= small_fixnum(1);          V211= small_fixnum(1);
1207          goto T283;          goto T283;
1208          goto T285;          goto T285;
1209  T285:;  T285:;
1210          V204= small_fixnum(0);          V211= small_fixnum(0);
1211          goto T283;          goto T283;
1212  T283:;  T283:;
1213          V205= number_plus(V203,V204);          V212= number_plus(V210,V211);
1214          V202= (*(LnkLI178))(/* INLINE-ARGS */V205);          V209= (*(LnkLI178))(/* INLINE-ARGS */V212);
1215          V206= (*(LnkLI179))((V199),(V200));          V213= (*(LnkLI179))((V206),(V207));
1216          V207= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V202))));          V214= list(3,VV[29],VV[121],list(3,VV[122],VV[123],list(3,VV[124],VV[125],(V209))));
1217          {object V209;          {object V216;
1218          object V210= (V199);          object V217= (V206);
1219          if(V210==Cnil){          if(V217==Cnil){
1220          V208= Cnil;          V215= Cnil;
1221          goto T287;}          goto T287;}
1222          base[0]=V209=MMcons(Cnil,Cnil);          base[0]=V216=MMcons(Cnil,Cnil);
1223          goto T288;          goto T288;
1224  T288:;  T288:;
1225          (V209->c.c_car)= list(3,VV[44],(V210->c.c_car),VV[127]);          (V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[127]);
1226          if((V210=MMcdr(V210))==Cnil){          if((V217=MMcdr(V217))==Cnil){
1227          V208= base[0];          V215= base[0];
1228          goto T287;}          goto T287;}
1229          V209=MMcdr(V209)=MMcons(Cnil,Cnil);          V216=MMcdr(V216)=MMcons(Cnil,Cnil);
1230          goto T288;}          goto T288;}
1231          goto T287;          goto T287;
1232  T287:;  T287:;
1233          V212= make_cons(VV[126],V208);          V219= make_cons(VV[126],V215);
1234          if(((V201))==Cnil){          if(((V208))==Cnil){
1235          goto T292;}          goto T292;}
1236          V213= list(2,VV[128],list(3,VV[29],(V201),VV[129]));          V220= list(2,VV[128],list(3,VV[29],(V208),VV[129]));
1237          goto T290;          goto T290;
1238          goto T292;          goto T292;
1239  T292:;  T292:;
1240          V213= Cnil;          V220= Cnil;
1241          goto T290;          goto T290;
1242  T290:;  T290:;
1243          V214= listA(3,VV[85],/* INLINE-ARGS */V212,append(V213,VV[130]));          V221= listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[130]));
1244          {object V216;          {object V223;
1245          object V217= (V199);          object V224= (V206);
1246          if(V217==Cnil){          if(V224==Cnil){
1247          V215= Cnil;          V222= Cnil;
1248          goto T294;}          goto T294;}
1249          base[0]=V216=MMcons(Cnil,Cnil);          base[0]=V223=MMcons(Cnil,Cnil);
1250          goto T295;          goto T295;
1251  T295:;  T295:;
1252          (V216->c.c_car)= list(3,VV[44],(V217->c.c_car),VV[136]);          (V223->c.c_car)= list(3,VV[44],(V224->c.c_car),VV[136]);
1253          if((V217=MMcdr(V217))==Cnil){          if((V224=MMcdr(V224))==Cnil){
1254          V215= base[0];          V222= base[0];
1255          goto T294;}          goto T294;}
1256          V216=MMcdr(V216)=MMcons(Cnil,Cnil);          V223=MMcdr(V223)=MMcons(Cnil,Cnil);
1257          goto T295;}          goto T295;}
1258          goto T294;          goto T294;
1259  T294:;  T294:;
1260          V219= make_cons(VV[126],V215);          V226= make_cons(VV[126],V222);
1261          if(((V201))==Cnil){          if(((V208))==Cnil){
1262          goto T299;}          goto T299;}
1263          V221= list(3,VV[29],(V201),VV[137]);          V228= list(3,VV[29],(V208),VV[137]);
1264          V220= make_cons(/* INLINE-ARGS */V221,Cnil);          V227= make_cons(/* INLINE-ARGS */V228,Cnil);
1265          goto T297;          goto T297;
1266          goto T299;          goto T299;
1267  T299:;  T299:;
1268          V220= Cnil;          V227= Cnil;
1269          goto T297;          goto T297;
1270  T297:;  T297:;
1271          V222= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V219,append(V220,VV[138]))));          V229= list(3,VV[91],VV[134],list(3,VV[14],VV[135],listA(3,VV[85],/* INLINE-ARGS */V226,append(V227,VV[138]))));
1272          V223= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V207,/* INLINE-ARGS */V214,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V222,list(2,VV[95],(V200)))));          V230= list(3,VV[70],VV[83],list(6,VV[84],/* INLINE-ARGS */V214,/* INLINE-ARGS */V221,VV[131],VV[132],list(4,VV[85],VV[133],/* INLINE-ARGS */V229,list(2,VV[95],(V207)))));
1273          {object V224 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V206,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V223,list(3,VV[113],VV[139],list(2,VV[95],(V200))))));          {object V231 = list(5,VV[14],VV[115],VV[116],/* INLINE-ARGS */V213,list(4,VV[14],VV[117],VV[118],list(5,VV[14],VV[119],VV[120],/* INLINE-ARGS */V230,list(3,VV[113],VV[139],list(2,VV[95],(V207))))));
1274          VMR30(V224)}}          VMR30(V231)}}
1275          base[0]=base[0];          base[0]=base[0];
1276          return Cnil;          return Cnil;
1277  }  }
1278  /*      local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */  /*      local entry for function EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */
1279    
1280  static object LI31(V227,V228)  static object LI31(V234,V235)
1281    
1282  object V227;object V228;  object V234;object V235;
1283  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1284          goto TTL;          goto TTL;
1285  TTL:;  TTL:;
1286          V229= list(2,VV[140],list(3,VV[40],(V227),VV[141]));          V236= list(2,VV[140],list(3,VV[40],(V234),VV[141]));
1287          V230= make_cons(/* INLINE-ARGS */V229,Cnil);          V237= make_cons(/* INLINE-ARGS */V236,Cnil);
1288          V231= list(3,VV[85],VV[143],list(2,VV[95],(V228)));          V238= list(3,VV[85],VV[143],list(2,VV[95],(V235)));
1289          V232= list(3,VV[122],VV[123],VV[144]);          V239= list(3,VV[122],VV[123],VV[144]);
1290          {object V234 = list(5,VV[14],/* INLINE-ARGS */V230,VV[142],/* INLINE-ARGS */V231,V232);          {object V241 = list(5,VV[14],/* INLINE-ARGS */V237,VV[142],/* INLINE-ARGS */V238,V239);
1291          VMR31(V234)}          VMR31(V241)}
1292          return Cnil;          return Cnil;
1293  }  }
1294  /*      local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */  /*      local entry for function EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION  */
1295    
1296  static object LI32(V237,V238)  static object LI32(V244,V245)
1297    
1298  object V237;object V238;  object V244;object V245;
1299  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1300          goto TTL;          goto TTL;
1301  TTL:;  TTL:;
1302          {register long V240;          {register long V247;
1303          long V241;          long V248;
1304          V240= 0;          V247= 0;
1305          V241= (long)length((V237));          V248= (long)length((V244));
1306          {object V242;          {object V249;
1307          object V243= (V237);          object V250= (V244);
1308          if(V243==Cnil){          if(V250==Cnil){
1309          V239= Cnil;          V246= Cnil;
1310          goto T302;}          goto T302;}
1311          base[0]=V242=MMcons(Cnil,Cnil);          base[0]=V249=MMcons(Cnil,Cnil);
1312          goto T305;          goto T305;
1313  T305:;  T305:;
1314          V245= list(2,VV[140],list(3,VV[40],(V243->c.c_car),VV[141]));          V252= list(2,VV[140],list(3,VV[40],(V250->c.c_car),VV[141]));
1315          V246= make_cons(/* INLINE-ARGS */V245,Cnil);          V253= make_cons(/* INLINE-ARGS */V252,Cnil);
1316          V247= list(3,VV[85],VV[147],list(2,VV[95],(V238)));          V254= list(3,VV[85],VV[147],list(2,VV[95],(V245)));
1317          V240= (long)(V240)+(1);          V247= (long)(V247)+(1);
1318          if(((long)(V240>=0&&(4)>0?(V240)%(4):imod(V240,4)))==0){          if(((long)(V247>=0&&(4)>0?(V247)%(4):imod(V247,4)))==0){
1319          goto T310;}          goto T310;}
1320          if(!((V240)==(V241))){          if(!((V247)==(V248))){
1321          goto T311;}          goto T311;}
1322          goto T310;          goto T310;
1323  T310:;  T310:;
1324          V249= list(3,VV[122],VV[123],VV[149]);          V256= list(3,VV[122],VV[123],VV[149]);
1325          V251= list(3,VV[29],VV[80],V249);          V258= list(3,VV[29],VV[80],V256);
1326          V248= make_cons(/* INLINE-ARGS */V251,Cnil);          V255= make_cons(/* INLINE-ARGS */V258,Cnil);
1327          goto T307;          goto T307;
1328          goto T311;          goto T311;
1329  T311:;  T311:;
1330          V248= Cnil;          V255= Cnil;
1331          goto T307;          goto T307;
1332  T307:;  T307:;
1333          (V242->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V246,VV[146],/* INLINE-ARGS */V247,VV[148],V248);          (V249->c.c_car)= listA(6,VV[14],/* INLINE-ARGS */V253,VV[146],/* INLINE-ARGS */V254,VV[148],V255);
1334          if((V243=MMcdr(V243))==Cnil){          if((V250=MMcdr(V250))==Cnil){
1335          V239= base[0];          V246= base[0];
1336          goto T302;}          goto T302;}
1337          V242=MMcdr(V242)=MMcons(Cnil,Cnil);          V249=MMcdr(V249)=MMcons(Cnil,Cnil);
1338          goto T305;}}          goto T305;}}
1339          goto T302;          goto T302;
1340  T302:;  T302:;
1341          {object V252 = make_cons(VV[145],V239);          {object V259 = make_cons(VV[145],V246);
1342          VMR32(V252)}          VMR32(V259)}
1343          base[0]=base[0];          base[0]=base[0];
1344          return Cnil;          return Cnil;
1345  }  }
1346  /*      local entry for function EMIT-FETCH-WRAPPER     */  /*      local entry for function EMIT-FETCH-WRAPPER     */
1347    
1348  static object LI33(object V255,object V254,object V253,object first,...)  static object LI33(object V262,object V261,object V260,object first,...)
1349  {        {      
1350          va_list ap;          va_list ap;
1351          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
1352          {object V256;          {object V263;
1353          register object V257;          register object V264;
1354          object V258;          object V265;
1355          register object V259;          register object V266;
1356          va_start(ap,first);          va_start(ap,first);
1357          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1358          V256= V255;          V263= V262;
1359          V257= V254;          V264= V261;
1360          V258= V253;          V265= V260;
1361          narg = narg - 3;          narg = narg - 3;
1362          if (narg <= 0) goto T316;          if (narg <= 0) goto T316;
1363          else {          else {
1364          V259= first;}          V266= first;}
1365          --narg; goto T317;          --narg; goto T317;
1366          goto T316;          goto T316;
1367  T316:;  T316:;
1368          V259= Cnil;          V266= Cnil;
1369          goto T317;          goto T317;
1370  T317:;  T317:;
1371          {object V260= (V256);          {object V267= (V263);
1372          if((V260!= VV[180]))goto T319;          if((V267!= VV[180]))goto T319;
1373          V261= list(2,VV[28],(V257));          V268= list(2,VV[28],(V264));
1374          if(((V259))==Cnil){          if(((V266))==Cnil){
1375          goto T322;}          goto T322;}
1376          V263= list(3,VV[29],(V259),list(2,VV[30],(V257)));          V270= list(3,VV[29],(V266),list(2,VV[30],(V264)));
1377          V262= make_cons(/* INLINE-ARGS */V263,Cnil);          V269= make_cons(/* INLINE-ARGS */V270,Cnil);
1378          goto T320;          goto T320;
1379          goto T322;          goto T322;
1380  T322:;  T322:;
1381          V262= Cnil;          V269= Cnil;
1382          goto T320;          goto T320;
1383  T320:;  T320:;
1384          V264= list(2,VV[31],(V257));          V271= list(2,VV[31],(V264));
1385          V265= make_cons(/* INLINE-ARGS */V264,Cnil);          V272= make_cons(/* INLINE-ARGS */V271,Cnil);
1386          V266= append(V262,/* INLINE-ARGS */V265);          V273= append(V269,/* INLINE-ARGS */V272);
1387          V267= make_cons(/* INLINE-ARGS */V261,/* INLINE-ARGS */V266);          V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273);
1388          V268= list(2,VV[32],(V257));          V275= list(2,VV[32],(V264));
1389          if(((V259))==Cnil){          if(((V266))==Cnil){
1390          goto T326;}          goto T326;}
1391          V270= list(3,VV[29],(V259),list(2,VV[33],(V257)));          V277= list(3,VV[29],(V266),list(2,VV[33],(V264)));
1392          V269= make_cons(/* INLINE-ARGS */V270,Cnil);          V276= make_cons(/* INLINE-ARGS */V277,Cnil);
1393          goto T324;          goto T324;
1394          goto T326;          goto T326;
1395  T326:;  T326:;
1396          V269= Cnil;          V276= Cnil;
1397          goto T324;          goto T324;
1398  T324:;  T324:;
1399          V271= list(2,VV[34],(V257));          V278= list(2,VV[34],(V264));
1400          V272= make_cons(/* INLINE-ARGS */V271,Cnil);          V279= make_cons(/* INLINE-ARGS */V278,Cnil);
1401          V273= append(V269,/* INLINE-ARGS */V272);          V280= append(V276,/* INLINE-ARGS */V279);
1402          V274= make_cons(/* INLINE-ARGS */V268,/* INLINE-ARGS */V273);          V281= make_cons(/* INLINE-ARGS */V275,/* INLINE-ARGS */V280);
1403          {object V275 = list(4,VV[27],/* INLINE-ARGS */V267,/* INLINE-ARGS */V274,list(2,Ct,list(2,VV[95],(V258))));          {object V282 = list(4,VV[27],/* INLINE-ARGS */V274,/* INLINE-ARGS */V281,list(2,Ct,list(2,VV[95],(V265))));
1404          VMR33(V275)}          VMR33(V282)}
1405          goto T319;          goto T319;
1406  T319:;  T319:;
1407          if((V260!= VV[181]))goto T328;          if((V267!= VV[181]))goto T328;
1408          if(((V259))==Cnil){          if(((V266))==Cnil){
1409          goto T329;}          goto T329;}
1410          base[0]= VV[150];          base[0]= VV[150];
1411          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1406  T319:; Line 1413  T319:;
1413          vs_top=sup;          vs_top=sup;
1414          goto T329;          goto T329;
1415  T329:;  T329:;
1416          {object V276 = list(2,VV[151],(V257));          {object V283 = list(2,VV[151],(V264));
1417          VMR33(V276)}          VMR33(V283)}
1418          goto T328;          goto T328;
1419  T328:;  T328:;
1420          if((V260!= VV[182])          if((V267!= VV[182])
1421          && (V260!= VV[183]))goto T333;          && (V267!= VV[183]))goto T333;
1422          if(((V259))==Cnil){          if(((V266))==Cnil){
1423          goto T334;}          goto T334;}
1424          base[0]= VV[152];          base[0]= VV[152];
1425          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1420  T328:; Line 1427  T328:;
1427          vs_top=sup;          vs_top=sup;
1428          goto T334;          goto T334;
1429  T334:;  T334:;
1430          {object V277 = list(2,VV[153],(V257));          {object V284 = list(2,VV[153],(V264));
1431          VMR33(V277)}          VMR33(V284)}
1432          goto T333;          goto T333;
1433  T333:;  T333:;
1434          FEerror("The ECASE key value ~s is illegal.",1,V260);          FEerror("The ECASE key value ~s is illegal.",1,V267);
1435          {object V278 = Cnil;          {object V285 = Cnil;
1436          VMR33(V278)}}          VMR33(V285)}}
1437          va_end(ap);          va_end(ap);
1438          base[0]=base[0];          base[0]=base[0];
1439          return Cnil;}          return Cnil;}

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

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