/[gcl]/gcl/lsp/seqlib.c
ViewVC logotype

Diff of /gcl/lsp/seqlib.c

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

revision 1.13 by camm, Sun Nov 17 20:09:57 2002 UTC revision 1.14 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 140  TTL:; Line 140  TTL:;
140  }  }
141  /*      local entry for function BAD-SEQ-LIMIT  */  /*      local entry for function BAD-SEQ-LIMIT  */
142    
143  static object LI5(V28,va_alist)  static object LI5(object V28,object first,...)
         object V28;  
         va_dcl  
144  {        {      
145          va_list ap;          va_list ap;
146          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
147          {object V29;          {object V29;
148          object V30;          object V30;
149          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
150          va_start(ap);          va_start(ap,first);
151          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
152          V29= V28;          V29= V28;
153          narg = narg - 1;          narg = narg - 1;
154          if (narg <= 0) goto T39;          if (narg <= 0) goto T39;
155          else {          else {
156          V30= va_arg(ap,object);}          V30= first;}
157          --narg; goto T40;          --narg; goto T40;
158  goto T39;  goto T39;
159  T39:;  T39:;
# Line 378  T112:; Line 376  T112:;
376  }  }
377  /*      local entry for function FILL   */  /*      local entry for function FILL   */
378    
379  static object LI9(V64,V63,va_alist)  static object LI9(object V64,object V63,object first,...)
         object V64,V63;  
         va_dcl  
380  {        {      
381          va_list ap;          va_list ap;
382          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
# Line 389  static object LI9(V64,V63,va_alist) Line 385  static object LI9(V64,V63,va_alist)
385          object V67;          object V67;
386          object V68;          object V68;
387          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
388          va_start(ap);          va_start(ap,first);
389          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
390          V65= V64;          V65= V64;
391          V66= V63;          V66= V63;
392          narg= narg - 2;          narg= narg - 2;
393          {          {
394          parse_key_new(narg,Vcs +2,(struct key *)&LI9key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI9key,first,ap);
395          V67=(Vcs[2]);          V67=(Vcs[2]);
396          V68=(Vcs[3]);          V68=(Vcs[3]);
397          {long V69;          {long V69;
# Line 438  T134:; Line 434  T134:;
434          }}          }}
435  /*      local entry for function REPLACE        */  /*      local entry for function REPLACE        */
436    
437  static object LI10(V76,V75,va_alist)  static object LI10(object V76,object V75,object first,...)
         object V76,V75;  
         va_dcl  
438  {        {      
439          va_list ap;          va_list ap;
440          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
# Line 451  static object LI10(V76,V75,va_alist) Line 445  static object LI10(V76,V75,va_alist)
445          object V81;          object V81;
446          object V82;          object V82;
447          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
448          va_start(ap);          va_start(ap,first);
449          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
450          V77= V76;          V77= V76;
451          V78= V75;          V78= V75;
452          narg= narg - 2;          narg= narg - 2;
453          {          {
454          parse_key_new(narg,Vcs +2,(struct key *)&LI10key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI10key,first,ap);
455          V79=(Vcs[2]);          V79=(Vcs[2]);
456          V80=(Vcs[3]);          V80=(Vcs[3]);
457          V81=(Vcs[4]);          V81=(Vcs[4]);
# Line 577  T193:; Line 571  T193:;
571          }}          }}
572  /*      local entry for function REMOVE */  /*      local entry for function REMOVE */
573    
574  static object LI11(V104,V103,va_alist)  static object LI11(object V104,object V103,object first,...)
         object V104,V103;  
         va_dcl  
575  {        {      
576          va_list ap;          va_list ap;
577          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
# Line 593  static object LI11(V104,V103,va_alist) Line 585  static object LI11(V104,V103,va_alist)
585          object V112;          object V112;
586          object V113;          object V113;
587          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
588          va_start(ap);          va_start(ap,first);
589          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
590          V105= V104;          V105= V104;
591          V106= V103;          V106= V103;
592          narg= narg - 2;          narg= narg - 2;
593          {          {
594          parse_key_new(narg,Vcs +2,(struct key *)&LI11key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI11key,first,ap);
595          V107=(Vcs[2]);          V107=(Vcs[2]);
596          V108=(Vcs[3]);          V108=(Vcs[3]);
597          V109=(Vcs[4]);          V109=(Vcs[4]);
# Line 749  T223:; Line 741  T223:;
741          }}          }}
742  /*      local entry for function REMOVE-IF      */  /*      local entry for function REMOVE-IF      */
743    
744  static object LI12(V142,V141,va_alist)  static object LI12(object V142,object V141,object first,...)
         object V142,V141;  
         va_dcl  
745  {        {      
746          va_list ap;          va_list ap;
747          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
# Line 763  static object LI12(V142,V141,va_alist) Line 753  static object LI12(V142,V141,va_alist)
753          object V148;          object V148;
754          object V149;          object V149;
755          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
756          va_start(ap);          va_start(ap,first);
757          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
758          V143= V142;          V143= V142;
759          V144= V141;          V144= V141;
760          narg= narg - 2;          narg= narg - 2;
761          {          {
762          parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI12key,first,ap);
763          V145=(Vcs[2]);          V145=(Vcs[2]);
764          V146=(Vcs[3]);          V146=(Vcs[3]);
765          V147=(Vcs[4]);          V147=(Vcs[4]);
# Line 791  T281:; Line 781  T281:;
781          }}          }}
782  /*      local entry for function REMOVE-IF-NOT  */  /*      local entry for function REMOVE-IF-NOT  */
783    
784  static object LI13(V153,V152,va_alist)  static object LI13(object V153,object V152,object first,...)
         object V153,V152;  
         va_dcl  
785  {        {      
786          va_list ap;          va_list ap;
787          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
# Line 805  static object LI13(V153,V152,va_alist) Line 793  static object LI13(V153,V152,va_alist)
793          object V159;          object V159;
794          object V160;          object V160;
795          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
796          va_start(ap);          va_start(ap,first);
797          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
798          V154= V153;          V154= V153;
799          V155= V152;          V155= V152;
800          narg= narg - 2;          narg= narg - 2;
801          {          {
802          parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI13key,first,ap);
803          V156=(Vcs[2]);          V156=(Vcs[2]);
804          V157=(Vcs[3]);          V157=(Vcs[3]);
805          V158=(Vcs[4]);          V158=(Vcs[4]);
# Line 833  T287:; Line 821  T287:;
821          }}          }}
822  /*      local entry for function DELETE */  /*      local entry for function DELETE */
823    
824  static object LI14(V164,V163,va_alist)  static object LI14(object V164,object V163,object first,...)
         object V164,V163;  
         va_dcl  
825  {        {      
826          va_list ap;          va_list ap;
827          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
# Line 849  static object LI14(V164,V163,va_alist) Line 835  static object LI14(V164,V163,va_alist)
835          object V172;          object V172;
836          object V173;          object V173;
837          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
838          va_start(ap);          va_start(ap,first);
839          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
840          V165= V164;          V165= V164;
841          V166= V163;          V166= V163;
842          narg= narg - 2;          narg= narg - 2;
843          {          {
844          parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI14key,first,ap);
845          V167=(Vcs[2]);          V167=(Vcs[2]);
846          V168=(Vcs[3]);          V168=(Vcs[3]);
847          V169=(Vcs[4]);          V169=(Vcs[4]);
# Line 1108  T415:; Line 1094  T415:;
1094          }}          }}
1095  /*      local entry for function DELETE-IF      */  /*      local entry for function DELETE-IF      */
1096    
1097  static object LI15(V230,V229,va_alist)  static object LI15(object V230,object V229,object first,...)
         object V230,V229;  
         va_dcl  
1098  {        {      
1099          va_list ap;          va_list ap;
1100          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
# Line 1122  static object LI15(V230,V229,va_alist) Line 1106  static object LI15(V230,V229,va_alist)
1106          object V236;          object V236;
1107          object V237;          object V237;
1108          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1109          va_start(ap);          va_start(ap,first);
1110          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1111          V231= V230;          V231= V230;
1112          V232= V229;          V232= V229;
1113          narg= narg - 2;          narg= narg - 2;
1114          {          {
1115          parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI15key,first,ap);
1116          V233=(Vcs[2]);          V233=(Vcs[2]);
1117          V234=(Vcs[3]);          V234=(Vcs[3]);
1118          V235=(Vcs[4]);          V235=(Vcs[4]);
# Line 1150  T434:; Line 1134  T434:;
1134          }}          }}
1135  /*      local entry for function DELETE-IF-NOT  */  /*      local entry for function DELETE-IF-NOT  */
1136    
1137  static object LI16(V241,V240,va_alist)  static object LI16(object V241,object V240,object first,...)
         object V241,V240;  
         va_dcl  
