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 / cmpmulti.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  19.2 KB  |  761 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpmulti.h"
  4. init_cmpmulti(){do_init(VV);}
  5. /*    local entry for function C1MULTIPLE-VALUE-CALL    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     {object V3;
  13.     object V4;
  14.     V3= Cnil;
  15.     V4= Cnil;
  16.     if(!(endp((V2)))){
  17.     goto T3;}
  18.     (void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0)));
  19. T3:;
  20.     if(!(endp(cdr((V2))))){
  21.     goto T7;}
  22.     {object V5 = (*(LnkLI39))((V2));
  23.     VMR1(V5)}
  24. T7:;
  25.     V4= (*(LnkLI40))(car((V2)));
  26.     base[0]= cadr((V4));
  27.     vs_top=(vs_base=base+0)+1;
  28.     (void) (*Lnk41)();
  29.     vs_top=sup;
  30.     V3= vs_base[0];
  31.     V2= (*(LnkLI42))(cdr((V2)),(V3));
  32.     {object V6 = list(4,VV[0],(V3),(V4),(V2));
  33.     VMR1(V6)}}
  34. }
  35. /*    local entry for function C2MULTIPLE-VALUE-CALL    */
  36.  
  37. static object LI2(V9,V10)
  38.  
  39. register object V9;object V10;
  40. {     VMB2 VMS2 VMV2
  41.     bds_check;
  42. TTL:;
  43.     {register object V11;
  44.     register object V12;
  45.     bds_bind(VV[1],symbol_value(VV[1]));
  46.     V11= Cnil;
  47.     V12= Cnil;
  48.     if(!(endp(cdr((V10))))){
  49.     goto T19;}
  50.     V11= (*(LnkLI43))((V9));
  51.     bds_bind(VV[2],VV[3]);
  52.     V13= (*(LnkLI44))(car((V10)));
  53.     bds_unwind1;
  54.     {object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)));
  55.     bds_unwind1;
  56.     VMR2(V14)}
  57. T19:;
  58.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  59.     V12= symbol_value(VV[5]);
  60.     V11= (*(LnkLI43))((V9));
  61.     princ_str("\n    {object *V",VV[6]);
  62.     (void)((*(LnkLI46))((V12)));
  63.     princ_str("=base+",VV[6]);
  64.     (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
  65.     princ_char(59,VV[6]);
  66.     setq(VV[7],Ct);
  67.     {register object V15;
  68.     register object V16;
  69.     V15= (V10);
  70.     V16= car((V15));
  71. T41:;
  72.     if(!(endp((V15)))){
  73.     goto T42;}
  74.     goto T37;
  75. T42:;
  76.     bds_bind(VV[2],VV[3]);
  77.     V17= (*(LnkLI47))((V16),(V12));
  78.     bds_unwind1;
  79.     princ_str("\n    while(vs_base<vs_top)",VV[6]);
  80.     princ_str("\n    {V",VV[6]);
  81.     (void)((*(LnkLI46))((V12)));
  82.     princ_str("[0]=vs_base[0];V",VV[6]);
  83.     (void)((*(LnkLI46))((V12)));
  84.     princ_str("++;vs_base++;}",VV[6]);
  85.     V15= cdr((V15));
  86.     V16= car((V15));
  87.     goto T41;}
  88. T37:;
  89.     princ_str("\n    vs_base=base+",VV[6]);
  90.     (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
  91.     princ_str(";vs_top=V",VV[6]);
  92.     (void)((*(LnkLI46))((V12)));
  93.     princ_char(59,VV[6]);
  94.     setq(VV[7],Ct);
  95.     (void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))));
  96.     princ_char(125,VV[6]);
  97.     {object V18 = Cnil;
  98.     bds_unwind1;
  99.     VMR2(V18)}}
  100. }
  101. /*    local entry for function C1MULTIPLE-VALUE-PROG1    */
  102.  
  103. static object LI3(V20)
  104.  
  105. register object V20;
  106. {     VMB3 VMS3 VMV3
  107. TTL:;
  108.     {object V21;
  109.     object V22;
  110.     V21= (VFUN_NARGS=0,(*(LnkLI48))());
  111.     V22= Cnil;
  112.     if(!(endp((V20)))){
  113.     goto T72;}
  114.     (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));
  115. T72:;
  116.     V22= (*(LnkLI49))(car((V20)),(V21));
  117.     V20= (*(LnkLI42))(cdr((V20)),(V21));
  118.     {object V23 = list(4,VV[8],(V21),(V22),(V20));
  119.     VMR3(V23)}}
  120. }
  121. /*    local entry for function C2MULTIPLE-VALUE-PROG1    */
  122.  
  123. static object LI4(V26,V27)
  124.  
  125. object V26;object V27;
  126. {     VMB4 VMS4 VMV4
  127.     bds_check;
  128. TTL:;
  129.     {object V28;
  130.     register object V29;
  131.     object V30;
  132.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  133.     V28= symbol_value(VV[5]);
  134.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  135.     V29= symbol_value(VV[5]);
  136.     V30= Cnil;
  137.     bds_bind(VV[2],VV[3]);
  138.     bds_bind(VV[9],Cnil);
  139.     (void)((*(LnkLI44))((V26)));
  140.     V30= (VV[9]->s.s_dbind);
  141.     bds_unwind1;
  142.     bds_unwind1;
  143.     princ_str("\n    {object *V",VV[6]);
  144.     (void)((*(LnkLI46))((V29)));
  145.     princ_str("=vs_top;object *V",VV[6]);
  146.     (void)((*(LnkLI46))((V28)));
  147.     princ_str("=vs_base; vs_base=V",VV[6]);
  148.     (void)((*(LnkLI46))((V29)));
  149.     princ_char(59,VV[6]);
  150.     {register object V31;
  151.     register object V32;
  152.     V31= (V27);
  153.     V32= car((V31));
  154. T99:;
  155.     if(!(endp((V31)))){
  156.     goto T100;}
  157.     goto T95;
  158. T100:;
  159.     bds_bind(VV[2],VV[10]);
  160.     V33= (*(LnkLI47))((V32),(V29));
  161.     bds_unwind1;
  162.     V31= cdr((V31));
  163.     V32= car((V31));
  164.     goto T99;}
  165. T95:;
  166.     princ_str("\n    vs_base=V",VV[6]);
  167.     (void)((*(LnkLI46))((V28)));
  168.     princ_str(";vs_top=V",VV[6]);
  169.     (void)((*(LnkLI46))((V29)));
  170.     princ_str(";}",VV[6]);
  171.     if(((V30))==Cnil){
  172.     goto T118;}
  173.     V34= car((V30));
  174.     goto T116;
  175. T118:;
  176.     V34= Cnil;
  177. T116:;
  178.     {object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34));
  179.     VMR4(V35)}}
  180. }
  181. /*    local entry for function C1VALUES    */
  182.  
  183. static object LI5(V37)
  184.  
  185. register object V37;
  186. {     VMB5 VMS5 VMV5
  187. TTL:;
  188.     {object V38;
  189.     V38= (VFUN_NARGS=0,(*(LnkLI48))());
  190.     if(((V37))==Cnil){
  191.     goto T122;}
  192.     if((cdr((V37)))!=Cnil){
  193.     goto T122;}
  194.     if(!(type_of(car((V37)))==t_cons)){
  195.     goto T121;}
  196.     if(!(type_of(caar((V37)))==t_symbol)){
  197.     goto T122;}
  198.     {register object V39;
  199.     V39= (*(LnkLI51))(caar((V37)));
  200.     if((V39)==Cnil){
  201.     goto T122;}
  202.     if(!(type_of((V39))!=t_cons)){
  203.     goto T133;}
  204.     goto T131;
  205. T133:;
  206.     if(type_of((V39))==t_cons){
  207.     goto T135;}
  208.     goto T122;
  209. T135:;
  210.     if((cdr((V39)))==Cnil){
  211.     goto T137;}
  212.     goto T122;
  213. T137:;
  214.     if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){
  215.     goto T122;}}
  216. T131:;
  217. T121:;
  218.     {object V40 = (*(LnkLI52))(car((V37)));
  219.     VMR5(V40)}
  220. T122:;
  221.     V37= (*(LnkLI42))((V37),(V38));
  222.     {object V41 = list(3,VV[13],(V38),(V37));
  223.     VMR5(V41)}}
  224. }
  225. /*    local entry for function C2VALUES    */
  226.  
  227. static object LI6(V43)
  228.  
  229. register object V43;
  230. {     VMB6 VMS6 VMV6
  231.     bds_check;
  232. TTL:;
  233.     {object V44;
  234.     V44= symbol_value(VV[1]);
  235.     bds_bind(VV[1],symbol_value(VV[1]));
  236.     if(!((symbol_value(VV[2]))==(VV[14]))){
  237.     goto T142;}
  238.     if((cdr((V43)))==Cnil){
  239.     goto T142;}
  240.     if(!(type_of(symbol_value(VV[15]))==t_cons)){
  241.     goto T142;}
  242.     if(!((VV[16])==(car(symbol_value(VV[15]))))){
  243.     goto T142;}
  244.     (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15])))));
  245. T142:;
  246.     if(((V43))!=Cnil){
  247.     goto T153;}
  248.     princ_str("\n    vs_base=vs_top=base+",VV[6]);
  249.     (void)((*(LnkLI46))((V44)));
  250.     princ_char(59,VV[6]);
  251.     setq(VV[7],Ct);
  252.     princ_str("\n    vs_base[0]=Cnil;",VV[6]);
  253.     goto T151;
  254. T153:;
  255.     {register object V45;
  256.     register object V46;
  257.     V45= (V43);
  258.     V46= car((V45));
  259. T166:;
  260.     if(!(endp((V45)))){
  261.     goto T167;}
  262.     goto T162;
  263. T167:;
  264.     base[2]= list(2,VV[18],(*(LnkLI54))());
  265.     bds_bind(VV[2],base[2]);
  266.     V47= (*(LnkLI44))((V46));
  267.     bds_unwind1;
  268.     V45= cdr((V45));
  269.     V46= car((V45));
  270.     goto T166;}
  271. T162:;
  272.     princ_str("\n    vs_top=(vs_base=base+",VV[6]);
  273.     (void)((*(LnkLI46))((V44)));
  274.     princ_str(")+",VV[6]);
  275.     V48= number_minus((VV[1]->s.s_dbind),(V44));
  276.     (void)((*(LnkLI46))(/* INLINE-ARGS */V48));
  277.     princ_char(59,VV[6]);
  278.     setq(VV[7],Ct);
  279. T151:;
  280.     V49 = make_fixnum(length((V43)));
  281.     V50= make_cons(VV[13],V49);
  282.     {object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50));
  283.     bds_unwind1;
  284.     VMR6(V51)}}
  285. }
  286. /*    local entry for function C1MULTIPLE-VALUE-SETQ    */
  287.  
  288. static object LI7(V53)
  289.  
  290. object V53;
  291. {     VMB7 VMS7 VMV7
  292. TTL:;
  293.     {register object V54;
  294.     register object V55;
  295.     V54= (VFUN_NARGS=0,(*(LnkLI48))());
  296.     V55= Cnil;
  297.     if(endp((V53))){
  298.     goto T188;}
  299.     if(!(endp(cdr((V53))))){
  300.     goto T187;}
  301. T188:;
  302.     (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));
  303. T187:;
  304.     if(endp(cddr((V53)))){
  305.     goto T192;}
  306.     V56 = make_fixnum(length((V53)));
  307.     (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));
  308. T192:;
  309.     {register object V57;
  310.     register object V58;
  311.     V57= car((V53));
  312.     V58= car((V57));
  313. T199:;
  314.     if(!(endp((V57)))){
  315.     goto T200;}
  316.     goto T195;
  317. T200:;
  318.     if(type_of((V58))==t_symbol){
  319.     goto T204;}
  320.     (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58))));
  321. T204:;
  322.     base[3]= (V58);
  323.     vs_top=(vs_base=base+3)+1;
  324.     Lconstantp();
  325.     vs_top=sup;
  326.     if((vs_base[0])==Cnil){
  327.     goto T207;}
  328.     (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58))));
  329. T207:;
  330.     V58= (*(LnkLI57))((V58));
  331.     V55= make_cons((V58),(V55));
  332.     {register object V59;
  333.     register object V60;
  334.     V59= (V54);
  335.     V61= car((V58));
  336.     V62= structure_ref((V59),VV[22],0);
  337.     V60= make_cons(/* INLINE-ARGS */V61,/* INLINE-ARGS */V62);
  338.     (void)(structure_set((V59),VV[22],0,(V60)));}
  339.     V57= cdr((V57));
  340.     V58= car((V57));
  341.     goto T199;}
  342. T195:;
  343.     V63= reverse((V55));
  344.     {object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54)));
  345.     VMR7(V64)}}
  346. }
  347. /*    local entry for function MULTIPLE-VALUE-CHECK    */
  348.  
  349. static object LI8(V67,V68)
  350.  
  351. object V67;object V68;
  352. {     VMB8 VMS8 VMV8
  353. TTL:;
  354.     if((cdr((V67)))!=Cnil){
  355.     goto T223;}
  356.     {object V69 = Cnil;
  357.     VMR8(V69)}
  358. T223:;
  359.     if((car((V68)))==(VV[23])){
  360.     goto T225;}
  361.     {object V70 = Cnil;
  362.     VMR8(V70)}
  363. T225:;
  364.     {object V71;
  365.     V71= caddr((V68));
  366.     if(!(type_of((V71))==t_symbol)){
  367.     goto T229;}
  368.     {register object V72;
  369.     V72= get((V71),VV[24],Cnil);
  370.     if((V72)==Cnil){
  371.     goto T229;}
  372.     if(type_of((V72))==t_cons){
  373.     goto T234;}
  374.     goto T229;
  375. T234:;
  376.     if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){
  377.     goto T236;}
  378.     goto T229;
  379. T236:;
  380.     if(!((cdr((V72)))==Cnil)){
  381.     goto T229;}}
  382.     {object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71)));
  383.     VMR8(V73)}
  384. T229:;
  385.     {object V74 = Cnil;
  386.     VMR8(V74)}}
  387. }
  388. /*    local entry for function C2MULTIPLE-VALUE-SETQ    */
  389.  
  390. static object LI9(V77,V78)
  391.  
  392. register object V77;object V78;
  393. {     VMB9 VMS9 VMV9
  394.     bds_check;
  395. TTL:;
  396.     {object V79;
  397.     V79= Cnil;
  398.     (void)((*(LnkLI58))((V77),(V78)));
  399.     bds_bind(VV[2],VV[3]);
  400.     bds_bind(VV[9],Cnil);
  401.     (void)((*(LnkLI44))((V78)));
  402.     V79= (VV[9]->s.s_dbind);
  403.     bds_unwind1;
  404.     bds_unwind1;
  405.     if(symbol_value(VV[27])==Cnil){
  406.     goto T243;}
  407.     (void)((*(LnkLI59))(Cnil,car((V79))));
  408. T243:;
  409.     {register object V80;
  410.     V80= (V77);
  411. T246:;
  412.     if(!(endp((V80)))){
  413.     goto T247;}
  414.     goto T244;
  415. T247:;
  416.     {register object V81;
  417.     V81= car((V80));
  418.     princ_str("\n    if(vs_base<vs_top){",VV[6]);
  419.     (void)((*(LnkLI60))(VV[11],car((V81)),cadr((V81))));
  420.     if(endp(cdr((V80)))){
  421.     goto T256;}
  422.     princ_str("\n    vs_base++;",VV[6]);
  423. T256:;
  424.     princ_str("\n    }else{",VV[6]);
  425.     (void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81))));
  426.     princ_char(125,VV[6]);}
  427.     V80= cdr((V80));
  428.     goto T246;}
  429. T244:;
  430.     if(((V77))!=Cnil){
  431.     goto T268;}
  432.     princ_str("\n    if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);
  433.     {object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
  434.     VMR9(V82)}
  435. T268:;
  436.     if((symbol_value(VV[28]))==(VV[29])){
  437.     goto T272;}
  438.     princ_str("\n    ",VV[6]);
  439.     (void)((*(LnkLI61))());
  440. T272:;
  441.     V83= make_cons(VV[30],car((V77)));
  442.     {object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83));
  443.     VMR9(V84)}}
  444. }
  445. /*    local entry for function C1MULTIPLE-VALUE-BIND    */
  446.  
  447. static object LI10(V86)
  448.  
  449. object V86;
  450. {     VMB10 VMS10 VMV10
  451.     bds_check;
  452. TTL:;
  453.     {object V87;
  454.     register object V88;
  455.     register object V89;
  456.     object V90;
  457.     object V91;
  458.     object V92;
  459.     object V93;
  460.     object V94;
  461.     object V95;
  462.     V87= (VFUN_NARGS=0,(*(LnkLI48))());
  463.     V88= Cnil;
  464.     V89= Cnil;
  465.     V90= Cnil;
  466.     V91= Cnil;
  467.     V92= Cnil;
  468.     V93= Cnil;
  469.     V94= Cnil;
  470.     V95= Cnil;
  471.     bds_bind(VV[31],symbol_value(VV[31]));
  472.     if(endp((V86))){
  473.     goto T286;}
  474.     if(!(endp(cdr((V86))))){
  475.     goto T285;}
  476. T286:;
  477.     V96 = make_fixnum(length((V86)));
  478.     (void)((*(LnkLI38))(VV[32],small_fixnum(2),V96));
  479. T285:;
  480.     base[2]= cddr((V86));
  481.     base[3]= Cnil;
  482.     vs_top=(vs_base=base+2)+2;
  483.     (void) (*Lnk62)();
  484.     if(vs_base<vs_top){
  485.     V94= vs_base[0];
  486.     vs_base++;
  487.     }else{
  488.     V94= Cnil;}
  489.     if(vs_base<vs_top){
  490.     V91= vs_base[0];
  491.     vs_base++;
  492.     }else{
  493.     V91= Cnil;}
  494.     if(vs_base<vs_top){
  495.     V93= vs_base[0];
  496.     vs_base++;
  497.     }else{
  498.     V93= Cnil;}
  499.     if(vs_base<vs_top){
  500.     V92= vs_base[0];
  501.     vs_base++;
  502.     }else{
  503.     V92= Cnil;}
  504.     if(vs_base<vs_top){
  505.     V95= vs_base[0];
  506.     }else{
  507.     V95= Cnil;}
  508.     vs_top=sup;
  509.     (void)((*(LnkLI63))((V91)));
  510.     {register object V97;
  511.     register object V98;
  512.     V97= car((V86));
  513.     V98= car((V97));
  514. T299:;
  515.     if(!(endp((V97)))){
  516.     goto T300;}
  517.     goto T295;
  518. T300:;
  519.     {object V99;
  520.     V99= (*(LnkLI64))((V98),(V91),(V92),(V93));
  521.     V89= make_cons((V98),(V89));
  522.     V88= make_cons((V99),(V88));}
  523.     V97= cdr((V97));
  524.     V98= car((V97));
  525.     goto T299;}
  526. T295:;
  527.     V90= (*(LnkLI49))(cadr((V86)),(V87));
  528.     {register object V100;
  529.     object V101;
  530.     V100= reverse((V88));
  531.     V101= car((V100));
  532. T320:;
  533.     if(!(endp((V100)))){
  534.     goto T321;}
  535.     goto T316;
  536. T321:;
  537.     (VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind));
  538.     V100= cdr((V100));
  539.     V101= car((V100));
  540.     goto T320;}
  541. T316:;
  542.     (void)((*(LnkLI65))((V89),(V93),(V92)));
  543.     V94= (*(LnkLI66))((V95),(V94));
  544.     (void)((*(LnkLI67))((V87),cadr((V94))));
  545.     V102= structure_ref(cadr((V94)),VV[22],2);
  546.     (void)(structure_set((V87),VV[22],2,/* INLINE-ARGS */V102));
  547.     {register object V103;
  548.     object V104;
  549.     V103= (V88);
  550.     V104= car((V103));
  551. T341:;
  552.     if(!(endp((V103)))){
  553.     goto T342;}
  554.     goto T337;
  555. T342:;
  556.     (void)((*(LnkLI68))((V104)));
  557.     V103= cdr((V103));
  558.     V104= car((V103));
  559.     goto T341;}
  560. T337:;
  561.     {object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94));
  562.     bds_unwind1;
  563.     VMR10(V105)}}
  564. }
  565. /*    local entry for function C2MULTIPLE-VALUE-BIND    */
  566.  
  567. static object LI11(V109,V110,V111)
  568.  
  569. object V109;object V110;object V111;
  570. {     VMB11 VMS11 VMV11
  571.     bds_check;
  572. TTL:;
  573.     {object V112;
  574.     register object V113;
  575.     object V114;
  576.     V112= Cnil;
  577.     V113= Cnil;
  578.     bds_bind(VV[33],symbol_value(VV[33]));
  579.     bds_bind(VV[1],symbol_value(VV[1]));
  580.     bds_bind(VV[34],symbol_value(VV[34]));
  581.     bds_bind(VV[35],symbol_value(VV[35]));
  582.     V114= Cnil;
  583.     (void)((*(LnkLI58))((V109),(V110)));
  584.     {register object V115;
  585.     register object V116;
  586.     V115= (V109);
  587.     V116= car((V115));
  588. T360:;
  589.     if(!(endp((V115)))){
  590.     goto T361;}
  591.     goto T356;
  592. T361:;
  593.     {object V117;
  594.     V117= (*(LnkLI69))((V116));
  595.     if(((V117))==Cnil){
  596.     goto T368;}
  597.     {object V118;
  598.     setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
  599.     V118= symbol_value(VV[5]);
  600.     (void)(structure_set((V116),VV[30],1,(V117)));
  601.     (void)(structure_set((V116),VV[30],4,(V118)));
  602.     princ_str("\n    ",VV[6]);
  603.     if(((V112))!=Cnil){
  604.     goto T375;}
  605.     princ_char(123,VV[6]);
  606.     V112= Ct;
  607. T375:;
  608.     base[5]= (V116);
  609.     vs_top=(vs_base=base+5)+1;
  610.     (void) (*Lnk70)();
  611.     vs_top=sup;
  612.     goto T365;}
  613. T368:;
  614.     V119= (*(LnkLI54))();
  615.     (void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));}
  616. T365:;
  617.     V115= cdr((V115));
  618.     V116= car((V115));
  619.     goto T360;}
  620. T356:;
  621.     bds_bind(VV[2],VV[3]);
  622.     bds_bind(VV[9],Cnil);
  623.     (void)((*(LnkLI44))((V110)));
  624.     V114= (VV[9]->s.s_dbind);
  625.     bds_unwind1;
  626.     bds_unwind1;
  627.     if(symbol_value(VV[27])==Cnil){
  628.     goto T390;}
  629.     (void)((*(LnkLI59))(Cnil,car((V114))));
  630. T390:;
  631.     bds_bind(VV[34],(VV[34]->s.s_dbind));
  632.     bds_bind(VV[33],(VV[33]->s.s_dbind));
  633.     bds_bind(VV[35],(VV[35]->s.s_dbind));
  634.     {register object V120;
  635.     V120= (V109);
  636. T393:;
  637.     if(!(endp((V120)))){
  638.     goto T394;}
  639.     bds_unwind1;
  640.     bds_unwind1;
  641.     bds_unwind1;
  642.     goto T391;
  643. T394:;
  644.     setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
  645.     V121= make_cons(symbol_value(VV[36]),Cnil);
  646.     V113= make_cons(/* INLINE-ARGS */V121,(V113));
  647.     princ_str("\n    if(vs_base>=vs_top){",VV[6]);
  648.     (void)((*(LnkLI61))());
  649.     if(type_of(car((V113)))!=t_cons)FEwrong_type_argument(Scons,car((V113)));
  650.     (car((V113)))->c.c_cdr = Ct;
  651.     (void)(car((V113)));
  652.     princ_str("goto T",VV[6]);
  653.     (void)((*(LnkLI46))(car(car((V113)))));
  654.     princ_char(59,VV[6]);
  655.     princ_char(125,VV[6]);
  656.     (void)((*(LnkLI71))(car((V120)),VV[37]));
  657.     if(endp(cdr((V120)))){
  658.     goto T412;}
  659.     princ_str("\n    vs_base++;",VV[6]);
  660. T412:;
  661.     V120= cdr((V120));
  662.     goto T393;}
  663. T391:;
  664.     princ_str("\n    ",VV[6]);
  665.     (void)((*(LnkLI61))());
  666.     {object V122;
  667.     setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
  668.     V122= make_cons(symbol_value(VV[36]),Cnil);
  669.     princ_str("\n    ",VV[6]);
  670.     if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122));
  671.     ((V122))->c.c_cdr = Ct;
  672.     princ_str("goto T",VV[6]);
  673.     (void)((*(LnkLI46))(car((V122))));
  674.     princ_char(59,VV[6]);
  675.     V113= reverse((V113));
  676.     {register object V123;
  677.     object V124;
  678.     V123= (V109);
  679.     V124= car((V123));
  680. T436:;
  681.     if(!(endp((V123)))){
  682.     goto T437;}
  683.     goto T432;
  684. T437:;
  685.     if((cdr(car((V113))))==Cnil){
  686.     goto T441;}
  687.     princ_str("\nT",VV[6]);
  688.     (void)((*(LnkLI46))(car(car((V113)))));
  689.     princ_str(":;",VV[6]);
  690. T441:;
  691.     {object V125;
  692.     V125= car((V113));
  693.     V113= cdr((V113));}
  694.     (void)((*(LnkLI71))((V124),Cnil));
  695.     V123= cdr((V123));
  696.     V124= car((V123));
  697.     goto T436;}
  698. T432:;
  699.     if((cdr((V122)))==Cnil){
  700.     goto T421;}
  701.     princ_str("\nT",VV[6]);
  702.     (void)((*(LnkLI46))(car((V122))));
  703.     princ_str(":;",VV[6]);}
  704. T421:;
  705.     base[4]= (V111);
  706.     vs_top=(vs_base=base+4)+1;
  707.     (void) (*Lnk72)();
  708.     vs_top=sup;
  709.     if(((V112))==Cnil){
  710.     goto T465;}
  711.     princ_char(125,VV[6]);
  712.     {object V126 = Cnil;
  713.     bds_unwind1;
  714.     bds_unwind1;
  715.     bds_unwind1;
  716.     bds_unwind1;
  717.     VMR11(V126)}
  718. T465:;
  719.     {object V127 = Cnil;
  720.     bds_unwind1;
  721.     bds_unwind1;
  722.     bds_unwind1;
  723.     bds_unwind1;
  724.     VMR11(V127)}}
  725. }
  726. static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* C2EXPR */
  727. static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,2,ap);} /* C2BIND-LOC */
  728. static LnkT70(){ call_or_link(VV[70],&Lnk70);} /* WT-VAR-DECL */
  729. static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* C2VAR-KIND */
  730. static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,1,ap);} /* CHECK-VREF */
  731. static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* ADD-INFO */
  732. static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,2,ap);} /* C1DECL-BODY */
  733. static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,3,ap);} /* CHECK-VDECL */
  734. static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,4,ap);} /* C1MAKE-VAR */
  735. static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* C1ADD-GLOBALS */
  736. static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* C1BODY */
  737. static object  LnkTLI61(){return call_proc0(VV[61],&LnkLI61);} /* RESET-TOP */
  738. static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* SET-VAR */
  739. static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* RECORD-CALL-INFO */
  740. static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* MULTIPLE-VALUE-CHECK */
  741. static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C1VREF */
  742. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],&LnkLI56,ap);} /* CMPERR */
  743. static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* TOO-MANY-ARGS */
  744. static object  LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* VS-PUSH */
  745. static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],&LnkLI53,ap);} /* CMPWARN */
  746. static object  LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,1,ap);} /* C1EXPR */
  747. static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* GET-RETURN-TYPE */
  748. static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* UNWIND-EXIT */
  749. static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1EXPR* */
  750. static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */
  751. static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C2EXPR-TOP* */
  752. static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* WT1 */
  753. static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* C2FUNCALL */
  754. static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,1,ap);} /* C2EXPR* */
  755. static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,1,ap);} /* SAVE-FUNOB */
  756. static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,2,ap);} /* C1ARGS */
  757. static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* COPY-INFO */
  758. static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],&LnkLI40,1,ap);} /* C1FUNOB */
  759. static object  LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[39],&LnkLI39,1,ap);} /* C1FUNCALL */
  760. static object  LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[38],&LnkLI38,3,ap);} /* TOO-FEW-ARGS */
  761.