home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / seqlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  63.3 KB  |  3,173 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "seqlib.h"
  4. init_seqlib(){do_init(VV);}
  5. /*    local entry for function SEQTYPE    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     if(!(type_of((V2))==t_cons||((V2))==Cnil)){
  13.     goto T2;}
  14.     {object V3 = VV[0];
  15.     VMR1(V3)}
  16. T2:;
  17.     if(!(type_of((V2))==t_string)){
  18.     goto T5;}
  19.     {object V4 = VV[1];
  20.     VMR1(V4)}
  21. T5:;
  22.     if(!((type_of((V2))==t_bitvector))){
  23.     goto T8;}
  24.     {object V5 = VV[2];
  25.     VMR1(V5)}
  26. T8:;
  27.     if(!(type_of((V2))==t_vector||
  28. type_of((V2))==t_string||
  29. type_of((V2))==t_bitvector)){
  30.     goto T11;}
  31.     base[0]= (V2);
  32.     vs_top=(vs_base=base+0)+1;
  33.     Larray_element_type();
  34.     vs_top=sup;
  35.     V6= vs_base[0];
  36.     {object V7 = list(2,VV[3],V6);
  37.     VMR1(V7)}
  38. T11:;
  39.     base[0]= VV[4];
  40.     base[1]= (V2);
  41.     vs_top=(vs_base=base+0)+2;
  42.     Lerror();
  43.     vs_top=sup;
  44.     {object V8 = vs_base[0];
  45.     VMR1(V8)}
  46. }
  47. /*    local entry for function CALL-TEST    */
  48.  
  49. static object LI2(V13,V14,V15,V16)
  50.  
  51. object V13;object V14;object V15;object V16;
  52. {     VMB2 VMS2 VMV2
  53. TTL:;
  54.     if(((V13))==Cnil){
  55.     goto T18;}
  56.     base[0]= (V15);
  57.     base[1]= (V16);
  58.     vs_top=(vs_base=base+0)+2;
  59.     super_funcall_no_event((V13));
  60.     vs_top=sup;
  61.     {object V17 = vs_base[0];
  62.     VMR2(V17)}
  63. T18:;
  64.     if(((V14))==Cnil){
  65.     goto T23;}
  66.     base[0]= (V15);
  67.     base[1]= (V16);
  68.     vs_top=(vs_base=base+0)+2;
  69.     super_funcall_no_event((V14));
  70.     vs_top=sup;
  71.     V18= vs_base[0];
  72.     {object V19 = ((V18)==Cnil?Ct:Cnil);
  73.     VMR2(V19)}
  74. T23:;
  75.     {object V20 = (eql((V15),(V16))?Ct:Cnil);
  76.     VMR2(V20)}
  77. }
  78. /*    local entry for function CHECK-SEQ-START-END    */
  79.  
  80. static object LI3(V23,V24)
  81.  
  82. object V23;object V24;
  83. {     VMB3 VMS3 VMV3
  84. TTL:;
  85.     if(!(type_of((V23))==t_fixnum)){
  86.     goto T29;}
  87.     if(type_of((V24))==t_fixnum){
  88.     goto T28;}
  89. T29:;
  90.     base[0]= VV[5];
  91.     vs_top=(vs_base=base+0)+1;
  92.     Lerror();
  93.     vs_top=sup;
  94. T28:;
  95.     if(!((fix((V23)))>(fix((V24))))){
  96.     goto T35;}
  97.     base[0]= VV[6];
  98.     vs_top=(vs_base=base+0)+1;
  99.     Lerror();
  100.     vs_top=sup;
  101.     {object V25 = vs_base[0];
  102.     VMR3(V25)}
  103. T35:;
  104.     {object V26 = Cnil;
  105.     VMR3(V26)}
  106. }
  107. /*    local entry for function TEST-ERROR    */
  108.  
  109. static object LI4()
  110.  
  111. {     VMB4 VMS4 VMV4
  112. TTL:;
  113.     base[0]= VV[7];
  114.     vs_top=(vs_base=base+0)+1;
  115.     Lerror();
  116.     vs_top=sup;
  117.     {object V27 = vs_base[0];
  118.     VMR4(V27)}
  119. }
  120. /*    local entry for function BAD-SEQ-LIMIT    */
  121.  
  122. static object LI5(V28,va_alist)
  123.     object V28;
  124.     va_dcl 
  125. {    
  126.     va_list ap;
  127.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  128.     {object V29;
  129.     object V30;
  130.     if(narg <1) too_few_arguments();
  131.     V29= V28;
  132.     narg = narg - 1;
  133.     if (narg <= 0) goto T39;
  134.     else {
  135.     va_start(ap);
  136.     V30= va_arg(ap,object);}
  137.     --narg; goto T40;
  138. T39:;
  139.     V30= Cnil;
  140. T40:;
  141.     base[0]= VV[8];
  142.     if(((V30))==Cnil){
  143.     goto T45;}
  144.     base[1]= list(2,(V29),(V30));
  145.     goto T43;
  146. T45:;
  147.     base[1]= (V29);
  148. T43:;
  149.     vs_top=(vs_base=base+0)+2;
  150.     Lerror();
  151.     vs_top=sup;
  152.     {object V31 = vs_base[0];
  153.     VMR5(V31)}}
  154.     }
  155. /*    local entry for function THE-END    */
  156.  
  157. static int LI6(V34,V35)
  158.  
  159. register object V34;object V35;
  160. {     VMB6 VMS6 VMV6
  161. TTL:;
  162.     if(!(type_of((V34))==t_fixnum)){
  163.     goto T48;}
  164.     if(!((fix((V34)))<=(length((V35))))){
  165.     goto T51;}
  166.     goto T50;
  167. T51:;
  168.     (void)((VFUN_NARGS=1,(*(LnkLI17))((V34))));
  169. T50:;
  170.     {int V36 = fix((V34));
  171.     VMR6(V36)}
  172. T48:;
  173.     if(((V34))!=Cnil){
  174.     goto T54;}
  175.     {int V37 = length((V35));
  176.     VMR6(V37)}
  177. T54:;
  178.     {int V38 = fix((VFUN_NARGS=1,(*(LnkLI17))((V34))));
  179.     VMR6(V38)}
  180. }
  181. /*    local entry for function THE-START    */
  182.  
  183. static int LI7(V40)
  184.  
  185. register object V40;
  186. {     VMB7 VMS7 VMV7
  187. TTL:;
  188.     if(!(type_of((V40))==t_fixnum)){
  189.     goto T57;}
  190.     if(!((fix((V40)))>=(0))){
  191.     goto T60;}
  192.     goto T59;
  193. T60:;
  194.     (void)((VFUN_NARGS=1,(*(LnkLI17))((V40))));
  195. T59:;
  196.     {int V41 = fix((V40));
  197.     VMR7(V41)}
  198. T57:;
  199.     if(((V40))!=Cnil){
  200.     goto T63;}
  201.     {int V42 = 0;
  202.     VMR7(V42)}
  203. T63:;
  204.     {int V43 = fix((VFUN_NARGS=1,(*(LnkLI17))((V40))));
  205.     VMR7(V43)}
  206. }
  207. /*    function definition for REDUCE    */
  208.  
  209. static L8()
  210. {register object *base=vs_base;
  211.     register object *sup=base+VM8; VC8
  212.     vs_reserve(VM8);
  213.     {register object V44;
  214.     register object V45;
  215.     object V46;
  216.     object V47;
  217.     object V48;
  218.     object V49;
  219.     object V50;
  220.     if(vs_top-vs_base<2) too_few_arguments();
  221.     parse_key(vs_base+2,FALSE,FALSE,4,VV[10],VV[13],VV[14],VV[18]);
  222.     V44=(base[0]);
  223.     V45=(base[1]);
  224.     vs_top=sup;
  225.     V46=(base[2]);
  226.     V47=(base[3]);
  227.     V48=(base[4]);
  228.     V49=(base[5]);
  229.     V50=(base[9]);
  230.     {register int V51;
  231.     if(((V47))==Cnil){
  232.     goto T67;}
  233.     V51= (*(LnkLI19))((V47));
  234.     goto T65;
  235. T67:;
  236.     V51= 0;
  237. T65:;
  238.     {register int V52;
  239.     V52= (*(LnkLI20))((V48),(V45));
  240.     if(!((V51)<=(V52))){
  241.     goto T71;}
  242.     goto T70;
  243. T71:;
  244.     V53 = make_fixnum(V51);
  245.     V54 = make_fixnum(V52);
  246.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V53,V54)));
  247. T70:;
  248.     if(((V46))!=Cnil){
  249.     goto T74;}
  250.     if(((V50))!=Cnil){
  251.     goto T76;}
  252.     if(!((V51)>=(V52))){
  253.     goto T79;}
  254.     vs_base=vs_top;
  255.     super_funcall_no_event((V44));
  256.     return;
  257. T79:;
  258.     V49= elt((V45),V51);
  259.     V51= (1)+(V51);
  260. T76:;
  261.     {register object V55;
  262.     V55= (V49);
  263. T86:;
  264.     if(!((V51)>=(V52))){
  265.     goto T87;}
  266.     base[10]= (V55);
  267.     vs_top=(vs_base=base+10)+1;
  268.     return;
  269. T87:;
  270.     {object V57;
  271.     V57= elt((V45),V51);
  272.     V51= (1)+(V51);
  273.     V56= (V57);}
  274.     V55= (
  275.     (type_of((V44)) == t_sfun ?(*(object (*)())(((V44))->sfn.sfn_self)):
  276.     (fcall.fun=((V44)),fcall.argd=2,fcalln))((V55),V56));
  277.     goto T86;}
  278. T74:;
  279.     if(((V50))!=Cnil){
  280.     goto T98;}
  281.     if(!((V51)>=(V52))){
  282.     goto T101;}
  283.     vs_base=vs_top;
  284.     super_funcall_no_event((V44));
  285.     return;
  286. T101:;
  287.     V52= (V52)+(-1);
  288.     V49= elt((V45),V52);
  289. T98:;
  290.     {register object V58;
  291.     V58= (V49);
  292. T108:;
  293.     if(!((V51)>=(V52))){
  294.     goto T109;}
  295.     base[10]= (V58);
  296.     vs_top=(vs_base=base+10)+1;
  297.     return;
  298. T109:;
  299.     V52= (-1)+(V52);
  300.     V59= elt((V45),V52);
  301.     V58= (
  302.     (type_of((V44)) == t_sfun ?(*(object (*)())(((V44))->sfn.sfn_self)):
  303.     (fcall.fun=((V44)),fcall.argd=2,fcalln))(/* INLINE-ARGS */V59,(V58)));
  304.     goto T108;}}}
  305.     }
  306. }
  307. /*    local entry for function FILL    */
  308.  
  309. static object LI9(V61,V60,va_alist)
  310.     object V61,V60;
  311.     va_dcl 
  312. {    
  313.     va_list ap;
  314.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  315.     {register object V62;
  316.     register object V63;
  317.     object V64;
  318.     object V65;
  319.     if(narg <2) too_few_arguments();
  320.     V62= V61;
  321.     V63= V60;
  322.     narg= narg - 2;
  323.     va_start(ap);
  324.     {
  325.     parse_key_new(narg,Vcs +2,&LI9key,ap);
  326.     V64=(Vcs[2]);
  327.     V65=(Vcs[3]);
  328.     {int V66;
  329.     if(((V64))==Cnil){
  330.     goto T120;}
  331.     V66= (*(LnkLI19))((V64));
  332.     goto T118;
  333. T120:;
  334.     V66= 0;
  335. T118:;
  336.     {register int V67;
  337.     V67= (*(LnkLI20))((V65),(V62));
  338.     if(!((V66)<=(V67))){
  339.     goto T124;}
  340.     goto T123;
  341. T124:;
  342.     V68 = make_fixnum(V66);
  343.     V69 = make_fixnum(V67);
  344.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V68,V69)));
  345. T123:;
  346.     {register int V70;
  347.     V70= V66;
  348. T128:;
  349.     if(!((V70)>=(V67))){
  350.     goto T129;}
  351.     {object V71 = (V62);
  352.     VMR9(V71)}
  353. T129:;
  354.     (void)(elt_set((V62),V70,(V63)));
  355.     V70= (1)+(V70);
  356.     goto T128;}}}}
  357.     }}
  358. /*    local entry for function REPLACE    */
  359.  
  360. static object LI10(V73,V72,va_alist)
  361.     object V73,V72;
  362.     va_dcl 
  363. {    
  364.     va_list ap;
  365.     int narg = VFUN_NARGS; VMB10 VMS10 VMV10
  366.     {register object V74;
  367.     object V75;
  368.     object V76;
  369.     object V77;
  370.     object V78;
  371.     object V79;
  372.     if(narg <2) too_few_arguments();
  373.     V74= V73;
  374.     V75= V72;
  375.     narg= narg - 2;
  376.     va_start(ap);
  377.     {
  378.     parse_key_new(narg,Vcs +2,&LI10key,ap);
  379.     V76=(Vcs[2]);
  380.     V77=(Vcs[3]);
  381.     V78=(Vcs[4]);
  382.     V79=(Vcs[5]);
  383.     {int V80;
  384.     if(((V76))==Cnil){
  385.     goto T139;}
  386.     V80= (*(LnkLI19))((V76));
  387.     goto T137;
  388. T139:;
  389.     V80= 0;
  390. T137:;
  391.     {int V81;
  392.     V81= (*(LnkLI20))((V77),(V74));
  393.     if(!((V80)<=(V81))){
  394.     goto T143;}
  395.     goto T142;
  396. T143:;
  397.     V82 = make_fixnum(V80);
  398.     V83 = make_fixnum(V81);
  399.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V82,V83)));
  400. T142:;
  401.     {int V84;
  402.     if(((V78))==Cnil){
  403.     goto T147;}
  404.     V84= (*(LnkLI19))((V78));
  405.     goto T145;
  406. T147:;
  407.     V84= 0;
  408. T145:;
  409.     {int V85;
  410.     V85= (*(LnkLI20))((V79),(V75));
  411.     if(!((V84)<=(V85))){
  412.     goto T151;}
  413.     goto T150;
  414. T151:;
  415.     V86 = make_fixnum(V84);
  416.     V87 = make_fixnum(V85);
  417.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V86,V87)));
  418. T150:;
  419.     if(!(((V74))==((V75)))){
  420.     goto T154;}
  421.     if(!((V80)>(V84))){
  422.     goto T154;}
  423.     {register int V88;
  424.     int V89;
  425.     register int V90;
  426.     register int V91;
  427.     V88= 0;
  428.     if(!(((V81)-(V80))<((V85)-(V84)))){
  429.     goto T161;}
  430.     V89= (V81)-(V80);
  431.     goto T159;
  432. T161:;
  433.     V89= (V85)-(V84);
  434. T159:;
  435.     V90= (V80)+((-1)+(V89));
  436.     V91= (V84)+((-1)+(V89));
  437. T166:;
  438.     if(!((V88)>=(V89))){
  439.     goto T167;}
  440.     {object V92 = (V74);
  441.     VMR10(V92)}
  442. T167:;
  443.     V93= elt((V75),V91);
  444.     (void)(elt_set((V74),V90,/* INLINE-ARGS */V93));
  445.     V88= (1)+(V88);
  446.     V90= (-1)+(V90);
  447.     V91= (-1)+(V91);
  448.     goto T166;}
  449. T154:;
  450.     {register int V94;
  451.     int V95;
  452.     register int V96;
  453.     register int V97;
  454.     V94= 0;
  455.     if(!(((V81)-(V80))<((V85)-(V84)))){
  456.     goto T182;}
  457.     V95= (V81)-(V80);
  458.     goto T180;
  459. T182:;
  460.     V95= (V85)-(V84);
  461. T180:;
  462.     V96= V80;
  463.     V97= V84;
  464. T187:;
  465.     if(!((V94)>=(V95))){
  466.     goto T188;}
  467.     {object V98 = (V74);
  468.     VMR10(V98)}
  469. T188:;
  470.     V99= elt((V75),V97);
  471.     (void)(elt_set((V74),V96,/* INLINE-ARGS */V99));
  472.     V94= (1)+(V94);
  473.     V96= (1)+(V96);
  474.     V97= (1)+(V97);
  475.     goto T187;}}}}}}
  476.     }}
  477. /*    local entry for function REMOVE    */
  478.  
  479. static object LI11(V101,V100,va_alist)
  480.     object V101,V100;
  481.     va_dcl 
  482. {    
  483.     va_list ap;
  484.     int narg = VFUN_NARGS; VMB11 VMS11 VMV11
  485.     {object V102;
  486.     object V103;
  487.     object V104;
  488.     object V105;
  489.     object V106;
  490.     object V107;
  491.     object V108;
  492.     object V109;
  493.     object V110;
  494.     if(narg <2) too_few_arguments();
  495.     V102= V101;
  496.     V103= V100;
  497.     narg= narg - 2;
  498.     va_start(ap);
  499.     {
  500.     parse_key_new(narg,Vcs +2,&LI11key,ap);
  501.     V104=(Vcs[2]);
  502.     V105=(Vcs[3]);
  503.     V106=(Vcs[4]);
  504.     V107=(Vcs[5]);
  505.     V108=(Vcs[6]);
  506.     V109=(Vcs[7]);
  507.     if(Vcs[8]==0){
  508.     V110= symbol_function(VV[25]);
  509.     }else{
  510.     V110=(Vcs[8]);}
  511.     {int V111;
  512.     if(((V107))==Cnil){
  513.     goto T201;}
  514.     V111= (*(LnkLI19))((V107));
  515.     goto T199;
  516. T201:;
  517.     V111= 0;
  518. T199:;
  519.     {int V112;
  520.     V112= (*(LnkLI20))((V108),(V103));
  521.     if(!((V111)<=(V112))){
  522.     goto T205;}
  523.     goto T204;
  524. T205:;
  525.     V113 = make_fixnum(V111);
  526.     V114 = make_fixnum(V112);
  527.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V113,V114)));
  528. T204:;
  529.     {int V115;
  530.     if(((V109))!=Cnil){
  531.     goto T209;}
  532.     V115= 2147483647;
  533.     goto T207;
  534. T209:;
  535.     V115= fix((V109));
  536. T207:;
  537.     if((V105)==Cnil){
  538.     goto T212;}
  539.     if((V106)==Cnil){
  540.     goto T212;}
  541.     (void)((*(LnkLI26))());
  542. T212:;
  543.     if(((V104))!=Cnil){
  544.     goto T214;}
  545.     if(!(type_of((V103))==t_cons||((V103))==Cnil)){
  546.     goto T217;}
  547.     {register object V116;
  548.     register object V117;
  549.     V116= (V103);
  550.     V117= Cnil;
  551.     {register int V118;
  552.     V118= 0;
  553. T222:;
  554.     if(!((V118)>=(V111))){
  555.     goto T223;}
  556.     goto T219;
  557. T223:;
  558.     V117= make_cons(car((V116)),(V117));
  559.     {register object V119;
  560.     V119= car((V116));
  561.     V116= cdr((V116));}
  562.     V118= (1)+(V118);
  563.     goto T222;}
  564. T219:;
  565.     {register int V120;
  566.     register int V121;
  567.     V120= V111;
  568.     V121= 0;
  569. T239:;
  570.     if((V120)>=(V112)){
  571.     goto T241;}
  572.     if((V121)>=(V115)){
  573.     goto T241;}
  574.     if(!(endp((V116)))){
  575.     goto T240;}
  576. T241:;
  577.     base[0]= (V117);
  578.     base[1]= (V116);
  579.     vs_top=(vs_base=base+0)+2;
  580.     Lreconc();
  581.     vs_top=sup;
  582.     {object V122 = vs_base[0];
  583.     VMR11(V122)}
  584. T240:;
  585.     base[0]= car((V116));
  586.     vs_top=(vs_base=base+0)+1;
  587.     super_funcall_no_event((V110));
  588.     vs_top=sup;
  589.     V123= vs_base[0];
  590.     if(((*(LnkLI27))((V105),(V106),(V102),V123))==Cnil){
  591.     goto T252;}
  592.     V121= (1)+(V121);
  593.     {register object V124;
  594.     V124= car((V116));
  595.     V116= cdr((V116));
  596.     goto T250;}
  597. T252:;
  598.     V117= make_cons(car((V116)),(V117));
  599.     {register object V125;
  600.     V125= car((V116));
  601.     V116= cdr((V116));}
  602. T250:;
  603.     V120= (1)+(V120);
  604.     goto T239;}}
  605. T217:;
  606.     V126 = make_fixnum(V111);
  607.     V127 = make_fixnum(V112);
  608.     V128 = make_fixnum(V115);
  609.     {object V129 = (VFUN_NARGS=16,(*(LnkLI28))((V102),(V103),VV[10],(V104),VV[11],(V105),VV[12],(V106),VV[13],V126,VV[14],V127,VV[15],V128,VV[16],(V110)));
  610.     VMR11(V129)}
  611. T214:;
  612.     V130 = make_fixnum(V111);
  613.     V131 = make_fixnum(V112);
  614.     V132 = make_fixnum(V115);
  615.     {object V133 = (VFUN_NARGS=16,(*(LnkLI28))((V102),(V103),VV[10],(V104),VV[11],(V105),VV[12],(V106),VV[13],V130,VV[14],V131,VV[15],V132,VV[16],(V110)));
  616.     VMR11(V133)}}}}}
  617.     }}
  618. /*    local entry for function REMOVE-IF    */
  619.  
  620. static object LI12(V135,V134,va_alist)
  621.     object V135,V134;
  622.     va_dcl 
  623. {    
  624.     va_list ap;
  625.     int narg = VFUN_NARGS; VMB12 VMS12 VMV12
  626.     {object V136;
  627.     object V137;
  628.     object V138;
  629.     object V139;
  630.     object V140;
  631.     object V141;
  632.     object V142;
  633.     if(narg <2) too_few_arguments();
  634.     V136= V135;
  635.     V137= V134;
  636.     narg= narg - 2;
  637.     va_start(ap);
  638.     {
  639.     parse_key_new(narg,Vcs +2,&LI12key,ap);
  640.     V138=(Vcs[2]);
  641.     V139=(Vcs[3]);
  642.     V140=(Vcs[4]);
  643.     V141=(Vcs[5]);
  644.     if(Vcs[6]==0){
  645.     V142= symbol_function(VV[25]);
  646.     }else{
  647.     V142=(Vcs[6]);}
  648.     V143= symbol_function(VV[30]);
  649.     {object V144 = (VFUN_NARGS=14,(*(LnkLI29))((V136),(V137),VV[10],(V138),VV[11],V143,VV[13],(V139),VV[14],(V140),VV[15],(V141),VV[16],(V142)));
  650.     VMR12(V144)}}
  651.     }}
  652. /*    local entry for function REMOVE-IF-NOT    */
  653.  
  654. static object LI13(V146,V145,va_alist)
  655.     object V146,V145;
  656.     va_dcl 
  657. {    
  658.     va_list ap;
  659.     int narg = VFUN_NARGS; VMB13 VMS13 VMV13
  660.     {object V147;
  661.     object V148;
  662.     object V149;
  663.     object V150;
  664.     object V151;
  665.     object V152;
  666.     object V153;
  667.     if(narg <2) too_few_arguments();
  668.     V147= V146;
  669.     V148= V145;
  670.     narg= narg - 2;
  671.     va_start(ap);
  672.     {
  673.     parse_key_new(narg,Vcs +2,&LI13key,ap);
  674.     V149=(Vcs[2]);
  675.     V150=(Vcs[3]);
  676.     V151=(Vcs[4]);
  677.     V152=(Vcs[5]);
  678.     if(Vcs[6]==0){
  679.     V153= symbol_function(VV[25]);
  680.     }else{
  681.     V153=(Vcs[6]);}
  682.     V154= symbol_function(VV[30]);
  683.     {object V155 = (VFUN_NARGS=14,(*(LnkLI29))((V147),(V148),VV[10],(V149),VV[12],V154,VV[13],(V150),VV[14],(V151),VV[15],(V152),VV[16],(V153)));
  684.     VMR13(V155)}}
  685.     }}
  686. /*    local entry for function DELETE    */
  687.  
  688. static object LI14(V157,V156,va_alist)
  689.     object V157,V156;
  690.     va_dcl 
  691. {    
  692.     va_list ap;
  693.     int narg = VFUN_NARGS; VMB14 VMS14 VMV14
  694.     {object V158;
  695.     register object V159;
  696.     object V160;
  697.     object V161;
  698.     object V162;
  699.     object V163;
  700.     object V164;
  701.     object V165;
  702.     object V166;
  703.     if(narg <2) too_few_arguments();
  704.     V158= V157;
  705.     V159= V156;
  706.     narg= narg - 2;
  707.     va_start(ap);
  708.     {
  709.     parse_key_new(narg,Vcs +2,&LI14key,ap);
  710.     V160=(Vcs[2]);
  711.     V161=(Vcs[3]);
  712.     V162=(Vcs[4]);
  713.     V163=(Vcs[5]);
  714.     V164=(Vcs[6]);
  715.     V165=(Vcs[7]);
  716.     if(Vcs[8]==0){
  717.     V166= symbol_function(VV[25]);
  718.     }else{
  719.     V166=(Vcs[8]);}
  720.     {int V167;
  721.     V167= length((V159));
  722.     {register int V168;
  723.     if(((V163))==Cnil){
  724.     goto T277;}
  725.     V168= (*(LnkLI19))((V163));
  726.     goto T275;
  727. T277:;
  728.     V168= 0;
  729. T275:;
  730.     {register int V169;
  731.     V169= (*(LnkLI20))((V164),(V159));
  732.     if(!((V168)<=(V169))){
  733.     goto T281;}
  734.     goto T280;
  735. T281:;
  736.     V170 = make_fixnum(V168);
  737.     V171 = make_fixnum(V169);
  738.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V170,V171)));
  739. T280:;
  740.     {register int V172;
  741.     if(((V165))!=Cnil){
  742.     goto T285;}
  743.     V172= 2147483647;
  744.     goto T283;
  745. T285:;
  746.     V172= fix((V165));
  747. T283:;
  748.     if((V161)==Cnil){
  749.     goto T288;}
  750.     if((V162)==Cnil){
  751.     goto T288;}
  752.     (void)((*(LnkLI26))());
  753. T288:;
  754.     if(((V160))!=Cnil){
  755.     goto T290;}
  756.     if(!(type_of((V159))==t_cons||((V159))==Cnil)){
  757.     goto T293;}
  758.     {object V173;
  759.     register object V174;
  760.     V173= make_cons(Cnil,(V159));
  761.     V174= (V173);
  762.     {int V175;
  763.     V175= 0;
  764. T300:;
  765.     if(!((V175)>=(V168))){
  766.     goto T301;}
  767.     goto T297;
  768. T301:;
  769.     {object V176;
  770.     V176= car((V174));
  771.     V174= cdr((V174));}
  772.     V175= (1)+(V175);
  773.     goto T300;}
  774. T297:;
  775.     {int V177;
  776.     int V178;
  777.     V177= V168;
  778.     V178= 0;
  779. T315:;
  780.     if((V177)>=(V169)){
  781.     goto T317;}
  782.     if((V178)>=(V172)){
  783.     goto T317;}
  784.     if(!(endp(cdr((V174))))){
  785.     goto T316;}
  786. T317:;
  787.     {object V179 = cdr((V173));
  788.     VMR14(V179)}
  789. T316:;
  790.     base[1]= cadr((V174));
  791.     vs_top=(vs_base=base+1)+1;
  792.     super_funcall_no_event((V166));
  793.     vs_top=sup;
  794.     V180= vs_base[0];
  795.     if(((*(LnkLI27))((V161),(V162),(V158),V180))==Cnil){
  796.     goto T326;}
  797.     V178= (1)+(V178);
  798.     if(type_of((V174))!=t_cons)FEwrong_type_argument(Scons,(V174));
  799.     ((V174))->c.c_cdr = cddr((V174));
  800.     goto T324;
  801. T326:;
  802.     V174= cdr((V174));
  803. T324:;
  804.     V177= (1)+(V177);
  805.     goto T315;}}
  806. T293:;
  807.     {int V181;
  808.     V182 = make_fixnum(V168);
  809.     V183 = make_fixnum(V169);
  810.     V184 = make_fixnum(V172);
  811.     V181= fix((VFUN_NARGS=16,(*(LnkLI31))((V158),(V159),VV[10],(V160),VV[11],(V161),VV[12],(V162),VV[13],V182,VV[14],V183,VV[15],V184,VV[16],(V166))));
  812.     if(!((V181)<(V172))){
  813.     goto T337;}
  814.     V172= V181;
  815. T337:;
  816.     {object V185;
  817.     register int V186;
  818.     int V187;
  819.     int V188;
  820.     V189= (*(LnkLI33))((V159));
  821.     V190 = make_fixnum((V167)-(V172));
  822.     V185= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V189,V190));
  823.     V186= 0;
  824.     V187= 0;
  825.     V188= 0;
  826. T346:;
  827.     if(!((V186)>=(V167))){
  828.     goto T347;}
  829.     {object V191 = (V185);
  830.     VMR14(V191)}
  831. T347:;
  832.     if(!((V168)<=(V186))){
  833.     goto T353;}
  834.     if(!((V186)<(V169))){
  835.     goto T353;}
  836.     if(!((V188)<(V172))){
  837.     goto T353;}
  838.     base[0]= elt((V159),V186);
  839.     vs_top=(vs_base=base+0)+1;
  840.     super_funcall_no_event((V166));
  841.     vs_top=sup;
  842.     V192= vs_base[0];
  843.     if(((*(LnkLI27))((V161),(V162),(V158),V192))==Cnil){
  844.     goto T353;}
  845.     V188= (1)+(V188);
  846.     goto T351;
  847. T353:;
  848.     V193= elt((V159),V186);
  849.     (void)(elt_set((V185),V187,/* INLINE-ARGS */V193));
  850.     V187= (1)+(V187);
  851. T351:;
  852.     V186= (1)+(V186);
  853.     goto T346;}}
  854. T290:;
  855.     {int V194;
  856.     V195 = make_fixnum(V168);
  857.     V196 = make_fixnum(V169);
  858.     V197 = make_fixnum(V172);
  859.     V194= fix((VFUN_NARGS=16,(*(LnkLI31))((V158),(V159),VV[10],(V160),VV[11],(V161),VV[12],(V162),VV[13],V195,VV[14],V196,VV[15],V197,VV[16],(V166))));
  860.     if(!((V194)<(V172))){
  861.     goto T370;}
  862.     V172= V194;
  863. T370:;
  864.     {object V198;
  865.     register int V199;
  866.     int V200;
  867.     int V201;
  868.     V202= (*(LnkLI33))((V159));
  869.     V203 = make_fixnum((V167)-(V172));
  870.     V198= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V202,V203));
  871.     V199= (-1)+(V167);
  872.     V200= ((-1)+(V169))-(V194);
  873.     V201= 0;
  874. T379:;
  875.     if(!((V199)<(0))){
  876.     goto T380;}
  877.     {object V204 = (V198);
  878.     VMR14(V204)}
  879. T380:;
  880.     if(!((V168)<=(V199))){
  881.     goto T386;}
  882.     if(!((V199)<(V169))){
  883.     goto T386;}
  884.     if(!((V201)<(V172))){
  885.     goto T386;}
  886.     base[0]= elt((V159),V199);
  887.     vs_top=(vs_base=base+0)+1;
  888.     super_funcall_no_event((V166));
  889.     vs_top=sup;
  890.     V205= vs_base[0];
  891.     if(((*(LnkLI27))((V161),(V162),(V158),V205))==Cnil){
  892.     goto T386;}
  893.     V201= (1)+(V201);
  894.     goto T384;
  895. T386:;
  896.     V206= elt((V159),V199);
  897.     (void)(elt_set((V198),V200,/* INLINE-ARGS */V206));
  898.     V200= (-1)+(V200);
  899. T384:;
  900.     V199= (-1)+(V199);
  901.     goto T379;}}}}}}}
  902.     }}
  903. /*    local entry for function DELETE-IF    */
  904.  
  905. static object LI15(V208,V207,va_alist)
  906.     object V208,V207;
  907.     va_dcl 
  908. {    
  909.     va_list ap;
  910.     int narg = VFUN_NARGS; VMB15 VMS15 VMV15
  911.     {object V209;
  912.     object V210;
  913.     object V211;
  914.     object V212;
  915.     object V213;
  916.     object V214;
  917.     object V215;
  918.     if(narg <2) too_few_arguments();
  919.     V209= V208;
  920.     V210= V207;
  921.     narg= narg - 2;
  922.     va_start(ap);
  923.     {
  924.     parse_key_new(narg,Vcs +2,&LI15key,ap);
  925.     V211=(Vcs[2]);
  926.     V212=(Vcs[3]);
  927.     V213=(Vcs[4]);
  928.     V214=(Vcs[5]);
  929.     if(Vcs[6]==0){
  930.     V215= symbol_function(VV[25]);
  931.     }else{
  932.     V215=(Vcs[6]);}
  933.     V216= symbol_function(VV[30]);
  934.     {object V217 = (VFUN_NARGS=14,(*(LnkLI28))((V209),(V210),VV[10],(V211),VV[11],V216,VV[13],(V212),VV[14],(V213),VV[15],(V214),VV[16],(V215)));
  935.     VMR15(V217)}}
  936.     }}
  937. /*    local entry for function DELETE-IF-NOT    */
  938.  
  939. static object LI16(V219,V218,va_alist)
  940.     object V219,V218;
  941.     va_dcl 
  942. {    
  943.     va_list ap;
  944.     int narg = VFUN_NARGS; VMB16 VMS16 VMV16
  945.     {object V220;
  946.     object V221;
  947.     object V222;
  948.     object V223;
  949.     object V224;
  950.     object V225;
  951.     object V226;
  952.     if(narg <2) too_few_arguments();
  953.     V220= V219;
  954.     V221= V218;
  955.     narg= narg - 2;
  956.     va_start(ap);
  957.     {
  958.     parse_key_new(narg,Vcs +2,&LI16key,ap);
  959.     V222=(Vcs[2]);
  960.     V223=(Vcs[3]);
  961.     V224=(Vcs[4]);
  962.     V225=(Vcs[5]);
  963.     if(Vcs[6]==0){
  964.     V226= symbol_function(VV[25]);
  965.     }else{
  966.     V226=(Vcs[6]);}
  967.     V227= symbol_function(VV[30]);
  968.     {object V228 = (VFUN_NARGS=14,(*(LnkLI28))((V220),(V221),VV[10],(V222),VV[12],V227,VV[13],(V223),VV[14],(V224),VV[15],(V225),VV[16],(V226)));
  969.     VMR16(V228)}}
  970.     }}
  971. /*    local entry for function COUNT    */
  972.  
  973. static object LI17(V230,V229,va_alist)
  974.     object V230,V229;
  975.     va_dcl 
  976. {    
  977.     va_list ap;
  978.     int narg = VFUN_NARGS; VMB17 VMS17 VMV17
  979.     {object V231;
  980.     register object V232;
  981.     object V233;
  982.     register object V234;
  983.     register object V235;
  984.     object V236;
  985.     object V237;
  986.     object V238;
  987.     if(narg <2) too_few_arguments();
  988.     V231= V230;
  989.     V232= V229;
  990.     narg= narg - 2;
  991.     va_start(ap);
  992.     {
  993.     parse_key_new(narg,Vcs +2,&LI17key,ap);
  994.     V233=(Vcs[2]);
  995.     V234=(Vcs[3]);
  996.     V235=(Vcs[4]);
  997.     V236=(Vcs[5]);
  998.     V237=(Vcs[6]);
  999.     if(Vcs[7]==0){
  1000.     V238= symbol_function(VV[25]);
  1001.     }else{
  1002.     V238=(Vcs[7]);}
  1003.     {int V239;
  1004.     if(((V236))==Cnil){
  1005.     goto T409;}
  1006.     V239= (*(LnkLI19))((V236));
  1007.     goto T407;
  1008. T409:;
  1009.     V239= 0;
  1010. T407:;
  1011.     {int V240;
  1012.     V240= (*(LnkLI20))((V237),(V232));
  1013.     if(!((V239)<=(V240))){
  1014.     goto T413;}
  1015.     goto T412;
  1016. T413:;
  1017.     V241 = make_fixnum(V239);
  1018.     V242 = make_fixnum(V240);
  1019.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V241,V242)));
  1020. T412:;
  1021.     if((V234)==Cnil){
  1022.     goto T415;}
  1023.     if((V235)==Cnil){
  1024.     goto T415;}
  1025.     (void)((*(LnkLI26))());
  1026. T415:;
  1027.     if(((V233))!=Cnil){
  1028.     goto T417;}
  1029.     {register int V243;
  1030.     register int V244;
  1031.     V243= V239;
  1032.     V244= 0;
  1033. T422:;
  1034.     if(!((V243)>=(V240))){
  1035.     goto T423;}
  1036.     {object V245 = make_fixnum(V244);
  1037.     VMR17(V245)}
  1038. T423:;
  1039.     base[0]= elt((V232),V243);
  1040.     vs_top=(vs_base=base+0)+1;
  1041.     super_funcall_no_event((V238));
  1042.     vs_top=sup;
  1043.     V246= vs_base[0];
  1044.     if(((*(LnkLI27))((V234),(V235),(V231),V246))==Cnil){
  1045.     goto T427;}
  1046.     V244= (1)+(V244);
  1047. T427:;
  1048.     V243= (1)+(V243);
  1049.     goto T422;}
  1050. T417:;
  1051.     {register int V247;
  1052.     register int V248;
  1053.     V247= (-1)+(V240);
  1054.     V248= 0;
  1055. T439:;
  1056.     if(!((V247)<(V239))){
  1057.     goto T440;}
  1058.     {object V249 = make_fixnum(V248);
  1059.     VMR17(V249)}
  1060. T440:;
  1061.     base[0]= elt((V232),V247);
  1062.     vs_top=(vs_base=base+0)+1;
  1063.     super_funcall_no_event((V238));
  1064.     vs_top=sup;
  1065.     V250= vs_base[0];
  1066.     if(((*(LnkLI27))((V234),(V235),(V231),V250))==Cnil){
  1067.     goto T444;}
  1068.     V248= (1)+(V248);
  1069. T444:;
  1070.     V247= (-1)+(V247);
  1071.     goto T439;}}}}
  1072.     }}
  1073. /*    local entry for function COUNT-IF    */
  1074.  
  1075. static object LI18(V252,V251,va_alist)
  1076.     object V252,V251;
  1077.     va_dcl 
  1078. {    
  1079.     va_list ap;
  1080.     int narg = VFUN_NARGS; VMB18 VMS18 VMV18
  1081.     {object V253;
  1082.     object V254;
  1083.     object V255;
  1084.     object V256;
  1085.     object V257;
  1086.     object V258;
  1087.     if(narg <2) too_few_arguments();
  1088.     V253= V252;
  1089.     V254= V251;
  1090.     narg= narg - 2;
  1091.     va_start(ap);
  1092.     {
  1093.     parse_key_new(narg,Vcs +2,&LI18key,ap);
  1094.     V255=(Vcs[2]);
  1095.     V256=(Vcs[3]);
  1096.     V257=(Vcs[4]);
  1097.     if(Vcs[5]==0){
  1098.     V258= symbol_function(VV[25]);
  1099.     }else{
  1100.     V258=(Vcs[5]);}
  1101.     V259= symbol_function(VV[30]);
  1102.     {object V260 = (VFUN_NARGS=12,(*(LnkLI34))((V253),(V254),VV[10],(V255),VV[11],V259,VV[13],(V256),VV[14],(V257),VV[16],(V258)));
  1103.     VMR18(V260)}}
  1104.     }}
  1105. /*    local entry for function COUNT-IF-NOT    */
  1106.  
  1107. static object LI19(V262,V261,va_alist)
  1108.     object V262,V261;
  1109.     va_dcl 
  1110. {    
  1111.     va_list ap;
  1112.     int narg = VFUN_NARGS; VMB19 VMS19 VMV19
  1113.     {object V263;
  1114.     object V264;
  1115.     object V265;
  1116.     object V266;
  1117.     object V267;
  1118.     object V268;
  1119.     if(narg <2) too_few_arguments();
  1120.     V263= V262;
  1121.     V264= V261;
  1122.     narg= narg - 2;
  1123.     va_start(ap);
  1124.     {
  1125.     parse_key_new(narg,Vcs +2,&LI19key,ap);
  1126.     V265=(Vcs[2]);
  1127.     V266=(Vcs[3]);
  1128.     V267=(Vcs[4]);
  1129.     if(Vcs[5]==0){
  1130.     V268= symbol_function(VV[25]);
  1131.     }else{
  1132.     V268=(Vcs[5]);}
  1133.     V269= symbol_function(VV[30]);
  1134.     {object V270 = (VFUN_NARGS=12,(*(LnkLI34))((V263),(V264),VV[10],(V265),VV[12],V269,VV[13],(V266),VV[14],(V267),VV[16],(V268)));
  1135.     VMR19(V270)}}
  1136.     }}
  1137. /*    local entry for function INTERNAL-COUNT    */
  1138.  
  1139. static object LI20(V272,V271,va_alist)
  1140.     object V272,V271;
  1141.     va_dcl 
  1142. {    
  1143.     va_list ap;
  1144.     int narg = VFUN_NARGS; VMB20 VMS20 VMV20
  1145.     {object V273;
  1146.     register object V274;
  1147.     object V275;
  1148.     register object V276;
  1149.     register object V277;
  1150.     object V278;
  1151.     object V279;
  1152.     object V280;
  1153.     object V281;
  1154.     if(narg <2) too_few_arguments();
  1155.     V273= V272;
  1156.     V274= V271;
  1157.     narg= narg - 2;
  1158.     va_start(ap);
  1159.     {
  1160.     parse_key_new(narg,Vcs +2,&LI20key,ap);
  1161.     V275=(Vcs[2]);
  1162.     V276=(Vcs[3]);
  1163.     V277=(Vcs[4]);
  1164.     V278=(Vcs[5]);
  1165.     V279=(Vcs[6]);
  1166.     V280=(Vcs[7]);
  1167.     if(Vcs[8]==0){
  1168.     V281= symbol_function(VV[25]);
  1169.     }else{
  1170.     V281=(Vcs[8]);}
  1171.     {int V282;
  1172.     if(((V278))==Cnil){
  1173.     goto T460;}
  1174.     V282= (*(LnkLI19))((V278));
  1175.     goto T458;
  1176. T460:;
  1177.     V282= 0;
  1178. T458:;
  1179.     {int V283;
  1180.     V283= (*(LnkLI20))((V279),(V274));
  1181.     if(!((V282)<=(V283))){
  1182.     goto T464;}
  1183.     goto T463;
  1184. T464:;
  1185.     V284 = make_fixnum(V282);
  1186.     V285 = make_fixnum(V283);
  1187.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V284,V285)));
  1188. T463:;
  1189.     {int V286;
  1190.     if(((V280))!=Cnil){
  1191.     goto T468;}
  1192.     V286= 2147483647;
  1193.     goto T466;
  1194. T468:;
  1195.     V286= fix((V280));
  1196. T466:;
  1197.     if((V276)==Cnil){
  1198.     goto T471;}
  1199.     if((V277)==Cnil){
  1200.     goto T471;}
  1201.     (void)((*(LnkLI26))());
  1202. T471:;
  1203.     if(((V275))!=Cnil){
  1204.     goto T473;}
  1205.     {register int V287;
  1206.     register int V288;
  1207.     V287= V282;
  1208.     V288= 0;
  1209. T478:;
  1210.     if(!((V287)>=(V283))){
  1211.     goto T479;}
  1212.     {object V289 = make_fixnum(V288);
  1213.     VMR20(V289)}
  1214. T479:;
  1215.     if(!((V288)<(V286))){
  1216.     goto T483;}
  1217.     base[0]= elt((V274),V287);
  1218.     vs_top=(vs_base=base+0)+1;
  1219.     super_funcall_no_event((V281));
  1220.     vs_top=sup;
  1221.     V290= vs_base[0];
  1222.     if(((*(LnkLI27))((V276),(V277),(V273),V290))==Cnil){
  1223.     goto T483;}
  1224.     V288= (1)+(V288);
  1225. T483:;
  1226.     V287= (1)+(V287);
  1227.     goto T478;}
  1228. T473:;
  1229.     {register int V291;
  1230.     register int V292;
  1231.     V291= (-1)+(V283);
  1232.     V292= 0;
  1233. T497:;
  1234.     if(!((V291)<(V282))){
  1235.     goto T498;}
  1236.     {object V293 = make_fixnum(V292);
  1237.     VMR20(V293)}
  1238. T498:;
  1239.     if(!((V292)<(V286))){
  1240.     goto T502;}
  1241.     base[0]= elt((V274),V291);
  1242.     vs_top=(vs_base=base+0)+1;
  1243.     super_funcall_no_event((V281));
  1244.     vs_top=sup;
  1245.     V294= vs_base[0];
  1246.     if(((*(LnkLI27))((V276),(V277),(V273),V294))==Cnil){
  1247.     goto T502;}
  1248.     V292= (1)+(V292);
  1249. T502:;
  1250.     V291= (-1)+(V291);
  1251.     goto T497;}}}}}
  1252.     }}
  1253. /*    local entry for function INTERNAL-COUNT-IF    */
  1254.  
  1255. static object LI21(V296,V295,va_alist)
  1256.     object V296,V295;
  1257.     va_dcl 
  1258. {    
  1259.     va_list ap;
  1260.     int narg = VFUN_NARGS; VMB21 VMS21 VMV21
  1261.     {object V297;
  1262.     object V298;
  1263.     object V299;
  1264.     object V300;
  1265.     object V301;
  1266.     object V302;
  1267.     object V303;
  1268.     if(narg <2) too_few_arguments();
  1269.     V297= V296;
  1270.     V298= V295;
  1271.     narg= narg - 2;
  1272.     va_start(ap);
  1273.     {
  1274.     parse_key_new(narg,Vcs +2,&LI21key,ap);
  1275.     V299=(Vcs[2]);
  1276.     V300=(Vcs[3]);
  1277.     V301=(Vcs[4]);
  1278.     V302=(Vcs[5]);
  1279.     if(Vcs[6]==0){
  1280.     V303= symbol_function(VV[25]);
  1281.     }else{
  1282.     V303=(Vcs[6]);}
  1283.     V304= symbol_function(VV[30]);
  1284.     {object V305 = (VFUN_NARGS=14,(*(LnkLI31))((V297),(V298),VV[10],(V299),VV[11],V304,VV[13],(V300),VV[14],(V301),VV[15],(V302),VV[16],(V303)));
  1285.     VMR21(V305)}}
  1286.     }}
  1287. /*    local entry for function INTERNAL-COUNT-IF-NOT    */
  1288.  
  1289. static object LI22(V307,V306,va_alist)
  1290.     object V307,V306;
  1291.     va_dcl 
  1292. {    
  1293.     va_list ap;
  1294.     int narg = VFUN_NARGS; VMB22 VMS22 VMV22
  1295.     {object V308;
  1296.     object V309;
  1297.     object V310;
  1298.     object V311;
  1299.     object V312;
  1300.     object V313;
  1301.     object V314;
  1302.     if(narg <2) too_few_arguments();
  1303.     V308= V307;
  1304.     V309= V306;
  1305.     narg= narg - 2;
  1306.     va_start(ap);
  1307.     {
  1308.     parse_key_new(narg,Vcs +2,&LI22key,ap);
  1309.     V310=(Vcs[2]);
  1310.     V311=(Vcs[3]);
  1311.     V312=(Vcs[4]);
  1312.     V313=(Vcs[5]);
  1313.     if(Vcs[6]==0){
  1314.     V314= symbol_function(VV[25]);
  1315.     }else{
  1316.     V314=(Vcs[6]);}
  1317.     V315= symbol_function(VV[30]);
  1318.     {object V316 = (VFUN_NARGS=14,(*(LnkLI31))((V308),(V309),VV[10],(V310),VV[12],V315,VV[13],(V311),VV[14],(V312),VV[15],(V313),VV[16],(V314)));
  1319.     VMR22(V316)}}
  1320.     }}
  1321. /*    local entry for function SUBSTITUTE    */
  1322.  
  1323. static object LI23(V319,V318,V317,va_alist)
  1324.     object V319,V318,V317;
  1325.     va_dcl 
  1326. {    
  1327.     va_list ap;
  1328.     int narg = VFUN_NARGS; VMB23 VMS23 VMV23
  1329.     {object V320;
  1330.     object V321;
  1331.     register object V322;
  1332.     object V323;
  1333.     object V324;
  1334.     object V325;
  1335.     object V326;
  1336.     object V327;
  1337.     object V328;
  1338.     object V329;
  1339.     if(narg <3) too_few_arguments();
  1340.     V320= V319;
  1341.     V321= V318;
  1342.     V322= V317;
  1343.     narg= narg - 3;
  1344.     va_start(ap);
  1345.     {
  1346.     parse_key_new(narg,Vcs +3,&LI23key,ap);
  1347.     V323=(Vcs[3]);
  1348.     V324=(Vcs[4]);
  1349.     V325=(Vcs[5]);
  1350.     V326=(Vcs[6]);
  1351.     V327=(Vcs[7]);
  1352.     V328=(Vcs[8]);
  1353.     if(Vcs[9]==0){
  1354.     V329= symbol_function(VV[25]);
  1355.     }else{
  1356.     V329=(Vcs[9]);}
  1357.     {int V330;
  1358.     V330= length((V322));
  1359.     {int V331;
  1360.     if(((V326))==Cnil){
  1361.     goto T521;}
  1362.     V331= (*(LnkLI19))((V326));
  1363.     goto T519;
  1364. T521:;
  1365.     V331= 0;
  1366. T519:;
  1367.     {int V332;
  1368.     V332= (*(LnkLI20))((V327),(V322));
  1369.     if(!((V331)<=(V332))){
  1370.     goto T525;}
  1371.     goto T524;
  1372. T525:;
  1373.     V333 = make_fixnum(V331);
  1374.     V334 = make_fixnum(V332);
  1375.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V333,V334)));
  1376. T524:;
  1377.     {int V335;
  1378.     if(((V328))!=Cnil){
  1379.     goto T529;}
  1380.     V335= 2147483647;
  1381.     goto T527;
  1382. T529:;
  1383.     V335= fix((V328));
  1384. T527:;
  1385.     if((V324)==Cnil){
  1386.     goto T532;}
  1387.     if((V325)==Cnil){
  1388.     goto T532;}
  1389.     (void)((*(LnkLI26))());
  1390. T532:;
  1391.     if(((V323))!=Cnil){
  1392.     goto T534;}
  1393.     {register object V336;
  1394.     register int V337;
  1395.     register int V338;
  1396.     V339= (*(LnkLI33))((V322));
  1397.     V340 = make_fixnum(V330);
  1398.     V336= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V339,V340));
  1399.     V337= 0;
  1400.     V338= 0;
  1401. T540:;
  1402.     if(!((V337)>=(V330))){
  1403.     goto T541;}
  1404.     {object V341 = (V336);
  1405.     VMR23(V341)}
  1406. T541:;
  1407.     if(!((V331)<=(V337))){
  1408.     goto T547;}
  1409.     if(!((V337)<(V332))){
  1410.     goto T547;}
  1411.     if(!((V338)<(V335))){
  1412.     goto T547;}
  1413.     base[0]= elt((V322),V337);
  1414.     vs_top=(vs_base=base+0)+1;
  1415.     super_funcall_no_event((V329));
  1416.     vs_top=sup;
  1417.     V342= vs_base[0];
  1418.     if(((*(LnkLI27))((V324),(V325),(V321),V342))==Cnil){
  1419.     goto T547;}
  1420.     (void)(elt_set((V336),V337,(V320)));
  1421.     V338= (1)+(V338);
  1422.     goto T545;
  1423. T547:;
  1424.     V343= elt((V322),V337);
  1425.     (void)(elt_set((V336),V337,/* INLINE-ARGS */V343));
  1426. T545:;
  1427.     V337= (1)+(V337);
  1428.     goto T540;}
  1429. T534:;
  1430.     {register object V344;
  1431.     register int V345;
  1432.     register int V346;
  1433.     V347= (*(LnkLI33))((V322));
  1434.     V348 = make_fixnum(V330);
  1435.     V344= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V347,V348));
  1436.     V345= (-1)+(V330);
  1437.     V346= 0;
  1438. T566:;
  1439.     if(!((V345)<(0))){
  1440.     goto T567;}
  1441.     {object V349 = (V344);
  1442.     VMR23(V349)}
  1443. T567:;
  1444.     if(!((V331)<=(V345))){
  1445.     goto T573;}
  1446.     if(!((V345)<(V332))){
  1447.     goto T573;}
  1448.     if(!((V346)<(V335))){
  1449.     goto T573;}
  1450.     base[0]= elt((V322),V345);
  1451.     vs_top=(vs_base=base+0)+1;
  1452.     super_funcall_no_event((V329));
  1453.     vs_top=sup;
  1454.     V350= vs_base[0];
  1455.     if(((*(LnkLI27))((V324),(V325),(V321),V350))==Cnil){
  1456.     goto T573;}
  1457.     (void)(elt_set((V344),V345,(V320)));
  1458.     V346= (1)+(V346);
  1459.     goto T571;
  1460. T573:;
  1461.     V351= elt((V322),V345);
  1462.     (void)(elt_set((V344),V345,/* INLINE-ARGS */V351));
  1463. T571:;
  1464.     V345= (-1)+(V345);
  1465.     goto T566;}}}}}}
  1466.     }}
  1467. /*    local entry for function SUBSTITUTE-IF    */
  1468.  
  1469. static object LI24(V354,V353,V352,va_alist)
  1470.     object V354,V353,V352;
  1471.     va_dcl 
  1472. {    
  1473.     va_list ap;
  1474.     int narg = VFUN_NARGS; VMB24 VMS24 VMV24
  1475.     {object V355;
  1476.     object V356;
  1477.     object V357;
  1478.     object V358;
  1479.     object V359;
  1480.     object V360;
  1481.     object V361;
  1482.     object V362;
  1483.     if(narg <3) too_few_arguments();
  1484.     V355= V354;
  1485.     V356= V353;
  1486.     V357= V352;
  1487.     narg= narg - 3;
  1488.     va_start(ap);
  1489.     {
  1490.     parse_key_new(narg,Vcs +3,&LI24key,ap);
  1491.     V358=(Vcs[3]);
  1492.     V359=(Vcs[4]);
  1493.     V360=(Vcs[5]);
  1494.     V361=(Vcs[6]);
  1495.     if(Vcs[7]==0){
  1496.     V362= symbol_function(VV[25]);
  1497.     }else{
  1498.     V362=(Vcs[7]);}
  1499.     V363= symbol_function(VV[30]);
  1500.     {object V364 = (VFUN_NARGS=15,(*(LnkLI35))((V355),(V356),(V357),VV[10],(V358),VV[11],V363,VV[13],(V359),VV[14],(V360),VV[15],(V361),VV[16],(V362)));
  1501.     VMR24(V364)}}
  1502.     }}
  1503. /*    local entry for function SUBSTITUTE-IF-NOT    */
  1504.  
  1505. static object LI25(V367,V366,V365,va_alist)
  1506.     object V367,V366,V365;
  1507.     va_dcl 
  1508. {    
  1509.     va_list ap;
  1510.     int narg = VFUN_NARGS; VMB25 VMS25 VMV25
  1511.     {object V368;
  1512.     object V369;
  1513.     object V370;
  1514.     object V371;
  1515.     object V372;
  1516.     object V373;
  1517.     object V374;
  1518.     object V375;
  1519.     if(narg <3) too_few_arguments();
  1520.     V368= V367;
  1521.     V369= V366;
  1522.     V370= V365;
  1523.     narg= narg - 3;
  1524.     va_start(ap);
  1525.     {
  1526.     parse_key_new(narg,Vcs +3,&LI25key,ap);
  1527.     V371=(Vcs[3]);
  1528.     V372=(Vcs[4]);
  1529.     V373=(Vcs[5]);
  1530.     V374=(Vcs[6]);
  1531.     if(Vcs[7]==0){
  1532.     V375= symbol_function(VV[25]);
  1533.     }else{
  1534.     V375=(Vcs[7]);}
  1535.     V376= symbol_function(VV[30]);
  1536.     {object V377 = (VFUN_NARGS=15,(*(LnkLI35))((V368),(V369),(V370),VV[10],(V371),VV[12],V376,VV[13],(V372),VV[14],(V373),VV[15],(V374),VV[16],(V375)));
  1537.     VMR25(V377)}}
  1538.     }}
  1539. /*    local entry for function NSUBSTITUTE    */
  1540.  
  1541. static object LI26(V380,V379,V378,va_alist)
  1542.     object V380,V379,V378;
  1543.     va_dcl 
  1544. {    
  1545.     va_list ap;
  1546.     int narg = VFUN_NARGS; VMB26 VMS26 VMV26
  1547.     {object V381;
  1548.     object V382;
  1549.     register object V383;
  1550.     object V384;
  1551.     register object V385;
  1552.     register object V386;
  1553.     object V387;
  1554.     object V388;
  1555.     object V389;
  1556.     object V390;
  1557.     if(narg <3) too_few_arguments();
  1558.     V381= V380;
  1559.     V382= V379;
  1560.     V383= V378;
  1561.     narg= narg - 3;
  1562.     va_start(ap);
  1563.     {
  1564.     parse_key_new(narg,Vcs +3,&LI26key,ap);
  1565.     V384=(Vcs[3]);
  1566.     V385=(Vcs[4]);
  1567.     V386=(Vcs[5]);
  1568.     V387=(Vcs[6]);
  1569.     V388=(Vcs[7]);
  1570.     V389=(Vcs[8]);
  1571.     if(Vcs[9]==0){
  1572.     V390= symbol_function(VV[25]);
  1573.     }else{
  1574.     V390=(Vcs[9]);}
  1575.     {int V391;
  1576.     if(((V387))==Cnil){
  1577.     goto T595;}
  1578.     V391= (*(LnkLI19))((V387));
  1579.     goto T593;
  1580. T595:;
  1581.     V391= 0;
  1582. T593:;
  1583.     {int V392;
  1584.     V392= (*(LnkLI20))((V388),(V383));
  1585.     if(!((V391)<=(V392))){
  1586.     goto T599;}
  1587.     goto T598;
  1588. T599:;
  1589.     V393 = make_fixnum(V391);
  1590.     V394 = make_fixnum(V392);
  1591.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V393,V394)));
  1592. T598:;
  1593.     {int V395;
  1594.     if(((V389))!=Cnil){
  1595.     goto T603;}
  1596.     V395= 2147483647;
  1597.     goto T601;
  1598. T603:;
  1599.     V395= fix((V389));
  1600. T601:;
  1601.     if((V385)==Cnil){
  1602.     goto T606;}
  1603.     if((V386)==Cnil){
  1604.     goto T606;}
  1605.     (void)((*(LnkLI26))());
  1606. T606:;
  1607.     if(((V384))!=Cnil){
  1608.     goto T608;}
  1609.     {register int V396;
  1610.     register int V397;
  1611.     V396= V391;
  1612.     V397= 0;
  1613. T613:;
  1614.     if(!((V396)>=(V392))){
  1615.     goto T614;}
  1616.     {object V398 = (V383);
  1617.     VMR26(V398)}
  1618. T614:;
  1619.     if(!((V397)<(V395))){
  1620.     goto T618;}
  1621.     base[0]= elt((V383),V396);
  1622.     vs_top=(vs_base=base+0)+1;
  1623.     super_funcall_no_event((V390));
  1624.     vs_top=sup;
  1625.     V399= vs_base[0];
  1626.     if(((*(LnkLI27))((V385),(V386),(V382),V399))==Cnil){
  1627.     goto T618;}
  1628.     (void)(elt_set((V383),V396,(V381)));
  1629.     V397= (1)+(V397);
  1630. T618:;
  1631.     V396= (1)+(V396);
  1632.     goto T613;}
  1633. T608:;
  1634.     {register int V400;
  1635.     register int V401;
  1636.     V400= (-1)+(V392);
  1637.     V401= 0;
  1638. T633:;
  1639.     if(!((V400)<(V391))){
  1640.     goto T634;}
  1641.     {object V402 = (V383);
  1642.     VMR26(V402)}
  1643. T634:;
  1644.     if(!((V401)<(V395))){
  1645.     goto T638;}
  1646.     base[0]= elt((V383),V400);
  1647.     vs_top=(vs_base=base+0)+1;
  1648.     super_funcall_no_event((V390));
  1649.     vs_top=sup;
  1650.     V403= vs_base[0];
  1651.     if(((*(LnkLI27))((V385),(V386),(V382),V403))==Cnil){
  1652.     goto T638;}
  1653.     (void)(elt_set((V383),V400,(V381)));
  1654.     V401= (1)+(V401);
  1655. T638:;
  1656.     V400= (-1)+(V400);
  1657.     goto T633;}}}}}
  1658.     }}
  1659. /*    local entry for function NSUBSTITUTE-IF    */
  1660.  
  1661. static object LI27(V406,V405,V404,va_alist)
  1662.     object V406,V405,V404;
  1663.     va_dcl 
  1664. {    
  1665.     va_list ap;
  1666.     int narg = VFUN_NARGS; VMB27 VMS27 VMV27
  1667.     {object V407;
  1668.     object V408;
  1669.     object V409;
  1670.     object V410;
  1671.     object V411;
  1672.     object V412;
  1673.     object V413;
  1674.     object V414;
  1675.     if(narg <3) too_few_arguments();
  1676.     V407= V406;
  1677.     V408= V405;
  1678.     V409= V404;
  1679.     narg= narg - 3;
  1680.     va_start(ap);
  1681.     {
  1682.     parse_key_new(narg,Vcs +3,&LI27key,ap);
  1683.     V410=(Vcs[3]);
  1684.     V411=(Vcs[4]);
  1685.     V412=(Vcs[5]);
  1686.     V413=(Vcs[6]);
  1687.     if(Vcs[7]==0){
  1688.     V414= symbol_function(VV[25]);
  1689.     }else{
  1690.     V414=(Vcs[7]);}
  1691.     V415= symbol_function(VV[30]);
  1692.     {object V416 = (VFUN_NARGS=15,(*(LnkLI36))((V407),(V408),(V409),VV[10],(V410),VV[11],V415,VV[13],(V411),VV[14],(V412),VV[15],(V413),VV[16],(V414)));
  1693.     VMR27(V416)}}
  1694.     }}
  1695. /*    local entry for function NSUBSTITUTE-IF-NOT    */
  1696.  
  1697. static object LI28(V419,V418,V417,va_alist)
  1698.     object V419,V418,V417;
  1699.     va_dcl 
  1700. {    
  1701.     va_list ap;
  1702.     int narg = VFUN_NARGS; VMB28 VMS28 VMV28
  1703.     {object V420;
  1704.     object V421;
  1705.     object V422;
  1706.     object V423;
  1707.     object V424;
  1708.     object V425;
  1709.     object V426;
  1710.     object V427;
  1711.     if(narg <3) too_few_arguments();
  1712.     V420= V419;
  1713.     V421= V418;
  1714.     V422= V417;
  1715.     narg= narg - 3;
  1716.     va_start(ap);
  1717.     {
  1718.     parse_key_new(narg,Vcs +3,&LI28key,ap);
  1719.     V423=(Vcs[3]);
  1720.     V424=(Vcs[4]);
  1721.     V425=(Vcs[5]);
  1722.     V426=(Vcs[6]);
  1723.     if(Vcs[7]==0){
  1724.     V427= symbol_function(VV[25]);
  1725.     }else{
  1726.     V427=(Vcs[7]);}
  1727.     V428= symbol_function(VV[30]);
  1728.     {object V429 = (VFUN_NARGS=15,(*(LnkLI36))((V420),(V421),(V422),VV[10],(V423),VV[12],V428,VV[13],(V424),VV[14],(V425),VV[15],(V426),VV[16],(V427)));
  1729.     VMR28(V429)}}
  1730.     }}
  1731. /*    local entry for function FIND    */
  1732.  
  1733. static object LI29(V431,V430,va_alist)
  1734.     object V431,V430;
  1735.     va_dcl 
  1736. {    
  1737.     va_list ap;
  1738.     int narg = VFUN_NARGS; VMB29 VMS29 VMV29
  1739.     {register object V432;
  1740.     register object V433;
  1741.     object V434;
  1742.     register object V435;
  1743.     register object V436;
  1744.     object V437;
  1745.     object V438;
  1746.     register object V439;
  1747.     if(narg <2) too_few_arguments();
  1748.     V432= V431;
  1749.     V433= V430;
  1750.     narg= narg - 2;
  1751.     va_start(ap);
  1752.     {
  1753.     parse_key_new(narg,Vcs +2,&LI29key,ap);
  1754.     V434=(Vcs[2]);
  1755.     V435=(Vcs[3]);
  1756.     V436=(Vcs[4]);
  1757.     V437=(Vcs[5]);
  1758.     V438=(Vcs[6]);
  1759.     if(Vcs[7]==0){
  1760.     V439= symbol_function(VV[25]);
  1761.     }else{
  1762.     V439=(Vcs[7]);}
  1763.     {int V440;
  1764.     if(((V437))==Cnil){
  1765.     goto T657;}
  1766.     V440= (*(LnkLI19))((V437));
  1767.     goto T655;
  1768. T657:;
  1769.     V440= 0;
  1770. T655:;
  1771.     {int V441;
  1772.     V441= (*(LnkLI20))((V438),(V433));
  1773.     if(!((V440)<=(V441))){
  1774.     goto T661;}
  1775.     goto T660;
  1776. T661:;
  1777.     V442 = make_fixnum(V440);
  1778.     V443 = make_fixnum(V441);
  1779.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V442,V443)));
  1780. T660:;
  1781.     if((V435)==Cnil){
  1782.     goto T663;}
  1783.     if((V436)==Cnil){
  1784.     goto T663;}
  1785.     (void)((*(LnkLI26))());
  1786. T663:;
  1787.     if(((V434))!=Cnil){
  1788.     goto T665;}
  1789.     {register int V444;
  1790.     V444= V440;
  1791. T669:;
  1792.     if(!((V444)>=(V441))){
  1793.     goto T670;}
  1794.     {object V445 = Cnil;
  1795.     VMR29(V445)}
  1796. T670:;
  1797.     base[0]= elt((V433),V444);
  1798.     vs_top=(vs_base=base+0)+1;
  1799.     super_funcall_no_event((V439));
  1800.     vs_top=sup;
  1801.     V446= vs_base[0];
  1802.     if(((*(LnkLI27))((V435),(V436),(V432),V446))==Cnil){
  1803.     goto T674;}
  1804.     {object V447 = elt((V433),V444);
  1805.     VMR29(V447)}
  1806. T674:;
  1807.     V444= (1)+(V444);
  1808.     goto T669;}
  1809. T665:;
  1810.     {register int V448;
  1811.     V448= (-1)+(V441);
  1812. T684:;
  1813.     if(!((V448)<(V440))){
  1814.     goto T685;}
  1815.     {object V449 = Cnil;
  1816.     VMR29(V449)}
  1817. T685:;
  1818.     base[0]= elt((V433),V448);
  1819.     vs_top=(vs_base=base+0)+1;
  1820.     super_funcall_no_event((V439));
  1821.     vs_top=sup;
  1822.     V450= vs_base[0];
  1823.     if(((*(LnkLI27))((V435),(V436),(V432),V450))==Cnil){
  1824.     goto T689;}
  1825.     {object V451 = elt((V433),V448);
  1826.     VMR29(V451)}
  1827. T689:;
  1828.     V448= (-1)+(V448);
  1829.     goto T684;}}}}
  1830.     }}
  1831. /*    local entry for function FIND-IF    */
  1832.  
  1833. static object LI30(V453,V452,va_alist)
  1834.     object V453,V452;
  1835.     va_dcl 
  1836. {    
  1837.     va_list ap;
  1838.     int narg = VFUN_NARGS; VMB30 VMS30 VMV30
  1839.     {object V454;
  1840.     object V455;
  1841.     object V456;
  1842.     object V457;
  1843.     object V458;
  1844.     object V459;
  1845.     if(narg <2) too_few_arguments();
  1846.     V454= V453;
  1847.     V455= V452;
  1848.     narg= narg - 2;
  1849.     va_start(ap);
  1850.     {
  1851.     parse_key_new(narg,Vcs +2,&LI30key,ap);
  1852.     V456=(Vcs[2]);
  1853.     V457=(Vcs[3]);
  1854.     V458=(Vcs[4]);
  1855.     if(Vcs[5]==0){
  1856.     V459= symbol_function(VV[25]);
  1857.     }else{
  1858.     V459=(Vcs[5]);}
  1859.     V460= symbol_function(VV[30]);
  1860.     {object V461 = (VFUN_NARGS=12,(*(LnkLI37))((V454),(V455),VV[10],(V456),VV[11],V460,VV[13],(V457),VV[14],(V458),VV[16],(V459)));
  1861.     VMR30(V461)}}
  1862.     }}
  1863. /*    local entry for function FIND-IF-NOT    */
  1864.  
  1865. static object LI31(V463,V462,va_alist)
  1866.     object V463,V462;
  1867.     va_dcl 
  1868. {    
  1869.     va_list ap;
  1870.     int narg = VFUN_NARGS; VMB31 VMS31 VMV31
  1871.     {object V464;
  1872.     object V465;
  1873.     object V466;
  1874.     object V467;
  1875.     object V468;
  1876.     object V469;
  1877.     if(narg <2) too_few_arguments();
  1878.     V464= V463;
  1879.     V465= V462;
  1880.     narg= narg - 2;
  1881.     va_start(ap);
  1882.     {
  1883.     parse_key_new(narg,Vcs +2,&LI31key,ap);
  1884.     V466=(Vcs[2]);
  1885.     V467=(Vcs[3]);
  1886.     V468=(Vcs[4]);
  1887.     if(Vcs[5]==0){
  1888.     V469= symbol_function(VV[25]);
  1889.     }else{
  1890.     V469=(Vcs[5]);}
  1891.     V470= symbol_function(VV[30]);
  1892.     {object V471 = (VFUN_NARGS=12,(*(LnkLI37))((V464),(V465),VV[10],(V466),VV[12],V470,VV[13],(V467),VV[14],(V468),VV[16],(V469)));
  1893.     VMR31(V471)}}
  1894.     }}
  1895. /*    local entry for function POSITION    */
  1896.  
  1897. static object LI32(V473,V472,va_alist)
  1898.     object V473,V472;
  1899.     va_dcl 
  1900. {    
  1901.     va_list ap;
  1902.     int narg = VFUN_NARGS; VMB32 VMS32 VMV32
  1903.     {register object V474;
  1904.     register object V475;
  1905.     object V476;
  1906.     register object V477;
  1907.     register object V478;
  1908.     object V479;
  1909.     object V480;
  1910.     register object V481;
  1911.     if(narg <2) too_few_arguments();
  1912.     V474= V473;
  1913.     V475= V472;
  1914.     narg= narg - 2;
  1915.     va_start(ap);
  1916.     {
  1917.     parse_key_new(narg,Vcs +2,&LI32key,ap);
  1918.     V476=(Vcs[2]);
  1919.     V477=(Vcs[3]);
  1920.     V478=(Vcs[4]);
  1921.     V479=(Vcs[5]);
  1922.     V480=(Vcs[6]);
  1923.     if(Vcs[7]==0){
  1924.     V481= symbol_function(VV[25]);
  1925.     }else{
  1926.     V481=(Vcs[7]);}
  1927.     {int V482;
  1928.     if(((V479))==Cnil){
  1929.     goto T704;}
  1930.     V482= (*(LnkLI19))((V479));
  1931.     goto T702;
  1932. T704:;
  1933.     V482= 0;
  1934. T702:;
  1935.     {int V483;
  1936.     V483= (*(LnkLI20))((V480),(V475));
  1937.     if(!((V482)<=(V483))){
  1938.     goto T708;}
  1939.     goto T707;
  1940. T708:;
  1941.     V484 = make_fixnum(V482);
  1942.     V485 = make_fixnum(V483);
  1943.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V484,V485)));
  1944. T707:;
  1945.     if((V477)==Cnil){
  1946.     goto T710;}
  1947.     if((V478)==Cnil){
  1948.     goto T710;}
  1949.     (void)((*(LnkLI26))());
  1950. T710:;
  1951.     if(((V476))!=Cnil){
  1952.     goto T712;}
  1953.     {register int V486;
  1954.     V486= V482;
  1955. T716:;
  1956.     if(!((V486)>=(V483))){
  1957.     goto T717;}
  1958.     {object V487 = Cnil;
  1959.     VMR32(V487)}
  1960. T717:;
  1961.     base[0]= elt((V475),V486);
  1962.     vs_top=(vs_base=base+0)+1;
  1963.     super_funcall_no_event((V481));
  1964.     vs_top=sup;
  1965.     V488= vs_base[0];
  1966.     if(((*(LnkLI27))((V477),(V478),(V474),V488))==Cnil){
  1967.     goto T721;}
  1968.     {object V489 = make_fixnum(V486);
  1969.     VMR32(V489)}
  1970. T721:;
  1971.     V486= (1)+(V486);
  1972.     goto T716;}
  1973. T712:;
  1974.     {register int V490;
  1975.     V490= (-1)+(V483);
  1976. T731:;
  1977.     if(!((V490)<(V482))){
  1978.     goto T732;}
  1979.     {object V491 = Cnil;
  1980.     VMR32(V491)}
  1981. T732:;
  1982.     base[0]= elt((V475),V490);
  1983.     vs_top=(vs_base=base+0)+1;
  1984.     super_funcall_no_event((V481));
  1985.     vs_top=sup;
  1986.     V492= vs_base[0];
  1987.     if(((*(LnkLI27))((V477),(V478),(V474),V492))==Cnil){
  1988.     goto T736;}
  1989.     {object V493 = make_fixnum(V490);
  1990.     VMR32(V493)}
  1991. T736:;
  1992.     V490= (-1)+(V490);
  1993.     goto T731;}}}}
  1994.     }}
  1995. /*    local entry for function POSITION-IF    */
  1996.  
  1997. static object LI33(V495,V494,va_alist)
  1998.     object V495,V494;
  1999.     va_dcl 
  2000. {    
  2001.     va_list ap;
  2002.     int narg = VFUN_NARGS; VMB33 VMS33 VMV33
  2003.     {object V496;
  2004.     object V497;
  2005.     object V498;
  2006.     object V499;
  2007.     object V500;
  2008.     object V501;
  2009.     if(narg <2) too_few_arguments();
  2010.     V496= V495;
  2011.     V497= V494;
  2012.     narg= narg - 2;
  2013.     va_start(ap);
  2014.     {
  2015.     parse_key_new(narg,Vcs +2,&LI33key,ap);
  2016.     V498=(Vcs[2]);
  2017.     V499=(Vcs[3]);
  2018.     V500=(Vcs[4]);
  2019.     if(Vcs[5]==0){
  2020.     V501= symbol_function(VV[25]);
  2021.     }else{
  2022.     V501=(Vcs[5]);}
  2023.     V502= symbol_function(VV[30]);
  2024.     {object V503 = (VFUN_NARGS=12,(*(LnkLI38))((V496),(V497),VV[10],(V498),VV[11],V502,VV[13],(V499),VV[14],(V500),VV[16],(V501)));
  2025.     VMR33(V503)}}
  2026.     }}
  2027. /*    local entry for function POSITION-IF-NOT    */
  2028.  
  2029. static object LI34(V505,V504,va_alist)
  2030.     object V505,V504;
  2031.     va_dcl 
  2032. {    
  2033.     va_list ap;
  2034.     int narg = VFUN_NARGS; VMB34 VMS34 VMV34
  2035.     {object V506;
  2036.     object V507;
  2037.     object V508;
  2038.     object V509;
  2039.     object V510;
  2040.     object V511;
  2041.     if(narg <2) too_few_arguments();
  2042.     V506= V505;
  2043.     V507= V504;
  2044.     narg= narg - 2;
  2045.     va_start(ap);
  2046.     {
  2047.     parse_key_new(narg,Vcs +2,&LI34key,ap);
  2048.     V508=(Vcs[2]);
  2049.     V509=(Vcs[3]);
  2050.     V510=(Vcs[4]);
  2051.     if(Vcs[5]==0){
  2052.     V511= symbol_function(VV[25]);
  2053.     }else{
  2054.     V511=(Vcs[5]);}
  2055.     V512= symbol_function(VV[30]);
  2056.     {object V513 = (VFUN_NARGS=12,(*(LnkLI38))((V506),(V507),VV[10],(V508),VV[12],V512,VV[13],(V509),VV[14],(V510),VV[16],(V511)));
  2057.     VMR34(V513)}}
  2058.     }}
  2059. /*    local entry for function REMOVE-DUPLICATES    */
  2060.  
  2061. static object LI35(V514,va_alist)
  2062.     object V514;
  2063.     va_dcl 
  2064. {    
  2065.     va_list ap;
  2066.     int narg = VFUN_NARGS; VMB35 VMS35 VMV35
  2067.     {register object V515;
  2068.     object V516;
  2069.     register object V517;
  2070.     register object V518;
  2071.     object V519;
  2072.     object V520;
  2073.     register object V521;
  2074.     if(narg <1) too_few_arguments();
  2075.     V515= V514;
  2076.     narg= narg - 1;
  2077.     va_start(ap);
  2078.     {
  2079.     parse_key_new(narg,Vcs +1,&LI35key,ap);
  2080.     V516=(Vcs[1]);
  2081.     V517=(Vcs[2]);
  2082.     V518=(Vcs[3]);
  2083.     V519=(Vcs[4]);
  2084.     V520=(Vcs[5]);
  2085.     if(Vcs[6]==0){
  2086.     V521= symbol_function(VV[25]);
  2087.     }else{
  2088.     V521=(Vcs[6]);}
  2089.     if((V517)==Cnil){
  2090.     goto T749;}
  2091.     if((V518)==Cnil){
  2092.     goto T749;}
  2093.     (void)((*(LnkLI26))());
  2094. T749:;
  2095.     if(!(type_of((V515))==t_cons||((V515))==Cnil)){
  2096.     goto T750;}
  2097.     if(((V516))!=Cnil){
  2098.     goto T750;}
  2099.     if(((V519))!=Cnil){
  2100.     goto T750;}
  2101.     if(((V520))!=Cnil){
  2102.     goto T750;}
  2103.     if(!(endp((V515)))){
  2104.     goto T759;}
  2105.     {object V522 = Cnil;
  2106.     VMR35(V522)}
  2107. T759:;
  2108.     {register object V523;
  2109.     register object V524;
  2110.     V523= (V515);
  2111.     V524= Cnil;
  2112. T763:;
  2113.     if(!(endp(cdr((V523))))){
  2114.     goto T764;}
  2115.     base[0]= (V524);
  2116.     base[1]= (V523);
  2117.     vs_top=(vs_base=base+0)+2;
  2118.     Lreconc();
  2119.     vs_top=sup;
  2120.     {object V525 = vs_base[0];
  2121.     VMR35(V525)}
  2122. T764:;
  2123.     base[0]= car((V523));
  2124.     base[1]= cdr((V523));
  2125.     base[2]= VV[11];
  2126.     base[3]= (V517);
  2127.     base[4]= VV[12];
  2128.     base[5]= (V518);
  2129.     base[6]= VV[16];
  2130.     base[7]= (V521);
  2131.     vs_top=(vs_base=base+0)+8;
  2132.     (void) (*Lnk39)();
  2133.     vs_top=sup;
  2134.     if((vs_base[0])!=Cnil){
  2135.     goto T770;}
  2136.     V524= make_cons(car((V523)),(V524));
  2137. T770:;
  2138.     V523= cdr((V523));
  2139.     goto T763;}
  2140. T750:;
  2141.     {object V526 = (VFUN_NARGS=13,(*(LnkLI40))((V515),VV[10],(V516),VV[11],(V517),VV[12],(V518),VV[13],(V519),VV[14],(V520),VV[16],(V521)));
  2142.     VMR35(V526)}}
  2143.     }}
  2144. /*    local entry for function DELETE-DUPLICATES    */
  2145.  
  2146. static object LI36(V527,va_alist)
  2147.     object V527;
  2148.     va_dcl 
  2149. {    
  2150.     va_list ap;
  2151.     int narg = VFUN_NARGS; VMB36 VMS36 VMV36
  2152.     {register object V528;
  2153.     object V529;
  2154.     object V530;
  2155.     object V531;
  2156.     object V532;
  2157.     object V533;
  2158.     register object V534;
  2159.     if(narg <1) too_few_arguments();
  2160.     V528= V527;
  2161.     narg= narg - 1;
  2162.     va_start(ap);
  2163.     {
  2164.     parse_key_new(narg,Vcs +1,&LI36key,ap);
  2165.     V529=(Vcs[1]);
  2166.     V530=(Vcs[2]);
  2167.     V531=(Vcs[3]);
  2168.     V532=(Vcs[4]);
  2169.     V533=(Vcs[5]);
  2170.     if(Vcs[6]==0){
  2171.     V534= symbol_function(VV[25]);
  2172.     }else{
  2173.     V534=(Vcs[6]);}
  2174.     {int V535;
  2175.     V535= length((V528));
  2176.     if((V530)==Cnil){
  2177.     goto T787;}
  2178.     if((V531)==Cnil){
  2179.     goto T787;}
  2180.     (void)((*(LnkLI26))());
  2181. T787:;
  2182.     if(!(type_of((V528))==t_cons||((V528))==Cnil)){
  2183.     goto T788;}
  2184.     if(((V529))!=Cnil){
  2185.     goto T788;}
  2186.     if(((V532))!=Cnil){
  2187.     goto T788;}
  2188.     if(((V533))!=Cnil){
  2189.     goto T788;}
  2190.     if(!(endp((V528)))){
  2191.     goto T797;}
  2192.     {object V536 = Cnil;
  2193.     VMR36(V536)}
  2194. T797:;
  2195.     {register object V537;
  2196.     V537= (V528);
  2197. T801:;
  2198.     if(!(endp(cdr((V537))))){
  2199.     goto T802;}
  2200.     {object V538 = (V528);
  2201.     VMR36(V538)}
  2202. T802:;
  2203.     base[0]= car((V537));
  2204.     base[1]= cdr((V537));
  2205.     base[2]= VV[11];
  2206.     base[3]= (V530);
  2207.     base[4]= VV[12];
  2208.     base[5]= (V531);
  2209.     base[6]= VV[16];
  2210.     base[7]= (V534);
  2211.     vs_top=(vs_base=base+0)+8;
  2212.     (void) (*Lnk39)();
  2213.     vs_top=sup;
  2214.     if((vs_base[0])==Cnil){
  2215.     goto T808;}
  2216.     if(type_of((V537))!=t_cons)FEwrong_type_argument(Scons,(V537));
  2217.     ((V537))->c.c_car = cadr((V537));
  2218.     if(type_of((V537))!=t_cons)FEwrong_type_argument(Scons,(V537));
  2219.     ((V537))->c.c_cdr = cddr((V537));
  2220.     goto T806;
  2221. T808:;
  2222.     V537= cdr((V537));
  2223. T806:;
  2224.     goto T801;}
  2225. T788:;
  2226.     {register int V539;
  2227.     if(((V532))==Cnil){
  2228.     goto T824;}
  2229.     V539= (*(LnkLI19))((V532));
  2230.     goto T822;
  2231. T824:;
  2232.     V539= 0;
  2233. T822:;
  2234.     {register int V540;
  2235.     V540= (*(LnkLI20))((V533),(V528));
  2236.     if(!((V539)<=(V540))){
  2237.     goto T828;}
  2238.     goto T827;
  2239. T828:;
  2240.     V541 = make_fixnum(V539);
  2241.     V542 = make_fixnum(V540);
  2242.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V541,V542)));
  2243. T827:;
  2244.     if(((V529))!=Cnil){
  2245.     goto T831;}
  2246.     {int V543;
  2247.     int V544;
  2248.     V543= 0;
  2249.     V544= V539;
  2250. T836:;
  2251.     if(!((V544)>=(V540))){
  2252.     goto T837;}
  2253.     {object V545;
  2254.     register int V546;
  2255.     int V547;
  2256.     V548= (*(LnkLI33))((V528));
  2257.     V549 = make_fixnum((V535)-(V543));
  2258.     V545= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V548,V549));
  2259.     V546= 0;
  2260.     V547= 0;
  2261. T844:;
  2262.     if(!((V546)>=(V535))){
  2263.     goto T845;}
  2264.     {object V550 = (V545);
  2265.     VMR36(V550)}
  2266. T845:;
  2267.     {object V551;
  2268.     if((V539)<=(V546)){
  2269.     goto T851;}
  2270.     V551= Cnil;
  2271.     goto T850;
  2272. T851:;
  2273.     if((V546)<(V540)){
  2274.     goto T853;}
  2275.     V551= Cnil;
  2276.     goto T850;
  2277. T853:;
  2278.     base[0]= elt((V528),V546);
  2279.     vs_top=(vs_base=base+0)+1;
  2280.     super_funcall_no_event((V534));
  2281.     vs_top=sup;
  2282.     V552= vs_base[0];
  2283.     V553 = make_fixnum((1)+(V546));
  2284.     V554 = make_fixnum(V540);
  2285.     V551= (VFUN_NARGS=12,(*(LnkLI38))(V552,(V528),VV[11],(V530),VV[12],(V531),VV[13],V553,VV[14],V554,VV[16],(V534)));
  2286. T850:;
  2287.     if(((V551))==Cnil){
  2288.     goto T858;}
  2289.     goto T849;
  2290. T858:;
  2291.     V555= elt((V528),V546);
  2292.     (void)(elt_set((V545),V547,/* INLINE-ARGS */V555));
  2293.     V547= (1)+(V547);}
  2294. T849:;
  2295.     V546= (1)+(V546);
  2296.     goto T844;}
  2297. T837:;
  2298.     base[0]= elt((V528),V544);
  2299.     vs_top=(vs_base=base+0)+1;
  2300.     super_funcall_no_event((V534));
  2301.     vs_top=sup;
  2302.     V556= vs_base[0];
  2303.     V557 = make_fixnum((1)+(V544));
  2304.     V558 = make_fixnum(V540);
  2305.     if(((VFUN_NARGS=12,(*(LnkLI38))(V556,(V528),VV[11],(V530),VV[12],(V531),VV[13],V557,VV[14],V558,VV[16],(V534))))==Cnil){
  2306.     goto T866;}
  2307.     V543= (1)+(V543);
  2308. T866:;
  2309.     V544= (1)+(V544);
  2310.     goto T836;}
  2311. T831:;
  2312.     {int V559;
  2313.     int V560;
  2314.     V559= 0;
  2315.     V560= (-1)+(V540);
  2316. T878:;
  2317.     if(!((V560)<(V539))){
  2318.     goto T879;}
  2319.     {object V561;
  2320.     register int V562;
  2321.     int V563;
  2322.     V564= (*(LnkLI33))((V528));
  2323.     V565 = make_fixnum((V535)-(V559));
  2324.     V561= (VFUN_NARGS=2,(*(LnkLI32))(/* INLINE-ARGS */V564,V565));
  2325.     V562= (-1)+(V535);
  2326.     V563= ((-1)+(V535))-(V559);
  2327. T886:;
  2328.     if(!((V562)<(0))){
  2329.     goto T887;}
  2330.     {object V566 = (V561);
  2331.     VMR36(V566)}
  2332. T887:;
  2333.     {object V567;
  2334.     if((V539)<=(V562)){
  2335.     goto T893;}
  2336.     V567= Cnil;
  2337.     goto T892;
  2338. T893:;
  2339.     if((V562)<(V540)){
  2340.     goto T895;}
  2341.     V567= Cnil;
  2342.     goto T892;
  2343. T895:;
  2344.     base[0]= elt((V528),V562);
  2345.     vs_top=(vs_base=base+0)+1;
  2346.     super_funcall_no_event((V534));
  2347.     vs_top=sup;
  2348.     V568= vs_base[0];
  2349.     V569 = make_fixnum(V539);
  2350.     V570 = make_fixnum(V562);
  2351.     V567= (VFUN_NARGS=14,(*(LnkLI38))(V568,(V528),VV[10],Ct,VV[11],(V530),VV[12],(V531),VV[13],V569,VV[14],V570,VV[16],(V534)));
  2352. T892:;
  2353.     if(((V567))==Cnil){
  2354.     goto T900;}
  2355.     goto T891;
  2356. T900:;
  2357.     V571= elt((V528),V562);
  2358.     (void)(elt_set((V561),V563,/* INLINE-ARGS */V571));
  2359.     V563= (-1)+(V563);}
  2360. T891:;
  2361.     V562= (-1)+(V562);
  2362.     goto T886;}
  2363. T879:;
  2364.     base[0]= elt((V528),V560);
  2365.     vs_top=(vs_base=base+0)+1;
  2366.     super_funcall_no_event((V534));
  2367.     vs_top=sup;
  2368.     V572= vs_base[0];
  2369.     V573 = make_fixnum(V539);
  2370.     V574 = make_fixnum(V560);
  2371.     if(((VFUN_NARGS=14,(*(LnkLI38))(V572,(V528),VV[10],Ct,VV[11],(V530),VV[12],(V531),VV[13],V573,VV[14],V574,VV[16],(V534))))==Cnil){
  2372.     goto T908;}
  2373.     V559= (1)+(V559);
  2374. T908:;
  2375.     V560= (-1)+(V560);
  2376.     goto T878;}}}}}
  2377.     }}
  2378. /*    local entry for function MISMATCH    */
  2379.  
  2380. static object LI37(V576,V575,va_alist)
  2381.     object V576,V575;
  2382.     va_dcl 
  2383. {    
  2384.     va_list ap;
  2385.     int narg = VFUN_NARGS; VMB37 VMS37 VMV37
  2386.     {object V577;
  2387.     object V578;
  2388.     object V579;
  2389.     object V580;
  2390.     object V581;
  2391.     register object V582;
  2392.     object V583;
  2393.     object V584;
  2394.     object V585;
  2395.     object V586;
  2396.     if(narg <2) too_few_arguments();
  2397.     V577= V576;
  2398.     V578= V575;
  2399.     narg= narg - 2;
  2400.     va_start(ap);
  2401.     {
  2402.     parse_key_new(narg,Vcs +2,&LI37key,ap);
  2403.     V579=(Vcs[2]);
  2404.     V580=(Vcs[3]);
  2405.     V581=(Vcs[4]);
  2406.     if(Vcs[5]==0){
  2407.     V582= symbol_function(VV[25]);
  2408.     }else{
  2409.     V582=(Vcs[5]);}
  2410.     V583=(Vcs[6]);
  2411.     V584=(Vcs[7]);
  2412.     V585=(Vcs[8]);
  2413.     V586=(Vcs[9]);
  2414.     if((V580)==Cnil){
  2415.     goto T918;}
  2416.     if((V581)==Cnil){
  2417.     goto T918;}
  2418.     (void)((*(LnkLI26))());
  2419. T918:;
  2420.     {register int V587;
  2421.     if(((V583))==Cnil){
  2422.     goto T921;}
  2423.     V587= (*(LnkLI19))((V583));
  2424.     goto T919;
  2425. T921:;
  2426.     V587= 0;
  2427. T919:;
  2428.     {register int V588;
  2429.     V588= (*(LnkLI20))((V585),(V577));
  2430.     if(!((V587)<=(V588))){
  2431.     goto T925;}
  2432.     goto T924;
  2433. T925:;
  2434.     V589 = make_fixnum(V587);
  2435.     V590 = make_fixnum(V588);
  2436.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V589,V590)));
  2437. T924:;
  2438.     {register int V591;
  2439.     if(((V584))==Cnil){
  2440.     goto T929;}
  2441.     V591= (*(LnkLI19))((V584));
  2442.     goto T927;
  2443. T929:;
  2444.     V591= 0;
  2445. T927:;
  2446.     {register int V592;
  2447.     V592= (*(LnkLI20))((V586),(V578));
  2448.     if(!((V591)<=(V592))){
  2449.     goto T933;}
  2450.     goto T932;
  2451. T933:;
  2452.     V593 = make_fixnum(V591);
  2453.     V594 = make_fixnum(V592);
  2454.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V593,V594)));
  2455. T932:;
  2456.     if(((V579))!=Cnil){
  2457.     goto T936;}
  2458.     {register int V595;
  2459.     register int V596;
  2460.     V595= V587;
  2461.     V596= V591;
  2462. T941:;
  2463.     if((V595)>=(V588)){
  2464.     goto T943;}
  2465.     if(!((V596)>=(V592))){
  2466.     goto T942;}
  2467. T943:;
  2468.     if(!((V595)>=(V588))){
  2469.     goto T948;}
  2470.     if(!((V596)>=(V592))){
  2471.     goto T948;}
  2472.     {object V597 = Cnil;
  2473.     VMR37(V597)}
  2474. T948:;
  2475.     {object V598 = make_fixnum(V595);
  2476.     VMR37(V598)}
  2477. T942:;
  2478.     base[0]= elt((V577),V595);
  2479.     vs_top=(vs_base=base+0)+1;
  2480.     super_funcall_no_event((V582));
  2481.     vs_top=sup;
  2482.     V599= vs_base[0];
  2483.     base[0]= elt((V578),V596);
  2484.     vs_top=(vs_base=base+0)+1;
  2485.     super_funcall_no_event((V582));
  2486.     vs_top=sup;
  2487.     V600= vs_base[0];
  2488.     if(((*(LnkLI27))((V580),(V581),V599,V600))!=Cnil){
  2489.     goto T953;}
  2490.     {object V601 = make_fixnum(V595);
  2491.     VMR37(V601)}
  2492. T953:;
  2493.     V595= (1)+(V595);
  2494.     V596= (1)+(V596);
  2495.     goto T941;}
  2496. T936:;
  2497.     {register int V602;
  2498.     register int V603;
  2499.     V602= (-1)+(V588);
  2500.     V603= (-1)+(V592);
  2501. T967:;
  2502.     if((V602)<(V587)){
  2503.     goto T969;}
  2504.     if(!((V603)<(V591))){
  2505.     goto T968;}
  2506. T969:;
  2507.     if(!((V602)<(V587))){
  2508.     goto T974;}
  2509.     if(!((V603)<(V591))){
  2510.     goto T974;}
  2511.     {object V604 = Cnil;
  2512.     VMR37(V604)}
  2513. T974:;
  2514.     {object V605 = make_fixnum((1)+(V602));
  2515.     VMR37(V605)}
  2516. T968:;
  2517.     base[0]= elt((V577),V602);
  2518.     vs_top=(vs_base=base+0)+1;
  2519.     super_funcall_no_event((V582));
  2520.     vs_top=sup;
  2521.     V606= vs_base[0];
  2522.     base[0]= elt((V578),V603);
  2523.     vs_top=(vs_base=base+0)+1;
  2524.     super_funcall_no_event((V582));
  2525.     vs_top=sup;
  2526.     V607= vs_base[0];
  2527.     if(((*(LnkLI27))((V580),(V581),V606,V607))!=Cnil){
  2528.     goto T979;}
  2529.     {object V608 = make_fixnum((1)+(V602));
  2530.     VMR37(V608)}
  2531. T979:;
  2532.     V602= (-1)+(V602);
  2533.     V603= (-1)+(V603);
  2534.     goto T967;}}}}}}
  2535.     }}
  2536. /*    local entry for function SEARCH    */
  2537.  
  2538. static object LI38(V610,V609,va_alist)
  2539.     object V610,V609;
  2540.     va_dcl 
  2541. {    
  2542.     va_list ap;
  2543.     int narg = VFUN_NARGS; VMB38 VMS38 VMV38
  2544.     {object V611;
  2545.     object V612;
  2546.     object V613;
  2547.     object V614;
  2548.     object V615;
  2549.     register object V616;
  2550.     object V617;
  2551.     object V618;
  2552.     object V619;
  2553.     object V620;
  2554.     if(narg <2) too_few_arguments();
  2555.     V611= V610;
  2556.     V612= V609;
  2557.     narg= narg - 2;
  2558.     va_start(ap);
  2559.     {
  2560.     parse_key_new(narg,Vcs +2,&LI38key,ap);
  2561.     V613=(Vcs[2]);
  2562.     V614=(Vcs[3]);
  2563.     V615=(Vcs[4]);
  2564.     if(Vcs[5]==0){
  2565.     V616= symbol_function(VV[25]);
  2566.     }else{
  2567.     V616=(Vcs[5]);}
  2568.     V617=(Vcs[6]);
  2569.     V618=(Vcs[7]);
  2570.     V619=(Vcs[8]);
  2571.     V620=(Vcs[9]);
  2572.     if((V614)==Cnil){
  2573.     goto T991;}
  2574.     if((V615)==Cnil){
  2575.     goto T991;}
  2576.     (void)((*(LnkLI26))());
  2577. T991:;
  2578.     {int V621;
  2579.     if(((V617))==Cnil){
  2580.     goto T994;}
  2581.     V621= (*(LnkLI19))((V617));
  2582.     goto T992;
  2583. T994:;
  2584.     V621= 0;
  2585. T992:;
  2586.     {int V622;
  2587.     V622= (*(LnkLI20))((V619),(V611));
  2588.     if(!((V621)<=(V622))){
  2589.     goto T998;}
  2590.     goto T997;
  2591. T998:;
  2592.     V623 = make_fixnum(V621);
  2593.     V624 = make_fixnum(V622);
  2594.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V623,V624)));
  2595. T997:;
  2596.     {register int V625;
  2597.     if(((V618))==Cnil){
  2598.     goto T1002;}
  2599.     V625= (*(LnkLI19))((V618));
  2600.     goto T1000;
  2601. T1002:;
  2602.     V625= 0;
  2603. T1000:;
  2604.     {int V626;
  2605.     V626= (*(LnkLI20))((V620),(V612));
  2606.     if(!((V625)<=(V626))){
  2607.     goto T1006;}
  2608.     goto T1005;
  2609. T1006:;
  2610.     V627 = make_fixnum(V625);
  2611.     V628 = make_fixnum(V626);
  2612.     (void)((VFUN_NARGS=2,(*(LnkLI17))(V627,V628)));
  2613. T1005:;
  2614.     if(((V613))!=Cnil){
  2615.     goto T1009;}
  2616. T1012:;
  2617.     {register int V629;
  2618.     register int V630;
  2619.     V629= V621;
  2620.     V630= V625;
  2621. T1018:;
  2622.     if(!((V629)>=(V622))){
  2623.     goto T1019;}
  2624.     {object V631 = make_fixnum(V625);
  2625.     VMR38(V631)}
  2626. T1019:;
  2627.     if(!((V630)>=(V626))){
  2628.     goto T1023;}
  2629.     {object V632 = Cnil;
  2630.     VMR38(V632)}
  2631. T1023:;
  2632.     base[0]= elt((V611),V629);
  2633.     vs_top=(vs_base=base+0)+1;
  2634.     super_funcall_no_event((V616));
  2635.     vs_top=sup;
  2636.     V633= vs_base[0];
  2637.     base[0]= elt((V612),V630);
  2638.     vs_top=(vs_base=base+0)+1;
  2639.     super_funcall_no_event((V616));
  2640.     vs_top=sup;
  2641.     V634= vs_base[0];
  2642.     if(((*(LnkLI27))((V614),(V615),V633,V634))!=Cnil){
  2643.     goto T1026;}
  2644.     goto T1014;
  2645. T1026:;
  2646.     V629= (1)+(V629);
  2647.     V630= (1)+(V630);
  2648.     goto T1018;}
  2649. T1014:;
  2650.     V625= (1)+(V625);
  2651.     goto T1012;
  2652. T1009:;
  2653. T1040:;
  2654.     {register int V635;
  2655.     register int V636;
  2656.     V635= (-1)+(V622);
  2657.     V636= (-1)+(V626);
  2658. T1046:;
  2659.     if(!((V635)<(V621))){
  2660.     goto T1047;}
  2661.     {object V637 = make_fixnum((1)+(V636));
  2662.     VMR38(V637)}
  2663. T1047:;
  2664.     if(!((V636)<(V625))){
  2665.     goto T1051;}
  2666.     {object V638 = Cnil;
  2667.     VMR38(V638)}
  2668. T1051:;
  2669.     base[0]= elt((V611),V635);
  2670.     vs_top=(vs_base=base+0)+1;
  2671.     super_funcall_no_event((V616));
  2672.     vs_top=sup;
  2673.     V639= vs_base[0];
  2674.     base[0]= elt((V612),V636);
  2675.     vs_top=(vs_base=base+0)+1;
  2676.     super_funcall_no_event((V616));
  2677.     vs_top=sup;
  2678.     V640= vs_base[0];
  2679.     if(((*(LnkLI27))((V614),(V615),V639,V640))!=Cnil){
  2680.     goto T1054;}
  2681.     goto T1042;
  2682. T1054:;
  2683.     V635= (-1)+(V635);
  2684.     V636= (-1)+(V636);
  2685.     goto T1046;}
  2686. T1042:;
  2687.     V626= (-1)+(V626);
  2688.     goto T1040;}}}}}
  2689.     }}
  2690. /*    function definition for SORT    */
  2691.  
  2692. static L39()
  2693. {register object *base=vs_base;
  2694.     register object *sup=base+VM39; VC39
  2695.     vs_reserve(VM39);
  2696.     {register object V641;
  2697.     object V642;
  2698.     object V643;
  2699.     if(vs_top-vs_base<2) too_few_arguments();
  2700.     parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);
  2701.     V641=(base[0]);
  2702.     V642=(base[1]);
  2703.     vs_top=sup;
  2704.     if(base[3]==Cnil){
  2705.     V643= symbol_function(VV[25]);
  2706.     }else{
  2707.     V643=(base[2]);}
  2708.     if(!(type_of((V641))==t_cons||((V641))==Cnil)){
  2709.     goto T1069;}
  2710.     base[4]= (V641);
  2711.     base[5]= (V642);
  2712.     base[6]= (V643);
  2713.     vs_top=(vs_base=base+4)+3;
  2714.     (void) (*Lnk41)();
  2715.     return;
  2716. T1069:;
  2717.     base[4]= (*(LnkLI42))((V641),0,length((V641)),(V642),(V643));
  2718.     vs_top=(vs_base=base+4)+1;
  2719.     return;
  2720.     }
  2721. }
  2722. /*    function definition for LIST-MERGE-SORT    */
  2723.  
  2724. static L40()
  2725. {register object *base=vs_base;
  2726.     register object *sup=base+VM40; VC40
  2727.     vs_reserve(VM40);
  2728.     {object V644;
  2729.     check_arg(3);
  2730.     V644=(base[0]);
  2731.     vs_top=sup;
  2732. TTL:;
  2733.     base[3]= (V644);
  2734.     vs_top=(vs_base=base+3)+1;
  2735.     L41(base);
  2736.     return;
  2737.     }
  2738. }
  2739. /*    local entry for function QUICK-SORT    */
  2740.  
  2741. static object LI42(V650,V651,V652,V653,V654)
  2742.  
  2743. register object V650;int V651;int V652;register object V653;register object V654;
  2744. {     VMB41 VMS41 VMV41
  2745. TTL:;
  2746.     if(!((V652)<=((1)+(V651)))){
  2747.     goto T1076;}
  2748.     {object V655 = (V650);
  2749.     VMR41(V655)}
  2750. T1076:;
  2751.     {register int V656;
  2752.     register int V657;
  2753.     object V658;
  2754.     register object V659;
  2755.     V656= V651;
  2756.     V657= V652;
  2757.     V658= elt((V650),V651);
  2758.     V659= (
  2759.     (type_of((V654)) == t_sfun ?(*(object (*)())(((V654))->sfn.sfn_self)):
  2760.     (fcall.fun=((V654)),fcall.argd=1,fcalln))((V658)));
  2761. T1084:;
  2762. T1088:;
  2763.     V657= (-1)+(V657);
  2764.     if((V656)<(V657)){
  2765.     goto T1092;}
  2766.     goto T1082;
  2767. T1092:;
  2768.     base[3]= elt((V650),V657);
  2769.     vs_top=(vs_base=base+3)+1;
  2770.     super_funcall_no_event((V654));
  2771.     vs_top=sup;
  2772.     base[2]= vs_base[0];
  2773.     base[3]= (V659);
  2774.     vs_top=(vs_base=base+2)+2;
  2775.     super_funcall_no_event((V653));
  2776.     vs_top=sup;
  2777.     if((vs_base[0])==Cnil){
  2778.     goto T1089;}
  2779.     goto T1086;
  2780. T1089:;
  2781.     goto T1088;
  2782. T1086:;
  2783. T1103:;
  2784.     V656= (1)+(V656);
  2785.     if((V656)<(V657)){
  2786.     goto T1107;}
  2787.     goto T1082;
  2788. T1107:;
  2789.     base[3]= elt((V650),V656);
  2790.     vs_top=(vs_base=base+3)+1;
  2791.     super_funcall_no_event((V654));
  2792.     vs_top=sup;
  2793.     base[2]= vs_base[0];
  2794.     base[3]= (V659);
  2795.     vs_top=(vs_base=base+2)+2;
  2796.     super_funcall_no_event((V653));
  2797.     vs_top=sup;
  2798.     if((vs_base[0])!=Cnil){
  2799.     goto T1104;}
  2800.     goto T1101;
  2801. T1104:;
  2802.     goto T1103;
  2803. T1101:;
  2804.     {object V660;
  2805.     V660= elt((V650),V656);
  2806.     V661= elt((V650),V657);
  2807.     (void)(elt_set((V650),V656,/* INLINE-ARGS */V661));
  2808.     (void)(elt_set((V650),V657,(V660)));}
  2809.     goto T1084;
  2810. T1082:;
  2811.     V662= elt((V650),V656);
  2812.     (void)(elt_set((V650),V651,/* INLINE-ARGS */V662));
  2813.     (void)(elt_set((V650),V656,(V658)));
  2814.     (void)((*(LnkLI42))((V650),V651,V656,(V653),(V654)));
  2815.     V651= (1)+(V656);
  2816.     goto TTL;}
  2817. }
  2818. /*    function definition for STABLE-SORT    */
  2819.  
  2820. static L43()
  2821. {register object *base=vs_base;
  2822.     register object *sup=base+VM42; VC42
  2823.     vs_reserve(VM42);
  2824.     {register object V663;
  2825.     object V664;
  2826.     object V665;
  2827.     if(vs_top-vs_base<2) too_few_arguments();
  2828.     parse_key(vs_base+2,FALSE,FALSE,1,VV[16]);
  2829.     V663=(base[0]);
  2830.     V664=(base[1]);
  2831.     vs_top=sup;
  2832.     if(base[3]==Cnil){
  2833.     V665= symbol_function(VV[25]);
  2834.     }else{
  2835.     V665=(base[2]);}
  2836.     if(!(type_of((V663))==t_cons||((V663))==Cnil)){
  2837.     goto T1130;}
  2838.     base[4]= (V663);
  2839.     base[5]= (V664);
  2840.     base[6]= (V665);
  2841.     vs_top=(vs_base=base+4)+3;
  2842.     (void) (*Lnk41)();
  2843.     return;
  2844. T1130:;
  2845.     if(type_of((V663))==t_string){
  2846.     goto T1135;}
  2847.     if(!((type_of((V663))==t_bitvector))){
  2848.     goto T1136;}
  2849. T1135:;
  2850.     base[4]= (V663);
  2851.     base[5]= (V664);
  2852.     base[6]= VV[16];
  2853.     base[7]= (V665);
  2854.     vs_top=(vs_base=base+4)+4;
  2855.     (void) (*Lnk43)();
  2856.     return;
  2857. T1136:;
  2858.     base[4]= (*(LnkLI44))((V663),VV[0]);
  2859.     base[5]= (V664);
  2860.     base[6]= (V665);
  2861.     vs_top=(vs_base=base+4)+3;
  2862.     (void) (*Lnk41)();
  2863.     vs_top=sup;
  2864.     V666= vs_base[0];
  2865.     V667= (*(LnkLI33))((V663));
  2866.     base[4]= (*(LnkLI44))(V666,/* INLINE-ARGS */V667);
  2867.     vs_top=(vs_base=base+4)+1;
  2868.     return;
  2869.     }
  2870. }
  2871. /*    local entry for function MERGE    */
  2872.  
  2873. static object LI44(V671,V670,V669,V668,va_alist)
  2874.     object V671,V670,V669,V668;
  2875.     va_dcl 
  2876. {    
  2877.     va_list ap;
  2878.     int narg = VFUN_NARGS; VMB43 VMS43 VMV43
  2879.     {object V672;
  2880.     register object V673;
  2881.     register object V674;
  2882.     object V675;
  2883.     object V676;
  2884.     if(narg <4) too_few_arguments();
  2885.     V672= V671;
  2886.     V673= V670;
  2887.     V674= V669;
  2888.     V675= V668;
  2889.     narg= narg - 4;
  2890.     va_start(ap);
  2891.     {
  2892.     parse_key_new(narg,Vcs +4,&LI44key,ap);
  2893.     if(Vcs[4]==0){
  2894.     V676= symbol_function(VV[25]);
  2895.     }else{
  2896.     V676=(Vcs[4]);}
  2897.     {int V677;
  2898.     int V678;
  2899.     V677= length((V673));
  2900.     V678= length((V674));
  2901.     {register object V679;
  2902.     register int V680;
  2903.     register int V681;
  2904.     register int V682;
  2905.     V683 = make_fixnum((V677)+(V678));
  2906.     V679= (VFUN_NARGS=2,(*(LnkLI32))((V672),V683));
  2907.     V680= 0;
  2908.     V681= 0;
  2909.     V682= 0;
  2910. T1156:;
  2911.     if(!((V681)==(V677))){
  2912.     goto T1157;}
  2913.     if(!((V682)==(V678))){
  2914.     goto T1157;}
  2915.     {object V684 = (V679);
  2916.     VMR43(V684)}
  2917. T1157:;
  2918.     if(!((V681)<(V677))){
  2919.     goto T1165;}
  2920.     if(!((V682)<(V678))){
  2921.     goto T1165;}
  2922.     base[1]= elt((V673),V681);
  2923.     vs_top=(vs_base=base+1)+1;
  2924.     super_funcall_no_event((V676));
  2925.     vs_top=sup;
  2926.     base[0]= vs_base[0];
  2927.     base[2]= elt((V674),V682);
  2928.     vs_top=(vs_base=base+2)+1;
  2929.     super_funcall_no_event((V676));
  2930.     vs_top=sup;
  2931.     base[1]= vs_base[0];
  2932.     vs_top=(vs_base=base+0)+2;
  2933.     super_funcall_no_event((V675));
  2934.     vs_top=sup;
  2935.     if((vs_base[0])==Cnil){
  2936.     goto T1170;}
  2937.     V685= elt((V673),V681);
  2938.     (void)(elt_set((V679),V680,/* INLINE-ARGS */V685));
  2939.     V681= (1)+(V681);
  2940.     goto T1163;
  2941. T1170:;
  2942.     base[1]= elt((V674),V682);
  2943.     vs_top=(vs_base=base+1)+1;
  2944.     super_funcall_no_event((V676));
  2945.     vs_top=sup;
  2946.     base[0]= vs_base[0];
  2947.     base[2]= elt((V673),V681);
  2948.     vs_top=(vs_base=base+2)+1;
  2949.     super_funcall_no_event((V676));
  2950.     vs_top=sup;
  2951.     base[1]= vs_base[0];
  2952.     vs_top=(vs_base=base+0)+2;
  2953.     super_funcall_no_event((V675));
  2954.     vs_top=sup;
  2955.     if((vs_base[0])==Cnil){
  2956.     goto T1179;}
  2957.     V686= elt((V674),V682);
  2958.     (void)(elt_set((V679),V680,/* INLINE-ARGS */V686));
  2959.     V682= (1)+(V682);
  2960.     goto T1163;
  2961. T1179:;
  2962.     V687= elt((V673),V681);
  2963.     (void)(elt_set((V679),V680,/* INLINE-ARGS */V687));
  2964.     V681= (1)+(V681);
  2965.     goto T1163;
  2966. T1165:;
  2967.     if(!((V681)<(V677))){
  2968.     goto T1190;}
  2969.     V688= elt((V673),V681);
  2970.     (void)(elt_set((V679),V680,/* INLINE-ARGS */V688));
  2971.     V681= (1)+(V681);
  2972.     goto T1163;
  2973. T1190:;
  2974.     V689= elt((V674),V682);
  2975.     (void)(elt_set((V679),V680,/* INLINE-ARGS */V689));
  2976.     V682= (1)+(V682);
  2977. T1163:;
  2978.     V680= (1)+(V680);
  2979.     goto T1156;}}}
  2980.     }}
  2981. /*    local function SORT    */
  2982.  
  2983. static L41(base0)
  2984. register object *base0;
  2985. {    register object *base=vs_base;
  2986.     register object *sup=base+VM44; VC44
  2987.     vs_reserve(VM44);
  2988.     {object V690;
  2989.     check_arg(1);
  2990.     V690=(base[0]);
  2991.     vs_top=sup;
  2992. TTL:;
  2993.     {int V691;
  2994.     register object V692;
  2995.     register object V693;
  2996.     object V694;
  2997.     register object V695;
  2998.     register object V696;
  2999.     register object V697;
  3000.     V691= 0;
  3001.     V692= Cnil;
  3002.     V693= Cnil;
  3003.     V694= Cnil;
  3004.     V695= Cnil;
  3005.     V696= Cnil;
  3006.     V697= Cnil;
  3007.     V691= length((V690));
  3008.     if(!((V691)<(2))){
  3009.     goto T1208;}
  3010.     base[1]= (V690);
  3011.     vs_top=(vs_base=base+1)+1;
  3012.     return;
  3013. T1208:;
  3014.     if(!((V691)==(2))){
  3015.     goto T1206;}
  3016.     V696= (
  3017.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3018.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V690))));
  3019.     V697= (
  3020.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3021.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V690))));
  3022.     base[1]= (V696);
  3023.     base[2]= (V697);
  3024.     vs_top=(vs_base=base+1)+2;
  3025.     super_funcall_no_event(base0[1]);
  3026.     vs_top=sup;
  3027.     if((vs_base[0])==Cnil){
  3028.     goto T1217;}
  3029.     base[1]= (V690);
  3030.     vs_top=(vs_base=base+1)+1;
  3031.     return;
  3032. T1217:;
  3033.     base[1]= (V697);
  3034.     base[2]= (V696);
  3035.     vs_top=(vs_base=base+1)+2;
  3036.     super_funcall_no_event(base0[1]);
  3037.     vs_top=sup;
  3038.     if((vs_base[0])==Cnil){
  3039.     goto T1222;}
  3040.     base[1]= nreverse((V690));
  3041.     vs_top=(vs_base=base+1)+1;
  3042.     return;
  3043. T1222:;
  3044.     base[1]= (V690);
  3045.     vs_top=(vs_base=base+1)+1;
  3046.     return;
  3047. T1206:;
  3048.     V691= (V691>=0&&(2)>0?(V691)/(2):ifloor(V691,2));
  3049.     {int V698;
  3050.     register object V699;
  3051.     V698= 1;
  3052.     V699= (V690);
  3053. T1231:;
  3054.     if(!((V698)>=(V691))){
  3055.     goto T1232;}
  3056.     V692= (V690);
  3057.     V693= cdr((V699));
  3058.     if(type_of((V699))!=t_cons)FEwrong_type_argument(Scons,(V699));
  3059.     ((V699))->c.c_cdr = Cnil;
  3060.     goto T1228;
  3061. T1232:;
  3062.     V698= (1)+(V698);
  3063.     V699= cdr((V699));
  3064.     goto T1231;}
  3065. T1228:;
  3066.     base[1]= (V692);
  3067.     vs_top=(vs_base=base+1)+1;
  3068.     L41(base0);
  3069.     vs_top=sup;
  3070.     V692= vs_base[0];
  3071.     base[1]= (V693);
  3072.     vs_top=(vs_base=base+1)+1;
  3073.     L41(base0);
  3074.     vs_top=sup;
  3075.     V693= vs_base[0];
  3076.     if(!(endp((V692)))){
  3077.     goto T1252;}
  3078.     base[1]= (V693);
  3079.     vs_top=(vs_base=base+1)+1;
  3080.     return;
  3081. T1252:;
  3082.     if(!(endp((V693)))){
  3083.     goto T1250;}
  3084.     base[1]= (V692);
  3085.     vs_top=(vs_base=base+1)+1;
  3086.     return;
  3087. T1250:;
  3088.     V694= make_cons(Cnil,Cnil);
  3089.     V695= (V694);
  3090.     V696= (
  3091.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3092.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V692))));
  3093.     V697= (
  3094.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3095.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V693))));
  3096. T1201:;
  3097.     base[1]= (V696);
  3098.     base[2]= (V697);
  3099.     vs_top=(vs_base=base+1)+2;
  3100.     super_funcall_no_event(base0[1]);
  3101.     vs_top=sup;
  3102.     if((vs_base[0])==Cnil){
  3103.     goto T1264;}
  3104.     goto T1202;
  3105. T1264:;
  3106.     base[1]= (V697);
  3107.     base[2]= (V696);
  3108.     vs_top=(vs_base=base+1)+2;
  3109.     super_funcall_no_event(base0[1]);
  3110.     vs_top=sup;
  3111.     if((vs_base[0])==Cnil){
  3112.     goto T1269;}
  3113.     goto T1203;
  3114. T1269:;
  3115.     goto T1202;
  3116. T1202:;
  3117.     if(type_of((V695))!=t_cons)FEwrong_type_argument(Scons,(V695));
  3118.     ((V695))->c.c_cdr = (V692);
  3119.     V695= cdr((V695));
  3120.     V692= cdr((V692));
  3121.     if(!(endp((V692)))){
  3122.     goto T1278;}
  3123.     if(type_of((V695))!=t_cons)FEwrong_type_argument(Scons,(V695));
  3124.     ((V695))->c.c_cdr = (V693);
  3125.     base[1]= cdr((V694));
  3126.     vs_top=(vs_base=base+1)+1;
  3127.     return;
  3128. T1278:;
  3129.     V696= (
  3130.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3131.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V692))));
  3132.     goto T1201;
  3133. T1203:;
  3134.     if(type_of((V695))!=t_cons)FEwrong_type_argument(Scons,(V695));
  3135.     ((V695))->c.c_cdr = (V693);
  3136.     V695= cdr((V695));
  3137.     V693= cdr((V693));
  3138.     if(!(endp((V693)))){
  3139.     goto T1289;}
  3140.     if(type_of((V695))!=t_cons)FEwrong_type_argument(Scons,(V695));
  3141.     ((V695))->c.c_cdr = (V692);
  3142.     base[1]= cdr((V694));
  3143.     vs_top=(vs_base=base+1)+1;
  3144.     return;
  3145. T1289:;
  3146.     V697= (
  3147.     (type_of(base0[2]) == t_sfun ?(*(object (*)())((base0[2])->sfn.sfn_self)):
  3148.     (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V693))));
  3149.     goto T1201;}
  3150.     }
  3151. }
  3152. static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,2,ap);} /* COERCE */
  3153. static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* SORT */
  3154. static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,81925,ap);} /* QUICK-SORT */
  3155. static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* LIST-MERGE-SORT */
  3156. static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[40],&LnkLI40,ap);} /* DELETE-DUPLICATES */
  3157. static LnkT39(){ call_or_link(VV[39],&Lnk39);} /* MEMBER1 */
  3158. static object  LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[38],&LnkLI38,ap);} /* POSITION */
  3159. static object  LnkTLI37(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[37],&LnkLI37,ap);} /* FIND */
  3160. static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[36],&LnkLI36,ap);} /* NSUBSTITUTE */
  3161. static object  LnkTLI35(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[35],&LnkLI35,ap);} /* SUBSTITUTE */
  3162. static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],&LnkLI34,ap);} /* COUNT */
  3163. static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[33],&LnkLI33,1,ap);} /* SEQTYPE */
  3164. static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[32],&LnkLI32,ap);} /* MAKE-SEQUENCE */
  3165. static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* INTERNAL-COUNT */
  3166. static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],&LnkLI29,ap);} /* REMOVE */
  3167. static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[28],&LnkLI28,ap);} /* DELETE */
  3168. static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,4,ap);} /* CALL-TEST */
  3169. static object  LnkTLI26(){return call_proc0(VV[26],&LnkLI26);} /* TEST-ERROR */
  3170. static int  LnkTLI20(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[20],&LnkLI20,258,ap);} /* THE-END */
  3171. static int  LnkTLI19(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[19],&LnkLI19,257,ap);} /* THE-START */
  3172. static object  LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[17],&LnkLI17,ap);} /* BAD-SEQ-LIMIT */
  3173.