1138  {        {      
1139          va_list ap;          va_list ap;
1140          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
# Line 1164  static object LI16(V241,V240,va_alist) Line 1146  static object LI16(V241,V240,va_alist)
1146          object V247;          object V247;
1147          object V248;          object V248;
1148          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1149          va_start(ap);          va_start(ap,first);
1150          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1151          V242= V241;          V242= V241;
1152          V243= V240;          V243= V240;
1153          narg= narg - 2;          narg= narg - 2;
1154          {          {
1155          parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI16key,first,ap);
1156          V244=(Vcs[2]);          V244=(Vcs[2]);
1157          V245=(Vcs[3]);          V245=(Vcs[3]);
1158          V246=(Vcs[4]);          V246=(Vcs[4]);
# Line 1192  T440:; Line 1174  T440:;
1174          }}          }}
1175  /*      local entry for function COUNT  */  /*      local entry for function COUNT  */
1176    
1177  static object LI17(V252,V251,va_alist)  static object LI17(object V252,object V251,object first,...)
         object V252,V251;  
         va_dcl  
1178  {        {      
1179          va_list ap;          va_list ap;
1180          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
# Line 1207  static object LI17(V252,V251,va_alist) Line 1187  static object LI17(V252,V251,va_alist)
1187          object V259;          object V259;
1188          register object V260;          register object V260;
1189          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1190          va_start(ap);          va_start(ap,first);
1191          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1192          V253= V252;          V253= V252;
1193          V254= V251;          V254= V251;
1194          narg= narg - 2;          narg= narg - 2;
1195          {          {
1196          parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI17key,first,ap);
1197          V255=(Vcs[2]);          V255=(Vcs[2]);
1198          V256=(Vcs[3]);          V256=(Vcs[3]);
1199          V257=(Vcs[4]);          V257=(Vcs[4]);
# Line 1315  T487:; Line 1295  T487:;
1295          }}          }}
1296  /*      local entry for function COUNT-IF       */  /*      local entry for function COUNT-IF       */
1297    
1298  static object LI18(V274,V273,va_alist)  static object LI18(object V274,object V273,object first,...)
         object V274,V273;  
         va_dcl  
