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 / cmpnew / cmpinline.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  40.5 KB  |  1,845 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpinline.h"
  4. init_cmpinline(){do_init(VV);}
  5. /*    local entry for function MAKE-INFO    */
  6.  
  7. static object LI1(va_alist)
  8.     va_dcl 
  9. {    
  10.     va_list ap;
  11.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  12.     {object V1;
  13.     object V2;
  14.     object V3;
  15.     object V4;
  16.     object V5;
  17.     narg= narg - 0;
  18.     va_start(ap);
  19.     {
  20.     parse_key_new(narg,Vcs +0,&LI1key,ap);
  21.     V1=(Vcs[0]);
  22.     V2=(Vcs[1]);
  23.     if(Vcs[2]==0){
  24.     V3= Ct;
  25.     }else{
  26.     V3=(Vcs[2]);}
  27.     V4=(Vcs[3]);
  28.     V5=(Vcs[4]);
  29.     base[0]= VV[0];
  30.     base[1]= (V1);
  31.     base[2]= (V2);
  32.     base[3]= (V3);
  33.     base[4]= (V4);
  34.     base[5]= (V5);
  35.     vs_top=(vs_base=base+0)+6;
  36.     siLmake_structure();
  37.     vs_top=sup;
  38.     {object V6 = vs_base[0];
  39.     VMR1(V6)}}
  40.     }}
  41. /*    local entry for function ADD-INFO    */
  42.  
  43. static object LI2(V9,V10)
  44.  
  45. register object V9;object V10;
  46. {     VMB2 VMS2 VMV2
  47. TTL:;
  48.     V11= structure_ref((V10),VV[0],0);
  49.     V12= structure_ref((V9),VV[0],0);
  50.     V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12);
  51.     (void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13));
  52.     V14= structure_ref((V10),VV[0],1);
  53.     V15= structure_ref((V9),VV[0],1);
  54.     V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15);
  55.     (void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16));
  56.     if((structure_ref((V10),VV[0],3))==Cnil){
  57.     goto T11;}
  58.     {object V17 = structure_set((V9),VV[0],3,Ct);
  59.     VMR2(V17)}
  60. T11:;
  61.     {object V18 = Cnil;
  62.     VMR2(V18)}
  63. }
  64. /*    local entry for function ARGS-INFO-CHANGED-VARS    */
  65.  
  66. static object LI3(V21,V22)
  67.  
  68. register object V21;object V22;
  69. {     VMB3 VMS3 VMV3
  70. TTL:;
  71.     V24= structure_ref((V21),VV[1],1);
  72.     {object V23= /* INLINE-ARGS */V24;
  73.     if((V23== VV[70])
  74.     || (V23== VV[44])
  75.     || (V23== VV[71])
  76.     || (V23== VV[45])
  77.     || (V23== VV[46]))goto T14;
  78.     if((V23!= VV[18]))goto T13;
  79. T14:;
  80.     {register object V25;
  81.     register object V26;
  82.     V25= (V22);
  83.     V26= car((V25));
  84. T18:;
  85.     if(!(endp((V25)))){
  86.     goto T19;}
  87.     {object V27 = Cnil;
  88.     VMR3(V27)}
  89. T19:;
  90.     V29= structure_ref(cadr((V26)),VV[0],0);
  91.     {register object x= (V21),V28= /* INLINE-ARGS */V29;
  92.     while(!endp(V28))
  93.     if(eql(x,V28->c.c_car)){
  94.     goto T25;
  95.     }else V28=V28->c.c_cdr;
  96.     goto T23;}
  97. T25:;
  98.     {object V30 = Ct;
  99.     VMR3(V30)}
  100. T23:;
  101.     V25= cdr((V25));
  102.     V26= car((V25));
  103.     goto T18;}
  104. T13:;
  105.     if((V23!= VV[72]))goto T31;
  106.     {object V31 = Cnil;
  107.     VMR3(V31)}
  108. T31:;
  109.     {register object V32;
  110.     register object V33;
  111.     V32= (V22);
  112.     V33= car((V32));
  113. T35:;
  114.     if(!(endp((V32)))){
  115.     goto T36;}
  116.     {object V34 = Cnil;
  117.     VMR3(V34)}
  118. T36:;
  119.     V36= structure_ref(cadr((V33)),VV[0],0);
  120.     {register object x= (V21),V35= /* INLINE-ARGS */V36;
  121.     while(!endp(V35))
  122.     if(eql(x,V35->c.c_car)){
  123.     goto T41;
  124.     }else V35=V35->c.c_cdr;}
  125.     if((structure_ref(cadr((V33)),VV[0],3))==Cnil){
  126.     goto T40;}
  127. T41:;
  128.     {object V37 = Ct;
  129.     VMR3(V37)}
  130. T40:;
  131.     V32= cdr((V32));
  132.     V33= car((V32));
  133.     goto T35;}}
  134. }
  135. /*    local entry for function ARGS-INFO-REFERRED-VARS    */
  136.  
  137. static object LI4(V40,V41)
  138.  
  139. register object V40;object V41;
  140. {     VMB4 VMS4 VMV4
  141. TTL:;
  142.     V43= structure_ref((V40),VV[1],1);
  143.     {object V42= /* INLINE-ARGS */V43;
  144.     if((V42== VV[70])
  145.     || (V42== VV[72])
  146.     || (V42== VV[44])
  147.     || (V42== VV[71])
  148.     || (V42== VV[45]))goto T51;
  149.     if((V42!= VV[46])
  150.     && (V42!= VV[18]))goto T50;
  151. T51:;
  152.     {register object V44;
  153.     register object V45;
  154.     V44= (V41);
  155.     V45= car((V44));
  156. T55:;
  157.     if(!(endp((V44)))){
  158.     goto T56;}
  159.     {object V46 = Cnil;
  160.     VMR4(V46)}
  161. T56:;
  162.     V48= structure_ref(cadr((V45)),VV[0],1);
  163.     {register object x= (V40),V47= /* INLINE-ARGS */V48;
  164.     while(!endp(V47))
  165.     if(eql(x,V47->c.c_car)){
  166.     goto T62;
  167.     }else V47=V47->c.c_cdr;
  168.     goto T60;}
  169. T62:;
  170.     {object V49 = Ct;
  171.     VMR4(V49)}
  172. T60:;
  173.     V44= cdr((V44));
  174.     V45= car((V44));
  175.     goto T55;}
  176. T50:;
  177.     {register object V50;
  178.     register object V51;
  179.     V50= (V41);
  180.     V51= car((V50));
  181. T71:;
  182.     if(!(endp((V50)))){
  183.     goto T72;}
  184.     {object V52 = Cnil;
  185.     VMR4(V52)}
  186. T72:;
  187.     V54= structure_ref(cadr((V51)),VV[0],1);
  188.     {register object x= (V40),V53= /* INLINE-ARGS */V54;
  189.     while(!endp(V53))
  190.     if(eql(x,V53->c.c_car)){
  191.     goto T77;
  192.     }else V53=V53->c.c_cdr;}
  193.     if((structure_ref(cadr((V51)),VV[0],3))==Cnil){
  194.     goto T76;}
  195. T77:;
  196.     {object V55 = Ct;
  197.     VMR4(V55)}
  198. T76:;
  199.     V50= cdr((V50));
  200.     V51= car((V50));
  201.     goto T71;}}
  202. }
  203. /*    function definition for INC-INLINE-BLOCKS    */
  204.  
  205. static L5()
  206. {register object *base=vs_base;
  207.     register object *sup=base+VM5; VC5
  208.     vs_reserve(VM5);
  209.     check_arg(0);
  210.     vs_top=sup;
  211. TTL:;
  212.     if(!(type_of(symbol_value(VV[2]))==t_cons)){
  213.     goto T87;}
  214.     {object V56;
  215.     object V57;
  216.     V56= symbol_value(VV[2]);
  217.     V57= number_plus(car((V56)),small_fixnum(1));
  218.     if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
  219.     ((V56))->c.c_car = (V57);
  220.     base[1]= (V57);
  221.     vs_top=(vs_base=base+1)+1;
  222.     return;}
  223. T87:;
  224.     setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));
  225.     base[0]= symbol_value(VV[2]);
  226.     vs_top=(vs_base=base+0)+1;
  227.     return;
  228. }
  229. /*    local entry for function INLINE-ARGS    */
  230.  
  231. static object LI6(V59,V58,va_alist)
  232.     object V59,V58;
  233.     va_dcl 
  234. {    
  235.     va_list ap;
  236.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  237.     bds_check;
  238.     {object V60;
  239.     object V61;
  240.     object V62;
  241.     if(narg <2) too_few_arguments();
  242.     V60= V59;
  243.     V61= V58;
  244.     narg = narg - 2;
  245.     if (narg <= 0) goto T93;
  246.     else {
  247.     va_start(ap);
  248.     V62= va_arg(ap,object);}
  249.     --narg; goto T94;
  250. T93:;
  251.     V62= Cnil;
  252. T94:;
  253.     {register object V63;
  254.     register object V64;
  255.     V63= Cnil;
  256.     V64= Cnil;
  257.     {register object V65;
  258.     object V66;
  259.     V65= (V60);
  260.     V66= (V61);
  261. T99:;
  262.     if(!(endp((V65)))){
  263.     goto T100;}
  264.     {object V67 = reverse((V63));
  265.     VMR6(V67)}
  266. T100:;
  267.     {register object V68;
  268.     register object V69;
  269.     V68= car((V65));
  270.     V69= car((V66));
  271.     {object V70= car((V68));
  272.     if((V70!= VV[14]))goto T107;
  273.     V71= (*(LnkLI73))(caddr((V68)),(V69));
  274.     V63= make_cons(/* INLINE-ARGS */V71,(V63));
  275.     goto T104;
  276. T107:;
  277.     if((V70!= VV[1]))goto T109;
  278.     if(((*(LnkLI74))(caaddr((V68)),cdr((V65))))==Cnil){
  279.     goto T111;}
  280.     V73= structure_ref(caaddr((V68)),VV[1],1);
  281.     {register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]);
  282.     while(!endp(V72))
  283.     if(eql(x,V72->c.c_car)){
  284.     goto T116;
  285.     }else V72=V72->c.c_cdr;
  286.     goto T114;}
  287. T116:;
  288.     V74= structure_ref(caaddr((V68)),VV[1],1);
  289.     if(!(((V69))==(/* INLINE-ARGS */V74))){
  290.     goto T114;}
  291.     {object V75;
  292.     setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
  293.     V75= symbol_value(VV[4]);
  294.     princ_str("\n    {",VV[5]);
  295.     V76= (*(LnkLI76))((V69));
  296.     (void)((*(LnkLI75))(/* INLINE-ARGS */V76));
  297.     princ_char(86,VV[5]);
  298.     (void)((*(LnkLI75))((V75)));
  299.     princ_str("= V",VV[5]);
  300.     V77= structure_ref(caaddr((V68)),VV[1],4);
  301.     (void)((*(LnkLI75))(/* INLINE-ARGS */V77));
  302.     princ_char(59,VV[5]);
  303.     V78= list(3,VV[6],(V75),VV[7]);
  304.     V63= make_cons(/* INLINE-ARGS */V78,(V63));
  305.     vs_base=vs_top;
  306.     (void) (*Lnk77)();
  307.     vs_top=sup;
  308.     goto T104;}
  309. T114:;
  310.     {object V79;
  311.     V79= (*(LnkLI78))();
  312.     princ_str("\n    ",VV[5]);
  313.     (void)((*(LnkLI75))((V79)));
  314.     princ_str("= ",VV[5]);
  315.     (void)((*(LnkLI79))(caaddr((V68)),cadr(caddr((V68)))));
  316.     princ_char(59,VV[5]);
  317.     V80= (*(LnkLI73))((V79),(V69));
  318.     V63= make_cons(/* INLINE-ARGS */V80,(V63));
  319.     goto T104;}
  320. T111:;
  321.     V82= structure_ref(caaddr((V68)),VV[1],1);
  322.     {register object x= /* INLINE-ARGS */V82,V81= VV[8];
  323.     while(!endp(V81))
  324.     if(eql(x,V81->c.c_car)){
  325.     goto T142;
  326.     }else V81=V81->c.c_cdr;
  327.     goto T140;}
  328. T142:;
  329.     V83= structure_ref(caaddr((V68)),VV[1],1);
  330.     if(((V69))==(/* INLINE-ARGS */V83)){
  331.     goto T140;}
  332.     {object V84;
  333.     V84= (VFUN_NARGS=1,(*(LnkLI80))((V69)));
  334.     princ_str("\n    V",VV[5]);
  335.     (void)((*(LnkLI75))((V84)));
  336.     princ_str(" = ",VV[5]);
  337.     V85= make_cons(VV[1],caddr((V68)));
  338.     V86= (*(LnkLI73))(/* INLINE-ARGS */V85,(V69));
  339.     (void)((*(LnkLI75))(/* INLINE-ARGS */V86));
  340.     princ_char(59,VV[5]);
  341.     V87= list(2,VV[6],(V84));
  342.     V63= make_cons(/* INLINE-ARGS */V87,(V63));
  343.     goto T104;}
  344. T140:;
  345.     V88= make_cons(VV[1],caddr((V68)));
  346.     V89= (*(LnkLI73))(/* INLINE-ARGS */V88,(V69));
  347.     V63= make_cons(/* INLINE-ARGS */V89,(V63));
  348.     goto T104;
  349. T109:;
  350.     if((V70!= VV[81]))goto T153;
  351.     {object V90;
  352.     V90= caddr((V68));
  353.     if(((*(LnkLI82))((V90)))!=Cnil){
  354.     goto T158;}
  355.     goto T155;
  356. T158:;
  357.     V91= cadddr((V68));
  358.     V92= structure_ref(cadr((V68)),VV[0],2);
  359.     V64= (*(LnkLI83))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92);
  360.     if(((V64))!=Cnil){
  361.     goto T160;}
  362.     goto T155;
  363. T160:;
  364.     base[0]= (V64);
  365.     vs_top=(vs_base=base+0)+1;
  366.     (void) (*Lnk84)();
  367.     vs_top=sup;}
  368.     {register object V93;
  369.     V93= (*(LnkLI85))((V64),cadddr((V68)));
  370.     base[0]= small_fixnum(0);
  371.     base[1]= caddr((V64));
  372.     vs_top=(vs_base=base+0)+2;
  373.     Llogbitp();
  374.     vs_top=sup;
  375.     if((vs_base[0])==Cnil){
  376.     goto T168;}
  377.     if((symbol_value(VV[9]))==Cnil){
  378.     goto T166;}
  379. T168:;
  380.     {register object x= cadr((V64)),V94= VV[10];
  381.     while(!endp(V94))
  382.     if(eql(x,V94->c.c_car)){
  383.     goto T175;
  384.     }else V94=V94->c.c_cdr;
  385.     goto T167;}
  386. T175:;
  387.     if(((V69))==(cadr((V64)))){
  388.     goto T167;}
  389. T166:;
  390.     {object V95;
  391.     V95= (VFUN_NARGS=1,(*(LnkLI80))((V69)));
  392.     princ_str("\n    V",VV[5]);
  393.     (void)((*(LnkLI75))((V95)));
  394.     princ_str(" = ",VV[5]);
  395.     V96= (*(LnkLI73))((V93),(V69));
  396.     (void)((*(LnkLI75))(/* INLINE-ARGS */V96));
  397.     princ_char(59,VV[5]);
  398.     V97= list(2,VV[6],(V95));
  399.     V63= make_cons(/* INLINE-ARGS */V97,(V63));
  400.     goto T104;}
  401. T167:;
  402.     if(((*(LnkLI86))(cdr((V65)),cdr((V66))))!=Cnil){
  403.     goto T185;}
  404.     base[0]= small_fixnum(0);
  405.     base[1]= caddr((V64));
  406.     vs_top=(vs_base=base+0)+2;
  407.     Llogbitp();
  408.     vs_top=sup;
  409.     if((vs_base[0])==Cnil){
  410.     goto T189;}
  411.     if(((V62))==Cnil){
  412.     goto T185;}
  413.     {register object x= (V62),V98= VV[11];
  414.     while(!endp(V98))
  415.     if(x==(V98->c.c_car)){
  416.     goto T196;
  417.     }else V98=V98->c.c_cdr;
  418.     goto T185;}
  419. T196:;
  420. T189:;
  421.     base[0]= small_fixnum(4);
  422.     base[1]= caddr((V64));
  423.     vs_top=(vs_base=base+0)+2;
  424.     Llogbitp();
  425.     vs_top=sup;
  426.     if((vs_base[0])!=Cnil){
  427.     goto T185;}
  428.     base[0]= small_fixnum(1);
  429.     base[1]= caddr((V64));
  430.     vs_top=(vs_base=base+0)+2;
  431.     Llogbitp();
  432.     vs_top=sup;
  433.     if((vs_base[0])==Cnil){
  434.     goto T186;}
  435.     if((cdr((V65)))==Cnil){
  436.     goto T186;}
  437. T185:;
  438.     {object V99;
  439.     V99= Cnil;
  440.     if(!(((V69))==(Ct))){
  441.     goto T208;}
  442.     V99= (VFUN_NARGS=0,(*(LnkLI80))());
  443.     princ_str("\n    V",VV[5]);
  444.     (void)((*(LnkLI75))((V99)));
  445.     princ_str("= ",VV[5]);
  446.     base[0]= (V93);
  447.     vs_top=(vs_base=base+0)+1;
  448.     (void) (*Lnk87)();
  449.     vs_top=sup;
  450.     goto T206;
  451. T208:;
  452.     setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
  453.     V99= symbol_value(VV[4]);
  454.     princ_str("\n    {",VV[5]);
  455.     V100= (*(LnkLI76))((V69));
  456.     (void)((*(LnkLI75))(/* INLINE-ARGS */V100));
  457.     princ_char(86,VV[5]);
  458.     (void)((*(LnkLI75))((V99)));
  459.     princ_str("= ",VV[5]);
  460.     {object V101= (V69);
  461.     if((V101!= VV[44]))goto T227;
  462.     base[0]= (V93);
  463.     vs_top=(vs_base=base+0)+1;
  464.     (void) (*Lnk88)();
  465.     vs_top=sup;
  466.     goto T226;
  467. T227:;
  468.     if((V101!= VV[89]))goto T229;
  469.     base[0]= (V93);
  470.     base[1]= VV[7];
  471.     vs_top=(vs_base=base+0)+2;
  472.     (void) (*Lnk90)();
  473.     vs_top=sup;
  474.     goto T226;
  475. T229:;
  476.     if((V101!= VV[71]))goto T232;
  477.     base[0]= (V93);
  478.     vs_top=(vs_base=base+0)+1;
  479.     (void) (*Lnk91)();
  480.     vs_top=sup;
  481.     goto T226;
  482. T232:;
  483.     if((V101!= VV[45]))goto T234;
  484.     base[0]= (V93);
  485.     vs_top=(vs_base=base+0)+1;
  486.     (void) (*Lnk92)();
  487.     vs_top=sup;
  488.     goto T226;
  489. T234:;
  490.     if((V101!= VV[46]))goto T236;
  491.     base[0]= (V93);
  492.     vs_top=(vs_base=base+0)+1;
  493.     (void) (*Lnk93)();
  494.     vs_top=sup;
  495.     goto T226;
  496. T236:;
  497.     base[0]= (V93);
  498.     vs_top=(vs_base=base+0)+1;
  499.     (void) (*Lnk87)();
  500.     vs_top=sup;}
  501. T226:;
  502.     vs_base=vs_top;
  503.     (void) (*Lnk77)();
  504.     vs_top=sup;
  505. T206:;
  506.     princ_char(59,VV[5]);
  507.     V102= list(3,VV[6],(V99),VV[7]);
  508.     V63= make_cons(/* INLINE-ARGS */V102,(V63));
  509.     goto T104;}
  510. T186:;
  511.     V103= (*(LnkLI73))((V93),(V69));
  512.     V63= make_cons(/* INLINE-ARGS */V103,(V63));
  513.     goto T104;}
  514. T155:;
  515.     {object V104;
  516.     if((symbol_value(VV[9]))==Cnil){
  517.     goto T245;}
  518.     V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI80))()));
  519.     goto T243;
  520. T245:;
  521.     V104= list(2,VV[12],(*(LnkLI94))());
  522. T243:;
  523.     bds_bind(VV[13],(V104));
  524.     V105= (*(LnkLI95))((V68));
  525.     bds_unwind1;
  526.     V106= (*(LnkLI73))((V104),(V69));
  527.     V63= make_cons(/* INLINE-ARGS */V106,(V63));
  528.     goto T104;}
  529. T153:;
  530.     if((V70!= VV[96]))goto T249;
  531.     V107= (*(LnkLI97))(cdr((V68)),(V69));
  532.     V63= make_cons(/* INLINE-ARGS */V107,(V63));
  533.     goto T104;
  534. T249:;
  535.     if((V70!= VV[98]))goto T251;
  536.     {object V108;
  537.     object V109;
  538.     V108= caddr((V68));
  539.     V109= cadddr((V68));
  540.     base[0]= make_cons(VV[1],(V108));
  541.     bds_bind(VV[13],base[0]);
  542.     V110= (*(LnkLI95))((V109));
  543.     bds_unwind1;
  544.     if(!((car((V109)))==(VV[14]))){
  545.     goto T257;}
  546.     V111= (*(LnkLI73))(caddr((V109)),(V69));
  547.     V63= make_cons(/* INLINE-ARGS */V111,(V63));
  548.     goto T104;
  549. T257:;
  550.     V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));
  551.     V66= make_cons((V69),(V66));
  552.     goto T104;}
  553. T251:;
  554.     {object V112;
  555.     if((symbol_value(VV[9]))==Cnil){
  556.     goto T265;}
  557.     if(!(((V69))==(Ct))){
  558.     goto T268;}
  559.     V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI80))()));
  560.     goto T263;
  561. T268:;
  562.     setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
  563.     V113= make_cons((V69),symbol_value(VV[4]));
  564.     setq(VV[15],make_cons(/* INLINE-ARGS */V113,symbol_value(VV[15])));
  565.     {register object x= (V69),V115= symbol_value(VV[3]);
  566.     while(!endp(V115))
  567.     if(eql(x,V115->c.c_car)){
  568.     goto T276;
  569.     }else V115=V115->c.c_cdr;
  570.     goto T275;}
  571. T276:;
  572.     V114= (V69);
  573.     goto T273;
  574. T275:;
  575.     V114= VV[18];
  576. T273:;
  577.     V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));
  578.     V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);
  579.     goto T263;
  580. T265:;
  581.     V112= list(2,VV[12],(*(LnkLI94))());
  582. T263:;
  583.     bds_bind(VV[13],(V112));
  584.     (void)((*(LnkLI95))((V68)));
  585.     V117= (*(LnkLI73))((V112),(V69));
  586.     V63= make_cons(/* INLINE-ARGS */V117,(V63));
  587.     bds_unwind1;}}}
  588. T104:;
  589.     V65= cdr((V65));
  590.     V66= cdr((V66));
  591.     goto T99;}}}
  592.     }
  593. /*    local entry for function COERCE-LOC    */
  594.  
  595. static object LI7(V120,V121)
  596.  
  597. register object V120;object V121;
  598. {     VMB7 VMS7 VMV7
  599. TTL:;
  600.     {object V122= (V121);
  601.     if((V122!= VV[44]))goto T283;
  602.     {object V123 = list(2,VV[20],(V120));
  603.     VMR7(V123)}
  604. T283:;
  605.     if((V122!= VV[89]))goto T284;
  606.     {object V124 = list(2,VV[21],(V120));
  607.     VMR7(V124)}
  608. T284:;
  609.     if((V122!= VV[71]))goto T285;
  610.     {object V125 = list(2,VV[22],(V120));
  611.     VMR7(V125)}
  612. T285:;
  613.     if((V122!= VV[45]))goto T286;
  614.     {object V126 = list(2,VV[23],(V120));
  615.     VMR7(V126)}
  616. T286:;
  617.     if((V122!= VV[46]))goto T287;
  618.     {object V127 = list(2,VV[24],(V120));
  619.     VMR7(V127)}
  620. T287:;
  621.     {object V128 = (V120);
  622.     VMR7(V128)}}
  623. }
  624. /*    local entry for function GET-INLINE-LOC    */
  625.  
  626. static object LI8(V131,V132)
  627.  
  628. object V131;object V132;
  629. {     VMB8 VMS8 VMV8
  630. TTL:;
  631.     {object V133;
  632.     object V134;
  633.     V133= car(cdddr((V131)));
  634.     V134= Cnil;
  635.     V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133)));
  636.     if(!(type_of((V133))==t_string)){
  637.     goto T292;}
  638.     base[1]= elt((V133),0);
  639.     base[2]= VV[25];
  640.     vs_top=(vs_base=base+1)+2;
  641.     Lchar_eq();
  642.     vs_top=sup;
  643.     if((vs_base[0])==Cnil){
  644.     goto T292;}
  645.     {register int V135;
  646.     object V136;
  647.     V135= 1;
  648.     V136= Cnil;
  649.     {unsigned char V137;
  650.     V137= char_code(elt((V133),V135));
  651. T303:;
  652.     base[1]= code_char(V137);
  653.     base[2]= VV[26];
  654.     vs_top=(vs_base=base+1)+2;
  655.     Lchar_eq();
  656.     vs_top=sup;
  657.     if((vs_base[0])==Cnil){
  658.     goto T304;}
  659.     V135= (V135)+(1);
  660.     goto T300;
  661. T304:;
  662.     V138 = make_fixnum(((V137))-(48));
  663.     V136= make_cons(V138,(V136));
  664.     V135= (V135)+(1);
  665.     V137= char_code(elt((V133),V135));
  666.     goto T303;}
  667. T300:;
  668.     {object V139;
  669.     int V140;
  670.     register object V141;
  671.     V140= 0;
  672.     V139= (V134);
  673.     V141= Cnil;
  674. T320:;
  675.     if(!(endp((V139)))){
  676.     goto T321;}
  677.     V134= reverse((V141));
  678.     goto T292;
  679. T321:;
  680.     V143 = make_fixnum(V140);
  681.     {register object x= V143,V142= (V136);
  682.     while(!endp(V142))
  683.     if(eql(x,V142->c.c_car)){
  684.     goto T329;
  685.     }else V142=V142->c.c_cdr;
  686.     goto T328;}
  687. T329:;
  688.     {register object V144;
  689.     register object V145;
  690.     object V146;
  691.     V144= car((V139));
  692.     V145= (V144);
  693.     V146= Cnil;
  694.     if(!(type_of((V144))==t_cons)){
  695.     goto T333;}
  696.     {register object x= car((V144)),V147= VV[27];
  697.     while(!endp(V147))
  698.     if(eql(x,V147->c.c_car)){
  699.     goto T337;
  700.     }else V147=V147->c.c_cdr;
  701.     goto T333;}
  702. T337:;
  703.     V146= car((V144));
  704.     V145= cadr((V144));
  705. T333:;
  706.     if(!(type_of((V145))==t_cons)){
  707.     goto T342;}
  708.     {register object x= car((V145)),V148= VV[28];
  709.     while(!endp(V148))
  710.     if(eql(x,V148->c.c_car)){
  711.     goto T341;
  712.     }else V148=V148->c.c_cdr;}
  713.     {register object x= car((V145)),V149= VV[29];
  714.     while(!endp(V149))
  715.     if(eql(x,V149->c.c_car)){
  716.     goto T348;
  717.     }else V149=V149->c.c_cdr;
  718.     goto T342;}
  719. T348:;
  720.     base[2]= small_fixnum(0);
  721.     base[3]= cadr((V145));
  722.     vs_top=(vs_base=base+2)+2;
  723.     Llogbitp();
  724.     vs_top=sup;
  725.     if((vs_base[0])!=Cnil){
  726.     goto T341;}
  727.     base[2]= small_fixnum(1);
  728.     base[3]= cadr((V145));
  729.     vs_top=(vs_base=base+2)+2;
  730.     Llogbitp();
  731.     vs_top=sup;
  732.     if((vs_base[0])==Cnil){
  733.     goto T342;}
  734. T341:;
  735.     princ_str("\n    {",VV[5]);
  736.     vs_base=vs_top;
  737.     (void) (*Lnk77)();
  738.     vs_top=sup;
  739.     {register object V150;
  740.     setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
  741.     V150= symbol_value(VV[4]);
  742.     V151= list(2,VV[6],(V150));
  743.     V141= make_cons(/* INLINE-ARGS */V151,(V141));
  744.     {object V152= (V146);
  745.     if((V152!= Cnil))goto T364;
  746.     princ_str("object V",VV[5]);
  747.     (void)((*(LnkLI75))((V150)));
  748.     princ_str("= ",VV[5]);
  749.     base[2]= (V144);
  750.     vs_top=(vs_base=base+2)+1;
  751.     (void) (*Lnk87)();
  752.     vs_top=sup;
  753.     goto T359;
  754. T364:;
  755.     if((V152!= VV[20]))goto T370;
  756.     princ_str("int V",VV[5]);
  757.     (void)((*(LnkLI75))((V150)));
  758.     princ_str("= ",VV[5]);
  759.     base[2]= (V145);
  760.     vs_top=(vs_base=base+2)+1;
  761.     (void) (*Lnk88)();
  762.     vs_top=sup;
  763.     goto T359;
  764. T370:;
  765.     if((V152!= VV[21]))goto T376;
  766.     princ_str("GEN V",VV[5]);
  767.     (void)((*(LnkLI75))((V150)));
  768.     princ_str("= ",VV[5]);
  769.     base[2]= (V145);
  770.     base[3]= VV[30];
  771.     vs_top=(vs_base=base+2)+2;
  772.     (void) (*Lnk90)();
  773.     vs_top=sup;
  774.     goto T359;
  775. T376:;
  776.     if((V152!= VV[22]))goto T383;
  777.     princ_str("unsigned char V",VV[5]);
  778.     (void)((*(LnkLI75))((V150)));
  779.     princ_str("= ",VV[5]);
  780.     base[2]= (V145);
  781.     vs_top=(vs_base=base+2)+1;
  782.     (void) (*Lnk91)();
  783.     vs_top=sup;
  784.     goto T359;
  785. T383:;
  786.     if((V152!= VV[23]))goto T389;
  787.     princ_str("double V",VV[5]);
  788.     (void)((*(LnkLI75))((V150)));
  789.     princ_str("= ",VV[5]);
  790.     base[2]= (V145);
  791.     vs_top=(vs_base=base+2)+1;
  792.     (void) (*Lnk92)();
  793.     vs_top=sup;
  794.     goto T359;
  795. T389:;
  796.     if((V152!= VV[24]))goto T395;
  797.     princ_str("float V",VV[5]);
  798.     (void)((*(LnkLI75))((V150)));
  799.     princ_str("= ",VV[5]);
  800.     base[2]= (V145);
  801.     vs_top=(vs_base=base+2)+1;
  802.     (void) (*Lnk93)();
  803.     vs_top=sup;
  804.     goto T359;
  805. T395:;
  806.     (void)((*(LnkLI100))());}}
  807. T359:;
  808.     princ_char(59,VV[5]);
  809.     goto T326;
  810. T342:;
  811.     V141= make_cons((V144),(V141));
  812.     goto T326;}
  813. T328:;
  814.     V141= make_cons(car((V139)),(V141));
  815. T326:;
  816.     V139= cdr((V139));
  817.     V140= (V140)+1;
  818.     goto T320;}}
  819. T292:;
  820.     V153= (*(LnkLI101))(cadr((V131)));
  821.     {object V154 = list(4,/* INLINE-ARGS */V153,caddr((V131)),(V133),(V134));
  822.     VMR8(V154)}}
  823. }
  824. /*    local entry for function INLINE-TYPE    */
  825.  
  826. static object LI9(V156)
  827.  
  828. object V156;
  829. {     VMB9 VMS9 VMV9
  830. TTL:;{object V157;
  831.     {register object x= (V156),V159= symbol_value(VV[31]);
  832.     while(!endp(V159))
  833.     if(type_of(V159->c.c_car)==t_cons &&eql(x,V159->c.c_car->c.c_car)){
  834.     V158= (V159->c.c_car);
  835.     goto T410;
  836.     }else V159=V159->c.c_cdr;
  837.     V158= Cnil;}
  838. T410:;
  839.     V157= cdr(V158);
  840.     if(V157==Cnil)goto T408;
  841.     {object V160 = V157;
  842.     VMR9(V160)}
  843. T408:;}
  844.     {object V161 = VV[32];
  845.     VMR9(V161)}
  846. }
  847. /*    local entry for function GET-INLINE-INFO    */
  848.  
  849. static object LI10(V165,V166,V167)
  850.  
  851. object V165;register object V166;object V167;
  852. {     VMB10 VMS10 VMV10
  853. TTL:;
  854.     {register object V168;
  855.     base[0]=MMcons(Cnil,Cnil);
  856.     V168= Cnil;
  857.     if(((VFUN_NARGS=2,(*(LnkLI102))((V165),(V166))))!=Cnil){
  858.     goto T413;}
  859.     goto T412;
  860. T413:;
  861.     (void)((*(LnkLI103))((V165),(V167),(V166)));
  862. T412:;
  863.     {object V169;
  864.     object V170= (V166);
  865.     if(endp(V170)){
  866.     V166= Cnil;
  867.     goto T416;}
  868.     base[1]=V169=MMcons(Cnil,Cnil);
  869. T417:;
  870.     (V169->c.c_car)= structure_ref(cadr((V170->c.c_car)),VV[0],2);
  871.     if(endp(V170=MMcdr(V170))){
  872.     V166= base[1];
  873.     goto T416;}
  874.     V169=MMcdr(V169)=MMcons(Cnil,Cnil);
  875.     goto T417;}
  876. T416:;
  877.     if((symbol_value(VV[33]))==Cnil){
  878.     goto T423;}
  879.     (base[0]->c.c_car)= get((V165),VV[34],Cnil);
  880.     if(((base[0]->c.c_car))==Cnil){
  881.     goto T419;}
  882.     goto T421;
  883. T423:;
  884.     (base[0]->c.c_car)= get((V165),VV[35],Cnil);
  885.     if(((base[0]->c.c_car))==Cnil){
  886.     goto T419;}
  887. T421:;
  888.     {register object V172;
  889.     object V173;
  890.     V172= (base[0]->c.c_car);
  891.     V173= car((V172));
  892. T430:;
  893.     if(!(endp((V172)))){
  894.     goto T431;}
  895.     goto T419;
  896. T431:;
  897.     V168= (*(LnkLI104))((V173),(V166),(V167));
  898.     if(((V168))==Cnil){
  899.     goto T435;}
  900.     {object V174 = (V168);
  901.     VMR10(V174)}
  902. T435:;
  903.     V172= cdr((V172));
  904.     V173= car((V172));
  905.     goto T430;}
  906. T419:;
  907.     (base[0]->c.c_car)= get((V165),VV[36],Cnil);
  908.     if(((base[0]->c.c_car))==Cnil){
  909.     goto T444;}
  910.     {register object V175;
  911.     object V176;
  912.     V175= (base[0]->c.c_car);
  913.     V176= car((V175));
  914. T451:;
  915.     if(!(endp((V175)))){
  916.     goto T452;}
  917.     goto T444;
  918. T452:;
  919.     V168= (*(LnkLI104))((V176),(V166),(V167));
  920.     if(((V168))==Cnil){
  921.     goto T456;}
  922.     {object V177 = (V168);
  923.     VMR10(V177)}
  924. T456:;
  925.     V175= cdr((V175));
  926.     V176= car((V175));
  927.     goto T451;}
  928. T444:;
  929.     {register object V178;
  930.     object V179;
  931.     V178= symbol_value(VV[37]);
  932.     V179= car((V178));
  933. T469:;
  934.     if(!(endp((V178)))){
  935.     goto T470;}
  936.     goto T465;
  937. T470:;
  938.     if(!((car((V179)))==((V165)))){
  939.     goto T474;}
  940.     V168= (*(LnkLI104))(cdr((V179)),(V166),(V167));
  941.     if(((V168))==Cnil){
  942.     goto T474;}
  943.     {object V180 = (V168);
  944.     VMR10(V180)}
  945. T474:;
  946.     V178= cdr((V178));
  947.     V179= car((V178));
  948.     goto T469;}
  949. T465:;
  950.     (base[0]->c.c_car)= get((V165),VV[38],Cnil);
  951.     if(((base[0]->c.c_car))==Cnil){
  952.     goto T485;}
  953.     if(!(type_of((base[0]->c.c_car))==t_cons)){
  954.     goto T492;}
  955.     if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){
  956.     goto T492;}
  957.     {object V181;
  958.     V182 = make_fixnum(length((V166)));
  959.     V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil);
  960.     (base[0]->c.c_car)= cdr((base[0]->c.c_car));
  961.     if(((V181))==Cnil){
  962.     goto T485;}
  963.     goto T490;}
  964. T492:;
  965. T490:;
  966.     base[1]= make_fixnum(length((V166)));
  967.     base[2]= VV[39];
  968.     base[3]= Ct;
  969.     vs_top=(vs_base=base+1)+3;
  970.     Lmake_list();
  971.     vs_top=sup;
  972.     V183= vs_base[0];
  973.     V184= 
  974.     make_cclosure_new(LC27,Cnil,base[0],Cdata);
  975.     {object V185 = list(4,V183,Ct,small_fixnum(3),V184);
  976.     VMR10(V185)}
  977. T485:;
  978.     {object V186 = Cnil;
  979.     VMR10(V186)}}
  980. }
  981. /*    local entry for function INLINE-TYPE-MATCHES    */
  982.  
  983. static object LI11(V190,V191,V192)
  984.  
  985. register object V190;object V191;object V192;
  986. {     VMB11 VMS11 VMV11
  987. TTL:;
  988.     {register object V193;
  989.     V193= Cnil;
  990.     if(type_of(caddr((V190)))==t_fixnum){
  991.     goto T505;}
  992.     base[0]= (V190);
  993.     vs_top=(vs_base=base+0)+1;
  994.     (void) (*Lnk105)();
  995.     vs_top=sup;
  996. T505:;
  997.     {register object V194;
  998.     V194= car((V190));
  999.     {register object V195;
  1000.     register object V196;
  1001.     V195= (V191);
  1002.     V196= car((V195));
  1003. T517:;
  1004.     if(!(endp((V195)))){
  1005.     goto T518;}
  1006.     if(!(equal((V194),VV[40]))){
  1007.     goto T521;}
  1008.     goto T512;
  1009. T521:;
  1010.     if(!(endp((V194)))){
  1011.     goto T510;}
  1012.     goto T512;
  1013. T518:;
  1014.     if(!(endp((V194)))){
  1015.     goto T524;}
  1016.     goto T510;
  1017. T524:;
  1018.     if(!(equal((V194),VV[41]))){
  1019.     goto T527;}
  1020.     V194= VV[42];
  1021. T527:;
  1022.     if(!((car((V194)))==(VV[43]))){
  1023.     goto T533;}
  1024.     if(((*(LnkLI106))(VV[44],(V196)))==Cnil){
  1025.     goto T536;}
  1026.     V193= make_cons(VV[44],(V193));
  1027.     goto T531;
  1028. T536:;
  1029.     if(((*(LnkLI106))(VV[45],(V196)))==Cnil){
  1030.     goto T540;}
  1031.     V193= make_cons(VV[45],(V193));
  1032.     goto T531;
  1033. T540:;
  1034.     if(((*(LnkLI106))(VV[46],(V196)))==Cnil){
  1035.     goto T544;}
  1036.     V193= make_cons(VV[46],(V193));
  1037.     goto T531;
  1038. T544:;
  1039.     goto T510;
  1040. T533:;
  1041.     if(((*(LnkLI106))(car((V194)),(V196)))==Cnil){
  1042.     goto T548;}
  1043.     V193= make_cons(car((V194)),(V193));
  1044.     goto T531;
  1045. T548:;
  1046.     goto T510;
  1047. T531:;
  1048.     {register object V197;
  1049.     V197= car((V194));
  1050.     V194= cdr((V194));}
  1051.     V195= cdr((V195));
  1052.     V196= car((V195));
  1053.     goto T517;}}
  1054. T512:;
  1055.     if(((*(LnkLI106))(cadr((V190)),(V192)))==Cnil){
  1056.     goto T510;}
  1057.     V198= reverse((V193));
  1058.     {object V199 = make_cons(/* INLINE-ARGS */V198,cdr((V190)));
  1059.     VMR11(V199)}
  1060. T510:;
  1061.     {object V200 = Cnil;
  1062.     VMR11(V200)}}
  1063. }
  1064. /*    local entry for function NEED-TO-PROTECT    */
  1065.  
  1066. static object LI12(V203,V204)
  1067.  
  1068. object V203;object V204;
  1069. {     VMB12 VMS12 VMV12
  1070. TTL:;
  1071.     {register object V205;
  1072.     V205= Cnil;
  1073.     {register object V206;
  1074.     register object V207;
  1075.     V206= (V203);
  1076.     V207= (V204);
  1077. T563:;
  1078.     if(!(endp((V206)))){
  1079.     goto T564;}
  1080.     {object V208 = Cnil;
  1081.     VMR12(V208)}
  1082. T564:;
  1083.     {register object V209;
  1084.     V209= car((V206));
  1085.     {object V210= car((V209));
  1086.     if((V210!= VV[14]))goto T570;
  1087.     goto T568;
  1088. T570:;
  1089.     if((V210!= VV[1]))goto T571;
  1090.     if(((*(LnkLI74))(caaddr((V209)),cdr((V206))))!=Cnil){
  1091.     goto T572;}
  1092.     V212= structure_ref(caaddr((V209)),VV[1],1);
  1093.     {register object x= /* INLINE-ARGS */V212,V211= VV[47];
  1094.     while(!endp(V211))
  1095.     if(eql(x,V211->c.c_car)){
  1096.     goto T576;
  1097.     }else V211=V211->c.c_cdr;
  1098.     goto T568;}
  1099. T576:;
  1100.     V213= car((V207));
  1101.     V214= structure_ref(caaddr((V209)),VV[1],1);
  1102.     if((/* INLINE-ARGS */V213)==(/* INLINE-ARGS */V214)){
  1103.     goto T568;}
  1104. T572:;
  1105.     {object V215 = Ct;
  1106.     VMR12(V215)}
  1107. T571:;
  1108.     if((V210!= VV[81]))goto T578;
  1109.     {register object V216;
  1110.     V216= caddr((V209));
  1111.     if(((*(LnkLI82))((V216)))==Cnil){
  1112.     goto T580;}
  1113.     V217= cadddr((V209));
  1114.     V218= structure_ref(cadr((V209)),VV[0],2);
  1115.     V205= (*(LnkLI83))((V216),/* INLINE-ARGS */V217,/* INLINE-ARGS */V218);
  1116.     if(((V205))==Cnil){
  1117.     goto T580;}
  1118.     base[0]= small_fixnum(0);
  1119.     base[1]= caddr((V205));
  1120.     vs_top=(vs_base=base+0)+2;
  1121.     Llogbitp();
  1122.     vs_top=sup;
  1123.     if((vs_base[0])!=Cnil){
  1124.     goto T580;}
  1125.     base[0]= small_fixnum(1);
  1126.     base[1]= caddr((V205));
  1127.     vs_top=(vs_base=base+0)+2;
  1128.     Llogbitp();
  1129.     vs_top=sup;
  1130.     if((vs_base[0])!=Cnil){
  1131.     goto T580;}
  1132.     base[0]= small_fixnum(4);
  1133.     base[1]= caddr((V205));
  1134.     vs_top=(vs_base=base+0)+2;
  1135.     Llogbitp();
  1136.     vs_top=sup;
  1137.     if((vs_base[0])!=Cnil){
  1138.     goto T580;}
  1139.     {register object x= cadr((V205)),V219= VV[48];
  1140.     while(!endp(V219))
  1141.     if(eql(x,V219->c.c_car)){
  1142.     goto T600;
  1143.     }else V219=V219->c.c_cdr;
  1144.     goto T598;}
  1145. T600:;
  1146.     if(!((car((V207)))==(cadr((V205))))){
  1147.     goto T580;}
  1148. T598:;
  1149.     if(((*(LnkLI86))(cadddr((V209)),car((V205))))==Cnil){
  1150.     goto T568;}
  1151. T580:;
  1152.     {object V220 = Ct;
  1153.     VMR12(V220)}}
  1154. T578:;
  1155.     if((V210!= VV[96]))goto T603;
  1156.     V221= make_cons(caddr((V209)),Cnil);
  1157.     if(((*(LnkLI86))(/* INLINE-ARGS */V221,VV[49]))==Cnil){
  1158.     goto T568;}
  1159.     {object V222 = Ct;
  1160.     VMR12(V222)}
  1161. T603:;
  1162.     {object V223 = Ct;
  1163.     VMR12(V223)}}}
  1164. T568:;
  1165.     V206= cdr((V206));
  1166.     V207= cdr((V207));
  1167.     goto T563;}}
  1168. }
  1169. /*    local entry for function WT-C-PUSH    */
  1170.  
  1171. static object LI13()
  1172.  
  1173. {     VMB13 VMS13 VMV13
  1174. TTL:;
  1175.     if((symbol_value(VV[9]))==Cnil){
  1176.     goto T611;}
  1177.     vs_base=vs_top;
  1178.     (void) (*Lnk77)();
  1179.     vs_top=sup;
  1180.     {object V224;
  1181.     setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
  1182.     V224= symbol_value(VV[4]);
  1183.     princ_char(123,VV[5]);
  1184.     (void)((*(LnkLI75))(symbol_value(VV[50])));
  1185.     princ_str("object V",VV[5]);
  1186.     (void)((*(LnkLI75))((V224)));
  1187.     princ_char(59,VV[5]);
  1188.     {object V225 = list(2,VV[6],(V224));
  1189.     VMR13(V225)}}
  1190. T611:;
  1191.     {object V226 = list(2,VV[12],(*(LnkLI94))());
  1192.     VMR13(V226)}
  1193. }
  1194. /*    local entry for function CLOSE-INLINE-BLOCKS    */
  1195.  
  1196. static object LI14()
  1197.  
  1198. {     VMB14 VMS14 VMV14
  1199. TTL:;
  1200.     {register object V227;
  1201.     V227= symbol_value(VV[2]);
  1202.     if(!(type_of((V227))==t_cons)){
  1203.     goto T623;}
  1204.     if(!(eql(cdr((V227)),VV[51]))){
  1205.     goto T626;}
  1206.     princ_str("restore_avma;",VV[5]);
  1207. T626:;
  1208.     V227= car((V227));
  1209. T623:;
  1210.     {register int V228;
  1211.     register int V229;
  1212.     V228= fix((V227));
  1213.     V229= 0;
  1214. T634:;
  1215.     if(!((V229)>=(V228))){
  1216.     goto T635;}
  1217.     {object V230 = Cnil;
  1218.     VMR14(V230)}
  1219. T635:;
  1220.     princ_char(125,VV[5]);
  1221.     V229= (V229)+1;
  1222.     goto T634;}}
  1223. }
  1224. /*    function definition for WT-INLINE-LOC    */
  1225.  
  1226. static L15()
  1227. {register object *base=vs_base;
  1228.     register object *sup=base+VM15; VC15
  1229.     vs_reserve(VM15);
  1230.     {register object V231;
  1231.     object V232;
  1232.     check_arg(2);
  1233.     V231=(base[0]);
  1234.     V232=(base[1]);
  1235.     vs_top=sup;
  1236. TTL:;
  1237.     {register int V233;
  1238.     int V234;
  1239.     V233= 0;
  1240.     V234= -1;
  1241.     if(!(type_of((V231))==t_string)){
  1242.     goto T647;}
  1243.     base[2]= elt((V231),0);
  1244.     base[3]= VV[25];
  1245.     vs_top=(vs_base=base+2)+2;
  1246.     Lchar_eq();
  1247.     vs_top=sup;
  1248.     if((vs_base[0])==Cnil){
  1249.     goto T649;}
  1250.     V233= 1;
  1251. T657:;
  1252.     base[2]= elt((V231),V233);
  1253.     base[3]= VV[26];
  1254.     vs_top=(vs_base=base+2)+2;
  1255.     Lchar_eq();
  1256.     vs_top=sup;
  1257.     if((vs_base[0])==Cnil){
  1258.     goto T658;}
  1259.     V233= (V233)+(1);
  1260.     goto T649;
  1261. T658:;
  1262.     V233= (V233)+(1);
  1263.     goto T657;
  1264. T649:;
  1265.     {int V235;
  1266.     V235= length((V231));
  1267. T671:;
  1268.     if(!((V233)>=(V235))){
  1269.     goto T672;}
  1270.     base[2]= Cnil;
  1271.     vs_top=(vs_base=base+2)+1;
  1272.     return;
  1273. T672:;
  1274.     {unsigned char V236;
  1275.     V236= char_code(elt((V231),V233));
  1276.     base[2]= code_char(V236);
  1277.     base[3]= VV[52];
  1278.     vs_top=(vs_base=base+2)+2;
  1279.     Lchar_eq();
  1280.     vs_top=sup;
  1281.     if((vs_base[0])==Cnil){
  1282.     goto T679;}
  1283.     {register object V237;
  1284.     register object V238;
  1285.     V237= elt((V231),(V233)+1);
  1286.     V238= small_fixnum(0);
  1287.     if(!(eql((V237),VV[53]))){
  1288.     goto T686;}
  1289.     if(!((V234)>=(0))){
  1290.     goto T688;}
  1291.     V239 = make_fixnum(V234);
  1292.     V240= one_plus(V239);
  1293.     V241 = make_fixnum(length((V232)));
  1294.     if(!(number_compare(/* INLINE-ARGS */V240,V241)<0)){
  1295.     goto T688;}
  1296.     princ_char(44,VV[5]);
  1297. T688:;
  1298.     {register object V242;
  1299.     V243 = make_fixnum(V234);
  1300.     V244= one_plus(V243);
  1301.     V242= nthcdr(fixint(/* INLINE-ARGS */V244),(V232));
  1302. T696:;
  1303.     if(((V242))!=Cnil){
  1304.     goto T697;}
  1305.     goto T683;
  1306. T697:;
  1307.     base[2]= car((V242));
  1308.     vs_top=(vs_base=base+2)+1;
  1309.     (void) (*Lnk87)();
  1310.     vs_top=sup;
  1311.     if((cdr((V242)))==Cnil){
  1312.     goto T703;}
  1313.     princ_char(44,VV[5]);
  1314. T703:;
  1315.     V242= cdr((V242));
  1316.     goto T696;}
  1317. T686:;
  1318.     base[2]= (V237);
  1319.     base[3]= small_fixnum(10);
  1320.     vs_top=(vs_base=base+2)+2;
  1321.     Ldigit_char_p();
  1322.     vs_top=sup;
  1323.     if((vs_base[0])==Cnil){
  1324.     goto T683;}
  1325.     { save_avma;
  1326.     base[2]= (V237);
  1327.     vs_top=(vs_base=base+2)+1;
  1328.     Lchar_code();
  1329.     vs_top=sup;
  1330.     V245= vs_base[0];
  1331.     V246 = stoi((48));
  1332.     V238= make_integer(subii(otoi(V245),V246));restore_avma;}
  1333.     { save_avma;
  1334.     V247 = stoi(length((V231)));
  1335.     V248 = stoi(V233);
  1336.     {GEN V249= addii(V248,stoi(2));
  1337.     if(!(cmpii(V247,/* INLINE-ARGS */V249)>0)){
  1338.     restore_avma; 
  1339.     goto T718;}
  1340.     restore_avma; restore_avma;}}
  1341.     { save_avma;
  1342.     V250 = stoi(V233);
  1343.     V251= make_integer(addii(V250,stoi(2)));
  1344.     V237= elt((V231),fixint(/* INLINE-ARGS */V251));restore_avma;}
  1345.     if(((V237))==Cnil){
  1346.     goto T718;}
  1347.     base[2]= (V237);
  1348.     vs_top=(vs_base=base+2)+1;
  1349.     Ldigit_char_p();
  1350.     vs_top=sup;
  1351.     if((vs_base[0])==Cnil){
  1352.     goto T718;}
  1353.     V252= number_times((V238),small_fixnum(10));
  1354.     { save_avma;
  1355.     base[2]= (V237);
  1356.     vs_top=(vs_base=base+2)+1;
  1357.     Lchar_code();
  1358.     vs_top=sup;
  1359.     V253= vs_base[0];
  1360.     V254 = stoi((48));
  1361.     V255= make_integer(subii(otoi(V253),V254));
  1362.     V238= number_plus(/* INLINE-ARGS */V252,/* INLINE-ARGS */V255);restore_avma;}
  1363.     V233= (V233)+(1);
  1364. T718:;
  1365.     V256 = make_fixnum(V234);
  1366.     if(!(number_compare((V238),V256)>=0)){
  1367.     goto T732;}
  1368.     V234= fix((V238));
  1369. T732:;
  1370.     base[2]= nth(fixint((V238)),(V232));
  1371.     vs_top=(vs_base=base+2)+1;
  1372.     (void) (*Lnk87)();
  1373.     vs_top=sup;}
  1374. T683:;
  1375.     V233= (V233)+(2);
  1376.     goto T676;
  1377. T679:;
  1378.     (void)(princ(code_char(V236),symbol_value(VV[5])));
  1379.     V233= (V233)+(1);}
  1380. T676:;
  1381.     goto T671;}
  1382. T647:;
  1383.     base[2]= (V231);
  1384.     {object V257;
  1385.     V257= (V232);
  1386.      vs_top=base+3;
  1387.      while(!endp(V257))
  1388.      {vs_push(car(V257));V257=cdr(V257);}
  1389.     vs_base=base+3;}
  1390.     super_funcall_no_event(base[2]);
  1391.     return;}
  1392.     }
  1393. }
  1394. /*    function definition for WT-INLINE    */
  1395.  
  1396. static L16()
  1397. {register object *base=vs_base;
  1398.     register object *sup=base+VM16; VC16
  1399.     vs_reserve(VM16);
  1400.     {object V258;
  1401.     object V259;
  1402.     object V260;
  1403.     check_arg(3);
  1404.     V258=(base[0]);
  1405.     V259=(base[1]);
  1406.     V260=(base[2]);
  1407.     vs_top=sup;
  1408. TTL:;
  1409.     base[3]= (V259);
  1410.     base[4]= (V260);
  1411.     vs_top=(vs_base=base+3)+2;
  1412.     (void) (*Lnk107)();
  1413.     return;
  1414.     }
  1415. }
  1416. /*    local entry for function WT-INLINE-COND    */
  1417.  
  1418. static object LI17(V264,V265,V266)
  1419.  
  1420. object V264;object V265;object V266;
  1421. {     VMB17 VMS17 VMV17
  1422. TTL:;
  1423.     princ_char(40,VV[5]);
  1424.     base[0]= (V265);
  1425.     base[1]= (V266);
  1426.     vs_top=(vs_base=base+0)+2;
  1427.     (void) (*Lnk107)();
  1428.     vs_top=sup;
  1429.     princ_str("?Ct:Cnil)",VV[5]);
  1430.     {object V267 = Cnil;
  1431.     VMR17(V267)}
  1432. }
  1433. /*    local entry for function WT-INLINE-FIXNUM    */
  1434.  
  1435. static object LI18(V271,V272,V273)
  1436.  
  1437. object V271;object V272;object V273;
  1438. {     VMB18 VMS18 VMV18
  1439. TTL:;
  1440.     if(!(number_compare(small_fixnum(0),symbol_value(VV[55]))==0)){
  1441.     goto T752;}
  1442.     princ_str("CMP",VV[5]);
  1443. T752:;
  1444.     princ_str("make_fixnum(",VV[5]);
  1445.     base[0]= (V272);
  1446.     base[1]= (V273);
  1447.     vs_top=(vs_base=base+0)+2;
  1448.     (void) (*Lnk107)();
  1449.     vs_top=sup;
  1450.     princ_char(41,VV[5]);
  1451.     {object V274 = Cnil;
  1452.     VMR18(V274)}
  1453. }
  1454. /*    function definition for WT-INLINE-INTEGER    */
  1455.  
  1456. static L19()
  1457. {register object *base=vs_base;
  1458.     register object *sup=base+VM19; VC19
  1459.     vs_reserve(VM19);
  1460.     {object V275;
  1461.     object V276;
  1462.     object V277;
  1463.     check_arg(3);
  1464.     V275=(base[0]);
  1465.     V276=(base[1]);
  1466.     V277=(base[2]);
  1467.     vs_top=sup;
  1468. TTL:;
  1469.     princ_str("make_integer(",VV[5]);
  1470.     base[3]= (V276);
  1471.     base[4]= (V277);
  1472.     vs_top=(vs_base=base+3)+2;
  1473.     (void) (*Lnk107)();
  1474.     vs_top=sup;
  1475.     princ_char(41,VV[5]);
  1476.     base[3]= Cnil;
  1477.     vs_top=(vs_base=base+3)+1;
  1478.     return;
  1479.     }
  1480. }
  1481. /*    local entry for function WT-INLINE-CHARACTER    */
  1482.  
  1483. static object LI20(V281,V282,V283)
  1484.  
  1485. object V281;object V282;object V283;
  1486. {     VMB20 VMS20 VMV20
  1487. TTL:;
  1488.     princ_str("code_char(",VV[5]);
  1489.     base[0]= (V282);
  1490.     base[1]= (V283);
  1491.     vs_top=(vs_base=base+0)+2;
  1492.     (void) (*Lnk107)();
  1493.     vs_top=sup;
  1494.     princ_char(41,VV[5]);
  1495.     {object V284 = Cnil;
  1496.     VMR20(V284)}
  1497. }
  1498. /*    local entry for function WT-INLINE-LONG-FLOAT    */
  1499.  
  1500. static object LI21(V288,V289,V290)
  1501.  
  1502. object V288;object V289;object V290;
  1503. {     VMB21 VMS21 VMV21
  1504. TTL:;
  1505.     princ_str("make_longfloat(",VV[5]);
  1506.     base[0]= (V289);
  1507.     base[1]= (V290);
  1508.     vs_top=(vs_base=base+0)+2;
  1509.     (void) (*Lnk107)();
  1510.     vs_top=sup;
  1511.     princ_char(41,VV[5]);
  1512.     {object V291 = Cnil;
  1513.     VMR21(V291)}
  1514. }
  1515. /*    local entry for function WT-INLINE-SHORT-FLOAT    */
  1516.  
  1517. static object LI22(V295,V296,V297)
  1518.  
  1519. object V295;object V296;object V297;
  1520. {     VMB22 VMS22 VMV22
  1521. TTL:;
  1522.     princ_str("make_shortfloat(",VV[5]);
  1523.     base[0]= (V296);
  1524.     base[1]= (V297);
  1525.     vs_top=(vs_base=base+0)+2;
  1526.     (void) (*Lnk107)();
  1527.     vs_top=sup;
  1528.     princ_char(41,VV[5]);
  1529.     {object V298 = Cnil;
  1530.     VMR22(V298)}
  1531. }
  1532. /*    local entry for function ARGS-CAUSE-SIDE-EFFECT    */
  1533.  
  1534. static object LI23(V300)
  1535.  
  1536. object V300;
  1537. {     VMB23 VMS23 VMV23
  1538. TTL:;
  1539.     {register object V301;
  1540.     V301= Cnil;
  1541.     {register object V302;
  1542.     register object V303;
  1543.     V302= (V300);
  1544.     V303= car((V302));
  1545. T790:;
  1546.     if(!(endp((V302)))){
  1547.     goto T791;}
  1548.     {object V304 = Cnil;
  1549.     VMR23(V304)}
  1550. T791:;
  1551.     {object V305= car((V303));
  1552.     if((V305!= VV[14])
  1553.     && (V305!= VV[1])
  1554.     && (V305!= VV[96]))goto T796;
  1555.     goto T795;
  1556. T796:;
  1557.     if((V305!= VV[81]))goto T797;
  1558.     {register object V306;
  1559.     V306= caddr((V303));
  1560.     if(((*(LnkLI82))((V306)))==Cnil){
  1561.     goto T799;}
  1562.     V307= cadddr((V303));
  1563.     V308= structure_ref(cadr((V303)),VV[0],2);
  1564.     V301= (*(LnkLI83))((V306),/* INLINE-ARGS */V307,/* INLINE-ARGS */V308);
  1565.     if(((V301))==Cnil){
  1566.     goto T799;}
  1567.     base[1]= (V301);
  1568.     vs_top=(vs_base=base+1)+1;
  1569.     (void) (*Lnk105)();
  1570.     vs_top=sup;
  1571.     base[1]= small_fixnum(1);
  1572.     base[2]= caddr((V301));
  1573.     vs_top=(vs_base=base+1)+2;
  1574.     Llogbitp();
  1575.     vs_top=sup;
  1576.     V309= vs_base[0];
  1577.     if((V309)==Cnil){
  1578.     goto T795;}
  1579. T799:;
  1580.     {object V310 = Ct;
  1581.     VMR23(V310)}}
  1582. T797:;
  1583.     {object V311 = Ct;
  1584.     VMR23(V311)}}
  1585. T795:;
  1586.     V302= cdr((V302));
  1587.     V303= car((V302));
  1588.     goto T790;}}
  1589. }
  1590. /*    local entry for function LIST-INLINE    */
  1591.  
  1592. static object LI24(va_alist)
  1593.     va_dcl 
  1594. {    
  1595.     va_list ap;
  1596.     int narg = VFUN_NARGS; VMB24 VMS24 VMV24
  1597.     {object V312;
  1598.     narg= narg - 0;
  1599.     va_start(ap);
  1600.     V313 = list_vector(narg,ap);
  1601.     V312= V313;
  1602.     {object V314;
  1603.     object V315;
  1604.     V314= Cnil;
  1605.     V315= make_fixnum(length((V312)));
  1606.     if(type_of(symbol_value(VV[13]))==t_cons){
  1607.     goto T823;}
  1608.     V314= Cnil;
  1609.     goto T822;
  1610. T823:;
  1611.     if((car(symbol_value(VV[13])))==(VV[1])){
  1612.     goto T825;}
  1613.     V314= Cnil;
  1614.     goto T822;
  1615. T825:;
  1616.     V316= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);
  1617.     V314= ((/* INLINE-ARGS */V316)==(VV[56])?Ct:Cnil);
  1618. T822:;
  1619.     if(((V314))==Cnil){
  1620.     goto T820;}
  1621.     princ_str("(ALLOCA_CONS(",VV[5]);
  1622.     (void)((*(LnkLI75))((V315)));
  1623.     princ_str("),ON_STACK_LIST(",VV[5]);
  1624.     (void)((*(LnkLI75))((V315)));
  1625.     goto T818;
  1626. T820:;
  1627.     princ_str("list(",VV[5]);
  1628.     V317 = make_fixnum(length((V312)));
  1629.     (void)((*(LnkLI75))(V317));
  1630. T818:;
  1631.     {register object V318;
  1632.     register object V319;
  1633.     V318= (V312);
  1634.     V319= car((V318));
  1635. T837:;
  1636.     if(!(endp((V318)))){
  1637.     goto T838;}
  1638.     goto T833;
  1639. T838:;
  1640.     (void)((*(LnkLI75))(VV[57]));
  1641.     (void)((*(LnkLI75))((V319)));
  1642.     V318= cdr((V318));
  1643.     V319= car((V318));
  1644.     goto T837;}
  1645. T833:;
  1646.     (void)((*(LnkLI75))(VV[58]));
  1647.     if(((V314))==Cnil){
  1648.     goto T853;}
  1649.     (void)((*(LnkLI75))(VV[58]));
  1650.     {object V320 = Cnil;
  1651.     VMR24(V320)}
  1652. T853:;
  1653.     {object V321 = Cnil;
  1654.     VMR24(V321)}}}
  1655.     }
  1656. /*    local entry for function LIST*-INLINE    */
  1657.  
  1658. static object LI25(va_alist)
  1659.     va_dcl 
  1660. {    
  1661.     va_list ap;
  1662.     int narg = VFUN_NARGS; VMB25 VMS25 VMV25
  1663.     {register object V322;
  1664.     narg= narg - 0;
  1665.     va_start(ap);
  1666.     V323 = list_vector(narg,ap);
  1667.     V322= V323;switch(length((V322))){
  1668.     case 1:
  1669. T857:;
  1670.     (void)((*(LnkLI75))(car((V322))));
  1671.     {object V324 = Cnil;
  1672.     VMR25(V324)}
  1673.     case 2:
  1674. T858:;
  1675.     princ_str("make_cons(",VV[5]);
  1676.     (void)((*(LnkLI75))(car((V322))));
  1677.     princ_char(44,VV[5]);
  1678.     (void)((*(LnkLI75))(cadr((V322))));
  1679.     princ_char(41,VV[5]);
  1680.     {object V325 = Cnil;
  1681.     VMR25(V325)}
  1682.     default:
  1683. T859:;
  1684.     princ_str("listA(",VV[5]);
  1685.     V326 = make_fixnum(length((V322)));
  1686.     (void)((*(LnkLI75))(V326));
  1687.     {register object V327;
  1688.     register object V328;
  1689.     V327= (V322);
  1690.     V328= car((V327));
  1691. T874:;
  1692.     if(!(endp((V327)))){
  1693.     goto T875;}
  1694.     goto T870;
  1695. T875:;
  1696.     (void)((*(LnkLI75))(VV[57]));
  1697.     (void)((*(LnkLI75))((V328)));
  1698.     V327= cdr((V327));
  1699.     V328= car((V327));
  1700.     goto T874;}
  1701. T870:;
  1702.     (void)((*(LnkLI75))(VV[58]));
  1703.     {object V329 = Cnil;
  1704.     VMR25(V329)}
  1705.     {object V330 = Cnil;
  1706.     VMR25(V330)}}
  1707.     {object V331 = Cnil;
  1708.     VMR25(V331)}}
  1709.     }
  1710. /*    local entry for function DEFSYSFUN    */
  1711.  
  1712. static object LI26(V338,V339,V340,V341,V342,V343)
  1713.  
  1714. register object V338;object V339;object V340;register object V341;object V342;object V343;
  1715. {     VMB26 VMS26 VMV26
  1716. TTL:;
  1717.     if(((V339))==Cnil){
  1718.     goto T888;}
  1719.     (void)(putprop((V338),(V339),VV[59]));
  1720. T888:;
  1721.     if(((V340))==Cnil){
  1722.     goto T891;}
  1723.     {object V345;
  1724.     object V346= (V340);
  1725.     if(endp(V346)){
  1726.     V344= Cnil;
  1727.     goto T894;}
  1728.     base[0]=V345=MMcons(Cnil,Cnil);
  1729. T895:;
  1730.     if(!(((V346->c.c_car))==(VV[60]))){
  1731.     goto T898;}
  1732.     (V345->c.c_car)= VV[60];
  1733.     goto T896;
  1734. T898:;
  1735.     (V345->c.c_car)= (*(LnkLI108))((V346->c.c_car));
  1736. T896:;
  1737.     if(endp(V346=MMcdr(V346))){
  1738.     V344= base[0];
  1739.     goto T894;}
  1740.     V345=MMcdr(V345)=MMcons(Cnil,Cnil);
  1741.     goto T895;}
  1742. T894:;
  1743.     (void)(putprop((V338),V344,VV[61]));
  1744. T891:;
  1745.     if(((V341))==Cnil){
  1746.     goto T900;}
  1747.     {register object V348;
  1748.     if(!(type_of((V341))!=t_cons)){
  1749.     goto T906;}
  1750.     V349= make_cons((V341),Cnil);
  1751.     goto T904;
  1752. T906:;
  1753.     V349= (V341);
  1754. T904:;
  1755.     V348= (*(LnkLI109))(V349);
  1756.     if(!(type_of((V348))==t_cons)){
  1757.     goto T909;}
  1758.     goto T908;
  1759. T909:;
  1760.     V348= make_cons((V348),Cnil);
  1761. T908:;
  1762.     if((cdr((V348)))!=Cnil){
  1763.     goto T914;}
  1764.     V350= car((V348));
  1765.     goto T912;
  1766. T914:;
  1767.     V350= make_cons(VV[62],(V348));
  1768. T912:;
  1769.     (void)(putprop((V338),V350,VV[63]));}
  1770. T900:;
  1771.     if(((V342))==Cnil){
  1772.     goto T916;}
  1773.     (void)(putprop((V338),Ct,VV[64]));
  1774. T916:;
  1775.     if(((V343))==Cnil){
  1776.     goto T920;}
  1777.     {object V351 = putprop((V338),Ct,VV[65]);
  1778.     VMR26(V351)}
  1779. T920:;
  1780.     {object V352 = Cnil;
  1781.     VMR26(V352)}
  1782. }
  1783. /*    local function CLOSURE    */
  1784.  
  1785. static LC27(base0)
  1786. register object *base0;
  1787. {    register object *base=vs_base;
  1788.     register object *sup=base+VM27; VC27
  1789.     vs_reserve(VM27);
  1790.     {object V353;
  1791.     vs_top[0]=Cnil;
  1792.     {object *p=vs_top;
  1793.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1794.     V353=(base[0]);
  1795.     vs_top=sup;
  1796.     princ_str("(VFUN_NARGS=",VV[5]);
  1797.     V354 = make_fixnum(length((V353)));
  1798.     (void)((*(LnkLI75))(V354));
  1799.     princ_char(44,VV[5]);
  1800.     base[1]= (base0[0]->c.c_car);
  1801.     base[2]= (V353);
  1802.     vs_top=(vs_base=base+1)+2;
  1803.     (void) (*Lnk107)();
  1804.     vs_top=sup;
  1805.     princ_char(41,VV[5]);
  1806.     base[1]= Cnil;
  1807.     vs_top=(vs_base=base+1)+1;
  1808.     return;
  1809.     }
  1810. }
  1811. static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* FUNCTION-RETURN-TYPE */
  1812. static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* TYPE-FILTER */
  1813. static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* WT-INLINE-LOC */
  1814. static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* TYPE>= */
  1815. static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-OPT */
  1816. static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,3,ap);} /* INLINE-TYPE-MATCHES */
  1817. static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,3,ap);} /* ADD-FAST-LINK */
  1818. static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[102],&LnkLI102,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
  1819. static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,1,ap);} /* INLINE-TYPE */
  1820. static object  LnkTLI100(){return call_proc0(VV[100],&LnkLI100);} /* BABOON */
  1821. static object  LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],&LnkLI7,ap);} /* INLINE-ARGS */
  1822. static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* MAKE-VAR */
  1823. static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,2,ap);} /* COERCE-LOC-STRUCTURE-REF */
  1824. static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,1,ap);} /* C2EXPR* */
  1825. static object  LnkTLI94(){return call_proc0(VV[94],&LnkLI94);} /* VS-PUSH */
  1826. static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* WT-SHORT-FLOAT-LOC */
  1827. static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* WT-LONG-FLOAT-LOC */
  1828. static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* WT-CHARACTER-LOC */
  1829. static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-INTEGER-LOC */
  1830. static LnkT88(){ call_or_link(VV[88],&Lnk88);} /* WT-FIXNUM-LOC */
  1831. static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WT-LOC */
  1832. static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],&LnkLI86,2,ap);} /* NEED-TO-PROTECT */
  1833. static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],&LnkLI85,2,ap);} /* GET-INLINE-LOC */
  1834. static LnkT84(){ call_or_link(VV[84],&Lnk84);} /* SAVE-AVMA */
  1835. static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[83],&LnkLI83,3,ap);} /* GET-INLINE-INFO */
  1836. static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],&LnkLI82,1,ap);} /* INLINE-POSSIBLE */
  1837. static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[80],&LnkLI80,ap);} /* CS-PUSH */
  1838. static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,2,ap);} /* WT-VAR */
  1839. static object  LnkTLI78(){return call_proc0(VV[78],&LnkLI78);} /* WT-C-PUSH */
  1840. static LnkT77(){ call_or_link(VV[77],&Lnk77);} /* INC-INLINE-BLOCKS */
  1841. static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* REP-TYPE */
  1842. static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* WT1 */
  1843. static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,2,ap);} /* ARGS-INFO-CHANGED-VARS */
  1844. static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,2,ap);} /* COERCE-LOC */
  1845.