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

Diff of /gcl/pcl/pcl_gcl_low.c

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 93  static void L4() Line 93  static void L4()
93          base[6]= base[5];          base[6]= base[5];
94          base[7]= base[1];          base[7]= base[1];
95          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
96          (void) (*Lnk59)();          (void) (*Lnk61)();
97          if(vs_base>=vs_top){vs_top=sup;goto T5;}          if(vs_base>=vs_top){vs_top=sup;goto T5;}
98          V6= vs_base[0];          V6= vs_base[0];
99          vs_base++;          vs_base++;
# Line 150  TTL:; Line 150  TTL:;
150          base[1]= VV[18];          base[1]= VV[18];
151          base[3]= (V22);          base[3]= (V22);
152          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
153          (void) (*Lnk60)();          (void) (*Lnk62)();
154          vs_top=sup;          vs_top=sup;
155          base[2]= vs_base[0];          base[2]= vs_base[0];
156          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 317  T34:; Line 317  T34:;
317          V41= vs_base[0];          V41= vs_base[0];
318          base[0]= (V38);          base[0]= (V38);
319          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
320          (void) (*Lnk61)();          (void) (*Lnk63)();
321          vs_top=sup;          vs_top=sup;
322          V42= vs_base[0];          V42= vs_base[0];
323          V37= list(4,/* INLINE-ARGS */V39,/* INLINE-ARGS */V40,V41,V42);          V37= list(4,/* INLINE-ARGS */V39,/* INLINE-ARGS */V40,V41,V42);
# Line 387  T49:; Line 387  T49:;
387          goto T48;          goto T48;
388  T48:;  T48:;
389          V55= list(3,VV[28],VV[29],list(2,VV[30],list(2,VV[31],make_cons((V50),CMPcdr((V49))))));          V55= list(3,VV[28],VV[29],list(2,VV[30],list(2,VV[31],make_cons((V50),CMPcdr((V49))))));
390          base[4]= VV[62];          base[4]= VV[64];
391          base[5]= CMPcadr((V49));          base[5]= CMPcadr((V49));
392          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
393          (void) (*Lnk63)();          (void) (*Lnk65)();
394          vs_top=sup;          vs_top=sup;
395          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
396          goto T52;}          goto T52;}
# Line 587  TTL:; Line 587  TTL:;
587          goto T67;}          goto T67;}
588          base[0]= (V109);          base[0]= (V109);
589          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
590          (void) (*Lnk64)();          (void) (*Lnk66)();
591          vs_top=sup;          vs_top=sup;
592          if(!(type_of((V110))==t_symbol)){          if(!(type_of((V110))==t_symbol)){
593          goto T72;}          goto T72;}
594          (void)((*(LnkLI65))((V110),Cnil));          (void)((*(LnkLI67))((V110),Cnil));
595          goto T72;          goto T72;
596  T72:;  T72:;
597          (void)((*(LnkLI66))((V109),(V110)));          (void)((*(LnkLI68))((V109),(V110)));
598          goto T65;          goto T65;
599          goto T67;          goto T67;
600  T67:;  T67:;
# Line 689  TTL:; Line 689  TTL:;
689          VMR23(V122)}          VMR23(V122)}
690          goto T89;          goto T89;
691  T89:;  T89:;
692          {object V123 = (*(LnkLI67))((V121));          {object V123 = (*(LnkLI69))((V121));
693          VMR23(V123)}          VMR23(V123)}
694          return Cnil;          return Cnil;
695  }  }
# Line 831  TTL:; Line 831  TTL:;
831  T112:;}  T112:;}
832          {object V156;          {object V156;
833          object V157;          object V157;
834          V156= (*(LnkLI68))((base[0]->c.c_car));          V156= (*(LnkLI70))((base[0]->c.c_car));
835          V157= (*(LnkLI69))((base[0]->c.c_car));          V157= (*(LnkLI71))((base[0]->c.c_car));
836          if(((V157))==Cnil){          if(((V157))==Cnil){
837          goto T122;}          goto T122;}
838          V158= (*(LnkLI68))((V157));          V158= (*(LnkLI70))((V157));
839          V159 = CMPmake_fixnum((long)length(/* INLINE-ARGS */V158));          V159 = CMPmake_fixnum((long)length(/* INLINE-ARGS */V158));
840          V155= nthcdr(fix(V159),(V156));          V155= nthcdr(fix(V159),(V156));
841          goto T118;          goto T118;
# Line 860  T117:; Line 860  T117:;
860          goto T126;}          goto T126;}
861          base[3]= (V161);          base[3]= (V161);
862          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
863          (void) (*Lnk61)();          (void) (*Lnk63)();
864          vs_top=sup;          vs_top=sup;
865          base[2]= vs_base[0];          base[2]= vs_base[0];
866          base[2]=MMcons(base[2],base[0]);          base[2]=MMcons(base[2],base[0]);
# Line 872  T117:; Line 872  T117:;
872          make_cclosure_new(LC39,Cnil,base[2],Cdata);          make_cclosure_new(LC39,Cnil,base[2],Cdata);
873          base[3]= (V162);          base[3]= (V162);
874          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
875          (void) (*Lnk64)();          (void) (*Lnk66)();
876          vs_top=sup;          vs_top=sup;
877          base[3]= (V163);          base[3]= (V163);
878          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
879          (void) (*Lnk64)();          (void) (*Lnk66)();
880          vs_top=sup;          vs_top=sup;
881          {register object V164;          {register object V164;
882          object V165;          object V165;
# Line 896  T117:; Line 896  T117:;
896          vs_top=sup;          vs_top=sup;
897          bds_unwind1;          bds_unwind1;
898          V164= vs_base[0];          V164= vs_base[0];
899          V165= (*(LnkLI70))((V164));          V165= (*(LnkLI72))((V164));
900          V166= CMPcar((V161));          V166= CMPcar((V161));
901          V167= CMPcadddr((V161));          V167= CMPcadddr((V161));
902          base[7]= (V164);          base[7]= (V164);
# Line 909  T117:; Line 909  T117:;
909          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
910          siLfset();          siLfset();
911          vs_top=sup;          vs_top=sup;
912          (void)((*(LnkLI71))((V164)));          (void)((*(LnkLI73))((V164)));
913          if(((V167))==Cnil){          if(((V167))==Cnil){
914          goto T155;}          goto T155;}
915          V168= Cnil;          V168= Cnil;
# Line 960  TTL:; Line 960  TTL:;
960          VMR29(V176)}          VMR29(V176)}
961          return Cnil;          return Cnil;
962  }  }
963  /*      function definition for STRUCTURE-SLOTD-READER-FUNCTION */  /*      local entry for function STRUCTURE-SLOTD-READER-FUNCTION        */
964    
965  static void L34()  static object LI34(V178)
966  {register object *base=vs_base;  
967          register object *sup=base+VM30; VC30  object V178;
968          vs_check;  {        VMB30 VMS30 VMV30
         {object V177;  
         check_arg(1);  
         V177=(base[0]);  
         vs_top=sup;  
969          goto TTL;          goto TTL;
970  TTL:;  TTL:;
971          base[1]= CMPcaddr((V177));          {object V179 = CMPcaddr((V178));
972          vs_top=(vs_base=base+1)+1;          VMR30(V179)}
973          return;          return Cnil;
         }  
974  }  }
975  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */  /*      local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION        */
976    
977  static object LI35(V179)  static object LI35(V181)
978    
979  object V179;  object V181;
980  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
981          goto TTL;          goto TTL;
982  TTL:;  TTL:;
983          {object V180 = CMPcadddr((V179));          {object V182 = CMPcadddr((V181));
984          VMR31(V180)}          VMR31(V182)}
985          return Cnil;          return Cnil;
986  }  }
987  /*      local entry for function RENEW-SYS-FILES        */  /*      local entry for function RENEW-SYS-FILES        */
# Line 998  static object LI36() Line 993  static object LI36()
993  TTL:;  TTL:;
994          base[0]= VV[43];          base[0]= VV[43];
995          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
996          (void) (*Lnk72)();          (void) (*Lnk74)();
997          vs_top=sup;          vs_top=sup;
998          base[1]= VV[44];          base[1]= VV[44];
999          base[2]= VV[45];          base[2]= VV[45];
# Line 1006  TTL:; Line 1001  TTL:;
1001          base[4]= VV[47];          base[4]= VV[47];
1002          base[5]= VV[48];          base[5]= VV[48];
1003          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1004          (void) (*Lnk73)();          (void) (*Lnk75)();
1005          vs_top=sup;          vs_top=sup;
1006          base[0]= vs_base[0];          base[0]= vs_base[0];
1007          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 1037  T169:; Line 1032  T169:;
1032          vs_top=sup;}}          vs_top=sup;}}
1033          base[0]= VV[50];          base[0]= VV[50];
1034          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1035          (void) (*Lnk74)();          (void) (*Lnk76)();
1036          vs_top=sup;          vs_top=sup;
1037          base[1]= VV[51];          base[1]= VV[51];
1038          base[2]= VV[45];          base[2]= VV[45];
# Line 1045  T169:; Line 1040  T169:;
1040          base[4]= VV[47];          base[4]= VV[47];
1041          base[5]= VV[48];          base[5]= VV[48];
1042          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1043          (void) (*Lnk73)();          (void) (*Lnk75)();
1044          vs_top=sup;          vs_top=sup;
1045          base[0]= vs_base[0];          base[0]= vs_base[0];
1046          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 1057  T169:; Line 1052  T169:;
1052          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1053          Lformat();          Lformat();
1054          vs_top=sup;          vs_top=sup;
         {object V182;  
         register object V183;  
         V182= Cnil;  
         V183= Cnil;  
1055          {object V184;          {object V184;
1056          register object V185;          register object V185;
1057          register object V186;          V184= Cnil;
1058          {object V187;          V185= Cnil;
1059            {object V186;
1060            register object V187;
1061            register object V188;
1062            {object V189;
1063          base[2]= VV[55];          base[2]= VV[55];
1064          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1065          Lfind_package();          Lfind_package();
1066          vs_top=sup;          vs_top=sup;
1067          V187= vs_base[0];          V189= vs_base[0];
1068          base[2]= (V187);          base[2]= (V189);
1069          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1070          Lpackagep();          Lpackagep();
1071          vs_top=sup;          vs_top=sup;
1072          if((vs_base[0])==Cnil){          if((vs_base[0])!=Cnil){
1073          goto T192;}          goto T191;}
1074          V184= (V187);          base[2]= coerce_to_string((V189));
         goto T188;  
         goto T192;  
 T192:;  
         base[2]= coerce_to_string((V187));  
1075          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1076          Lfind_package();          Lfind_package();
1077          vs_top=sup;          vs_top=sup;
1078          V184= vs_base[0];}          V189= vs_base[0];
1079          goto T188;          if(((V189))!=Cnil){
1080  T188:;          goto T191;}
1081          V185= Cnil;          base[2]= VV[56];
1082          V186= Cnil;          base[3]= VV[57];
1083          {object V188;          base[5]= VV[55];
1084          register object V189;          vs_top=(vs_base=base+5)+1;
1085          base[4]= (V184);          Lfind_package();
1086            vs_top=sup;
1087            base[4]= vs_base[0];
1088            vs_top=(vs_base=base+2)+3;
1089            (void) (*Lnk77)();
1090            vs_top=sup;
1091            goto T191;
1092    T191:;
1093            V186= (V189);}
1094            V187= Cnil;
1095            V188= Cnil;
1096            {object V190;
1097            register object V191;
1098            base[4]= (V186);
1099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1100          Lpackage_use_list();          Lpackage_use_list();
1101          vs_top=sup;          vs_top=sup;
1102          V190= vs_base[0];          V192= vs_base[0];
1103          V188= make_cons((V184),V190);          V190= make_cons((V186),V192);
1104          V189= CMPcar((V188));          V191= CMPcar((V190));
1105          goto T201;          goto T208;
1106  T201:;  T208:;
1107          if(!(((V188))==Cnil)){          if(!(((V190))==Cnil)){
1108          goto T202;}          goto T209;}
1109          V185= Cnil;          V187= Cnil;
1110          goto T187;          goto T187;
1111          goto T202;          goto T209;
1112  T202:;  T209:;
1113          {long V191;          {long V193;
1114          long V192;          register long V194;
1115          base[4]= (V189);          base[4]= (V191);
1116          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1117          (void) (*Lnk75)();          (void) (*Lnk78)();
1118          if(vs_base>=vs_top){vs_top=sup;goto T211;}          if(vs_base>=vs_top){vs_top=sup;goto T218;}
1119          V191= fix(vs_base[0]);          V193= fix(vs_base[0]);
1120          vs_base++;          vs_base++;
1121          if(vs_base>=vs_top){vs_top=sup;goto T212;}          if(vs_base>=vs_top){vs_top=sup;goto T219;}
1122          V192= fix(vs_base[0]);          V194= fix(vs_base[0]);
1123          vs_top=sup;          vs_top=sup;
1124          goto T213;          goto T220;
1125          goto T211;          goto T218;
1126  T211:;  T218:;
1127          V191= fix(Cnil);          V193= fix(Cnil);
1128          goto T212;          goto T219;
1129  T212:;  T219:;
1130          V192= fix(Cnil);          V194= fix(Cnil);
1131          goto T213;          goto T220;
1132  T213:;  T220:;
1133          if(((V184))==((V189))){          if(((V186))==((V191))){
1134          goto T214;}          goto T221;}
1135          V192= 0;          V194= 0;
         goto T214;  
 T214:;  
         {object V193;  
         register object V194;  
         V195 = CMPmake_fixnum(V192);  
         V196 = CMPmake_fixnum(V191);  
         V193= number_plus(V195,V196);  
         V194= small_fixnum(0);  
1136          goto T221;          goto T221;
1137  T221:;  T221:;
1138          if(!(number_compare((V194),(V193))>=0)){          {long V195;
1139          goto T222;}          register long V196;
1140          goto T208;          V195= (long)(V194)+(V193);
1141          goto T222;          V196= 0;
1142  T222:;          goto T228;
1143          V197 = CMPmake_fixnum(V192);  T228:;
1144          if(!(number_compare((V194),V197)<0)){          if(!((V196)>=(V195))){
1145          goto T231;}          goto T231;}
1146          base[5]= (V189);          goto T215;
         base[6]= (V194);  
         vs_top=(vs_base=base+5)+2;  
         siLpackage_internal();  
         vs_top=sup;  
         V186= vs_base[0];  
         goto T229;  
1147          goto T231;          goto T231;
1148  T231:;  T231:;
1149          base[5]= (V189);          if(!((V196)<(V194))){
1150          V198 = CMPmake_fixnum(V192);          goto T236;}
1151          base[6]= number_minus((V194),V198);          base[4]= (V191);
1152          vs_top=(vs_base=base+5)+2;          base[5]= CMPmake_fixnum(V196);
1153            vs_top=(vs_base=base+4)+2;
1154            siLpackage_internal();
1155            vs_top=sup;
1156            V188= vs_base[0];
1157            goto T234;
1158            goto T236;
1159    T236:;
1160            base[4]= (V191);
1161            V197 = CMPmake_fixnum(V196);
1162            V198 = CMPmake_fixnum(V194);
1163            base[5]= number_minus(V197,V198);
1164            vs_top=(vs_base=base+4)+2;
1165          siLpackage_external();          siLpackage_external();
1166          vs_top=sup;          vs_top=sup;
1167          V186= vs_base[0];          V188= vs_base[0];
1168            goto T234;
1169    T234:;
1170          goto T229;          goto T229;
1171  T229:;  T229:;
1172          goto T227;          if(((V188))!=Cnil){
1173  T227:;          goto T242;}
1174          if(((V186))!=Cnil){          goto T230;
1175          goto T237;}          goto T242;
1176          goto T228;  T242:;
1177          goto T237;          V187= CMPcar((V188));
1178  T237:;          if(((V191))==((V186))){
1179          V185= CMPcar((V186));          goto T248;}
1180          if(((V189))==((V184))){          base[5]= symbol_name((V187));
1181          goto T243;}          base[6]= (V186);
1182          base[6]= symbol_name((V185));          vs_top=(vs_base=base+5)+2;
         base[7]= (V184);  
         vs_top=(vs_base=base+6)+2;  
1183          Lfind_symbol();          Lfind_symbol();
1184          Llist();          Llist();
1185          vs_top=sup;          vs_top=sup;
1186          base[5]= vs_base[0];          base[4]= vs_base[0];
1187          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+4)+1;
1188          Llast();          Llast();
1189          vs_top=sup;          vs_top=sup;
1190          V199= vs_base[0];          V199= vs_base[0];
1191          if(!((VV[56])==(CMPcar(V199)))){          if(!((VV[58])==(CMPcar(V199)))){
1192          goto T242;}          goto T247;}
1193          goto T243;          goto T248;
1194  T243:;  T248:;
1195          {object V200 =((V185))->s.s_plist;          {object V200 =((V187))->s.s_plist;
1196           object ind= VV[22];           object ind= VV[22];
1197          while(V200!=Cnil){          while(V200!=Cnil){
1198          if(V200->c.c_car==ind){          if(V200->c.c_car==ind){
1199          if(((V200->c.c_cdr->c.c_car))==Cnil){          if(((V200->c.c_cdr->c.c_car))==Cnil){
1200          goto T252;}          goto T257;}
1201          goto T254;          goto T259;
1202          }else V200=V200->c.c_cdr->c.c_cdr;}          }else V200=V200->c.c_cdr->c.c_cdr;}
1203          goto T252;}          goto T257;}
1204          goto T254;          goto T259;
1205  T254:;  T259:;
1206          if(((V183))==Cnil){          if(((V185))==Cnil){
1207          goto T256;}          goto T261;}
1208          {object V201;          {object V201;
1209          register object V202;          object V202;
1210          V201= (V183);          V201= (V185);
1211          V183= make_cons((V185),Cnil);          V185= make_cons((V187),Cnil);
1212          V202= (V183);          V202= (V185);
1213          ((V201))->c.c_cdr = (V202);          ((V201))->c.c_cdr = (V202);
1214          goto T252;}          goto T257;}
1215          goto T256;          goto T261;
1216  T256:;  T261:;
1217          V183= make_cons((V185),Cnil);          V185= make_cons((V187),Cnil);
1218          V182= (V183);          V184= (V185);
1219          goto T252;          goto T257;
1220  T252:;  T257:;
1221          goto T242;          goto T247;
1222  T242:;  T247:;
         V186= CMPcdr((V186));  
         goto T227;  
         goto T228;  
 T228:;  
         goto T225;  
         goto T225;  
 T225:;  
         V194= one_plus((V194));  
         goto T221;}}  
         goto T208;  
 T208:;  
1223          V188= CMPcdr((V188));          V188= CMPcdr((V188));
1224          V189= CMPcar((V188));          goto T229;
1225          goto T201;}}          goto T230;
1226    T230:;
1227            V196= (long)(V196)+1;
1228            goto T228;}}
1229            goto T215;
1230    T215:;
1231            V190= CMPcdr((V190));
1232            V191= CMPcar((V190));
1233            goto T208;}}
1234          goto T187;          goto T187;
1235  T187:;  T187:;
1236          V181= (V182);          V183= (V184);
1237          goto T186;          goto T186;
1238          V181= Cnil;          V183= Cnil;
1239          goto T186;          goto T186;
1240          V181= Cnil;}          V183= Cnil;}
1241          goto T186;          goto T186;
1242  T186:;  T186:;
1243          V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V181)),VV[57]);          V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V183)),VV[59]);
1244          (void)(print(/* INLINE-ARGS */V203,base[0]));          (void)(print(/* INLINE-ARGS */V203,base[0]));
1245          base[2]= base[0];          base[2]= base[0];
1246          base[3]= VV[58];          base[3]= VV[60];
1247          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1248          Lformat();          Lformat();
1249          active=FALSE;}          active=FALSE;}
# Line 1254  T186:; Line 1253  T186:;
1253          vs_top=sup;          vs_top=sup;
1254          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1255          if((base[0])==Cnil){          if((base[0])==Cnil){
1256          goto T278;}          goto T283;}
1257          base[2]= base[0];          base[2]= base[0];
1258          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1259          Lclose();          Lclose();
1260          vs_top=sup;          vs_top=sup;
1261          goto T278;          goto T283;
1262  T278:;  T283:;
1263          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
1264          for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1265          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
# Line 1306  register object *base0; Line 1305  register object *base0;
1305          base[1]= (V207);          base[1]= (V207);
1306          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
1307          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1308          (void) (*Lnk76)();          (void) (*Lnk79)();
1309          return;          return;
1310          }          }
1311  }  }
# Line 1326  register object *base0; Line 1325  register object *base0;
1325          return;          return;
1326          }          }
1327  }  }
1328  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* STRUCTURE-REF1 */  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* STRUCTURE-REF1 */
1329  static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* PACKAGE-SIZE */  static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* PACKAGE-SIZE */
1330  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* MAKE-ALL-PROCLAIMS */  static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* SPECIFIC-ERROR */
1331  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* OPEN */  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ALL-PROCLAIMS */
1332  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* GET-PACKAGES */  static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* OPEN */
1333  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* GET-PACKAGES */
1334  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */
1335  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
1336  static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INTERNAL-SLOTDS */  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */
1337  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INTERNAL-SLOTDS */
1338  static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* %SET-COMPILED-FUNCTION-NAME */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */
1339  static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFMETHOD */  static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* %SET-COMPILED-FUNCTION-NAME */
1340  static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* TURBO-CLOSURE */  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFMETHOD */
1341  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* EVERY */  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* TURBO-CLOSURE */
1342  static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* FIFTH */  static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* EVERY */
1343  static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* ADDRESS */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIFTH */
1344  static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* EXTRACT-DECLARATIONS */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ADDRESS */
1345    static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* EXTRACT-DECLARATIONS */
1346    
1347  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1348  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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