1299  {        {      
1300          va_list ap;          va_list ap;
1301          int narg = VFUN_NARGS; VMB18 VMS18 VMV18          int narg = VFUN_NARGS; VMB18 VMS18 VMV18
# Line 1328  static object LI18(V274,V273,va_alist) Line 1306  static object LI18(V274,V273,va_alist)
1306          object V279;          object V279;
1307          object V280;          object V280;
1308          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1309          va_start(ap);          va_start(ap,first);
1310          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1311          V275= V274;          V275= V274;
1312          V276= V273;          V276= V273;
1313          narg= narg - 2;          narg= narg - 2;
1314          {          {
1315          parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI18key,first,ap);
1316          V277=(Vcs[2]);          V277=(Vcs[2]);
1317          V278=(Vcs[3]);          V278=(Vcs[3]);
1318          V279=(Vcs[4]);          V279=(Vcs[4]);
# Line 1355  T497:; Line 1333  T497:;
1333          }}          }}
1334  /*      local entry for function COUNT-IF-NOT   */  /*      local entry for function COUNT-IF-NOT   */
1335    
1336  static object LI19(V284,V283,va_alist)  static object LI19(object V284,object V283,object first,...)
         object V284,V283;  
         va_dcl  
1337  {        {      
1338          va_list ap;          va_list ap;
1339          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
# Line 1368  static object LI19(V284,V283,va_alist) Line 1344  static object LI19(V284,V283,va_alist)
1344          object V289;          object V289;
1345          object V290;          object V290;
1346          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1347          va_start(ap);          va_start(ap,first);
1348          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1349          V285= V284;          V285= V284;
1350          V286= V283;          V286= V283;
1351          narg= narg - 2;          narg= narg - 2;
1352          {          {
1353          parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI19key,first,ap);
1354          V287=(Vcs[2]);          V287=(Vcs[2]);
1355          V288=(Vcs[3]);          V288=(Vcs[3]);
1356          V289=(Vcs[4]);          V289=(Vcs[4]);
# Line 1395  T503:; Line 1371  T503:;
1371          }}          }}
1372  /*      local entry for function INTERNAL-COUNT */  /*      local entry for function INTERNAL-COUNT */
1373    
1374  static object LI20(V294,V293,va_alist)  static object LI20(object V294,object V293,object first,...)
         object V294,V293;  
         va_dcl  
1375  {        {      
1376          va_list ap;          va_list ap;
1377          int narg = VFUN_NARGS; VMB20 VMS20 VMV20          int narg = VFUN_NARGS; VMB20 VMS20 VMV20
# Line 1411  static object LI20(V294,V293,va_alist) Line 1385  static object LI20(V294,V293,va_alist)
1385          object V302;          object V302;
1386          register object V303;          register object V303;
1387          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1388          va_start(ap);          va_start(ap,first);
1389          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1390          V295= V294;          V295= V294;
1391          V296= V293;          V296= V293;
1392          narg= narg - 2;          narg= narg - 2;
1393          {          {
1394          parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI20key,first,ap);
1395          V297=(Vcs[2]);          V297=(Vcs[2]);
1396          V298=(Vcs[3]);          V298=(Vcs[3]);
1397          V299=(Vcs[4]);          V299=(Vcs[4]);
# Line 1537  T557:; Line 1511  T557:;
1511          }}          }}
1512  /*      local entry for function INTERNAL-COUNT-IF      */  /*      local entry for function INTERNAL-COUNT-IF      */
1513    
1514  static object LI21(V322,V321,va_alist)  static object LI21(object V322,object V321,object first,...)
         object V322,V321;  
         va_dcl  
