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 / cmpflet.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  23.6 KB  |  991 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpflet.h"
  4. init_cmpflet(){do_init(VV);}
  5. /*    local entry for function MAKE-FUN    */
  6.  
  7. static object LI1(va_alist)
  8.     va_dcl 
  9. {    
  10.     va_list ap;
  11.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  12.     {object V1;
  13.     object V2;
  14.     object V3;
  15.     object V4;
  16.     object V5;
  17.     narg= narg - 0;
  18.     va_start(ap);
  19.     {
  20.     parse_key_new(narg,Vcs +0,&LI1key,ap);
  21.     V1=(Vcs[0]);
  22.     V2=(Vcs[1]);
  23.     V3=(Vcs[2]);
  24.     V4=(Vcs[3]);
  25.     V5=(Vcs[4]);
  26.     base[0]= VV[0];
  27.     base[1]= (V1);
  28.     base[2]= (V2);
  29.     base[3]= (V3);
  30.     base[4]= (V4);
  31.     base[5]= (V5);
  32.     vs_top=(vs_base=base+0)+6;
  33.     siLmake_structure();
  34.     vs_top=sup;
  35.     {object V6 = vs_base[0];
  36.     VMR1(V6)}}
  37.     }}
  38. /*    local entry for function C1FLET    */
  39.  
  40. static object LI2(V8)
  41.  
  42. object V8;
  43. {     VMB2 VMS2 VMV2
  44.     bds_check;
  45. TTL:;
  46.     {object V9;
  47.     object V10;
  48.     object V11;
  49.     object V12;
  50.     object V13;
  51.     object V14;
  52.     object V15;
  53.     object V16;
  54.     object V17;
  55.     V9= Cnil;
  56.     V10= Cnil;
  57.     V11= Cnil;
  58.     V12= Cnil;
  59.     V13= Cnil;
  60.     V14= Cnil;
  61.     V15= Cnil;
  62.     V16= Cnil;
  63.     V17= Cnil;
  64.     if(!(endp((V8)))){
  65.     goto T16;}
  66.     (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));
  67. T16:;
  68.     bds_bind(VV[2],symbol_value(VV[2]));
  69.     {register object V18;
  70.     register object V19;
  71.     V18= car((V8));
  72.     V19= car((V18));
  73. T24:;
  74.     if(!(endp((V18)))){
  75.     goto T25;}
  76.     goto T20;
  77. T25:;
  78.     if(endp((V19))){
  79.     goto T30;}
  80.     if(!(type_of(car((V19)))==t_symbol)){
  81.     goto T30;}
  82.     if(!(endp(cdr((V19))))){
  83.     goto T29;}
  84. T30:;
  85.     (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19))));
  86. T29:;
  87.     {object V20;
  88.     V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));
  89.     (VV[2]->s.s_dbind)= make_cons((V20),(VV[2]->s.s_dbind));
  90.     V21= list(2,(V20),cdr((V19)));
  91.     V15= make_cons(/* INLINE-ARGS */V21,(V15));}
  92.     V18= cdr((V18));
  93.     V19= car((V18));
  94.     goto T24;}
  95. T20:;
  96.     base[1]= cdr((V8));
  97.     base[2]= Ct;
  98.     vs_top=(vs_base=base+1)+2;
  99.     (void) (*Lnk45)();
  100.     if(vs_base<vs_top){
  101.     V9= vs_base[0];
  102.     vs_base++;
  103.     }else{
  104.     V9= Cnil;}
  105.     if(vs_base<vs_top){
  106.     V10= vs_base[0];
  107.     vs_base++;
  108.     }else{
  109.     V10= Cnil;}
  110.     if(vs_base<vs_top){
  111.     V11= vs_base[0];
  112.     vs_base++;
  113.     }else{
  114.     V11= Cnil;}
  115.     if(vs_base<vs_top){
  116.     V12= vs_base[0];
  117.     vs_base++;
  118.     }else{
  119.     V12= Cnil;}
  120.     if(vs_base<vs_top){
  121.     V13= vs_base[0];
  122.     }else{
  123.     V13= Cnil;}
  124.     vs_top=sup;
  125.     bds_bind(VV[7],symbol_value(VV[7]));
  126.     (void)((*(LnkLI46))((V10)));
  127.     (void)((*(LnkLI47))(Cnil,(V11),(V12)));
  128.     V9= (*(LnkLI48))((V13),(V9));
  129.     bds_unwind1;
  130.     base[1]= cadr((V9));
  131.     vs_top=(vs_base=base+1)+1;
  132.     (void) (*Lnk49)();
  133.     vs_top=sup;
  134.     V14= vs_base[0];
  135.     bds_unwind1;
  136.     {register object V22;
  137.     register object V23;
  138.     V22= reverse((V15));
  139.     V23= car((V22));
  140. T60:;
  141.     if(!(endp((V22)))){
  142.     goto T61;}
  143.     goto T56;
  144. T61:;
  145.     if((structure_ref(car((V23)),VV[0],2))==Cnil){
  146.     goto T65;}
  147.     base[2]= make_cons(VV[8],symbol_value(VV[7]));
  148.     base[3]= make_cons(VV[8],symbol_value(VV[2]));
  149.     base[4]= make_cons(VV[8],symbol_value(VV[9]));
  150.     base[5]= make_cons(VV[8],symbol_value(VV[10]));
  151.     bds_bind(VV[7],base[2]);
  152.     bds_bind(VV[2],base[3]);
  153.     bds_bind(VV[9],base[4]);
  154.     bds_bind(VV[10],base[5]);
  155.     {object V24;
  156.     V25= cadr((V23));
  157.     V26= structure_ref(car((V23)),VV[0],0);
  158.     V24= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26));
  159.     (void)((*(LnkLI51))((V14),cadr((V24))));
  160.     V27= list(2,car((V23)),(V24));
  161.     V17= make_cons(/* INLINE-ARGS */V27,(V17));
  162.     bds_unwind1;
  163.     bds_unwind1;
  164.     bds_unwind1;
  165.     bds_unwind1;}
  166. T65:;
  167.     if((structure_ref(car((V23)),VV[0],1))==Cnil){
  168.     goto T75;}
  169.     base[2]= make_cons(VV[11],symbol_value(VV[9]));
  170.     base[3]= make_cons(VV[11],symbol_value(VV[10]));
  171.     base[4]= make_cons(VV[11],symbol_value(VV[7]));
  172.     bds_bind(VV[9],base[2]);
  173.     bds_bind(VV[10],base[3]);
  174.     bds_bind(VV[7],base[4]);
  175.     {object V28;
  176.     V29= cadr((V23));
  177.     V30= structure_ref(car((V23)),VV[0],0);
  178.     V28= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V29,/* INLINE-ARGS */V30));
  179.     (void)((*(LnkLI51))((V14),cadr((V28))));
  180.     V31= list(2,car((V23)),(V28));
  181.     V16= make_cons(/* INLINE-ARGS */V31,(V16));
  182.     bds_unwind1;
  183.     bds_unwind1;
  184.     bds_unwind1;}
  185. T75:;
  186.     if((structure_ref(car((V23)),VV[0],1))!=Cnil){
  187.     goto T85;}
  188.     if((structure_ref(car((V23)),VV[0],2))==Cnil){
  189.     goto T84;}
  190. T85:;
  191.     V32= car((V23));
  192.     setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
  193.     (void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12])));
  194. T84:;
  195.     V22= cdr((V22));
  196.     V23= car((V22));
  197.     goto T60;}
  198. T56:;
  199.     if(((V16))!=Cnil){
  200.     goto T95;}
  201.     if(((V17))==Cnil){
  202.     goto T96;}
  203. T95:;
  204.     V33= reverse((V16));
  205.     {object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9));
  206.     VMR2(V34)}
  207. T96:;
  208.     {object V35 = (V9);
  209.     VMR2(V35)}}
  210. }
  211. /*    function definition for C2FLET    */
  212.  
  213. static L3()
  214. {register object *base=vs_base;
  215.     register object *sup=base+VM3; VC3
  216.     vs_reserve(VM3);
  217.     bds_check;
  218.     {object V36;
  219.     object V37;
  220.     object V38;
  221.     check_arg(3);
  222.     V36=(base[0]);
  223.     V37=(base[1]);
  224.     V38=(base[2]);
  225.     vs_top=sup;
  226. TTL:;
  227.     bds_bind(VV[13],symbol_value(VV[13]));
  228.     bds_bind(VV[14],symbol_value(VV[14]));
  229.     bds_bind(VV[15],symbol_value(VV[15]));
  230.     {register object V39;
  231.     object V40;
  232.     V39= (V36);
  233.     V40= car((V39));
  234. T104:;
  235.     if(!(endp((V39)))){
  236.     goto T105;}
  237.     goto T100;
  238. T105:;
  239.     (void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41;
  240.     V41= (VV[14]->s.s_dbind);{object V42;
  241.     V42= (VV[15]->s.s_dbind);
  242.     V43= list(5,Cnil,V41,V42,car((V40)),cadr((V40)));
  243.     setq(VV[17],make_cons(/* INLINE-ARGS */V43,symbol_value(VV[17])));}}
  244.     V39= cdr((V39));
  245.     V40= car((V39));
  246.     goto T104;}
  247. T100:;
  248.     {register object V44;
  249.     register object V45;
  250.     V44= (V37);
  251.     V45= car((V44));
  252. T121:;
  253.     if(!(endp((V44)))){
  254.     goto T122;}
  255.     goto T117;
  256. T122:;
  257.     if(((VV[14]->s.s_dbind))!=Cnil){
  258.     goto T130;}
  259.     V46= Cnil;
  260.     goto T128;
  261. T130:;
  262.     V46= make_cons(small_fixnum(0),small_fixnum(0));
  263. T128:;{object V47;
  264.     V47= (VV[15]->s.s_dbind);
  265.     V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45)));
  266.     setq(VV[17],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[17])));}
  267.     setq(VV[19],make_cons(car((V45)),symbol_value(VV[19])));
  268.     {register object V49;
  269.     V49= car((V45));
  270.     V50= (*(LnkLI52))();
  271.     (void)(structure_set((V49),VV[0],1,/* INLINE-ARGS */V50));
  272.     princ_str("\n    ",VV[20]);
  273.     V51= structure_ref((V49),VV[0],1);
  274.     (void)((*(LnkLI53))(/* INLINE-ARGS */V51));
  275.     princ_str("=make_cclosure_new(LC",VV[20]);
  276.     V52= structure_ref((V49),VV[0],3);
  277.     (void)((*(LnkLI54))(/* INLINE-ARGS */V52));
  278.     princ_str(",Cnil,",VV[20]);
  279.     (void)((VFUN_NARGS=0,(*(LnkLI55))()));
  280.     princ_str(",Cdata);",VV[20]);
  281.     princ_str("\n    ",VV[20]);
  282.     V53= structure_ref((V49),VV[0],1);
  283.     (void)((*(LnkLI53))(/* INLINE-ARGS */V53));
  284.     princ_str("=MMcons(",VV[20]);
  285.     V54= structure_ref((V49),VV[0],1);
  286.     (void)((*(LnkLI53))(/* INLINE-ARGS */V54));
  287.     princ_char(44,VV[20]);
  288.     (void)((VFUN_NARGS=0,(*(LnkLI55))()));
  289.     princ_str(");",VV[20]);
  290.     V55= structure_ref((V49),VV[0],1);
  291.     (void)((*(LnkLI56))(/* INLINE-ARGS */V55));
  292.     V56= (*(LnkLI57))();
  293.     (void)(structure_set((V49),VV[0],2,/* INLINE-ARGS */V56));}
  294.     V44= cdr((V44));
  295.     V45= car((V44));
  296.     goto T121;}
  297. T117:;
  298.     base[6]= (V38);
  299.     vs_top=(vs_base=base+6)+1;
  300.     (void) (*Lnk58)();
  301.     bds_unwind1;
  302.     bds_unwind1;
  303.     bds_unwind1;
  304.     return;
  305.     }
  306. }
  307. /*    local entry for function C1LABELS    */
  308.  
  309. static object LI4(V58)
  310.  
  311. object V58;
  312. {     VMB4 VMS4 VMV4
  313.     bds_check;
  314. TTL:;
  315.     {object V59;
  316.     object V60;
  317.     object V61;
  318.     object V62;
  319.     object V63;
  320.     object V64;
  321.     object V65;
  322.     object V66;
  323.     object V67;
  324.     object V68;
  325.     register object V69;
  326.     V59= Cnil;
  327.     V60= Cnil;
  328.     V61= Cnil;
  329.     V62= Cnil;
  330.     V63= Cnil;
  331.     V64= Cnil;
  332.     V65= Cnil;
  333.     V66= Cnil;
  334.     V67= Cnil;
  335.     V68= Cnil;
  336.     V69= Cnil;
  337.     bds_bind(VV[2],symbol_value(VV[2]));
  338.     if(!(endp((V58)))){
  339.     goto T174;}
  340.     (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
  341. T174:;
  342.     {object V70;
  343.     register object V71;
  344.     V70= car((V58));
  345.     V71= car((V70));
  346. T181:;
  347.     if(!(endp((V70)))){
  348.     goto T182;}
  349.     goto T177;
  350. T182:;
  351.     if(endp((V71))){
  352.     goto T187;}
  353.     if(!(type_of(car((V71)))==t_symbol)){
  354.     goto T187;}
  355.     if(!(endp(cdr((V71))))){
  356.     goto T186;}
  357. T187:;
  358.     (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71))));
  359. T186:;
  360.     {register object x= car((V71)),V72= (V68);
  361.     while(!endp(V72))
  362.     if(eql(x,V72->c.c_car)){
  363.     goto T195;
  364.     }else V72=V72->c.c_cdr;
  365.     goto T193;}
  366. T195:;
  367.     (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71)))));
  368. T193:;
  369.     V68= make_cons(car((V71)),(V68));
  370.     {object V73;
  371.     V73= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V71)),VV[5],Cnil,VV[6],Cnil));
  372.     (VV[2]->s.s_dbind)= make_cons((V73),(VV[2]->s.s_dbind));
  373.     V74= list(4,(V73),Cnil,Cnil,cdr((V71)));
  374.     V65= make_cons(/* INLINE-ARGS */V74,(V65));}
  375.     V70= cdr((V70));
  376.     V71= car((V70));
  377.     goto T181;}
  378. T177:;
  379.     V65= reverse((V65));
  380.     base[1]= cdr((V58));
  381.     base[2]= Ct;
  382.     vs_top=(vs_base=base+1)+2;
  383.     (void) (*Lnk45)();
  384.     if(vs_base<vs_top){
  385.     V59= vs_base[0];
  386.     vs_base++;
  387.     }else{
  388.     V59= Cnil;}
  389.     if(vs_base<vs_top){
  390.     V60= vs_base[0];
  391.     vs_base++;
  392.     }else{
  393.     V60= Cnil;}
  394.     if(vs_base<vs_top){
  395.     V61= vs_base[0];
  396.     vs_base++;
  397.     }else{
  398.     V61= Cnil;}
  399.     if(vs_base<vs_top){
  400.     V62= vs_base[0];
  401.     vs_base++;
  402.     }else{
  403.     V62= Cnil;}
  404.     if(vs_base<vs_top){
  405.     V63= vs_base[0];
  406.     }else{
  407.     V63= Cnil;}
  408.     vs_top=sup;
  409.     bds_bind(VV[7],symbol_value(VV[7]));
  410.     (void)((*(LnkLI46))((V60)));
  411.     (void)((*(LnkLI47))(Cnil,(V61),(V62)));
  412.     V59= (*(LnkLI48))((V63),(V59));
  413.     bds_unwind1;
  414.     base[1]= cadr((V59));
  415.     vs_top=(vs_base=base+1)+1;
  416.     (void) (*Lnk49)();
  417.     vs_top=sup;
  418.     V64= vs_base[0];
  419. T223:;
  420.     V69= Cnil;
  421.     {register object V75;
  422.     register object V76;
  423.     V75= (V65);
  424.     V76= car((V75));
  425. T231:;
  426.     if(!(endp((V75)))){
  427.     goto T232;}
  428.     goto T227;
  429. T232:;
  430.     if((structure_ref(car((V76)),VV[0],1))==Cnil){
  431.     goto T236;}
  432.     if((cadr((V76)))!=Cnil){
  433.     goto T236;}
  434.     V69= Ct;
  435.     if(type_of(cdr(V76))!=t_cons)FEwrong_type_argument(Scons,cdr(V76));
  436.     (cdr(V76))->c.c_car = Ct;
  437.     (void)(cdr(V76));
  438.     base[2]= make_cons(VV[11],symbol_value(VV[9]));
  439.     base[3]= make_cons(VV[11],symbol_value(VV[10]));
  440.     base[4]= make_cons(VV[11],symbol_value(VV[7]));
  441.     bds_bind(VV[9],base[2]);
  442.     bds_bind(VV[10],base[3]);
  443.     bds_bind(VV[7],base[4]);
  444.     {object V79;
  445.     V80= cadddr((V76));
  446.     V81= structure_ref(car((V76)),VV[0],0);
  447.     V79= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V80,/* INLINE-ARGS */V81));
  448.     (void)((*(LnkLI51))((V64),cadr((V79))));
  449.     V82= list(2,car((V76)),(V79));
  450.     V66= make_cons(/* INLINE-ARGS */V82,(V66));
  451.     bds_unwind1;
  452.     bds_unwind1;
  453.     bds_unwind1;}
  454. T236:;
  455.     V75= cdr((V75));
  456.     V76= car((V75));
  457.     goto T231;}
  458. T227:;
  459.     if(((V69))!=Cnil){
  460.     goto T224;}
  461.     goto T221;
  462. T224:;
  463.     goto T223;
  464. T221:;
  465. T261:;
  466.     V69= Cnil;
  467.     {register object V83;
  468.     register object V84;
  469.     V83= (V65);
  470.     V84= car((V83));
  471. T269:;
  472.     if(!(endp((V83)))){
  473.     goto T270;}
  474.     goto T265;
  475. T270:;
  476.     if((structure_ref(car((V84)),VV[0],2))==Cnil){
  477.     goto T274;}
  478.     if((caddr((V84)))!=Cnil){
  479.     goto T274;}
  480.     V69= Ct;
  481.     if(type_of(cddr(V84))!=t_cons)FEwrong_type_argument(Scons,cddr(V84));
  482.     (cddr(V84))->c.c_car = Ct;
  483.     (void)(cddr(V84));
  484.     base[2]= make_cons(VV[8],symbol_value(VV[7]));
  485.     base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
  486.     base[4]= make_cons(VV[8],symbol_value(VV[9]));
  487.     base[5]= make_cons(VV[8],symbol_value(VV[10]));
  488.     bds_bind(VV[7],base[2]);
  489.     bds_bind(VV[2],base[3]);
  490.     bds_bind(VV[9],base[4]);
  491.     bds_bind(VV[10],base[5]);
  492.     {object V87;
  493.     V88= cadddr((V84));
  494.     V89= structure_ref(car((V84)),VV[0],0);
  495.     V87= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V88,/* INLINE-ARGS */V89));
  496.     (void)((*(LnkLI51))((V64),cadr((V87))));
  497.     V90= list(2,car((V84)),(V87));
  498.     V67= make_cons(/* INLINE-ARGS */V90,(V67));
  499.     bds_unwind1;
  500.     bds_unwind1;
  501.     bds_unwind1;
  502.     bds_unwind1;}
  503. T274:;
  504.     V83= cdr((V83));
  505.     V84= car((V83));
  506.     goto T269;}
  507. T265:;
  508.     if(((V69))!=Cnil){
  509.     goto T262;}
  510.     goto T259;
  511. T262:;
  512.     goto T261;
  513. T259:;
  514.     {object V91;
  515.     object V92;
  516.     V91= (V65);
  517.     V92= car((V91));
  518. T302:;
  519.     if(!(endp((V91)))){
  520.     goto T303;}
  521.     goto T298;
  522. T303:;
  523.     if((structure_ref(car((V92)),VV[0],1))!=Cnil){
  524.     goto T308;}
  525.     if((structure_ref(car((V92)),VV[0],2))==Cnil){
  526.     goto T307;}
  527. T308:;
  528.     V93= car((V92));
  529.     setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
  530.     (void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12])));
  531. T307:;
  532.     V91= cdr((V91));
  533.     V92= car((V91));
  534.     goto T302;}
  535. T298:;
  536.     if(((V66))!=Cnil){
  537.     goto T318;}
  538.     if(((V67))==Cnil){
  539.     goto T319;}
  540. T318:;
  541.     V94= reverse((V66));
  542.     {object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59));
  543.     bds_unwind1;
  544.     VMR4(V95)}
  545. T319:;
  546.     {object V96 = (V59);
  547.     bds_unwind1;
  548.     VMR4(V96)}}
  549. }
  550. /*    function definition for C2LABELS    */
  551.  
  552. static L5()
  553. {register object *base=vs_base;
  554.     register object *sup=base+VM5; VC5
  555.     vs_reserve(VM5);
  556.     bds_check;
  557.     {object V97;
  558.     object V98;
  559.     object V99;
  560.     check_arg(3);
  561.     V97=(base[0]);
  562.     V98=(base[1]);
  563.     V99=(base[2]);
  564.     vs_top=sup;
  565. TTL:;
  566.     bds_bind(VV[13],symbol_value(VV[13]));
  567.     bds_bind(VV[14],symbol_value(VV[14]));
  568.     {register object V100;
  569.     object V101;
  570.     V100= (V98);
  571.     V101= car((V100));
  572. T327:;
  573.     if(!(endp((V100)))){
  574.     goto T328;}
  575.     goto T323;
  576. T328:;
  577.     {register object V102;
  578.     V102= car((V101));
  579.     V103= (*(LnkLI52))();
  580.     (void)(structure_set((V102),VV[0],1,/* INLINE-ARGS */V103));
  581.     princ_str("\n    ",VV[20]);
  582.     V104= structure_ref((V102),VV[0],1);
  583.     (void)((*(LnkLI53))(/* INLINE-ARGS */V104));
  584.     princ_str("=MMcons(Cnil,",VV[20]);
  585.     (void)((VFUN_NARGS=0,(*(LnkLI55))()));
  586.     princ_str(");",VV[20]);
  587.     V105= structure_ref((V102),VV[0],1);
  588.     (void)((*(LnkLI56))(/* INLINE-ARGS */V105));
  589.     V106= (*(LnkLI57))();
  590.     (void)(structure_set((V102),VV[0],2,/* INLINE-ARGS */V106));}
  591.     V100= cdr((V100));
  592.     V101= car((V100));
  593.     goto T327;}
  594. T323:;
  595.     {register object V107;
  596.     object V108;
  597.     V107= (V97);
  598.     V108= car((V107));
  599. T352:;
  600.     if(!(endp((V107)))){
  601.     goto T353;}
  602.     goto T348;
  603. T353:;
  604.     (void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109;
  605.     V109= (VV[14]->s.s_dbind);{object V110;
  606.     V110= symbol_value(VV[15]);
  607.     V111= list(5,Cnil,V109,V110,car((V108)),cadr((V108)));
  608.     setq(VV[17],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[17])));}}
  609.     V107= cdr((V107));
  610.     V108= car((V107));
  611.     goto T352;}
  612. T348:;
  613.     {register object V112;
  614.     register object V113;
  615.     V112= (V98);
  616.     V113= car((V112));
  617. T369:;
  618.     if(!(endp((V112)))){
  619.     goto T370;}
  620.     goto T365;
  621. T370:;
  622.     if(((VV[14]->s.s_dbind))!=Cnil){
  623.     goto T378;}
  624.     V114= Cnil;
  625.     goto T376;
  626. T378:;
  627.     V114= make_cons(small_fixnum(0),small_fixnum(0));
  628. T376:;{object V115;
  629.     V115= symbol_value(VV[15]);
  630.     V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113)));
  631.     setq(VV[17],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[17])));}
  632.     setq(VV[19],make_cons(car((V113)),symbol_value(VV[19])));
  633.     princ_str("\n    ",VV[20]);
  634.     V117= structure_ref(car((V113)),VV[0],1);
  635.     (void)((*(LnkLI59))(/* INLINE-ARGS */V117));
  636.     princ_str("=make_cclosure_new(LC",VV[20]);
  637.     V118= structure_ref(car((V113)),VV[0],3);
  638.     (void)((*(LnkLI54))(/* INLINE-ARGS */V118));
  639.     princ_str(",Cnil,",VV[20]);
  640.     (void)((VFUN_NARGS=0,(*(LnkLI55))()));
  641.     princ_str(",Cdata);",VV[20]);
  642.     V112= cdr((V112));
  643.     V113= car((V112));
  644.     goto T369;}
  645. T365:;
  646.     base[5]= (V99);
  647.     vs_top=(vs_base=base+5)+1;
  648.     (void) (*Lnk58)();
  649.     bds_unwind1;
  650.     bds_unwind1;
  651.     return;
  652.     }
  653. }
  654. /*    local entry for function C1MACROLET    */
  655.  
  656. static object LI6(V120)
  657.  
  658. object V120;
  659. {     VMB6 VMS6 VMV6
  660.     bds_check;
  661. TTL:;
  662.     {object V121;
  663.     object V122;
  664.     object V123;
  665.     object V124;
  666.     object V125;
  667.     V121= Cnil;
  668.     V122= Cnil;
  669.     V123= Cnil;
  670.     V124= Cnil;
  671.     V125= Cnil;
  672.     bds_bind(VV[2],symbol_value(VV[2]));
  673.     bds_bind(VV[7],symbol_value(VV[7]));
  674.     if(!(endp((V120)))){
  675.     goto T402;}
  676.     (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
  677. T402:;
  678.     {register object V126;
  679.     register object V127;
  680.     V126= car((V120));
  681.     V127= car((V126));
  682. T409:;
  683.     if(!(endp((V126)))){
  684.     goto T410;}
  685.     goto T405;
  686. T410:;
  687.     if(endp((V127))){
  688.     goto T415;}
  689.     if(!(type_of(car((V127)))==t_symbol)){
  690.     goto T415;}
  691.     if(!(endp(cdr((V127))))){
  692.     goto T414;}
  693. T415:;
  694.     (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127))));
  695. T414:;
  696.     V128= car((V127));
  697.     V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127)));
  698.     V130= list(2,/* INLINE-ARGS */V128,caddr(/* INLINE-ARGS */V129));
  699.     (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V130,(VV[2]->s.s_dbind));
  700.     V126= cdr((V126));
  701.     V127= car((V126));
  702.     goto T409;}
  703. T405:;
  704.     base[2]= cdr((V120));
  705.     base[3]= Ct;
  706.     vs_top=(vs_base=base+2)+2;
  707.     (void) (*Lnk45)();
  708.     if(vs_base<vs_top){
  709.     V121= vs_base[0];
  710.     vs_base++;
  711.     }else{
  712.     V121= Cnil;}
  713.     if(vs_base<vs_top){
  714.     V122= vs_base[0];
  715.     vs_base++;
  716.     }else{
  717.     V122= Cnil;}
  718.     if(vs_base<vs_top){
  719.     V123= vs_base[0];
  720.     vs_base++;
  721.     }else{
  722.     V123= Cnil;}
  723.     if(vs_base<vs_top){
  724.     V124= vs_base[0];
  725.     vs_base++;
  726.     }else{
  727.     V124= Cnil;}
  728.     if(vs_base<vs_top){
  729.     V125= vs_base[0];
  730.     }else{
  731.     V125= Cnil;}
  732.     vs_top=sup;
  733.     (void)((*(LnkLI46))((V122)));
  734.     (void)((*(LnkLI47))(Cnil,(V123),(V124)));
  735.     {object V131 = (*(LnkLI48))((V125),(V121));
  736.     bds_unwind1;
  737.     bds_unwind1;
  738.     VMR6(V131)}}
  739. }
  740. /*    local entry for function C1LOCAL-FUN    */
  741.  
  742. static object LI7(V133)
  743.  
  744. register object V133;
  745. {     VMB7 VMS7 VMV7
  746. TTL:;
  747.     {register object V134;
  748.     V134= Cnil;
  749.     {register object V135;
  750.     register object V136;
  751.     V135= symbol_value(VV[2]);
  752.     V136= car((V135));
  753. T438:;
  754.     if(!(endp((V135)))){
  755.     goto T439;}
  756.     {object V137 = Cnil;
  757.     VMR7(V137)}
  758. T439:;
  759.     if(!(((V136))==(VV[8]))){
  760.     goto T445;}
  761.     V134= Ct;
  762.     goto T443;
  763. T445:;
  764.     if(!(type_of((V136))==t_cons)){
  765.     goto T449;}
  766.     if(!((car((V136)))==((V133)))){
  767.     goto T443;}
  768.     {object V138 = cadr((V136));
  769.     VMR7(V138)}
  770. T449:;
  771.     V139= structure_ref((V136),VV[0],0);
  772.     if(!((/* INLINE-ARGS */V139)==((V133)))){
  773.     goto T443;}
  774.     if(((V134))==Cnil){
  775.     goto T457;}
  776.     (void)(structure_set((V136),VV[0],2,Ct));
  777.     goto T455;
  778. T457:;
  779.     (void)(structure_set((V136),VV[0],1,Ct));
  780. T455:;
  781.     {object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134));
  782.     VMR7(V140)}
  783. T443:;
  784.     V135= cdr((V135));
  785.     V136= car((V135));
  786.     goto T438;}}
  787. }
  788. /*    local entry for function SCH-LOCAL-FUN    */
  789.  
  790. static object LI8(V142)
  791.  
  792. register object V142;
  793. {     VMB8 VMS8 VMV8
  794. TTL:;
  795.     {register object V143;
  796.     register object V144;
  797.     V143= symbol_value(VV[2]);
  798.     V144= car((V143));
  799. T467:;
  800.     if(!(endp((V143)))){
  801.     goto T468;}
  802.     {object V145 = (V142);
  803.     VMR8(V145)}
  804. T468:;
  805.     if(((V144))==(VV[8])){
  806.     goto T472;}
  807.     if(type_of((V144))==t_cons){
  808.     goto T472;}
  809.     V146= structure_ref((V144),VV[0],0);
  810.     if(!((/* INLINE-ARGS */V146)==((V142)))){
  811.     goto T472;}
  812.     {object V147 = (V144);
  813.     VMR8(V147)}
  814. T472:;
  815.     V143= cdr((V143));
  816.     V144= car((V143));
  817.     goto T467;}
  818. }
  819. /*    local entry for function C1LOCAL-CLOSURE    */
  820.  
  821. static object LI9(V149)
  822.  
  823. register object V149;
  824. {     VMB9 VMS9 VMV9
  825. TTL:;
  826.     {register object V150;
  827.     V150= Cnil;
  828.     {register object V151;
  829.     register object V152;
  830.     V151= symbol_value(VV[2]);
  831.     V152= car((V151));
  832. T488:;
  833.     if(!(endp((V151)))){
  834.     goto T489;}
  835.     {object V153 = Cnil;
  836.     VMR9(V153)}
  837. T489:;
  838.     if(!(((V152))==(VV[8]))){
  839.     goto T495;}
  840.     V150= Ct;
  841.     goto T493;
  842. T495:;
  843.     if(!(type_of((V152))==t_cons)){
  844.     goto T499;}
  845.     if(!((car((V152)))==((V149)))){
  846.     goto T493;}
  847.     {object V154 = cadr((V152));
  848.     VMR9(V154)}
  849. T499:;
  850.     V155= structure_ref((V152),VV[0],0);
  851.     if(!((/* INLINE-ARGS */V155)==((V149)))){
  852.     goto T493;}
  853.     (void)(structure_set((V152),VV[0],2,Ct));
  854.     {object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150));
  855.     VMR9(V156)}
  856. T493:;
  857.     V151= cdr((V151));
  858.     V152= car((V151));
  859.     goto T488;}}
  860. }
  861. /*    local entry for function C2CALL-LOCAL    */
  862.  
  863. static object LI10(V159,V160)
  864.  
  865. register object V159;register object V160;
  866. {     VMB10 VMS10 VMV10
  867.     bds_check;
  868. TTL:;
  869.     bds_bind(VV[13],symbol_value(VV[13]));
  870.     if((cadr((V159)))==Cnil){
  871.     goto T513;}
  872.     (void)((*(LnkLI61))((V160)));
  873.     princ_str("\n    cclosure_call(",VV[20]);
  874.     V161= structure_ref(car((V159)),VV[0],2);
  875.     (void)((*(LnkLI62))(/* INLINE-ARGS */V161));
  876.     princ_str(");",VV[20]);
  877.     goto T511;
  878. T513:;
  879.     if(!(type_of((V160))==t_cons||((V160))==Cnil)){
  880.     goto T521;}
  881.     if((symbol_value(VV[28]))==Cnil){
  882.     goto T521;}
  883.     if((symbol_value(VV[29]))==Cnil){
  884.     goto T521;}
  885.     if(!((car(symbol_value(VV[29])))==(car((V159))))){
  886.     goto T521;}
  887.     if(!((symbol_value(VV[30]))==(VV[31]))){
  888.     goto T521;}
  889.     if(((*(LnkLI63))())==Cnil){
  890.     goto T521;}
  891.     if(!((length((V160)))==(length(cdr(symbol_value(VV[29])))))){
  892.     goto T521;}
  893.     bds_bind(VV[32],VV[33]);
  894.     setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));
  895.     bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));
  896.     bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));
  897.     {object V163;
  898.     object V164= cdr(symbol_value(VV[29]));
  899.     if(endp(V164)){
  900.     V162= Cnil;
  901.     goto T540;}
  902.     base[4]=V163=MMcons(Cnil,Cnil);
  903. T541:;
  904.     (V163->c.c_car)= list(2,(V164->c.c_car),Cnil);
  905.     if(endp(V164=MMcdr(V164))){
  906.     V162= base[4];
  907.     goto T540;}
  908.     V163=MMcdr(V163)=MMcons(Cnil,Cnil);
  909.     goto T541;}
  910. T540:;
  911.     (void)((*(LnkLI64))(V162,(V160)));
  912.     if((cdr((VV[30]->s.s_dbind)))==Cnil){
  913.     bds_unwind1;
  914.     bds_unwind1;
  915.     bds_unwind1;
  916.     goto T535;}
  917.     princ_str("\nT",VV[20]);
  918.     (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
  919.     princ_str(":;",VV[20]);
  920.     bds_unwind1;
  921.     bds_unwind1;
  922.     bds_unwind1;
  923. T535:;
  924.     (void)((*(LnkLI65))(VV[36]));
  925.     princ_str("\n    goto TTL;",VV[20]);
  926.     V166= structure_ref(car((V159)),VV[0],0);
  927.     (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166)));
  928.     goto T511;
  929. T521:;
  930.     (void)((*(LnkLI61))((V160)));
  931.     princ_str("\n    L",VV[20]);
  932.     V167= structure_ref(car((V159)),VV[0],3);
  933.     (void)((*(LnkLI54))(/* INLINE-ARGS */V167));
  934.     princ_char(40,VV[20]);
  935.     {register int V168;
  936.     register int V169;
  937.     V168= fix(structure_ref(car((V159)),VV[0],4));
  938.     V169= 0;
  939. T560:;
  940.     if(!((V169)>=(V168))){
  941.     goto T561;}
  942.     goto T556;
  943. T561:;
  944.     princ_str("base",VV[20]);
  945.     V170 = make_fixnum(V169);
  946.     (void)((*(LnkLI54))(V170));
  947.     princ_char(44,VV[20]);
  948.     V169= (V169)+1;
  949.     goto T560;}
  950. T556:;
  951.     princ_str("base",VV[20]);
  952.     V171= structure_ref(car((V159)),VV[0],4);
  953.     if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){
  954.     goto T574;}
  955.     V172= structure_ref(car((V159)),VV[0],4);
  956.     (void)((*(LnkLI54))(/* INLINE-ARGS */V172));
  957. T574:;
  958.     princ_str(");",VV[20]);
  959.     setq(VV[38],Ct);
  960. T511:;
  961.     {object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
  962.     bds_unwind1;
  963.     VMR10(V173)}
  964. }
  965. static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* UNWIND-EXIT */
  966. static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* CMPNOTE */
  967. static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */
  968. static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* C2PSETQ */
  969. static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
  970. static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,1,ap);} /* WT-CCB-VS */
  971. static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* PUSH-ARGS */
  972. static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* DEFMACRO* */
  973. static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-VS* */
  974. static LnkT58(){ call_or_link(VV[58],&Lnk58);} /* C2EXPR */
  975. static object  LnkTLI57(){return call_proc0(VV[57],&LnkLI57);} /* CCB-VS-PUSH */
  976. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* CLINK */
  977. static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* WT-CLINK */
  978. static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */
  979. static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* WT-VS */
  980. static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* VS-PUSH */
  981. static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,2,ap);} /* ADD-INFO */
  982. static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* C1LAMBDA-EXPR */
  983. static LnkT49(){ call_or_link(VV[49],&Lnk49);} /* COPY-INFO */
  984. static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,2,ap);} /* C1DECL-BODY */
  985. static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,3,ap);} /* CHECK-VDECL */
  986. static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1ADD-GLOBALS */
  987. static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* C1BODY */
  988. static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],&LnkLI44,ap);} /* MAKE-FUN */
  989. static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],&LnkLI43,ap);} /* CMPERR */
  990. static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* TOO-FEW-ARGS */
  991.