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 / cmpif.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  30.9 KB  |  1,337 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpif.h"
  4. init_cmpif(){do_init(VV);}
  5. /*    local entry for function C1IF    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     {register object V3;
  13.     object V4;
  14.     V3= Cnil;
  15.     V4= Cnil;
  16.     if(endp((V2))){
  17.     goto T4;}
  18.     if(!(endp(cdr((V2))))){
  19.     goto T3;}
  20. T4:;
  21.     V5 = make_fixnum(length((V2)));
  22.     (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
  23. T3:;
  24.     if(endp(cddr((V2)))){
  25.     goto T8;}
  26.     if(endp(cdddr((V2)))){
  27.     goto T8;}
  28.     V6 = make_fixnum(length((V2)));
  29.     (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
  30. T8:;
  31.     V4= (*(LnkLI45))(car((V2)));
  32.     {object V7= (V4);
  33.     if((V7!= Ct))goto T15;
  34.     {object V8 = (*(LnkLI46))(cadr((V2)));
  35.     VMR1(V8)}
  36. T15:;
  37.     if((V7!= Cnil))goto T16;
  38.     if(!(endp(cddr((V2))))){
  39.     goto T18;}
  40.     {object V9 = (*(LnkLI47))();
  41.     VMR1(V9)}
  42. T18:;
  43.     {object V10 = (*(LnkLI46))(caddr((V2)));
  44.     VMR1(V10)}
  45. T16:;
  46.     V3= (VFUN_NARGS=0,(*(LnkLI48))());
  47.     V11= (*(LnkLI49))((V4),(V3));
  48.     V12= (*(LnkLI50))(cadr((V2)),(V3));
  49.     if(!(endp(cddr((V2))))){
  50.     goto T24;}
  51.     V13= (*(LnkLI47))();
  52.     goto T22;
  53. T24:;
  54.     V13= (*(LnkLI50))(caddr((V2)),(V3));
  55. T22:;
  56.     {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);
  57.     VMR1(V14)}}}
  58. }
  59. /*    local entry for function C1FMLA-CONSTANT    */
  60.  
  61. static object LI2(V16)
  62.  
  63. register object V16;
  64. {     VMB2 VMS2 VMV2
  65. TTL:;
  66.     {register object V17;
  67.     V17= Cnil;
  68.     if(!(type_of((V16))==t_cons)){
  69.     goto T28;}
  70.     {object V18= car((V16));
  71.     if((V18!= VV[1]))goto T30;
  72.     {register object V19;
  73.     V19= cdr((V16));
  74. T33:;
  75.     if(!(endp((V19)))){
  76.     goto T34;}
  77.     {object V20 = Ct;
  78.     VMR2(V20)}
  79. T34:;
  80.     V17= (*(LnkLI45))(car((V19)));
  81.     {object V21= (V17);
  82.     if((V21!= Ct))goto T41;
  83.     goto T40;
  84. T41:;
  85.     if((V21!= Cnil))goto T42;
  86.     {object V22 = Cnil;
  87.     VMR2(V22)}
  88. T42:;
  89.     if(!(endp(cdr((V19))))){
  90.     goto T44;}
  91.     {object V23 = (V17);
  92.     VMR2(V23)}
  93. T44:;
  94.     {object V24 = listA(3,VV[1],(V17),cdr((V19)));
  95.     VMR2(V24)}}
  96. T40:;
  97.     V19= cdr((V19));
  98.     goto T33;}
  99. T30:;
  100.     if((V18!= VV[2]))goto T49;
  101.     {register object V25;
  102.     V25= cdr((V16));
  103. T52:;
  104.     if(!(endp((V25)))){
  105.     goto T53;}
  106.     {object V26 = Cnil;
  107.     VMR2(V26)}
  108. T53:;
  109.     V17= (*(LnkLI45))(car((V25)));
  110.     {object V27= (V17);
  111.     if((V27!= Ct))goto T60;
  112.     {object V28 = Ct;
  113.     VMR2(V28)}
  114. T60:;
  115.     if((V27!= Cnil))goto T61;
  116.     goto T59;
  117. T61:;
  118.     if(!(endp(cdr((V25))))){
  119.     goto T63;}
  120.     {object V29 = (V17);
  121.     VMR2(V29)}
  122. T63:;
  123.     {object V30 = listA(3,VV[2],(V17),cdr((V25)));
  124.     VMR2(V30)}}
  125. T59:;
  126.     V25= cdr((V25));
  127.     goto T52;}
  128. T49:;
  129.     if((V18!= VV[3])
  130.     && (V18!= VV[51]))goto T68;
  131.     if(!(endp(cdr((V16))))){
  132.     goto T69;}
  133.     (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
  134. T69:;
  135.     if(endp(cddr((V16)))){
  136.     goto T72;}
  137.     V31 = make_fixnum(length(cdr((V16))));
  138.     (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
  139. T72:;
  140.     V17= (*(LnkLI45))(cadr((V16)));
  141.     {object V32= (V17);
  142.     if((V32!= Ct))goto T77;
  143.     {object V33 = Cnil;
  144.     VMR2(V33)}
  145. T77:;
  146.     if((V32!= Cnil))goto T78;
  147.     {object V34 = Ct;
  148.     VMR2(V34)}
  149. T78:;
  150.     {object V35 = list(2,VV[3],(V17));
  151.     VMR2(V35)}}
  152. T68:;
  153.     {object V36 = (V16);
  154.     VMR2(V36)}}
  155. T28:;
  156.     if(!(type_of((V16))==t_symbol)){
  157.     goto T80;}
  158.     base[0]= (V16);
  159.     vs_top=(vs_base=base+0)+1;
  160.     Lconstantp();
  161.     vs_top=sup;
  162.     if((vs_base[0])==Cnil){
  163.     goto T83;}
  164.     base[0]= (V16);
  165.     vs_top=(vs_base=base+0)+1;
  166.     Lsymbol_value();
  167.     vs_top=sup;
  168.     if((vs_base[0])==Cnil){
  169.     goto T87;}
  170.     {object V37 = Ct;
  171.     VMR2(V37)}
  172. T87:;
  173.     {object V38 = Cnil;
  174.     VMR2(V38)}
  175. T83:;
  176.     {object V39 = (V16);
  177.     VMR2(V39)}
  178. T80:;
  179.     {object V40 = Ct;
  180.     VMR2(V40)}}
  181. }
  182. /*    local entry for function C1FMLA    */
  183.  
  184. static object LI3(V43,V44)
  185.  
  186. register object V43;register object V44;
  187. {     VMB3 VMS3 VMV3
  188. TTL:;
  189.     if(!(type_of((V43))==t_cons)){
  190.     goto T91;}
  191.     {object V45= car((V43));
  192.     if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){
  193.     case 0:
  194. T95:;
  195.     {object V46 = (*(LnkLI52))();
  196.     VMR3(V46)}
  197.     case 1:
  198. T96:;
  199.     V43= cadr((V43));
  200.     goto TTL;
  201.     default:
  202. T97:;
  203.     {object V48;
  204.     object V49= cdr((V43));
  205.     if(endp(V49)){
  206.     V47= Cnil;
  207.     goto T102;}
  208.     base[0]=V48=MMcons(Cnil,Cnil);
  209. T103:;
  210.     {register object V50;
  211.     V50= (V49->c.c_car);
  212.     (V48->c.c_car)= (*(LnkLI49))((V50),(V44));}
  213.     if(endp(V49=MMcdr(V49))){
  214.     V47= base[0];
  215.     goto T102;}
  216.     V48=MMcdr(V48)=MMcons(Cnil,Cnil);
  217.     goto T103;}
  218. T102:;
  219.     {object V51 = make_cons(VV[4],V47);
  220.     VMR3(V51)}
  221.     {object V52 = Cnil;
  222.     VMR3(V52)}}
  223.     {object V53 = Cnil;
  224.     VMR3(V53)}
  225. T93:;
  226.     if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){
  227.     case 0:
  228. T107:;
  229.     {object V54 = (*(LnkLI47))();
  230.     VMR3(V54)}
  231.     case 1:
  232. T108:;
  233.     V43= cadr((V43));
  234.     goto TTL;
  235.     default:
  236. T109:;
  237.     {object V56;
  238.     object V57= cdr((V43));
  239.     if(endp(V57)){
  240.     V55= Cnil;
  241.     goto T114;}
  242.     base[0]=V56=MMcons(Cnil,Cnil);
  243. T115:;
  244.     {register object V58;
  245.     V58= (V57->c.c_car);
  246.     (V56->c.c_car)= (*(LnkLI49))((V58),(V44));}
  247.     if(endp(V57=MMcdr(V57))){
  248.     V55= base[0];
  249.     goto T114;}
  250.     V56=MMcdr(V56)=MMcons(Cnil,Cnil);
  251.     goto T115;}
  252. T114:;
  253.     {object V59 = make_cons(VV[5],V55);
  254.     VMR3(V59)}
  255.     {object V60 = Cnil;
  256.     VMR3(V60)}}
  257.     {object V61 = Cnil;
  258.     VMR3(V61)}
  259. T105:;
  260.     if((V45!= VV[3])
  261.     && (V45!= VV[51]))goto T117;
  262.     if(!(endp(cdr((V43))))){
  263.     goto T118;}
  264.     (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
  265. T118:;
  266.     if(endp(cddr((V43)))){
  267.     goto T121;}
  268.     V62 = make_fixnum(length(cdr((V43))));
  269.     (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
  270. T121:;
  271.     {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));
  272.     VMR3(V63)}
  273. T117:;
  274.     V64= list(3,VV[7],VV[8],(V43));
  275.     {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));
  276.     VMR3(V65)}}
  277. T91:;
  278.     {object V66 = (*(LnkLI50))((V43),(V44));
  279.     VMR3(V66)}
  280. }
  281. /*    function definition for C2IF    */
  282.  
  283. static L4()
  284. {register object *base=vs_base;
  285.     register object *sup=base+VM4; VC4
  286.     vs_reserve(VM4);
  287.     bds_check;
  288.     {object V67;
  289.     object V68;
  290.     object V69;
  291.     check_arg(3);
  292.     V67=(base[0]);
  293.     V68=(base[1]);
  294.     V69=(base[2]);
  295.     vs_top=sup;
  296. TTL:;
  297.     {register object V70;
  298.     register object V71;
  299.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  300.     V70= make_cons(symbol_value(VV[9]),Cnil);
  301.     V71= Cnil;
  302.     if(!((car((V69)))==(VV[10]))){
  303.     goto T128;}
  304.     if((caddr((V69)))!=Cnil){
  305.     goto T128;}
  306.     if(!((symbol_value(VV[11]))==(VV[12]))){
  307.     goto T128;}
  308.     if((symbol_value(VV[13]))==(VV[14])){
  309.     goto T128;}
  310.     {object V72;
  311.     V72= symbol_value(VV[13]);
  312.     base[4]= make_cons((V70),symbol_value(VV[15]));
  313.     bds_bind(VV[15],base[4]);
  314.     bds_bind(VV[13],(V70));
  315.     V73= (*(LnkLI53))((V67),(V70),(V72));
  316.     bds_unwind1;
  317.     bds_unwind1;}
  318.     if((cdr((V70)))==Cnil){
  319.     goto T139;}
  320.     princ_str("\nT",VV[16]);
  321.     (void)((*(LnkLI54))(car((V70))));
  322.     princ_str(":;",VV[16]);
  323. T139:;
  324.     base[4]= (V68);
  325.     vs_top=(vs_base=base+4)+1;
  326.     (void) (*Lnk55)();
  327.     return;
  328. T128:;
  329.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  330.     V71= make_cons(symbol_value(VV[9]),Cnil);
  331.     base[4]= listA(3,(V71),(V70),symbol_value(VV[15]));
  332.     bds_bind(VV[15],base[4]);
  333.     bds_bind(VV[13],(V70));
  334.     V74= (*(LnkLI53))((V67),(V70),(V71));
  335.     bds_unwind1;
  336.     bds_unwind1;
  337.     if((cdr((V70)))==Cnil){
  338.     goto T151;}
  339.     princ_str("\nT",VV[16]);
  340.     (void)((*(LnkLI54))(car((V70))));
  341.     princ_str(":;",VV[16]);
  342. T151:;
  343.     base[4]= make_cons(VV[17],symbol_value(VV[15]));
  344.     bds_bind(VV[15],base[4]);
  345.     base[5]= (V68);
  346.     vs_top=(vs_base=base+5)+1;
  347.     (void) (*Lnk55)();
  348.     vs_top=sup;
  349.     bds_unwind1;
  350.     if((cdr((V71)))==Cnil){
  351.     goto T160;}
  352.     princ_str("\nT",VV[16]);
  353.     (void)((*(LnkLI54))(car((V71))));
  354.     princ_str(":;",VV[16]);
  355. T160:;
  356.     base[4]= (V69);
  357.     vs_top=(vs_base=base+4)+1;
  358.     (void) (*Lnk55)();
  359.     return;}
  360.     }
  361. }
  362. /*    local entry for function CJT    */
  363.  
  364. static object LI5(V78,V79,V80)
  365.  
  366. object V78;object V79;object V80;
  367. {     VMB5 VMS5 VMV5
  368.     bds_check;
  369. TTL:;
  370.     {object V81= car((V78));
  371.     if((V81!= VV[4]))goto T167;
  372.     {register object V82;
  373.     V82= cdr((V78));
  374. T170:;
  375.     if(!(endp(cdr((V82))))){
  376.     goto T171;}
  377.     V78= car((V82));
  378.     goto TTL;
  379. T171:;
  380.     {register object V83;
  381.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  382.     V83= make_cons(symbol_value(VV[9]),Cnil);
  383.     bds_bind(VV[15],make_cons((V83),symbol_value(VV[15])));
  384.     (void)((*(LnkLI53))(car((V82)),(V83),(V80)));
  385.     if((cdr((V83)))==Cnil){
  386.     bds_unwind1;
  387.     goto T179;}
  388.     princ_str("\nT",VV[16]);
  389.     (void)((*(LnkLI54))(car((V83))));
  390.     princ_str(":;",VV[16]);
  391.     bds_unwind1;}
  392. T179:;
  393.     V82= cdr((V82));
  394.     goto T170;}
  395. T167:;
  396.     if((V81!= VV[5]))goto T192;
  397.     {register object V84;
  398.     V84= cdr((V78));
  399. T195:;
  400.     if(!(endp(cdr((V84))))){
  401.     goto T196;}
  402.     V78= car((V84));
  403.     goto TTL;
  404. T196:;
  405.     {register object V85;
  406.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  407.     V85= make_cons(symbol_value(VV[9]),Cnil);
  408.     bds_bind(VV[15],make_cons((V85),symbol_value(VV[15])));
  409.     (void)((*(LnkLI56))(car((V84)),(V79),(V85)));
  410.     if((cdr((V85)))==Cnil){
  411.     bds_unwind1;
  412.     goto T204;}
  413.     princ_str("\nT",VV[16]);
  414.     (void)((*(LnkLI54))(car((V85))));
  415.     princ_str(":;",VV[16]);
  416.     bds_unwind1;}
  417. T204:;
  418.     V84= cdr((V84));
  419.     goto T195;}
  420. T192:;
  421.     if((V81!= VV[6]))goto T217;
  422.     {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));
  423.     VMR5(V86)}
  424. T217:;
  425.     if((V81!= VV[10]))goto T218;
  426.     {object V87= caddr((V78));
  427.     if((V87!= Ct))goto T219;
  428.     (void)((*(LnkLI57))((V79)));
  429.     princ_str("\n    ",VV[16]);
  430.     if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
  431.     ((V79))->c.c_cdr = Ct;
  432.     princ_str("goto T",VV[16]);
  433.     (void)((*(LnkLI54))(car((V79))));
  434.     princ_char(59,VV[16]);
  435.     {object V88 = Cnil;
  436.     VMR5(V88)}
  437. T219:;
  438.     if((V87!= Cnil))goto T226;
  439.     {object V89 = Cnil;
  440.     VMR5(V89)}
  441. T226:;
  442.     base[0]= list(2,VV[18],(V79));
  443.     bds_bind(VV[11],base[0]);
  444.     {object V90 = (*(LnkLI58))((V78));
  445.     bds_unwind1;
  446.     VMR5(V90)}}
  447. T218:;
  448.     base[0]= list(2,VV[18],(V79));
  449.     bds_bind(VV[11],base[0]);
  450.     {object V91 = (*(LnkLI58))((V78));
  451.     bds_unwind1;
  452.     VMR5(V91)}}
  453. }
  454. /*    local entry for function CJF    */
  455.  
  456. static object LI6(V95,V96,V97)
  457.  
  458. object V95;object V96;object V97;
  459. {     VMB6 VMS6 VMV6
  460.     bds_check;
  461. TTL:;
  462.     {object V98= car((V95));
  463.     if((V98!= VV[4]))goto T229;
  464.     {register object V99;
  465.     V99= cdr((V95));
  466. T232:;
  467.     if(!(endp(cdr((V99))))){
  468.     goto T233;}
  469.     V95= car((V99));
  470.     goto TTL;
  471. T233:;
  472.     {register object V100;
  473.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  474.     V100= make_cons(symbol_value(VV[9]),Cnil);
  475.     bds_bind(VV[15],make_cons((V100),symbol_value(VV[15])));
  476.     (void)((*(LnkLI53))(car((V99)),(V100),(V97)));
  477.     if((cdr((V100)))==Cnil){
  478.     bds_unwind1;
  479.     goto T241;}
  480.     princ_str("\nT",VV[16]);
  481.     (void)((*(LnkLI54))(car((V100))));
  482.     princ_str(":;",VV[16]);
  483.     bds_unwind1;}
  484. T241:;
  485.     V99= cdr((V99));
  486.     goto T232;}
  487. T229:;
  488.     if((V98!= VV[5]))goto T254;
  489.     {register object V101;
  490.     V101= cdr((V95));
  491. T257:;
  492.     if(!(endp(cdr((V101))))){
  493.     goto T258;}
  494.     V95= car((V101));
  495.     goto TTL;
  496. T258:;
  497.     {register object V102;
  498.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  499.     V102= make_cons(symbol_value(VV[9]),Cnil);
  500.     bds_bind(VV[15],make_cons((V102),symbol_value(VV[15])));
  501.     (void)((*(LnkLI56))(car((V101)),(V96),(V102)));
  502.     if((cdr((V102)))==Cnil){
  503.     bds_unwind1;
  504.     goto T266;}
  505.     princ_str("\nT",VV[16]);
  506.     (void)((*(LnkLI54))(car((V102))));
  507.     princ_str(":;",VV[16]);
  508.     bds_unwind1;}
  509. T266:;
  510.     V101= cdr((V101));
  511.     goto T257;}
  512. T254:;
  513.     if((V98!= VV[6]))goto T279;
  514.     {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));
  515.     VMR6(V103)}
  516. T279:;
  517.     if((V98!= VV[10]))goto T280;
  518.     {object V104= caddr((V95));
  519.     if((V104!= Ct))goto T281;
  520.     {object V105 = Cnil;
  521.     VMR6(V105)}
  522. T281:;
  523.     if((V104!= Cnil))goto T282;
  524.     (void)((*(LnkLI57))((V97)));
  525.     princ_str("\n    ",VV[16]);
  526.     if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));
  527.     ((V97))->c.c_cdr = Ct;
  528.     princ_str("goto T",VV[16]);
  529.     (void)((*(LnkLI54))(car((V97))));
  530.     princ_char(59,VV[16]);
  531.     {object V106 = Cnil;
  532.     VMR6(V106)}
  533. T282:;
  534.     base[0]= list(2,VV[19],(V97));
  535.     bds_bind(VV[11],base[0]);
  536.     {object V107 = (*(LnkLI58))((V95));
  537.     bds_unwind1;
  538.     VMR6(V107)}}
  539. T280:;
  540.     base[0]= list(2,VV[19],(V97));
  541.     bds_bind(VV[11],base[0]);
  542.     {object V108 = (*(LnkLI58))((V95));
  543.     bds_unwind1;
  544.     VMR6(V108)}}
  545. }
  546. /*    local entry for function C1AND    */
  547.  
  548. static object LI7(V110)
  549.  
  550. register object V110;
  551. {     VMB7 VMS7 VMV7
  552. TTL:;
  553.     if(!(endp((V110)))){
  554.     goto T292;}
  555.     {object V111 = (*(LnkLI52))();
  556.     VMR7(V111)}
  557. T292:;
  558.     if(!(endp(cdr((V110))))){
  559.     goto T295;}
  560.     {object V112 = (*(LnkLI46))(car((V110)));
  561.     VMR7(V112)}
  562. T295:;
  563.     {object V113;
  564.     V113= (VFUN_NARGS=0,(*(LnkLI48))());
  565.     {object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113)));
  566.     VMR7(V114)}}
  567. }
  568. /*    function definition for C2AND    */
  569.  
  570. static L8()
  571. {register object *base=vs_base;
  572.     register object *sup=base+VM8; VC8
  573.     vs_reserve(VM8);
  574.     bds_check;
  575.     {object V115;
  576.     check_arg(1);
  577.     V115=(base[0]);
  578.     vs_top=sup;
  579. TTL:;
  580.     {register object V116;
  581.     V116= (V115);
  582. T299:;
  583.     if(!(endp(cdr((V116))))){
  584.     goto T300;}
  585.     base[1]= car((V116));
  586.     vs_top=(vs_base=base+1)+1;
  587.     (void) (*Lnk55)();
  588.     return;
  589. T300:;
  590.     if(!((caar((V116)))==(VV[10]))){
  591.     goto T307;}
  592.     {object V117= caddar((V116));
  593.     if((V117!= Ct))goto T309;
  594.     goto T305;
  595. T309:;
  596.     if((V117!= Cnil))goto T310;
  597.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
  598.     goto T305;
  599. T310:;
  600.     princ_str("\n    if(",VV[16]);
  601.     (void)((*(LnkLI54))(caddar((V116))));
  602.     princ_str("==Cnil){",VV[16]);
  603.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
  604.     princ_char(125,VV[16]);
  605.     goto T305;}
  606. T307:;
  607.     if(!((caar((V116)))==(VV[20]))){
  608.     goto T318;}
  609.     princ_str("\n    if(",VV[16]);
  610.     (void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116)))));
  611.     princ_str("==Cnil){",VV[16]);
  612.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
  613.     princ_char(125,VV[16]);
  614.     goto T305;
  615. T318:;
  616.     {register object V118;
  617.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  618.     V118= make_cons(symbol_value(VV[9]),Cnil);
  619.     bds_bind(VV[15],make_cons((V118),symbol_value(VV[15])));
  620.     base[3]= list(2,VV[18],(V118));
  621.     bds_bind(VV[11],base[3]);
  622.     V119= (*(LnkLI58))(car((V116)));
  623.     bds_unwind1;
  624.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
  625.     if((cdr((V118)))==Cnil){
  626.     bds_unwind1;
  627.     goto T305;}
  628.     princ_str("\nT",VV[16]);
  629.     (void)((*(LnkLI54))(car((V118))));
  630.     princ_str(":;",VV[16]);
  631.     bds_unwind1;}
  632. T305:;
  633.     V116= cdr((V116));
  634.     goto T299;}
  635.     }
  636. }
  637. /*    local entry for function C1OR    */
  638.  
  639. static object LI9(V121)
  640.  
  641. register object V121;
  642. {     VMB9 VMS9 VMV9
  643. TTL:;
  644.     if(!(endp((V121)))){
  645.     goto T342;}
  646.     {object V122 = (*(LnkLI47))();
  647.     VMR9(V122)}
  648. T342:;
  649.     if(!(endp(cdr((V121))))){
  650.     goto T345;}
  651.     {object V123 = (*(LnkLI46))(car((V121)));
  652.     VMR9(V123)}
  653. T345:;
  654.     {object V124;
  655.     V124= (VFUN_NARGS=0,(*(LnkLI48))());
  656.     {object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124)));
  657.     VMR9(V125)}}
  658. }
  659. /*    function definition for C2OR    */
  660.  
  661. static L10()
  662. {register object *base=vs_base;
  663.     register object *sup=base+VM10; VC10
  664.     vs_reserve(VM10);
  665.     bds_check;
  666.     {object V126;
  667.     check_arg(1);
  668.     V126=(base[0]);
  669.     vs_top=sup;
  670. TTL:;
  671.     {object V127;
  672.     bds_bind(VV[21],symbol_value(VV[21]));
  673.     V127= Cnil;
  674.     {register object V128;
  675.     V128= (V126);
  676. T350:;
  677.     if(!(endp(cdr((V128))))){
  678.     goto T351;}
  679.     base[2]= car((V128));
  680.     vs_top=(vs_base=base+2)+1;
  681.     (void) (*Lnk55)();
  682.     bds_unwind1;
  683.     return;
  684. T351:;
  685.     if(!((caar((V128)))==(VV[10]))){
  686.     goto T358;}
  687.     {object V129= caddar((V128));
  688.     if((V129!= Ct))goto T360;
  689.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
  690.     goto T356;
  691. T360:;
  692.     if((V129!= Cnil))goto T361;
  693.     goto T356;
  694. T361:;
  695.     princ_str("\n    if(",VV[16]);
  696.     (void)((*(LnkLI54))(caddar((V128))));
  697.     princ_str("!=Cnil){",VV[16]);
  698.     (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));
  699.     princ_char(125,VV[16]);
  700.     goto T356;}
  701. T358:;
  702.     if(!((caar((V128)))==(VV[20]))){
  703.     goto T369;}
  704.     princ_str("\n    if(",VV[16]);
  705.     (void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128)))));
  706.     princ_str("!=Cnil){",VV[16]);
  707.     V130= make_cons(VV[20],caddar((V128)));
  708.     (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));
  709.     princ_char(125,VV[16]);
  710.     goto T356;
  711. T369:;
  712.     if(!((caar((V128)))==(VV[22]))){
  713.     goto T379;}
  714.     if((get(caddar((V128)),VV[23],Cnil))==Cnil){
  715.     goto T379;}
  716.     {register object V131;
  717.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  718.     V131= make_cons(symbol_value(VV[9]),Cnil);
  719.     bds_bind(VV[15],make_cons((V131),symbol_value(VV[15])));
  720.     base[4]= list(2,VV[19],(V131));
  721.     bds_bind(VV[11],base[4]);
  722.     V132= (*(LnkLI58))(car((V128)));
  723.     bds_unwind1;
  724.     (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
  725.     if((cdr((V131)))==Cnil){
  726.     bds_unwind1;
  727.     goto T356;}
  728.     princ_str("\nT",VV[16]);
  729.     (void)((*(LnkLI54))(car((V131))));
  730.     princ_str(":;",VV[16]);
  731.     bds_unwind1;
  732.     goto T356;}
  733. T379:;
  734.     {register object V133;
  735.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  736.     V133= make_cons(symbol_value(VV[9]),Cnil);
  737.     bds_bind(VV[24],small_fixnum(0));
  738.     bds_bind(VV[15],make_cons((V133),symbol_value(VV[15])));
  739.     V127= (*(LnkLI62))();
  740.     bds_bind(VV[11],(V127));
  741.     V134= (*(LnkLI58))(car((V128)));
  742.     bds_unwind1;
  743.     princ_str("\n    if(",VV[16]);
  744.     (void)((*(LnkLI54))((V127)));
  745.     princ_str("==Cnil)",VV[16]);
  746.     if(type_of((V133))!=t_cons)FEwrong_type_argument(Scons,(V133));
  747.     ((V133))->c.c_cdr = Ct;
  748.     princ_str("goto T",VV[16]);
  749.     (void)((*(LnkLI54))(car((V133))));
  750.     princ_char(59,VV[16]);
  751.     (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));
  752.     if((cdr((V133)))==Cnil){
  753.     goto T410;}
  754.     princ_str("\nT",VV[16]);
  755.     (void)((*(LnkLI54))(car((V133))));
  756.     princ_str(":;",VV[16]);
  757. T410:;
  758.     V135= (*(LnkLI63))();
  759.     bds_unwind1;
  760.     bds_unwind1;}
  761. T356:;
  762.     V128= cdr((V128));
  763.     goto T350;}}
  764.     }
  765. }
  766. /*    local entry for function SET-JUMP-TRUE    */
  767.  
  768. static object LI11(V138,V139)
  769.  
  770. register object V138;object V139;
  771. {     VMB11 VMS11 VMV11
  772. TTL:;
  773.     if(((V138))==Cnil){
  774.     goto T420;}
  775.     {object V140;
  776.     V140= (((V138))==(Ct)?Ct:Cnil);
  777.     if(((V140))==Cnil){
  778.     goto T425;}
  779.     goto T422;
  780. T425:;
  781.     if(!(type_of((V138))==t_cons)){
  782.     goto T428;}
  783.     if(!((car((V138)))==(VV[25]))){
  784.     goto T428;}
  785.     princ_str("\n    if(",VV[16]);
  786.     base[0]= caddr((V138));
  787.     base[1]= cadddr((V138));
  788.     vs_top=(vs_base=base+0)+2;
  789.     (void) (*Lnk64)();
  790.     vs_top=sup;
  791.     princ_char(41,VV[16]);
  792.     goto T422;
  793. T428:;
  794.     princ_str("\n    if((",VV[16]);
  795.     (void)((*(LnkLI54))((V138)));
  796.     princ_str(")!=Cnil)",VV[16]);}
  797. T422:;
  798.     if(((V138))==(Ct)){
  799.     goto T441;}
  800.     princ_char(123,VV[16]);
  801. T441:;
  802.     (void)((*(LnkLI57))((V139)));
  803.     princ_str("\n    ",VV[16]);
  804.     if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));
  805.     ((V139))->c.c_cdr = Ct;
  806.     princ_str("goto T",VV[16]);
  807.     (void)((*(LnkLI54))(car((V139))));
  808.     princ_char(59,VV[16]);
  809.     if(((V138))==(Ct)){
  810.     goto T453;}
  811.     princ_char(125,VV[16]);
  812.     {object V141 = Cnil;
  813.     VMR11(V141)}
  814. T453:;
  815.     {object V142 = Cnil;
  816.     VMR11(V142)}
  817. T420:;
  818.     {object V143 = Cnil;
  819.     VMR11(V143)}
  820. }
  821. /*    local entry for function SET-JUMP-FALSE    */
  822.  
  823. static object LI12(V146,V147)
  824.  
  825. register object V146;object V147;
  826. {     VMB12 VMS12 VMV12
  827. TTL:;
  828.     if(((V146))==(Ct)){
  829.     goto T457;}
  830.     {object V148;
  831.     V148= (((V146))==Cnil?Ct:Cnil);
  832.     if(((V148))==Cnil){
  833.     goto T462;}
  834.     goto T459;
  835. T462:;
  836.     if(!(type_of((V146))==t_cons)){
  837.     goto T465;}
  838.     if(!((car((V146)))==(VV[25]))){
  839.     goto T465;}
  840.     princ_str("\n    if(!(",VV[16]);
  841.     base[0]= caddr((V146));
  842.     base[1]= cadddr((V146));
  843.     vs_top=(vs_base=base+0)+2;
  844.     (void) (*Lnk64)();
  845.     vs_top=sup;
  846.     princ_str("))",VV[16]);
  847.     goto T459;
  848. T465:;
  849.     princ_str("\n    if((",VV[16]);
  850.     (void)((*(LnkLI54))((V146)));
  851.     princ_str(")==Cnil)",VV[16]);}
  852. T459:;
  853.     if(((V146))==Cnil){
  854.     goto T478;}
  855.     princ_char(123,VV[16]);
  856. T478:;
  857.     (void)((*(LnkLI57))((V147)));
  858.     princ_str("\n    ",VV[16]);
  859.     if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));
  860.     ((V147))->c.c_cdr = Ct;
  861.     princ_str("goto T",VV[16]);
  862.     (void)((*(LnkLI54))(car((V147))));
  863.     princ_char(59,VV[16]);
  864.     if(((V146))==Cnil){
  865.     goto T490;}
  866.     princ_char(125,VV[16]);
  867.     {object V149 = Cnil;
  868.     VMR12(V149)}
  869. T490:;
  870.     {object V150 = Cnil;
  871.     VMR12(V150)}
  872. T457:;
  873.     {object V151 = Cnil;
  874.     VMR12(V151)}
  875. }
  876. /*    local entry for function C1ECASE    */
  877.  
  878. static object LI13(V153)
  879.  
  880. object V153;
  881. {     VMB13 VMS13 VMV13
  882. TTL:;
  883.     {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));
  884.     VMR13(V154)}
  885. }
  886. /*    local entry for function CONVERT-CASE-TO-SWITCH    */
  887.  
  888. static object LI14(V157,V158)
  889.  
  890. object V157;object V158;
  891. {     VMB14 VMS14 VMV14
  892. TTL:;
  893.     {object V159;
  894.     register object V160;
  895.     register object V161;
  896.     vs_base=vs_top;
  897.     Lgensym();
  898.     vs_top=sup;
  899.     V159= vs_base[0];
  900.     V160= Cnil;
  901.     V161= Cnil;
  902.     {register object V162;
  903.     register object V163;
  904.     V162= cdr((V157));
  905.     V163= car((V162));
  906. T498:;
  907.     if(!(endp((V162)))){
  908.     goto T499;}
  909.     goto T494;
  910. T499:;
  911.     if(!(type_of(car((V163)))==t_fixnum)){
  912.     goto T505;}
  913.     V160= make_cons(car((V163)),(V160));
  914.     goto T503;
  915. T505:;
  916.     if(!(type_of(car((V163)))==t_cons)){
  917.     goto T509;}
  918.     {register object V164;
  919.     register object V165;
  920.     V164= car((V163));
  921.     V165= car((V164));
  922. T514:;
  923.     if(!(endp((V164)))){
  924.     goto T515;}
  925.     goto T503;
  926. T515:;
  927.     V160= make_cons((V165),(V160));
  928.     V164= cdr((V164));
  929.     V165= car((V164));
  930.     goto T514;}
  931. T509:;
  932.     {register object x= car((V163)),V166= VV[26];
  933.     while(!endp(V166))
  934.     if(eql(x,V166->c.c_car)){
  935.     goto T527;
  936.     }else V166=V166->c.c_cdr;
  937.     goto T503;}
  938. T527:;
  939.     if((V158)==Cnil){
  940.     goto T528;}
  941.     base[2]= VV[27];
  942.     vs_top=(vs_base=base+2)+1;
  943.     (void) (*Lnk66)();
  944.     vs_top=sup;
  945. T528:;
  946.     V160= make_cons(Ct,(V160));
  947. T503:;
  948.     V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));
  949.     V160= make_cons(/* INLINE-ARGS */V167,(V160));
  950.     V162= cdr((V162));
  951.     V163= car((V162));
  952.     goto T498;}
  953. T494:;
  954.     if(((V158))==Cnil){
  955.     goto T538;}
  956.     V160= make_cons(Ct,(V160));
  957.     {register object V168;
  958.     object V169;
  959.     V168= cdr((V157));
  960.     V169= car((V168));
  961. T547:;
  962.     if(!(endp((V168)))){
  963.     goto T548;}
  964.     goto T543;
  965. T548:;
  966.     if(!(type_of(car((V169)))!=t_cons)){
  967.     goto T554;}
  968.     V161= make_cons(car((V169)),(V161));
  969.     goto T552;
  970. T554:;
  971.     V161= append(car((V169)),(V161));
  972. T552:;
  973.     V168= cdr((V168));
  974.     V169= car((V168));
  975.     goto T547;}
  976. T543:;
  977.     V170= car((V157));
  978.     V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161)));
  979.     V160= make_cons(/* INLINE-ARGS */V171,(V160));
  980. T538:;
  981.     V172= car((V157));
  982.     {object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160))));
  983.     VMR14(V173)}}
  984. }
  985. /*    local entry for function C1CASE    */
  986.  
  987. static object LI15(V174,va_alist)
  988.     object V174;
  989.     va_dcl 
  990. {    
  991.     va_list ap;
  992.     int narg = VFUN_NARGS; VMB15 VMS15 VMV15
  993.     {object V175;
  994.     register object V176;
  995.     if(narg <1) too_few_arguments();
  996.     V175= V174;
  997.     narg = narg - 1;
  998.     if (narg <= 0) goto T564;
  999.     else {
  1000.     va_start(ap);
  1001.     V176= va_arg(ap,object);}
  1002.     --narg; goto T565;
  1003. T564:;
  1004.     V176= Cnil;
  1005. T565:;
  1006.     if(!(endp((V175)))){
  1007.     goto T567;}
  1008.     (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
  1009. T567:;
  1010.     {register object V177;
  1011.     object V178;
  1012.     object V179;
  1013.     V177= (VFUN_NARGS=0,(*(LnkLI48))());
  1014.     V178= (*(LnkLI50))(car((V175)),(V177));
  1015.     V179= Cnil;
  1016.     base[2]= structure_ref(cadr((V178)),VV[36],2);
  1017.     base[3]= VV[37];
  1018.     vs_top=(vs_base=base+2)+2;
  1019.     (void) (*Lnk67)();
  1020.     vs_top=sup;
  1021.     if((vs_base[0])==Cnil){
  1022.     goto T573;}
  1023.     V180= (*(LnkLI68))((V175),(V176));
  1024.     {object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180);
  1025.     VMR15(V181)}
  1026. T573:;
  1027.     {register object V182;
  1028.     register object V183;
  1029.     V182= cdr((V175));
  1030.     V183= car((V182));
  1031. T582:;
  1032.     if(!(endp((V182)))){
  1033.     goto T583;}
  1034.     goto T578;
  1035. T583:;
  1036.     if(!(endp((V183)))){
  1037.     goto T587;}
  1038.     (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183))));
  1039. T587:;
  1040.     {object V184= car((V183));
  1041.     if((V184!= Cnil))goto T591;
  1042.     goto T590;
  1043. T591:;
  1044.     if((V184!= Ct)
  1045.     && (V184!= VV[70]))goto T592;
  1046.     if(((V176))==Cnil){
  1047.     goto T593;}
  1048.     if(!(((V176))==(Ct))){
  1049.     goto T598;}
  1050.     V185= VV[39];
  1051.     goto T596;
  1052. T598:;
  1053.     V185= VV[40];
  1054. T596:;
  1055.     (void)((VFUN_NARGS=1,(*(LnkLI69))(V185)));
  1056. T593:;
  1057.     V176= (*(LnkLI71))(cdr((V183)));
  1058.     (void)((*(LnkLI72))((V177),cadr((V176))));
  1059.     goto T590;
  1060. T592:;
  1061.     {object V186;
  1062.     register object V187;
  1063.     if(!(type_of(car((V183)))==t_cons)){
  1064.     goto T604;}
  1065.     {object V188;
  1066.     object V189= car((V183));
  1067.     if(endp(V189)){
  1068.     V186= Cnil;
  1069.     goto T602;}
  1070.     base[6]=V188=MMcons(Cnil,Cnil);
  1071. T606:;
  1072.     {register object V190;
  1073.     V190= (V189->c.c_car);
  1074.     if(!(type_of((V190))==t_symbol)){
  1075.     goto T609;}
  1076.     (V188->c.c_car)= (V190);
  1077.     goto T607;
  1078. T609:;
  1079.     (V188->c.c_car)= (*(LnkLI73))((V190));}
  1080. T607:;
  1081.     if(endp(V189=MMcdr(V189))){
  1082.     V186= base[6];
  1083.     goto T602;}
  1084.     V188=MMcdr(V188)=MMcons(Cnil,Cnil);
  1085.     goto T606;}
  1086. T604:;
  1087.     if(!(type_of(car((V183)))==t_symbol)){
  1088.     goto T612;}
  1089.     V186= make_cons(car((V183)),Cnil);
  1090.     goto T602;
  1091. T612:;
  1092.     V191= (*(LnkLI73))(car((V183)));
  1093.     V186= make_cons(/* INLINE-ARGS */V191,Cnil);
  1094. T602:;
  1095.     V187= (*(LnkLI71))(cdr((V183)));
  1096.     (void)((*(LnkLI72))((V177),cadr((V187))));
  1097.     V192= make_cons((V186),(V187));
  1098.     V179= make_cons(/* INLINE-ARGS */V192,(V179));}}
  1099. T590:;
  1100.     V182= cdr((V182));
  1101.     V183= car((V182));
  1102.     goto T582;}
  1103. T578:;
  1104.     V193= reverse((V179));
  1105.     if((V176)!=Cnil){
  1106.     V194= (V176);
  1107.     goto T622;}
  1108.     V194= (*(LnkLI47))();
  1109. T622:;
  1110.     {object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194);
  1111.     VMR15(V195)}}}
  1112.     }
  1113. /*    local entry for function C2CASE    */
  1114.  
  1115. static object LI16(V199,V200,V201)
  1116.  
  1117. object V199;object V200;object V201;
  1118. {     VMB16 VMS16 VMV16
  1119.     bds_check;
  1120. TTL:;
  1121.     {register object V202;
  1122.     setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));
  1123.     V202= symbol_value(VV[41]);
  1124.     bds_bind(VV[21],symbol_value(VV[21]));
  1125.     bds_bind(VV[24],small_fixnum(0));
  1126.     V203= make_cons((V199),Cnil);
  1127.     V204= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V203,VV[42]));
  1128.     V199= car(/* INLINE-ARGS */V204);
  1129.     princ_str("\n    {object V",VV[16]);
  1130.     (void)((*(LnkLI54))((V202)));
  1131.     princ_str("= ",VV[16]);
  1132.     (void)((*(LnkLI54))((V199)));
  1133.     princ_char(59,VV[16]);
  1134.     {object V205;
  1135.     object V206;
  1136.     V205= (V200);
  1137.     V206= car((V205));
  1138. T637:;
  1139.     if(!(endp((V205)))){
  1140.     goto T638;}
  1141.     goto T633;
  1142. T638:;
  1143.     {object V207;
  1144.     register object V208;
  1145.     register object V209;
  1146.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  1147.     V207= make_cons(symbol_value(VV[9]),Cnil);
  1148.     V208= car((V206));
  1149.     V209= Cnil;
  1150. T649:;
  1151.     if(!((length((V208)))<=(5))){
  1152.     goto T650;}
  1153.     goto T647;
  1154. T650:;
  1155.     if(((V209))!=Cnil){
  1156.     goto T654;}
  1157.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  1158.     V209= make_cons(symbol_value(VV[9]),Cnil);
  1159. T654:;
  1160.     princ_str("\n    if(",VV[16]);
  1161.     {register object V211;
  1162.     V211= small_fixnum(0);
  1163. T664:;
  1164.     if(!(number_compare((V211),small_fixnum(5))>=0)){
  1165.     goto T665;}
  1166.     goto T661;
  1167. T665:;
  1168.     if(!(type_of(car((V208)))==t_symbol)){
  1169.     goto T671;}
  1170.     princ_str("(V",VV[16]);
  1171.     (void)((*(LnkLI54))((V202)));
  1172.     princ_str("== ",VV[16]);
  1173.     {object V212= car((V208));
  1174.     if((V212!= Ct))goto T678;
  1175.     princ_str("Ct",VV[16]);
  1176.     goto T677;
  1177. T678:;
  1178.     if((V212!= Cnil))goto T680;
  1179.     princ_str("Cnil",VV[16]);
  1180.     goto T677;
  1181. T680:;
  1182.     princ_str("VV[",VV[16]);
  1183.     V213= (*(LnkLI75))(car((V208)));
  1184.     (void)((*(LnkLI54))(/* INLINE-ARGS */V213));
  1185.     princ_char(93,VV[16]);}
  1186. T677:;
  1187.     princ_char(41,VV[16]);
  1188.     goto T669;
  1189. T671:;
  1190.     princ_str("eql(V",VV[16]);
  1191.     (void)((*(LnkLI54))((V202)));
  1192.     princ_str(",VV[",VV[16]);
  1193.     (void)((*(LnkLI54))(car((V208))));
  1194.     princ_str("])",VV[16]);
  1195. T669:;
  1196.     if(!(number_compare((V211),small_fixnum(4))<0)){
  1197.     goto T691;}
  1198.     princ_str("\n    || ",VV[16]);
  1199. T691:;
  1200.     {object V214;
  1201.     V214= car((V208));
  1202.     V208= cdr((V208));}
  1203.     V211= one_plus((V211));
  1204.     goto T664;}
  1205. T661:;
  1206.     princ_char(41,VV[16]);
  1207.     if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));
  1208.     ((V209))->c.c_cdr = Ct;
  1209.     princ_str("goto T",VV[16]);
  1210.     (void)((*(LnkLI54))(car((V209))));
  1211.     princ_char(59,VV[16]);
  1212.     goto T649;
  1213. T647:;
  1214.     princ_str("\n    if(",VV[16]);
  1215. T715:;
  1216.     if(!(endp((V208)))){
  1217.     goto T716;}
  1218.     goto T713;
  1219. T716:;
  1220.     if(!(type_of(car((V208)))==t_symbol)){
  1221.     goto T722;}
  1222.     princ_str("(V",VV[16]);
  1223.     (void)((*(LnkLI54))((V202)));
  1224.     princ_str("!= ",VV[16]);
  1225.     {object V215= car((V208));
  1226.     if((V215!= Ct))goto T729;
  1227.     princ_str("Ct",VV[16]);
  1228.     goto T728;
  1229. T729:;
  1230.     if((V215!= Cnil))goto T731;
  1231.     princ_str("Cnil",VV[16]);
  1232.     goto T728;
  1233. T731:;
  1234.     princ_str("VV[",VV[16]);
  1235.     V216= (*(LnkLI75))(car((V208)));
  1236.     (void)((*(LnkLI54))(/* INLINE-ARGS */V216));
  1237.     princ_char(93,VV[16]);}
  1238. T728:;
  1239.     princ_char(41,VV[16]);
  1240.     goto T720;
  1241. T722:;
  1242.     princ_str("!eql(V",VV[16]);
  1243.     (void)((*(LnkLI54))((V202)));
  1244.     princ_str(",VV[",VV[16]);
  1245.     (void)((*(LnkLI54))(car((V208))));
  1246.     princ_str("])",VV[16]);
  1247. T720:;
  1248.     if(endp(cdr((V208)))){
  1249.     goto T742;}
  1250.     princ_str("\n    && ",VV[16]);
  1251. T742:;
  1252.     {object V217;
  1253.     V217= car((V208));
  1254.     V208= cdr((V208));}
  1255.     goto T715;
  1256. T713:;
  1257.     princ_char(41,VV[16]);
  1258.     if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));
  1259.     ((V207))->c.c_cdr = Ct;
  1260.     princ_str("goto T",VV[16]);
  1261.     (void)((*(LnkLI54))(car((V207))));
  1262.     princ_char(59,VV[16]);
  1263.     if(((V209))==Cnil){
  1264.     goto T759;}
  1265.     if((cdr((V209)))==Cnil){
  1266.     goto T759;}
  1267.     princ_str("\nT",VV[16]);
  1268.     (void)((*(LnkLI54))(car((V209))));
  1269.     princ_str(":;",VV[16]);
  1270. T759:;
  1271.     base[6]= make_cons(VV[17],symbol_value(VV[15]));
  1272.     bds_bind(VV[15],base[6]);
  1273.     base[7]= cdr((V206));
  1274.     vs_top=(vs_base=base+7)+1;
  1275.     (void) (*Lnk55)();
  1276.     vs_top=sup;
  1277.     bds_unwind1;
  1278.     if((cdr((V207)))==Cnil){
  1279.     goto T642;}
  1280.     princ_str("\nT",VV[16]);
  1281.     (void)((*(LnkLI54))(car((V207))));
  1282.     princ_str(":;",VV[16]);}
  1283. T642:;
  1284.     V205= cdr((V205));
  1285.     V206= car((V205));
  1286.     goto T637;}
  1287. T633:;
  1288.     if(!(((V201))==(Ct))){
  1289.     goto T782;}
  1290.     princ_str("\n    FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);
  1291.     (void)((*(LnkLI54))((V202)));
  1292.     princ_str(");",VV[16]);
  1293.     goto T780;
  1294. T782:;
  1295.     base[3]= (V201);
  1296.     vs_top=(vs_base=base+3)+1;
  1297.     (void) (*Lnk55)();
  1298.     vs_top=sup;
  1299. T780:;
  1300.     princ_char(125,VV[16]);
  1301.     {object V218 = (*(LnkLI63))();
  1302.     bds_unwind1;
  1303.     bds_unwind1;
  1304.     VMR16(V218)}}
  1305. }
  1306. static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* ADD-SYMBOL */
  1307. static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],&LnkLI74,ap);} /* INLINE-ARGS */
  1308. static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* ADD-OBJECT */
  1309. static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,2,ap);} /* ADD-INFO */
  1310. static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* C1PROGN */
  1311. static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPERR */
  1312. static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */
  1313. static LnkT67(){ call_or_link(VV[67],&Lnk67);} /* SUBTYPEP */
  1314. static LnkT66(){ call_or_link(VV[66],&Lnk66);} /* CMPERROR */
  1315. static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* C1CASE */
  1316. static LnkT64(){ call_or_link(VV[64],&Lnk64);} /* WT-INLINE-LOC */
  1317. static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* CLOSE-INLINE-BLOCKS */
  1318. static object  LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* WT-C-PUSH */
  1319. static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,2,ap);} /* WT-VAR */
  1320. static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],&LnkLI60,ap);} /* UNWIND-EXIT */
  1321. static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* C1ARGS */
  1322. static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* C2EXPR* */
  1323. static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */
  1324. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,3,ap);} /* CJT */
  1325. static LnkT55(){ call_or_link(VV[55],&Lnk55);} /* C2EXPR */
  1326. static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */
  1327. static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,3,ap);} /* CJF */
  1328. static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1T */
  1329. static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */
  1330. static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1FMLA */
  1331. static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */
  1332. static object  LnkTLI47(){return call_proc0(VV[47],&LnkLI47);} /* C1NIL */
  1333. static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1EXPR */
  1334. static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */
  1335. static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,3,ap);} /* TOO-MANY-ARGS */
  1336. static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,3,ap);} /* TOO-FEW-ARGS */
  1337.