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 / numlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  19.1 KB  |  981 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "numlib.h"
  4. init_numlib(){do_init(VV);}
  5. /*    local entry for function ISQRT    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     if(!(type_of((V2))==t_fixnum||type_of((V2))==t_bignum)){
  13.     goto T2;}
  14.     if(number_compare((V2),small_fixnum(0))>=0){
  15.     goto T1;}
  16. T2:;
  17.     base[0]= VV[0];
  18.     base[1]= (V2);
  19.     vs_top=(vs_base=base+0)+2;
  20.     Lerror();
  21.     vs_top=sup;
  22. T1:;
  23.     if(!(number_compare(small_fixnum(0),(V2))==0)){
  24.     goto T9;}
  25.     {object V3 = small_fixnum(0);
  26.     VMR1(V3)}
  27. T9:;
  28.     {object V4;
  29.     base[0]= (V2);
  30.     vs_top=(vs_base=base+0)+1;
  31.     Linteger_length();
  32.     vs_top=sup;
  33.     V4= vs_base[0];
  34.     {register object V5;
  35.     register object V6;
  36.     base[0]= small_fixnum(1);
  37.     base[2]= (V4);
  38.     base[3]= small_fixnum(2);
  39.     vs_top=(vs_base=base+2)+2;
  40.     Lceiling();
  41.     vs_top=sup;
  42.     base[1]= vs_base[0];
  43.     vs_top=(vs_base=base+0)+2;
  44.     Lash();
  45.     vs_top=sup;
  46.     V5= vs_base[0];
  47.     V6= Cnil;
  48. T19:;
  49.     base[0]= (V2);
  50.     base[1]= (V5);
  51.     vs_top=(vs_base=base+0)+2;
  52.     Lfloor();
  53.     vs_top=sup;
  54.     V6= vs_base[0];
  55.     if(!(number_compare((V5),(V6))<=0)){
  56.     goto T26;}
  57.     {object V7 = (V5);
  58.     VMR1(V7)}
  59. T26:;
  60.     base[0]= number_plus((V5),(V6));
  61.     base[1]= small_fixnum(2);
  62.     vs_top=(vs_base=base+0)+2;
  63.     Lfloor();
  64.     vs_top=sup;
  65.     V5= vs_base[0];
  66.     goto T19;}}
  67. }
  68. /*    local entry for function ABS    */
  69.  
  70. static object LI2(V9)
  71.  
  72. register object V9;
  73. {     VMB2 VMS2 VMV2
  74. TTL:;
  75.     base[0]= (V9);
  76.     vs_top=(vs_base=base+0)+1;
  77.     Lcomplexp();
  78.     vs_top=sup;
  79.     if((vs_base[0])==Cnil){
  80.     goto T36;}
  81.     base[1]= (V9);
  82.     vs_top=(vs_base=base+1)+1;
  83.     Lrealpart();
  84.     vs_top=sup;
  85.     V10= vs_base[0];
  86.     base[1]= (V9);
  87.     vs_top=(vs_base=base+1)+1;
  88.     Lrealpart();
  89.     vs_top=sup;
  90.     V11= vs_base[0];
  91.     V12= number_times(V10,V11);
  92.     base[1]= (V9);
  93.     vs_top=(vs_base=base+1)+1;
  94.     Limagpart();
  95.     vs_top=sup;
  96.     V13= vs_base[0];
  97.     base[1]= (V9);
  98.     vs_top=(vs_base=base+1)+1;
  99.     Limagpart();
  100.     vs_top=sup;
  101.     V14= vs_base[0];
  102.     V15= number_times(V13,V14);
  103.     base[0]= number_plus(/* INLINE-ARGS */V12,/* INLINE-ARGS */V15);
  104.     vs_top=(vs_base=base+0)+1;
  105.     Lsqrt();
  106.     vs_top=sup;
  107.     {object V16 = vs_base[0];
  108.     VMR2(V16)}
  109. T36:;
  110.     if(!(number_compare(small_fixnum(0),(V9))>0)){
  111.     goto T49;}
  112.     {object V17 = number_negate((V9));
  113.     VMR2(V17)}
  114. T49:;
  115.     {object V18 = (V9);
  116.     VMR2(V18)}
  117. }
  118. /*    local entry for function PHASE    */
  119.  
  120. static object LI3(V20)
  121.  
  122. object V20;
  123. {     VMB3 VMS3 VMV3
  124. TTL:;
  125.     base[1]= (V20);
  126.     vs_top=(vs_base=base+1)+1;
  127.     Limagpart();
  128.     vs_top=sup;
  129.     base[0]= vs_base[0];
  130.     base[2]= (V20);
  131.     vs_top=(vs_base=base+2)+1;
  132.     Lrealpart();
  133.     vs_top=sup;
  134.     base[1]= vs_base[0];
  135.     vs_top=(vs_base=base+0)+2;
  136.     Latan();
  137.     vs_top=sup;
  138.     {object V21 = vs_base[0];
  139.     VMR3(V21)}
  140. }
  141. /*    local entry for function SIGNUM    */
  142.  
  143. static object LI4(V23)
  144.  
  145. register object V23;
  146. {     VMB4 VMS4 VMV4
  147. TTL:;
  148.     if(!(number_compare(small_fixnum(0),(V23))==0)){
  149.     goto T56;}
  150.     {object V24 = (V23);
  151.     VMR4(V24)}
  152. T56:;
  153.     base[0]= (V23);
  154.     base[1]= (*(LnkLI9))((V23));
  155.     vs_top=(vs_base=base+0)+2;
  156.     Ldivide();
  157.     vs_top=sup;
  158.     {object V25 = vs_base[0];
  159.     VMR4(V25)}
  160. }
  161. /*    local entry for function CIS    */
  162.  
  163. static object LI5(V27)
  164.  
  165. object V27;
  166. {     VMB5 VMS5 VMV5
  167. TTL:;
  168.     base[0]= number_times(VV[1],(V27));
  169.     vs_top=(vs_base=base+0)+1;
  170.     Lexp();
  171.     vs_top=sup;
  172.     {object V28 = vs_base[0];
  173.     VMR5(V28)}
  174. }
  175. /*    local entry for function ASIN    */
  176.  
  177. static object LI6(V30)
  178.  
  179. register object V30;
  180. {     VMB6 VMS6 VMV6
  181. TTL:;
  182.     {object V31;
  183.     V33= number_times(VV[1],(V30));
  184.     V35= number_times((V30),(V30));
  185.     base[1]= number_minus(VV[2],/* INLINE-ARGS */V35);
  186.     vs_top=(vs_base=base+1)+1;
  187.     Lsqrt();
  188.     vs_top=sup;
  189.     V34= vs_base[0];
  190.     base[0]= number_plus(/* INLINE-ARGS */V33,V34);
  191.     vs_top=(vs_base=base+0)+1;
  192.     Llog();
  193.     vs_top=sup;
  194.     V32= vs_base[0];
  195.     V36= number_times(VV[1],V32);
  196.     V31= number_negate(/* INLINE-ARGS */V36);
  197.     base[0]= (V30);
  198.     vs_top=(vs_base=base+0)+1;
  199.     Lcomplexp();
  200.     vs_top=sup;
  201.     if((vs_base[0])!=Cnil){
  202.     goto T68;}
  203.     if(!(number_compare((V30),VV[2])<=0)){
  204.     goto T68;}
  205.     if(number_compare((V30),VV[3])>=0){
  206.     goto T66;}
  207. T68:;
  208.     base[0]= (V31);
  209.     vs_top=(vs_base=base+0)+1;
  210.     Limagpart();
  211.     vs_top=sup;
  212.     V37= vs_base[0];
  213.     if(!(number_compare(small_fixnum(0),V37)==0)){
  214.     goto T67;}
  215. T66:;
  216.     base[0]= (V31);
  217.     vs_top=(vs_base=base+0)+1;
  218.     Lrealpart();
  219.     vs_top=sup;
  220.     {object V38 = vs_base[0];
  221.     VMR6(V38)}
  222. T67:;
  223.     {object V39 = (V31);
  224.     VMR6(V39)}}
  225. }
  226. /*    local entry for function ACOS    */
  227.  
  228. static object LI7(V41)
  229.  
  230. register object V41;
  231. {     VMB7 VMS7 VMV7
  232. TTL:;
  233.     {object V42;
  234.     V45= number_times((V41),(V41));
  235.     base[1]= number_minus(VV[2],/* INLINE-ARGS */V45);
  236.     vs_top=(vs_base=base+1)+1;
  237.     Lsqrt();
  238.     vs_top=sup;
  239.     V44= vs_base[0];
  240.     V46= number_times(VV[1],V44);
  241.     base[0]= number_plus((V41),/* INLINE-ARGS */V46);
  242.     vs_top=(vs_base=base+0)+1;
  243.     Llog();
  244.     vs_top=sup;
  245.     V43= vs_base[0];
  246.     V47= number_times(VV[1],V43);
  247.     V42= number_negate(/* INLINE-ARGS */V47);
  248.     base[0]= (V41);
  249.     vs_top=(vs_base=base+0)+1;
  250.     Lcomplexp();
  251.     vs_top=sup;
  252.     if((vs_base[0])!=Cnil){
  253.     goto T86;}
  254.     if(!(number_compare((V41),VV[2])<=0)){
  255.     goto T86;}
  256.     if(number_compare((V41),VV[3])>=0){
  257.     goto T84;}
  258. T86:;
  259.     base[0]= (V42);
  260.     vs_top=(vs_base=base+0)+1;
  261.     Limagpart();
  262.     vs_top=sup;
  263.     V48= vs_base[0];
  264.     if(!(number_compare(small_fixnum(0),V48)==0)){
  265.     goto T85;}
  266. T84:;
  267.     base[0]= (V42);
  268.     vs_top=(vs_base=base+0)+1;
  269.     Lrealpart();
  270.     vs_top=sup;
  271.     {object V49 = vs_base[0];
  272.     VMR7(V49)}
  273. T85:;
  274.     {object V50 = (V42);
  275.     VMR7(V50)}}
  276. }
  277. /*    local entry for function SINH    */
  278.  
  279. static object LI8(V52)
  280.  
  281. object V52;
  282. {     VMB8 VMS8 VMV8
  283. TTL:;
  284.     base[1]= (V52);
  285.     vs_top=(vs_base=base+1)+1;
  286.     Lexp();
  287.     vs_top=sup;
  288.     V53= vs_base[0];
  289.     base[1]= number_negate((V52));
  290.     vs_top=(vs_base=base+1)+1;
  291.     Lexp();
  292.     vs_top=sup;
  293.     V54= vs_base[0];
  294.     base[0]= number_minus(V53,V54);
  295.     base[1]= VV[4];
  296.     vs_top=(vs_base=base+0)+2;
  297.     Ldivide();
  298.     vs_top=sup;
  299.     {object V55 = vs_base[0];
  300.     VMR8(V55)}
  301. }
  302. /*    local entry for function COSH    */
  303.  
  304. static object LI9(V57)
  305.  
  306. object V57;
  307. {     VMB9 VMS9 VMV9
  308. TTL:;
  309.     base[1]= (V57);
  310.     vs_top=(vs_base=base+1)+1;
  311.     Lexp();
  312.     vs_top=sup;
  313.     V58= vs_base[0];
  314.     base[1]= number_negate((V57));
  315.     vs_top=(vs_base=base+1)+1;
  316.     Lexp();
  317.     vs_top=sup;
  318.     V59= vs_base[0];
  319.     base[0]= number_plus(V58,V59);
  320.     base[1]= VV[4];
  321.     vs_top=(vs_base=base+0)+2;
  322.     Ldivide();
  323.     vs_top=sup;
  324.     {object V60 = vs_base[0];
  325.     VMR9(V60)}
  326. }
  327. /*    local entry for function TANH    */
  328.  
  329. static object LI10(V62)
  330.  
  331. object V62;
  332. {     VMB10 VMS10 VMV10
  333. TTL:;
  334.     base[0]= (*(LnkLI10))((V62));
  335.     base[1]= (*(LnkLI11))((V62));
  336.     vs_top=(vs_base=base+0)+2;
  337.     Ldivide();
  338.     vs_top=sup;
  339.     {object V63 = vs_base[0];
  340.     VMR10(V63)}
  341. }
  342. /*    local entry for function ASINH    */
  343.  
  344. static object LI11(V65)
  345.  
  346. object V65;
  347. {     VMB11 VMS11 VMV11
  348. TTL:;
  349.     V67= number_times((V65),(V65));
  350.     base[1]= number_plus(VV[2],/* INLINE-ARGS */V67);
  351.     vs_top=(vs_base=base+1)+1;
  352.     Lsqrt();
  353.     vs_top=sup;
  354.     V66= vs_base[0];
  355.     base[0]= number_plus((V65),V66);
  356.     vs_top=(vs_base=base+0)+1;
  357.     Llog();
  358.     vs_top=sup;
  359.     {object V68 = vs_base[0];
  360.     VMR11(V68)}
  361. }
  362. /*    local entry for function ACOSH    */
  363.  
  364. static object LI12(V70)
  365.  
  366. register object V70;
  367. {     VMB12 VMS12 VMV12
  368. TTL:;
  369.     V71= one_plus((V70));
  370.     base[2]= one_minus((V70));
  371.     base[3]= one_plus((V70));
  372.     vs_top=(vs_base=base+2)+2;
  373.     Ldivide();
  374.     vs_top=sup;
  375.     base[1]= vs_base[0];
  376.     vs_top=(vs_base=base+1)+1;
  377.     Lsqrt();
  378.     vs_top=sup;
  379.     V72= vs_base[0];
  380.     V73= number_times(/* INLINE-ARGS */V71,V72);
  381.     base[0]= number_plus((V70),/* INLINE-ARGS */V73);
  382.     vs_top=(vs_base=base+0)+1;
  383.     Llog();
  384.     vs_top=sup;
  385.     {object V74 = vs_base[0];
  386.     VMR12(V74)}
  387. }
  388. /*    local entry for function ATANH    */
  389.  
  390. static object LI13(V76)
  391.  
  392. register object V76;
  393. {     VMB13 VMS13 VMV13
  394. TTL:;
  395.     if(number_compare((V76),VV[2])==0){
  396.     goto T120;}
  397.     if(!(number_compare((V76),VV[3])==0)){
  398.     goto T119;}
  399. T120:;
  400.     base[0]= VV[5];
  401.     base[1]= (V76);
  402.     vs_top=(vs_base=base+0)+2;
  403.     Lerror();
  404.     vs_top=sup;
  405. T119:;
  406.     base[1]= one_plus((V76));
  407.     V77= number_times((V76),(V76));
  408.     base[3]= number_minus(VV[2],/* INLINE-ARGS */V77);
  409.     vs_top=(vs_base=base+3)+1;
  410.     Lsqrt();
  411.     vs_top=sup;
  412.     base[2]= vs_base[0];
  413.     vs_top=(vs_base=base+1)+2;
  414.     Ldivide();
  415.     vs_top=sup;
  416.     base[0]= vs_base[0];
  417.     vs_top=(vs_base=base+0)+1;
  418.     Llog();
  419.     vs_top=sup;
  420.     {object V78 = vs_base[0];
  421.     VMR13(V78)}
  422. }
  423. /*    local entry for function RATIONAL    */
  424.  
  425. static object LI14(V80)
  426.  
  427. register object V80;
  428. {     VMB14 VMS14 VMV14
  429. TTL:;
  430.     {register object V81;
  431.     V81= (V80);
  432.     if(!(type_of((V81))==t_shortfloat||type_of((V81))==t_longfloat)){
  433.     goto T131;}
  434.     {object V82;
  435.     object V83;
  436.     object V84;
  437.     base[0]= (V80);
  438.     vs_top=(vs_base=base+0)+1;
  439.     Linteger_decode_float();
  440.     if(vs_base>=vs_top){vs_top=sup;goto T135;}
  441.     V82= vs_base[0];
  442.     vs_base++;
  443.     if(vs_base>=vs_top){vs_top=sup;goto T136;}
  444.     V83= vs_base[0];
  445.     vs_base++;
  446.     if(vs_base>=vs_top){vs_top=sup;goto T137;}
  447.     V84= vs_base[0];
  448.     vs_top=sup;
  449.     goto T138;
  450. T135:;
  451.     V82= Cnil;
  452. T136:;
  453.     V83= Cnil;
  454. T137:;
  455.     V84= Cnil;
  456. T138:;
  457.     if(!(number_compare((V84),small_fixnum(0))>=0)){
  458.     goto T140;}
  459.     base[0]= (V80);
  460.     vs_top=(vs_base=base+0)+1;
  461.     Lfloat_radix();
  462.     vs_top=sup;
  463.     V85= vs_base[0];
  464.     V86= number_expt(V85,(V83));
  465.     {object V87 = number_times((V82),/* INLINE-ARGS */V86);
  466.     VMR14(V87)}
  467. T140:;
  468.     base[0]= (V80);
  469.     vs_top=(vs_base=base+0)+1;
  470.     Lfloat_radix();
  471.     vs_top=sup;
  472.     V88= vs_base[0];
  473.     V89= number_expt(V88,(V83));
  474.     V90= number_times((V82),/* INLINE-ARGS */V89);
  475.     {object V91 = number_negate(/* INLINE-ARGS */V90);
  476.     VMR14(V91)}}
  477. T131:;
  478.     base[0]= (V81);
  479.     vs_top=(vs_base=base+0)+1;
  480.     (void) (*Lnk12)();
  481.     vs_top=sup;
  482.     if((vs_base[0])==Cnil){
  483.     goto T147;}
  484.     {object V92 = (V80);
  485.     VMR14(V92)}
  486. T147:;
  487.     base[0]= (*(LnkLI13))(VV[6],(V81),VV[7]);
  488.     vs_top=(vs_base=base+0)+1;
  489.     Lerror();
  490.     vs_top=sup;
  491.     {object V93 = vs_base[0];
  492.     VMR14(V93)}}
  493. }
  494. /*    function definition for FFLOOR    */
  495.  
  496. static L15()
  497. {register object *base=vs_base;
  498.     register object *sup=base+VM15; VC15
  499.     vs_reserve(VM15);
  500.     {object V94;
  501.     object V95;
  502.     if(vs_top-vs_base<1) too_few_arguments();
  503.     if(vs_top-vs_base>2) too_many_arguments();
  504.     V94=(base[0]);
  505.     vs_base=vs_base+1;
  506.     if(vs_base>=vs_top){vs_top=sup;goto T151;}
  507.     V95=(base[1]);
  508.     vs_top=sup;
  509.     goto T152;
  510. T151:;
  511.     V95= VV[8];
  512. T152:;
  513.     {object V96;
  514.     object V97;
  515.     base[3]= (V94);
  516.     vs_top=(vs_base=base+3)+1;
  517.     Lfloat();
  518.     vs_top=sup;
  519.     base[2]= vs_base[0];
  520.     base[4]= (V95);
  521.     vs_top=(vs_base=base+4)+1;
  522.     Lfloat();
  523.     vs_top=sup;
  524.     base[3]= vs_base[0];
  525.     vs_top=(vs_base=base+2)+2;
  526.     Lfloor();
  527.     if(vs_base>=vs_top){vs_top=sup;goto T159;}
  528.     V96= vs_base[0];
  529.     vs_base++;
  530.     if(vs_base>=vs_top){vs_top=sup;goto T160;}
  531.     V97= vs_base[0];
  532.     vs_top=sup;
  533.     goto T161;
  534. T159:;
  535.     V96= Cnil;
  536. T160:;
  537.     V97= Cnil;
  538. T161:;
  539.     base[3]= (V96);
  540.     base[4]= (V97);
  541.     vs_top=(vs_base=base+3)+2;
  542.     Lfloat();
  543.     vs_top=sup;
  544.     base[2]= vs_base[0];
  545.     base[3]= (V97);
  546.     vs_top=(vs_base=base+2)+2;
  547.     return;}
  548.     }
  549. }
  550. /*    function definition for FCEILING    */
  551.  
  552. static L16()
  553. {register object *base=vs_base;
  554.     register object *sup=base+VM16; VC16
  555.     vs_reserve(VM16);
  556.     {object V98;
  557.     object V99;
  558.     if(vs_top-vs_base<1) too_few_arguments();
  559.     if(vs_top-vs_base>2) too_many_arguments();
  560.     V98=(base[0]);
  561.     vs_base=vs_base+1;
  562.     if(vs_base>=vs_top){vs_top=sup;goto T166;}
  563.     V99=(base[1]);
  564.     vs_top=sup;
  565.     goto T167;
  566. T166:;
  567.     V99= VV[8];
  568. T167:;
  569.     {object V100;
  570.     object V101;
  571.     base[3]= (V98);
  572.     vs_top=(vs_base=base+3)+1;
  573.     Lfloat();
  574.     vs_top=sup;
  575.     base[2]= vs_base[0];
  576.     base[4]= (V99);
  577.     vs_top=(vs_base=base+4)+1;
  578.     Lfloat();
  579.     vs_top=sup;
  580.     base[3]= vs_base[0];
  581.     vs_top=(vs_base=base+2)+2;
  582.     Lceiling();
  583.     if(vs_base>=vs_top){vs_top=sup;goto T174;}
  584.     V100= vs_base[0];
  585.     vs_base++;
  586.     if(vs_base>=vs_top){vs_top=sup;goto T175;}
  587.     V101= vs_base[0];
  588.     vs_top=sup;
  589.     goto T176;
  590. T174:;
  591.     V100= Cnil;
  592. T175:;
  593.     V101= Cnil;
  594. T176:;
  595.     base[3]= (V100);
  596.     base[4]= (V101);
  597.     vs_top=(vs_base=base+3)+2;
  598.     Lfloat();
  599.     vs_top=sup;
  600.     base[2]= vs_base[0];
  601.     base[3]= (V101);
  602.     vs_top=(vs_base=base+2)+2;
  603.     return;}
  604.     }
  605. }
  606. /*    function definition for FTRUNCATE    */
  607.  
  608. static L17()
  609. {register object *base=vs_base;
  610.     register object *sup=base+VM17; VC17
  611.     vs_reserve(VM17);
  612.     {object V102;
  613.     object V103;
  614.     if(vs_top-vs_base<1) too_few_arguments();
  615.     if(vs_top-vs_base>2) too_many_arguments();
  616.     V102=(base[0]);
  617.     vs_base=vs_base+1;
  618.     if(vs_base>=vs_top){vs_top=sup;goto T181;}
  619.     V103=(base[1]);
  620.     vs_top=sup;
  621.     goto T182;
  622. T181:;
  623.     V103= VV[8];
  624. T182:;
  625.     {object V104;
  626.     object V105;
  627.     base[3]= (V102);
  628.     vs_top=(vs_base=base+3)+1;
  629.     Lfloat();
  630.     vs_top=sup;
  631.     base[2]= vs_base[0];
  632.     base[4]= (V103);
  633.     vs_top=(vs_base=base+4)+1;
  634.     Lfloat();
  635.     vs_top=sup;
  636.     base[3]= vs_base[0];
  637.     vs_top=(vs_base=base+2)+2;
  638.     Ltruncate();
  639.     if(vs_base>=vs_top){vs_top=sup;goto T189;}
  640.     V104= vs_base[0];
  641.     vs_base++;
  642.     if(vs_base>=vs_top){vs_top=sup;goto T190;}
  643.     V105= vs_base[0];
  644.     vs_top=sup;
  645.     goto T191;
  646. T189:;
  647.     V104= Cnil;
  648. T190:;
  649.     V105= Cnil;
  650. T191:;
  651.     base[3]= (V104);
  652.     base[4]= (V105);
  653.     vs_top=(vs_base=base+3)+2;
  654.     Lfloat();
  655.     vs_top=sup;
  656.     base[2]= vs_base[0];
  657.     base[3]= (V105);
  658.     vs_top=(vs_base=base+2)+2;
  659.     return;}
  660.     }
  661. }
  662. /*    function definition for FROUND    */
  663.  
  664. static L18()
  665. {register object *base=vs_base;
  666.     register object *sup=base+VM18; VC18
  667.     vs_reserve(VM18);
  668.     {object V106;
  669.     object V107;
  670.     if(vs_top-vs_base<1) too_few_arguments();
  671.     if(vs_top-vs_base>2) too_many_arguments();
  672.     V106=(base[0]);
  673.     vs_base=vs_base+1;
  674.     if(vs_base>=vs_top){vs_top=sup;goto T196;}
  675.     V107=(base[1]);
  676.     vs_top=sup;
  677.     goto T197;
  678. T196:;
  679.     V107= VV[8];
  680. T197:;
  681.     {object V108;
  682.     object V109;
  683.     base[3]= (V106);
  684.     vs_top=(vs_base=base+3)+1;
  685.     Lfloat();
  686.     vs_top=sup;
  687.     base[2]= vs_base[0];
  688.     base[4]= (V107);
  689.     vs_top=(vs_base=base+4)+1;
  690.     Lfloat();
  691.     vs_top=sup;
  692.     base[3]= vs_base[0];
  693.     vs_top=(vs_base=base+2)+2;
  694.     Lround();
  695.     if(vs_base>=vs_top){vs_top=sup;goto T204;}
  696.     V108= vs_base[0];
  697.     vs_base++;
  698.     if(vs_base>=vs_top){vs_top=sup;goto T205;}
  699.     V109= vs_base[0];
  700.     vs_top=sup;
  701.     goto T206;
  702. T204:;
  703.     V108= Cnil;
  704. T205:;
  705.     V109= Cnil;
  706. T206:;
  707.     base[3]= (V108);
  708.     base[4]= (V109);
  709.     vs_top=(vs_base=base+3)+2;
  710.     Lfloat();
  711.     vs_top=sup;
  712.     base[2]= vs_base[0];
  713.     base[3]= (V109);
  714.     vs_top=(vs_base=base+2)+2;
  715.     return;}
  716.     }
  717. }
  718. /*    local entry for function LOGNAND    */
  719.  
  720. static object LI19(V112,V113)
  721.  
  722. object V112;object V113;
  723. {     VMB19 VMS19 VMV19
  724. TTL:;
  725.     base[0]= small_fixnum(14);
  726.     base[1]= (V112);
  727.     base[2]= (V113);
  728.     vs_top=(vs_base=base+0)+3;
  729.     Lboole();
  730.     vs_top=sup;
  731.     {object V114 = vs_base[0];
  732.     VMR19(V114)}
  733. }
  734. /*    local entry for function LOGNOR    */
  735.  
  736. static object LI20(V117,V118)
  737.  
  738. object V117;object V118;
  739. {     VMB20 VMS20 VMV20
  740. TTL:;
  741.     base[0]= small_fixnum(8);
  742.     base[1]= (V117);
  743.     base[2]= (V118);
  744.     vs_top=(vs_base=base+0)+3;
  745.     Lboole();
  746.     vs_top=sup;
  747.     {object V119 = vs_base[0];
  748.     VMR20(V119)}
  749. }
  750. /*    local entry for function LOGANDC1    */
  751.  
  752. static object LI21(V122,V123)
  753.  
  754. object V122;object V123;
  755. {     VMB21 VMS21 VMV21
  756. TTL:;
  757.     base[0]= small_fixnum(4);
  758.     base[1]= (V122);
  759.     base[2]= (V123);
  760.     vs_top=(vs_base=base+0)+3;
  761.     Lboole();
  762.     vs_top=sup;
  763.     {object V124 = vs_base[0];
  764.     VMR21(V124)}
  765. }
  766. /*    local entry for function LOGANDC2    */
  767.  
  768. static object LI22(V127,V128)
  769.  
  770. object V127;object V128;
  771. {     VMB22 VMS22 VMV22
  772. TTL:;
  773.     base[0]= small_fixnum(2);
  774.     base[1]= (V127);
  775.     base[2]= (V128);
  776.     vs_top=(vs_base=base+0)+3;
  777.     Lboole();
  778.     vs_top=sup;
  779.     {object V129 = vs_base[0];
  780.     VMR22(V129)}
  781. }
  782. /*    local entry for function LOGORC1    */
  783.  
  784. static object LI23(V132,V133)
  785.  
  786. object V132;object V133;
  787. {     VMB23 VMS23 VMV23
  788. TTL:;
  789.     base[0]= small_fixnum(13);
  790.     base[1]= (V132);
  791.     base[2]= (V133);
  792.     vs_top=(vs_base=base+0)+3;
  793.     Lboole();
  794.     vs_top=sup;
  795.     {object V134 = vs_base[0];
  796.     VMR23(V134)}
  797. }
  798. /*    local entry for function LOGORC2    */
  799.  
  800. static object LI24(V137,V138)
  801.  
  802. object V137;object V138;
  803. {     VMB24 VMS24 VMV24
  804. TTL:;
  805.     base[0]= small_fixnum(11);
  806.     base[1]= (V137);
  807.     base[2]= (V138);
  808.     vs_top=(vs_base=base+0)+3;
  809.     Lboole();
  810.     vs_top=sup;
  811.     {object V139 = vs_base[0];
  812.     VMR24(V139)}
  813. }
  814. /*    local entry for function LOGNOT    */
  815.  
  816. static object LI25(V141)
  817.  
  818. object V141;
  819. {     VMB25 VMS25 VMV25
  820. TTL:;
  821.     base[0]= small_fixnum(-1);
  822.     base[1]= (V141);
  823.     vs_top=(vs_base=base+0)+2;
  824.     Llogxor();
  825.     vs_top=sup;
  826.     {object V142 = vs_base[0];
  827.     VMR25(V142)}
  828. }
  829. /*    local entry for function LOGTEST    */
  830.  
  831. static object LI26(V145,V146)
  832.  
  833. object V145;object V146;
  834. {     VMB26 VMS26 VMV26
  835. TTL:;
  836.     base[0]= (V145);
  837.     base[1]= (V146);
  838.     vs_top=(vs_base=base+0)+2;
  839.     Llogand();
  840.     vs_top=sup;
  841.     V147= vs_base[0];
  842.     {object V148 = (((number_compare(small_fixnum(0),V147)==0?Ct:Cnil))==Cnil?Ct:Cnil);
  843.     VMR26(V148)}
  844. }
  845. /*    local entry for function BYTE    */
  846.  
  847. static object LI27(V151,V152)
  848.  
  849. object V151;object V152;
  850. {     VMB27 VMS27 VMV27
  851. TTL:;
  852.     {object V153 = make_cons((V151),(V152));
  853.     VMR27(V153)}
  854. }
  855. /*    local entry for function BYTE-SIZE    */
  856.  
  857. static object LI28(V155)
  858.  
  859. object V155;
  860. {     VMB28 VMS28 VMV28
  861. TTL:;
  862.     {object V156 = car((V155));
  863.     VMR28(V156)}
  864. }
  865. /*    local entry for function BYTE-POSITION    */
  866.  
  867. static object LI29(V158)
  868.  
  869. object V158;
  870. {     VMB29 VMS29 VMV29
  871. TTL:;
  872.     {object V159 = cdr((V158));
  873.     VMR29(V159)}
  874. }
  875. /*    local entry for function LDB    */
  876.  
  877. static object LI30(V162,V163)
  878.  
  879. object V162;object V163;
  880. {     VMB30 VMS30 VMV30
  881. TTL:;
  882.     base[0]= (V163);
  883.     V165= (*(LnkLI15))((V162));
  884.     base[1]= number_negate(/* INLINE-ARGS */V165);
  885.     vs_top=(vs_base=base+0)+2;
  886.     Lash();
  887.     vs_top=sup;
  888.     V164= vs_base[0];
  889.     base[0]= small_fixnum(1);
  890.     base[1]= (*(LnkLI16))((V162));
  891.     vs_top=(vs_base=base+0)+2;
  892.     Lash();
  893.     vs_top=sup;
  894.     V166= vs_base[0];
  895.     V167= number_negate(V166);
  896.     {object V168 = (*(LnkLI14))(V164,/* INLINE-ARGS */V167);
  897.     VMR30(V168)}
  898. }
  899. /*    local entry for function LDB-TEST    */
  900.  
  901. static object LI31(V171,V172)
  902.  
  903. object V171;object V172;
  904. {     VMB31 VMS31 VMV31
  905. TTL:;
  906.     V173= (*(LnkLI17))((V171),(V172));
  907.     {object V174 = (((number_compare(small_fixnum(0),/* INLINE-ARGS */V173)==0?Ct:Cnil))==Cnil?Ct:Cnil);
  908.     VMR31(V174)}
  909. }
  910. /*    local entry for function MASK-FIELD    */
  911.  
  912. static object LI32(V177,V178)
  913.  
  914. object V177;object V178;
  915. {     VMB32 VMS32 VMV32
  916. TTL:;
  917.     base[0]= (*(LnkLI17))((V177),(V178));
  918.     base[1]= (*(LnkLI15))((V177));
  919.     vs_top=(vs_base=base+0)+2;
  920.     Lash();
  921.     vs_top=sup;
  922.     {object V179 = vs_base[0];
  923.     VMR32(V179)}
  924. }
  925. /*    local entry for function DPB    */
  926.  
  927. static object LI33(V183,V184,V185)
  928.  
  929. object V183;object V184;object V185;
  930. {     VMB33 VMS33 VMV33
  931. TTL:;
  932.     base[0]= (V185);
  933.     base[1]= (*(LnkLI18))((V184),(V185));
  934.     base[4]= small_fixnum(1);
  935.     base[5]= (*(LnkLI16))((V184));
  936.     vs_top=(vs_base=base+4)+2;
  937.     Lash();
  938.     vs_top=sup;
  939.     V186= vs_base[0];
  940.     V187= number_negate(V186);
  941.     base[3]= (*(LnkLI14))((V183),/* INLINE-ARGS */V187);
  942.     base[4]= (*(LnkLI15))((V184));
  943.     vs_top=(vs_base=base+3)+2;
  944.     Lash();
  945.     vs_top=sup;
  946.     base[2]= vs_base[0];
  947.     vs_top=(vs_base=base+0)+3;
  948.     Llogxor();
  949.     vs_top=sup;
  950.     {object V188 = vs_base[0];
  951.     VMR33(V188)}
  952. }
  953. /*    local entry for function DEPOSIT-FIELD    */
  954.  
  955. static object LI34(V192,V193,V194)
  956.  
  957. object V192;object V193;object V194;
  958. {     VMB34 VMS34 VMV34
  959. TTL:;
  960.     base[0]= (V192);
  961.     V196= (*(LnkLI15))((V193));
  962.     base[1]= number_negate(/* INLINE-ARGS */V196);
  963.     vs_top=(vs_base=base+0)+2;
  964.     Lash();
  965.     vs_top=sup;
  966.     V195= vs_base[0];
  967.     {object V197 = (*(LnkLI19))(V195,(V193),(V194));
  968.     VMR34(V197)}
  969. }
  970. static object  LnkTLI19(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[19],&LnkLI19,3,ap);} /* DPB */
  971. static object  LnkTLI18(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[18],&LnkLI18,2,ap);} /* MASK-FIELD */
  972. static object  LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],&LnkLI17,2,ap);} /* LDB */
  973. static object  LnkTLI16(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[16],&LnkLI16,1,ap);} /* BYTE-SIZE */
  974. static object  LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[15],&LnkLI15,1,ap);} /* BYTE-POSITION */
  975. static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,2,ap);} /* LOGANDC2 */
  976. static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,3,ap);} /* TYPECASE-ERROR-STRING */
  977. static LnkT12(){ call_or_link(VV[12],&Lnk12);} /* RATIONALP */
  978. static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[11],&LnkLI11,1,ap);} /* COSH */
  979. static object  LnkTLI10(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[10],&LnkLI10,1,ap);} /* SINH */
  980. static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],&LnkLI9,1,ap);} /* ABS */
  981.