1515  {        {      
1516          va_list ap;          va_list ap;
1517          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
# Line 1551  static object LI21(V322,V321,va_alist) Line 1523  static object LI21(V322,V321,va_alist)
1523          object V328;          object V328;
1524          object V329;          object V329;
1525          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1526          va_start(ap);          va_start(ap,first);
1527          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1528          V323= V322;          V323= V322;
1529          V324= V321;          V324= V321;
1530          narg= narg - 2;          narg= narg - 2;
1531          {          {
1532          parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI21key,first,ap);
1533          V325=(Vcs[2]);          V325=(Vcs[2]);
1534          V326=(Vcs[3]);          V326=(Vcs[3]);
1535          V327=(Vcs[4]);          V327=(Vcs[4]);
# Line 1579  T569:; Line 1551  T569:;
1551          }}          }}
1552  /*      local entry for function INTERNAL-COUNT-IF-NOT  */  /*      local entry for function INTERNAL-COUNT-IF-NOT  */
1553    
1554  static object LI22(V333,V332,va_alist)  static object LI22(object V333,object V332,object first,...)
         object V333,V332;  
         va_dcl  
1555  {        {      
1556          va_list ap;          va_list ap;
1557          int narg = VFUN_NARGS; VMB22 VMS22 VMV22          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
# Line 1593  static object LI22(V333,V332,va_alist) Line 1563  static object LI22(V333,V332,va_alist)
1563          object V339;          object V339;
1564          object V340;          object V340;
1565          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1566          va_start(ap);          va_start(ap,first);
1567          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1568          V334= V333;          V334= V333;
1569          V335= V332;          V335= V332;
1570          narg= narg - 2;          narg= narg - 2;
1571          {          {
1572          parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI22key,first,ap);
1573          V336=(Vcs[2]);          V336=(Vcs[2]);
1574          V337=(Vcs[3]);          V337=(Vcs[3]);
1575          V338=(Vcs[4]);          V338=(Vcs[4]);
# Line 1621  T575:; Line 1591  T575:;
1591          }}          }}
1592  /*      local entry for function SUBSTITUTE     */  /*      local entry for function SUBSTITUTE     */
1593    
1594  static object LI23(V345,V344,V343,va_alist)  static object LI23(object V345,object V344,object V343,object first,...)
         object V345,V344,V343;  
         va_dcl  
1595  {        {      
1596          va_list ap;          va_list ap;
1597          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
# Line 1638  static object LI23(V345,V344,V343,va_ali Line 1606  static object LI23(V345,V344,V343,va_ali
1606          object V354;          object V354;
1607          object V355;          object V355;
1608          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1609          va_start(ap);          va_start(ap,first);
1610          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1611          V346= V345;          V346= V345;
1612          V347= V344;          V347= V344;
1613          V348= V343;          V348= V343;
1614          narg= narg - 3;          narg= narg - 3;
1615          {          {
1616          parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI23key,first,ap);
1617          V349=(Vcs[3]);          V349=(Vcs[3]);
1618          V350=(Vcs[4]);          V350=(Vcs[4]);
1619          V351=(Vcs[5]);          V351=(Vcs[5]);
# Line 1795  T638:; Line 1763  T638:;
1763          }}          }}
1764  /*      local entry for function SUBSTITUTE-IF  */  /*      local entry for function SUBSTITUTE-IF  */
1765    
1766  static object LI24(V384,V383,V382,va_alist)  static object LI24(object V384,object V383,object V382,object first,...)
         object V384,V383,V382;  
         va_dcl  
1767  {        {      
1768          va_list ap;          va_list ap;
1769          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
# Line 1810  static object LI24(V384,V383,V382,va_ali Line 1776  static object LI24(V384,V383,V382,va_ali
1776          object V391;          object V391;
1777          object V392;          object V392;
1778          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1779          va_start(ap);          va_start(ap,first);
1780          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1781          V385= V384;          V385= V384;
1782          V386= V383;          V386= V383;
1783          V387= V382;          V387= V382;
1784          narg= narg - 3;          narg= narg - 3;
1785          {          {
1786          parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI24key,first,ap);
1787          V388=(Vcs[3]);          V388=(Vcs[3]);
1788          V389=(Vcs[4]);          V389=(Vcs[4]);
1789          V390=(Vcs[5]);          V390=(Vcs[5]);
# Line 1839  T656:; Line 1805  T656:;
1805          }}          }}
1806  /*      local entry for function SUBSTITUTE-IF-NOT      */  /*      local entry for function SUBSTITUTE-IF-NOT      */
1807    
1808  static object LI25(V397,V396,V395,va_alist)  static object LI25(object V397,object V396,object V395,object first,...)
         object V397,V396,V395;  
         va_dcl  
