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 / arraylib.c next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  23.0 KB  |  1,194 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "arraylib.h"
  4. init_arraylib(){do_init(VV);}
  5. /*    local entry for function BEST-ARRAY-ELEMENT-TYPE    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     if(eql(Ct,(V2))){
  13.     goto T1;}
  14.     if(((V2))!=Cnil){
  15.     goto T2;}
  16. T1:;
  17.     {object V3 = Ct;
  18.     VMR1(V3)}
  19. T2:;
  20.     {register object x= (V2),V4= VV[0];
  21.     while(!endp(V4))
  22.     if(x==(V4->c.c_car)){
  23.     goto T8;
  24.     }else V4=V4->c.c_cdr;
  25.     goto T7;}
  26. T8:;
  27.     {object V5 = (V2);
  28.     VMR1(V5)}
  29. T7:;
  30.     base[0]= (V2);
  31.     base[1]= VV[1];
  32.     vs_top=(vs_base=base+0)+2;
  33.     (void) (*Lnk16)();
  34.     vs_top=sup;
  35.     if((vs_base[0])==Cnil){
  36.     goto T10;}
  37.     {register object V6;
  38.     register object V7;
  39.     V6= VV[2];
  40.     V7= car((V6));
  41. T17:;
  42.     if(!(endp((V6)))){
  43.     goto T18;}
  44.     {object V8 = VV[1];
  45.     VMR1(V8)}
  46. T18:;
  47.     base[1]= (V2);
  48.     base[2]= (V7);
  49.     vs_top=(vs_base=base+1)+2;
  50.     (void) (*Lnk16)();
  51.     vs_top=sup;
  52.     if((vs_base[0])==Cnil){
  53.     goto T22;}
  54.     {object V9 = (V7);
  55.     VMR1(V9)}
  56. T22:;
  57.     V6= cdr((V6));
  58.     V7= car((V6));
  59.     goto T17;}
  60. T10:;
  61.     if(!(eql((V2),VV[3]))){
  62.     goto T33;}
  63.     {object V10 = VV[4];
  64.     VMR1(V10)}
  65. T33:;{object V11;
  66.     {register object V12;
  67.     register object V13;
  68.     V12= VV[5];
  69.     V13= car((V12));
  70. T40:;
  71.     if(!(endp((V12)))){
  72.     goto T41;}
  73.     V11= Cnil;
  74.     goto T36;
  75. T41:;
  76.     base[1]= (V2);
  77.     base[2]= (V13);
  78.     vs_top=(vs_base=base+1)+2;
  79.     (void) (*Lnk16)();
  80.     vs_top=sup;
  81.     if((vs_base[0])==Cnil){
  82.     goto T45;}
  83.     V11= (V13);
  84.     goto T36;
  85. T45:;
  86.     V12= cdr((V12));
  87.     V13= car((V12));
  88.     goto T40;}
  89. T36:;
  90.     if(V11==Cnil)goto T35;
  91.     {object V14 = V11;
  92.     VMR1(V14)}
  93. T35:;}
  94.     {object V15 = Ct;
  95.     VMR1(V15)}
  96. }
  97. /*    local entry for function MAKE-ARRAY    */
  98.  
  99. static object LI2(V16,va_alist)
  100.     object V16;
  101.     va_dcl 
  102. {    
  103.     va_list ap;
  104.     int narg = VFUN_NARGS; VMB2 VMS2 VMV2
  105.     {register object V17;
  106.     object V18;
  107.     object V19;
  108.     register object V20;
  109.     object V21;
  110.     object V22;
  111.     object V23;
  112.     object V24;
  113.     object V25;
  114.     object V26;
  115.     if(narg <1) too_few_arguments();
  116.     V17= V16;
  117.     narg= narg - 1;
  118.     va_start(ap);
  119.     {
  120.     parse_key_new(narg,Vcs +1,&LI2key,ap);
  121.     if(Vcs[1]==0){
  122.     V18= Ct;
  123.     }else{
  124.     V18=(Vcs[1]);}
  125.     V19=(Vcs[2]);
  126.     if(Vcs[3]==0){
  127.     V20= Cnil;
  128.     V21= Cnil;
  129.     }else{
  130.     V20=(Vcs[3]);
  131.     V21= Ct;}
  132.     V22=(Vcs[4]);
  133.     V23=(Vcs[5]);
  134.     V24=(Vcs[6]);
  135.     V25=(Vcs[7]);
  136.     V26=(Vcs[8]);
  137.     if(!(type_of((V17))==t_fixnum||type_of((V17))==t_bignum)){
  138.     goto T57;}
  139.     V17= make_cons((V17),Cnil);
  140. T57:;
  141.     V18= (*(LnkLI21))((V18));
  142.     if(!((length((V17)))==(1))){
  143.     goto T64;}
  144.     {register object V27;
  145.     base[0]= (V18);
  146.     base[1]= car((V17));
  147.     base[2]= (V22);
  148.     base[3]= (V23);
  149.     base[4]= (V24);
  150.     base[5]= (V25);
  151.     base[6]= (V26);
  152.     base[7]= (V19);
  153.     vs_top=(vs_base=base+0)+8;
  154.     siLmake_vector();
  155.     vs_top=sup;
  156.     V27= vs_base[0];
  157.     if(((V21))==Cnil){
  158.     goto T75;}
  159.     {int V28;
  160.     register int V29;
  161.     V28= fix(car((V17)));
  162.     V29= 0;
  163. T81:;
  164.     if(!((V29)>=(V28))){
  165.     goto T82;}
  166.     goto T75;
  167. T82:;
  168.     V30= elt((V20),V29);
  169.     (void)(aset1((V27),V29,/* INLINE-ARGS */V30));
  170.     V29= (V29)+1;
  171.     goto T81;}
  172. T75:;
  173.     {object V31 = (V27);
  174.     VMR2(V31)}}
  175. T64:;
  176.     {register object V32;
  177.     base[0]= (V18);
  178.     base[1]= (V22);
  179.     base[2]= (V24);
  180.     base[3]= (V25);
  181.     base[4]= (V26);
  182.     base[5]= (V19);
  183.     {object V33;
  184.     V33= (V17);
  185.      vs_top=base+6;
  186.      while(!endp(V33))
  187.      {vs_push(car(V33));V33=cdr(V33);}
  188.     vs_base=base+0;}
  189.     siLmake_pure_array();
  190.     vs_top=sup;
  191.     V32= vs_base[0];
  192.     if(((V23))==Cnil){
  193.     goto T98;}
  194.     base[0]= VV[6];
  195.     vs_top=(vs_base=base+0)+1;
  196.     Lerror();
  197.     vs_top=sup;
  198. T98:;
  199.     {register object x= small_fixnum(0),V34= (V17);
  200.     while(!endp(V34))
  201.     if(eql(x,V34->c.c_car)){
  202.     goto T102;
  203.     }else V34=V34->c.c_cdr;}
  204.     if(((V21))==Cnil){
  205.     goto T102;}
  206.     {register object V35;
  207.     base[0]= make_fixnum(length((V17)));
  208.     base[1]= VV[7];
  209.     base[2]= small_fixnum(0);
  210.     vs_top=(vs_base=base+0)+3;
  211.     Lmake_list();
  212.     vs_top=sup;
  213.     V35= vs_base[0];
  214. T112:;
  215.     base[0]= (V32);
  216.     base[1]= (*(LnkLI22))((V20),(V35));
  217.     base[2]= (V35);
  218.     vs_top=(vs_base=base+0)+3;
  219.     (void) (*Lnk23)();
  220.     vs_top=sup;
  221.     if(((*(LnkLI24))((V35),(V17)))==Cnil){
  222.     goto T119;}
  223.     goto T102;
  224. T119:;
  225.     goto T112;}
  226. T102:;
  227.     {object V36 = (V32);
  228.     VMR2(V36)}}}
  229.     }}
  230. /*    local entry for function INCREMENT-CURSOR    */
  231.  
  232. static object LI3(V39,V40)
  233.  
  234. register object V39;object V40;
  235. {     VMB3 VMS3 VMV3
  236. TTL:;
  237.     if(((V39))!=Cnil){
  238.     goto T125;}
  239.     {object V41 = Ct;
  240.     VMR3(V41)}
  241. T125:;
  242.     {object V42;
  243.     V42= (*(LnkLI24))(cdr((V39)),cdr((V40)));
  244.     if(((V42))==Cnil){
  245.     goto T129;}
  246.     if(!(((fix(car((V39))))+1)>=(fix(car((V40)))))){
  247.     goto T132;}
  248.     if(type_of((V39))!=t_cons)FEwrong_type_argument(Scons,(V39));
  249.     ((V39))->c.c_car = small_fixnum(0);
  250.     {object V43 = Ct;
  251.     VMR3(V43)}
  252. T132:;
  253.     V44 = make_fixnum((fix(car((V39))))+1);
  254.     if(type_of((V39))!=t_cons)FEwrong_type_argument(Scons,(V39));
  255.     ((V39))->c.c_car = V44;
  256.     {object V45 = Cnil;
  257.     VMR3(V45)}
  258. T129:;
  259.     {object V46 = Cnil;
  260.     VMR3(V46)}}
  261. }
  262. /*    local entry for function SEQUENCE-CURSOR    */
  263.  
  264. static object LI4(V49,V50)
  265.  
  266. object V49;object V50;
  267. {     VMB4 VMS4 VMV4
  268. TTL:;
  269.     if(((V50))!=Cnil){
  270.     goto T137;}
  271.     {object V51 = (V49);
  272.     VMR4(V51)}
  273. T137:;
  274.     V49= elt((V49),fix(car((V50))));
  275.     V50= cdr((V50));
  276.     goto TTL;
  277. }
  278. /*    local entry for function VECTOR    */
  279.  
  280. static object LI5(va_alist)
  281.     va_dcl 
  282. {    
  283.     va_list ap;
  284.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  285.     {object V52;
  286.     narg= narg - 0;
  287.     va_start(ap);
  288.     V53 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
  289.     V52= V53;
  290.     {object V54;
  291.     V55 = make_fixnum(length((V52)));
  292.     V54= make_cons(V55,Cnil);
  293.     {object V56 = (VFUN_NARGS=5,(*(LnkLI25))((V54),VV[8],Ct,VV[9],(V52)));
  294.     VMR5(V56)}}}
  295.     }
  296. /*    local entry for function ARRAY-DIMENSIONS    */
  297.  
  298. static object LI6(V58)
  299.  
  300. register object V58;
  301. {     VMB6 VMS6 VMV6
  302. TTL:;
  303.     {register object V59;
  304.     register object V60;
  305.     base[0]= (V58);
  306.     vs_top=(vs_base=base+0)+1;
  307.     Larray_rank();
  308.     vs_top=sup;
  309.     V59= vs_base[0];
  310.     V60= Cnil;
  311. T146:;
  312.     if(!(number_compare((V59),small_fixnum(0))==0)){
  313.     goto T147;}
  314.     {object V61 = (V60);
  315.     VMR6(V61)}
  316. T147:;
  317.     V59= one_minus((V59));
  318.     base[0]= (V58);
  319.     base[1]= (V59);
  320.     vs_top=(vs_base=base+0)+2;
  321.     Larray_dimension();
  322.     vs_top=sup;
  323.     V62= vs_base[0];
  324.     V60= make_cons(V62,(V60));
  325.     goto T146;}
  326. }
  327. /*    local entry for function ARRAY-IN-BOUNDS-P    */
  328.  
  329. static object LI7(V63,va_alist)
  330.     object V63;
  331.     va_dcl 
  332. {    
  333.     va_list ap;
  334.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  335.     {register object V64;
  336.     object V65;
  337.     if(narg <1) too_few_arguments();
  338.     V64= V63;
  339.     narg= narg - 1;
  340.     va_start(ap);
  341.     V66 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
  342.     V65= V66;
  343.     {register object V67;
  344.     base[1]= (V64);
  345.     vs_top=(vs_base=base+1)+1;
  346.     Larray_rank();
  347.     vs_top=sup;
  348.     V67= vs_base[0];
  349.     V68 = make_fixnum(length((V65)));
  350.     if(!(number_compare((V67),V68)!=0)){
  351.     goto T162;}
  352.     base[1]= VV[10];
  353.     base[2]= (V67);
  354.     base[3]= make_fixnum(length((V65)));
  355.     vs_top=(vs_base=base+1)+3;
  356.     Lerror();
  357.     vs_top=sup;
  358. T162:;
  359.     {register object V69;
  360.     register object V70;
  361.     V69= small_fixnum(0);
  362.     V70= (V65);
  363. T169:;
  364.     if(!(number_compare((V69),(V67))>=0)){
  365.     goto T170;}
  366.     {object V71 = Ct;
  367.     VMR7(V71)}
  368. T170:;
  369.     if(number_compare(car((V70)),small_fixnum(0))<0){
  370.     goto T175;}
  371.     V72= car((V70));
  372.     base[1]= (V64);
  373.     base[2]= (V69);
  374.     vs_top=(vs_base=base+1)+2;
  375.     Larray_dimension();
  376.     vs_top=sup;
  377.     V73= vs_base[0];
  378.     if(!(number_compare(/* INLINE-ARGS */V72,V73)>=0)){
  379.     goto T174;}
  380. T175:;
  381.     {object V74 = Cnil;
  382.     VMR7(V74)}
  383. T174:;
  384.     V69= one_plus((V69));
  385.     V70= cdr((V70));
  386.     goto T169;}}}
  387.     }
  388. /*    local entry for function ARRAY-ROW-MAJOR-INDEX    */
  389.  
  390. static object LI8(V75,va_alist)
  391.     object V75;
  392.     va_dcl 
  393. {    
  394.     va_list ap;
  395.     int narg = VFUN_NARGS; VMB8 VMS8 VMV8
  396.     {register object V76;
  397.     object V77;
  398.     if(narg <1) too_few_arguments();
  399.     V76= V75;
  400.     narg= narg - 1;
  401.     va_start(ap);
  402.     V78 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
  403.     V77= V78;
  404.     {register object V79;
  405.     register object V80;
  406.     register object V81;
  407.     V79= small_fixnum(0);
  408.     V80= small_fixnum(0);
  409.     V81= (V77);
  410. T187:;
  411.     if(((V81))!=Cnil){
  412.     goto T188;}
  413.     {object V82 = (V80);
  414.     VMR8(V82)}
  415. T188:;
  416.     {object V83;
  417.     V83= one_plus((V79));
  418.     base[0]= (V76);
  419.     base[1]= (V79);
  420.     vs_top=(vs_base=base+0)+2;
  421.     Larray_dimension();
  422.     vs_top=sup;
  423.     V84= vs_base[0];
  424.     V85= number_times((V80),V84);
  425.     V80= number_plus(/* INLINE-ARGS */V85,car((V81)));
  426.     V81= cdr((V81));
  427.     V79= (V83);}
  428.     goto T187;}}
  429.     }
  430. /*    local entry for function BIT    */
  431.  
  432. static object LI9(V86,va_alist)
  433.     object V86;
  434.     va_dcl 
  435. {    
  436.     va_list ap;
  437.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  438.     {object V87;
  439.     object V88;
  440.     if(narg <1) too_few_arguments();
  441.     V87= V86;
  442.     narg= narg - 1;
  443.     va_start(ap);
  444.     V89 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
  445.     V88= V89;
  446.     base[0]= (V87);
  447.     {object V90;
  448.     V90= (V88);
  449.      vs_top=base+1;
  450.      while(!endp(V90))
  451.      {vs_push(car(V90));V90=cdr(V90);}
  452.     vs_base=base+0;}
  453.     Laref();
  454.     vs_top=sup;
  455.     {object V91 = vs_base[0];
  456.     VMR9(V91)}}
  457.     }
  458. /*    local entry for function SBIT    */
  459.  
  460. static object LI10(V92,va_alist)
  461.     object V92;
  462.     va_dcl 
  463. {    
  464.     va_list ap;
  465.     int narg = VFUN_NARGS; VMB10 VMS10 VMV10
  466.     {object V93;
  467.     object V94;
  468.     if(narg <1) too_few_arguments();
  469.     V93= V92;
  470.     narg= narg - 1;
  471.     va_start(ap);
  472.     V95 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
  473.     V94= V95;
  474.     base[0]= (V93);
  475.     {object V96;
  476.     V96= (V94);
  477.      vs_top=base+1;
  478.      while(!endp(V96))
  479.      {vs_push(car(V96));V96=cdr(V96);}
  480.     vs_base=base+0;}
  481.     Laref();
  482.     vs_top=sup;
  483.     {object V97 = vs_base[0];
  484.     VMR10(V97)}}
  485.     }
  486. /*    local entry for function BIT-AND    */
  487.  
  488. static object LI11(V99,V98,va_alist)
  489.     object V99,V98;
  490.     va_dcl 
  491. {    
  492.     va_list ap;
  493.     int narg = VFUN_NARGS; VMB11 VMS11 VMV11
  494.     {object V100;
  495.     object V101;
  496.     object V102;
  497.     if(narg <2) too_few_arguments();
  498.     V100= V99;
  499.     V101= V98;
  500.     narg = narg - 2;
  501.     if (narg <= 0) goto T204;
  502.     else {
  503.     va_start(ap);
  504.     V102= va_arg(ap,object);}
  505.     --narg; goto T205;
  506. T204:;
  507.     V102= Cnil;
  508. T205:;
  509.     base[0]= small_fixnum(1);
  510.     base[1]= (V100);
  511.     base[2]= (V101);
  512.     base[3]= (V102);
  513.     vs_top=(vs_base=base+0)+4;
  514.     siLbit_array_op();
  515.     vs_top=sup;
  516.     {object V103 = vs_base[0];
  517.     VMR11(V103)}}
  518.     }
  519. /*    local entry for function BIT-IOR    */
  520.  
  521. static object LI12(V105,V104,va_alist)
  522.     object V105,V104;
  523.     va_dcl 
  524. {    
  525.     va_list ap;
  526.     int narg = VFUN_NARGS; VMB12 VMS12 VMV12
  527.     {object V106;
  528.     object V107;
  529.     object V108;
  530.     if(narg <2) too_few_arguments();
  531.     V106= V105;
  532.     V107= V104;
  533.     narg = narg - 2;
  534.     if (narg <= 0) goto T211;
  535.     else {
  536.     va_start(ap);
  537.     V108= va_arg(ap,object);}
  538.     --narg; goto T212;
  539. T211:;
  540.     V108= Cnil;
  541. T212:;
  542.     base[0]= small_fixnum(7);
  543.     base[1]= (V106);
  544.     base[2]= (V107);
  545.     base[3]= (V108);
  546.     vs_top=(vs_base=base+0)+4;
  547.     siLbit_array_op();
  548.     vs_top=sup;
  549.     {object V109 = vs_base[0];
  550.     VMR12(V109)}}
  551.     }
  552. /*    local entry for function BIT-XOR    */
  553.  
  554. static object LI13(V111,V110,va_alist)
  555.     object V111,V110;
  556.     va_dcl 
  557. {    
  558.     va_list ap;
  559.     int narg = VFUN_NARGS; VMB13 VMS13 VMV13
  560.     {object V112;
  561.     object V113;
  562.     object V114;
  563.     if(narg <2) too_few_arguments();
  564.     V112= V111;
  565.     V113= V110;
  566.     narg = narg - 2;
  567.     if (narg <= 0) goto T218;
  568.     else {
  569.     va_start(ap);
  570.     V114= va_arg(ap,object);}
  571.     --narg; goto T219;
  572. T218:;
  573.     V114= Cnil;
  574. T219:;
  575.     base[0]= small_fixnum(6);
  576.     base[1]= (V112);
  577.     base[2]= (V113);
  578.     base[3]= (V114);
  579.     vs_top=(vs_base=base+0)+4;
  580.     siLbit_array_op();
  581.     vs_top=sup;
  582.     {object V115 = vs_base[0];
  583.     VMR13(V115)}}
  584.     }
  585. /*    local entry for function BIT-EQV    */
  586.  
  587. static object LI14(V117,V116,va_alist)
  588.     object V117,V116;
  589.     va_dcl 
  590. {    
  591.     va_list ap;
  592.     int narg = VFUN_NARGS; VMB14 VMS14 VMV14
  593.     {object V118;
  594.     object V119;
  595.     object V120;
  596.     if(narg <2) too_few_arguments();
  597.     V118= V117;
  598.     V119= V116;
  599.     narg = narg - 2;
  600.     if (narg <= 0) goto T225;
  601.     else {
  602.     va_start(ap);
  603.     V120= va_arg(ap,object);}
  604.     --narg; goto T226;
  605. T225:;
  606.     V120= Cnil;
  607. T226:;
  608.     base[0]= small_fixnum(9);
  609.     base[1]= (V118);
  610.     base[2]= (V119);
  611.     base[3]= (V120);
  612.     vs_top=(vs_base=base+0)+4;
  613.     siLbit_array_op();
  614.     vs_top=sup;
  615.     {object V121 = vs_base[0];
  616.     VMR14(V121)}}
  617.     }
  618. /*    local entry for function BIT-NAND    */
  619.  
  620. static object LI15(V123,V122,va_alist)
  621.     object V123,V122;
  622.     va_dcl 
  623. {    
  624.     va_list ap;
  625.     int narg = VFUN_NARGS; VMB15 VMS15 VMV15
  626.     {object V124;
  627.     object V125;
  628.     object V126;
  629.     if(narg <2) too_few_arguments();
  630.     V124= V123;
  631.     V125= V122;
  632.     narg = narg - 2;
  633.     if (narg <= 0) goto T232;
  634.     else {
  635.     va_start(ap);
  636.     V126= va_arg(ap,object);}
  637.     --narg; goto T233;
  638. T232:;
  639.     V126= Cnil;
  640. T233:;
  641.     base[0]= small_fixnum(14);
  642.     base[1]= (V124);
  643.     base[2]= (V125);
  644.     base[3]= (V126);
  645.     vs_top=(vs_base=base+0)+4;
  646.     siLbit_array_op();
  647.     vs_top=sup;
  648.     {object V127 = vs_base[0];
  649.     VMR15(V127)}}
  650.     }
  651. /*    local entry for function BIT-NOR    */
  652.  
  653. static object LI16(V129,V128,va_alist)
  654.     object V129,V128;
  655.     va_dcl 
  656. {    
  657.     va_list ap;
  658.     int narg = VFUN_NARGS; VMB16 VMS16 VMV16
  659.     {object V130;
  660.     object V131;
  661.     object V132;
  662.     if(narg <2) too_few_arguments();
  663.     V130= V129;
  664.     V131= V128;
  665.     narg = narg - 2;
  666.     if (narg <= 0) goto T239;
  667.     else {
  668.     va_start(ap);
  669.     V132= va_arg(ap,object);}
  670.     --narg; goto T240;
  671. T239:;
  672.     V132= Cnil;
  673. T240:;
  674.     base[0]= small_fixnum(8);
  675.     base[1]= (V130);
  676.     base[2]= (V131);
  677.     base[3]= (V132);
  678.     vs_top=(vs_base=base+0)+4;
  679.     siLbit_array_op();
  680.     vs_top=sup;
  681.     {object V133 = vs_base[0];
  682.     VMR16(V133)}}
  683.     }
  684. /*    local entry for function BIT-ANDC1    */
  685.  
  686. static object LI17(V135,V134,va_alist)
  687.     object V135,V134;
  688.     va_dcl 
  689. {    
  690.     va_list ap;
  691.     int narg = VFUN_NARGS; VMB17 VMS17 VMV17
  692.     {object V136;
  693.     object V137;
  694.     object V138;
  695.     if(narg <2) too_few_arguments();
  696.     V136= V135;
  697.     V137= V134;
  698.     narg = narg - 2;
  699.     if (narg <= 0) goto T246;
  700.     else {
  701.     va_start(ap);
  702.     V138= va_arg(ap,object);}
  703.     --narg; goto T247;
  704. T246:;
  705.     V138= Cnil;
  706. T247:;
  707.     base[0]= small_fixnum(4);
  708.     base[1]= (V136);
  709.     base[2]= (V137);
  710.     base[3]= (V138);
  711.     vs_top=(vs_base=base+0)+4;
  712.     siLbit_array_op();
  713.     vs_top=sup;
  714.     {object V139 = vs_base[0];
  715.     VMR17(V139)}}
  716.     }
  717. /*    local entry for function BIT-ANDC2    */
  718.  
  719. static object LI18(V141,V140,va_alist)
  720.     object V141,V140;
  721.     va_dcl 
  722. {    
  723.     va_list ap;
  724.     int narg = VFUN_NARGS; VMB18 VMS18 VMV18
  725.     {object V142;
  726.     object V143;
  727.     object V144;
  728.     if(narg <2) too_few_arguments();
  729.     V142= V141;
  730.     V143= V140;
  731.     narg = narg - 2;
  732.     if (narg <= 0) goto T253;
  733.     else {
  734.     va_start(ap);
  735.     V144= va_arg(ap,object);}
  736.     --narg; goto T254;
  737. T253:;
  738.     V144= Cnil;
  739. T254:;
  740.     base[0]= small_fixnum(2);
  741.     base[1]= (V142);
  742.     base[2]= (V143);
  743.     base[3]= (V144);
  744.     vs_top=(vs_base=base+0)+4;
  745.     siLbit_array_op();
  746.     vs_top=sup;
  747.     {object V145 = vs_base[0];
  748.     VMR18(V145)}}
  749.     }
  750. /*    local entry for function BIT-ORC1    */
  751.  
  752. static object LI19(V147,V146,va_alist)
  753.     object V147,V146;
  754.     va_dcl 
  755. {    
  756.     va_list ap;
  757.     int narg = VFUN_NARGS; VMB19 VMS19 VMV19
  758.     {object V148;
  759.     object V149;
  760.     object V150;
  761.     if(narg <2) too_few_arguments();
  762.     V148= V147;
  763.     V149= V146;
  764.     narg = narg - 2;
  765.     if (narg <= 0) goto T260;
  766.     else {
  767.     va_start(ap);
  768.     V150= va_arg(ap,object);}
  769.     --narg; goto T261;
  770. T260:;
  771.     V150= Cnil;
  772. T261:;
  773.     base[0]= small_fixnum(13);
  774.     base[1]= (V148);
  775.     base[2]= (V149);
  776.     base[3]= (V150);
  777.     vs_top=(vs_base=base+0)+4;
  778.     siLbit_array_op();
  779.     vs_top=sup;
  780.     {object V151 = vs_base[0];
  781.     VMR19(V151)}}
  782.     }
  783. /*    local entry for function BIT-ORC2    */
  784.  
  785. static object LI20(V153,V152,va_alist)
  786.     object V153,V152;
  787.     va_dcl 
  788. {    
  789.     va_list ap;
  790.     int narg = VFUN_NARGS; VMB20 VMS20 VMV20
  791.     {object V154;
  792.     object V155;
  793.     object V156;
  794.     if(narg <2) too_few_arguments();
  795.     V154= V153;
  796.     V155= V152;
  797.     narg = narg - 2;
  798.     if (narg <= 0) goto T267;
  799.     else {
  800.     va_start(ap);
  801.     V156= va_arg(ap,object);}
  802.     --narg; goto T268;
  803. T267:;
  804.     V156= Cnil;
  805. T268:;
  806.     base[0]= small_fixnum(11);
  807.     base[1]= (V154);
  808.     base[2]= (V155);
  809.     base[3]= (V156);
  810.     vs_top=(vs_base=base+0)+4;
  811.     siLbit_array_op();
  812.     vs_top=sup;
  813.     {object V157 = vs_base[0];
  814.     VMR20(V157)}}
  815.     }
  816. /*    local entry for function BIT-NOT    */
  817.  
  818. static object LI21(V158,va_alist)
  819.     object V158;
  820.     va_dcl 
  821. {    
  822.     va_list ap;
  823.     int narg = VFUN_NARGS; VMB21 VMS21 VMV21
  824.     {object V159;
  825.     object V160;
  826.     if(narg <1) too_few_arguments();
  827.     V159= V158;
  828.     narg = narg - 1;
  829.     if (narg <= 0) goto T274;
  830.     else {
  831.     va_start(ap);
  832.     V160= va_arg(ap,object);}
  833.     --narg; goto T275;
  834. T274:;
  835.     V160= Cnil;
  836. T275:;
  837.     base[0]= small_fixnum(12);
  838.     base[1]= (V159);
  839.     base[2]= (V159);
  840.     base[3]= (V160);
  841.     vs_top=(vs_base=base+0)+4;
  842.     siLbit_array_op();
  843.     vs_top=sup;
  844.     {object V161 = vs_base[0];
  845.     VMR21(V161)}}
  846.     }
  847. /*    local entry for function VECTOR-PUSH    */
  848.  
  849. static object LI22(V164,V165)
  850.  
  851. object V164;register object V165;
  852. {     VMB22 VMS22 VMV22
  853. TTL:;
  854.     {register int V166;
  855.     base[0]= (V165);
  856.     vs_top=(vs_base=base+0)+1;
  857.     Lfill_pointer();
  858.     vs_top=sup;
  859.     V166= fix(vs_base[0]);
  860.     base[0]= (V165);
  861.     base[1]= small_fixnum(0);
  862.     vs_top=(vs_base=base+0)+2;
  863.     Larray_dimension();
  864.     vs_top=sup;
  865.     V167= vs_base[0];
  866.     if(!((V166)<(fix(V167)))){
  867.     goto T284;}
  868.     (void)(aset1((V165),V166,(V164)));
  869.     base[0]= (V165);
  870.     base[1]= make_fixnum((V166)+1);
  871.     vs_top=(vs_base=base+0)+2;
  872.     siLfill_pointer_set();
  873.     vs_top=sup;
  874.     {object V168 = make_fixnum(V166);
  875.     VMR22(V168)}
  876. T284:;
  877.     {object V169 = Cnil;
  878.     VMR22(V169)}}
  879. }
  880. /*    local entry for function VECTOR-PUSH-EXTEND    */
  881.  
  882. static object LI23(V171,V170,va_alist)
  883.     object V171,V170;
  884.     va_dcl 
  885. {    
  886.     va_list ap;
  887.     int narg = VFUN_NARGS; VMB23 VMS23 VMV23
  888.     {object V172;
  889.     register object V173;
  890.     object V174;
  891.     if(narg <2) too_few_arguments();
  892.     V172= V171;
  893.     V173= V170;
  894.     narg = narg - 2;
  895.     if (narg <= 0) goto T293;
  896.     else {
  897.     va_start(ap);
  898.     V174= va_arg(ap,object);}
  899.     --narg; goto T294;
  900. T293:;
  901.     V174= Cnil;
  902. T294:;
  903.     {register int V175;
  904.     base[0]= (V173);
  905.     vs_top=(vs_base=base+0)+1;
  906.     Lfill_pointer();
  907.     vs_top=sup;
  908.     V175= fix(vs_base[0]);
  909.     base[0]= (V173);
  910.     base[1]= small_fixnum(0);
  911.     vs_top=(vs_base=base+0)+2;
  912.     Larray_dimension();
  913.     vs_top=sup;
  914.     V176= vs_base[0];
  915.     if(!((V175)<(fix(V176)))){
  916.     goto T299;}
  917.     (void)(aset1((V173),V175,(V172)));
  918.     base[0]= (V173);
  919.     base[1]= make_fixnum((V175)+1);
  920.     vs_top=(vs_base=base+0)+2;
  921.     siLfill_pointer_set();
  922.     vs_top=sup;
  923.     {object V177 = make_fixnum(V175);
  924.     VMR23(V177)}
  925. T299:;
  926.     base[0]= (V173);
  927.     base[1]= small_fixnum(0);
  928.     vs_top=(vs_base=base+0)+2;
  929.     Larray_dimension();
  930.     vs_top=sup;
  931.     V178= vs_base[0];
  932.     if((V174)!=Cnil){
  933.     V179= (V174);
  934.     goto T312;}
  935.     base[0]= (V173);
  936.     base[1]= small_fixnum(0);
  937.     vs_top=(vs_base=base+0)+2;
  938.     Larray_dimension();
  939.     vs_top=sup;
  940.     V180= vs_base[0];
  941.     if(!((fix(V180))>(0))){
  942.     goto T314;}
  943.     base[0]= (V173);
  944.     base[1]= small_fixnum(0);
  945.     vs_top=(vs_base=base+0)+2;
  946.     Larray_dimension();
  947.     vs_top=sup;
  948.     V179= vs_base[0];
  949.     goto T312;
  950. T314:;
  951.     V179= small_fixnum(5);
  952. T312:;
  953.     V181= number_plus(V178,V179);
  954.     V182= make_cons(/* INLINE-ARGS */V181,Cnil);
  955.     base[0]= (V173);
  956.     vs_top=(vs_base=base+0)+1;
  957.     Larray_element_type();
  958.     vs_top=sup;
  959.     V183= vs_base[0];
  960.     V184 = make_fixnum(V175);
  961.     (void)((VFUN_NARGS=6,(*(LnkLI26))((V173),/* INLINE-ARGS */V182,VV[8],V183,VV[11],V184)));
  962.     (void)(aset1((V173),V175,(V172)));
  963.     base[0]= (V173);
  964.     base[1]= make_fixnum((V175)+1);
  965.     vs_top=(vs_base=base+0)+2;
  966.     siLfill_pointer_set();
  967.     vs_top=sup;
  968.     {object V185 = make_fixnum(V175);
  969.     VMR23(V185)}}}
  970.     }
  971. /*    local entry for function VECTOR-POP    */
  972.  
  973. static object LI24(V187)
  974.  
  975. register object V187;
  976. {     VMB24 VMS24 VMV24
  977. TTL:;
  978.     {int V188;
  979.     base[0]= (V187);
  980.     vs_top=(vs_base=base+0)+1;
  981.     Lfill_pointer();
  982.     vs_top=sup;
  983.     V188= fix(vs_base[0]);
  984.     if(!((V188)==(0))){
  985.     goto T329;}
  986.     base[0]= VV[12];
  987.     base[1]= (V187);
  988.     vs_top=(vs_base=base+0)+2;
  989.     Lerror();
  990.     vs_top=sup;
  991. T329:;
  992.     base[0]= (V187);
  993.     base[1]= make_fixnum((V188)-1);
  994.     vs_top=(vs_base=base+0)+2;
  995.     siLfill_pointer_set();
  996.     vs_top=sup;
  997.     {object V189 = aref1((V187),(V188)-1);
  998.     VMR24(V189)}}
  999. }
  1000. /*    local entry for function ADJUST-ARRAY    */
  1001.  
  1002. static object LI25(V191,V190,va_alist)
  1003.     object V191,V190;
  1004.     va_dcl 
  1005. {    
  1006.     va_list ap;
  1007.     int narg = VFUN_NARGS; VMB25 VMS25 VMV25
  1008.     {register object V192;
  1009.     register object V193;
  1010.     register object V194;
  1011.     register object V195;
  1012.     object V196;
  1013.     object V197;
  1014.     object V198;
  1015.     object V199;
  1016.     object V200;
  1017.     object V201;
  1018.     if(narg <2) too_few_arguments();
  1019.     V192= V191;
  1020.     V193= V190;
  1021.     narg= narg - 2;
  1022.     va_start(ap);
  1023.     V202 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));
  1024.     V194= V202;
  1025.     {
  1026.     parse_key_rest(V202,narg,Vcs +3,&LI25key,ap);
  1027.     V195=(Vcs[3]);
  1028.     V196=(Vcs[4]);
  1029.     V197=(Vcs[5]);
  1030.     V198=(Vcs[6]);
  1031.     V199=(Vcs[7]);
  1032.     V200=(Vcs[8]);
  1033.     V201=(Vcs[9]);
  1034.     if(!(type_of((V193))==t_fixnum||type_of((V193))==t_bignum)){
  1035.     goto T337;}
  1036.     V193= make_cons((V193),Cnil);
  1037. T337:;
  1038.     {register object x= VV[11],V203= (V194);
  1039.     while(!endp(V203))
  1040.     if(eql(x,V203->c.c_car)){
  1041.     goto T344;
  1042.     }else V203=V203->c.c_cdr;
  1043.     goto T343;}
  1044. T344:;
  1045.     base[0]= (V192);
  1046.     vs_top=(vs_base=base+0)+1;
  1047.     (void) (*Lnk27)();
  1048.     vs_top=sup;
  1049.     if((vs_base[0])!=Cnil){
  1050.     goto T341;}
  1051.     base[0]= VV[13];
  1052.     vs_top=(vs_base=base+0)+1;
  1053.     Lerror();
  1054.     vs_top=sup;
  1055.     goto T341;
  1056. T343:;
  1057.     base[0]= (V192);
  1058.     vs_top=(vs_base=base+0)+1;
  1059.     (void) (*Lnk27)();
  1060.     vs_top=sup;
  1061.     if((vs_base[0])==Cnil){
  1062.     goto T341;}
  1063.     base[0]= (V192);
  1064.     vs_top=(vs_base=base+0)+1;
  1065.     Lfill_pointer();
  1066.     vs_top=sup;
  1067.     V204= vs_base[0];
  1068.     V194= ON_STACK_CONS(V204,(V194));
  1069.     V194= ON_STACK_CONS(VV[11],(V194));
  1070. T341:;
  1071.     base[0]= (V192);
  1072.     vs_top=(vs_base=base+0)+1;
  1073.     Larray_element_type();
  1074.     vs_top=sup;
  1075.     V195= vs_base[0];
  1076.     if(((V195))==(Ct)){
  1077.     goto T360;}
  1078.     V194= ON_STACK_CONS((V195),(V194));
  1079.     V194= ON_STACK_CONS(VV[8],(V194));
  1080. T360:;
  1081.     {register object V205;
  1082.     base[0]= (V193);
  1083.     base[1]= VV[14];
  1084.     base[2]= Ct;
  1085.     {object V206;
  1086.     V206= (V194);
  1087.      vs_top=base+3;
  1088.      while(!endp(V206))
  1089.      {vs_push(car(V206));V206=cdr(V206);}
  1090.     vs_base=base+0;}
  1091.     (void) (*Lnk25)();
  1092.     vs_top=sup;
  1093.     V205= vs_base[0];
  1094.     if((cdr((V193)))==Cnil){
  1095.     goto T372;}
  1096.     V207= cdr((V193));
  1097.     V208= (*(LnkLI28))((V192));
  1098.     if(!(equal(/* INLINE-ARGS */V207,cdr(/* INLINE-ARGS */V208)))){
  1099.     goto T373;}
  1100.     if(!(((V195))==(VV[15]))){
  1101.     goto T372;}
  1102.     base[0]= (V193);
  1103.     vs_top=(vs_base=base+0)+1;
  1104.     Llast();
  1105.     vs_top=sup;
  1106.     V209= vs_base[0];
  1107.     {int V210= fix(car(V209));
  1108.     if(!((0)==((V210>=0&&(8)>0?(V210)%(8):imod(V210,8))))){
  1109.     goto T373;}}
  1110. T372:;
  1111.     base[0]= (V192);
  1112.     base[1]= (V205);
  1113.     base[2]= small_fixnum(0);
  1114.     base[3]= small_fixnum(0);
  1115.     base[5]= (V205);
  1116.     vs_top=(vs_base=base+5)+1;
  1117.     (void) (*Lnk29)();
  1118.     vs_top=sup;
  1119.     V211= vs_base[0];
  1120.     base[5]= (V192);
  1121.     vs_top=(vs_base=base+5)+1;
  1122.     (void) (*Lnk29)();
  1123.     vs_top=sup;
  1124.     V212= vs_base[0];
  1125.     base[4]= (number_compare(V211,V212)<=0?(V211):V212);
  1126.     vs_top=(vs_base=base+0)+5;
  1127.     (void) (*Lnk30)();
  1128.     vs_top=sup;
  1129.     goto T371;
  1130. T373:;
  1131.     {register object V213;
  1132.     base[0]= make_fixnum(length((V193)));
  1133.     base[1]= VV[7];
  1134.     base[2]= small_fixnum(0);
  1135.     vs_top=(vs_base=base+0)+3;
  1136.     Lmake_list();
  1137.     vs_top=sup;
  1138.     V213= vs_base[0];
  1139. T397:;
  1140.     base[0]= (V192);
  1141.     {object V214;
  1142.     V214= (V213);
  1143.      vs_top=base+1;
  1144.      while(!endp(V214))
  1145.      {vs_push(car(V214));V214=cdr(V214);}
  1146.     vs_base=base+0;}
  1147.     (void) (*Lnk31)();
  1148.     vs_top=sup;
  1149.     if((vs_base[0])==Cnil){
  1150.     goto T400;}
  1151.     base[0]= (V205);
  1152.     base[2]= (V192);
  1153.     {object V215;
  1154.     V215= (V213);
  1155.      vs_top=base+3;
  1156.      while(!endp(V215))
  1157.      {vs_push(car(V215));V215=cdr(V215);}
  1158.     vs_base=base+2;}
  1159.     Laref();
  1160.     vs_top=sup;
  1161.     base[1]= vs_base[0];
  1162.     base[2]= (V213);
  1163.     vs_top=(vs_base=base+0)+3;
  1164.     (void) (*Lnk23)();
  1165.     vs_top=sup;
  1166. T400:;
  1167.     if(((*(LnkLI24))((V213),(V193)))==Cnil){
  1168.     goto T410;}
  1169.     goto T371;
  1170. T410:;
  1171.     goto T397;}
  1172. T371:;
  1173.     base[0]= (V192);
  1174.     base[1]= (V205);
  1175.     vs_top=(vs_base=base+0)+2;
  1176.     siLreplace_array();
  1177.     vs_top=sup;
  1178.     {object V216 = vs_base[0];
  1179.     VMR25(V216)}}}
  1180.     }}
  1181. static LnkT31(){ call_or_link(VV[31],&Lnk31);} /* ARRAY-IN-BOUNDS-P */
  1182. static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* COPY-ARRAY-PORTION */
  1183. static LnkT29(){ call_or_link(VV[29],&Lnk29);} /* ARRAY-TOTAL-SIZE */
  1184. static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[28],&LnkLI28,1,ap);} /* ARRAY-DIMENSIONS */
  1185. static LnkT25(){ call_or_link(VV[25],&Lnk25);} /* MAKE-ARRAY */
  1186. static LnkT27(){ call_or_link(VV[27],&Lnk27);} /* ARRAY-HAS-FILL-POINTER-P */
  1187. static object  LnkTLI26(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[26],&LnkLI26,ap);} /* ADJUST-ARRAY */
  1188. static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[25],&LnkLI25,ap);} /* MAKE-ARRAY */
  1189. static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],&LnkLI24,2,ap);} /* INCREMENT-CURSOR */
  1190. static LnkT23(){ call_or_link(VV[23],&Lnk23);} /* ASET-BY-CURSOR */
  1191. static object  LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],&LnkLI22,2,ap);} /* SEQUENCE-CURSOR */
  1192. static object  LnkTLI21(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[21],&LnkLI21,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
  1193. static LnkT16(){ call_or_link(VV[16],&Lnk16);} /* SUBTYPEP */
  1194.