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 / cmpmap.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  20.8 KB  |  894 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpmap.h"
  4. init_cmpmap(){do_init(VV);}
  5. /*    local entry for function C1MAPCAR    */
  6.  
  7. static object LI1(V2)
  8.  
  9. object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     {object V3 = (*(LnkLI23))(VV[0],Ct,(V2));
  13.     VMR1(V3)}
  14. }
  15. /*    local entry for function C1MAPLIST    */
  16.  
  17. static object LI2(V5)
  18.  
  19. object V5;
  20. {     VMB2 VMS2 VMV2
  21. TTL:;
  22.     {object V6 = (*(LnkLI23))(VV[0],Cnil,(V5));
  23.     VMR2(V6)}
  24. }
  25. /*    local entry for function C1MAPC    */
  26.  
  27. static object LI3(V8)
  28.  
  29. object V8;
  30. {     VMB3 VMS3 VMV3
  31. TTL:;
  32.     {object V9 = (*(LnkLI23))(VV[1],Ct,(V8));
  33.     VMR3(V9)}
  34. }
  35. /*    local entry for function C1MAPL    */
  36.  
  37. static object LI4(V11)
  38.  
  39. object V11;
  40. {     VMB4 VMS4 VMV4
  41. TTL:;
  42.     {object V12 = (*(LnkLI23))(VV[1],Cnil,(V11));
  43.     VMR4(V12)}
  44. }
  45. /*    local entry for function C1MAPCAN    */
  46.  
  47. static object LI5(V14)
  48.  
  49. object V14;
  50. {     VMB5 VMS5 VMV5
  51. TTL:;
  52.     {object V15 = (*(LnkLI23))(VV[2],Ct,(V14));
  53.     VMR5(V15)}
  54. }
  55. /*    local entry for function C1MAPCON    */
  56.  
  57. static object LI6(V17)
  58.  
  59. object V17;
  60. {     VMB6 VMS6 VMV6
  61. TTL:;
  62.     {object V18 = (*(LnkLI23))(VV[2],Cnil,(V17));
  63.     VMR6(V18)}
  64. }
  65. /*    local entry for function C1MAP-FUNCTIONS    */
  66.  
  67. static object LI7(V22,V23,V24)
  68.  
  69. object V22;object V23;register object V24;
  70. {     VMB7 VMS7 VMV7
  71. TTL:;
  72.     {object V25;
  73.     object V26;
  74.     V25= Cnil;
  75.     V26= Cnil;
  76.     if(endp((V24))){
  77.     goto T4;}
  78.     if(!(endp(cdr((V24))))){
  79.     goto T3;}
  80. T4:;
  81.     V27 = make_fixnum(length((V24)));
  82.     (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));
  83. T3:;
  84.     V25= (*(LnkLI25))(car((V24)));
  85.     base[0]= cadr((V25));
  86.     vs_top=(vs_base=base+0)+1;
  87.     (void) (*Lnk26)();
  88.     vs_top=sup;
  89.     V26= vs_base[0];
  90.     {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26)));
  91.     VMR7(V28)}}
  92. }
  93. /*    local entry for function C2MAPCAR    */
  94.  
  95. static object LI8(V32,V33,V34)
  96.  
  97. object V32;object V33;register object V34;
  98. {     VMB8 VMS8 VMV8
  99.     bds_check;
  100. TTL:;
  101.     bds_bind(VV[4],symbol_value(VV[4]));
  102.     bds_bind(VV[5],small_fixnum(0));
  103.     {object V35;
  104.     object V36;
  105.     object V37;
  106.     object V38;
  107.     object V39;
  108.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  109.     V35= make_cons(symbol_value(VV[6]),Ct);
  110.     V36= list(2,VV[7],(*(LnkLI28))());
  111.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  112.     V37= list(2,VV[8],symbol_value(VV[9]));
  113.     {object V40;
  114.     object V41= (V34);
  115.     if(endp(V41)){
  116.     V38= Cnil;
  117.     goto T18;}
  118.     base[2]=V40=MMcons(Cnil,Cnil);
  119. T19:;
  120.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  121.     (V40->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
  122.     if(endp(V41=MMcdr(V41))){
  123.     V38= base[2];
  124.     goto T18;}
  125.     V40=MMcdr(V40)=MMcons(Cnil,Cnil);
  126.     goto T19;}
  127. T18:;
  128.     V39= Cnil;
  129.     V39= (*(LnkLI29))((V32));
  130.     base[2]= make_fixnum(length((V34)));
  131.     base[3]= VV[10];
  132.     base[4]= Ct;
  133.     vs_top=(vs_base=base+2)+3;
  134.     Lmake_list();
  135.     vs_top=sup;
  136.     V43= vs_base[0];
  137.     V44= (VFUN_NARGS=2,(*(LnkLI31))((V34),V43));
  138.     V34= (*(LnkLI30))(/* INLINE-ARGS */V44,(V32));
  139.     princ_str("\n    {object ",VV[11]);
  140.     (void)((*(LnkLI32))((V37)));
  141.     princ_char(59,VV[11]);
  142.     {register object V45;
  143.     object V46;
  144.     V45= (V38);
  145.     V46= car((V45));
  146. T38:;
  147.     if(!(endp((V45)))){
  148.     goto T39;}
  149.     goto T34;
  150. T39:;
  151.     princ_str("\n    object ",VV[11]);
  152.     (void)((*(LnkLI32))((V46)));
  153.     princ_str("= ",VV[11]);
  154.     (void)((*(LnkLI32))(car((V34))));
  155.     princ_char(59,VV[11]);
  156.     {object V47;
  157.     V47= car((V34));
  158.     V34= cdr((V34));}
  159.     V45= cdr((V45));
  160.     V46= car((V45));
  161.     goto T38;}
  162. T34:;
  163.     if((symbol_value(VV[12]))==Cnil){
  164.     goto T60;}
  165.     princ_str("\n    if(endp(",VV[11]);
  166.     (void)((*(LnkLI32))(car((V38))));
  167.     princ_char(41,VV[11]);
  168.     {register object V48;
  169.     object V49;
  170.     V48= cdr((V38));
  171.     V49= car((V48));
  172. T70:;
  173.     if(!(endp((V48)))){
  174.     goto T71;}
  175.     goto T66;
  176. T71:;
  177.     princ_str("||endp(",VV[11]);
  178.     (void)((*(LnkLI32))((V49)));
  179.     princ_char(41,VV[11]);
  180.     V48= cdr((V48));
  181.     V49= car((V48));
  182.     goto T70;}
  183. T66:;
  184.     princ_str("){",VV[11]);
  185.     goto T58;
  186. T60:;
  187.     princ_str("\n    if(",VV[11]);
  188.     (void)((*(LnkLI32))(car((V38))));
  189.     princ_str("==Cnil",VV[11]);
  190.     {register object V50;
  191.     object V51;
  192.     V50= cdr((V38));
  193.     V51= car((V50));
  194. T93:;
  195.     if(!(endp((V50)))){
  196.     goto T94;}
  197.     goto T89;
  198. T94:;
  199.     princ_str("||",VV[11]);
  200.     (void)((*(LnkLI32))((V51)));
  201.     princ_str("==Cnil",VV[11]);
  202.     V50= cdr((V50));
  203.     V51= car((V50));
  204.     goto T93;}
  205. T89:;
  206.     princ_str("){",VV[11]);
  207. T58:;
  208.     (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
  209.     princ_char(125,VV[11]);
  210.     princ_str("\n    ",VV[11]);
  211.     (void)((*(LnkLI32))((V36)));
  212.     princ_char(61,VV[11]);
  213.     (void)((*(LnkLI32))((V37)));
  214.     princ_str("=MMcons(Cnil,Cnil);",VV[11]);
  215.     if((cdr((V35)))==Cnil){
  216.     goto T117;}
  217.     princ_str("\nT",VV[11]);
  218.     (void)((*(LnkLI32))(car((V35))));
  219.     princ_str(":;",VV[11]);
  220. T117:;
  221.     bds_bind(VV[14],list(2,VV[15],cadr((V37))));
  222.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  223.     bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
  224.     bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
  225.     if(((V33))==Cnil){
  226.     goto T131;}
  227.     {object V53;
  228.     object V54= (V38);
  229.     if(endp(V54)){
  230.     V52= Cnil;
  231.     goto T129;}
  232.     base[5]=V53=MMcons(Cnil,Cnil);
  233. T133:;{object V56;
  234.     V56= symbol_value(VV[19]);
  235.     (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));}
  236.     if(endp(V54=MMcdr(V54))){
  237.     V52= base[5];
  238.     goto T129;}
  239.     V53=MMcdr(V53)=MMcons(Cnil,Cnil);
  240.     goto T133;}
  241. T131:;
  242.     {object V57;
  243.     object V58= (V38);
  244.     if(endp(V58)){
  245.     V52= Cnil;
  246.     goto T129;}
  247.     base[5]=V57=MMcons(Cnil,Cnil);
  248. T135:;
  249.     (V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car));
  250.     if(endp(V58=MMcdr(V58))){
  251.     V52= base[5];
  252.     goto T129;}
  253.     V57=MMcdr(V57)=MMcons(Cnil,Cnil);
  254.     goto T135;}
  255. T129:;
  256.     (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));
  257.     if((cdr((VV[16]->s.s_dbind)))==Cnil){
  258.     bds_unwind1;
  259.     bds_unwind1;
  260.     bds_unwind1;
  261.     goto T123;}
  262.     princ_str("\nT",VV[11]);
  263.     (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
  264.     princ_str(":;",VV[11]);
  265.     bds_unwind1;
  266.     bds_unwind1;
  267.     bds_unwind1;
  268. T123:;
  269.     if((symbol_value(VV[12]))==Cnil){
  270.     goto T144;}
  271.     princ_str("\n    if(endp(",VV[11]);
  272.     (void)((*(LnkLI32))(car((V38))));
  273.     princ_str("=MMcdr(",VV[11]);
  274.     (void)((*(LnkLI32))(car((V38))));
  275.     princ_str("))",VV[11]);
  276.     {register object V60;
  277.     object V61;
  278.     V60= cdr((V38));
  279.     V61= car((V60));
  280. T156:;
  281.     if(!(endp((V60)))){
  282.     goto T157;}
  283.     goto T152;
  284. T157:;
  285.     princ_str("||endp(",VV[11]);
  286.     (void)((*(LnkLI32))((V61)));
  287.     princ_str("=MMcdr(",VV[11]);
  288.     (void)((*(LnkLI32))((V61)));
  289.     princ_str("))",VV[11]);
  290.     V60= cdr((V60));
  291.     V61= car((V60));
  292.     goto T156;}
  293. T152:;
  294.     princ_str("){",VV[11]);
  295.     goto T142;
  296. T144:;
  297.     princ_str("\n    if((",VV[11]);
  298.     (void)((*(LnkLI32))(car((V38))));
  299.     princ_str("=MMcdr(",VV[11]);
  300.     (void)((*(LnkLI32))(car((V38))));
  301.     princ_str("))==Cnil",VV[11]);
  302.     {register object V62;
  303.     object V63;
  304.     V62= cdr((V38));
  305.     V63= car((V62));
  306. T183:;
  307.     if(!(endp((V62)))){
  308.     goto T184;}
  309.     goto T179;
  310. T184:;
  311.     princ_str("||(",VV[11]);
  312.     (void)((*(LnkLI32))((V63)));
  313.     princ_str("=MMcdr(",VV[11]);
  314.     (void)((*(LnkLI32))((V63)));
  315.     princ_str("))==Cnil",VV[11]);
  316.     V62= cdr((V62));
  317.     V63= car((V62));
  318.     goto T183;}
  319. T179:;
  320.     princ_str("){",VV[11]);
  321. T142:;
  322.     (void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13])));
  323.     princ_char(125,VV[11]);
  324.     princ_str("\n    ",VV[11]);
  325.     (void)((*(LnkLI32))((V37)));
  326.     princ_str("=MMcdr(",VV[11]);
  327.     (void)((*(LnkLI32))((V37)));
  328.     princ_str(")=MMcons(Cnil,Cnil);",VV[11]);
  329.     princ_str("\n    ",VV[11]);
  330.     if(type_of((V35))!=t_cons)FEwrong_type_argument(Scons,(V35));
  331.     ((V35))->c.c_cdr = Ct;
  332.     princ_str("goto T",VV[11]);
  333.     (void)((*(LnkLI32))(car((V35))));
  334.     princ_char(59,VV[11]);
  335.     princ_char(125,VV[11]);
  336.     {object V64 = (*(LnkLI35))();
  337.     bds_unwind1;
  338.     bds_unwind1;
  339.     VMR8(V64)}}
  340. }
  341. /*    local entry for function C2MAPC    */
  342.  
  343. static object LI9(V68,V69,V70)
  344.  
  345. object V68;object V69;register object V70;
  346. {     VMB9 VMS9 VMV9
  347.     bds_check;
  348. TTL:;
  349.     bds_bind(VV[4],symbol_value(VV[4]));
  350.     bds_bind(VV[5],small_fixnum(0));
  351.     {object V71;
  352.     object V72;
  353.     object V73;
  354.     object V74;
  355.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  356.     V71= make_cons(symbol_value(VV[6]),Ct);
  357.     {object V75;
  358.     object V76= (V70);
  359.     if(endp(V76)){
  360.     V73= Cnil;
  361.     goto T219;}
  362.     base[2]=V75=MMcons(Cnil,Cnil);
  363. T220:;
  364.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  365.     (V75->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
  366.     if(endp(V76=MMcdr(V76))){
  367.     V73= base[2];
  368.     goto T219;}
  369.     V75=MMcdr(V75)=MMcons(Cnil,Cnil);
  370.     goto T220;}
  371. T219:;
  372.     V72= Cnil;
  373.     V74= Cnil;
  374.     V74= (*(LnkLI29))((V68));
  375.     base[2]= make_fixnum(length((V70)));
  376.     base[3]= VV[10];
  377.     base[4]= Ct;
  378.     vs_top=(vs_base=base+2)+3;
  379.     Lmake_list();
  380.     vs_top=sup;
  381.     V78= vs_base[0];
  382.     V79= (VFUN_NARGS=2,(*(LnkLI31))((V70),V78));
  383.     V70= (*(LnkLI30))(/* INLINE-ARGS */V79,(V68));
  384.     V72= car((V70));
  385.     princ_str("\n    {",VV[11]);
  386.     {register object V80;
  387.     object V81;
  388.     V80= (V73);
  389.     V81= car((V80));
  390. T239:;
  391.     if(!(endp((V80)))){
  392.     goto T240;}
  393.     goto T235;
  394. T240:;
  395.     princ_str("\n    object ",VV[11]);
  396.     (void)((*(LnkLI32))((V81)));
  397.     princ_str("= ",VV[11]);
  398.     (void)((*(LnkLI32))(car((V70))));
  399.     princ_char(59,VV[11]);
  400.     {object V82;
  401.     V82= car((V70));
  402.     V70= cdr((V70));}
  403.     V80= cdr((V80));
  404.     V81= car((V80));
  405.     goto T239;}
  406. T235:;
  407.     if((symbol_value(VV[12]))==Cnil){
  408.     goto T261;}
  409.     princ_str("\n    if(endp(",VV[11]);
  410.     (void)((*(LnkLI32))(car((V73))));
  411.     princ_char(41,VV[11]);
  412.     {register object V83;
  413.     object V84;
  414.     V83= cdr((V73));
  415.     V84= car((V83));
  416. T271:;
  417.     if(!(endp((V83)))){
  418.     goto T272;}
  419.     goto T267;
  420. T272:;
  421.     princ_str("||endp(",VV[11]);
  422.     (void)((*(LnkLI32))((V84)));
  423.     princ_char(41,VV[11]);
  424.     V83= cdr((V83));
  425.     V84= car((V83));
  426.     goto T271;}
  427. T267:;
  428.     princ_str("){",VV[11]);
  429.     goto T259;
  430. T261:;
  431.     princ_str("\n    if(",VV[11]);
  432.     (void)((*(LnkLI32))(car((V73))));
  433.     princ_str("==Cnil",VV[11]);
  434.     {register object V85;
  435.     object V86;
  436.     V85= cdr((V73));
  437.     V86= car((V85));
  438. T294:;
  439.     if(!(endp((V85)))){
  440.     goto T295;}
  441.     goto T290;
  442. T295:;
  443.     princ_str("||",VV[11]);
  444.     (void)((*(LnkLI32))((V86)));
  445.     princ_str("==Cnil",VV[11]);
  446.     V85= cdr((V85));
  447.     V86= car((V85));
  448.     goto T294;}
  449. T290:;
  450.     princ_str("){",VV[11]);
  451. T259:;
  452.     (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
  453.     princ_char(125,VV[11]);
  454.     if((cdr((V71)))==Cnil){
  455.     goto T312;}
  456.     princ_str("\nT",VV[11]);
  457.     (void)((*(LnkLI32))(car((V71))));
  458.     princ_str(":;",VV[11]);
  459. T312:;
  460.     bds_bind(VV[14],VV[20]);
  461.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  462.     bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
  463.     bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
  464.     if(((V69))==Cnil){
  465.     goto T325;}
  466.     {object V88;
  467.     object V89= (V73);
  468.     if(endp(V89)){
  469.     V87= Cnil;
  470.     goto T323;}
  471.     base[5]=V88=MMcons(Cnil,Cnil);
  472. T327:;{object V91;
  473.     V91= symbol_value(VV[19]);
  474.     (V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));}
  475.     if(endp(V89=MMcdr(V89))){
  476.     V87= base[5];
  477.     goto T323;}
  478.     V88=MMcdr(V88)=MMcons(Cnil,Cnil);
  479.     goto T327;}
  480. T325:;
  481.     {object V92;
  482.     object V93= (V73);
  483.     if(endp(V93)){
  484.     V87= Cnil;
  485.     goto T323;}
  486.     base[5]=V92=MMcons(Cnil,Cnil);
  487. T329:;
  488.     (V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car));
  489.     if(endp(V93=MMcdr(V93))){
  490.     V87= base[5];
  491.     goto T323;}
  492.     V92=MMcdr(V92)=MMcons(Cnil,Cnil);
  493.     goto T329;}
  494. T323:;
  495.     (void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74))));
  496.     if((cdr((VV[16]->s.s_dbind)))==Cnil){
  497.     bds_unwind1;
  498.     bds_unwind1;
  499.     bds_unwind1;
  500.     goto T318;}
  501.     princ_str("\nT",VV[11]);
  502.     (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
  503.     princ_str(":;",VV[11]);
  504.     bds_unwind1;
  505.     bds_unwind1;
  506.     bds_unwind1;
  507. T318:;
  508.     if((symbol_value(VV[12]))==Cnil){
  509.     goto T338;}
  510.     princ_str("\n    if(endp(",VV[11]);
  511.     (void)((*(LnkLI32))(car((V73))));
  512.     princ_str("=MMcdr(",VV[11]);
  513.     (void)((*(LnkLI32))(car((V73))));
  514.     princ_str("))",VV[11]);
  515.     {register object V95;
  516.     object V96;
  517.     V95= cdr((V73));
  518.     V96= car((V95));
  519. T350:;
  520.     if(!(endp((V95)))){
  521.     goto T351;}
  522.     goto T346;
  523. T351:;
  524.     princ_str("||endp(",VV[11]);
  525.     (void)((*(LnkLI32))((V96)));
  526.     princ_str("=MMcdr(",VV[11]);
  527.     (void)((*(LnkLI32))((V96)));
  528.     princ_str("))",VV[11]);
  529.     V95= cdr((V95));
  530.     V96= car((V95));
  531.     goto T350;}
  532. T346:;
  533.     princ_str("){",VV[11]);
  534.     goto T336;
  535. T338:;
  536.     princ_str("\n    if((",VV[11]);
  537.     (void)((*(LnkLI32))(car((V73))));
  538.     princ_str("=MMcdr(",VV[11]);
  539.     (void)((*(LnkLI32))(car((V73))));
  540.     princ_str("))==Cnil",VV[11]);
  541.     {register object V97;
  542.     object V98;
  543.     V97= cdr((V73));
  544.     V98= car((V97));
  545. T377:;
  546.     if(!(endp((V97)))){
  547.     goto T378;}
  548.     goto T373;
  549. T378:;
  550.     princ_str("||(",VV[11]);
  551.     (void)((*(LnkLI32))((V98)));
  552.     princ_str("=MMcdr(",VV[11]);
  553.     (void)((*(LnkLI32))((V98)));
  554.     princ_str("))==Cnil",VV[11]);
  555.     V97= cdr((V97));
  556.     V98= car((V97));
  557.     goto T377;}
  558. T373:;
  559.     princ_str("){",VV[11]);
  560. T336:;
  561.     (void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13])));
  562.     princ_char(125,VV[11]);
  563.     princ_str("\n    ",VV[11]);
  564.     if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71));
  565.     ((V71))->c.c_cdr = Ct;
  566.     princ_str("goto T",VV[11]);
  567.     (void)((*(LnkLI32))(car((V71))));
  568.     princ_char(59,VV[11]);
  569.     princ_char(125,VV[11]);
  570.     {object V99 = (*(LnkLI35))();
  571.     bds_unwind1;
  572.     bds_unwind1;
  573.     VMR9(V99)}}
  574. }
  575. /*    local entry for function C2MAPCAN    */
  576.  
  577. static object LI10(V103,V104,V105)
  578.  
  579. object V103;object V104;register object V105;
  580. {     VMB10 VMS10 VMV10
  581.     bds_check;
  582. TTL:;
  583.     bds_bind(VV[4],symbol_value(VV[4]));
  584.     bds_bind(VV[5],small_fixnum(0));
  585.     {object V106;
  586.     object V107;
  587.     object V108;
  588.     object V109;
  589.     object V110;
  590.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  591.     V106= make_cons(symbol_value(VV[6]),Ct);
  592.     V107= list(2,VV[7],(*(LnkLI28))());
  593.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  594.     V108= list(2,VV[8],symbol_value(VV[9]));
  595.     {object V111;
  596.     object V112= (V105);
  597.     if(endp(V112)){
  598.     V109= Cnil;
  599.     goto T410;}
  600.     base[2]=V111=MMcons(Cnil,Cnil);
  601. T411:;
  602.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  603.     (V111->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
  604.     if(endp(V112=MMcdr(V112))){
  605.     V109= base[2];
  606.     goto T410;}
  607.     V111=MMcdr(V111)=MMcons(Cnil,Cnil);
  608.     goto T411;}
  609. T410:;
  610.     V110= Cnil;
  611.     V110= (*(LnkLI29))((V103));
  612.     base[2]= make_fixnum(length((V105)));
  613.     base[3]= VV[10];
  614.     base[4]= Ct;
  615.     vs_top=(vs_base=base+2)+3;
  616.     Lmake_list();
  617.     vs_top=sup;
  618.     V114= vs_base[0];
  619.     V115= (VFUN_NARGS=2,(*(LnkLI31))((V105),V114));
  620.     V105= (*(LnkLI30))(/* INLINE-ARGS */V115,(V103));
  621.     princ_str("\n    {object ",VV[11]);
  622.     (void)((*(LnkLI32))((V108)));
  623.     princ_char(59,VV[11]);
  624.     {register object V116;
  625.     object V117;
  626.     V116= (V109);
  627.     V117= car((V116));
  628. T430:;
  629.     if(!(endp((V116)))){
  630.     goto T431;}
  631.     goto T426;
  632. T431:;
  633.     princ_str("\n    object ",VV[11]);
  634.     (void)((*(LnkLI32))((V117)));
  635.     princ_str("= ",VV[11]);
  636.     (void)((*(LnkLI32))(car((V105))));
  637.     princ_char(59,VV[11]);
  638.     {object V118;
  639.     V118= car((V105));
  640.     V105= cdr((V105));}
  641.     V116= cdr((V116));
  642.     V117= car((V116));
  643.     goto T430;}
  644. T426:;
  645.     if((symbol_value(VV[12]))==Cnil){
  646.     goto T452;}
  647.     princ_str("\n    if(endp(",VV[11]);
  648.     (void)((*(LnkLI32))(car((V109))));
  649.     princ_char(41,VV[11]);
  650.     {register object V119;
  651.     object V120;
  652.     V119= cdr((V109));
  653.     V120= car((V119));
  654. T462:;
  655.     if(!(endp((V119)))){
  656.     goto T463;}
  657.     goto T458;
  658. T463:;
  659.     princ_str("||endp(",VV[11]);
  660.     (void)((*(LnkLI32))((V120)));
  661.     princ_char(41,VV[11]);
  662.     V119= cdr((V119));
  663.     V120= car((V119));
  664.     goto T462;}
  665. T458:;
  666.     princ_str("){",VV[11]);
  667.     goto T450;
  668. T452:;
  669.     princ_str("\n    if(",VV[11]);
  670.     (void)((*(LnkLI32))(car((V109))));
  671.     princ_str("==Cnil",VV[11]);
  672.     {register object V121;
  673.     object V122;
  674.     V121= cdr((V109));
  675.     V122= car((V121));
  676. T485:;
  677.     if(!(endp((V121)))){
  678.     goto T486;}
  679.     goto T481;
  680. T486:;
  681.     princ_str("||",VV[11]);
  682.     (void)((*(LnkLI32))((V122)));
  683.     princ_str("==Cnil",VV[11]);
  684.     V121= cdr((V121));
  685.     V122= car((V121));
  686.     goto T485;}
  687. T481:;
  688.     princ_str("){",VV[11]);
  689. T450:;
  690.     (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
  691.     princ_char(125,VV[11]);
  692.     princ_str("\n    ",VV[11]);
  693.     (void)((*(LnkLI32))((V107)));
  694.     princ_char(61,VV[11]);
  695.     (void)((*(LnkLI32))((V108)));
  696.     princ_str("=MMcons(Cnil,Cnil);",VV[11]);
  697.     if((cdr((V106)))==Cnil){
  698.     goto T509;}
  699.     princ_str("\nT",VV[11]);
  700.     (void)((*(LnkLI32))(car((V106))));
  701.     princ_str(":;",VV[11]);
  702. T509:;
  703.     bds_bind(VV[14],list(2,VV[21],cadr((V108))));
  704.     setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
  705.     bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
  706.     bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
  707.     if(((V104))==Cnil){
  708.     goto T523;}
  709.     {object V124;
  710.     object V125= (V109);
  711.     if(endp(V125)){
  712.     V123= Cnil;
  713.     goto T521;}
  714.     base[5]=V124=MMcons(Cnil,Cnil);
  715. T525:;{object V127;
  716.     V127= symbol_value(VV[19]);
  717.     (V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));}
  718.     if(endp(V125=MMcdr(V125))){
  719.     V123= base[5];
  720.     goto T521;}
  721.     V124=MMcdr(V124)=MMcons(Cnil,Cnil);
  722.     goto T525;}
  723. T523:;
  724.     {object V128;
  725.     object V129= (V109);
  726.     if(endp(V129)){
  727.     V123= Cnil;
  728.     goto T521;}
  729.     base[5]=V128=MMcons(Cnil,Cnil);
  730. T527:;
  731.     (V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car));
  732.     if(endp(V129=MMcdr(V129))){
  733.     V123= base[5];
  734.     goto T521;}
  735.     V128=MMcdr(V128)=MMcons(Cnil,Cnil);
  736.     goto T527;}
  737. T521:;
  738.     (void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110))));
  739.     if((cdr((VV[16]->s.s_dbind)))==Cnil){
  740.     bds_unwind1;
  741.     bds_unwind1;
  742.     bds_unwind1;
  743.     goto T515;}
  744.     princ_str("\nT",VV[11]);
  745.     (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
  746.     princ_str(":;",VV[11]);
  747.     bds_unwind1;
  748.     bds_unwind1;
  749.     bds_unwind1;
  750. T515:;
  751.     if((symbol_value(VV[12]))==Cnil){
  752.     goto T536;}
  753.     princ_str("\n    while(!endp(MMcdr(",VV[11]);
  754.     (void)((*(LnkLI32))((V108)));
  755.     princ_str(")))",VV[11]);
  756.     (void)((*(LnkLI32))((V108)));
  757.     princ_str("=MMcdr(",VV[11]);
  758.     (void)((*(LnkLI32))((V108)));
  759.     princ_str(");",VV[11]);
  760.     princ_str("\n    if(endp(",VV[11]);
  761.     (void)((*(LnkLI32))(car((V109))));
  762.     princ_str("=MMcdr(",VV[11]);
  763.     (void)((*(LnkLI32))(car((V109))));
  764.     princ_str("))",VV[11]);
  765.     {register object V131;
  766.     object V132;
  767.     V131= cdr((V109));
  768.     V132= car((V131));
  769. T556:;
  770.     if(!(endp((V131)))){
  771.     goto T557;}
  772.     goto T552;
  773. T557:;
  774.     princ_str("||endp(",VV[11]);
  775.     (void)((*(LnkLI32))((V132)));
  776.     princ_str("=MMcdr(",VV[11]);
  777.     (void)((*(LnkLI32))((V132)));
  778.     princ_str("))",VV[11]);
  779.     V131= cdr((V131));
  780.     V132= car((V131));
  781.     goto T556;}
  782. T552:;
  783.     princ_str("){",VV[11]);
  784.     goto T534;
  785. T536:;
  786.     princ_str("\n    while(MMcdr(",VV[11]);
  787.     (void)((*(LnkLI32))((V108)));
  788.     princ_str(")!=Cnil)",VV[11]);
  789.     (void)((*(LnkLI32))((V108)));
  790.     princ_str("=MMcdr(",VV[11]);
  791.     (void)((*(LnkLI32))((V108)));
  792.     princ_str(");",VV[11]);
  793.     princ_str("\n    if((",VV[11]);
  794.     (void)((*(LnkLI32))(car((V109))));
  795.     princ_str("=MMcdr(",VV[11]);
  796.     (void)((*(LnkLI32))(car((V109))));
  797.     princ_str("))==Cnil",VV[11]);
  798.     {register object V133;
  799.     object V134;
  800.     V133= cdr((V109));
  801.     V134= car((V133));
  802. T591:;
  803.     if(!(endp((V133)))){
  804.     goto T592;}
  805.     goto T587;
  806. T592:;
  807.     princ_str("||(",VV[11]);
  808.     (void)((*(LnkLI32))((V134)));
  809.     princ_str("=MMcdr(",VV[11]);
  810.     (void)((*(LnkLI32))((V134)));
  811.     princ_str("))==Cnil",VV[11]);
  812.     V133= cdr((V133));
  813.     V134= car((V133));
  814.     goto T591;}
  815. T587:;
  816.     princ_str("){",VV[11]);
  817. T534:;
  818.     princ_str("\n    ",VV[11]);
  819.     (void)((*(LnkLI32))((V107)));
  820.     princ_char(61,VV[11]);
  821.     (void)((*(LnkLI32))((V107)));
  822.     princ_str("->c.c_cdr;",VV[11]);
  823.     (void)((VFUN_NARGS=2,(*(LnkLI33))((V107),VV[13])));
  824.     princ_char(125,VV[11]);
  825.     princ_str("\n    ",VV[11]);
  826.     if(type_of((V106))!=t_cons)FEwrong_type_argument(Scons,(V106));
  827.     ((V106))->c.c_cdr = Ct;
  828.     princ_str("goto T",VV[11]);
  829.     (void)((*(LnkLI32))(car((V106))));
  830.     princ_char(59,VV[11]);
  831.     princ_char(125,VV[11]);
  832.     {object V135 = (*(LnkLI35))();
  833.     bds_unwind1;
  834.     bds_unwind1;
  835.     VMR10(V135)}}
  836. }
  837. /*    local entry for function PUSH-CHANGED-VARS    */
  838.  
  839. static object LI11(V138,V139)
  840.  
  841. object V138;object V139;
  842. {     VMB11 VMS11 VMV11
  843. TTL:;
  844.     {register object V140;
  845.     register object V141;
  846.     V140= Cnil;
  847.     V141= make_cons((V139),Cnil);
  848.     {register object V142;
  849.     register object V143;
  850.     V142= (V138);
  851.     V143= car((V142));
  852. T630:;
  853.     if(!(endp((V142)))){
  854.     goto T631;}
  855.     {object V144 = reverse((V140));
  856.     VMR11(V144)}
  857. T631:;
  858.     if(!(type_of((V143))==t_cons)){
  859.     goto T637;}
  860.     if(!((car((V143)))==(VV[22]))){
  861.     goto T637;}
  862.     if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){
  863.     goto T637;}
  864.     {register object V145;
  865.     V145= list(2,VV[7],(*(LnkLI28))());
  866.     princ_str("\n    ",VV[11]);
  867.     (void)((*(LnkLI32))((V145)));
  868.     princ_str("= ",VV[11]);
  869.     (void)((*(LnkLI32))((V143)));
  870.     princ_char(59,VV[11]);
  871.     V140= make_cons((V145),(V140));
  872.     goto T635;}
  873. T637:;
  874.     V140= make_cons((V143),(V140));
  875. T635:;
  876.     V142= cdr((V142));
  877.     V143= car((V142));
  878.     goto T630;}}
  879. }
  880. static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,2,ap);} /* ARGS-INFO-CHANGED-VARS */
  881. static object  LnkTLI35(){return call_proc0(VV[35],&LnkLI35);} /* CLOSE-INLINE-BLOCKS */
  882. static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],&LnkLI34,ap);} /* C2FUNCALL */
  883. static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[33],&LnkLI33,ap);} /* UNWIND-EXIT */
  884. static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,1,ap);} /* WT1 */
  885. static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* INLINE-ARGS */
  886. static object  LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],&LnkLI30,2,ap);} /* PUSH-CHANGED-VARS */
  887. static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[29],&LnkLI29,1,ap);} /* SAVE-FUNOB */
  888. static object  LnkTLI28(){return call_proc0(VV[28],&LnkLI28);} /* VS-PUSH */
  889. static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,2,ap);} /* C1ARGS */
  890. static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* COPY-INFO */
  891. static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,1,ap);} /* C1FUNOB */
  892. static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],&LnkLI24,3,ap);} /* TOO-FEW-ARGS */
  893. static object  LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],&LnkLI23,3,ap);} /* C1MAP-FUNCTIONS */
  894.