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

Diff of /gcl/cmpnew/cmpcall.c

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

revision 1.6 by camm, Tue Sep 24 19:01:44 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 1140  T452:; Line 1140  T452:;
1140          V135=          V135=
1141          make_cclosure_new(LC21,Cnil,base[0],Cdata);          make_cclosure_new(LC21,Cnil,base[0],Cdata);
1142  goto T479;  goto T479;
1143  T479:;{object V152;  T479:;
1144          V152= get((V132),VV[2],Cnil);          {object V151;{object V153;
1145          if(V152==Cnil)goto T486;          V153= get((V132),VV[2],Cnil);
1146          V151= V152;          if(V153==Cnil)goto T486;
1147            V152= V153;
1148          goto T485;          goto T485;
1149  goto T486;  goto T486;
1150  T486:;}  T486:;}
1151          V151= Ct;          V152= Ct;
1152  goto T485;  goto T485;
1153  T485:;  T485:;
1154          if((V135)!=Cnil){          if((V135)!=Cnil){
1155          V153= (V135);          V154= (V135);
1156          goto T488;}          goto T488;}
1157          V153= (base[0]->c.c_car);          V154= (base[0]->c.c_car);
1158  goto T488;  goto T488;
1159  T488:;  T488:;
1160          V154= list(6,(V132),(V140),V151,small_fixnum(3),V153,VV[72]);          V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]);
1161          setq(VV[71],make_cons(/* INLINE-ARGS */V154,symbol_value(VV[71])));          setq(VV[72],make_cons((V151),symbol_value(VV[72])));}
1162          base[2]= Cnil;          base[2]= Cnil;
1163          base[3]= VV[73];          base[3]= VV[73];
1164          base[4]= (V137);          base[4]= (V137);
# Line 1166  T488:; Line 1167  T488:;
1167          vs_top=sup;          vs_top=sup;
1168          V155= vs_base[0];{object V157;          V155= vs_base[0];{object V157;
1169          V157= get((V132),VV[2],Cnil);          V157= get((V132),VV[2],Cnil);
1170          if(V157==Cnil)goto T495;          if(V157==Cnil)goto T496;
1171          V156= V157;          V156= V157;
1172          goto T494;          goto T495;
1173  goto T495;  goto T496;
1174  T495:;}  T496:;}
1175          V156= Ct;          V156= Ct;
1176  goto T494;  goto T495;
1177  T494:;  T495:;
1178          V136= list(4,(V132),V155,V156,(V140));          V136= list(4,(V132),V155,V156,(V140));
1179          goto T410;}          goto T410;}
1180  goto T412;  goto T412;
1181  T412:;  T412:;
1182          (void)((*(LnkLI136))((V132),(V134)));          (void)((*(LnkLI136))((V132),(V134)));
1183          if((get((V132),VV[61],Cnil))==Cnil){          if((get((V132),VV[61],Cnil))==Cnil){
1184          goto T501;}          goto T502;}
1185          V158= VV[61];          V158= VV[61];
1186          goto T499;          goto T500;
1187  goto T501;  goto T502;
1188  T501:;  T502:;
1189          V158= Cnil;          V158= Cnil;
1190  goto T499;  goto T500;
1191  T499:;  T500:;
1192          V136= list(3,(V132),(V137),V158);          V136= list(3,(V132),(V137),V158);
1193  goto T410;  goto T410;
1194  T410:;  T410:;
1195          base[0]= (V136);          base[0]= V136;
1196          base[1]= symbol_value(VV[65]);          base[1]= symbol_value(VV[65]);
1197          base[2]= VV[74];          base[2]= VV[74];
1198          base[3]= VV[75];          base[3]= VV[75];
# Line 1199  T410:; Line 1200  T410:;
1200          Ladjoin();          Ladjoin();
1201          vs_top=sup;          vs_top=sup;
1202          setq(VV[65],vs_base[0]);          setq(VV[65],vs_base[0]);
1203          {object V159 = (V137);          {object V160 = (V137);
1204          VMR11(V159)}}          VMR11(V160)}}
1205          base[0]=base[0];          base[0]=base[0];
1206          return Cnil;          return Cnil;
1207  }  }
# Line 1210  static void L12() Line 1211  static void L12()
1211  {register object *base=vs_base;  {register object *base=vs_base;
1212          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
1213          vs_reserve(VM12);          vs_reserve(VM12);
1214          {object V160;          {object V161;
1215          check_arg(1);          check_arg(1);
1216          V160=(base[0]);          V161=(base[0]);
1217          vs_top=sup;          vs_top=sup;
1218  goto TTL;  goto TTL;
1219  TTL:;  TTL:;
1220          if(!(equal((V160),VV[76]))){          if(!(equal((V161),VV[76]))){
1221          goto T510;}          goto T511;}
1222          base[1]= VV[77];          base[1]= VV[77];
1223          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1224          return;          return;
1225  goto T510;  goto T511;
1226  T510:;  T511:;
1227          if(!(equal((V160),VV[78]))){          if(!(equal((V161),VV[78]))){
1228          goto T513;}          goto T514;}
1229          base[1]= VV[79];          base[1]= VV[79];
1230          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1231          return;          return;
1232  goto T513;  goto T514;
1233  T513:;  T514:;
1234          base[1]= (V160);          base[1]= (V161);
1235          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1236          return;          return;
1237          }          }
1238  }  }
1239  /*      local entry for function WT-FUNCTION-LINK       */  /*      local entry for function WT-FUNCTION-LINK       */
1240    
1241  static object LI13(V162)  static object LI13(V163)
1242    
1243  register object V162;  register object V163;
1244  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1245  goto TTL;  goto TTL;
1246  TTL:;  TTL:;
1247          {register object V163;          {register object V164;
         register object V164;  
1248          register object V165;          register object V165;
1249          object V166;          register object V166;
1250          V163= car((V162));          object V167;
1251          V164= cadr((V162));          V164= car((V163));
1252          V165= caddr((V162));          V165= cadr((V163));
1253          V166= cadddr((V162));          V166= caddr((V163));
1254          if(((V165))!=Cnil){          V167= cadddr((V163));
1255          goto T521;}          if(((V166))!=Cnil){
1256            goto T522;}
1257          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1258          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1259          princ_str("(){ call_or_link(VV[",VV[29]);          princ_str("(){ call_or_link(VV[",VV[29]);
1260          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1261          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1262          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1263          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1264          goto T519;          goto T520;
1265  goto T521;  goto T522;
1266  T521:;  T522:;
1267          if(!(eql((V165),VV[61]))){          if(!(eql((V166),VV[61]))){
1268          goto T531;}          goto T532;}
1269          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1270          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1271          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
1272          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1273          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1274          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1275          princ_str(",&Lclptr",VV[29]);          princ_str(",&Lclptr",VV[29]);
1276          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1277          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1278          goto T519;          goto T520;
1279  goto T531;  goto T532;
1280  T531:;  T532:;
1281          princ_str("\nstatic ",VV[29]);          princ_str("\nstatic ",VV[29]);
1282          base[0]= (*(LnkLI143))((V165));          base[0]= (*(LnkLI143))((V166));
1283          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1284          (void) (*Lnk144)();          (void) (*Lnk144)();
1285          vs_top=sup;          vs_top=sup;
1286          V167= vs_base[0];          V168= vs_base[0];
1287          (void)((*(LnkLI117))(V167));          (void)((*(LnkLI117))(V168));
1288          princ_str(" LnkT",VV[29]);          princ_str(" LnkT",VV[29]);
1289          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1290          if(((V166))!=Cnil){          if(((V167))!=Cnil){
         goto T549;}  
         if((Ct)==((V165))){  
1291          goto T550;}          goto T550;}
1292  goto T549;          if((Ct)==((V166))){
1293  T549:;          goto T551;}
1294          {object V168;  goto T550;
1295          {register object x= VV[5],V169= (V166);  T550:;
1296          while(!endp(V169))          {object V169;
1297          if(eql(x,V169->c.c_car)){          {register object x= VV[5],V170= (V167);
1298          V168= V169;          while(!endp(V170))
1299          goto T554;          if(eql(x,V170->c.c_car)){
1300          }else V169=V169->c.c_cdr;          V169= V170;
1301          V168= Cnil;}          goto T555;
1302  goto T554;          }else V170=V170->c.c_cdr;
1303  T554:;          V169= Cnil;}
1304    goto T555;
1305    T555:;
1306          princ_str("(va_alist)va_dcl{",VV[29]);          princ_str("(va_alist)va_dcl{",VV[29]);
1307          base[0]= (*(LnkLI143))((V165));          base[0]= (*(LnkLI143))((V166));
1308          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1309          (void) (*Lnk144)();          (void) (*Lnk144)();
1310          vs_top=sup;          vs_top=sup;
1311          V170= vs_base[0];          V171= vs_base[0];
1312          (void)((*(LnkLI117))(V170));          (void)((*(LnkLI117))(V171));
1313          princ_str("V1;",VV[29]);          princ_str("V1;",VV[29]);
1314          princ_str("va_list ap;va_start(ap);V1=call_",VV[29]);          princ_str("va_list ap;va_start(ap);V1=call_",VV[29]);
1315          if(((V168))==Cnil){          if(((V169))==Cnil){
1316          goto T565;}          goto T566;}
1317          V171= VV[80];          V172= VV[80];
1318          goto T563;          goto T564;
1319  goto T565;  goto T566;
1320  T565:;  T566:;
1321          V171= VV[81];          V172= VV[81];
1322  goto T563;  goto T564;
1323  T563:;  T564:;
1324          (void)((*(LnkLI117))(V171));          (void)((*(LnkLI117))(V172));
1325          princ_str("proc(VV[",VV[29]);          princ_str("proc(VV[",VV[29]);
1326          V172= (*(LnkLI145))((V163));          V173= (*(LnkLI145))((V164));
1327          (void)((*(LnkLI117))(/* INLINE-ARGS */V172));          (void)((*(LnkLI117))(/* INLINE-ARGS */V173));
1328          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1329          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1330          if((V168)!=Cnil){          if((V169)!=Cnil){
1331          goto T571;}          goto T572;}
1332          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1333          V173 = make_fixnum((long)(*(LnkLI146))((V166),(V165)));          V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166)));
1334          (void)((*(LnkLI117))(V173));          (void)((*(LnkLI117))(V174));
1335  goto T571;  goto T572;
1336  T571:;  T572:;
1337          princ_str(",ap);va_end(ap);return V1;}",VV[29]);          princ_str(",ap);va_end(ap);return V1;}",VV[29]);
1338          goto T519;}          goto T520;}
1339  goto T550;  goto T551;
1340  T550:;  T551:;
1341          princ_str("(){return call_proc0(VV[",VV[29]);          princ_str("(){return call_proc0(VV[",VV[29]);
1342          V174= (*(LnkLI145))((V163));          V175= (*(LnkLI145))((V164));
1343          (void)((*(LnkLI117))(/* INLINE-ARGS */V174));          (void)((*(LnkLI117))(/* INLINE-ARGS */V175));
1344          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1345          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V165)));
1346          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1347  goto T519;  goto T520;
1348  T519:;  T520:;
1349          V163= symbol_name((V163));          V164= symbol_name((V164));
1350          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V163))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){
1351          goto T582;}          goto T583;}
1352          V163= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V163)));          V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164)));
1353  goto T582;  goto T583;
1354  T582:;  T583:;
1355          princ_str(" /* ",VV[29]);          princ_str(" /* ",VV[29]);
1356          (void)((*(LnkLI117))((V163)));          (void)((*(LnkLI117))((V164)));
1357          princ_str(" */",VV[29]);          princ_str(" */",VV[29]);
1358          {object V175 = Cnil;          {object V176 = Cnil;
1359          VMR13(V175)}}          VMR13(V176)}}
1360          base[0]=base[0];          base[0]=base[0];
1361          return Cnil;          return Cnil;
1362  }  }
1363  /*      local entry for function WT-FUNCALL-C   */  /*      local entry for function WT-FUNCALL-C   */
1364    
1365  static object LI14(V177)  static object LI14(V178)
1366    
1367  register object V177;  register object V178;
1368  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1369          bds_check;          bds_check;
1370  goto TTL;  goto TTL;
1371  TTL:;  TTL:;
1372          {object V178;          {object V179;
1373          object V179;          object V180;
1374          register object V180;          register object V181;
1375          V178= car((V177));          V179= car((V178));
1376          V179= cdr((V177));          V180= cdr((V178));
1377          V180= Cnil;          V181= Cnil;
1378          if(!(eql(car((V178)),VV[23]))){          if(!(eql(car((V179)),VV[23]))){
1379          goto T594;}          goto T595;}
1380          {object V181;          {object V182;
1381          V181= make_cons(car((V178)),caddr((V178)));          V182= make_cons(car((V179)),caddr((V179)));
1382          if((symbol_value(VV[83]))==Cnil){          if((symbol_value(VV[83]))==Cnil){
1383          goto T597;}          goto T598;}
1384          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
1385          base[0]= (V181);          base[0]= (V182);
1386          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1387          (void) (*Lnk149)();          (void) (*Lnk149)();
1388          vs_top=sup;          vs_top=sup;
1389          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
1390          base[0]= (V181);          base[0]= (V182);
1391          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1392          (void) (*Lnk149)();          (void) (*Lnk149)();
1393          vs_top=sup;          vs_top=sup;
1394          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1395  goto T597;  goto T598;
1396  T597:;  T598:;
1397          (void)((*(LnkLI116))((V179)));          (void)((*(LnkLI116))((V180)));
1398          princ_str("\n   (",VV[29]);          princ_str("\n   (",VV[29]);
1399          base[0]= (V181);          base[0]= (V182);
1400          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1401          (void) (*Lnk149)();          (void) (*Lnk149)();
1402          vs_top=sup;          vs_top=sup;
1403          goto T592;}          goto T593;}
1404  goto T594;  goto T595;
1405  T594:;  T595:;
1406          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1407          V180= list(2,VV[33],symbol_value(VV[84]));          V181= list(2,VV[33],symbol_value(VV[84]));
1408          bds_bind(VV[21],(V180));          bds_bind(VV[21],(V181));
1409          princ_str("\n   {object V",VV[29]);          princ_str("\n   {object V",VV[29]);
1410          (void)((*(LnkLI117))(cadr((V180))));          (void)((*(LnkLI117))(cadr((V181))));
1411          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1412          (void)((*(LnkLI115))(car((V177))));          (void)((*(LnkLI115))(car((V178))));
1413          (void)((*(LnkLI116))(cdr((V177))));          (void)((*(LnkLI116))(cdr((V178))));
1414          princ_str("(V",VV[29]);          princ_str("(V",VV[29]);
1415          (void)((*(LnkLI117))(cadr((V180))));          (void)((*(LnkLI117))(cadr((V181))));
1416          bds_unwind1;          bds_unwind1;
1417  goto T592;  goto T593;
1418  T592:;  T593:;
1419          princ_str(")->cf.cf_self ();",VV[29]);          princ_str(")->cf.cf_self ();",VV[29]);
1420          if((V180)==Cnil){          if((V181)==Cnil){
1421          goto T589;}          goto T590;}
1422          princ_char(125,VV[29]);}          princ_char(125,VV[29]);}
1423  goto T589;  goto T590;
1424  T589:;  T590:;
1425          {object V182 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1426          VMR14(V182)}          VMR14(V183)}
1427          base[0]=base[0];          base[0]=base[0];
1428          return Cnil;          return Cnil;
1429  }  }
1430  /*      local entry for function INLINE-PROC    */  /*      local entry for function INLINE-PROC    */
1431    
1432  static object LI15(V185,V186)  static object LI15(V186,V187)
1433    
1434  object V185;object V186;  object V186;object V187;
1435  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1436  goto TTL;  goto TTL;
1437  TTL:;  TTL:;
1438          {register object V187;          {register object V188;
1439          register object V188;          register object V189;
1440          object V189;          object V190;
1441          V187= make_fixnum((long)length((V186)));          V188= make_fixnum((long)length((V187)));
1442          V188= Cnil;          V189= Cnil;
1443          V189= (*(LnkLI145))((V185));          V190= (*(LnkLI145))((V186));
1444          base[2]= Ct;          base[2]= Ct;
1445          base[3]= VV[85];          base[3]= VV[85];
1446          base[4]= (V185);          base[4]= (V186);
1447          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1448          Lformat();          Lformat();
1449          vs_top=sup;          vs_top=sup;
1450          {object V190;          {object V191;
1451          {object V191= (V187);          {object V192= (V188);
1452          if(!eql(V191,VV[86]))goto T635;          if(!eql(V192,VV[86]))goto T636;
1453          base[2]= Cnil;          base[2]= Cnil;
1454          base[3]= VV[88];          base[3]= VV[88];
1455          base[4]= (V189);          base[4]= (V190);
1456          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1457          Lformat();          Lformat();
1458          vs_top=sup;          vs_top=sup;
1459          V192= vs_base[0];          V193= vs_base[0];
1460          V190= list(5,VV[87],Ct,small_fixnum(3),V192,VV[58]);          V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]);
1461          goto T634;          goto T635;
1462  goto T635;  goto T636;
1463  T635:;  T636:;
1464          if(!eql(V191,VV[89]))goto T640;          if(!eql(V192,VV[89]))goto T641;
1465          base[2]= Cnil;          base[2]= Cnil;
1466          base[3]= VV[91];          base[3]= VV[91];
1467          base[4]= (V189);          base[4]= (V190);
1468          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1469          Lformat();          Lformat();
1470          vs_top=sup;          vs_top=sup;
1471          V193= vs_base[0];          V194= vs_base[0];
1472          V190= list(5,VV[90],Ct,small_fixnum(3),V193,VV[58]);          V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]);
1473          goto T634;          goto T635;
1474  goto T640;  goto T641;
1475  T640:;  T641:;
1476          base[2]= (V187);          base[2]= (V188);
1477          base[3]= VV[63];          base[3]= VV[63];
1478          base[4]= Ct;          base[4]= Ct;
1479          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1480          Lmake_list();          Lmake_list();
1481          vs_top=sup;          vs_top=sup;
1482          V194= vs_base[0];          V195= vs_base[0];
1483          base[2]= Cnil;          base[2]= Cnil;
1484          base[3]= VV[92];          base[3]= VV[92];
1485          base[4]= (V189);          base[4]= (V190);
1486          base[5]= (V187);          base[5]= (V188);
1487          {register object V196;          {register object V197;
1488          register object V197;          register object V198;
1489          V196= (V187);          V197= (V188);
1490          V197= small_fixnum(0);          V198= small_fixnum(0);
 goto T658;  
 T658:;  
         if(!(number_compare((V197),(V196))>=0)){  
         goto T659;}  
         base[6]= nreverse((V188));  
         goto T654;  
1491  goto T659;  goto T659;
1492  T659:;  T659:;
1493          V188= make_cons((V197),(V188));          if(!(number_compare((V198),(V197))>=0)){
1494          V197= one_plus((V197));          goto T660;}
1495          goto T658;}          base[6]= nreverse((V189));
1496  goto T654;          goto T655;
1497  T654:;  goto T660;
1498    T660:;
1499            {register object V199;
1500            V199= (V198);
1501            V189= make_cons((V199),(V189));}
1502            V198= one_plus((V198));
1503            goto T659;}
1504    goto T655;
1505    T655:;
1506          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1507          Lformat();          Lformat();
1508          vs_top=sup;          vs_top=sup;
1509          V195= vs_base[0];          V196= vs_base[0];
1510          V190= list(5,V194,Ct,small_fixnum(3),V195,VV[58]);}          V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);}
1511  goto T634;  goto T635;
1512  T634:;  T635:;
1513          V198= make_cons((V185),(V190));          {object V200;
1514          setq(VV[71],make_cons(/* INLINE-ARGS */V198,symbol_value(VV[71])));          V200= make_cons((V186),(V191));
1515          {object V199 = (V190);          setq(VV[72],make_cons((V200),symbol_value(VV[72])));}
1516          VMR15(V199)}}}          {object V201 = (V191);
1517            VMR15(V201)}}}
1518          base[0]=base[0];          base[0]=base[0];
1519          return Cnil;          return Cnil;
1520  }  }
1521  /*      local entry for function WT-SIMPLE-CALL */  /*      local entry for function WT-SIMPLE-CALL */
1522    
1523  static object LI16(V202,V201,V200,va_alist)  static object LI16(V204,V203,V202,va_alist)
1524          object V202,V201,V200;          object V204,V203,V202;
1525          va_dcl          va_dcl
1526  {        {      
1527          va_list ap;          va_list ap;
1528          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1529          {object V203;          {object V205;
         object V204;  
         object V205;  
1530          object V206;          object V206;
1531            object V207;
1532            object V208;
1533          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1534          va_start(ap);          va_start(ap);
1535          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1536          V203= V202;          V205= V204;
1537          V204= V201;          V206= V203;
1538          V205= V200;          V207= V202;
1539          narg = narg - 3;          narg = narg - 3;
1540          if (narg <= 0) goto T670;          if (narg <= 0) goto T673;
1541          else {          else {
1542          V206= va_arg(ap,object);}          V208= va_arg(ap,object);}
1543          --narg; goto T671;          --narg; goto T674;
1544  goto T670;  goto T673;
1545  T670:;  T673:;
1546          V206= Cnil;          V208= Cnil;
1547  goto T671;  goto T674;
1548  T671:;  T674:;
1549          princ_str("simple_",VV[29]);          princ_str("simple_",VV[29]);
1550          (void)((*(LnkLI117))((V203)));          (void)((*(LnkLI117))((V205)));
1551          princ_char(40,VV[29]);          princ_char(40,VV[29]);
1552          if(((V206))==Cnil){          if(((V208))==Cnil){
1553          goto T677;}          goto T680;}
1554          princ_str("VV[",VV[29]);          princ_str("VV[",VV[29]);
1555          (void)((*(LnkLI117))((V206)));          (void)((*(LnkLI117))((V208)));
1556          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1557  goto T677;  goto T680;
1558  T677:;  T680:;
1559          princ_str("base+",VV[29]);          princ_str("base+",VV[29]);
1560          (void)((*(LnkLI117))((V204)));          (void)((*(LnkLI117))((V206)));
1561          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1562          (void)((*(LnkLI117))((V205)));          (void)((*(LnkLI117))((V207)));
1563          princ_char(41,VV[29]);          princ_char(41,VV[29]);
1564          setq(VV[37],Ct);          setq(VV[37],Ct);
1565          {object V207 = Ct;          {object V209 = Ct;
1566          VMR16(V207)}          VMR16(V209)}
1567          va_end(ap);          va_end(ap);
1568          return Cnil;}          return Cnil;}
1569          }          }
1570  /*      local entry for function SAVE-FUNOB     */  /*      local entry for function SAVE-FUNOB     */
1571    
1572  static object LI17(V209)  static object LI17(V211)
1573    
1574  register object V209;  register object V211;
1575  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1576          bds_check;          bds_check;
1577  goto TTL;  goto TTL;
1578  TTL:;  TTL:;
1579          {object V210= car((V209));          {object V212= car((V211));
1580          if((V210!= VV[13])          if((V212!= VV[13])
1581          && (V210!= VV[150])          && (V212!= VV[150])
1582          && (V210!= VV[6]))goto T690;          && (V212!= VV[6]))goto T693;
1583          {object V211 = Cnil;          {object V213 = Cnil;
1584          VMR17(V211)}          VMR17(V213)}
1585  goto T690;  goto T693;
1586  T690:;  T693:;
1587          if((V210!= VV[14]))goto T691;          if((V212!= VV[14]))goto T694;
1588          if(((*(LnkLI127))(caddr((V209))))==Cnil){          if(((*(LnkLI127))(caddr((V211))))==Cnil){
1589          goto T692;}          goto T695;}
1590          if((get(caddr((V209)),VV[55],Cnil))!=Cnil){          if((get(caddr((V211)),VV[55],Cnil))!=Cnil){
1591          goto T693;}          goto T696;}
1592          if((get(caddr((V209)),VV[56],Cnil))!=Cnil){          if((get(caddr((V211)),VV[56],Cnil))!=Cnil){
1593          goto T693;}          goto T696;}
1594          {register object x= caddr((V209)),V212= symbol_value(VV[93]);          {register object x= caddr((V211)),V214= symbol_value(VV[93]);
1595          while(!endp(V212))          while(!endp(V214))
1596          if(type_of(V212->c.c_car)==t_cons &&eql(x,V212->c.c_car->c.c_car)){          if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){
1597          goto T693;          goto T696;
1598          }else V212=V212->c.c_cdr;}          }else V214=V214->c.c_cdr;}
1599  goto T692;  goto T695;
1600  T692:;  T695:;
1601          {object V213;          {object V215;
1602          V213= list(2,VV[27],(*(LnkLI114))());          V215= list(2,VV[27],(*(LnkLI114))());
1603          if((symbol_value(VV[83]))==Cnil){          if((symbol_value(VV[83]))==Cnil){
1604          goto T704;}          goto T707;}
1605          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1606          (void)((*(LnkLI117))((V213)));          (void)((*(LnkLI117))((V215)));
1607          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1608          V214= (*(LnkLI140))(caddr((V209)));          V216= (*(LnkLI140))(caddr((V211)));
1609          (void)((*(LnkLI117))(/* INLINE-ARGS */V214));          (void)((*(LnkLI117))(/* INLINE-ARGS */V216));
1610          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1611          goto T702;          goto T705;
1612  goto T704;  goto T707;
1613  T704:;  T707:;
1614          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1615          (void)((*(LnkLI117))((V213)));          (void)((*(LnkLI117))((V215)));
1616          princ_str("=VV[",VV[29]);          princ_str("=VV[",VV[29]);
1617          V215= (*(LnkLI140))(caddr((V209)));          V217= (*(LnkLI140))(caddr((V211)));
1618          (void)((*(LnkLI117))(/* INLINE-ARGS */V215));          (void)((*(LnkLI117))(/* INLINE-ARGS */V217));
1619          princ_str("]->s.s_gfdef;",VV[29]);          princ_str("]->s.s_gfdef;",VV[29]);
1620  goto T702;  goto T705;
1621  T702:;  T705:;
1622          {object V216 = (V213);          {object V218 = (V215);
1623          VMR17(V216)}}          VMR17(V218)}}
1624  goto T693;  goto T696;
1625  T693:;  T696:;
1626          {object V217 = Cnil;          {object V219 = Cnil;
1627          VMR17(V217)}          VMR17(V219)}
1628  goto T691;  goto T694;
1629  T691:;  T694:;
1630          if((V210!= VV[18]))goto T716;          if((V212!= VV[18]))goto T719;
1631          {object V218;          {object V220;
1632          V218= list(2,VV[27],(*(LnkLI114))());          V220= list(2,VV[27],(*(LnkLI114))());
1633          bds_bind(VV[21],(V218));          bds_bind(VV[21],(V220));
1634          (void)((*(LnkLI115))(caddr((V209))));          (void)((*(LnkLI115))(caddr((V211))));
1635          {object V219 = (V218);          {object V221 = (V220);
1636          bds_unwind1;          bds_unwind1;
1637          VMR17(V219)}}          VMR17(V221)}}
1638  goto T716;  goto T719;
1639  T716:;  T719:;
1640          {object V220 = (*(LnkLI112))();          {object V222 = (*(LnkLI112))();
1641          VMR17(V220)}}          VMR17(V222)}}
1642          base[0]=base[0];          base[0]=base[0];
1643          return Cnil;          return Cnil;
1644  }  }
1645  /*      local entry for function PUSH-ARGS      */  /*      local entry for function PUSH-ARGS      */
1646    
1647  static object LI18(V222)  static object LI18(V224)
1648    
1649  object V222;  object V224;
1650  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1651          bds_check;          bds_check;
1652  goto TTL;  goto TTL;
1653  TTL:;  TTL:;
1654          if(((V222))!=Cnil){          if(((V224))!=Cnil){
1655          goto T720;}          goto T723;}
1656          princ_str("\n   vs_base=vs_top;",VV[29]);          princ_str("\n   vs_base=vs_top;",VV[29]);
1657          {object V223 = Cnil;          {object V225 = Cnil;
1658          VMR18(V223)}          VMR18(V225)}
1659  goto T720;  goto T723;
1660  T720:;  T723:;
1661          if(!(type_of((V222))==t_cons)){          if(!(type_of((V224))==t_cons)){
1662          goto T724;}          goto T727;}
1663          {object V224;          {object V226;
1664          V224= symbol_value(VV[19]);          V226= symbol_value(VV[19]);
1665          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],symbol_value(VV[19]));
1666          {register object V225;          {register object V227;
1667          register object V226;          register object V228;
1668          V225= (V222);          V227= (V224);
1669          V226= car((V225));          V228= car((V227));
1670  goto T731;  goto T734;
1671  T731:;  T734:;
1672          if(!(endp_prop((V225)))){          if(!(endp_prop((V227)))){
1673          goto T732;}          goto T735;}
1674          goto T727;          goto T730;
1675  goto T732;  goto T735;
1676  T732:;  T735:;
1677          base[2]= list(2,VV[27],(*(LnkLI114))());          base[2]= list(2,VV[27],(*(LnkLI114))());
1678          bds_bind(VV[21],base[2]);          bds_bind(VV[21],base[2]);
1679          V227= (*(LnkLI115))((V226));          V229= (*(LnkLI115))((V228));
1680          bds_unwind1;          bds_unwind1;
1681          V225= cdr((V225));          V227= cdr((V227));
1682          V226= car((V225));          V228= car((V227));
1683          goto T731;}          goto T734;}
1684  goto T727;  goto T730;
1685  T727:;  T730:;
1686          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
1687          (void)((*(LnkLI117))((V224)));          (void)((*(LnkLI117))((V226)));
1688          princ_str(")+",VV[29]);          princ_str(")+",VV[29]);
1689          V228= number_minus((VV[19]->s.s_dbind),(V224));          V230= number_minus((VV[19]->s.s_dbind),(V226));
1690          (void)((*(LnkLI117))(/* INLINE-ARGS */V228));          (void)((*(LnkLI117))(/* INLINE-ARGS */V230));
1691          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1692          setq(VV[37],Ct);          setq(VV[37],Ct);
1693          {object V229 = Ct;          {object V231 = Ct;
1694          bds_unwind1;          bds_unwind1;
1695          VMR18(V229)}}          VMR18(V231)}}
1696  goto T724;  goto T727;
1697  T724:;  T727:;
1698          {object V230 = Cnil;          {object V232 = Cnil;
1699          VMR18(V230)}          VMR18(V232)}
1700          base[0]=base[0];          base[0]=base[0];
1701          return Cnil;          return Cnil;
1702  }  }
1703  /*      local entry for function PUSH-ARGS-LISPCALL     */  /*      local entry for function PUSH-ARGS-LISPCALL     */
1704    
1705  static object LI19(V232)  static object LI19(V234)
1706    
1707  object V232;  object V234;
1708  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1709          bds_check;          bds_check;
1710  goto TTL;  goto TTL;
1711  TTL:;  TTL:;
1712          {register object V233;          {register object V235;
1713          register object V234;          register object V236;
1714          V233= (V232);          V235= (V234);
1715          V234= car((V233));          V236= car((V235));
1716  goto T753;  goto T756;
1717  T753:;  T756:;
1718          if(!(endp_prop((V233)))){          if(!(endp_prop((V235)))){
1719          goto T754;}          goto T757;}
1720          {object V235 = Cnil;          {object V237 = Cnil;
1721          VMR19(V235)}          VMR19(V237)}
1722  goto T754;  goto T757;
1723  T754:;  T757:;
1724          base[1]= list(2,VV[27],(*(LnkLI114))());          base[1]= list(2,VV[27],(*(LnkLI114))());
1725          bds_bind(VV[21],base[1]);          bds_bind(VV[21],base[1]);
1726          V236= (*(LnkLI115))((V234));          V238= (*(LnkLI115))((V236));
1727          bds_unwind1;          bds_unwind1;
1728          V233= cdr((V233));          V235= cdr((V235));
1729          V234= car((V233));          V236= car((V235));
1730          goto T753;}          goto T756;}
1731          base[0]=base[0];          base[0]=base[0];
1732          return Cnil;          return Cnil;
1733  }  }
1734  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */
1735    
1736  static object LI20(V241,V242,V243,V244)  static object LI20(V243,V244,V245,V246)
1737    
1738  register object V241;register object V242;register object V243;register object V244;  register object V243;register object V244;register object V245;register object V246;
1739  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1740  goto TTL;  goto TTL;
1741  TTL:;  TTL:;
1742          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
1743          goto T766;}          goto T769;}
1744          if(((V243))!=Cnil){          if(((V245))!=Cnil){
1745          goto T768;}          goto T771;}
1746          V243= list(2,VV[27],(*(LnkLI114))());          V245= list(2,VV[27],(*(LnkLI114))());
1747          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1748          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1749          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1750          V245= (*(LnkLI140))((V241));          V247= (*(LnkLI140))((V243));
1751          (void)((*(LnkLI117))(/* INLINE-ARGS */V245));          (void)((*(LnkLI117))(/* INLINE-ARGS */V247));
1752          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1753  goto T768;  goto T771;
1754  T768:;  T771:;
1755          (void)((*(LnkLI116))((V242)));          (void)((*(LnkLI116))((V244)));
1756          princ_str("\n   funcall_with_catcher(VV[",VV[29]);          princ_str("\n   funcall_with_catcher(VV[",VV[29]);
1757          V246= (*(LnkLI140))((V241));          V248= (*(LnkLI140))((V243));
1758          (void)((*(LnkLI117))(/* INLINE-ARGS */V246));          (void)((*(LnkLI117))(/* INLINE-ARGS */V248));
1759          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1760          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1761          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1762          {object V247 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241)));          {object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1763          VMR20(V247)}          VMR20(V249)}
1764  goto T766;  goto T769;
1765  T766:;  T769:;
1766          if(((V243))==Cnil){          if(((V245))==Cnil){
1767          goto T786;}          goto T789;}
1768          (void)((*(LnkLI116))((V242)));          (void)((*(LnkLI116))((V244)));
1769          if(((V244))==Cnil){          if(((V246))==Cnil){
         goto T791;}  
         if((symbol_value(VV[83]))==Cnil){  
1770          goto T794;}          goto T794;}
1771            if((symbol_value(VV[83]))==Cnil){
1772            goto T797;}
1773          princ_str("\n   funcall_no_event(",VV[29]);          princ_str("\n   funcall_no_event(",VV[29]);
1774          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1775          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1776          goto T789;          goto T792;
1777  goto T794;  goto T797;
1778  T794:;  T797:;
1779          princ_str("\n   CMPfuncall(",VV[29]);          princ_str("\n   CMPfuncall(",VV[29]);
1780          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1781          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1782          goto T789;          goto T792;
1783  goto T791;  goto T794;
1784  T791:;  T794:;
1785          princ_str("\n   funcall(",VV[29]);          princ_str("\n   funcall(",VV[29]);
1786          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1787          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1788    goto T792;
1789    T792:;
1790            {object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1791            VMR20(V250)}
1792  goto T789;  goto T789;
1793  T789:;  T789:;
1794          {object V248 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          if(((*(LnkLI151))((V244)))==Cnil){
1795          VMR20(V248)}          goto T809;}
1796  goto T786;          {object V251;
1797  T786:;          V251= symbol_value(VV[19]);
1798          if(((*(LnkLI151))((V242)))==Cnil){          V245= list(2,VV[27],(*(LnkLI114))());
         goto T806;}  
         {object V249;  
         V249= symbol_value(VV[19]);  
         V243= list(2,VV[27],(*(LnkLI114))());  
1799          if((symbol_value(VV[83]))==Cnil){          if((symbol_value(VV[83]))==Cnil){
1800          goto T812;}          goto T815;}
1801          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1802          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1803          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1804          V250= (*(LnkLI140))((V241));          V252= (*(LnkLI140))((V243));
1805          (void)((*(LnkLI117))(/* INLINE-ARGS */V250));          (void)((*(LnkLI117))(/* INLINE-ARGS */V252));
1806          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1807          goto T810;          goto T813;
1808  goto T812;  goto T815;
1809  T812:;  T815:;
1810          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1811          (void)((*(LnkLI117))((V243)));          (void)((*(LnkLI117))((V245)));
1812          princ_str("=(VV[",VV[29]);          princ_str("=(VV[",VV[29]);
1813          V251= (*(LnkLI140))((V241));          V253= (*(LnkLI140))((V243));
1814          (void)((*(LnkLI117))(/* INLINE-ARGS */V251));          (void)((*(LnkLI117))(/* INLINE-ARGS */V253));
1815          princ_str("]->s.s_gfdef);",VV[29]);          princ_str("]->s.s_gfdef);",VV[29]);
1816  goto T810;  goto T813;
1817  T810:;  T813:;
1818          (void)((*(LnkLI120))((V242)));          (void)((*(LnkLI120))((V244)));
1819          if((symbol_value(VV[21]))==(VV[94])){          if((symbol_value(VV[21]))==(VV[94])){
1820          goto T825;}          goto T828;}
1821          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
1822          goto T826;}          goto T829;}
1823  goto T825;  goto T828;
1824  T825:;  T828:;
1825          princ_str("\n   lispcall",VV[29]);          princ_str("\n   lispcall",VV[29]);
1826          if(((V244))==Cnil){          if(((V246))==Cnil){
1827          goto T832;}          goto T835;}
1828          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1829  goto T832;  goto T835;
1830  T832:;  T835:;
1831          princ_str("(base+",VV[29]);          princ_str("(base+",VV[29]);
1832          (void)((*(LnkLI117))((V249)));          (void)((*(LnkLI117))((V251)));
1833          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1834          V252 = make_fixnum((long)length((V242)));          V254 = make_fixnum((long)length((V244)));
1835          (void)((*(LnkLI117))(V252));          (void)((*(LnkLI117))(V254));
1836          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1837          setq(VV[37],Ct);          setq(VV[37],Ct);
1838          {object V253 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1839          VMR20(V253)}          VMR20(V255)}
1840  goto T826;  goto T829;
1841  T826:;  T829:;
1842          if(((V244))==Cnil){          if(((V246))==Cnil){
         goto T846;}  
         V254= VV[96];  
         goto T844;  
 goto T846;  
 T846:;  
         V254= VV[97];  
 goto T844;  
 T844:;  
         V255 = make_fixnum((long)length((V242)));  
         V256= list(4,VV[95],V254,(V249),V255);  
         {object V257 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V256));  
         VMR20(V257)}}  
 goto T806;  
 T806:;  
         {object V258;  
         V258= symbol_value(VV[19]);  
         (void)((*(LnkLI120))((V242)));  
         if((symbol_value(VV[21]))==(VV[94])){  
1843          goto T849;}          goto T849;}
1844          if(!((symbol_value(VV[21]))==(VV[59]))){          V256= VV[96];
1845          goto T850;}          goto T847;
1846  goto T849;  goto T849;
1847  T849:;  T849:;
1848            V256= VV[97];
1849    goto T847;
1850    T847:;
1851            V257 = make_fixnum((long)length((V244)));
1852            V258= list(4,VV[95],V256,(V251),V257);
1853            {object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258));
1854            VMR20(V259)}}
1855    goto T809;
1856    T809:;
1857            {object V260;
1858            V260= symbol_value(VV[19]);
1859            (void)((*(LnkLI120))((V244)));
1860            if((symbol_value(VV[21]))==(VV[94])){
1861            goto T852;}
1862            if(!((symbol_value(VV[21]))==(VV[59]))){
1863            goto T853;}
1864    goto T852;
1865    T852:;
1866          princ_str("\n   symlispcall",VV[29]);          princ_str("\n   symlispcall",VV[29]);
1867          if(((V244))==Cnil){          if(((V246))==Cnil){
1868          goto T856;}          goto T859;}
1869          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1870  goto T856;  goto T859;
1871  T856:;  T859:;
1872          princ_str("(VV[",VV[29]);          princ_str("(VV[",VV[29]);
1873          V259= (*(LnkLI140))((V241));          V261= (*(LnkLI140))((V243));
1874          (void)((*(LnkLI117))(/* INLINE-ARGS */V259));          (void)((*(LnkLI117))(/* INLINE-ARGS */V261));
1875          princ_str("],base+",VV[29]);          princ_str("],base+",VV[29]);
1876          (void)((*(LnkLI117))((V258)));          (void)((*(LnkLI117))((V260)));
1877          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1878          V260 = make_fixnum((long)length((V242)));          V262 = make_fixnum((long)length((V244)));
1879          (void)((*(LnkLI117))(V260));          (void)((*(LnkLI117))(V262));
1880          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1881          setq(VV[37],Ct);          setq(VV[37],Ct);
1882          {object V261 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241)));          {object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1883          VMR20(V261)}          VMR20(V263)}
1884  goto T850;  goto T853;
1885  T850:;  T853:;
1886          if(((V244))==Cnil){          if(((V246))==Cnil){
1887          goto T872;}          goto T875;}
1888          V262= VV[98];          V264= VV[98];
1889          goto T870;          goto T873;
1890  goto T872;  goto T875;
1891  T872:;  T875:;
1892          V262= VV[99];          V264= VV[99];
1893  goto T870;  goto T873;
1894  T870:;  T873:;
1895          V263 = make_fixnum((long)length((V242)));          V265 = make_fixnum((long)length((V244)));
1896          V264= list(5,VV[95],V262,(V258),V263,(*(LnkLI140))((V241)));          V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243)));
1897          {object V265 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V264,Cnil,(V241)));          {object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243)));
1898          VMR20(V265)}}          VMR20(V267)}}
1899          return Cnil;          return Cnil;
1900  }  }
1901  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 1901  register object *base0; Line 1905  register object *base0;
1905  {       register object *base=vs_base;  {       register object *base=vs_base;
1906          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1907          vs_reserve(VM21);          vs_reserve(VM21);
1908          {object V266;          {object V268;
1909          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1910          {object *p=vs_top;          {object *p=vs_top;
1911           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1912          V266=(base[0]);          V268=(base[0]);
1913          vs_top=sup;          vs_top=sup;
1914          princ_str("(VFUN_NARGS=",VV[29]);          princ_str("(VFUN_NARGS=",VV[29]);
1915          V267 = make_fixnum((long)length((V266)));          V269 = make_fixnum((long)length((V268)));
1916          (void)((*(LnkLI117))(V267));          (void)((*(LnkLI117))(V269));
1917          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1918          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1919          base[2]= (V266);          base[2]= (V268);
1920          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1921          (void) (*Lnk152)();          (void) (*Lnk152)();
1922          vs_top=sup;          vs_top=sup;

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

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