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

Diff of /gcl/pcl/pcl_env.c

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

revision 1.4 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 606  TTL:; Line 606  TTL:;
606          V59= vs_base[0];          V59= vs_base[0];
607          if(((V59))==Cnil){          if(((V59))==Cnil){
608          goto T263;}          goto T263;}
609          V60= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil));          V60 = (V56);
610          if(!(((V56))==(/* INLINE-ARGS */V60))){          V61= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil));
611            if(!((V60)==(/* INLINE-ARGS */V61))){
612          goto T266;}          goto T266;}
613          base[4]= (V57);          base[4]= (V57);
614          base[5]= VV[25];          base[5]= VV[25];
# Line 640  T259:; Line 641  T259:;
641          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
642          (void) (*Lnk93)(Lclptr93);          (void) (*Lnk93)(Lclptr93);
643          vs_top=sup;          vs_top=sup;
644          V63= vs_base[0];          V64= vs_base[0];
645          {object V61;          {object V62;
646          object V62= V63;          object V63= V64;
647          if(V62==Cnil){          if(V63==Cnil){
648          base[6]= Cnil;          base[6]= Cnil;
649          goto T278;}          goto T278;}
650          base[7]=V61=MMcons(Cnil,Cnil);          base[7]=V62=MMcons(Cnil,Cnil);
651          goto T279;          goto T279;
652  T279:;  T279:;
653          base[8]= (V62->c.c_car);          base[8]= (V63->c.c_car);
654          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
655          L10(base);          L10(base);
656          vs_top=sup;          vs_top=sup;
657          (V61->c.c_car)= vs_base[0];          (V62->c.c_car)= vs_base[0];
658          if((V62=MMcdr(V62))==Cnil){          if((V63=MMcdr(V63))==Cnil){
659          base[6]= base[7];          base[6]= base[7];
660          goto T278;}          goto T278;}
661          V61=MMcdr(V61)=MMcons(Cnil,Cnil);          V62=MMcdr(V62)=MMcons(Cnil,Cnil);
662          goto T279;}          goto T279;}
663          goto T278;          goto T278;
664  T278:;  T278:;
# Line 665  T278:; Line 666  T278:;
666          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
667          (void) (*Lnk94)(Lclptr94);          (void) (*Lnk94)(Lclptr94);
668          vs_top=sup;          vs_top=sup;
669          V66= vs_base[0];          V67= vs_base[0];
670          {object V64;          {object V65;
671          object V65= V66;          object V66= V67;
672          if(V65==Cnil){          if(V66==Cnil){
673          base[7]= Cnil;          base[7]= Cnil;
674          goto T284;}          goto T284;}
675          base[8]=V64=MMcons(Cnil,Cnil);          base[8]=V65=MMcons(Cnil,Cnil);
676          goto T285;          goto T285;
677  T285:;  T285:;
678          base[9]= (V65->c.c_car);          base[9]= (V66->c.c_car);
679          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
680          L10(base);          L10(base);
681          vs_top=sup;          vs_top=sup;
682          (V64->c.c_car)= vs_base[0];          (V65->c.c_car)= vs_base[0];
683          if((V65=MMcdr(V65))==Cnil){          if((V66=MMcdr(V66))==Cnil){
684          base[7]= base[8];          base[7]= base[8];
685          goto T284;}          goto T284;}
686          V64=MMcdr(V64)=MMcons(Cnil,Cnil);          V65=MMcdr(V65)=MMcons(Cnil,Cnil);
687          goto T285;}          goto T285;}
688          goto T284;          goto T284;
689  T284:;  T284:;
# Line 690  T284:; Line 691  T284:;
691          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
692          (void) (*Lnk95)(Lclptr95);          (void) (*Lnk95)(Lclptr95);
693          vs_top=sup;          vs_top=sup;
694          V69= vs_base[0];          V70= vs_base[0];
695          {object V67;          {object V68;
696          object V68= V69;          object V69= V70;
697          if(V68==Cnil){          if(V69==Cnil){
698          base[8]= Cnil;          base[8]= Cnil;
699          goto T290;}          goto T290;}
700          base[9]=V67=MMcons(Cnil,Cnil);          base[9]=V68=MMcons(Cnil,Cnil);
701          goto T291;          goto T291;
702  T291:;  T291:;
703          base[10]= (V68->c.c_car);          base[10]= (V69->c.c_car);
704          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
705          L10(base);          L10(base);
706          vs_top=sup;          vs_top=sup;
707          (V67->c.c_car)= vs_base[0];          (V68->c.c_car)= vs_base[0];
708          if((V68=MMcdr(V68))==Cnil){          if((V69=MMcdr(V69))==Cnil){
709          base[8]= base[9];          base[8]= base[9];
710          goto T290;}          goto T290;}
711          V67=MMcdr(V67)=MMcons(Cnil,Cnil);          V68=MMcdr(V68)=MMcons(Cnil,Cnil);
712          goto T291;}          goto T291;}
713          goto T290;          goto T290;
714  T290:;  T290:;
# Line 715  T290:; Line 716  T290:;
716          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
717          (void) (*Lnk96)(Lclptr96);          (void) (*Lnk96)(Lclptr96);
718          vs_top=sup;          vs_top=sup;
719          V70= vs_base[0];          V71= vs_base[0];
720          base[9]= CMPmake_fixnum((long)length(V70));          base[9]= CMPmake_fixnum((long)length(V71));
721          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
722          Lformat();          Lformat();
723          vs_top=sup;          vs_top=sup;
# Line 746  T290:; Line 747  T290:;
747  T307:;  T307:;
748          if(!(type_of((V55))==t_fixnum)){          if(!(type_of((V55))==t_fixnum)){
749          goto T317;}          goto T317;}
750          {object V72;          {object V73;
751          if(type_of(V56)==t_structure){          if(type_of(V56)==t_structure){
752          goto T323;}          goto T323;}
753          goto T321;          goto T321;
# Line 754  T307:; Line 755  T307:;
755  T323:;  T323:;
756          if(!(((V56)->str.str_def)==(VV[29]))){          if(!(((V56)->str.str_def)==(VV[29]))){
757          goto T321;}          goto T321;}
758          V72= STREF(object,(V56),4);          V73= STREF(object,(V56),4);
759          goto T319;          goto T319;
760          goto T321;          goto T321;
761  T321:;{object V74;  T321:;{object V75;
762          V74= (VV[19]->s.s_dbind);          V75= (VV[19]->s.s_dbind);
763          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
764          base[5]= (V56);          base[5]= (V56);
765          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
766          (void) (*Lnk88)();          (void) (*Lnk88)();
767          vs_top=sup;          vs_top=sup;
768          V75= vs_base[0];          V76= vs_base[0];
769          if(!((V74)==(CMPcar(V75)))){          if(!((V75)==(CMPcar(V76)))){
770          goto T326;}}          goto T326;}}
771          V72= CMPcar(((V56))->cc.cc_turbo[12]);          V73= CMPcar(((V56))->cc.cc_turbo[12]);
772          goto T319;          goto T319;
773          goto T326;          goto T326;
774  T326:;  T326:;
775          V72= Cnil;          V73= Cnil;
776          goto T319;          goto T319;
777  T319:;  T319:;
778          if(((V72))==Cnil){          if(((V73))==Cnil){
779          goto T332;}          goto T332;}
780          base[4]= ((V72))->v.v_self[fix((V55))]= (V56);          base[4]= ((V73))->v.v_self[fix((V55))]= (V56);
781          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
782          return;          return;
783          goto T332;          goto T332;
# Line 786  T332:; Line 787  T332:;
787          return;}          return;}
788          goto T317;          goto T317;
789  T317:;  T317:;
790          {register object V76;          {register object V77;
791          V76= (V55);          V77= (V55);
792          base[4]= (V76);          base[4]= (V77);
793          base[5]= VV[20];          base[5]= VV[20];
794          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
795          (void) (*Lnk87)();          (void) (*Lnk87)();
796          vs_top=sup;          vs_top=sup;
797          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
798          goto T335;}          goto T335;}
799          {object V77;          {object V78;
800          object V78;          object V79;
801          register object V79;          register object V80;
802          V77= STREF(object,(V55),0);          V78= STREF(object,(V55),0);
803          V78= list(2,(V56),(V57));          V79= list(2,(V56),(V57));
804          V79= STREF(object,(V55),4);          V80= STREF(object,(V55),4);
805          if(((V79))==Cnil){          if(((V80))==Cnil){
806          goto T343;}          goto T343;}
807          if((CMPcdr((V79)))!=Cnil){          if((CMPcdr((V80)))!=Cnil){
808          goto T343;}          goto T343;}
809          base[4]= (V78);          base[4]= (V79);
810          base[5]= CMPcar((V79));          base[5]= CMPcar((V80));
811          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
812          {object _funobj = (V77);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V78);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
813                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
814                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
815                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
816          return;          return;
817          goto T343;          goto T343;
818  T343:;  T343:;
819          base[4]= (V77);          base[4]= (V78);
820          base[5]= (V78);          base[5]= (V79);
821          {object V80;          {object V81;
822          V80= (V79);          V81= (V80);
823           vs_top=base+6;           vs_top=base+6;
824           while(V80!=Cnil)           while(V81!=Cnil)
825           {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}           {vs_push((V81)->c.c_car);V81=(V81)->c.c_cdr;}
826          vs_base=base+5;}          vs_base=base+5;}
827          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
828                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 830  T343:; Line 831  T343:;
831          return;}          return;}
832          goto T335;          goto T335;
833  T335:;  T335:;
834          base[4]= (V76);          base[4]= (V77);
835          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
836          Lfunctionp();          Lfunctionp();
837          vs_top=sup;          vs_top=sup;
# Line 847  T335:; Line 848  T335:;
848          goto T353;          goto T353;
849  T353:;  T353:;
850          base[5]= VV[21];          base[5]= VV[21];
851          base[6]= (V76);          base[6]= (V77);
852          base[7]= VV[30];          base[7]= VV[30];
853          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
854          (void) (*Lnk90)();          (void) (*Lnk90)();
# Line 871  T300:; Line 872  T300:;
872  }  }
873  /*      local entry for function DESCRIBE-PACKAGE       */  /*      local entry for function DESCRIBE-PACKAGE       */
874    
875  static object LI11(V83,V84)  static object LI11(V84,V85)
876    
877  object V83;object V84;  object V84;object V85;
878  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
879          goto TTL;          goto TTL;
880  TTL:;  TTL:;
881          base[0]= (V83);          base[0]= (V84);
882          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
883          Lpackagep();          Lpackagep();
884          vs_top=sup;          vs_top=sup;
885          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
886          goto T363;}          goto T363;}
887          base[0]= (V83);          base[0]= (V84);
888          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
889          Lfind_package();          Lfind_package();
890          vs_top=sup;          vs_top=sup;
891          V83= vs_base[0];          V84= vs_base[0];
892          goto T363;          goto T363;
893  T363:;  T363:;
894          base[0]= (V84);          base[0]= (V85);
895          base[1]= VV[31];          base[1]= VV[31];
896          base[2]= (V83);          base[2]= (V84);
897          base[4]= (V83);          base[4]= (V84);
898          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
899          Ltype_of();          Ltype_of();
900          vs_top=sup;          vs_top=sup;
# Line 901  T363:; Line 902  T363:;
902          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
903          Lformat();          Lformat();
904          vs_top=sup;          vs_top=sup;
905          {object V85;          {object V86;
906          base[0]= (V83);          base[0]= (V84);
907          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
908          Lpackage_nicknames();          Lpackage_nicknames();
909          vs_top=sup;          vs_top=sup;
910          V85= vs_base[0];          V86= vs_base[0];
911          if(((V85))==Cnil){          if(((V86))==Cnil){
912          goto T375;}          goto T375;}
913          base[0]= (V84);          base[0]= (V85);
914          base[1]= VV[32];          base[1]= VV[32];
915          base[3]= (V85);          base[3]= (V86);
916          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
917          Lbutlast();          Lbutlast();
918          vs_top=sup;          vs_top=sup;
919          base[2]= vs_base[0];          base[2]= vs_base[0];
920          base[4]= (V85);          base[4]= (V86);
921          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
922          Llast();          Llast();
923          vs_top=sup;          vs_top=sup;
924          V86= vs_base[0];          V87= vs_base[0];
925          base[3]= CMPcar(V86);          base[3]= CMPcar(V87);
926          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
927          Lformat();          Lformat();
928          vs_top=sup;}          vs_top=sup;}
929          goto T375;          goto T375;
930  T375:;  T375:;
931          {object V87;          {object V88;
932          object V88;          object V89;
         V87= small_fixnum(0);  
933          V88= small_fixnum(0);          V88= small_fixnum(0);
934          {object V89;          V89= small_fixnum(0);
935          register object V90;          {object V90;
936          register object V91;          register object V91;
937          {object V92;          register object V92;
938          V92= (V83);          {object V93;
939          base[0]= (V92);          V93= (V84);
940            base[0]= (V93);
941          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
942          Lpackagep();          Lpackagep();
943          vs_top=sup;          vs_top=sup;
944          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
945          goto T392;}          goto T392;}
946          base[0]= coerce_to_string((V92));          base[0]= coerce_to_string((V93));
947          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
948          Lfind_package();          Lfind_package();
949          vs_top=sup;          vs_top=sup;
950          V92= vs_base[0];          V93= vs_base[0];
951          if(((V92))!=Cnil){          if(((V93))!=Cnil){
952          goto T392;}          goto T392;}
953          base[0]= VV[33];          base[0]= VV[33];
954          base[1]= VV[34];          base[1]= VV[34];
955          base[2]= (V83);          base[2]= (V84);
956          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
957          (void) (*Lnk97)();          (void) (*Lnk97)();
958          vs_top=sup;          vs_top=sup;
959          goto T392;          goto T392;
960  T392:;  T392:;
961          V89= (V92);}          V90= (V93);}
         V90= Cnil;  
962          V91= Cnil;          V91= Cnil;
963          {long V93;          V92= Cnil;
964          long V94;          {long V94;
965          base[0]= (V89);          long V95;
966            base[0]= (V90);
967          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
968          (void) (*Lnk98)();          (void) (*Lnk98)();
969          vs_top=sup;          vs_top=sup;
970          V93= fix(vs_base[0]);          V94= fix(vs_base[0]);
971          V94= 0;          V95= 0;
972          goto T407;          goto T407;
973  T407:;  T407:;
974          if(!((V94)>=(V93))){          if(!((V95)>=(V94))){
975          goto T410;}          goto T410;}
976          V90= Cnil;          V91= Cnil;
977          goto T390;          goto T390;
978          goto T410;          goto T410;
979  T410:;  T410:;
980          base[0]= (V89);          base[0]= (V90);
981          base[1]= CMPmake_fixnum(V94);          base[1]= CMPmake_fixnum(V95);
982          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
983          siLpackage_external();          siLpackage_external();
984          vs_top=sup;          vs_top=sup;
985          V91= vs_base[0];          V92= vs_base[0];
986          goto T408;          goto T408;
987  T408:;  T408:;
988          if(((V91))!=Cnil){          if(((V92))!=Cnil){
989          goto T418;}          goto T418;}
990          goto T409;          goto T409;
991          goto T418;          goto T418;
992  T418:;  T418:;
993          V90= CMPcar((V91));          V91= CMPcar((V92));
994          V88= number_plus((V88),small_fixnum(1));          V89= number_plus((V89),small_fixnum(1));
995          V91= CMPcdr((V91));          V92= CMPcdr((V92));
996          goto T408;          goto T408;
997          goto T409;          goto T409;
998  T409:;  T409:;
999          V94= (long)(V94)+1;          V95= (long)(V95)+1;
1000          goto T407;}}          goto T407;}}
1001          goto T390;          goto T390;
1002  T390:;  T390:;
1003          {register object V95;          {register object V96;
1004          object V96;          object V97;
1005          register object V97;          register object V98;
1006          {object V98;          {object V99;
1007          V98= (V83);          V99= (V84);
1008          base[0]= (V98);          base[0]= (V99);
1009          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1010          Lpackagep();          Lpackagep();
1011          vs_top=sup;          vs_top=sup;
1012          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1013          goto T432;}          goto T432;}
1014          base[0]= coerce_to_string((V98));          base[0]= coerce_to_string((V99));
1015          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1016          Lfind_package();          Lfind_package();
1017          vs_top=sup;          vs_top=sup;
1018          V98= vs_base[0];          V99= vs_base[0];
1019          if(((V98))!=Cnil){          if(((V99))!=Cnil){
1020          goto T432;}          goto T432;}
1021          base[0]= VV[33];          base[0]= VV[33];
1022          base[1]= VV[34];          base[1]= VV[34];
1023          base[2]= (V83);          base[2]= (V84);
1024          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1025          (void) (*Lnk97)();          (void) (*Lnk97)();
1026          vs_top=sup;          vs_top=sup;
1027          goto T432;          goto T432;
1028  T432:;  T432:;
1029          V95= (V98);}          V96= (V99);}
         V96= Cnil;  
