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 / cmplet.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  25.1 KB  |  1,062 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmplet.h"
  4. init_cmplet(){do_init(VV);}
  5. /*    local entry for function C1LET    */
  6.  
  7. static object LI1(V2)
  8.  
  9. object V2;
  10. {     VMB1 VMS1 VMV1
  11.     bds_check;
  12. TTL:;
  13.     {object V3;
  14.     object V4;
  15.     register object V5;
  16.     register object V6;
  17.     register object V7;
  18.     object V8;
  19.     object V9;
  20.     object V10;
  21.     object V11;
  22.     object V12;
  23.     V3= (VFUN_NARGS=0,(*(LnkLI39))());
  24.     V4= symbol_value(VV[0]);
  25.     V5= Cnil;
  26.     V6= Cnil;
  27.     V7= Cnil;
  28.     V8= Cnil;
  29.     V9= Cnil;
  30.     V10= Cnil;
  31.     V11= Cnil;
  32.     V12= Cnil;
  33.     bds_bind(VV[1],symbol_value(VV[1]));
  34.     if(!(endp((V2)))){
  35.     goto T11;}
  36.     (void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0)));
  37. T11:;
  38.     base[2]= cdr((V2));
  39.     base[3]= Cnil;
  40.     vs_top=(vs_base=base+2)+2;
  41.     (void) (*Lnk41)();
  42.     if(vs_base<vs_top){
  43.     V11= vs_base[0];
  44.     vs_base++;
  45.     }else{
  46.     V11= Cnil;}
  47.     if(vs_base<vs_top){
  48.     V8= vs_base[0];
  49.     vs_base++;
  50.     }else{
  51.     V8= Cnil;}
  52.     if(vs_base<vs_top){
  53.     V10= vs_base[0];
  54.     vs_base++;
  55.     }else{
  56.     V10= Cnil;}
  57.     if(vs_base<vs_top){
  58.     V9= vs_base[0];
  59.     vs_base++;
  60.     }else{
  61.     V9= Cnil;}
  62.     if(vs_base<vs_top){
  63.     V12= vs_base[0];
  64.     }else{
  65.     V12= Cnil;}
  66.     vs_top=sup;
  67.     (void)((*(LnkLI42))((V8)));
  68.     {register object V13;
  69.     register object V14;
  70.     V13= car((V2));
  71.     V14= car((V13));
  72. T23:;
  73.     if(!(endp((V13)))){
  74.     goto T24;}
  75.     goto T19;
  76. T24:;
  77.     if(!(type_of((V14))==t_symbol)){
  78.     goto T30;}
  79.     {object V15;
  80.     V15= (*(LnkLI43))((V14),(V8),(V9),(V10));
  81.     V7= make_cons((V14),(V7));
  82.     V6= make_cons((V15),(V6));
  83.     V16= structure_ref((V15),VV[3],5);
  84.     V17= (*(LnkLI44))(/* INLINE-ARGS */V16);
  85.     V5= make_cons(/* INLINE-ARGS */V17,(V5));
  86.     goto T28;}
  87. T30:;
  88.     if(!(type_of((V14))==t_cons)){
  89.     goto T39;}
  90.     if(endp(cdr((V14)))){
  91.     goto T38;}
  92.     if(endp(cddr((V14)))){
  93.     goto T38;}
  94. T39:;
  95.     (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14))));
  96. T38:;
  97.     {object V18;
  98.     V18= (*(LnkLI43))(car((V14)),(V8),(V9),(V10));
  99.     V7= make_cons(car((V14)),(V7));
  100.     V6= make_cons((V18),(V6));
  101.     if(!(endp(cdr((V14))))){
  102.     goto T53;}
  103.     V20= structure_ref((V18),VV[3],5);
  104.     V19= (*(LnkLI44))(/* INLINE-ARGS */V20);
  105.     goto T51;
  106. T53:;
  107.     V21= structure_ref((V18),VV[3],5);
  108.     V22= (*(LnkLI47))(cadr((V14)),(V3));
  109.     V19= (*(LnkLI46))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,cadr((V14)));
  110. T51:;
  111.     V5= make_cons(V19,(V5));}
  112. T28:;
  113.     V13= cdr((V13));
  114.     V14= car((V13));
  115.     goto T23;}
  116. T19:;
  117.     {register object V23;
  118.     object V24;
  119.     V23= reverse((V6));
  120.     V24= car((V23));
  121. T64:;
  122.     if(!(endp((V23)))){
  123.     goto T65;}
  124.     goto T60;
  125. T65:;
  126.     (VV[1]->s.s_dbind)= make_cons((V24),(VV[1]->s.s_dbind));
  127.     V23= cdr((V23));
  128.     V24= car((V23));
  129.     goto T64;}
  130. T60:;
  131.     (void)((*(LnkLI48))((V7),(V10),(V9)));
  132.     V11= (*(LnkLI49))((V12),(V11));
  133.     (void)((*(LnkLI50))((V3),cadr((V11))));
  134.     V25= structure_ref(cadr((V11)),VV[5],2);
  135.     (void)(structure_set((V3),VV[5],2,/* INLINE-ARGS */V25));
  136.     {register object V26;
  137.     object V27;
  138.     V26= (V6);
  139.     V27= car((V26));
  140. T85:;
  141.     if(!(endp((V26)))){
  142.     goto T86;}
  143.     goto T81;
  144. T86:;
  145.     (void)((*(LnkLI51))((V27)));
  146.     V26= cdr((V26));
  147.     V27= car((V26));
  148.     goto T85;}
  149. T81:;
  150.     if(!(eql((V4),symbol_value(VV[0])))){
  151.     goto T97;}
  152.     goto T96;
  153. T97:;
  154.     (void)(structure_set((V3),VV[5],4,Ct));
  155. T96:;
  156.     V28= reverse((V6));
  157.     {object V29 = list(5,VV[2],(V3),/* INLINE-ARGS */V28,reverse((V5)),(V11));
  158.     bds_unwind1;
  159.     VMR1(V29)}}
  160. }
  161. /*    local entry for function C2LET    */
  162.  
  163. static object LI2(V33,V34,V35)
  164.  
  165. object V33;object V34;object V35;
  166. {     VMB2 VMS2 VMV2
  167.     bds_check;
  168. TTL:;
  169.     {object V36;
  170.     register object V37;
  171.     register object V38;
  172.     V36= Cnil;
  173.     V37= Cnil;
  174.     V38= Cnil;
  175.     bds_bind(VV[6],symbol_value(VV[6]));
  176.     bds_bind(VV[7],symbol_value(VV[7]));
  177.     bds_bind(VV[8],symbol_value(VV[8]));
  178.     bds_bind(VV[9],symbol_value(VV[9]));
  179.     {object V39;
  180.     object V40;
  181.     object V41;
  182.     V39= (V33);
  183.     V40= (V34);
  184.     V41= Cnil;
  185. T104:;
  186.     if(!(endp((V39)))){
  187.     goto T105;}
  188.     goto T102;
  189. T105:;
  190.     {register object V42;
  191.     register object V43;
  192.     object V44;
  193.     V42= car((V40));
  194.     V43= car((V39));
  195.     V44= (*(LnkLI52))((V43));
  196.     if(((V44))==Cnil){
  197.     goto T115;}
  198.     (void)(structure_set((V43),VV[3],1,(V44)));
  199.     setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
  200.     (void)(structure_set((V43),VV[3],4,symbol_value(VV[10])));
  201.     goto T113;
  202. T115:;
  203.     V45= structure_ref((V43),VV[3],1);
  204.     if(!((/* INLINE-ARGS */V45)==(VV[11]))){
  205.     goto T120;}{object V46;
  206.     base[7]= structure_ref((V43),VV[3],4);
  207.     vs_top=(vs_base=base+7)+1;
  208.     (void) (*Lnk53)();
  209.     vs_top=sup;
  210.     V46= vs_base[0];
  211.     if(V46==Cnil)goto T122;
  212.     goto T113;
  213. T122:;}
  214.     (void)((*(LnkLI54))());
  215.     goto T113;
  216. T120:;
  217.     V47= (*(LnkLI55))();
  218.     (void)(structure_set((V43),VV[3],2,/* INLINE-ARGS */V47));
  219. T113:;
  220.     V49= structure_ref((V43),VV[3],1);
  221.     {object V48= /* INLINE-ARGS */V49;
  222.     if((V48!= VV[56])
  223.     && (V48!= VV[57])
  224.     && (V48!= VV[58])
  225.     && (V48!= VV[59])
  226.     && (V48!= VV[60]))goto T126;
  227.     V50= list(3,VV[12],list(3,VV[3],(V43),Cnil),(V42));
  228.     V38= make_cons(/* INLINE-ARGS */V50,(V38));
  229.     goto T125;
  230. T126:;
  231.     {object V51= car((V42));
  232.     if((V51!= VV[61]))goto T128;
  233.     if(((*(LnkLI62))((V43),(V35)))==Cnil){
  234.     goto T130;}
  235.     (void)(structure_set((V43),VV[3],1,VV[13]));
  236.     (void)(structure_set((V43),VV[3],4,caddr((V42))));
  237.     goto T125;
  238. T130:;
  239.     V52= list(2,(V43),caddr((V42)));
  240.     V37= make_cons(/* INLINE-ARGS */V52,(V37));
  241.     goto T125;
  242. T128:;
  243.     if((V51!= VV[3]))goto T134;
  244.     {register object V53;
  245.     V53= caaddr((V42));
  246.     if(((*(LnkLI63))((V53),cdr((V40))))!=Cnil){
  247.     goto T136;}
  248.     V55= structure_ref((V53),VV[3],1);
  249.     {register object x= /* INLINE-ARGS */V55,V54= VV[14];
  250.     while(!endp(V54))
  251.     if(eql(x,V54->c.c_car)){
  252.     goto T141;
  253.     }else V54=V54->c.c_cdr;
  254.     goto T137;}
  255. T141:;
  256.     V57= structure_ref((V53),VV[3],0);
  257.     {register object x= /* INLINE-ARGS */V57,V56= (V41);
  258.     while(!endp(V56))
  259.     if(eql(x,V56->c.c_car)){
  260.     goto T142;
  261.     }else V56=V56->c.c_cdr;
  262.     goto T137;}
  263. T142:;
  264. T136:;
  265.     V59= structure_ref((V43),VV[3],1);
  266.     if(!((/* INLINE-ARGS */V59)==(VV[15]))){
  267.     goto T146;}
  268.     V58= list(3,VV[3],(V43),Cnil);
  269.     goto T144;
  270. T146:;
  271.     V60= structure_ref((V43),VV[3],1);
  272.     if(!((/* INLINE-ARGS */V60)==(VV[11]))){
  273.     goto T149;}
  274.     V58= list(2,VV[11],structure_ref((V43),VV[3],4));
  275.     goto T144;
  276. T149:;
  277.     V61= make_cons((V43),Cnil);
  278.     V37= make_cons(/* INLINE-ARGS */V61,(V37));
  279.     V58= list(2,VV[16],structure_ref((V43),VV[3],2));
  280. T144:;
  281.     V62= list(3,VV[12],V58,(V42));
  282.     V38= make_cons(/* INLINE-ARGS */V62,(V38));
  283.     goto T125;
  284. T137:;
  285.     if(((*(LnkLI62))((V43),(V35)))==Cnil){
  286.     goto T154;}
  287.     V64= structure_ref((V53),VV[3],1);
  288.     {register object x= /* INLINE-ARGS */V64,V63= VV[17];
  289.     while(!endp(V63))
  290.     if(eql(x,V63->c.c_car)){
  291.     goto T158;
  292.     }else V63=V63->c.c_cdr;
  293.     goto T154;}
  294. T158:;
  295.     if((structure_ref((V53),VV[3],3))!=Cnil){
  296.     goto T154;}
  297.     V66= structure_ref(cadr((V35)),VV[5],0);
  298.     {register object x= (V53),V65= /* INLINE-ARGS */V66;
  299.     while(!endp(V65))
  300.     if(eql(x,V65->c.c_car)){
  301.     goto T154;
  302.     }else V65=V65->c.c_cdr;}
  303.     (void)(structure_set((V43),VV[3],1,VV[13]));
  304.     V69= structure_ref((V53),VV[3],1);
  305.     {object V68= /* INLINE-ARGS */V69;
  306.     if((V68!= VV[28]))goto T164;
  307.     V67= list(2,VV[16],structure_ref((V53),VV[3],2));
  308.     goto T163;
  309. T164:;
  310.     if((V68!= VV[13]))goto T165;
  311.     V67= structure_ref((V53),VV[3],4);
  312.     goto T163;
  313. T165:;
  314.     if((V68!= VV[15]))goto T166;
  315.     V67= list(2,VV[18],structure_ref((V53),VV[3],4));
  316.     goto T163;
  317. T166:;
  318.     V67= (*(LnkLI64))();}
  319. T163:;
  320.     (void)(structure_set((V43),VV[3],4,V67));
  321.     goto T125;
  322. T154:;
  323.     V70= list(2,(V43),list(3,VV[3],(V53),cadr(caddr((V42)))));
  324.     V37= make_cons(/* INLINE-ARGS */V70,(V37));
  325.     goto T125;}
  326. T134:;
  327.     V72= structure_ref((V43),VV[3],1);
  328.     if(!((/* INLINE-ARGS */V72)==(VV[15]))){
  329.     goto T171;}
  330.     V71= list(3,VV[3],(V43),Cnil);
  331.     goto T169;
  332. T171:;
  333.     V73= structure_ref((V43),VV[3],1);
  334.     if(!((/* INLINE-ARGS */V73)==(VV[11]))){
  335.     goto T174;}
  336.     V71= list(2,VV[11],structure_ref((V43),VV[3],4));
  337.     goto T169;
  338. T174:;
  339.     V74= make_cons((V43),Cnil);
  340.     V37= make_cons(/* INLINE-ARGS */V74,(V37));
  341.     V71= list(2,VV[16],structure_ref((V43),VV[3],2));
  342. T169:;
  343.     V75= list(3,VV[12],V71,(V42));
  344.     V38= make_cons(/* INLINE-ARGS */V75,(V38));}}
  345. T125:;
  346.     V76= structure_ref((V43),VV[3],1);
  347.     if(!((/* INLINE-ARGS */V76)==(VV[19]))){
  348.     goto T109;}
  349.     V77= structure_ref((V43),VV[3],0);
  350.     V41= make_cons(/* INLINE-ARGS */V77,(V41));}
  351. T109:;
  352.     V39= cdr((V39));
  353.     V40= cdr((V40));
  354.     goto T104;}
  355. T102:;
  356.     V36= (*(LnkLI65))((V33));
  357.     {object V78;
  358.     object V79;
  359.     V78= reverse((V38));
  360.     V79= car((V78));
  361. T191:;
  362.     if(!(endp((V78)))){
  363.     goto T192;}
  364.     goto T187;
  365. T192:;
  366.     base[6]= cadr((V79));
  367.     bds_bind(VV[20],base[6]);
  368.     V80= (*(LnkLI12))(caddr((V79)));
  369.     bds_unwind1;
  370.     V78= cdr((V78));
  371.     V79= car((V78));
  372.     goto T191;}
  373. T187:;
  374.     {object V81;
  375.     object V82;
  376.     V81= reverse((V37));
  377.     V82= car((V81));
  378. T207:;
  379.     if(!(endp((V81)))){
  380.     goto T208;}
  381.     goto T203;
  382. T208:;
  383.     if((cdr((V82)))==Cnil){
  384.     goto T214;}
  385.     (void)((*(LnkLI66))(car((V82)),cadr((V82))));
  386.     goto T212;
  387. T214:;
  388.     (void)((*(LnkLI67))(car((V82))));
  389. T212:;
  390.     V81= cdr((V81));
  391.     V82= car((V81));
  392.     goto T207;}
  393. T203:;
  394.     base[4]= (V35);
  395.     vs_top=(vs_base=base+4)+1;
  396.     (void) (*Lnk68)();
  397.     vs_top=sup;
  398.     if(((V36))==Cnil){
  399.     goto T224;}
  400.     princ_char(125,VV[21]);
  401.     {object V83 = Cnil;
  402.     bds_unwind1;
  403.     bds_unwind1;
  404.     bds_unwind1;
  405.     bds_unwind1;
  406.     VMR2(V83)}
  407. T224:;
  408.     {object V84 = Cnil;
  409.     bds_unwind1;
  410.     bds_unwind1;
  411.     bds_unwind1;
  412.     bds_unwind1;
  413.     VMR2(V84)}}
  414. }
  415. /*    local entry for function C1LET*    */
  416.  
  417. static object LI3(V86)
  418.  
  419. object V86;
  420. {     VMB3 VMS3 VMV3
  421.     bds_check;
  422. TTL:;
  423.     {register object V87;
  424.     register object V88;
  425.     register object V89;
  426.     object V90;
  427.     object V91;
  428.     object V92;
  429.     object V93;
  430.     object V94;
  431.     object V95;
  432.     object V96;
  433.     V87= Cnil;
  434.     V88= Cnil;
  435.     V89= Cnil;
  436.     V90= symbol_value(VV[0]);
  437.     V91= Cnil;
  438.     V92= Cnil;
  439.     V93= Cnil;
  440.     V94= Cnil;
  441.     V95= Cnil;
  442.     V96= (VFUN_NARGS=0,(*(LnkLI39))());
  443.     bds_bind(VV[1],symbol_value(VV[1]));
  444.     if(!(endp((V86)))){
  445.     goto T237;}
  446.     (void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));
  447. T237:;
  448.     base[2]= cdr((V86));
  449.     base[3]= Cnil;
  450.     vs_top=(vs_base=base+2)+2;
  451.     (void) (*Lnk41)();
  452.     if(vs_base<vs_top){
  453.     V94= vs_base[0];
  454.     vs_base++;
  455.     }else{
  456.     V94= Cnil;}
  457.     if(vs_base<vs_top){
  458.     V91= vs_base[0];
  459.     vs_base++;
  460.     }else{
  461.     V91= Cnil;}
  462.     if(vs_base<vs_top){
  463.     V93= vs_base[0];
  464.     vs_base++;
  465.     }else{
  466.     V93= Cnil;}
  467.     if(vs_base<vs_top){
  468.     V92= vs_base[0];
  469.     vs_base++;
  470.     }else{
  471.     V92= Cnil;}
  472.     if(vs_base<vs_top){
  473.     V95= vs_base[0];
  474.     }else{
  475.     V95= Cnil;}
  476.     vs_top=sup;
  477.     (void)((*(LnkLI42))((V91)));
  478.     {register object V97;
  479.     register object V98;
  480.     V97= car((V86));
  481.     V98= car((V97));
  482. T249:;
  483.     if(!(endp((V97)))){
  484.     goto T250;}
  485.     goto T245;
  486. T250:;
  487.     if(!(type_of((V98))==t_symbol)){
  488.     goto T256;}
  489.     {object V99;
  490.     V99= (*(LnkLI43))((V98),(V91),(V92),(V93));
  491.     V89= make_cons((V98),(V89));
  492.     V100= structure_ref((V99),VV[3],5);
  493.     V101= (*(LnkLI44))(/* INLINE-ARGS */V100);
  494.     V87= make_cons(/* INLINE-ARGS */V101,(V87));
  495.     V88= make_cons((V99),(V88));
  496.     (VV[1]->s.s_dbind)= make_cons((V99),(VV[1]->s.s_dbind));
  497.     goto T254;}
  498. T256:;
  499.     if(!(type_of((V98))==t_cons)){
  500.     goto T266;}
  501.     if(endp(cdr((V98)))){
  502.     goto T267;}
  503.     if(endp(cddr((V98)))){
  504.     goto T267;}
  505. T266:;
  506.     (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V98))));
  507.     goto T254;
  508. T267:;
  509.     {register object V102;
  510.     V102= (*(LnkLI43))(car((V98)),(V91),(V92),(V93));
  511.     V89= make_cons(car((V98)),(V89));
  512.     if(!(endp(cdr((V98))))){
  513.     goto T280;}
  514.     V104= structure_ref((V102),VV[3],5);
  515.     V103= (*(LnkLI44))(/* INLINE-ARGS */V104);
  516.     goto T278;
  517. T280:;
  518.     V105= structure_ref((V102),VV[3],5);
  519.     V106= (*(LnkLI47))(cadr((V98)),(V96));
  520.     V103= (*(LnkLI46))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V106,cadr((V98)));
  521. T278:;
  522.     V87= make_cons(V103,(V87));
  523.     V88= make_cons((V102),(V88));
  524.     (VV[1]->s.s_dbind)= make_cons((V102),(VV[1]->s.s_dbind));}
  525. T254:;
  526.     V97= cdr((V97));
  527.     V98= car((V97));
  528.     goto T249;}
  529. T245:;
  530.     (void)((*(LnkLI48))((V89),(V93),(V92)));
  531.     V94= (*(LnkLI49))((V95),(V94));
  532.     (void)((*(LnkLI50))((V96),cadr((V94))));
  533.     V107= structure_ref(cadr((V94)),VV[5],2);
  534.     (void)(structure_set((V96),VV[5],2,/* INLINE-ARGS */V107));
  535.     {register object V108;
  536.     object V109;
  537.     V108= (V88);
  538.     V109= car((V108));
  539. T299:;
  540.     if(!(endp((V108)))){
  541.     goto T300;}
  542.     goto T295;
  543. T300:;
  544.     (void)((*(LnkLI51))((V109)));
  545.     V108= cdr((V108));
  546.     V109= car((V108));
  547.     goto T299;}
  548. T295:;
  549.     if(!(eql((V90),symbol_value(VV[0])))){
  550.     goto T311;}
  551.     goto T310;
  552. T311:;
  553.     (void)(structure_set((V96),VV[5],4,Ct));
  554. T310:;
  555.     V110= reverse((V88));
  556.     {object V111 = list(5,VV[22],(V96),/* INLINE-ARGS */V110,reverse((V87)),(V94));
  557.     bds_unwind1;
  558.     VMR3(V111)}}
  559. }
  560. /*    local entry for function C2LET*    */
  561.  
  562. static object LI4(V115,V116,V117)
  563.  
  564. object V115;object V116;object V117;
  565. {     VMB4 VMS4 VMV4
  566.     bds_check;
  567. TTL:;
  568.     {object V118;
  569.     V118= Cnil;
  570.     bds_bind(VV[6],symbol_value(VV[6]));
  571.     bds_bind(VV[7],symbol_value(VV[7]));
  572.     bds_bind(VV[8],symbol_value(VV[8]));
  573.     bds_bind(VV[9],symbol_value(VV[9]));
  574.     {object V119;
  575.     register object V120;
  576.     V119= (V115);
  577.     V120= (V116);
  578. T316:;
  579.     if(!(endp((V119)))){
  580.     goto T317;}
  581.     goto T314;
  582. T317:;
  583.     {object V121;
  584.     register object V122;
  585.     object V123;
  586.     V121= car((V120));
  587.     V122= car((V119));
  588.     V123= (*(LnkLI52))((V122));
  589.     if(((V123))==Cnil){
  590.     goto T325;}
  591.     (void)(structure_set((V122),VV[3],1,(V123)));
  592.     setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
  593.     (void)(structure_set((V122),VV[3],4,symbol_value(VV[10])));
  594. T325:;
  595.     V125= structure_ref((V122),VV[3],1);
  596.     {register object x= /* INLINE-ARGS */V125,V124= VV[24];
  597.     while(!endp(V124))
  598.     if(eql(x,V124->c.c_car)){
  599.     goto T332;
  600.     }else V124=V124->c.c_cdr;
  601.     goto T331;}
  602. T332:;
  603.     goto T321;
  604. T331:;
  605.     {object V126= car((V121));
  606.     if((V126!= VV[61]))goto T333;
  607.     if(((*(LnkLI69))((V122),(V117),cdr((V120))))==Cnil){
  608.     goto T335;}
  609.     (void)(structure_set((V122),VV[3],1,VV[13]));
  610.     (void)(structure_set((V122),VV[3],4,caddr((V121))));
  611.     goto T321;
  612. T335:;
  613.     {object V127;
  614.     V128= structure_ref((V122),VV[3],1);
  615.     V127= ((/* INLINE-ARGS */V128)==(VV[15])?Ct:Cnil);
  616.     if(((V127))==Cnil){
  617.     goto T340;}
  618.     goto T321;
  619. T340:;
  620.     V129= structure_ref((V122),VV[3],1);
  621.     if(!((/* INLINE-ARGS */V129)==(VV[11]))){
  622.     goto T343;}{object V130;
  623.     base[7]= structure_ref((V122),VV[3],4);
  624.     vs_top=(vs_base=base+7)+1;
  625.     (void) (*Lnk53)();
  626.     vs_top=sup;
  627.     V130= vs_base[0];
  628.     if(V130==Cnil)goto T345;
  629.     goto T321;
  630. T345:;}
  631.     (void)((*(LnkLI64))());
  632.     goto T321;
  633. T343:;
  634.     V131= (*(LnkLI55))();
  635.     (void)(structure_set((V122),VV[3],2,/* INLINE-ARGS */V131));
  636.     goto T321;}
  637. T333:;
  638.     if((V126!= VV[3]))goto T348;
  639.     {register object V132;
  640.     V132= caaddr((V121));
  641.     if(((*(LnkLI69))((V122),(V117),cdr((V120))))==Cnil){
  642.     goto T351;}
  643.     V134= structure_ref((V132),VV[3],1);
  644.     {register object x= /* INLINE-ARGS */V134,V133= VV[25];
  645.     while(!endp(V133))
  646.     if(eql(x,V133->c.c_car)){
  647.     goto T355;
  648.     }else V133=V133->c.c_cdr;
  649.     goto T351;}
  650. T355:;
  651.     if((structure_ref((V132),VV[3],3))!=Cnil){
  652.     goto T351;}
  653.     if(((*(LnkLI63))((V132),cdr((V120))))!=Cnil){
  654.     goto T351;}
  655.     V136= structure_ref(cadr((V117)),VV[5],0);
  656.     {register object x= (V132),V135= /* INLINE-ARGS */V136;
  657.     while(!endp(V135))
  658.     if(eql(x,V135->c.c_car)){
  659.     goto T351;
  660.     }else V135=V135->c.c_cdr;}
  661.     (void)(structure_set((V122),VV[3],1,VV[13]));
  662.     V139= structure_ref((V132),VV[3],1);
  663.     {object V138= /* INLINE-ARGS */V139;
  664.     if((V138!= VV[28]))goto T363;
  665.     V137= list(2,VV[16],structure_ref((V132),VV[3],2));
  666.     goto T362;
  667. T363:;
  668.     if((V138!= VV[13]))goto T364;
  669.     V137= structure_ref((V132),VV[3],4);
  670.     goto T362;
  671. T364:;
  672.     if((V138!= VV[15]))goto T365;
  673.     V137= list(2,VV[18],structure_ref((V132),VV[3],4));
  674.     goto T362;
  675. T365:;
  676.     V137= (*(LnkLI64))();}
  677. T362:;
  678.     (void)(structure_set((V122),VV[3],4,V137));
  679.     goto T321;
  680. T351:;
  681.     {object V140;
  682.     V141= structure_ref((V122),VV[3],1);
  683.     V140= ((/* INLINE-ARGS */V141)==(VV[15])?Ct:Cnil);
  684.     if(((V140))==Cnil){
  685.     goto T368;}
  686.     goto T321;
  687. T368:;
  688.     V142= (*(LnkLI55))();
  689.     (void)(structure_set((V122),VV[3],2,/* INLINE-ARGS */V142));
  690.     goto T321;}}
  691. T348:;
  692.     if((V126!= VV[70])
  693.     && !eql(V126,VV[26])
  694.     && !eql(V126,VV[27]))goto T370;
  695.     goto T321;
  696. T370:;
  697.     V143= (*(LnkLI55))();
  698.     (void)(structure_set((V122),VV[3],2,/* INLINE-ARGS */V143));}}
  699. T321:;
  700.     V119= cdr((V119));
  701.     V120= cdr((V120));
  702.     goto T316;}
  703. T314:;
  704.     V118= (*(LnkLI65))((V115));
  705.     {object V144;
  706.     object V145;
  707.     register object V146;
  708.     register object V147;
  709.     V144= (V115);
  710.     V145= (V116);
  711.     V146= Cnil;
  712.     V147= Cnil;
  713. T379:;
  714.     if(((V144))!=Cnil){
  715.     goto T380;}
  716.     goto T377;
  717. T380:;
  718.     V146= car((V144));
  719.     V147= car((V145));
  720.     V149= structure_ref((V146),VV[3],1);
  721.     {object V148= /* INLINE-ARGS */V149;
  722.     if((V148== VV[56])
  723.     || (V148== VV[57])
  724.     || (V148== VV[58])
  725.     || (V148== VV[59])
  726.     || (V148== VV[15]))goto T390;
  727.     if((V148!= VV[60]))goto T389;
  728. T390:;
  729.     base[4]= list(3,VV[3],(V146),Cnil);
  730.     bds_bind(VV[20],base[4]);
  731.     V150= (*(LnkLI12))((V147));
  732.     bds_unwind1;
  733.     goto T388;
  734. T389:;
  735.     if((V148!= VV[13]))goto T392;
  736.     goto T388;
  737. T392:;
  738.     {object V151= car((V147));
  739.     if((V151!= VV[61]))goto T393;
  740.     (void)((*(LnkLI66))((V146),caddr((V147))));
  741.     goto T388;
  742. T393:;
  743.     if((V151!= VV[3]))goto T394;
  744.     V152= list(3,VV[3],caaddr((V147)),cadr(caddr((V147))));
  745.     (void)((*(LnkLI66))((V146),/* INLINE-ARGS */V152));
  746.     goto T388;
  747. T394:;
  748.     (void)((*(LnkLI71))((V146),(V147)));}}
  749. T388:;
  750.     V144= cdr((V144));
  751.     V145= cdr((V145));
  752.     goto T379;}
  753. T377:;
  754.     base[4]= (V117);
  755.     vs_top=(vs_base=base+4)+1;
  756.     (void) (*Lnk68)();
  757.     vs_top=sup;
  758.     if(((V118))==Cnil){
  759.     goto T402;}
  760.     princ_char(125,VV[21]);
  761.     {object V153 = Cnil;
  762.     bds_unwind1;
  763.     bds_unwind1;
  764.     bds_unwind1;
  765.     bds_unwind1;
  766.     VMR4(V153)}
  767. T402:;
  768.     {object V154 = Cnil;
  769.     bds_unwind1;
  770.     bds_unwind1;
  771.     bds_unwind1;
  772.     bds_unwind1;
  773.     VMR4(V154)}}
  774. }
  775. /*    local entry for function CAN-BE-REPLACED    */
  776.  
  777. static object LI5(V157,V158)
  778.  
  779. register object V157;object V158;
  780. {     VMB5 VMS5 VMV5
  781. TTL:;
  782.     V159= structure_ref((V157),VV[3],1);
  783.     if(!((/* INLINE-ARGS */V159)==(VV[28]))){
  784.     goto T407;}
  785.     goto T405;
  786. T407:;
  787.     V160= structure_ref((V157),VV[3],1);
  788.     if((/* INLINE-ARGS */V160)==(VV[15])){
  789.     goto T409;}
  790.     goto T406;
  791. T409:;
  792.     {int V161= fix(structure_ref((V157),VV[3],6));
  793.     if((/* INLINE-ARGS */V161)<(fix(symbol_value(VV[29])))){
  794.     goto T405;}}
  795. T406:;
  796.     {object V162 = Cnil;
  797.     VMR5(V162)}
  798. T405:;
  799.     V163= structure_ref((V157),VV[3],3);
  800.     if((/* INLINE-ARGS */V163)==Cnil){
  801.     goto T411;}
  802.     {object V164 = Cnil;
  803.     VMR5(V164)}
  804. T411:;
  805.     V165= structure_ref((V157),VV[3],4);
  806.     if((((/* INLINE-ARGS */V165)==(VV[30])?Ct:Cnil))==Cnil){
  807.     goto T413;}
  808.     {object V166 = Cnil;
  809.     VMR5(V166)}
  810. T413:;
  811.     V169= structure_ref(cadr((V158)),VV[5],0);
  812.     {register object x= (V157),V168= /* INLINE-ARGS */V169;
  813.     while(!endp(V168))
  814.     if(eql(x,V168->c.c_car)){
  815.     V167= V168;
  816.     goto T415;
  817.     }else V168=V168->c.c_cdr;
  818.     V167= Cnil;}
  819. T415:;
  820.     {object V170 = ((V167)==Cnil?Ct:Cnil);
  821.     VMR5(V170)}
  822. }
  823. /*    local entry for function CAN-BE-REPLACED*    */
  824.  
  825. static object LI6(V174,V175,V176)
  826.  
  827. register object V174;object V175;object V176;
  828. {     VMB6 VMS6 VMV6
  829. TTL:;
  830.     if(((*(LnkLI62))((V174),(V175)))!=Cnil){
  831.     goto T416;}
  832.     {object V177 = Cnil;
  833.     VMR6(V177)}
  834. T416:;
  835.     {register object V178;
  836.     register object V179;
  837.     V178= (V176);
  838.     V179= car((V178));
  839. T421:;
  840.     if(!(endp((V178)))){
  841.     goto T422;}
  842.     {object V180 = Ct;
  843.     VMR6(V180)}
  844. T422:;
  845.     V182= structure_ref(cadr((V179)),VV[5],0);
  846.     {register object x= (V174),V181= /* INLINE-ARGS */V182;
  847.     while(!endp(V181))
  848.     if(eql(x,V181->c.c_car)){
  849.     goto T428;
  850.     }else V181=V181->c.c_cdr;
  851.     goto T426;}
  852. T428:;
  853.     {object V183 = Cnil;
  854.     VMR6(V183)}
  855. T426:;
  856.     V178= cdr((V178));
  857.     V179= car((V178));
  858.     goto T421;}
  859. }
  860. /*    local entry for function WRITE-BLOCK-OPEN    */
  861.  
  862. static object LI7(V185)
  863.  
  864. object V185;
  865. {     VMB7 VMS7 VMV7
  866. TTL:;
  867.     {register object V186;
  868.     V186= Cnil;
  869.     {register object V187;
  870.     register object V188;
  871.     V187= (V185);
  872.     V188= car((V187));
  873. T438:;
  874.     if(!(endp((V187)))){
  875.     goto T439;}
  876.     goto T434;
  877. T439:;
  878.     {register object V189;
  879.     V189= structure_ref((V188),VV[3],1);
  880.     {register object x= (V189),V190= VV[31];
  881.     while(!endp(V190))
  882.     if(eql(x,V190->c.c_car)){
  883.     goto T446;
  884.     }else V190=V190->c.c_cdr;
  885.     goto T443;}
  886. T446:;
  887.     princ_str("\n    ",VV[21]);
  888.     if(((V186))!=Cnil){
  889.     goto T448;}
  890.     princ_char(123,VV[21]);
  891.     V186= Ct;
  892. T448:;
  893.     base[1]= (V188);
  894.     vs_top=(vs_base=base+1)+1;
  895.     (void) (*Lnk72)();
  896.     vs_top=sup;}
  897. T443:;
  898.     V187= cdr((V187));
  899.     V188= car((V187));
  900.     goto T438;}
  901. T434:;
  902.     {object V191 = (V186);
  903.     VMR7(V191)}}
  904. }
  905. /*    macro definition for STACK-LET    */
  906.  
  907. static L8()
  908. {register object *base=vs_base;
  909.     register object *sup=base+VM8; VC8
  910.     vs_reserve(VM8);
  911.     check_arg(2);
  912.     vs_top=sup;
  913.     {object V192=base[0]->c.c_cdr;
  914.     base[2]= V192;}
  915.     base[3]= make_cons(VV[2],base[2]);
  916.     vs_top=(vs_base=base+3)+1;
  917.     return;
  918. }
  919. /*    local entry for function C1STACK-LET    */
  920.  
  921. static object LI9(V194)
  922.  
  923. object V194;
  924. {     VMB9 VMS9 VMV9
  925. TTL:;
  926.     {object V195;
  927.     register object V196;
  928.     V195= Cnil;
  929.     V196= Cnil;
  930.     {object V197;
  931.     V197= car((V194));
  932.     {register object V198;
  933.     register object V199;
  934.     V198= (V197);
  935.     V199= car((V198));
  936. T467:;
  937.     if(!(endp((V198)))){
  938.     goto T468;}
  939.     goto T463;
  940. T468:;
  941.     if(!(type_of((V199))!=t_cons)){
  942.     goto T476;}
  943.     V200= (V199);
  944.     goto T474;
  945. T476:;
  946.     {register object V201;
  947.     {object V202;
  948.     register object V203;
  949.     V202= car((V199));
  950.     V203= cadr((V199));
  951.     if(type_of((V203))==t_cons){
  952.     goto T481;}
  953.     V201= Cnil;
  954.     goto T478;
  955. T481:;
  956.     if(!((car((V203)))==(VV[32]))){
  957.     goto T485;}
  958.     goto T483;
  959. T485:;
  960.     if((car((V203)))==(VV[33])){
  961.     goto T487;}
  962.     goto T484;
  963. T487:;
  964.     if((cddr((V203)))==Cnil){
  965.     goto T489;}
  966.     goto T484;
  967. T489:;
  968.     V203= list(3,VV[32],cadr((V203)),Cnil);
  969.     if(((V203))!=Cnil){
  970.     goto T483;}
  971. T484:;
  972.     V201= Cnil;
  973.     goto T478;
  974. T483:;
  975.     setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
  976.     V196= make_cons(symbol_value(VV[10]),(V196));
  977.     V201= list(2,(V202),listA(3,VV[34],car((V196)),cdr((V203))));}
  978. T478:;
  979.     if(((V201))==Cnil){
  980.     goto T496;}
  981.     V200= (V201);
  982.     goto T474;
  983. T496:;
  984.     (void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V199),cdr((V194)))));
  985.     V200= (V199);}
  986. T474:;
  987.     V195= make_cons(V200,(V195));
  988.     V198= cdr((V198));
  989.     V199= car((V198));
  990.     goto T467;}
  991. T463:;
  992.     {object V204;
  993.     V205= nreverse((V195));
  994.     V206= listA(3,VV[2],/* INLINE-ARGS */V205,cdr((V194)));
  995.     V204= (*(LnkLI74))(/* INLINE-ARGS */V206);
  996.     {object V207 = list(4,VV[36],cadr((V204)),(V196),(V204));
  997.     VMR9(V207)}}}}
  998. }
  999. /*    local entry for function C2STACK-LET    */
  1000.  
  1001. static object LI10(V210,V211)
  1002.  
  1003. object V210;object V211;
  1004. {     VMB10 VMS10 VMV10
  1005. TTL:;
  1006.     {object V212;
  1007.     setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
  1008.     V212= symbol_value(VV[10]);
  1009.     princ_str("\n    {Cons_Macro",VV[21]);
  1010.     (void)((*(LnkLI75))((V212)));
  1011.     princ_char(59,VV[21]);
  1012.     base[0]= (V211);
  1013.     vs_top=(vs_base=base+0)+1;
  1014.     (void) (*Lnk68)();
  1015.     vs_top=sup;
  1016.     princ_char(125,VV[21]);
  1017.     princ_str("\n#define Cons_Macro",VV[37]);
  1018.     (void)((*(LnkLI76))((V212)));
  1019.     base[0]= Cnil;
  1020.     base[1]= VV[38];
  1021.     base[2]= (V210);
  1022.     vs_top=(vs_base=base+0)+3;
  1023.     Lformat();
  1024.     vs_top=sup;
  1025.     V213= vs_base[0];
  1026.     (void)((*(LnkLI76))(V213));
  1027.     {object V214 = Cnil;
  1028.     VMR10(V214)}}
  1029. }
  1030. static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* WT-H1 */
  1031. static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* WT1 */
  1032. static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* C1EXPR */
  1033. static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[73],&LnkLI73,ap);} /* CMPWARN */
  1034. static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* WT-VAR-DECL */
  1035. static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,2,ap);} /* C2BIND-INIT */
  1036. static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,3,ap);} /* CAN-BE-REPLACED* */
  1037. static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* C2EXPR */
  1038. static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,1,ap);} /* C2BIND */
  1039. static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,2,ap);} /* C2BIND-LOC */
  1040. static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* C2EXPR* */
  1041. static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* WRITE-BLOCK-OPEN */
  1042. static object  LnkTLI64(){return call_proc0(VV[64],&LnkLI64);} /* BABOON */
  1043. static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,2,ap);} /* ARGS-INFO-CHANGED-VARS */
  1044. static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,2,ap);} /* CAN-BE-REPLACED */
  1045. static object  LnkTLI55(){return call_proc0(VV[55],&LnkLI55);} /* VS-PUSH */
  1046. static object  LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* WFS-ERROR */
  1047. static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* FIXNUMP */
  1048. static object  LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,1,ap);} /* C2VAR-KIND */
  1049. static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* CHECK-VREF */
  1050. static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* ADD-INFO */
  1051. static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1DECL-BODY */
  1052. static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,3,ap);} /* CHECK-VDECL */
  1053. static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C1EXPR* */
  1054. static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,3,ap);} /* AND-FORM-TYPE */
  1055. static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* CMPERR */
  1056. static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,1,ap);} /* DEFAULT-INIT */
  1057. static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,4,ap);} /* C1MAKE-VAR */
  1058. static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,1,ap);} /* C1ADD-GLOBALS */
  1059. static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* C1BODY */
  1060. static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],&LnkLI40,3,ap);} /* TOO-FEW-ARGS */
  1061. static object  LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[39],&LnkLI39,ap);} /* MAKE-INFO */
  1062.