1809  {        {      
1810          va_list ap;          va_list ap;
1811          int narg = VFUN_NARGS; VMB25 VMS25 VMV25          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
# Line 1854  static object LI25(V397,V396,V395,va_ali Line 1818  static object LI25(V397,V396,V395,va_ali
1818          object V404;          object V404;
1819          object V405;          object V405;
1820          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1821          va_start(ap);          va_start(ap,first);
1822          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1823          V398= V397;          V398= V397;
1824          V399= V396;          V399= V396;
1825          V400= V395;          V400= V395;
1826          narg= narg - 3;          narg= narg - 3;
1827          {          {
1828          parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI25key,first,ap);
1829          V401=(Vcs[3]);          V401=(Vcs[3]);
1830          V402=(Vcs[4]);          V402=(Vcs[4]);
1831          V403=(Vcs[5]);          V403=(Vcs[5]);
# Line 1883  T662:; Line 1847  T662:;
1847          }}          }}
1848  /*      local entry for function NSUBSTITUTE    */  /*      local entry for function NSUBSTITUTE    */
1849    
1850  static object LI26(V410,V409,V408,va_alist)  static object LI26(object V410,object V409,object V408,object first,...)
         object V410,V409,V408;  
         va_dcl  
1851  {        {      
1852          va_list ap;          va_list ap;
1853          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
# Line 1900  static object LI26(V410,V409,V408,va_ali Line 1862  static object LI26(V410,V409,V408,va_ali
1862          object V419;          object V419;
1863          register object V420;          register object V420;
1864          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
1865          va_start(ap);          va_start(ap,first);
1866          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1867          V411= V410;          V411= V410;
1868          V412= V409;          V412= V409;
1869          V413= V408;          V413= V408;
1870          narg= narg - 3;          narg= narg - 3;
1871          {          {
1872          parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI26key,first,ap);
1873          V414=(Vcs[3]);          V414=(Vcs[3]);
1874          V415=(Vcs[4]);          V415=(Vcs[4]);
1875          V416=(Vcs[5]);          V416=(Vcs[5]);
# Line 2029  T717:; Line 1991  T717:;
1991          }}          }}
1992  /*      local entry for function NSUBSTITUTE-IF */  /*      local entry for function NSUBSTITUTE-IF */
1993    
1994  static object LI27(V440,V439,V438,va_alist)  static object LI27(object V440,object V439,object V438,object first,...)
         object V440,V439,V438;  
         va_dcl  
1995  {        {      
1996          va_list ap;          va_list ap;
1997          int narg = VFUN_NARGS; VMB27 VMS27 VMV27          int narg = VFUN_NARGS; VMB27 VMS27 VMV27
# Line 2044  static object LI27(V440,V439,V438,va_ali Line 2004  static object LI27(V440,V439,V438,va_ali
2004          object V447;          object V447;
2005          object V448;          object V448;
2006          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2007          va_start(ap);          va_start(ap,first);
2008          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2009          V441= V440;          V441= V440;
2010          V442= V439;          V442= V439;
2011          V443= V438;          V443= V438;
2012          narg= narg - 3;          narg= narg - 3;
2013          {          {
2014          parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI27key,first,ap);
2015          V444=(Vcs[3]);          V444=(Vcs[3]);
2016          V445=(Vcs[4]);          V445=(Vcs[4]);
2017          V446=(Vcs[5]);          V446=(Vcs[5]);
# Line 2073  T730:; Line 2033  T730:;
2033          }}          }}
2034  /*      local entry for function NSUBSTITUTE-IF-NOT     */  /*      local entry for function NSUBSTITUTE-IF-NOT     */
2035    
2036  static object LI28(V453,V452,V451,va_alist)  static object LI28(object V453,object V452,object V451,object first,...)
         object V453,V452,V451;  
         va_dcl  
2037  {        {      
2038          va_list ap;          va_list ap;
2039          int narg = VFUN_NARGS; VMB28 VMS28 VMV28          int narg = VFUN_NARGS; VMB28 VMS28 VMV28
# Line 2088  static object LI28(V453,V452,V451,va_ali Line 2046  static object LI28(V453,V452,V451,va_ali
2046          object V460;          object V460;
2047          object V461;          object V461;
2048          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2049          va_start(ap);          va_start(ap,first);
2050          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2051          V454= V453;          V454= V453;
2052          V455= V452;          V455= V452;
2053          V456= V451;          V456= V451;
2054          narg= narg - 3;          narg= narg - 3;
2055          {          {
2056          parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap);          parse_key_new_new(narg,Vcs +3,(struct key *)&LI28key,first,ap);
2057          V457=(Vcs[3]);          V457=(Vcs[3]);
2058          V458=(Vcs[4]);          V458=(Vcs[4]);
2059          V459=(Vcs[5]);          V459=(Vcs[5]);
# Line 2117  T736:; Line 2075  T736:;
2075          }}          }}
2076  /*      local entry for function FIND   */  /*      local entry for function FIND   */
2077    
2078  static object LI29(V465,V464,va_alist)  static object LI29(object V465,object V464,object first,...)
         object V465,V464;  
         va_dcl  
