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:; |
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 |
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; |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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]); |
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 |
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; |
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{ |
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 |