/[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.1.4.1.4.1 by camm, Tue Sep 2 20:18:19 2003 UTC revision 1.1.4.1.4.2 by camm, Tue Sep 23 18:39:21 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "pcl_env.h"  #include "pcl_env.h"
4  void init_pcl_env(){do_init(VV);}  void init_pcl_env(){do_init(VV);}
5  /*      function definition for (DEFGENERIC DESCRIBE-OBJECT)9121        */  /*      function definition for (DEFGENERIC DESCRIBE-OBJECT)9135        */
6    
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
# Line 953  T393:; Line 953  T393:;
953  T391:;  T391:;
954          V90= Cnil;          V90= Cnil;
955          V91= Cnil;          V91= Cnil;
956          {object V93;          {long V93;
957          object V94;          long V94;
958          base[1]= (V89);          base[0]= (V89);
959          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
960          (void) (*Lnk95)();          (void) (*Lnk95)();
961          vs_top=sup;          vs_top=sup;
962          V93= vs_base[0];          V93= fix(vs_base[0]);
963          V94= small_fixnum(0);          V94= 0;
964          goto T401;          goto T401;
965  T401:;  T401:;
966          if(!(number_compare((V94),(V93))>=0)){          if(!((V94)>=(V93))){
967          goto T402;}          goto T404;}
968          V90= Cnil;          V90= Cnil;
969          goto T390;          goto T390;
970          goto T402;          goto T404;
971  T402:;  T404:;
972          base[1]= (V89);          base[0]= (V89);
973          base[2]= (V94);          base[1]= CMPmake_fixnum(V94);
974          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
975          siLpackage_external();          siLpackage_external();
976          vs_top=sup;          vs_top=sup;
977          V91= vs_base[0];          V91= vs_base[0];
978          goto T409;          goto T402;
979  T409:;  T402:;
980          if(((V91))!=Cnil){          if(((V91))!=Cnil){
981          goto T414;}          goto T412;}
982          goto T410;          goto T403;
983          goto T414;          goto T412;
984  T414:;  T412:;
985          V90= CMPcar((V91));          V90= CMPcar((V91));
986          V88= number_plus((V88),small_fixnum(1));          V88= number_plus((V88),small_fixnum(1));
987          V91= CMPcdr((V91));          V91= CMPcdr((V91));
988          goto T409;          goto T402;
989          goto T410;          goto T403;
990  T410:;  T403:;
991          goto T407;          V94= (long)(V94)+1;
         goto T407;  
 T407:;  
         V94= one_plus((V94));  
992          goto T401;}}          goto T401;}}
993          goto T390;          goto T390;
994  T390:;  T390:;
# Line 1003  T390:; Line 1000  T390:;
1000          Lpackagep();          Lpackagep();
1001          vs_top=sup;          vs_top=sup;
1002          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1003          goto T429;}          goto T427;}
1004          V95= V83;          V95= V83;
1005            goto T425;
1006          goto T427;          goto T427;
1007          goto T429;  T427:;
 T429:;  