2079  {        {      
2080          va_list ap;          va_list ap;
2081          int narg = VFUN_NARGS; VMB29 VMS29 VMV29          int narg = VFUN_NARGS; VMB29 VMS29 VMV29
# Line 2132  static object LI29(V465,V464,va_alist) Line 2088  static object LI29(V465,V464,va_alist)
2088          object V472;          object V472;
2089          register object V473;          register object V473;
2090          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2091          va_start(ap);          va_start(ap,first);
2092          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2093          V466= V465;          V466= V465;
2094          V467= V464;          V467= V464;
2095          narg= narg - 2;          narg= narg - 2;
2096          {          {
2097          parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI29key,first,ap);
2098          V468=(Vcs[2]);          V468=(Vcs[2]);
2099          V469=(Vcs[3]);          V469=(Vcs[3]);
2100          V470=(Vcs[4]);          V470=(Vcs[4]);
# Line 2238  T780:; Line 2194  T780:;
2194          }}          }}
2195  /*      local entry for function FIND-IF        */  /*      local entry for function FIND-IF        */
2196    
2197  static object LI30(V487,V486,va_alist)  static object LI30(object V487,object V486,object first,...)
         object V487,V486;  
         va_dcl  
2198  {        {      
2199          va_list ap;          va_list ap;
2200          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
# Line 2251  static object LI30(V487,V486,va_alist) Line 2205  static object LI30(V487,V486,va_alist)
2205          object V492;          object V492;
2206          object V493;          object V493;
2207          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2208          va_start(ap);          va_start(ap,first);
2209          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2210          V488= V487;          V488= V487;
2211          V489= V486;          V489= V486;
2212          narg= narg - 2;          narg= narg - 2;
2213          {          {
2214          parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI30key,first,ap);
2215          V490=(Vcs[2]);          V490=(Vcs[2]);
2216          V491=(Vcs[3]);          V491=(Vcs[3]);
2217          V492=(Vcs[4]);          V492=(Vcs[4]);
# Line 2278  T789:; Line 2232  T789:;
2232          }}          }}
2233  /*      local entry for function FIND-IF-NOT    */  /*      local entry for function FIND-IF-NOT    */
2234    
2235  static object LI31(V497,V496,va_alist)  static object LI31(object V497,object V496,object first,...)
         object V497,V496;  
         va_dcl  
2236  {        {      
2237          va_list ap;          va_list ap;
2238          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
# Line 2291  static object LI31(V497,V496,va_alist) Line 2243  static object LI31(V497,V496,va_alist)
2243          object V502;          object V502;
2244          object V503;          object V503;
2245          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2246          va_start(ap);          va_start(ap,first);
2247          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2248          V498= V497;          V498= V497;
2249          V499= V496;          V499= V496;
2250          narg= narg - 2;          narg= narg - 2;
2251          {          {
2252          parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI31key,first,ap);
2253          V500=(Vcs[2]);          V500=(Vcs[2]);
2254          V501=(Vcs[3]);          V501=(Vcs[3]);
2255          V502=(Vcs[4]);          V502=(Vcs[4]);
# Line 2318  T795:; Line 2270  T795:;
2270          }}          }}
2271  /*      local entry for function POSITION       */  /*      local entry for function POSITION       */
2272    
2273  static object LI32(V507,V506,va_alist)  static object LI32(object V507,object V506,object first,...)
         object V507,V506;  
         va_dcl  
2274  {        {      
2275          va_list ap;          va_list ap;
2276          int narg = VFUN_NARGS; VMB32 VMS32 VMV32          int narg = VFUN_NARGS; VMB32 VMS32 VMV32
# Line 2333  static object LI32(V507,V506,va_alist) Line 2283  static object LI32(V507,V506,va_alist)
2283          object V514;          object V514;
2284          register object V515;          register object V515;
2285          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2286          va_start(ap);          va_start(ap,first);
2287          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2288          V508= V507;          V508= V507;
2289          V509= V506;          V509= V506;
2290          narg= narg - 2;          narg= narg - 2;
2291          {          {
2292          parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI32key,first,ap);
2293          V510=(Vcs[2]);          V510=(Vcs[2]);
2294          V511=(Vcs[3]);          V511=(Vcs[3]);
2295          V512=(Vcs[4]);          V512=(Vcs[4]);
# Line 2439  T839:; Line 2389  T839:;
2389          }}          }}
2390  /*      local entry for function POSITION-IF    */  /*      local entry for function POSITION-IF    */
2391    
2392  static object LI33(V529,V528,va_alist)  static object LI33(object V529,object V528,object first,...)
         object V529,V528;  
         va_dcl  
2393  {        {      
2394          va_list ap;          va_list ap;
2395          int narg = VFUN_NARGS; VMB33 VMS33 VMV33          int narg = VFUN_NARGS; VMB33 VMS33 VMV33
# Line 2452  static object LI33(V529,V528,va_alist) Line 2400  static object LI33(V529,V528,va_alist)
2400          object V534;          object V534;
2401          object V535;          object V535;
2402          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2403          va_start(ap);          va_start(ap,first);
2404          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2405          V530= V529;          V530= V529;
2406          V531= V528;          V531= V528;
2407          narg= narg - 2;          narg= narg - 2;
2408          {          {
2409          parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI33key,first,ap);
2410          V532=(Vcs[2]);          V532=(Vcs[2]);
2411          V533=(Vcs[3]);          V533=(Vcs[3]);
2412          V534=(Vcs[4]);          V534=(Vcs[4]);
# Line 2479  T848:; Line 2427  T848:;
2427          }}          }}
2428  /*      local entry for function POSITION-IF-NOT        */  /*      local entry for function POSITION-IF-NOT        */
2429    
2430  static object LI34(V539,V538,va_alist)  static object LI34(object V539,object V538,object first,...)
         object V539,V538;  
         va_dcl  
