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 / lsp / defmacro.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  17.0 KB  |  899 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "defmacro.h"
  4. init_defmacro(){do_init(VV);}
  5. /*    function definition for GET-&ENVIRONMENT    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     {register object V1;
  12.     check_arg(1);
  13.     V1=(base[0]);
  14.     vs_top=sup;
  15. TTL:;
  16.     {object V2;
  17.     V2= Cnil;
  18.     {register object V3;
  19.     if(type_of((V1))==t_cons||((V1))==Cnil){
  20.     goto T3;}
  21.     V3= Cnil;
  22.     goto T2;
  23. T3:;
  24.     {register object V4;
  25.     V4= (V1);
  26. T6:;
  27.     if(type_of((V4))==t_cons){
  28.     goto T7;}
  29.     V3= Cnil;
  30.     goto T2;
  31. T7:;
  32.     if(!((VV[0])==(car((V4))))){
  33.     goto T11;}
  34.     V3= (V4);
  35.     goto T2;
  36. T11:;
  37.     V4= cdr((V4));
  38.     goto T6;}
  39. T2:;
  40.     if(((V3))==Cnil){
  41.     goto T17;}
  42.     V2= cadr((V3));
  43.     base[1]= (V1);
  44.     base[2]= (V3);
  45.     vs_top=(vs_base=base+1)+2;
  46.     Lldiff();
  47.     vs_top=sup;
  48.     V5= vs_base[0];
  49.     V1= append(V5,cddr((V3)));
  50. T17:;
  51.     base[1]= (V1);
  52.     base[2]= (V2);
  53.     vs_top=(vs_base=base+1)+2;
  54.     return;}}
  55.     }
  56. }
  57. /*    local entry for function DEFMACRO*    */
  58.  
  59. static object LI2(V9,V10,V11)
  60.  
  61. object V9;register object V10;register object V11;
  62. {     VMB2 VMS2 VMV2
  63.     bds_check;
  64. TTL:;
  65.     {object V12;
  66.     object V13;
  67.     object V14;
  68.     object V15;
  69.     object V16;
  70.     object V17;
  71.     bds_bind(VV[1],Cnil);
  72.     bds_bind(VV[2],Cnil);
  73.     bds_bind(VV[3],Cnil);
  74.     V12= Cnil;
  75.     V13= Cnil;
  76.     V14= Cnil;
  77.     V15= Cnil;
  78.     V16= Cnil;
  79.     V17= Cnil;
  80.     {object V18;
  81.     V18= (type_of((V10))==t_cons||((V10))==Cnil?Ct:Cnil);
  82.     if(((V18))==Cnil){
  83.     goto T37;}
  84.     goto T34;
  85. T37:;
  86.     if(!(type_of((V10))==t_symbol)){
  87.     goto T40;}
  88.     V10= list(2,VV[4],(V10));
  89.     goto T34;
  90. T40:;
  91.     base[3]= VV[5];
  92.     base[4]= (V10);
  93.     vs_top=(vs_base=base+3)+2;
  94.     Lerror();
  95.     vs_top=sup;}
  96. T34:;
  97.     base[3]= (V11);
  98.     base[4]= Cnil;
  99.     vs_top=(vs_base=base+3)+2;
  100.     (void) (*Lnk53)();
  101.     if(vs_base<vs_top){
  102.     V12= vs_base[0];
  103.     vs_base++;
  104.     }else{
  105.     V12= Cnil;}
  106.     if(vs_base<vs_top){
  107.     V13= vs_base[0];
  108.     vs_base++;
  109.     }else{
  110.     V13= Cnil;}
  111.     if(vs_base<vs_top){
  112.     V11= vs_base[0];
  113.     }else{
  114.     V11= Cnil;}
  115.     vs_top=sup;
  116.     if(!(type_of((V10))==t_cons||((V10))==Cnil)){
  117.     goto T51;}
  118.     if(!((car((V10)))==(VV[6]))){
  119.     goto T51;}
  120.     V14= cadr((V10));
  121.     V10= cddr((V10));
  122.     goto T49;
  123. T51:;
  124.     vs_base=vs_top;
  125.     Lgensym();
  126.     vs_top=sup;
  127.     V14= vs_base[0];
  128. T49:;
  129.     base[3]= (V10);
  130.     vs_top=(vs_base=base+3)+1;
  131.     (void) (*Lnk54)();
  132.     if(vs_base<vs_top){
  133.     V10= vs_base[0];
  134.     vs_base++;
  135.     }else{
  136.     V10= Cnil;}
  137.     if(vs_base<vs_top){
  138.     V16= vs_base[0];
  139.     }else{
  140.     V16= Cnil;}
  141.     vs_top=sup;
  142.     V17= (V16);
  143.     if((V16)!=Cnil){
  144.     goto T64;}
  145.     vs_base=vs_top;
  146.     Lgensym();
  147.     vs_top=sup;
  148.     V16= vs_base[0];
  149. T64:;
  150.     (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));
  151.     V15= (*(LnkLI55))((V10),(V14),Ct);
  152.     {register object V19;
  153.     register object V20;
  154.     V19= (VV[2]->s.s_dbind);
  155.     V20= car((V19));
  156. T74:;
  157.     if(!(endp((V19)))){
  158.     goto T75;}
  159.     goto T70;
  160. T75:;
  161.     V21= list(3,VV[9],car((V20)),VV[10]);
  162.     V22= list(3,VV[12],car((V20)),VV[13]);
  163.     V23= make_cons(/* INLINE-ARGS */V22,Cnil);
  164.     V24= list(3,VV[8],/* INLINE-ARGS */V21,list(4,VV[11],/* INLINE-ARGS */V23,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18])));
  165.     V11= make_cons(/* INLINE-ARGS */V24,(V11));
  166.     V19= cdr((V19));
  167.     V20= car((V19));
  168.     goto T74;}
  169. T70:;
  170.     {register object V25;
  171.     register object V26;
  172.     V25= (VV[3]->s.s_dbind);
  173.     V26= car((V25));
  174. T90:;
  175.     if(!(endp((V25)))){
  176.     goto T91;}
  177.     goto T86;
  178. T91:;
  179.     V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);
  180.     V11= make_cons(/* INLINE-ARGS */V27,(V11));
  181.     V25= cdr((V25));
  182.     V26= car((V25));
  183.     goto T90;}
  184. T86:;
  185.     if(((V17))!=Cnil){
  186.     goto T102;}
  187.     V28= list(2,VV[21],list(2,VV[22],(V16)));
  188.     V11= make_cons(/* INLINE-ARGS */V28,(V11));
  189. T102:;
  190.     V29= reverse((VV[1]->s.s_dbind));
  191.     {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));
  192.     bds_unwind1;
  193.     bds_unwind1;
  194.     bds_unwind1;
  195.     VMR2(V30)}}
  196. }
  197. /*    local entry for function DM-VL    */
  198.  
  199. static object LI3(V34,V35,V36)
  200.  
  201. register object V34;register object V35;object V36;
  202. {     VMB3 VMS3 VMV3
  203. TTL:;
  204.     {register object V37;
  205.     object V38;
  206.     object V39;
  207.     object V40;
  208.     object V41;
  209.     object V42;
  210.     object V43;
  211.     object V44;
  212.     object V45;
  213.     register object V46;
  214.     object V47;
  215.     if(((V36))==Cnil){
  216.     goto T108;}
  217.     V46= small_fixnum(1);
  218.     goto T106;
  219. T108:;
  220.     V46= small_fixnum(0);
  221. T106:;
  222.     V37= Cnil;
  223.     V38= Cnil;
  224.     V39= Cnil;
  225.     V40= Cnil;
  226.     V41= Cnil;
  227.     V42= Cnil;
  228.     V43= Cnil;
  229.     V44= Cnil;
  230.     V45= Cnil;
  231.     V47= Cnil;
  232. T111:;
  233.     if(type_of((V34))==t_cons){
  234.     goto T112;}
  235.     if(((V34))==Cnil){
  236.     goto T115;}
  237.     if(((V38))==Cnil){
  238.     goto T118;}
  239.     (void)((*(LnkLI57))(VV[4]));
  240. T118:;
  241.     V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));
  242.     setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1])));
  243.     V45= Ct;
  244. T115:;
  245.     if(((V42))==Cnil){
  246.     goto T124;}
  247.     if(((V43))!=Cnil){
  248.     goto T124;}
  249.     V49= make_cons((V42),(V44));
  250.     setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2])));
  251. T124:;
  252.     if(((V45))!=Cnil){
  253.     goto T130;}
  254.     V50= make_cons((V35),(V46));
  255.     setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3])));
  256. T130:;
  257.     {object V51 = (V47);
  258.     VMR3(V51)}
  259. T112:;
  260.     {register object V52;
  261.     V52= car((V34));
  262.     if(!(((V52))==(VV[24]))){
  263.     goto T138;}
  264.     if(((V37))==Cnil){
  265.     goto T140;}
  266.     (void)((*(LnkLI57))(VV[24]));
  267. T140:;
  268.     V37= Ct;
  269.     {object V53;
  270.     V53= car((V34));
  271.     V34= cdr((V34));
  272.     goto T135;}
  273. T138:;
  274.     if(((V52))==(VV[4])){
  275.     goto T148;}
  276.     if(!(((V52))==(VV[25]))){
  277.     goto T149;}
  278. T148:;
  279.     if(((V38))==Cnil){
  280.     goto T153;}
  281.     (void)((*(LnkLI57))((V52)));
  282. T153:;
  283.     V54= cadr((V34));
  284.     V55= (*(LnkLI56))((V46),(V35));
  285.     (void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55));
  286.     V38= Ct;
  287.     V37= Ct;
  288.     V45= Ct;
  289.     V34= cddr((V34));
  290.     if(!(((V52))==(VV[25]))){
  291.     goto T135;}
  292.     if(((V36))==Cnil){
  293.     goto T169;}
  294.     V47= one_minus((V46));
  295.     goto T167;
  296. T169:;
  297.     V47= (V46);
  298. T167:;
  299.     goto T135;
  300. T149:;
  301.     if(!(((V52))==(VV[26]))){
  302.     goto T172;}
  303.     if(((V39))==Cnil){
  304.     goto T174;}
  305.     (void)((*(LnkLI57))(VV[26]));
  306. T174:;
  307.     vs_base=vs_top;
  308.     Lgensym();
  309.     vs_top=sup;
  310.     V42= vs_base[0];
  311.     V56= list(2,(V42),(*(LnkLI56))((V46),(V35)));
  312.     setq(VV[1],make_cons(/* INLINE-ARGS */V56,symbol_value(VV[1])));
  313.     V39= Ct;
  314.     V38= Ct;
  315.     V37= Ct;
  316.     V45= Ct;
  317.     {object V57;
  318.     V57= car((V34));
  319.     V34= cdr((V34));
  320.     goto T135;}
  321. T172:;
  322.     if(!(((V52))==(VV[27]))){
  323.     goto T193;}
  324.     if(((V39))==Cnil){
  325.     goto T196;}
  326.     if(((V40))==Cnil){
  327.     goto T195;}
  328. T196:;
  329.     (void)((*(LnkLI57))(VV[27]));
  330. T195:;
  331.     V40= Ct;
  332.     V43= Ct;
  333.     {object V58;
  334.     V58= car((V34));
  335.     V34= cdr((V34));
  336.     goto T135;}
  337. T193:;
  338.     if(!(((V52))==(VV[7]))){
  339.     goto T208;}
  340.     if(((V41))==Cnil){
  341.     goto T210;}
  342.     (void)((*(LnkLI57))(VV[7]));
  343. T210:;
  344.     V41= Ct;
  345.     V40= Ct;
  346.     V39= Ct;
  347.     V38= Ct;
  348.     V37= Ct;
  349.     {object V59;
  350.     V59= car((V34));
  351.     V34= cdr((V34));
  352.     goto T135;}
  353. T208:;
  354.     if(((V41))==Cnil){
  355.     goto T227;}
  356.     {object V60;
  357.     object V61;
  358.     V60= Cnil;
  359.     V61= Cnil;
  360.     if(!(type_of((V52))==t_symbol)){
  361.     goto T232;}
  362.     V60= (V52);
  363.     goto T230;
  364. T232:;
  365.     V60= car((V52));
  366.     if(endp(cdr((V52)))){
  367.     goto T230;}
  368.     V61= cadr((V52));
  369. T230:;
  370.     (void)((*(LnkLI58))((V60),(V61)));}
  371.     {object V62;
  372.     V62= car((V34));
  373.     V34= cdr((V34));
  374.     goto T135;}
  375. T227:;
  376.     if(((V39))==Cnil){
  377.     goto T244;}
  378.     {object V63;
  379.     object V64;
  380.     register object V65;
  381.     object V66;
  382.     object V67;
  383.     vs_base=vs_top;
  384.     Lgensym();
  385.     vs_top=sup;
  386.     V63= vs_base[0];
  387.     V64= Cnil;
  388.     V65= Cnil;
  389.     V66= Cnil;
  390.     V67= Cnil;
  391.     if(!(type_of((V52))==t_symbol)){
  392.     goto T250;}
  393.     V64= (V52);
  394.     base[0]= coerce_to_string((V52));
  395.     base[1]= VV[28];
  396.     vs_top=(vs_base=base+0)+2;
  397.     Lintern();
  398.     vs_top=sup;
  399.     V65= vs_base[0];
  400.     goto T248;
  401. T250:;
  402.     if(!(type_of(car((V52)))==t_symbol)){
  403.     goto T259;}
  404.     V64= car((V52));
  405.     base[0]= coerce_to_string(car((V52)));
  406.     base[1]= VV[28];
  407.     vs_top=(vs_base=base+0)+2;
  408.     Lintern();
  409.     vs_top=sup;
  410.     V65= vs_base[0];
  411.     goto T257;
  412. T259:;
  413.     V64= cadar((V52));
  414.     V65= caar((V52));
  415. T257:;
  416.     if(endp(cdr((V52)))){
  417.     goto T248;}
  418.     V66= cadr((V52));
  419.     if(endp(cddr((V52)))){
  420.     goto T248;}
  421.     V67= caddr((V52));
  422. T248:;
  423.     V68= list(4,VV[9],(V42),(V65),VV[29]);
  424.     (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));
  425.     V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63));
  426.     (void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69));
  427.     if(((V67))==Cnil){
  428.     goto T278;}
  429.     V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));
  430.     (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));
  431. T278:;
  432.     V44= make_cons((V65),(V44));}
  433.     {object V71;
  434.     V71= car((V34));
  435.     V34= cdr((V34));
  436.     goto T135;}
  437. T244:;
  438.     if(((V37))==Cnil){
  439.     goto T286;}
  440.     {object V72;
  441.     object V73;
  442.     object V74;
  443.     V72= Cnil;
  444.     V73= Cnil;
  445.     V74= Cnil;
  446.     if(!(type_of((V52))==t_symbol)){
  447.     goto T291;}
  448.     V72= (V52);
  449.     goto T289;
  450. T291:;
  451.     V72= car((V52));
  452.     if(endp(cdr((V52)))){
  453.     goto T289;}
  454.     V73= cadr((V52));
  455.     if(endp(cddr((V52)))){
  456.     goto T289;}
  457.     V74= caddr((V52));
  458. T289:;
  459.     V75= (*(LnkLI56))((V46),(V35));
  460.     V76= (*(LnkLI59))((V46),(V35));
  461.     V77= list(4,VV[30],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,(V73));
  462.     (void)((*(LnkLI58))((V72),/* INLINE-ARGS */V77));
  463.     if(((V74))==Cnil){
  464.     goto T288;}
  465.     V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));
  466.     (void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));}
  467. T288:;
  468.     V46= number_plus((V46),small_fixnum(1));
  469.     {object V79;
  470.     V79= car((V34));
  471.     V34= cdr((V34));
  472.     goto T135;}
  473. T286:;
  474.     V80= (*(LnkLI56))((V46),(V35));
  475.     V81= (*(LnkLI59))((V46),(V35));
  476.     V82= list(4,VV[30],/* INLINE-ARGS */V80,/* INLINE-ARGS */V81,VV[36]);
  477.     (void)((*(LnkLI58))((V52),/* INLINE-ARGS */V82));
  478.     V46= number_plus((V46),small_fixnum(1));
  479.     {object V83;
  480.     V83= car((V34));
  481.     V34= cdr((V34));}}
  482. T135:;
  483.     goto T111;}
  484. }
  485. /*    local entry for function DM-V    */
  486.  
  487. static object LI4(V86,V87)
  488.  
  489. register object V86;register object V87;
  490. {     VMB4 VMS4 VMV4
  491. TTL:;
  492.     if(!(type_of((V86))==t_symbol)){
  493.     goto T320;}
  494.     if(((V87))==Cnil){
  495.     goto T325;}
  496.     V88= list(2,(V86),(V87));
  497.     goto T323;
  498. T325:;
  499.     V88= (V86);
  500. T323:;
  501.     setq(VV[1],make_cons(V88,symbol_value(VV[1])));
  502.     {object V89 = symbol_value(VV[1]);
  503.     VMR4(V89)}
  504. T320:;
  505.     {object V90;
  506.     vs_base=vs_top;
  507.     Lgensym();
  508.     vs_top=sup;
  509.     V90= vs_base[0];
  510.     if(((V87))==Cnil){
  511.     goto T332;}
  512.     V91= list(2,(V90),(V87));
  513.     goto T330;
  514. T332:;
  515.     V91= (V90);
  516. T330:;
  517.     setq(VV[1],make_cons(V91,symbol_value(VV[1])));
  518.     {object V92 = (*(LnkLI55))((V86),(V90),Cnil);
  519.     VMR4(V92)}}
  520. }
  521. /*    local entry for function DM-NTH    */
  522.  
  523. static object LI5(V95,V96)
  524.  
  525. object V95;register object V96;
  526. {     VMB5 VMS5 VMV5
  527. TTL:;
  528.     {object V97;
  529.     object V98;
  530.     base[0]= (V95);
  531.     base[1]= small_fixnum(4);
  532.     vs_top=(vs_base=base+0)+2;
  533.     Lfloor();
  534.     if(vs_base>=vs_top){vs_top=sup;goto T337;}
  535.     V97= vs_base[0];
  536.     vs_base++;
  537.     if(vs_base>=vs_top){vs_top=sup;goto T338;}
  538.     V98= vs_base[0];
  539.     vs_top=sup;
  540.     goto T339;
  541. T337:;
  542.     V97= Cnil;
  543. T338:;
  544.     V98= Cnil;
  545. T339:;
  546.     {register object V99;
  547.     register object V100;
  548.     V99= (V97);
  549.     V100= small_fixnum(0);
  550. T344:;
  551.     if(!(number_compare((V100),(V99))>=0)){
  552.     goto T345;}
  553.     goto T340;
  554. T345:;
  555.     V96= list(2,VV[37],(V96));
  556.     V100= one_plus((V100));
  557.     goto T344;}
  558. T340:;
  559.     {object V101= (V98);
  560.     if(!eql(V101,VV[38]))goto T354;
  561.     {object V102 = list(2,VV[39],(V96));
  562.     VMR5(V102)}
  563. T354:;
  564.     if(!eql(V101,VV[40]))goto T355;
  565.     {object V103 = list(2,VV[41],(V96));
  566.     VMR5(V103)}
  567. T355:;
  568.     if(!eql(V101,VV[42]))goto T356;
  569.     {object V104 = list(2,VV[43],(V96));
  570.     VMR5(V104)}
  571. T356:;
  572.     if(!eql(V101,VV[44]))goto T357;
  573.     {object V105 = list(2,VV[45],(V96));
  574.     VMR5(V105)}
  575. T357:;
  576.     {object V106 = Cnil;
  577.     VMR5(V106)}}}
  578. }
  579. /*    local entry for function DM-NTH-CDR    */
  580.  
  581. static object LI6(V109,V110)
  582.  
  583. object V109;register object V110;
  584. {     VMB6 VMS6 VMV6
  585. TTL:;
  586.     {object V111;
  587.     object V112;
  588.     base[0]= (V109);
  589.     base[1]= small_fixnum(4);
  590.     vs_top=(vs_base=base+0)+2;
  591.     Lfloor();
  592.     if(vs_base>=vs_top){vs_top=sup;goto T361;}
  593.     V111= vs_base[0];
  594.     vs_base++;
  595.     if(vs_base>=vs_top){vs_top=sup;goto T362;}
  596.     V112= vs_base[0];
  597.     vs_top=sup;
  598.     goto T363;
  599. T361:;
  600.     V111= Cnil;
  601. T362:;
  602.     V112= Cnil;
  603. T363:;
  604.     {register object V113;
  605.     register object V114;
  606.     V113= (V111);
  607.     V114= small_fixnum(0);
  608. T368:;
  609.     if(!(number_compare((V114),(V113))>=0)){
  610.     goto T369;}
  611.     goto T364;
  612. T369:;
  613.     V110= list(2,VV[37],(V110));
  614.     V114= one_plus((V114));
  615.     goto T368;}
  616. T364:;
  617.     {object V115= (V112);
  618.     if(!eql(V115,VV[38]))goto T378;
  619.     {object V116 = (V110);
  620.     VMR6(V116)}
  621. T378:;
  622.     if(!eql(V115,VV[40]))goto T379;
  623.     {object V117 = list(2,VV[46],(V110));
  624.     VMR6(V117)}
  625. T379:;
  626.     if(!eql(V115,VV[42]))goto T380;
  627.     {object V118 = list(2,VV[47],(V110));
  628.     VMR6(V118)}
  629. T380:;
  630.     if(!eql(V115,VV[44]))goto T381;
  631.     {object V119 = list(2,VV[48],(V110));
  632.     VMR6(V119)}
  633. T381:;
  634.     {object V120 = Cnil;
  635.     VMR6(V120)}}}
  636. }
  637. /*    local entry for function DM-BAD-KEY    */
  638.  
  639. static object LI7(V122)
  640.  
  641. object V122;
  642. {     VMB7 VMS7 VMV7
  643. TTL:;
  644.     base[0]= VV[49];
  645.     base[1]= (V122);
  646.     vs_top=(vs_base=base+0)+2;
  647.     Lerror();
  648.     vs_top=sup;
  649.     {object V123 = vs_base[0];
  650.     VMR7(V123)}
  651. }
  652. /*    local entry for function DM-TOO-FEW-ARGUMENTS    */
  653.  
  654. static object LI8()
  655.  
  656. {     VMB8 VMS8 VMV8
  657. TTL:;
  658.     base[0]= VV[50];
  659.     vs_top=(vs_base=base+0)+1;
  660.     Lerror();
  661.     vs_top=sup;
  662.     {object V124 = vs_base[0];
  663.     VMR8(V124)}
  664. }
  665. /*    local entry for function DM-TOO-MANY-ARGUMENTS    */
  666.  
  667. static object LI9()
  668.  
  669. {     VMB9 VMS9 VMV9
  670. TTL:;
  671.     base[0]= VV[51];
  672.     vs_top=(vs_base=base+0)+1;
  673.     Lerror();
  674.     vs_top=sup;
  675.     {object V125 = vs_base[0];
  676.     VMR9(V125)}
  677. }
  678. /*    local entry for function DM-KEY-NOT-ALLOWED    */
  679.  
  680. static object LI10(V127)
  681.  
  682. object V127;
  683. {     VMB10 VMS10 VMV10
  684. TTL:;
  685.     base[0]= VV[52];
  686.     base[1]= (V127);
  687.     vs_top=(vs_base=base+0)+2;
  688.     Lerror();
  689.     vs_top=sup;
  690.     {object V128 = vs_base[0];
  691.     VMR10(V128)}
  692. }
  693. /*    function definition for FIND-DOC    */
  694.  
  695. static L11()
  696. {register object *base=vs_base;
  697.     register object *sup=base+VM11; VC11
  698.     vs_reserve(VM11);
  699.     {register object V129;
  700.     object V130;
  701.     check_arg(2);
  702.     V129=(base[0]);
  703.     V130=(base[1]);
  704.     vs_top=sup;
  705. TTL:;
  706.     if(!(endp((V129)))){
  707.     goto T389;}
  708.     base[2]= Cnil;
  709.     base[3]= Cnil;
  710.     base[4]= Cnil;
  711.     vs_top=(vs_base=base+2)+3;
  712.     return;
  713. T389:;
  714.     {register object V131;
  715.     base[2]= car((V129));
  716.     vs_top=(vs_base=base+2)+1;
  717.     Lmacroexpand();
  718.     vs_top=sup;
  719.     V131= vs_base[0];
  720.     if(!(type_of((V131))==t_string)){
  721.     goto T397;}
  722.     if(endp(cdr((V129)))){
  723.     goto T399;}
  724.     if(((V130))==Cnil){
  725.     goto T400;}
  726. T399:;
  727.     base[2]= Cnil;
  728.     base[3]= Cnil;
  729.     base[4]= make_cons((V131),cdr((V129)));
  730.     vs_top=(vs_base=base+2)+3;
  731.     return;
  732. T400:;
  733.     {object V132;
  734.     object V133;
  735.     object V134;
  736.     base[2]= cdr((V129));
  737.     base[3]= Ct;
  738.     vs_top=(vs_base=base+2)+2;
  739.     (void) (*Lnk53)();
  740.     if(vs_base>=vs_top){vs_top=sup;goto T410;}
  741.     V132= vs_base[0];
  742.     vs_base++;
  743.     if(vs_base>=vs_top){vs_top=sup;goto T411;}
  744.     V133= vs_base[0];
  745.     vs_base++;
  746.     if(vs_base>=vs_top){vs_top=sup;goto T412;}
  747.     V134= vs_base[0];
  748.     vs_top=sup;
  749.     goto T413;
  750. T410:;
  751.     V132= Cnil;
  752. T411:;
  753.     V133= Cnil;
  754. T412:;
  755.     V134= Cnil;
  756. T413:;
  757.     base[2]= (V131);
  758.     base[3]= (V133);
  759.     base[4]= (V134);
  760.     vs_top=(vs_base=base+2)+3;
  761.     return;}
  762. T397:;
  763.     if(!(type_of((V131))==t_cons)){
  764.     goto T418;}
  765.     if(!((car((V131)))==(VV[21]))){
  766.     goto T418;}
  767.     {object V135;
  768.     object V136;
  769.     object V137;
  770.     base[2]= cdr((V129));
  771.     base[3]= (V130);
  772.     vs_top=(vs_base=base+2)+2;
  773.     (void) (*Lnk53)();
  774.     if(vs_base>=vs_top){vs_top=sup;goto T425;}
  775.     V135= vs_base[0];
  776.     vs_base++;
  777.     if(vs_base>=vs_top){vs_top=sup;goto T426;}
  778.     V136= vs_base[0];
  779.     vs_base++;
  780.     if(vs_base>=vs_top){vs_top=sup;goto T427;}
  781.     V137= vs_base[0];
  782.     vs_top=sup;
  783.     goto T428;
  784. T425:;
  785.     V135= Cnil;
  786. T426:;
  787.     V136= Cnil;
  788. T427:;
  789.     V137= Cnil;
  790. T428:;
  791.     base[2]= (V135);
  792.     base[3]= make_cons((V131),(V136));
  793.     base[4]= (V137);
  794.     vs_top=(vs_base=base+2)+3;
  795.     return;}
  796. T418:;
  797.     base[2]= Cnil;
  798.     base[3]= Cnil;
  799.     base[4]= make_cons((V131),cdr((V129)));
  800.     vs_top=(vs_base=base+2)+3;
  801.     return;}
  802.     }
  803. }
  804. /*    function definition for FIND-DECLARATIONS    */
  805.  
  806. static L12()
  807. {register object *base=vs_base;
  808.     register object *sup=base+VM12; VC12
  809.     vs_reserve(VM12);
  810.     {register object V138;
  811.     check_arg(1);
  812.     V138=(base[0]);
  813.     vs_top=sup;
  814. TTL:;
  815.     if(!(endp((V138)))){
  816.     goto T436;}
  817.     base[1]= Cnil;
  818.     base[2]= Cnil;
  819.     vs_top=(vs_base=base+1)+2;
  820.     return;
  821. T436:;
  822.     {register object V139;
  823.     base[1]= car((V138));
  824.     vs_top=(vs_base=base+1)+1;
  825.     Lmacroexpand();
  826.     vs_top=sup;
  827.     V139= vs_base[0];
  828.     if(!(type_of((V139))==t_string)){
  829.     goto T443;}
  830.     if(!(endp(cdr((V138))))){
  831.     goto T446;}
  832.     base[1]= Cnil;
  833.     base[2]= make_cons((V139),Cnil);
  834.     vs_top=(vs_base=base+1)+2;
  835.     return;
  836. T446:;
  837.     {object V140;
  838.     object V141;
  839.     base[1]= cdr((V138));
  840.     vs_top=(vs_base=base+1)+1;
  841.     (void) (*Lnk60)();
  842.     if(vs_base>=vs_top){vs_top=sup;goto T452;}
  843.     V140= vs_base[0];
  844.     vs_base++;
  845.     if(vs_base>=vs_top){vs_top=sup;goto T453;}
  846.     V141= vs_base[0];
  847.     vs_top=sup;
  848.     goto T454;
  849. T452:;
  850.     V140= Cnil;
  851. T453:;
  852.     V141= Cnil;
  853. T454:;
  854.     base[1]= make_cons((V139),(V140));
  855.     base[2]= (V141);
  856.     vs_top=(vs_base=base+1)+2;
  857.     return;}
  858. T443:;
  859.     if(!(type_of((V139))==t_cons)){
  860.     goto T458;}
  861.     if(!((car((V139)))==(VV[21]))){
  862.     goto T458;}
  863.     {object V142;
  864.     object V143;
  865.     base[1]= cdr((V138));
  866.     vs_top=(vs_base=base+1)+1;
  867.     (void) (*Lnk60)();
  868.     if(vs_base>=vs_top){vs_top=sup;goto T464;}
  869.     V142= vs_base[0];
  870.     vs_base++;
  871.     if(vs_base>=vs_top){vs_top=sup;goto T465;}
  872.     V143= vs_base[0];
  873.     vs_top=sup;
  874.     goto T466;
  875. T464:;
  876.     V142= Cnil;
  877. T465:;
  878.     V143= Cnil;
  879. T466:;
  880.     base[1]= make_cons((V139),(V142));
  881.     base[2]= (V143);
  882.     vs_top=(vs_base=base+1)+2;
  883.     return;}
  884. T458:;
  885.     base[1]= Cnil;
  886.     base[2]= make_cons((V139),cdr((V138)));
  887.     vs_top=(vs_base=base+1)+2;
  888.     return;}
  889.     }
  890. }
  891. static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* FIND-DECLARATIONS */
  892. static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* DM-NTH */
  893. static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* DM-V */
  894. static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* DM-BAD-KEY */
  895. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,2,ap);} /* DM-NTH-CDR */
  896. static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* DM-VL */
  897. static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* GET-&ENVIRONMENT */
  898. static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* FIND-DOC */
  899.