1008          base[0]= coerce_to_string(V83);          base[0]= coerce_to_string(V83);
1009          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1010          Lfind_package();          Lfind_package();
1011          vs_top=sup;          vs_top=sup;
1012          V95= vs_base[0];          V95= vs_base[0];
1013          goto T427;          goto T425;
1014  T427:;  T425:;
1015          V96= Cnil;          V96= Cnil;
1016          V97= Cnil;          V97= Cnil;
1017          {object V99;          {object V99;
# Line 1026  T427:; Line 1023  T427:;
1023          V101= vs_base[0];          V101= vs_base[0];
1024          V99= make_cons((V95),V101);          V99= make_cons((V95),V101);
1025          V100= CMPcar((V99));          V100= CMPcar((V99));
1026          goto T438;          goto T436;
1027  T438:;  T436:;
1028          if(!(((V99))==Cnil)){          if(!(((V99))==Cnil)){
1029          goto T439;}          goto T437;}
1030          V96= Cnil;          V96= Cnil;
1031          goto T426;          goto T424;
1032          goto T439;          goto T437;
1033  T439:;  T437:;
1034          {long V102;          {long V102;
1035          register long V103;          register long V103;
1036          base[2]= (V100);          base[2]= (V100);
1037          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1038          (void) (*Lnk95)();          (void) (*Lnk95)();
1039          if(vs_base>=vs_top){vs_top=sup;goto T448;}          if(vs_base>=vs_top){vs_top=sup;goto T446;}
1040          V102= fix(vs_base[0]);          V102= fix(vs_base[0]);
1041          vs_base++;          vs_base++;
1042          if(vs_base>=vs_top){vs_top=sup;goto T449;}          if(vs_base>=vs_top){vs_top=sup;goto T447;}
1043          V103= fix(vs_base[0]);          V103= fix(vs_base[0]);
1044          vs_top=sup;          vs_top=sup;
         goto T450;  
1045          goto T448;          goto T448;
1046  T448:;          goto T446;
1047    T446:;
1048          V102= fix(Cnil);          V102= fix(Cnil);
1049          goto T449;          goto T447;
1050  T449:;  T447:;
1051          V103= fix(Cnil);          V103= fix(Cnil);
1052          goto T450;          goto T448;
1053  T450:;  T448:;
1054          if(((V95))==((V100))){          if(((V95))==((V100))){
1055          goto T451;}          goto T449;}
1056          V103= 0;          V103= 0;
1057          goto T451;          goto T449;
1058  T451:;  T449:;
1059          {object V104;          {long V104;
1060          register object V105;          register long V105;
1061          V106 = CMPmake_fixnum(V103);          V104= (long)(V103)+(V102);
1062          V107 = CMPmake_fixnum(V102);          V105= 0;
1063          V104= number_plus(V106,V107);          goto T456;
1064          V105= small_fixnum(0);  T456:;
1065          goto T458;          if(!((V105)>=(V104))){
 T458:;  
         if(!(number_compare((V105),(V104))>=0)){  
1066          goto T459;}          goto T459;}
1067          goto T445;          goto T443;
1068          goto T459;          goto T459;
1069  T459:;  T459:;
1070          V108 = CMPmake_fixnum(V103);          if(!((V105)<(V103))){
1071          if(!(number_compare((V105),V108)<0)){          goto T464;}
1072          goto T468;}          base[2]= (V100);
1073          base[3]= (V100);          base[3]= CMPmake_fixnum(V105);
1074          base[4]= (V105);          vs_top=(vs_base=base+2)+2;
         vs_top=(vs_base=base+3)+2;  
1075          siLpackage_internal();          siLpackage_internal();
1076          vs_top=sup;          vs_top=sup;
1077          V97= vs_base[0];          V97= vs_base[0];
1078          goto T466;          goto T462;
1079          goto T468;          goto T464;
1080  T468:;  T464:;
1081          base[3]= (V100);          base[2]= (V100);
1082          V109 = CMPmake_fixnum(V103);          V106 = CMPmake_fixnum(V105);
1083          base[4]= number_minus((V105),V109);          V107 = CMPmake_fixnum(V103);
1084          vs_top=(vs_base=base+3)+2;          base[3]= number_minus(V106,V107);
1085            vs_top=(vs_base=base+2)+2;
1086          siLpackage_external();          siLpackage_external();
1087          vs_top=sup;          vs_top=sup;
1088          V97= vs_base[0];          V97= vs_base[0];
1089          goto T466;          goto T462;
1090  T466:;  T462:;
1091          goto T464;          goto T457;
1092  T464:;  T457:;
1093          if(((V97))!=Cnil){          if(((V97))!=Cnil){
1094          goto T474;}          goto T470;}
1095          goto T465;          goto T458;
1096          goto T474;          goto T470;
1097  T474:;  T470:;
1098          V96= CMPcar((V97));          V96= CMPcar((V97));
1099          if(((V100))==((V95))){          if(((V100))==((V95))){
1100          goto T480;}          goto T476;}
1101          base[4]= symbol_name((V96));          base[3]= symbol_name((V96));
1102          base[5]= (V95);          base[4]= (V95);
1103          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+3)+2;
1104          Lfind_symbol();          Lfind_symbol();
1105          Llist();          Llist();
1106          vs_top=sup;          vs_top=sup;
1107          base[3]= vs_base[0];          base[2]= vs_base[0];
1108          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
1109          Llast();          Llast();
1110          vs_top=sup;          vs_top=sup;
1111          V110= vs_base[0];          V108= vs_base[0];
1112          if(!((VV[33])==(CMPcar(V110)))){          if(!((VV[33])==(CMPcar(V108)))){
1113          goto T479;}          goto T475;}
1114          goto T480;          goto T476;
1115  T480:;  T476:;
1116          V87= number_plus((V87),small_fixnum(1));          V87= number_plus((V87),small_fixnum(1));
1117          goto T479;          goto T475;
1118  T479:;  T475:;
1119          V97= CMPcdr((V97));          V97= CMPcdr((V97));
1120          goto T464;          goto T457;
1121          goto T465;          goto T458;
1122  T465:;  T458:;
1123          goto T462;          V105= (long)(V105)+1;
1124          goto T462;          goto T456;}}
1125  T462:;          goto T443;
1126          V105= one_plus((V105));  T443:;
         goto T458;}}  
         goto T445;  
 T445:;  
1127          V99= CMPcdr((V99));          V99= CMPcdr((V99));
1128          V100= CMPcar((V99));          V100= CMPcar((V99));
1129          goto T438;}}          goto T436;}}
1130          goto T426;          goto T424;
1131  T426:;  T424:;
1132          V87= number_minus((V87),(V88));          V87= number_minus((V87),(V88));
1133          base[0]= (V84);          base[0]= (V84);
1134          base[1]= VV[34];          base[1]= VV[34];
# Line 1146  T426:; Line 1138  T426:;
1138          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1139          Lformat();          Lformat();
1140          vs_top=sup;}          vs_top=sup;}
1141          {object V111;          {object V109;
1142          base[0]= (V83);          base[0]= (V83);
1143          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1144          Lpackage_use_list();          Lpackage_use_list();
1145          vs_top=sup;          vs_top=sup;
1146          V111= vs_base[0];          V109= vs_base[0];
1147          if(((V111))==Cnil){          if(((V109))==Cnil){
1148          goto T508;}          goto T504;}
1149          base[0]= (V84);          base[0]= (V84);
1150          base[1]= VV[35];          base[1]= VV[35];
1151          {object V112;          {object V110;
1152          object V113= (V111);          object V111= (V109);
1153          if(V113==Cnil){          if(V111==Cnil){
1154          base[2]= Cnil;          base[2]= Cnil;
1155          goto T515;}          goto T511;}
1156          base[3]=V112=MMcons(Cnil,Cnil);          base[3]=V110=MMcons(Cnil,Cnil);
1157          goto T516;          goto T512;
1158  T516:;  T512:;
1159          base[4]= (V113->c.c_car);          base[4]= (V111->c.c_car);
1160          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1161          Lpackage_name();          Lpackage_name();
1162          vs_top=sup;          vs_top=sup;
1163          (V112->c.c_car)= vs_base[0];          (V110->c.c_car)= vs_base[0];
1164          if((V113=MMcdr(V113))==Cnil){          if((V111=MMcdr(V111))==Cnil){
1165          base[2]= base[3];          base[2]= base[3];
1166          goto T515;}          goto T511;}
1167          V112=MMcdr(V112)=MMcons(Cnil,Cnil);          V110=MMcdr(V110)=MMcons(Cnil,Cnil);
1168          goto T516;}          goto T512;}
1169          goto T515;          goto T511;
1170  T515:;  T511:;
1171          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1172          Lformat();          Lformat();
1173          vs_top=sup;}          vs_top=sup;}
1174          goto T508;          goto T504;
1175  T508:;  T504:;
1176          {object V114;          {object V112;
1177          base[0]= (V83);          base[0]= (V83);
1178          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1179          Lpackage_use_list();          Lpackage_use_list();
1180          vs_top=sup;          vs_top=sup;
1181          V114= vs_base[0];          V112= vs_base[0];
1182          if(((V114))==Cnil){          if(((V112))==Cnil){
1183          goto T522;}          goto T518;}
1184          base[0]= (V84);          base[0]= (V84);
1185          base[1]= VV[36];          base[1]= VV[36];
1186          {object V115;          {object V113;
1187          object V116= (V114);          object V114= (V112);
1188          if(V116==Cnil){          if(V114==Cnil){
1189          base[2]= Cnil;          base[2]= Cnil;
1190          goto T526;}          goto T522;}
1191          base[3]=V115=MMcons(Cnil,Cnil);          base[3]=V113=MMcons(Cnil,Cnil);
1192          goto T527;          goto T523;
1193  T527:;  T523:;
1194          base[4]= (V116->c.c_car);          base[4]= (V114->c.c_car);
1195          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1196          Lpackage_name();          Lpackage_name();
1197          vs_top=sup;          vs_top=sup;
1198          (V115->c.c_car)= vs_base[0];          (V113->c.c_car)= vs_base[0];
1199          if((V116=MMcdr(V116))==Cnil){          if((V114=MMcdr(V114))==Cnil){
1200          base[2]= base[3];          base[2]= base[3];
1201          goto T526;}          goto T522;}
1202          V115=MMcdr(V115)=MMcons(Cnil,Cnil);          V113=MMcdr(V113)=MMcons(Cnil,Cnil);
1203          goto T527;}          goto T523;}
1204          goto T526;          goto T522;
1205  T526:;  T522:;
1206          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1207          Lformat();          Lformat();
1208          vs_top=sup;          vs_top=sup;
1209          {object V117 = vs_base[0];          {object V115 = vs_base[0];
1210          VMR8(V117)}          VMR8(V115)}
1211          goto T522;          goto T518;
1212  T522:;  T518:;
1213          {object V118 = Cnil;          {object V116 = Cnil;
1214          VMR8(V118)}}          VMR8(V116)}}
1215          base[0]=base[0];          base[0]=base[0];
1216          return Cnil;          return Cnil;
1217  }  }
1218  /*      function definition for Defclass TRACED-METHOD9242      */  /*      function definition for Defclass TRACED-METHOD9256      */
1219    
1220  static void L12()  static void L12()
1221  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1236  TTL:; Line 1228  TTL:;
1228          base[0]= VV[37];          base[0]= VV[37];
1229          base[1]= VV[38];          base[1]= VV[38];
1230          base[2]= VV[39];          base[2]= VV[39];
1231          V119= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil);          V117= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil);
1232          V120= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil);          V118= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil);
1233          base[4]= VV[49];          base[4]= VV[49];
1234          base[5]= (VV[96]->s.s_gfdef);          base[5]= (VV[96]->s.s_gfdef);
1235          base[6]= VV[40];          base[6]= VV[40];
# Line 1252  TTL:; Line 1244  TTL:;
1244          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
1245          LlistA();          LlistA();
1246          vs_top=sup;          vs_top=sup;
1247          V121= vs_base[0];          V119= vs_base[0];
1248          base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121);          base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119);
1249          base[4]= Cnil;          base[4]= Cnil;
1250          base[5]= VV[54];          base[5]= VV[54];
1251          symlispcall(VV[97],base+0,6);          symlispcall(VV[97],base+0,6);
# Line 1265  static void L13() Line 1257  static void L13()
1257  {register object *base=vs_base;  {register object *base=vs_base;
1258          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1259          vs_check;          vs_check;
1260          {object V122;          {object V120;
1261          object V123;          object V121;
1262          register object V124;          register object V122;
1263          check_arg(3);          check_arg(3);
1264          V122=(base[0]);          V120=(base[0]);
1265          V123=(base[1]);          V121=(base[1]);
1266          V124=(base[2]);          V122=(base[2]);
1267          vs_top=sup;          vs_top=sup;
1268          goto TTL;          goto TTL;
1269  TTL:;  TTL:;
1270            {object V124;
1271            object V125;
1272            V124= CMPcar((V120));
1273            V125= CMPcdr((V120));
1274          {object V126;          {object V126;
1275          object V127;          if(type_of(V122)==t_structure){
1276          V126= CMPcar((V122));          goto T554;}
1277          V127= CMPcdr((V122));          goto T552;
         {object V128;  
         if(type_of(V124)==t_structure){  
         goto T558;}  
         goto T556;  
         goto T558;  
 T558:;  
         if(!(((V124)->str.str_def)==(VV[55]))){  
         goto T556;}  
         V128= STREF(object,(V124),4);  
1278          goto T554;          goto T554;
1279          goto T556;  T554:;
1280  T556:;{object V130;          if(!(((V122)->str.str_def)==(VV[55]))){
1281          V130= (VV[19]->s.s_dbind);          goto T552;}
1282            V126= STREF(object,(V122),4);
1283            goto T550;
1284            goto T552;
1285    T552:;{object V128;
1286            V128= (VV[19]->s.s_dbind);
1287          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1288          base[4]= (V124);          base[4]= (V122);
1289          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1290          (void) (*Lnk86)();          (void) (*Lnk86)();
1291          vs_top=sup;          vs_top=sup;
1292          V131= vs_base[0];          V129= vs_base[0];
1293          if(!((V130)==(CMPcar(V131)))){          if(!((V128)==(CMPcar(V129)))){
1294          goto T561;}}          goto T557;}}
1295          V128= CMPcar(((V124))->cc.cc_turbo[12]);          V126= CMPcar(((V122))->cc.cc_turbo[12]);
1296          goto T554;          goto T550;
1297          goto T561;          goto T557;
1298  T561:;  T557:;
1299          V128= Cnil;          V126= Cnil;
1300          goto T554;          goto T550;
1301  T554:;  T550:;
1302          {register object V133;          {register object V131;
1303          V133= ((V126))->v.v_self[1];          V131= ((V124))->v.v_self[1];
1304          if(!(type_of(V133)==t_fixnum)){          if(!(type_of(V131)==t_fixnum)){
1305          goto T573;}          goto T569;}
1306          V133= ((V128))->v.v_self[fix((V133))];          V131= ((V126))->v.v_self[fix((V131))];
1307          goto T571;          goto T567;
1308          goto T573;          goto T569;
1309  T573:;  T569:;
1310          V133= VV[56];          V131= VV[56];
1311          goto T571;          goto T567;
1312  T571:;  T567:;
1313          if(!(((V133))==(VV[56]))){          if(!(((V131))==(VV[56]))){
1314          goto T576;}          goto T572;}
1315          base[4]= (V124);          base[4]= (V122);
1316          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1317          (void) (*Lnk64)();          (void) (*Lnk64)();
1318          vs_top=sup;          vs_top=sup;
1319          base[3]= vs_base[0];          base[3]= vs_base[0];
1320          goto T568;          goto T564;
1321          goto T576;          goto T572;
1322  T576:;  T572:;
1323          base[3]= (V133);}          base[3]= (V131);}
1324          goto T568;          goto T564;
1325  T568:;  T564:;
1326          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1327          (void) (*Lnk98)(Lclptr98);          (void) (*Lnk98)(Lclptr98);
1328          return;}}          return;}}
# Line 1342  static void L14() Line 1334  static void L14()
1334  {register object *base=vs_base;  {register object *base=vs_base;
1335          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1336          vs_check;          vs_check;
1337          {object V135;          {object V133;
1338          object V136;          object V134;
1339          register object V137;          register object V135;
1340          check_arg(3);          check_arg(3);
1341          V135=(base[0]);          V133=(base[0]);
1342          V136=(base[1]);          V134=(base[1]);
1343          V137=(base[2]);          V135=(base[2]);
1344          vs_top=sup;          vs_top=sup;
1345          goto TTL;          goto TTL;
1346  TTL:;  TTL:;
1347            {object V137;
1348            object V138;
1349            V137= CMPcar((V133));
1350            V138= CMPcdr((V133));
1351          {object V139;          {object V139;
1352          object V140;          if(type_of(V135)==t_structure){
1353          V139= CMPcar((V135));          goto T585;}
1354          V140= CMPcdr((V135));          goto T583;
         {object V141;  
         if(type_of(V137)==t_structure){  
         goto T589;}  
         goto T587;  
         goto T589;  
 T589:;  
         if(!(((V137)->str.str_def)==(VV[57]))){  
         goto T587;}  
         V141= STREF(object,(V137),4);  
1355          goto T585;          goto T585;
1356          goto T587;  T585:;
1357  T587:;{object V143;          if(!(((V135)->str.str_def)==(VV[57]))){
1358          V143= (VV[19]->s.s_dbind);          goto T583;}
1359            V139= STREF(object,(V135),4);
1360            goto T581;
1361            goto T583;
1362    T583:;{object V141;
1363            V141= (VV[19]->s.s_dbind);
1364          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1365          base[4]= (V137);          base[4]= (V135);
1366          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1367          (void) (*Lnk86)();          (void) (*Lnk86)();
1368          vs_top=sup;          vs_top=sup;
1369          V144= vs_base[0];          V142= vs_base[0];
1370          if(!((V143)==(CMPcar(V144)))){          if(!((V141)==(CMPcar(V142)))){
1371          goto T592;}}          goto T588;}}
1372          V141= CMPcar(((V137))->cc.cc_turbo[12]);          V139= CMPcar(((V135))->cc.cc_turbo[12]);
1373          goto T585;          goto T581;
1374          goto T592;          goto T588;
1375  T592:;  T588:;
1376          V141= Cnil;          V139= Cnil;
1377          goto T585;          goto T581;
1378  T585:;  T581:;
1379          {register object V146;          {register object V144;
1380          V146= ((V139))->v.v_self[1];          V144= ((V137))->v.v_self[1];
1381          if(!(type_of(V146)==t_fixnum)){          if(!(type_of(V144)==t_fixnum)){
1382          goto T604;}          goto T600;}
1383          V146= ((V141))->v.v_self[fix((V146))];          V144= ((V139))->v.v_self[fix((V144))];
1384          goto T602;          goto T598;
1385          goto T604;          goto T600;
1386  T604:;  T600:;
1387          V146= VV[56];          V144= VV[56];
1388          goto T602;          goto T598;
1389  T602:;  T598:;
1390          if(!(((V146))==(VV[56]))){          if(!(((V144))==(VV[56]))){
1391          goto T607;}          goto T603;}
1392          base[4]= (V137);          base[4]= (V135);
1393          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1394          (void) (*Lnk64)();          (void) (*Lnk64)();
1395          vs_top=sup;          vs_top=sup;
1396          base[3]= vs_base[0];          base[3]= vs_base[0];
1397          goto T599;          goto T595;
1398          goto T607;          goto T603;
1399  T607:;  T603:;
1400          base[3]= (V146);}          base[3]= (V144);}
1401          goto T599;          goto T595;
1402  T599:;  T595:;
1403          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1404          (void) (*Lnk99)(Lclptr99);          (void) (*Lnk99)(Lclptr99);
1405          return;}}          return;}}
# Line 1419  static void L15() Line 1411  static void L15()
1411  {register object *base=vs_base;  {register object *base=vs_base;
1412          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
1413          vs_check;          vs_check;
1414          {object V148;          {object V146;
1415          object V149;          object V147;
1416          register object V150;          register object V148;
1417          check_arg(3);          check_arg(3);
1418          V148=(base[0]);          V146=(base[0]);
1419          V149=(base[1]);          V147=(base[1]);
1420          V150=(base[2]);          V148=(base[2]);
1421          vs_top=sup;          vs_top=sup;
1422          goto TTL;          goto TTL;
1423  TTL:;  TTL:;
1424            {object V150;
1425            object V151;
1426            V150= CMPcar((V146));
1427            V151= CMPcdr((V146));
1428          {object V152;          {object V152;
1429          object V153;          if(type_of(V148)==t_structure){
1430          V152= CMPcar((V148));          goto T616;}
1431          V153= CMPcdr((V148));          goto T614;
         {object V154;  
         if(type_of(V150)==t_structure){  
         goto T620;}  
         goto T618;  
         goto T620;  
 T620:;  
         if(!(((V150)->str.str_def)==(VV[58]))){  
         goto T618;}  
         V154= STREF(object,(V150),4);  
1432          goto T616;          goto T616;
1433          goto T618;  T616:;
1434  T618:;{object V156;          if(!(((V148)->str.str_def)==(VV[58]))){
1435          V156= (VV[19]->s.s_dbind);          goto T614;}
1436            V152= STREF(object,(V148),4);
1437            goto T612;
1438            goto T614;
1439    T614:;{object V154;
1440            V154= (VV[19]->s.s_dbind);
1441          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1442          base[4]= (V150);          base[4]= (V148);
1443          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1444          (void) (*Lnk86)();          (void) (*Lnk86)();
1445          vs_top=sup;          vs_top=sup;
1446          V157= vs_base[0];          V155= vs_base[0];
1447          if(!((V156)==(CMPcar(V157)))){          if(!((V154)==(CMPcar(V155)))){
1448          goto T623;}}          goto T619;}}
1449          V154= CMPcar(((V150))->cc.cc_turbo[12]);          V152= CMPcar(((V148))->cc.cc_turbo[12]);
1450          goto T616;          goto T612;
1451          goto T623;          goto T619;
1452  T623:;  T619:;
1453          V154= Cnil;          V152= Cnil;
1454          goto T616;          goto T612;
1455  T616:;  T612:;
1456          {register object V159;          {register object V157;
1457          V159= ((V152))->v.v_self[1];          V157= ((V150))->v.v_self[1];
1458          if(!(type_of(V159)==t_fixnum)){          if(!(type_of(V157)==t_fixnum)){
1459          goto T635;}          goto T631;}
1460          V159= ((V154))->v.v_self[fix((V159))];          V157= ((V152))->v.v_self[fix((V157))];
1461          goto T633;          goto T629;
1462          goto T635;          goto T631;
1463  T635:;  T631:;
1464          V159= VV[56];          V157= VV[56];
1465          goto T633;          goto T629;
1466  T633:;  T629:;
1467          if(!(((V159))==(VV[56]))){          if(!(((V157))==(VV[56]))){
1468          goto T638;}          goto T634;}
1469          base[4]= (V150);          base[4]= (V148);
1470          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1471          (void) (*Lnk64)();          (void) (*Lnk64)();
1472          vs_top=sup;          vs_top=sup;
1473          base[3]= vs_base[0];          base[3]= vs_base[0];
1474          goto T630;          goto T626;
1475          goto T638;          goto T634;
1476  T638:;  T634:;
1477          base[3]= (V159);}          base[3]= (V157);}
1478          goto T630;          goto T626;
1479  T630:;  T626:;
1480          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1481          (void) (*Lnk81)(Lclptr81);          (void) (*Lnk81)(Lclptr81);
1482          return;}}          return;}}
# Line 1496  static void L16() Line 1488  static void L16()
1488  {register object *base=vs_base;  {register object *base=vs_base;
1489          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1490          vs_check;          vs_check;
1491          {object V161;          {object V159;
1492          object V162;          object V160;
1493          register object V163;          register object V161;
1494          check_arg(3);          check_arg(3);
1495          V161=(base[0]);          V159=(base[0]);
1496          V162=(base[1]);          V160=(base[1]);
1497          V163=(base[2]);          V161=(base[2]);
1498          vs_top=sup;          vs_top=sup;
1499          goto TTL;          goto TTL;
1500  TTL:;  TTL:;
1501            {object V163;
1502            object V164;
1503            V163= CMPcar((V159));
1504            V164= CMPcdr((V159));
1505          {object V165;          {object V165;
1506          object V166;          if(type_of(V161)==t_structure){
1507          V165= CMPcar((V161));          goto T647;}
1508          V166= CMPcdr((V161));          goto T645;
         {object V167;  
         if(type_of(V163)==t_structure){  
         goto T651;}  
         goto T649;  
         goto T651;  
 T651:;  
         if(!(((V163)->str.str_def)==(VV[59]))){  
         goto T649;}  
         V167= STREF(object,(V163),4);  
1509          goto T647;          goto T647;
1510          goto T649;  T647:;
1511  T649:;{object V169;          if(!(((V161)->str.str_def)==(VV[59]))){
1512          V169= (VV[19]->s.s_dbind);          goto T645;}
1513            V165= STREF(object,(V161),4);
1514            goto T643;
1515            goto T645;
1516    T645:;{object V167;
1517            V167= (VV[19]->s.s_dbind);
1518          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1519          base[4]= (V163);          base[4]= (V161);
1520          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1521          (void) (*Lnk86)();          (void) (*Lnk86)();
1522          vs_top=sup;          vs_top=sup;
1523          V170= vs_base[0];          V168= vs_base[0];
1524          if(!((V169)==(CMPcar(V170)))){          if(!((V167)==(CMPcar(V168)))){
1525          goto T654;}}          goto T650;}}
1526          V167= CMPcar(((V163))->cc.cc_turbo[12]);          V165= CMPcar(((V161))->cc.cc_turbo[12]);
1527          goto T647;          goto T643;
1528          goto T654;          goto T650;
1529  T654:;  T650:;
1530          V167= Cnil;          V165= Cnil;
1531          goto T647;          goto T643;
1532  T647:;  T643:;
1533          {register object V172;          {register object V170;
1534          V172= ((V165))->v.v_self[1];          V170= ((V163))->v.v_self[1];
1535          if(!(type_of(V172)==t_fixnum)){          if(!(type_of(V170)==t_fixnum)){
1536          goto T666;}          goto T662;}
1537          V172= ((V167))->v.v_self[fix((V172))];          V170= ((V165))->v.v_self[fix((V170))];
1538          goto T664;          goto T660;
1539          goto T666;          goto T662;
1540  T666:;  T662:;
1541          V172= VV[56];          V170= VV[56];
1542          goto T664;          goto T660;
1543  T664:;  T660:;
1544          if(!(((V172))==(VV[56]))){          if(!(((V170))==(VV[56]))){
1545          goto T669;}          goto T665;}
1546          base[4]= (V163);          base[4]= (V161);
1547          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1548          (void) (*Lnk64)();          (void) (*Lnk64)();
1549          vs_top=sup;          vs_top=sup;
1550          base[3]= vs_base[0];          base[3]= vs_base[0];
1551          goto T661;          goto T657;
1552          goto T669;          goto T665;
1553  T669:;  T665:;
1554          base[3]= (V172);}          base[3]= (V170);}
1555          goto T661;          goto T657;
1556  T661:;  T657:;
1557          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1558          (void) (*Lnk100)(Lclptr100);          (void) (*Lnk100)(Lclptr100);
1559          return;}}          return;}}
# Line 1569  T661:; Line 1561  T661:;
1561  }  }
1562  /*      local entry for function TRACE-METHOD   */  /*      local entry for function TRACE-METHOD   */
1563    
1564  static object LI17(object V174,object first,...)  static object LI17(object V172,object first,...)
1565  {        {      
1566          va_list ap;          va_list ap;
1567          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
1568          {object V175;          {object V173;
1569          object V176;          object V174;
1570          va_start(ap,first);          va_start(ap,first);
1571          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1572          V175= V174;          V173= V172;
1573          narg= narg - 1;          narg= narg - 1;
1574          V177 = list_vector_new(narg,first,ap);          V175 = list_vector_new(narg,first,ap);
1575          V176= V177;          V174= V175;
1576          {object V178;          {object V176;
1577          object V179;          object V177;
1578          object V180;          object V178;
1579          base[0]= (V175);          base[0]= (V173);
1580          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1581          (void) (*Lnk101)();          (void) (*Lnk101)();
1582          if(vs_base>=vs_top){vs_top=sup;goto T674;}          if(vs_base>=vs_top){vs_top=sup;goto T670;}
1583          V178= vs_base[0];          V176= vs_base[0];
1584          vs_base++;          vs_base++;
1585          if(vs_base>=vs_top){vs_top=sup;goto T675;}          if(vs_base>=vs_top){vs_top=sup;goto T671;}
1586          V179= vs_base[0];          V177= vs_base[0];
1587          vs_base++;          vs_base++;
1588          if(vs_base>=vs_top){vs_top=sup;goto T676;}          if(vs_base>=vs_top){vs_top=sup;goto T672;}
1589          V180= vs_base[0];          V178= vs_base[0];
1590          vs_top=sup;          vs_top=sup;
1591          goto T677;          goto T673;
1592          goto T674;          goto T670;
1593  T674:;  T670:;
1594            V176= Cnil;
1595            goto T671;
1596    T671:;
1597            V177= Cnil;
1598            goto T672;
1599    T672:;
1600          V178= Cnil;          V178= Cnil;
1601          goto T675;          goto T673;
1602  T675:;  T673:;
1603          V179= Cnil;          {object V179;
1604          goto T676;          object V180;
1605  T676:;          base[2]= (V177);
         V180= Cnil;  
         goto T677;  
 T677:;  
         {object V181;  
         object V182;  
         base[2]= (V179);  
1606          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1607          (void) (*Lnk84)(Lclptr84);          (void) (*Lnk84)(Lclptr84);
1608          vs_top=sup;          vs_top=sup;
1609          V183= vs_base[0];          V181= vs_base[0];
1610          V181= (*(LnkLI102))(V183,(V180),(V176));          V179= (*(LnkLI102))(V181,(V178),(V174));
1611          base[2]= VV[37];          base[2]= VV[37];
1612          base[3]= VV[60];          base[3]= VV[60];
1613          base[4]= (V179);          base[4]= (V177);
1614          base[5]= VV[61];          base[5]= VV[61];
1615          base[6]= (V181);          base[6]= (V179);
1616          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1617          (void) (*Lnk103)(Lclptr103);          (void) (*Lnk103)(Lclptr103);
1618          vs_top=sup;          vs_top=sup;
1619          V182= vs_base[0];          V180= vs_base[0];
1620          base[2]= (V178);          base[2]= (V176);
1621          base[3]= (V179);          base[3]= (V177);
1622          (void)simple_symlispcall(VV[104],base+2,2);          (void)simple_symlispcall(VV[104],base+2,2);
1623          base[2]= (V178);          base[2]= (V176);
1624          base[3]= (V182);          base[3]= (V180);
1625          (void)simple_symlispcall(VV[105],base+2,2);          (void)simple_symlispcall(VV[105],base+2,2);
1626          base[2]= V182;          base[2]= V180;
1627          base[3]= (VV[62]->s.s_dbind);          base[3]= (VV[62]->s.s_dbind);
1628          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1629          Ladjoin();          Ladjoin();
1630          vs_top=sup;          vs_top=sup;
1631          (VV[62]->s.s_dbind)= vs_base[0];          (VV[62]->s.s_dbind)= vs_base[0];
1632          {object V185 = (V182);          {object V183 = (V180);
1633          VMR14(V185)}}}          VMR14(V183)}}}
1634          va_end(ap);          va_end(ap);
1635          base[0]=base[0];          base[0]=base[0];
1636          return Cnil;}          return Cnil;}
# Line 1649  static void L18() Line 1641  static void L18()
1641  {register object *base=vs_base;  {register object *base=vs_base;
1642          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1643          vs_check;          vs_check;
1644          {object V186;          {object V184;
1645          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
1646          if(vs_base>=vs_top){vs_top=sup;goto T697;}          if(vs_base>=vs_top){vs_top=sup;goto T693;}
1647          V186=(base[0]);          V184=(base[0]);
1648          vs_top=sup;          vs_top=sup;
1649          goto T698;          goto T694;
1650          goto T697;          goto T693;
1651  T697:;  T693:;
1652          V186= Cnil;          V184= Cnil;
1653          goto T698;          goto T694;
1654  T698:;  T694:;
1655          if(((V186))==Cnil){          if(((V184))==Cnil){
1656          goto T701;}          goto T697;}
1657          {object V187;          {object V185;
1658          object V188;          object V186;
1659          base[1]= (V186);          base[1]= (V184);
1660          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1661          (void) (*Lnk101)();          (void) (*Lnk101)();
1662          if(vs_base>=vs_top){vs_top=sup;goto T705;}          if(vs_base>=vs_top){vs_top=sup;goto T701;}
1663          V187= vs_base[0];          V185= vs_base[0];
1664          vs_base++;          vs_base++;
1665          if(vs_base>=vs_top){vs_top=sup;goto T706;}          if(vs_base>=vs_top){vs_top=sup;goto T702;}
1666          V188= vs_base[0];          V186= vs_base[0];
1667          vs_top=sup;          vs_top=sup;
1668          goto T707;          goto T703;
1669          goto T705;          goto T701;
1670  T705:;  T701:;
1671          V187= Cnil;          V185= Cnil;
1672            goto T702;
1673    T702:;
1674            V186= Cnil;
1675            goto T703;
1676    T703:;
1677            {register object x= (V186),V187= (VV[62]->s.s_dbind);
1678            while(V187!=Cnil)
1679            if(x==(V187->c.c_car)){
1680            goto T706;
1681            }else V187=V187->c.c_cdr;
1682            goto T705;}
1683          goto T706;          goto T706;
1684  T706:;  T706:;
1685          V188= Cnil;          base[1]= (V186);
         goto T707;  
 T707:;  
         {register object x= (V188),V189= (VV[62]->s.s_dbind);  
         while(V189!=Cnil)  
         if(x==(V189->c.c_car)){  
         goto T710;  
         }else V189=V189->c.c_cdr;  
         goto T709;}  
         goto T710;  
 T710:;  
         base[1]= (V188);  
1686          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1687          L19(base);          L19(base);
1688          return;          return;
1689          goto T709;          goto T705;
1690  T709:;  T705:;
1691          base[1]= VV[63];          base[1]= VV[63];
1692          base[2]= (V188);          base[2]= (V186);
1693          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1694          Lerror();          Lerror();
1695          return;}          return;}
1696          goto T701;          goto T697;
1697  T701:;  T697:;
1698          {register object V190;          {register object V188;
1699          register object V191;          register object V189;
1700          V190= (VV[62]->s.s_dbind);          V188= (VV[62]->s.s_dbind);
1701          V191= CMPcar((V190));          V189= CMPcar((V188));
1702          goto T717;          goto T713;
1703  T717:;  T713:;
1704          if(!(((V190))==Cnil)){          if(!(((V188))==Cnil)){
1705          goto T718;}          goto T714;}
1706          base[2]= Cnil;          base[2]= Cnil;
1707          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1708          return;          return;
1709          goto T718;          goto T714;
1710  T718:;  T714:;
1711          base[2]= (V191);          base[2]= (V189);
1712          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1713          L19(base);          L19(base);
1714          vs_top=sup;          vs_top=sup;
1715          V190= CMPcdr((V190));          V188= CMPcdr((V188));
1716          V191= CMPcar((V190));          V189= CMPcar((V188));
1717          goto T717;}          goto T713;}
1718          }          }
1719  }  }
1720  /*      local entry for function TRACE-METHOD-INTERNAL  */  /*      local entry for function TRACE-METHOD-INTERNAL  */
1721    
1722  static object LI20(V195,V196,V197)  static object LI20(V193,V194,V195)
1723    
1724  object V195;register object V196;object V197;  object V193;register object V194;object V195;
1725  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1726          goto TTL;          goto TTL;
1727  TTL:;  TTL:;
1728          base[0]= list(2,VV[65],(V196));          base[0]= list(2,VV[65],(V194));
1729          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1730          Leval();          Leval();
1731          vs_top=sup;          vs_top=sup;
1732          base[0]= (V196);          base[0]= (V194);
1733          base[1]= (V195);          base[1]= (V193);
1734          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1735          siLfset();          siLfset();
1736          vs_top=sup;          vs_top=sup;
1737          base[0]= listA(3,VV[66],(V196),(V197));          base[0]= listA(3,VV[66],(V194),(V195));
1738          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1739          Leval();          Leval();
1740          vs_top=sup;          vs_top=sup;
1741          base[0]= (V196);          base[0]= (V194);
1742          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1743          Lsymbol_function();          Lsymbol_function();
1744          vs_top=sup;          vs_top=sup;
1745          {object V198 = vs_base[0];          {object V196 = vs_base[0];
1746          VMR16(V198)}          VMR16(V196)}
1747          base[0]=base[0];          base[0]=base[0];
1748          return Cnil;          return Cnil;
1749  }  }
# Line 1763  static void L21() Line 1755  static void L21()
1755          vs_check;          vs_check;
1756          check_arg(2);          check_arg(2);
1757          vs_top=sup;          vs_top=sup;
1758          {object V199=base[0]->c.c_cdr;          {object V197=base[0]->c.c_cdr;
1759          base[2]= V199;}          base[2]= V197;}
1760          base[3]= list(2,VV[67],list(2,VV[68],base[2]));          base[3]= list(2,VV[67],list(2,VV[68],base[2]));
1761          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1762          return;          return;
1763  }  }
1764  /*      local entry for function UNDEFMETHOD-1  */  /*      local entry for function UNDEFMETHOD-1  */
1765    
1766  static object LI22(V201)  static object LI22(V199)
1767    
1768  object V201;  object V199;
1769  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1770          goto TTL;          goto TTL;
1771  TTL:;  TTL:;
1772          {object V202;          {object V200;
1773          object V203;          object V201;
1774          base[0]= (V201);          base[0]= (V199);
1775          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1776          (void) (*Lnk101)();          (void) (*Lnk101)();
1777          if(vs_base>=vs_top){vs_top=sup;goto T739;}          if(vs_base>=vs_top){vs_top=sup;goto T735;}
1778          V202= vs_base[0];          V200= vs_base[0];
1779          vs_base++;          vs_base++;
1780          if(vs_base>=vs_top){vs_top=sup;goto T740;}          if(vs_base>=vs_top){vs_top=sup;goto T736;}
1781          V203= vs_base[0];          V201= vs_base[0];
1782          vs_top=sup;          vs_top=sup;
1783          goto T741;          goto T737;
1784            goto T735;
1785    T735:;
1786            V200= Cnil;
1787            goto T736;
1788    T736:;
1789            V201= Cnil;
1790            goto T737;
1791    T737:;
1792            if(((V200))==Cnil){
1793            goto T739;}
1794            if(((V201))==Cnil){
1795            goto T739;}
1796            base[0]= (V200);
1797            base[1]= (V201);
1798            (void)simple_symlispcall(VV[104],base+0,2);
1799            {object V202 = (V201);
1800            VMR18(V202)}
1801          goto T739;          goto T739;
1802  T739:;  T739:;
1803          V202= Cnil;          {object V203 = Cnil;
1804          goto T740;          VMR18(V203)}}
 T740:;  
         V203= Cnil;  
         goto T741;  
 T741:;  
         if(((V202))==Cnil){  
         goto T743;}  
         if(((V203))==Cnil){  
         goto T743;}  
         base[0]= (V202);  
         base[1]= (V203);  
         (void)simple_symlispcall(VV[104],base+0,2);  
         {object V204 = (V203);  
         VMR18(V204)}  
         goto T743;  
 T743:;  
         {object V205 = Cnil;  
         VMR18(V205)}}  
1805          base[0]=base[0];          base[0]=base[0];
1806          return Cnil;          return Cnil;
1807  }  }
# Line 1820  register object *base0; Line 1812  register object *base0;
1812  {       register object *base=vs_base;  {       register object *base=vs_base;
1813          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1814          vs_check;          vs_check;
1815          {register object V206;          {register object V204;
1816          check_arg(1);          check_arg(1);
1817          V206=(base[0]);          V204=(base[0]);
1818          vs_top=sup;          vs_top=sup;
1819          goto TTL;          goto TTL;
1820  TTL:;  TTL:;
1821          {object V207;          {object V205;
1822          base[1]= (V206);          base[1]= (V204);
1823          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1824          (void) (*Lnk106)(Lclptr106);          (void) (*Lnk106)(Lclptr106);
1825          vs_top=sup;          vs_top=sup;
1826          V207= vs_base[0];          V205= vs_base[0];
1827          if(((V207))==Cnil){          if(((V205))==Cnil){
1828          goto T753;}          goto T749;}
1829          base[1]= (V207);          base[1]= (V205);
1830          base[2]= (V206);          base[2]= (V204);
1831          (void)simple_symlispcall(VV[104],base+1,2);          (void)simple_symlispcall(VV[104],base+1,2);
1832          base[1]=(VV[105]->s.s_gfdef);          base[1]=(VV[105]->s.s_gfdef);
1833          base[2]= (V207);          base[2]= (V205);
1834          if(!((VV[64])->s.s_gfdef!=OBJNULL)){          if(!((VV[64])->s.s_gfdef!=OBJNULL)){
1835          goto T762;}          goto T758;}
1836          base[4]= (V206);          base[4]= (V204);
1837          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1838          (void) (*Lnk64)();          (void) (*Lnk64)();
1839          vs_top=sup;          vs_top=sup;
1840          base[3]= vs_base[0];          base[3]= vs_base[0];
1841          goto T760;          goto T756;
1842          goto T762;          goto T758;
1843  T762:;  T758:;
1844          base[3]= (*(LnkLI108))(VV[64],VV[41]);          base[3]= (*(LnkLI108))(VV[64],VV[41]);
1845          goto T760;          goto T756;
1846  T760:;  T756:;
1847          (void)simple_lispcall(base+1,2);          (void)simple_lispcall(base+1,2);
1848          base[1]= (V206);          base[1]= (V204);
1849          base[2]= (VV[62]->s.s_dbind);          base[2]= (VV[62]->s.s_dbind);
1850          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1851          (void) (*Lnk109)();          (void) (*Lnk109)();
# Line 1862  T760:; Line 1854  T760:;
1854          base[1]= (VV[62]->s.s_dbind);          base[1]= (VV[62]->s.s_dbind);
1855          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1856          return;          return;
1857          goto T753;          goto T749;
1858  T753:;  T749:;
1859          base[1]= Cnil;          base[1]= Cnil;
1860          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1861          return;}          return;}
# Line 1876  register object *base0; Line 1868  register object *base0;
1868  {       register object *base=vs_base;  {       register object *base=vs_base;
1869          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1870          vs_check;          vs_check;
1871          {object V208;          {object V206;
1872          check_arg(1);          check_arg(1);
1873          V208=(base[0]);          V206=(base[0]);
1874          vs_top=sup;          vs_top=sup;
1875          goto TTL;          goto TTL;
1876  TTL:;{object V209;  TTL:;{object V207;
1877          base[1]= (V208);          base[1]= (V206);
1878          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1879          (void) (*Lnk89)(Lclptr89);          (void) (*Lnk89)(Lclptr89);
1880          vs_top=sup;          vs_top=sup;
1881          V209= vs_base[0];          V207= vs_base[0];
1882          if(V209==Cnil)goto T768;          if(V207==Cnil)goto T764;
1883          base[1]= V209;          base[1]= V207;
1884          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1885          return;          return;
1886          goto T768;          goto T764;
1887  T768:;}  T764:;}
1888          base[1]= (V208);          base[1]= (V206);
1889          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1890          return;          return;
1891          }          }
# Line 1905  register object *base0; Line 1897  register object *base0;
1897  {       register object *base=vs_base;  {       register object *base=vs_base;
1898          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1899          vs_check;          vs_check;
1900          {object V210;          {object V208;
1901            object V209;
1902            object V210;
1903          object V211;          object V211;
         object V212;  
         object V213;  
1904          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1905          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1906          V210=(base[0]);          V208=(base[0]);
1907          V211=(base[1]);          V209=(base[1]);
1908          vs_base=vs_base+2;          vs_base=vs_base+2;
1909          if(vs_base>=vs_top){vs_top=sup;goto T771;}          if(vs_base>=vs_top){vs_top=sup;goto T767;}
1910          V212=(base[2]);          V210=(base[2]);
1911          V213= Ct;          V211= Ct;
1912          vs_top=sup;          vs_top=sup;
1913          goto T772;          goto T768;
1914          goto T771;          goto T767;
1915  T771:;  T767:;
1916          V212= Cnil;          V210= Cnil;
1917          V213= Cnil;          V211= Cnil;
1918          goto T772;          goto T768;
1919  T772:;  T768:;
1920          if(((V213))==Cnil){          if(((V211))==Cnil){
1921          goto T775;}          goto T771;}
1922          base[4]= base0[3];          base[4]= base0[3];
1923          base[5]= VV[9];          base[5]= VV[9];
1924          base[6]= (V210);          base[6]= (V208);
1925          base[7]= (V212);          base[7]= (V210);
1926          base[8]= number_plus(base0[6],small_fixnum(7));          base[8]= number_plus(base0[6],small_fixnum(7));
1927          base[9]= (V211);          base[9]= (V209);
1928          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
1929          Lformat();          Lformat();
1930          return;          return;
1931          goto T775;          goto T771;
1932  T775:;  T771:;
1933          base[4]= base0[3];          base[4]= base0[3];
1934          base[5]= VV[10];          base[5]= VV[10];
1935          base[6]= (V210);          base[6]= (V208);
1936          base[7]= base0[6];          base[7]= base0[6];
1937          base[8]= (V211);          base[8]= (V209);
1938          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1939          Lformat();          Lformat();
1940          return;          return;
# Line 1955  register object *base0; Line 1947  register object *base0;
1947  {       register object *base=vs_base;  {       register object *base=vs_base;
1948          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1949          vs_check;          vs_check;
1950          {object V214;          {object V212;
1951          check_arg(1);          check_arg(1);
1952          V214=(base[0]);          V212=(base[0]);
1953          vs_top=sup;          vs_top=sup;
1954          goto TTL;          goto TTL;
1955  TTL:;  TTL:;
1956          {object V215= symbol_name((V214));          {object V213= symbol_name((V212));
1957          V216 = CMPmake_fixnum((long)(/* INLINE-ARGS */V215)->v.v_fillp);          V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp);
1958          base0[6]= (number_compare(base0[6],V216)>=0?(base0[6]):V216);}          base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);}
1959          base[1]= base0[6];          base[1]= base0[6];
1960          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1961          return;          return;

Legend:
Removed from v.1.1.4.1.4.1  
changed lines
  Added in v.1.1.4.1.4.2

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