2431  {        {      
2432          va_list ap;          va_list ap;
2433          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
# Line 2492  static object LI34(V539,V538,va_alist) Line 2438  static object LI34(V539,V538,va_alist)
2438          object V544;          object V544;
2439          object V545;          object V545;
2440          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2441          va_start(ap);          va_start(ap,first);
2442          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2443          V540= V539;          V540= V539;
2444          V541= V538;          V541= V538;
2445          narg= narg - 2;          narg= narg - 2;
2446          {          {
2447          parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI34key,first,ap);
2448          V542=(Vcs[2]);          V542=(Vcs[2]);
2449          V543=(Vcs[3]);          V543=(Vcs[3]);
2450          V544=(Vcs[4]);          V544=(Vcs[4]);
# Line 2519  T854:; Line 2465  T854:;
2465          }}          }}
2466  /*      local entry for function REMOVE-DUPLICATES      */  /*      local entry for function REMOVE-DUPLICATES      */
2467    
2468  static object LI35(V548,va_alist)  static object LI35(object V548,object first,...)
         object V548;  
         va_dcl  
2469  {        {      
2470          va_list ap;          va_list ap;
2471          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
# Line 2533  static object LI35(V548,va_alist) Line 2477  static object LI35(V548,va_alist)
2477          object V554;          object V554;
2478          register object V555;          register object V555;
2479          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2480          va_start(ap);          va_start(ap,first);
2481          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2482          V549= V548;          V549= V548;
2483          narg= narg - 1;          narg= narg - 1;
2484          {          {
2485          parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)&LI35key,first,ap);
2486          V550=(Vcs[1]);          V550=(Vcs[1]);
2487          V551=(Vcs[2]);          V551=(Vcs[2]);
2488          V552=(Vcs[3]);          V552=(Vcs[3]);
# Line 2614  T861:; Line 2558  T861:;
2558          }}          }}
2559  /*      local entry for function DELETE-DUPLICATES      */  /*      local entry for function DELETE-DUPLICATES      */
2560    
2561  static object LI36(V561,va_alist)  static object LI36(object V561,object first,...)
         object V561;  
         va_dcl  
2562  {        {      
2563          va_list ap;          va_list ap;
2564          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
# Line 2628  static object LI36(V561,va_alist) Line 2570  static object LI36(V561,va_alist)
2570          object V567;          object V567;
2571          register object V568;          register object V568;
2572          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2573          va_start(ap);          va_start(ap,first);
2574          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2575          V562= V561;          V562= V561;
2576          narg= narg - 1;          narg= narg - 1;
2577          {          {
2578          parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)&LI36key,first,ap);
2579          V563=(Vcs[1]);          V563=(Vcs[1]);
2580          V564=(Vcs[2]);          V564=(Vcs[2]);
2581          V565=(Vcs[3]);          V565=(Vcs[3]);
# Line 2884  T1019:; Line 2826  T1019:;
2826          }}          }}
2827  /*      local entry for function MISMATCH       */  /*      local entry for function MISMATCH       */
2828    
2829  static object LI37(V610,V609,va_alist)  static object LI37(object V610,object V609,object first,...)
         object V610,V609;  
         va_dcl  
2830  {        {      
2831          va_list ap;          va_list ap;
2832          int narg = VFUN_NARGS; VMB37 VMS37 VMV37          int narg = VFUN_NARGS; VMB37 VMS37 VMV37
# Line 2901  static object LI37(V610,V609,va_alist) Line 2841  static object LI37(V610,V609,va_alist)
2841          object V619;          object V619;
2842          object V620;          object V620;
2843          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
2844          va_start(ap);          va_start(ap,first);
2845          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2846          V611= V610;          V611= V610;
2847          V612= V609;          V612= V609;
2848          narg= narg - 2;          narg= narg - 2;
2849          {          {
2850          parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI37key,first,ap);
2851          V613=(Vcs[2]);          V613=(Vcs[2]);
2852          V614=(Vcs[3]);          V614=(Vcs[3]);
2853          V615=(Vcs[4]);          V615=(Vcs[4]);
# Line 3066  T1090:; Line 3006  T1090:;
3006          }}          }}
3007  /*      local entry for function SEARCH */  /*      local entry for function SEARCH */
3008    
3009  static object LI38(V644,V643,va_alist)  static object LI38(object V644,object V643,object first,...)
         object V644,V643;  
         va_dcl  