1030          V97= Cnil;          V97= Cnil;
1031          {object V99;          V98= Cnil;
1032          register object V100;          {object V100;
1033          base[2]= (V95);          register object V101;
1034            V102 = (V96);
1035            base[2]= (V96);
1036          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1037          Lpackage_use_list();          Lpackage_use_list();
1038          vs_top=sup;          vs_top=sup;
1039          V101= vs_base[0];          V103= vs_base[0];
1040          V99= make_cons((V95),V101);          V100= make_cons(V102,V103);
1041          V100= CMPcar((V99));          V101= CMPcar((V100));
1042          goto T448;          goto T448;
1043  T448:;  T448:;
1044          if(!(((V99))==Cnil)){          if(!(((V100))==Cnil)){
1045          goto T449;}          goto T449;}
1046          V96= Cnil;          V97= Cnil;
1047          goto T430;          goto T430;
1048          goto T449;          goto T449;
1049  T449:;  T449:;
1050          {long V102;          {long V104;
1051          register long V103;          register long V105;
1052          base[2]= (V100);          base[2]= (V101);
1053          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1054          (void) (*Lnk98)();          (void) (*Lnk98)();
1055          if(vs_base>=vs_top){vs_top=sup;goto T458;}          if(vs_base>=vs_top){vs_top=sup;goto T458;}
1056          V102= fix(vs_base[0]);          V104= fix(vs_base[0]);
1057          vs_base++;          vs_base++;
1058          if(vs_base>=vs_top){vs_top=sup;goto T459;}          if(vs_base>=vs_top){vs_top=sup;goto T459;}
1059          V103= fix(vs_base[0]);          V105= fix(vs_base[0]);
1060          vs_top=sup;          vs_top=sup;
1061          goto T460;          goto T460;
1062          goto T458;          goto T458;
1063  T458:;  T458:;
1064          V102= fix(Cnil);          V104= fix(Cnil);
1065          goto T459;          goto T459;
1066  T459:;  T459:;
1067          V103= fix(Cnil);          V105= fix(Cnil);
1068          goto T460;          goto T460;
1069  T460:;  T460:;
1070          if(((V95))==((V100))){          if(((V96))==((V101))){
1071          goto T461;}          goto T461;}
1072          V103= 0;          V105= 0;
1073          goto T461;          goto T461;
1074  T461:;  T461:;
1075          {long V104;          {long V106;
1076          register long V105;          register long V107;
1077          V104= (long)(V103)+(V102);          V106= (long)(V105)+(V104);
1078          V105= 0;          V107= 0;
1079          goto T468;          goto T468;
1080  T468:;  T468:;
1081          if(!((V105)>=(V104))){          if(!((V107)>=(V106))){
1082          goto T471;}          goto T471;}
1083          goto T455;          goto T455;
1084          goto T471;          goto T471;
1085  T471:;  T471:;
1086          if(!((V105)<(V103))){          if(!((V107)<(V105))){
1087          goto T476;}          goto T476;}
1088          base[2]= (V100);          base[2]= (V101);
1089          base[3]= CMPmake_fixnum(V105);          base[3]= CMPmake_fixnum(V107);
1090          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1091          siLpackage_internal();          siLpackage_internal();
1092          vs_top=sup;          vs_top=sup;
1093          V97= vs_base[0];          V98= vs_base[0];
1094          goto T474;          goto T474;
1095          goto T476;          goto T476;
1096  T476:;  T476:;
1097          base[2]= (V100);          base[2]= (V101);
1098          V106 = CMPmake_fixnum(V105);          V108 = CMPmake_fixnum(V107);
1099          V107 = CMPmake_fixnum(V103);          V109 = CMPmake_fixnum(V105);
1100          base[3]= number_minus(V106,V107);          base[3]= number_minus(V108,V109);
1101          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1102          siLpackage_external();          siLpackage_external();
1103          vs_top=sup;          vs_top=sup;
1104          V97= vs_base[0];          V98= vs_base[0];
1105          goto T474;          goto T474;
1106  T474:;  T474:;
1107          goto T469;          goto T469;
1108  T469:;  T469:;
1109          if(((V97))!=Cnil){          if(((V98))!=Cnil){
1110          goto T482;}          goto T482;}
1111          goto T470;          goto T470;
1112          goto T482;          goto T482;
1113  T482:;  T482:;
1114          V96= CMPcar((V97));          V97= CMPcar((V98));
1115          if(((V100))==((V95))){          if(((V101))==((V96))){
1116          goto T488;}          goto T488;}
1117          base[3]= symbol_name((V96));          base[3]= symbol_name((V97));
1118          base[4]= (V95);          base[4]= (V96);
1119          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1120          Lfind_symbol();          Lfind_symbol();
1121          Llist();          Llist();
# Line 1122  T482:; Line 1124  T482:;
1124          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1125          Llast();          Llast();
1126          vs_top=sup;          vs_top=sup;
1127          V108= vs_base[0];          V110= vs_base[0];
1128          if(!((VV[35])==(CMPcar(V108)))){          if(!((VV[35])==(CMPcar(V110)))){
1129          goto T487;}          goto T487;}
1130          goto T488;          goto T488;
1131  T488:;  T488:;
1132          V87= number_plus((V87),small_fixnum(1));          V88= number_plus((V88),small_fixnum(1));
1133          goto T487;          goto T487;
1134  T487:;  T487:;
1135          V97= CMPcdr((V97));          V98= CMPcdr((V98));
1136          goto T469;          goto T469;
1137          goto T470;          goto T470;
1138  T470:;  T470:;
1139          V105= (long)(V105)+1;          V107= (long)(V107)+1;
1140          goto T468;}}          goto T468;}}
1141          goto T455;          goto T455;
1142  T455:;  T455:;
1143          V99= CMPcdr((V99));          V100= CMPcdr((V100));
1144          V100= CMPcar((V99));          V101= CMPcar((V100));
1145          goto T448;}}          goto T448;}}
1146          goto T430;          goto T430;
1147  T430:;  T430:;
1148          V87= number_minus((V87),(V88));          V88= number_minus((V88),(V89));
1149          base[0]= (V84);          base[0]= (V85);
1150          base[1]= VV[36];          base[1]= VV[36];
1151          base[2]= (V87);          base[2]= (V88);
1152          base[3]= (V88);          base[3]= (V89);
1153          base[4]= number_plus((V87),(V88));          base[4]= number_plus((V88),(V89));
1154          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1155          Lformat();          Lformat();
1156          vs_top=sup;}          vs_top=sup;}
1157          {object V109;          {object V111;
1158          base[0]= (V83);          base[0]= (V84);
1159          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1160          Lpackage_use_list();          Lpackage_use_list();
1161          vs_top=sup;          vs_top=sup;
1162          V109= vs_base[0];          V111= vs_base[0];
1163          if(((V109))==Cnil){          if(((V111))==Cnil){
1164          goto T516;}          goto T516;}
1165          base[0]= (V84);          base[0]= (V85);
1166          base[1]= VV[37];          base[1]= VV[37];
1167          {object V110;          {object V112;
1168          object V111= (V109);          object V113= (V111);
1169          if(V111==Cnil){          if(V113==Cnil){
1170          base[2]= Cnil;          base[2]= Cnil;
1171          goto T523;}          goto T523;}
1172          base[3]=V110=MMcons(Cnil,Cnil);          base[3]=V112=MMcons(Cnil,Cnil);
1173          goto T524;          goto T524;
1174  T524:;  T524:;
1175          base[4]= (V111->c.c_car);          base[4]= (V113->c.c_car);
1176          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1177          Lpackage_name();          Lpackage_name();
1178          vs_top=sup;          vs_top=sup;
1179          (V110->c.c_car)= vs_base[0];          (V112->c.c_car)= vs_base[0];
1180          if((V111=MMcdr(V111))==Cnil){          if((V113=MMcdr(V113))==Cnil){
1181          base[2]= base[3];          base[2]= base[3];
1182          goto T523;}          goto T523;}
1183          V110=MMcdr(V110)=MMcons(Cnil,Cnil);          V112=MMcdr(V112)=MMcons(Cnil,Cnil);
1184          goto T524;}          goto T524;}
1185          goto T523;          goto T523;
1186  T523:;  T523:;
# Line 1187  T523:; Line 1189  T523:;
1189          vs_top=sup;}          vs_top=sup;}
1190          goto T516;          goto T516;
1191  T516:;  T516:;
1192          {object V112;          {object V114;
1193          base[0]= (V83);          base[0]= (V84);
1194          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1195          Lpackage_use_list();          Lpackage_use_list();
1196          vs_top=sup;          vs_top=sup;
1197          V112= vs_base[0];          V114= vs_base[0];
1198          if(((V112))==Cnil){          if(((V114))==Cnil){
1199          goto T530;}          goto T530;}
1200          base[0]= (V84);          base[0]= (V85);
1201          base[1]= VV[38];          base[1]= VV[38];
1202          {object V113;          {object V115;
1203          object V114= (V112);          object V116= (V114);
1204          if(V114==Cnil){          if(V116==Cnil){
1205          base[2]= Cnil;          base[2]= Cnil;
1206          goto T534;}          goto T534;}
1207          base[3]=V113=MMcons(Cnil,Cnil);          base[3]=V115=MMcons(Cnil,Cnil);
1208          goto T535;          goto T535;
1209  T535:;  T535:;
1210          base[4]= (V114->c.c_car);          base[4]= (V116->c.c_car);
1211          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1212          Lpackage_name();          Lpackage_name();
1213          vs_top=sup;          vs_top=sup;
1214          (V113->c.c_car)= vs_base[0];          (V115->c.c_car)= vs_base[0];
1215          if((V114=MMcdr(V114))==Cnil){          if((V116=MMcdr(V116))==Cnil){
1216          base[2]= base[3];          base[2]= base[3];
1217          goto T534;}          goto T534;}
1218          V113=MMcdr(V113)=MMcons(Cnil,Cnil);          V115=MMcdr(V115)=MMcons(Cnil,Cnil);
1219          goto T535;}          goto T535;}
1220          goto T534;          goto T534;
1221  T534:;  T534:;
1222          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1223          Lformat();          Lformat();
1224          vs_top=sup;          vs_top=sup;
1225          {object V115 = vs_base[0];          {object V117 = vs_base[0];
1226          VMR8(V115)}          VMR8(V117)}
1227          goto T530;          goto T530;
1228  T530:;  T530:;
1229          {object V116 = Cnil;          {object V118 = Cnil;
1230          VMR8(V116)}}          VMR8(V118)}}
1231          base[0]=base[0];          base[0]=base[0];
1232          return Cnil;          return Cnil;
1233  }  }
# Line 1242  TTL:; Line 1244  TTL:;
1244          base[0]= VV[39];          base[0]= VV[39];
1245          base[1]= VV[40];          base[1]= VV[40];
1246          base[2]= VV[41];          base[2]= VV[41];
1247          V117= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil);          V119= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil);
1248          V118= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil);          V120= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil);
1249          base[4]= VV[51];          base[4]= VV[51];
1250          base[5]= (VV[99]->s.s_gfdef);          base[5]= (VV[99]->s.s_gfdef);
1251          base[6]= VV[42];          base[6]= VV[42];
# Line 1258  TTL:; Line 1260  TTL:;
1260          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1261          LlistA();          LlistA();
1262          vs_top=sup;          vs_top=sup;
1263          V119= vs_base[0];          V121= vs_base[0];
1264          base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119);          base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121);
1265          base[4]= Cnil;          base[4]= Cnil;
1266          base[5]= VV[56];          base[5]= VV[56];
1267          symlispcall(VV[100],base+0,6);          symlispcall(VV[100],base+0,6);
# Line 1271  static void L13() Line 1273  static void L13()
1273  {register object *base=vs_base;  {register object *base=vs_base;
1274          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1275          vs_check;          vs_check;
1276          {object V120;          {object V122;
1277          object V121;          object V123;
1278          register object V122;          register object V124;
1279          check_arg(3);          check_arg(3);
1280          V120=(base[0]);          V122=(base[0]);
1281          V121=(base[1]);          V123=(base[1]);
1282          V122=(base[2]);          V124=(base[2]);
1283          vs_top=sup;          vs_top=sup;
1284          goto TTL;          goto TTL;
1285  TTL:;  TTL:;
         {object V124;  
         object V125;  
         V124= CMPcar((V120));  
         V125= CMPcdr((V120));  
1286          {object V126;          {object V126;
1287          if(type_of(V122)==t_structure){          object V127;
1288            V126= CMPcar((V122));
1289            V127= CMPcdr((V122));
1290            {object V128;
1291            if(type_of(V124)==t_structure){
1292          goto T566;}          goto T566;}
1293          goto T564;          goto T564;
1294          goto T566;          goto T566;
1295  T566:;  T566:;
1296          if(!(((V122)->str.str_def)==(VV[57]))){          if(!(((V124)->str.str_def)==(VV[57]))){
1297          goto T564;}          goto T564;}
1298          V126= STREF(object,(V122),4);          V128= STREF(object,(V124),4);
1299          goto T562;          goto T562;
1300          goto T564;          goto T564;
1301  T564:;{object V128;  T564:;{object V130;
1302          V128= (VV[19]->s.s_dbind);          V130= (VV[19]->s.s_dbind);
1303          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1304          base[4]= (V122);          base[4]= (V124);
1305          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1306          (void) (*Lnk88)();          (void) (*Lnk88)();
1307          vs_top=sup;          vs_top=sup;
1308          V129= vs_base[0];          V131= vs_base[0];
1309          if(!((V128)==(CMPcar(V129)))){          if(!((V130)==(CMPcar(V131)))){
1310          goto T569;}}          goto T569;}}
1311          V126= CMPcar(((V122))->cc.cc_turbo[12]);          V128= CMPcar(((V124))->cc.cc_turbo[12]);
1312          goto T562;          goto T562;
1313          goto T569;          goto T569;
1314  T569:;  T569:;
1315          V126= Cnil;          V128= Cnil;
1316          goto T562;          goto T562;
1317  T562:;  T562:;
1318          {register object V131;          {register object V133;
1319          V131= ((V124))->v.v_self[1];          V133= ((V126))->v.v_self[1];
1320          if(!(type_of(V131)==t_fixnum)){          if(!(type_of(V133)==t_fixnum)){
1321          goto T581;}          goto T581;}
1322          V131= ((V126))->v.v_self[fix((V131))];          V133= ((V128))->v.v_self[fix((V133))];
1323          goto T579;          goto T579;
1324          goto T581;          goto T581;
1325  T581:;  T581:;
1326          V131= VV[58];          V133= VV[58];
1327          goto T579;          goto T579;
1328  T579:;  T579:;
1329          if(!(((V131))==(VV[58]))){          if(!(((V133))==(VV[58]))){
1330          goto T584;}          goto T584;}
1331          base[4]= (V122);          base[4]= (V124);
1332          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1333          (void) (*Lnk66)();          (void) (*Lnk66)();
1334          vs_top=sup;          vs_top=sup;
# Line 1334  T579:; Line 1336  T579:;
1336          goto T576;          goto T576;
1337          goto T584;          goto T584;
1338  T584:;  T584:;
1339          base[3]= (V131);}          base[3]= (V133);}
1340          goto T576;          goto T576;
1341  T576:;  T576:;
1342          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1348  static void L14() Line 1350  static void L14()
1350  {register object *base=vs_base;  {register object *base=vs_base;
1351          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1352          vs_check;          vs_check;
1353          {object V133;          {object V135;
1354          object V134;          object V136;
1355          register object V135;          register object V137;
1356          check_arg(3);          check_arg(3);
1357          V133=(base[0]);          V135=(base[0]);
1358          V134=(base[1]);          V136=(base[1]);
1359          V135=(base[2]);          V137=(base[2]);
1360          vs_top=sup;          vs_top=sup;
1361          goto TTL;          goto TTL;
1362  TTL:;  TTL:;
         {object V137;  
         object V138;  
         V137= CMPcar((V133));  
         V138= CMPcdr((V133));  
1363          {object V139;          {object V139;
1364          if(type_of(V135)==t_structure){          object V140;
1365            V139= CMPcar((V135));
1366            V140= CMPcdr((V135));
1367            {object V141;
1368            if(type_of(V137)==t_structure){
1369          goto T597;}          goto T597;}
1370          goto T595;          goto T595;
1371          goto T597;          goto T597;
1372  T597:;  T597:;
1373          if(!(((V135)->str.str_def)==(VV[59]))){          if(!(((V137)->str.str_def)==(VV[59]))){
1374          goto T595;}          goto T595;}
1375          V139= STREF(object,(V135),4);          V141= STREF(object,(V137),4);
1376          goto T593;          goto T593;
1377          goto T595;          goto T595;
1378  T595:;{object V141;  T595:;{object V143;
1379          V141= (VV[19]->s.s_dbind);          V143= (VV[19]->s.s_dbind);
1380          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1381          base[4]= (V135);          base[4]= (V137);
1382          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1383          (void) (*Lnk88)();          (void) (*Lnk88)();
1384          vs_top=sup;          vs_top=sup;
1385          V142= vs_base[0];          V144= vs_base[0];
1386          if(!((V141)==(CMPcar(V142)))){          if(!((V143)==(CMPcar(V144)))){
1387          goto T600;}}          goto T600;}}
1388          V139= CMPcar(((V135))->cc.cc_turbo[12]);          V141= CMPcar(((V137))->cc.cc_turbo[12]);
1389          goto T593;          goto T593;
1390          goto T600;          goto T600;
1391  T600:;  T600:;
1392          V139= Cnil;          V141= Cnil;
1393          goto T593;          goto T593;
1394  T593:;  T593:;
1395          {register object V144;          {register object V146;
1396          V144= ((V137))->v.v_self[1];          V146= ((V139))->v.v_self[1];
1397          if(!(type_of(V144)==t_fixnum)){          if(!(type_of(V146)==t_fixnum)){
1398          goto T612;}          goto T612;}
1399          V144= ((V139))->v.v_self[fix((V144))];          V146= ((V141))->v.v_self[fix((V146))];
1400          goto T610;          goto T610;
1401          goto T612;          goto T612;
1402  T612:;  T612:;
1403          V144= VV[58];          V146= VV[58];
1404          goto T610;          goto T610;
1405  T610:;  T610:;
1406          if(!(((V144))==(VV[58]))){          if(!(((V146))==(VV[58]))){
1407          goto T615;}          goto T615;}
1408          base[4]= (V135);          base[4]= (V137);
1409          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1410          (void) (*Lnk66)();          (void) (*Lnk66)();
1411          vs_top=sup;          vs_top=sup;
# Line 1411  T610:; Line 1413  T610:;
1413          goto T607;          goto T607;
1414          goto T615;          goto T615;
1415  T615:;  T615:;
1416          base[3]= (V144);}          base[3]= (V146);}
1417          goto T607;          goto T607;
1418  T607:;  T607:;
1419          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1425  static void L15() Line 1427  static void L15()
1427  {register object *base=vs_base;  {register object *base=vs_base;
1428          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
1429          vs_check;          vs_check;
1430          {object V146;          {object V148;
1431          object V147;          object V149;
1432          register object V148;          register object V150;
1433          check_arg(3);          check_arg(3);
1434          V146=(base[0]);          V148=(base[0]);
1435          V147=(base[1]);          V149=(base[1]);
1436          V148=(base[2]);          V150=(base[2]);
1437          vs_top=sup;          vs_top=sup;
1438          goto TTL;          goto TTL;
1439  TTL:;  TTL:;
         {object V150;  
         object V151;  
         V150= CMPcar((V146));  
         V151= CMPcdr((V146));  
1440          {object V152;          {object V152;
1441          if(type_of(V148)==t_structure){          object V153;
1442            V152= CMPcar((V148));
1443            V153= CMPcdr((V148));
1444            {object V154;
1445            if(type_of(V150)==t_structure){
1446          goto T628;}          goto T628;}
1447          goto T626;          goto T626;
1448          goto T628;          goto T628;
1449  T628:;  T628:;
1450          if(!(((V148)->str.str_def)==(VV[60]))){          if(!(((V150)->str.str_def)==(VV[60]))){
1451          goto T626;}          goto T626;}
1452          V152= STREF(object,(V148),4);          V154= STREF(object,(V150),4);
1453          goto T624;          goto T624;
1454          goto T626;          goto T626;
1455  T626:;{object V154;  T626:;{object V156;
1456          V154= (VV[19]->s.s_dbind);          V156= (VV[19]->s.s_dbind);
1457          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1458          base[4]= (V148);          base[4]= (V150);
1459          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1460          (void) (*Lnk88)();          (void) (*Lnk88)();
1461          vs_top=sup;          vs_top=sup;
1462          V155= vs_base[0];          V157= vs_base[0];
1463          if(!((V154)==(CMPcar(V155)))){          if(!((V156)==(CMPcar(V157)))){
1464          goto T631;}}          goto T631;}}
1465          V152= CMPcar(((V148))->cc.cc_turbo[12]);          V154= CMPcar(((V150))->cc.cc_turbo[12]);
1466          goto T624;          goto T624;
1467          goto T631;          goto T631;
1468  T631:;  T631:;
1469          V152= Cnil;          V154= Cnil;
1470          goto T624;          goto T624;
1471  T624:;  T624:;
1472          {register object V157;          {register object V159;
1473          V157= ((V150))->v.v_self[1];          V159= ((V152))->v.v_self[1];
1474          if(!(type_of(V157)==t_fixnum)){          if(!(type_of(V159)==t_fixnum)){
1475          goto T643;}          goto T643;}
1476          V157= ((V152))->v.v_self[fix((V157))];          V159= ((V154))->v.v_self[fix((V159))];
1477          goto T641;          goto T641;
1478          goto T643;          goto T643;
1479  T643:;  T643:;
1480          V157= VV[58];          V159= VV[58];
1481          goto T641;          goto T641;
1482  T641:;  T641:;
1483          if(!(((V157))==(VV[58]))){          if(!(((V159))==(VV[58]))){
1484          goto T646;}          goto T646;}
1485          base[4]= (V148);          base[4]= (V150);
1486          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1487          (void) (*Lnk66)();          (void) (*Lnk66)();
1488          vs_top=sup;          vs_top=sup;
# Line 1488  T641:; Line 1490  T641:;
1490          goto T638;          goto T638;
1491          goto T646;          goto T646;
1492  T646:;  T646:;
1493          base[3]= (V157);}          base[3]= (V159);}
1494          goto T638;          goto T638;
1495  T638:;  T638:;
1496          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1502  static void L16() Line 1504  static void L16()
1504  {register object *base=vs_base;  {register object *base=vs_base;
1505          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1506          vs_check;          vs_check;
1507          {object V159;          {object V161;
1508          object V160;          object V162;
1509          register object V161;          register object V163;
1510          check_arg(3);          check_arg(3);
1511          V159=(base[0]);          V161=(base[0]);
1512          V160=(base[1]);          V162=(base[1]);
1513          V161=(base[2]);          V163=(base[2]);
1514          vs_top=sup;          vs_top=sup;
1515          goto TTL;          goto TTL;
1516  TTL:;  TTL:;
         {object V163;  
         object V164;  
         V163= CMPcar((V159));  
         V164= CMPcdr((V159));  
1517          {object V165;          {object V165;
1518          if(type_of(V161)==t_structure){          object V166;
1519            V165= CMPcar((V161));
1520            V166= CMPcdr((V161));
1521            {object V167;
1522            if(type_of(V163)==t_structure){
1523          goto T659;}          goto T659;}
1524          goto T657;          goto T657;
1525          goto T659;          goto T659;
1526  T659:;  T659:;
1527          if(!(((V161)->str.str_def)==(VV[61]))){          if(!(((V163)->str.str_def)==(VV[61]))){
1528          goto T657;}          goto T657;}
1529          V165= STREF(object,(V161),4);          V167= STREF(object,(V163),4);
1530          goto T655;          goto T655;
1531          goto T657;          goto T657;
1532  T657:;{object V167;  T657:;{object V169;
1533          V167= (VV[19]->s.s_dbind);          V169= (VV[19]->s.s_dbind);
1534          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1535          base[4]= (V161);          base[4]= (V163);
1536          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1537          (void) (*Lnk88)();          (void) (*Lnk88)();
1538          vs_top=sup;          vs_top=sup;
1539          V168= vs_base[0];          V170= vs_base[0];
1540          if(!((V167)==(CMPcar(V168)))){          if(!((V169)==(CMPcar(V170)))){
1541          goto T662;}}          goto T662;}}
1542          V165= CMPcar(((V161))->cc.cc_turbo[12]);          V167= CMPcar(((V163))->cc.cc_turbo[12]);
1543          goto T655;          goto T655;
1544          goto T662;          goto T662;
1545  T662:;  T662:;
1546          V165= Cnil;          V167= Cnil;
1547          goto T655;          goto T655;
1548  T655:;  T655:;
1549          {register object V170;          {register object V172;
1550          V170= ((V163))->v.v_self[1];          V172= ((V165))->v.v_self[1];
1551          if(!(type_of(V170)==t_fixnum)){          if(!(type_of(V172)==t_fixnum)){
1552          goto T674;}          goto T674;}
1553          V170= ((V165))->v.v_self[fix((V170))];          V172= ((V167))->v.v_self[fix((V172))];
1554          goto T672;          goto T672;
1555          goto T674;          goto T674;
1556  T674:;  T674:;
1557          V170= VV[58];          V172= VV[58];
1558          goto T672;          goto T672;
1559  T672:;  T672:;
1560          if(!(((V170))==(VV[58]))){          if(!(((V172))==(VV[58]))){
1561          goto T677;}          goto T677;}
1562          base[4]= (V161);          base[4]= (V163);
1563          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1564          (void) (*Lnk66)();          (void) (*Lnk66)();
1565          vs_top=sup;          vs_top=sup;
# Line 1565  T672:; Line 1567  T672:;
1567          goto T669;          goto T669;
1568          goto T677;          goto T677;
1569  T677:;  T677:;
1570          base[3]= (V170);}          base[3]= (V172);}
1571          goto T669;          goto T669;
1572  T669:;  T669:;
1573          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1575  T669:; Line 1577  T669:;
1577  }  }
1578  /*      local entry for function TRACE-METHOD   */  /*      local entry for function TRACE-METHOD   */
1579    
1580  static object LI17(object V172,object first,...)  static object LI17(object V174,object first,...)
1581  {        {      
1582          va_list ap;          va_list ap;
1583          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
1584          {object V173;          {object V175;
1585          object V174;          object V176;
1586          va_start(ap,first);          va_start(ap,first);
1587          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1588          V173= V172;          V175= V174;
1589          narg= narg - 1;          narg= narg - 1;
1590          V175 = list_vector_new(narg,first,ap);          V177 = list_vector_new(narg,first,ap);
1591          V174= V175;          V176= V177;
1592          {object V176;          {object V178;
1593          object V177;          object V179;
1594          object V178;          object V180;
1595          base[0]= (V173);          base[0]= (V175);
1596          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1597          (void) (*Lnk104)();          (void) (*Lnk104)();
1598          if(vs_base>=vs_top){vs_top=sup;goto T682;}          if(vs_base>=vs_top){vs_top=sup;goto T682;}
1599          V176= vs_base[0];          V178= vs_base[0];
1600          vs_base++;          vs_base++;
1601          if(vs_base>=vs_top){vs_top=sup;goto T683;}          if(vs_base>=vs_top){vs_top=sup;goto T683;}
1602          V177= vs_base[0];          V179= vs_base[0];
1603          vs_base++;          vs_base++;
1604          if(vs_base>=vs_top){vs_top=sup;goto T684;}          if(vs_base>=vs_top){vs_top=sup;goto T684;}
1605          V178= vs_base[0];          V180= vs_base[0];
1606          vs_top=sup;          vs_top=sup;
1607          goto T685;          goto T685;
1608          goto T682;          goto T682;
1609  T682:;  T682:;
1610          V176= Cnil;          V178= Cnil;
1611          goto T683;          goto T683;
1612  T683:;  T683:;
1613          V177= Cnil;          V179= Cnil;
1614          goto T684;          goto T684;
1615  T684:;  T684:;
1616          V178= Cnil;          V180= Cnil;
1617          goto T685;          goto T685;
1618  T685:;  T685:;
1619          {object V179;          {object V181;
1620          object V180;          object V182;
1621          base[2]= (V177);          base[2]= (V179);
1622          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1623          (void) (*Lnk86)(Lclptr86);          (void) (*Lnk86)(Lclptr86);
1624          vs_top=sup;          vs_top=sup;
1625          V181= vs_base[0];          V183= vs_base[0];
1626          V179= (*(LnkLI105))(V181,(V178),(V174));          V184 = (V180);
1627            V185 = (V176);
1628            V181= (*(LnkLI105))(V183,V184,V185);
1629          base[2]= VV[39];          base[2]= VV[39];
1630          base[3]= VV[62];          base[3]= VV[62];
1631          base[4]= (V177);          base[4]= (V179);
1632          base[5]= VV[63];          base[5]= VV[63];
1633          base[6]= (V179);          base[6]= (V181);
1634          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1635          (void) (*Lnk106)(Lclptr106);          (void) (*Lnk106)(Lclptr106);
1636          vs_top=sup;          vs_top=sup;
1637          V180= vs_base[0];          V182= vs_base[0];
1638          base[2]= (V176);          base[2]= (V178);
1639          base[3]= (V177);          base[3]= (V179);
1640          (void)simple_symlispcall(VV[107],base+2,2);          (void)simple_symlispcall(VV[107],base+2,2);
1641          base[2]= (V176);          base[2]= (V178);
1642          base[3]= (V180);          base[3]= (V182);
1643          (void)simple_symlispcall(VV[108],base+2,2);          (void)simple_symlispcall(VV[108],base+2,2);
1644          base[2]= V180;          base[2]= V182;
1645          base[3]= (VV[64]->s.s_dbind);          base[3]= (VV[64]->s.s_dbind);
1646          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1647          Ladjoin();          Ladjoin();
1648          vs_top=sup;          vs_top=sup;
1649          (VV[64]->s.s_dbind)= vs_base[0];          (VV[64]->s.s_dbind)= vs_base[0];
1650          {object V183 = (V180);          {object V187 = (V182);
1651          VMR14(V183)}}}          VMR14(V187)}}}
1652          va_end(ap);          va_end(ap);
1653          base[0]=base[0];          base[0]=base[0];
1654          return Cnil;}          return Cnil;}
# Line 1655  static void L18() Line 1659  static void L18()
1659  {register object *base=vs_base;  {register object *base=vs_base;
1660          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1661          vs_check;          vs_check;
1662          {object V184;          {object V188;
1663          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
1664          if(vs_base>=vs_top){vs_top=sup;goto T705;}          if(vs_base>=vs_top){vs_top=sup;goto T705;}
1665          V184=(base[0]);          V188=(base[0]);
1666          vs_top=sup;          vs_top=sup;
1667          goto T706;          goto T706;
1668          goto T705;          goto T705;
1669  T705:;  T705:;
1670          V184= Cnil;          V188= Cnil;
1671          goto T706;          goto T706;
1672  T706:;  T706:;
1673          if(((V184))==Cnil){          if(((V188))==Cnil){
1674          goto T709;}          goto T709;}
1675          {object V185;          {object V189;
1676          object V186;          object V190;
1677          base[1]= (V184);          base[1]= (V188);
1678          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1679          (void) (*Lnk104)();          (void) (*Lnk104)();
1680          if(vs_base>=vs_top){vs_top=sup;goto T713;}          if(vs_base>=vs_top){vs_top=sup;goto T713;}
1681          V185= vs_base[0];          V189= vs_base[0];
1682          vs_base++;          vs_base++;
1683          if(vs_base>=vs_top){vs_top=sup;goto T714;}          if(vs_base>=vs_top){vs_top=sup;goto T714;}
1684          V186= vs_base[0];          V190= vs_base[0];
1685          vs_top=sup;          vs_top=sup;
1686          goto T715;          goto T715;
1687          goto T713;          goto T713;
1688  T713:;  T713:;
1689          V185= Cnil;          V189= Cnil;
1690          goto T714;          goto T714;
1691  T714:;  T714:;
1692          V186= Cnil;          V190= Cnil;
1693          goto T715;          goto T715;
1694  T715:;  T715:;
1695          {register object x= (V186),V187= (VV[64]->s.s_dbind);          {register object x= (V190),V191= (VV[64]->s.s_dbind);
1696          while(V187!=Cnil)          while(V191!=Cnil)
1697          if(x==(V187->c.c_car)){          if(x==(V191->c.c_car)){
1698          goto T718;          goto T718;
1699          }else V187=V187->c.c_cdr;          }else V191=V191->c.c_cdr;
1700          goto T717;}          goto T717;}
1701          goto T718;          goto T718;
1702  T718:;  T718:;
1703          base[1]= (V186);          base[1]= (V190);
1704          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1705          L19(base);          L19(base);
1706          return;          return;
1707          goto T717;          goto T717;
1708  T717:;  T717:;
1709          base[1]= VV[65];          base[1]= VV[65];
1710          base[2]= (V186);          base[2]= (V190);
1711          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1712          Lerror();          Lerror();
1713          return;}          return;}
1714          goto T709;          goto T709;
1715  T709:;  T709:;
1716          {register object V188;          {register object V192;
1717          register object V189;          register object V193;
1718          V188= (VV[64]->s.s_dbind);          V192= (VV[64]->s.s_dbind);
1719          V189= CMPcar((V188));          V193= CMPcar((V192));
1720          goto T725;          goto T725;
1721  T725:;  T725:;
1722          if(!(((V188))==Cnil)){          if(!(((V192))==Cnil)){
1723          goto T726;}          goto T726;}
1724          base[2]= Cnil;          base[2]= Cnil;
1725          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1726          return;          return;
1727          goto T726;          goto T726;
1728  T726:;  T726:;
1729          base[2]= (V189);          base[2]= (V193);
1730          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1731          L19(base);          L19(base);
1732          vs_top=sup;          vs_top=sup;
1733          V188= CMPcdr((V188));          V192= CMPcdr((V192));
1734          V189= CMPcar((V188));          V193= CMPcar((V192));
1735          goto T725;}          goto T725;}
1736          }          }
1737  }  }
1738  /*      local entry for function TRACE-METHOD-INTERNAL  */  /*      local entry for function TRACE-METHOD-INTERNAL  */
1739    
1740  static object LI20(V193,V194,V195)  static object LI20(V197,V198,V199)
1741    
1742  object V193;register object V194;object V195;  object V197;register object V198;object V199;
1743  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1744          goto TTL;          goto TTL;
1745  TTL:;  TTL:;
1746          base[0]= list(2,VV[67],(V194));          base[0]= list(2,VV[67],(V198));
1747          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1748          Leval();          Leval();
1749          vs_top=sup;          vs_top=sup;
1750          base[0]= (V194);          base[0]= (V198);
1751          base[1]= (V193);          base[1]= (V197);
1752          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1753          siLfset();          siLfset();
1754          vs_top=sup;          vs_top=sup;
1755          base[0]= listA(3,VV[68],(V194),(V195));          base[0]= listA(3,VV[68],(V198),(V199));
1756          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1757          Leval();          Leval();
1758          vs_top=sup;          vs_top=sup;
1759          base[0]= (V194);          base[0]= (V198);
1760          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1761          Lsymbol_function();          Lsymbol_function();
1762          vs_top=sup;          vs_top=sup;
1763          {object V196 = vs_base[0];          {object V200 = vs_base[0];
1764          VMR16(V196)}          VMR16(V200)}
1765          base[0]=base[0];          base[0]=base[0];
1766          return Cnil;          return Cnil;
1767  }  }
# Line 1769  static void L21() Line 1773  static void L21()
1773          vs_check;          vs_check;
1774          check_arg(2);          check_arg(2);
1775          vs_top=sup;          vs_top=sup;
1776          {object V197=base[0]->c.c_cdr;          {object V201=base[0]->c.c_cdr;
1777          base[2]= V197;}          base[2]= V201;}
1778          base[3]= list(2,VV[69],list(2,VV[70],base[2]));          base[3]= list(2,VV[69],list(2,VV[70],base[2]));
1779          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1780          return;          return;
1781  }  }
1782  /*      local entry for function UNDEFMETHOD-1  */  /*      local entry for function UNDEFMETHOD-1  */
1783    
1784  static object LI22(V199)  static object LI22(V203)
1785    
1786  object V199;  object V203;
1787  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1788          goto TTL;          goto TTL;
1789  TTL:;  TTL:;
1790          {object V200;          {object V204;
1791          object V201;          object V205;
1792          base[0]= (V199);          base[0]= (V203);
1793          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1794          (void) (*Lnk104)();          (void) (*Lnk104)();
1795          if(vs_base>=vs_top){vs_top=sup;goto T747;}          if(vs_base>=vs_top){vs_top=sup;goto T747;}
1796          V200= vs_base[0];          V204= vs_base[0];
1797          vs_base++;          vs_base++;
1798          if(vs_base>=vs_top){vs_top=sup;goto T748;}          if(vs_base>=vs_top){vs_top=sup;goto T748;}
1799          V201= vs_base[0];          V205= vs_base[0];
1800          vs_top=sup;          vs_top=sup;
1801          goto T749;          goto T749;
1802          goto T747;          goto T747;
1803  T747:;  T747:;
1804          V200= Cnil;          V204= Cnil;
1805          goto T748;          goto T748;
1806  T748:;  T748:;
1807          V201= Cnil;          V205= Cnil;
1808          goto T749;          goto T749;
1809  T749:;  T749:;
1810          if(((V200))==Cnil){          if(((V204))==Cnil){
1811          goto T751;}          goto T751;}
1812          if(((V201))==Cnil){          if(((V205))==Cnil){
1813          goto T751;}          goto T751;}
1814          base[0]= (V200);          base[0]= (V204);
1815          base[1]= (V201);          base[1]= (V205);
1816          (void)simple_symlispcall(VV[107],base+0,2);          (void)simple_symlispcall(VV[107],base+0,2);
1817          {object V202 = (V201);          {object V206 = (V205);
1818          VMR18(V202)}          VMR18(V206)}
1819          goto T751;          goto T751;
1820  T751:;  T751:;
1821          {object V203 = Cnil;          {object V207 = Cnil;
1822          VMR18(V203)}}          VMR18(V207)}}
1823          base[0]=base[0];          base[0]=base[0];
1824          return Cnil;          return Cnil;
1825  }  }
# Line 1826  register object *base0; Line 1830  register object *base0;
1830  {       register object *base=vs_base;  {       register object *base=vs_base;
1831          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1832          vs_check;          vs_check;
1833          {register object V204;          {register object V208;
1834          check_arg(1);          check_arg(1);
1835          V204=(base[0]);          V208=(base[0]);
1836          vs_top=sup;          vs_top=sup;
1837          goto TTL;          goto TTL;
1838  TTL:;  TTL:;
1839          {object V205;          {object V209;
1840          base[1]= (V204);          base[1]= (V208);
1841          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1842          (void) (*Lnk109)(Lclptr109);          (void) (*Lnk109)(Lclptr109);
1843          vs_top=sup;          vs_top=sup;
1844          V205= vs_base[0];          V209= vs_base[0];
1845          if(((V205))==Cnil){          if(((V209))==Cnil){
1846          goto T761;}          goto T761;}
1847          base[1]= (V205);          base[1]= (V209);
1848          base[2]= (V204);          base[2]= (V208);
1849          (void)simple_symlispcall(VV[107],base+1,2);          (void)simple_symlispcall(VV[107],base+1,2);
1850          base[1]=(VV[108]->s.s_gfdef);          base[1]=(VV[108]->s.s_gfdef);
1851          base[2]= (V205);          base[2]= (V209);
1852          if(!((VV[66])->s.s_gfdef!=OBJNULL)){          if(!((VV[66])->s.s_gfdef!=OBJNULL)){
1853          goto T770;}          goto T770;}
1854          base[4]= (V204);          base[4]= (V208);
1855          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1856          (void) (*Lnk66)();          (void) (*Lnk66)();
1857          vs_top=sup;          vs_top=sup;
# Line 1859  T770:; Line 1863  T770:;
1863          goto T768;          goto T768;
1864  T768:;  T768:;
1865          (void)simple_lispcall(base+1,2);          (void)simple_lispcall(base+1,2);
1866          base[1]= (V204);          base[1]= (V208);
1867          base[2]= (VV[64]->s.s_dbind);          base[2]= (VV[64]->s.s_dbind);
1868          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1869          (void) (*Lnk112)();          (void) (*Lnk112)();
# Line 1882  register object *base0; Line 1886  register object *base0;
1886  {       register object *base=vs_base;  {       register object *base=vs_base;
1887          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1888          vs_check;          vs_check;
1889          {object V206;          {object V210;
1890          check_arg(1);          check_arg(1);
1891          V206=(base[0]);          V210=(base[0]);
1892          vs_top=sup;          vs_top=sup;
1893          goto TTL;          goto TTL;
1894  TTL:;{object V207;  TTL:;{object V211;
1895          base[1]= (V206);          base[1]= (V210);
1896          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1897          (void) (*Lnk91)(Lclptr91);          (void) (*Lnk91)(Lclptr91);
1898          vs_top=sup;          vs_top=sup;
1899          V207= vs_base[0];          V211= vs_base[0];
1900          if(V207==Cnil)goto T776;          if(V211==Cnil)goto T776;
1901          base[1]= V207;          base[1]= V211;
1902          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1903          return;          return;
1904          goto T776;          goto T776;
1905  T776:;}  T776:;}
1906          base[1]= (V206);          base[1]= (V210);
1907          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1908          return;          return;
1909          }          }
# Line 1911  register object *base0; Line 1915  register object *base0;
1915  {       register object *base=vs_base;  {       register object *base=vs_base;
1916          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1917          vs_check;          vs_check;
1918          {object V208;          {object V212;
1919          object V209;          object V213;
1920          object V210;          object V214;
1921          object V211;          object V215;
1922          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1923          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1924          V208=(base[0]);          V212=(base[0]);
1925          V209=(base[1]);          V213=(base[1]);
1926          vs_base=vs_base+2;          vs_base=vs_base+2;
1927          if(vs_base>=vs_top){vs_top=sup;goto T779;}          if(vs_base>=vs_top){vs_top=sup;goto T779;}
1928          V210=(base[2]);          V214=(base[2]);
1929          V211= Ct;          V215= Ct;
1930          vs_top=sup;          vs_top=sup;
1931          goto T780;          goto T780;
1932          goto T779;          goto T779;
1933  T779:;  T779:;
1934          V210= Cnil;          V214= Cnil;
1935          V211= Cnil;          V215= Cnil;
1936          goto T780;          goto T780;
1937  T780:;  T780:;
1938          if(((V211))==Cnil){          if(((V215))==Cnil){
1939          goto T783;}          goto T783;}
1940          base[4]= base0[3];          base[4]= base0[3];
1941          base[5]= VV[9];          base[5]= VV[9];
1942          base[6]= (V208);          base[6]= (V212);
1943          base[7]= (V210);          base[7]= (V214);
1944          base[8]= number_plus(base0[6],small_fixnum(7));          base[8]= number_plus(base0[6],small_fixnum(7));
1945          base[9]= (V209);          base[9]= (V213);
1946          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
1947          Lformat();          Lformat();
1948          return;          return;
# Line 1946  T780:; Line 1950  T780:;
1950  T783:;  T783:;
1951          base[4]= base0[3];          base[4]= base0[3];
1952          base[5]= VV[10];          base[5]= VV[10];
1953          base[6]= (V208);          base[6]= (V212);
1954          base[7]= base0[6];          base[7]= base0[6];
1955          base[8]= (V209);          base[8]= (V213);
1956          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1957          Lformat();          Lformat();
1958          return;          return;
# Line 1961  register object *base0; Line 1965  register object *base0;
1965  {       register object *base=vs_base;  {       register object *base=vs_base;
1966          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1967          vs_check;          vs_check;
1968          {object V212;          {object V216;
1969          check_arg(1);          check_arg(1);
1970          V212=(base[0]);          V216=(base[0]);
1971          vs_top=sup;          vs_top=sup;
1972          goto TTL;          goto TTL;
1973  TTL:;  TTL:;
1974          {object V213= symbol_name((V212));          {object V217= symbol_name((V216));
1975          V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp);          V218 = CMPmake_fixnum((long)(/* INLINE-ARGS */V217)->v.v_fillp);
1976          base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);}          base0[6]= (number_compare(base0[6],V218)>=0?(base0[6]):V218);}
1977          base[1]= base0[6];          base[1]= base0[6];
1978          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1979          return;          return;

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