3010  {        {      
3011          va_list ap;          va_list ap;
3012          int narg = VFUN_NARGS; VMB38 VMS38 VMV38          int narg = VFUN_NARGS; VMB38 VMS38 VMV38
# Line 3083  static object LI38(V644,V643,va_alist) Line 3021  static object LI38(V644,V643,va_alist)
3021          object V653;          object V653;
3022          object V654;          object V654;
3023          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3024          va_start(ap);          va_start(ap,first);
3025          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3026          V645= V644;          V645= V644;
3027          V646= V643;          V646= V643;
3028          narg= narg - 2;          narg= narg - 2;
3029          {          {
3030          parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI38key,first,ap);
3031          V647=(Vcs[2]);          V647=(Vcs[2]);
3032          V648=(Vcs[3]);          V648=(Vcs[3]);
3033          V649=(Vcs[4]);          V649=(Vcs[4]);
# Line 3446  T1247:; Line 3384  T1247:;
3384  }  }
3385  /*      local entry for function MERGE  */  /*      local entry for function MERGE  */
3386    
3387  static object LI44(V705,V704,V703,V702,va_alist)  static object LI44(object V705,object V704,object V703,object V702,object first,...)
         object V705,V704,V703,V702;  
         va_dcl  
3388  {        {      
3389          va_list ap;          va_list ap;
3390          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
# Line 3458  static object LI44(V705,V704,V703,V702,v Line 3394  static object LI44(V705,V704,V703,V702,v
3394          object V709;          object V709;
3395          register object V710;          register object V710;
3396          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
3397          va_start(ap);          va_start(ap,first);
3398          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
3399          V706= V705;          V706= V705;
3400          V707= V704;          V707= V704;
# Line 3466  static object LI44(V705,V704,V703,V702,v Line 3402  static object LI44(V705,V704,V703,V702,v
3402          V709= V702;          V709= V702;
3403          narg= narg - 4;          narg= narg - 4;
3404          {          {
3405          parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap);          parse_key_new_new(narg,Vcs +4,(struct key *)&LI44key,first,ap);
3406          if(Vcs[4]==0){          if(Vcs[4]==0){
3407          V710= symbol_function(VV[35]);          V710= symbol_function(VV[35]);
3408          }else{          }else{
# Line 3941  T1449:; Line 3877  T1449:;
3877  }  }
3878  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */
3879  static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* SUBTYPEP */  static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* SUBTYPEP */
3880  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,2,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,2,first,ap);va_end(ap);return V1;} /* COERCE */
3881  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* SORT */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* SORT */
3882  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */  static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)&LnkLI58,81925,first,ap);va_end(ap);return V1;} /* QUICK-SORT */
3883  static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* LIST-MERGE-SORT */  static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* LIST-MERGE-SORT */
3884  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */  static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)&LnkLI56,first,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */
3885  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MEMBER1 */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MEMBER1 */
3886  static object  LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[54],(void **)&LnkLI54,ap);va_end(ap);return V1;} /* POSITION */  static object  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)&LnkLI54,first,ap);va_end(ap);return V1;} /* POSITION */
3887  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)&LnkLI53,first,ap);va_end(ap);return V1;} /* FIND */
3888  static object  LnkTLI52(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[52],(void **)&LnkLI52,ap);va_end(ap);return V1;} /* NSUBSTITUTE */  static object  LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[52],(void **)&LnkLI52,first,ap);va_end(ap);return V1;} /* NSUBSTITUTE */
3889  static object  LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[51],(void **)&LnkLI51,ap);va_end(ap);return V1;} /* SUBSTITUTE */  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[51],(void **)&LnkLI51,first,ap);va_end(ap);return V1;} /* SUBSTITUTE */
3890  static object  LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* COUNT */  static object  LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)&LnkLI50,first,ap);va_end(ap);return V1;} /* COUNT */
3891  static object  LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,1,ap);va_end(ap);return V1;} /* SEQTYPE */  static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,1,first,ap);va_end(ap);return V1;} /* SEQTYPE */
3892  static object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3893  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)&LnkLI47,first,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */
3894  static object  LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* REMOVE */  static object  LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* REMOVE */
3895  static object  LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[44],(void **)&LnkLI44,ap);va_end(ap);return V1;} /* DELETE */  static object  LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[44],(void **)&LnkLI44,first,ap);va_end(ap);return V1;} /* DELETE */
3896  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,4,ap);va_end(ap);return V1;} /* CALL-TEST */  static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,4,first,ap);va_end(ap);return V1;} /* CALL-TEST */
3897  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* TEST-ERROR */  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* TEST-ERROR */
3898  static object  LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,258,ap);va_end(ap);return V1;} /* THE-END */  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)&LnkLI37,258,first,ap);va_end(ap);return V1;} /* THE-END */
3899  static object  LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,257,ap);va_end(ap);return V1;} /* THE-START */  static object  LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,257,first,ap);va_end(ap);return V1;} /* THE-START */
3900  static object  LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[33],(void **)&LnkLI33,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */  static object  LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)&LnkLI33,first,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */
3901  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* SPECIFIC-ERROR */  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* SPECIFIC-ERROR */
3902    
3903  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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