home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / cmpnew / cmpflet.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  26.4 KB  |  1,166 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpflet.h"
  5. init_cmpflet(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],VV[3],VV[4]));
  10.     (void)(putprop(VV[5],VV[6],VV[2]));
  11.     (void)(putprop(VV[5],VV[7],VV[4]));
  12.     (void)(putprop(VV[8],VV[9],VV[2]));
  13.     (void)(putprop(VV[10],VV[11],VV[4]));
  14.     (void)(putprop(VV[12],VV[13],VV[14]));
  15.     (void)(putprop(VV[12],Ct,VV[15]));
  16.     (void)(putprop(VV[12],VV[16],VV[17]));
  17.     (void)(putprop(VV[12],Cnil,VV[18]));
  18.     (void)(putprop(VV[12],Cnil,VV[19]));
  19.     (void)(putprop(VV[12],Cnil,VV[20]));
  20.     (void)(putprop(VV[12],Cnil,VV[21]));
  21.     MF(VV[22],L14,start,size,data);
  22.     (void)(putprop(VV[22],VV[23],VV[24]));
  23.     (void)(putprop(VV[22],VV[25],VV[26]));
  24.     (void)(remprop(VV[22],VV[27]));
  25.     (void)(remprop(VV[22],VV[28]));
  26.     (void)(putprop(VV[22],Cnil,VV[29]));
  27.     MF(VV[30],L21,start,size,data);
  28.     (void)(putprop(VV[30],VV[31],VV[24]));
  29.     (void)(putprop(VV[30],VV[32],VV[26]));
  30.     (void)(remprop(VV[30],VV[27]));
  31.     (void)(remprop(VV[30],VV[28]));
  32.     (void)(putprop(VV[30],Cnil,VV[29]));
  33.     MF(VV[33],L28,start,size,data);
  34.     (void)(putprop(VV[33],VV[34],VV[24]));
  35.     (void)(putprop(VV[33],VV[35],VV[26]));
  36.     (void)(remprop(VV[33],VV[27]));
  37.     (void)(remprop(VV[33],VV[28]));
  38.     (void)(putprop(VV[33],Cnil,VV[29]));
  39.     MF(VV[36],L35,start,size,data);
  40.     (void)(putprop(VV[36],VV[37],VV[24]));
  41.     (void)(putprop(VV[36],VV[38],VV[26]));
  42.     (void)(remprop(VV[36],VV[27]));
  43.     (void)(remprop(VV[36],VV[28]));
  44.     (void)(putprop(VV[36],Cnil,VV[29]));
  45.     MF(VV[39],L42,start,size,data);
  46.     (void)(putprop(VV[39],VV[40],VV[24]));
  47.     (void)(putprop(VV[39],VV[41],VV[26]));
  48.     (void)(remprop(VV[39],VV[27]));
  49.     (void)(remprop(VV[39],VV[28]));
  50.     (void)(putprop(VV[39],Cnil,VV[29]));
  51.     (void)(putprop(VV[12],VV[42],VV[43]));
  52.     MF(VV[84],L50,start,size,data);
  53.     (void)(putprop(VV[12],VV[44],VV[45]));
  54.     MF(VV[85],L52,start,size,data);
  55.     MF(VV[86],L53,start,size,data);
  56.     (void)(putprop(VV[12],Cnil,VV[46]));
  57.     VV[47]->s.s_stype=(short)stp_special;
  58.     if(VV[47]->s.s_dbind == OBJNULL){
  59.     VV[47]->s.s_dbind = Cnil;}
  60.     MF(VV[1],L56,start,size,data);
  61.     MF(VV[3],L57,start,size,data);
  62.     MF(VV[6],L58,start,size,data);
  63.     MF(VV[7],L59,start,size,data);
  64.     MF(VV[9],L60,start,size,data);
  65.     MF(VV[87],L61,start,size,data);
  66.     MF(VV[88],L62,start,size,data);
  67.     MF(VV[89],L63,start,size,data);
  68.     MF(VV[11],L64,start,size,data);
  69.     vs_top=vs_base=base;
  70. }
  71. /*    function definition for FUN-NAME    */
  72.  
  73. static L14()
  74. {    register object *base=vs_base;
  75.     register object *sup=base+VM3;
  76.     vs_reserve(VM3);
  77.     check_arg(1);
  78.     vs_top=sup;
  79. TTL:;
  80.     base[1]= structure_ref(base[0],VV[12],0);
  81.     vs_top=(vs_base=base+1)+1;
  82.     return;
  83. }
  84. /*    function definition for FUN-REF    */
  85.  
  86. static L21()
  87. {    register object *base=vs_base;
  88.     register object *sup=base+VM4;
  89.     vs_reserve(VM4);
  90.     check_arg(1);
  91.     vs_top=sup;
  92. TTL:;
  93.     base[1]= structure_ref(base[0],VV[12],1);
  94.     vs_top=(vs_base=base+1)+1;
  95.     return;
  96. }
  97. /*    function definition for FUN-REF-CCB    */
  98.  
  99. static L28()
  100. {    register object *base=vs_base;
  101.     register object *sup=base+VM5;
  102.     vs_reserve(VM5);
  103.     check_arg(1);
  104.     vs_top=sup;
  105. TTL:;
  106.     base[1]= structure_ref(base[0],VV[12],2);
  107.     vs_top=(vs_base=base+1)+1;
  108.     return;
  109. }
  110. /*    function definition for FUN-CFUN    */
  111.  
  112. static L35()
  113. {    register object *base=vs_base;
  114.     register object *sup=base+VM6;
  115.     vs_reserve(VM6);
  116.     check_arg(1);
  117.     vs_top=sup;
  118. TTL:;
  119.     base[1]= structure_ref(base[0],VV[12],3);
  120.     vs_top=(vs_base=base+1)+1;
  121.     return;
  122. }
  123. /*    function definition for FUN-LEVEL    */
  124.  
  125. static L42()
  126. {    register object *base=vs_base;
  127.     register object *sup=base+VM7;
  128.     vs_reserve(VM7);
  129.     check_arg(1);
  130.     vs_top=sup;
  131. TTL:;
  132.     base[1]= structure_ref(base[0],VV[12],4);
  133.     vs_top=(vs_base=base+1)+1;
  134.     return;
  135. }
  136. /*    function definition for MAKE-FUN    */
  137.  
  138. static L50()
  139. {    register object *base=vs_base;
  140.     register object *sup=base+VM8;
  141.     vs_reserve(VM8);
  142.     parse_key(vs_base,FALSE,FALSE,5,VV[51],VV[52],VV[53],VV[90],VV[91]);
  143.     vs_top=sup;
  144.     base[10]= VV[12];
  145.     base[11]= base[0];
  146.     base[12]= base[1];
  147.     base[13]= base[2];
  148.     base[14]= base[3];
  149.     base[15]= base[4];
  150.     vs_top=(vs_base=base+10)+6;
  151.     siLmake_structure();
  152.     return;
  153. }
  154. /*    function definition for COPY-FUN    */
  155.  
  156. static L52()
  157. {    register object *base=vs_base;
  158.     register object *sup=base+VM9;
  159.     vs_reserve(VM9);
  160.     check_arg(1);
  161.     vs_top=sup;
  162. TTL:;
  163.     base[1]= base[0];
  164.     base[2]= VV[12];
  165.     symlispcall_no_event(VV[92],base+1,2);
  166.     return;
  167. }
  168. /*    function definition for FUN-P    */
  169.  
  170. static L53()
  171. {    register object *base=vs_base;
  172.     register object *sup=base+VM10;
  173.     vs_reserve(VM10);
  174.     check_arg(1);
  175.     vs_top=sup;
  176. TTL:;
  177.     base[1]= base[0];
  178.     vs_top=(vs_base=base+1)+1;
  179.     siLstructurep();
  180.     vs_top=sup;
  181.     if((vs_base[0])!=Cnil){
  182.     goto T57;}
  183.     base[1]= Cnil;
  184.     vs_top=(vs_base=base+1)+1;
  185.     return;
  186. T57:;
  187.     base[2]= base[0];
  188.     vs_top=(vs_base=base+2)+1;
  189.     siLstructure_name();
  190.     vs_top=sup;
  191.     base[1]= vs_base[0];
  192. T63:;
  193.     if((base[1])!=Cnil){
  194.     goto T64;}
  195.     base[2]= Cnil;
  196.     vs_top=(vs_base=base+2)+1;
  197.     return;
  198. T64:;
  199.     if(!(base[1]==VV[12])){
  200.     goto T68;}
  201.     base[2]= Ct;
  202.     vs_top=(vs_base=base+2)+1;
  203.     return;
  204. T68:;
  205.     base[1]= get(base[1],VV[18],Cnil);
  206.     goto T63;
  207. }
  208. /*    function definition for C1FLET    */
  209.  
  210. static L56()
  211. {    register object *base=vs_base;
  212.     register object *sup=base+VM11;
  213.     vs_reserve(VM11);
  214.     bds_check;
  215.     check_arg(1);
  216.     vs_top=sup;
  217. TTL:;
  218.     base[1]= Cnil;
  219.     base[2]= Cnil;
  220.     base[3]= Cnil;
  221.     base[4]= Cnil;
  222.     base[5]= Cnil;
  223.     base[6]= Cnil;
  224.     base[7]= Cnil;
  225.     base[8]= Cnil;
  226.     base[9]= Cnil;
  227.     if(!(endp(base[0]))){
  228.     goto T75;}
  229.     base[10]= VV[0];
  230.     base[11]= VV[48];
  231.     base[12]= VV[49];
  232.     (void)simple_symlispcall_no_event(VV[93],base+10,3);
  233. T75:;
  234.     bds_bind(VV[47],symbol_value(VV[47]));
  235.     {object V1;
  236.     object V2;
  237.     V1= car(base[0]);
  238.     V2= car((V1));
  239. T86:;
  240.     if(!(endp((V1)))){
  241.     goto T87;}
  242.     goto T82;
  243. T87:;
  244.     if(endp((V2))){
  245.     goto T92;}
  246.     if(!(type_of(car((V2)))==t_symbol)){
  247.     goto T92;}
  248.     if(!(endp(cdr((V2))))){
  249.     goto T91;}
  250. T92:;
  251.     base[11]= VV[50];
  252.     base[12]= (V2);
  253.     (void)simple_symlispcall_no_event(VV[94],base+11,2);
  254. T91:;
  255.     base[12]= VV[51];
  256.     base[13]= car((V2));
  257.     base[14]= VV[52];
  258.     base[15]= Cnil;
  259.     base[16]= VV[53];
  260.     base[17]= Cnil;
  261.     vs_top=(vs_base=base+12)+6;
  262.     L50();
  263.     vs_top=sup;
  264.     base[11]= vs_base[0];
  265.     (VV[47]->s.s_dbind)= make_cons(base[11],(VV[47]->s.s_dbind));
  266.     base[12]= list(2,base[11],cdr((V2)));
  267.     base[7]= make_cons(base[12],base[7]);
  268.     V1= cdr((V1));
  269.     V2= car((V1));
  270.     goto T86;}
  271. T82:;
  272.     base[11]= cdr(base[0]);
  273.     base[12]= Ct;
  274.     symlispcall_no_event(VV[95],base+11,2);
  275.     if(vs_base<vs_top){
  276.     base[1]= vs_base[0];
  277.     vs_base++;
  278.     }else{
  279.     base[1]= Cnil;}
  280.     if(vs_base<vs_top){
  281.     base[2]= vs_base[0];
  282.     vs_base++;
  283.     }else{
  284.     base[2]= Cnil;}
  285.     if(vs_base<vs_top){
  286.     base[3]= vs_base[0];
  287.     vs_base++;
  288.     }else{
  289.     base[3]= Cnil;}
  290.     if(vs_base<vs_top){
  291.     base[4]= vs_base[0];
  292.     vs_base++;
  293.     }else{
  294.     base[4]= Cnil;}
  295.     if(vs_base<vs_top){
  296.     base[5]= vs_base[0];
  297.     }else{
  298.     base[5]= Cnil;}
  299.     vs_top=sup;
  300.     bds_bind(VV[54],symbol_value(VV[54]));
  301.     base[12]= base[2];
  302.     (void)simple_symlispcall_no_event(VV[96],base+12,1);
  303.     base[12]= Cnil;
  304.     base[13]= base[3];
  305.     base[14]= base[4];
  306.     (void)simple_symlispcall_no_event(VV[97],base+12,3);
  307.     base[12]= base[5];
  308.     base[13]= base[1];
  309.     base[1]= simple_symlispcall_no_event(VV[98],base+12,2);
  310.     bds_unwind1;
  311.     base[11]= cadr(base[1]);
  312.     base[6]= simple_symlispcall_no_event(VV[99],base+11,1);
  313.     bds_unwind1;
  314.     {object V3;
  315.     base[10]= reverse(base[7]);
  316.     V3= car(base[10]);
  317. T136:;
  318.     if(!(endp(base[10]))){
  319.     goto T137;}
  320.     goto T132;
  321. T137:;
  322.     if((structure_ref(car((V3)),VV[12],2))==Cnil){
  323.     goto T141;}
  324.     base[11]= make_cons(VV[55],symbol_value(VV[54]));
  325.     base[12]= make_cons(VV[55],symbol_value(VV[47]));
  326.     base[13]= make_cons(VV[55],symbol_value(VV[56]));
  327.     base[14]= make_cons(VV[55],symbol_value(VV[57]));
  328.     bds_bind(VV[54],base[11]);
  329.     bds_bind(VV[47],base[12]);
  330.     bds_bind(VV[56],base[13]);
  331.     bds_bind(VV[57],base[14]);
  332.     base[16]= cadr((V3));
  333.     base[17]= structure_ref(car((V3)),VV[12],0);
  334.     base[15]= simple_symlispcall_no_event(VV[100],base+16,2);
  335.     base[16]= base[6];
  336.     base[17]= cadr(base[15]);
  337.     (void)simple_symlispcall_no_event(VV[101],base+16,2);
  338.     base[16]= list(2,car((V3)),base[15]);
  339.     base[9]= make_cons(base[16],base[9]);
  340.     bds_unwind1;
  341.     bds_unwind1;
  342.     bds_unwind1;
  343.     bds_unwind1;
  344. T141:;
  345.     if((structure_ref(car((V3)),VV[12],1))==Cnil){
  346.     goto T155;}
  347.     base[11]= make_cons(VV[58],symbol_value(VV[56]));
  348.     base[12]= make_cons(VV[58],symbol_value(VV[57]));
  349.     base[13]= make_cons(VV[58],symbol_value(VV[54]));
  350.     bds_bind(VV[56],base[11]);
  351.     bds_bind(VV[57],base[12]);
  352.     bds_bind(VV[54],base[13]);
  353.     base[15]= cadr((V3));
  354.     base[16]= structure_ref(car((V3)),VV[12],0);
  355.     base[14]= simple_symlispcall_no_event(VV[100],base+15,2);
  356.     base[15]= base[6];
  357.     base[16]= cadr(base[14]);
  358.     (void)simple_symlispcall_no_event(VV[101],base+15,2);
  359.     base[15]= list(2,car((V3)),base[14]);
  360.     base[8]= make_cons(base[15],base[8]);
  361.     bds_unwind1;
  362.     bds_unwind1;
  363.     bds_unwind1;
  364. T155:;
  365.     if((structure_ref(car((V3)),VV[12],1))!=Cnil){
  366.     goto T169;}
  367.     if((structure_ref(car((V3)),VV[12],2))==Cnil){
  368.     goto T168;}
  369. T169:;
  370.     {object V4= car((V3));
  371.     setq(VV[59],number_plus(symbol_value(VV[59]),VV[48]));
  372.     structure_set(V4,VV[12],3,symbol_value(VV[59]));}
  373. T168:;
  374.     base[10]= cdr(base[10]);
  375.     V3= car(base[10]);
  376.     goto T136;}
  377. T132:;
  378.     if((base[8])!=Cnil){
  379.     goto T179;}
  380.     if((base[9])==Cnil){
  381.     goto T180;}
  382. T179:;
  383.     base[10]= reverse(base[8]);
  384.     base[11]= reverse(base[9]);
  385.     base[12]= list(5,VV[0],base[6],base[10],base[11],base[1]);
  386.     vs_top=(vs_base=base+12)+1;
  387.     return;
  388. T180:;
  389.     vs_top=(vs_base=base+1)+1;
  390.     return;
  391. }
  392. /*    function definition for C2FLET    */
  393.  
  394. static L57()
  395. {    register object *base=vs_base;
  396.     register object *sup=base+VM12;
  397.     vs_reserve(VM12);
  398.     bds_check;
  399.     check_arg(3);
  400.     vs_top=sup;
  401. TTL:;
  402.     bds_bind(VV[60],symbol_value(VV[60]));
  403.     bds_bind(VV[61],symbol_value(VV[61]));
  404.     bds_bind(VV[62],symbol_value(VV[62]));
  405.     {object V5;
  406.     object V6;
  407.     V5= base[0];
  408.     V6= car((V5));
  409. T188:;
  410.     if(!(endp((V5)))){
  411.     goto T189;}
  412.     goto T184;
  413. T189:;
  414.     structure_set(car((V6)),VV[12],4,symbol_value(VV[63]));
  415.     base[6]= (VV[61]->s.s_dbind);
  416.     base[7]= (VV[62]->s.s_dbind);
  417.     base[8]= list(5,Cnil,base[6],base[7],car((V6)),cadr((V6)));
  418.     setq(VV[64],make_cons(base[8],symbol_value(VV[64])));
  419.     V5= cdr((V5));
  420.     V6= car((V5));
  421.     goto T188;}
  422. T184:;
  423.     {object V7;
  424.     object V8;
  425.     V7= base[1];
  426.     V8= car((V7));
  427. T205:;
  428.     if(!(endp((V7)))){
  429.     goto T206;}
  430.     goto T201;
  431. T206:;
  432.     if(((VV[61]->s.s_dbind))!=Cnil){
  433.     goto T214;}
  434.     base[6]= Cnil;
  435.     goto T212;
  436. T214:;
  437.     base[6]= make_cons(VV[49],VV[49]);
  438. T212:;
  439.     base[7]= (VV[62]->s.s_dbind);
  440.     base[8]= list(5,VV[65],base[6],base[7],car((V8)),cadr((V8)));
  441.     setq(VV[64],make_cons(base[8],symbol_value(VV[64])));
  442.     setq(VV[66],make_cons(car((V8)),symbol_value(VV[66])));
  443.     {object V9;
  444.     V9= car((V8));
  445.     base[6]= simple_symlispcall_no_event(VV[102],base+7,0);
  446.     structure_set((V9),VV[12],1,base[6]);
  447.     princ_str("\n    ",VV[67]);
  448.     base[6]= structure_ref((V9),VV[12],1);
  449.     (void)simple_symlispcall_no_event(VV[103],base+6,1);
  450.     princ_str("=make_cclosure(LC",VV[67]);
  451.     base[6]= structure_ref((V9),VV[12],3);
  452.     (void)simple_symlispcall_no_event(VV[104],base+6,1);
  453.     princ_str(",Cnil,",VV[67]);
  454.     (void)simple_symlispcall_no_event(VV[105],base+6,0);
  455.     princ_str(",Cdata,Cstart,Csize);",VV[67]);
  456.     princ_str("\n    ",VV[67]);
  457.     base[6]= structure_ref((V9),VV[12],1);
  458.     (void)simple_symlispcall_no_event(VV[103],base+6,1);
  459.     princ_str("=MMcons(",VV[67]);
  460.     base[6]= structure_ref((V9),VV[12],1);
  461.     (void)simple_symlispcall_no_event(VV[103],base+6,1);
  462.     princ_char(44,VV[67]);
  463.     (void)simple_symlispcall_no_event(VV[105],base+6,0);
  464.     princ_str(");",VV[67]);
  465.     base[6]= structure_ref((V9),VV[12],1);
  466.     (void)simple_symlispcall_no_event(VV[106],base+6,1);
  467.     base[6]= simple_symlispcall_no_event(VV[107],base+7,0);
  468.     structure_set((V9),VV[12],2,base[6]);}
  469.     V7= cdr((V7));
  470.     V8= car((V7));
  471.     goto T205;}
  472. T201:;
  473.     base[6]= base[2];
  474.     symlispcall_no_event(VV[108],base+6,1);
  475.     bds_unwind1;
  476.     bds_unwind1;
  477.     bds_unwind1;
  478.     return;
  479. }
  480. /*    function definition for C1LABELS    */
  481.  
  482. static L58()
  483. {    register object *base=vs_base;
  484.     register object *sup=base+VM13;
  485.     vs_reserve(VM13);
  486.     bds_check;
  487.     check_arg(1);
  488.     vs_top=sup;
  489. TTL:;
  490.     base[1]= Cnil;
  491.     base[2]= Cnil;
  492.     base[3]= Cnil;
  493.     base[4]= Cnil;
  494.     base[5]= Cnil;
  495.     base[6]= Cnil;
  496.     base[7]= Cnil;
  497.     base[8]= Cnil;
  498.     base[9]= Cnil;
  499.     base[10]= Cnil;
  500.     base[11]= Cnil;
  501.     bds_bind(VV[47],symbol_value(VV[47]));
  502.     if(!(endp(base[0]))){
  503.     goto T254;}
  504.     base[13]= VV[5];
  505.     base[14]= VV[48];
  506.     base[15]= VV[49];
  507.     (void)simple_symlispcall_no_event(VV[93],base+13,3);
  508. T254:;
  509.     {object V10;
  510.     object V11;
  511.     V10= car(base[0]);
  512.     V11= car((V10));
  513. T264:;
  514.     if(!(endp((V10)))){
  515.     goto T265;}
  516.     goto T260;
  517. T265:;
  518.     if(endp((V11))){
  519.     goto T270;}
  520.     if(!(type_of(car((V11)))==t_symbol)){
  521.     goto T270;}
  522.     if(!(endp(cdr((V11))))){
  523.     goto T269;}
  524. T270:;
  525.     base[13]= VV[68];
  526.     base[14]= (V11);
  527.     (void)simple_symlispcall_no_event(VV[94],base+13,2);
  528. T269:;
  529.     {object x= car((V11)),V12= base[10];
  530.     while(!endp(V12))
  531.     if(eql(x,V12->c.c_car)){
  532.     goto T280;
  533.     }else V12=V12->c.c_cdr;
  534.     goto T278;}
  535. T280:;
  536.     base[13]= VV[69];
  537.     base[14]= car((V11));
  538.     (void)simple_symlispcall_no_event(VV[94],base+13,2);
  539. T278:;
  540.     base[10]= make_cons(car((V11)),base[10]);
  541.     base[14]= VV[51];
  542.     base[15]= car((V11));
  543.     base[16]= VV[52];
  544.     base[17]= Cnil;
  545.     base[18]= VV[53];
  546.     base[19]= Cnil;
  547.     vs_top=(vs_base=base+14)+6;
  548.     L50();
  549.     vs_top=sup;
  550.     base[13]= vs_base[0];
  551.     (VV[47]->s.s_dbind)= make_cons(base[13],(VV[47]->s.s_dbind));
  552.     base[14]= list(4,base[13],Cnil,Cnil,cdr((V11)));
  553.     base[7]= make_cons(base[14],base[7]);
  554.     V10= cdr((V10));
  555.     V11= car((V10));
  556.     goto T264;}
  557. T260:;
  558.     base[7]= reverse(base[7]);
  559.     base[13]= cdr(base[0]);
  560.     base[14]= Ct;
  561.     symlispcall_no_event(VV[95],base+13,2);
  562.     if(vs_base<vs_top){
  563.     base[1]= vs_base[0];
  564.     vs_base++;
  565.     }else{
  566.     base[1]= Cnil;}
  567.     if(vs_base<vs_top){
  568.     base[2]= vs_base[0];
  569.     vs_base++;
  570.     }else{
  571.     base[2]= Cnil;}
  572.     if(vs_base<vs_top){
  573.     base[3]= vs_base[0];
  574.     vs_base++;
  575.     }else{
  576.     base[3]= Cnil;}
  577.     if(vs_base<vs_top){
  578.     base[4]= vs_base[0];
  579.     vs_base++;
  580.     }else{
  581.     base[4]= Cnil;}
  582.     if(vs_base<vs_top){
  583.     base[5]= vs_base[0];
  584.     }else{
  585.     base[5]= Cnil;}
  586.     vs_top=sup;
  587.     bds_bind(VV[54],symbol_value(VV[54]));
  588.     base[14]= base[2];
  589.     (void)simple_symlispcall_no_event(VV[96],base+14,1);
  590.     base[14]= Cnil;
  591.     base[15]= base[3];
  592.     base[16]= base[4];
  593.     (void)simple_symlispcall_no_event(VV[97],base+14,3);
  594.     base[14]= base[5];
  595.     base[15]= base[1];
  596.     base[1]= simple_symlispcall_no_event(VV[98],base+14,2);
  597.     bds_unwind1;
  598.     base[13]= cadr(base[1]);
  599.     base[6]= simple_symlispcall_no_event(VV[99],base+13,1);
  600. T322:;
  601.     base[11]= Cnil;
  602.     {object V13;
  603.     object V14;
  604.     V13= base[7];
  605.     V14= car((V13));
  606. T330:;
  607.     if(!(endp((V13)))){
  608.     goto T331;}
  609.     goto T326;
  610. T331:;
  611.     if((structure_ref(car((V14)),VV[12],1))==Cnil){
  612.     goto T335;}
  613.     if((cadr((V14)))!=Cnil){
  614.     goto T335;}
  615.     base[11]= Ct;
  616.     if(type_of(cdr(V14))!=t_cons)FEwrong_type_argument(Scons,cdr(V14));
  617.     (cdr(V14))->c.c_car = Ct;
  618.     base[13]= make_cons(VV[58],symbol_value(VV[56]));
  619.     base[14]= make_cons(VV[58],symbol_value(VV[57]));
  620.     base[15]= make_cons(VV[58],symbol_value(VV[54]));
  621.     bds_bind(VV[56],base[13]);
  622.     bds_bind(VV[57],base[14]);
  623.     bds_bind(VV[54],base[15]);
  624.     base[17]= cadddr((V14));
  625.     base[18]= structure_ref(car((V14)),VV[12],0);
  626.     base[16]= simple_symlispcall_no_event(VV[100],base+17,2);
  627.     base[17]= base[6];
  628.     base[18]= cadr(base[16]);
  629.     (void)simple_symlispcall_no_event(VV[101],base+17,2);
  630.     base[17]= list(2,car((V14)),base[16]);
  631.     base[8]= make_cons(base[17],base[8]);
  632.     bds_unwind1;
  633.     bds_unwind1;
  634.     bds_unwind1;
  635. T335:;
  636.     V13= cdr((V13));
  637.     V14= car((V13));
  638.     goto T330;}
  639. T326:;
  640.     if((base[11])!=Cnil){
  641.     goto T323;}
  642.     goto T320;
  643. T323:;
  644.     goto T322;
  645. T320:;
  646. T364:;
  647.     base[11]= Cnil;
  648.     {object V15;
  649.     object V16;
  650.     V15= base[7];
  651.     V16= car((V15));
  652. T372:;
  653.     if(!(endp((V15)))){
  654.     goto T373;}
  655.     goto T368;
  656. T373:;
  657.     if((structure_ref(car((V16)),VV[12],2))==Cnil){
  658.     goto T377;}
  659.     if((caddr((V16)))!=Cnil){
  660.     goto T377;}
  661.     base[11]= Ct;
  662.     if(type_of(cddr(V16))!=t_cons)FEwrong_type_argument(Scons,cddr(V16));
  663.     (cddr(V16))->c.c_car = Ct;
  664.     base[13]= make_cons(VV[55],symbol_value(VV[54]));
  665.     base[14]= make_cons(VV[55],(VV[47]->s.s_dbind));
  666.     base[15]= make_cons(VV[55],symbol_value(VV[56]));
  667.     base[16]= make_cons(VV[55],symbol_value(VV[57]));
  668.     bds_bind(VV[54],base[13]);
  669.     bds_bind(VV[47],base[14]);
  670.     bds_bind(VV[56],base[15]);
  671.     bds_bind(VV[57],base[16]);
  672.     base[18]= cadddr((V16));
  673.     base[19]= structure_ref(car((V16)),VV[12],0);
  674.     base[17]= simple_symlispcall_no_event(VV[100],base+18,2);
  675.     base[18]= base[6];
  676.     base[19]= cadr(base[17]);
  677.     (void)simple_symlispcall_no_event(VV[101],base+18,2);
  678.     base[18]= list(2,car((V16)),base[17]);
  679.     base[9]= make_cons(base[18],base[9]);
  680.     bds_unwind1;
  681.     bds_unwind1;
  682.     bds_unwind1;
  683.     bds_unwind1;
  684. T377:;
  685.     V15= cdr((V15));
  686.     V16= car((V15));
  687.     goto T372;}
  688. T368:;
  689.     if((base[11])!=Cnil){
  690.     goto T365;}
  691.     goto T362;
  692. T365:;
  693.     goto T364;
  694. T362:;
  695.     {object V17;
  696.     object V18;
  697.     V17= base[7];
  698.     V18= car((V17));
  699. T409:;
  700.     if(!(endp((V17)))){
  701.     goto T410;}
  702.     goto T405;
  703. T410:;
  704.     if((structure_ref(car((V18)),VV[12],1))!=Cnil){
  705.     goto T415;}
  706.     if((structure_ref(car((V18)),VV[12],2))==Cnil){
  707.     goto T414;}
  708. T415:;
  709.     {object V19= car((V18));
  710.     setq(VV[59],number_plus(symbol_value(VV[59]),VV[48]));
  711.     structure_set(V19,VV[12],3,symbol_value(VV[59]));}
  712. T414:;
  713.     V17= cdr((V17));
  714.     V18= car((V17));
  715.     goto T409;}
  716. T405:;
  717.     if((base[8])!=Cnil){
  718.     goto T425;}
  719.     if((base[9])==Cnil){
  720.     goto T426;}
  721. T425:;
  722.     base[13]= reverse(base[8]);
  723.     base[14]= reverse(base[9]);
  724.     base[15]= list(5,VV[5],base[6],base[13],base[14],base[1]);
  725.     vs_top=(vs_base=base+15)+1;
  726.     bds_unwind1;
  727.     return;
  728. T426:;
  729.     vs_top=(vs_base=base+1)+1;
  730.     bds_unwind1;
  731.     return;
  732. }
  733. /*    function definition for C2LABELS    */
  734.  
  735. static L59()
  736. {    register object *base=vs_base;
  737.     register object *sup=base+VM14;
  738.     vs_reserve(VM14);
  739.     bds_check;
  740.     check_arg(3);
  741.     vs_top=sup;
  742. TTL:;
  743.     bds_bind(VV[60],symbol_value(VV[60]));
  744.     bds_bind(VV[61],symbol_value(VV[61]));
  745.     {object V20;
  746.     object V21;
  747.     V20= base[1];
  748.     V21= car((V20));
  749. T434:;
  750.     if(!(endp((V20)))){
  751.     goto T435;}
  752.     goto T430;
  753. T435:;
  754.     {object V22;
  755.     V22= car((V21));
  756.     base[5]= simple_symlispcall_no_event(VV[102],base+6,0);
  757.     structure_set((V22),VV[12],1,base[5]);
  758.     princ_str("\n    ",VV[67]);
  759.     base[5]= structure_ref((V22),VV[12],1);
  760.     (void)simple_symlispcall_no_event(VV[103],base+5,1);
  761.     princ_str("=MMcons(Cnil,",VV[67]);
  762.     (void)simple_symlispcall_no_event(VV[105],base+5,0);
  763.     princ_str(");",VV[67]);
  764.     base[5]= structure_ref((V22),VV[12],1);
  765.     (void)simple_symlispcall_no_event(VV[106],base+5,1);
  766.     base[5]= simple_symlispcall_no_event(VV[107],base+6,0);
  767.     structure_set((V22),VV[12],2,base[5]);}
  768.     V20= cdr((V20));
  769.     V21= car((V20));
  770.     goto T434;}
  771. T430:;
  772.     {object V23;
  773.     object V24;
  774.     V23= base[0];
  775.     V24= car((V23));
  776. T463:;
  777.     if(!(endp((V23)))){
  778.     goto T464;}
  779.     goto T459;
  780. T464:;
  781.     structure_set(car((V24)),VV[12],4,symbol_value(VV[63]));
  782.     base[5]= (VV[61]->s.s_dbind);
  783.     base[6]= symbol_value(VV[62]);
  784.     base[7]= list(5,Cnil,base[5],base[6],car((V24)),cadr((V24)));
  785.     setq(VV[64],make_cons(base[7],symbol_value(VV[64])));
  786.     V23= cdr((V23));
  787.     V24= car((V23));
  788.     goto T463;}
  789. T459:;
  790.     {object V25;
  791.     object V26;
  792.     V25= base[1];
  793.     V26= car((V25));
  794. T480:;
  795.     if(!(endp((V25)))){
  796.     goto T481;}
  797.     goto T476;
  798. T481:;
  799.     if(((VV[61]->s.s_dbind))!=Cnil){
  800.     goto T489;}
  801.     base[5]= Cnil;
  802.     goto T487;
  803. T489:;
  804.     base[5]= make_cons(VV[49],VV[49]);
  805. T487:;
  806.     base[6]= symbol_value(VV[62]);
  807.     base[7]= list(5,VV[65],base[5],base[6],car((V26)),cadr((V26)));
  808.     setq(VV[64],make_cons(base[7],symbol_value(VV[64])));
  809.     setq(VV[66],make_cons(car((V26)),symbol_value(VV[66])));
  810.     princ_str("\n    ",VV[67]);
  811.     base[5]= structure_ref(car((V26)),VV[12],1);
  812.     (void)simple_symlispcall_no_event(VV[109],base+5,1);
  813.     princ_str("=make_cclosure(LC",VV[67]);
  814.     base[5]= structure_ref(car((V26)),VV[12],3);
  815.     (void)simple_symlispcall_no_event(VV[104],base+5,1);
  816.     princ_str(",Cnil,",VV[67]);
  817.     (void)simple_symlispcall_no_event(VV[105],base+5,0);
  818.     princ_str(",Cdata,Cstart,Csize);",VV[67]);
  819.     V25= cdr((V25));
  820.     V26= car((V25));
  821.     goto T480;}
  822. T476:;
  823.     base[5]= base[2];
  824.     symlispcall_no_event(VV[108],base+5,1);
  825.     bds_unwind1;
  826.     bds_unwind1;
  827.     return;
  828. }
  829. /*    function definition for C1MACROLET    */
  830.  
  831. static L60()
  832. {    register object *base=vs_base;
  833.     register object *sup=base+VM15;
  834.     vs_reserve(VM15);
  835.     bds_check;
  836.     check_arg(1);
  837.     vs_top=sup;
  838. TTL:;
  839.     base[1]= Cnil;
  840.     base[2]= Cnil;
  841.     base[3]= Cnil;
  842.     base[4]= Cnil;
  843.     base[5]= Cnil;
  844.     bds_bind(VV[47],symbol_value(VV[47]));
  845.     bds_bind(VV[54],symbol_value(VV[54]));
  846.     if(!(endp(base[0]))){
  847.     goto T510;}
  848.     base[8]= VV[8];
  849.     base[9]= VV[48];
  850.     base[10]= VV[49];
  851.     (void)simple_symlispcall_no_event(VV[93],base+8,3);
  852. T510:;
  853.     {object V27;
  854.     object V28;
  855.     V27= car(base[0]);
  856.     V28= car((V27));
  857. T520:;
  858.     if(!(endp((V27)))){
  859.     goto T521;}
  860.     goto T516;
  861. T521:;
  862.     if(endp((V28))){
  863.     goto T526;}
  864.     if(!(type_of(car((V28)))==t_symbol)){
  865.     goto T526;}
  866.     if(!(endp(cdr((V28))))){
  867.     goto T525;}
  868. T526:;
  869.     base[8]= VV[70];
  870.     base[9]= (V28);
  871.     (void)simple_symlispcall_no_event(VV[94],base+8,2);
  872. T525:;
  873.     {object V29= car((V28));
  874.     base[9]= car((V28));
  875.     base[10]= cadr((V28));
  876.     base[11]= cddr((V28));
  877.     base[8]= simple_symlispcall_no_event(VV[110],base+9,3);
  878.     base[9]= list(2,V29,caddr(base[8]));
  879.     (VV[47]->s.s_dbind)= make_cons(base[9],(VV[47]->s.s_dbind));}
  880.     V27= cdr((V27));
  881.     V28= car((V27));
  882.     goto T520;}
  883. T516:;
  884.     base[8]= cdr(base[0]);
  885.     base[9]= Ct;
  886.     symlispcall_no_event(VV[95],base+8,2);
  887.     if(vs_base<vs_top){
  888.     base[1]= vs_base[0];
  889.     vs_base++;
  890.     }else{
  891.     base[1]= Cnil;}
  892.     if(vs_base<vs_top){
  893.     base[2]= vs_base[0];
  894.     vs_base++;
  895.     }else{
  896.     base[2]= Cnil;}
  897.     if(vs_base<vs_top){
  898.     base[3]= vs_base[0];
  899.     vs_base++;
  900.     }else{
  901.     base[3]= Cnil;}
  902.     if(vs_base<vs_top){
  903.     base[4]= vs_base[0];
  904.     vs_base++;
  905.     }else{
  906.     base[4]= Cnil;}
  907.     if(vs_base<vs_top){
  908.     base[5]= vs_base[0];
  909.     }else{
  910.     base[5]= Cnil;}
  911.     vs_top=sup;
  912.     base[8]= base[2];
  913.     (void)simple_symlispcall_no_event(VV[96],base+8,1);
  914.     base[8]= Cnil;
  915.     base[9]= base[3];
  916.     base[10]= base[4];
  917.     (void)simple_symlispcall_no_event(VV[97],base+8,3);
  918.     base[8]= base[5];
  919.     base[9]= base[1];
  920.     symlispcall_no_event(VV[98],base+8,2);
  921.     bds_unwind1;
  922.     bds_unwind1;
  923.     return;
  924. }
  925. /*    function definition for C1LOCAL-FUN    */
  926.  
  927. static L61()
  928. {    register object *base=vs_base;
  929.     register object *sup=base+VM16;
  930.     vs_reserve(VM16);
  931.     check_arg(1);
  932.     vs_top=sup;
  933. TTL:;
  934.     {object V30;
  935.     V30= Cnil;
  936.     {object V31;
  937.     base[1]= symbol_value(VV[47]);
  938.     V31= car(base[1]);
  939. T560:;
  940.     if(!(endp(base[1]))){
  941.     goto T561;}
  942.     base[2]= Cnil;
  943.     vs_top=(vs_base=base+2)+1;
  944.     return;
  945. T561:;
  946.     if(!((V31)==VV[55])){
  947.     goto T567;}
  948.     V30= Ct;
  949.     goto T565;
  950. T567:;
  951.     if(!(type_of((V31))==t_cons)){
  952.     goto T571;}
  953.     if(!(car((V31))==base[0])){
  954.     goto T565;}
  955.     base[2]= cadr((V31));
  956.     vs_top=(vs_base=base+2)+1;
  957.     return;
  958. T571:;
  959.     if(!(structure_ref((V31),VV[12],0)==base[0])){
  960.     goto T565;}
  961.     if(((V30))==Cnil){
  962.     goto T579;}
  963.     structure_set((V31),VV[12],2,Ct);
  964.     goto T577;
  965. T579:;
  966.     structure_set((V31),VV[12],1,Ct);
  967. T577:;
  968.     base[2]= list(4,VV[10],symbol_value(VV[71]),(V31),(V30));
  969.     vs_top=(vs_base=base+2)+1;
  970.     return;
  971. T565:;
  972.     base[1]= cdr(base[1]);
  973.     V31= car(base[1]);
  974.     goto T560;}}
  975. }
  976. /*    function definition for SCH-LOCAL-FUN    */
  977.  
  978. static L62()
  979. {    register object *base=vs_base;
  980.     register object *sup=base+VM17;
  981.     vs_reserve(VM17);
  982.     check_arg(1);
  983.     vs_top=sup;
  984. TTL:;
  985.     {object V32;
  986.     base[1]= symbol_value(VV[47]);
  987.     V32= car(base[1]);
  988. T588:;
  989.     if(!(endp(base[1]))){
  990.     goto T589;}
  991.     vs_top=(vs_base=base+0)+1;
  992.     return;
  993. T589:;
  994.     if((V32)==VV[55]){
  995.     goto T593;}
  996.     if(type_of((V32))==t_cons){
  997.     goto T593;}
  998.     if(!(structure_ref((V32),VV[12],0)==base[0])){
  999.     goto T593;}
  1000.     base[2]= (V32);
  1001.     vs_top=(vs_base=base+2)+1;
  1002.     return;
  1003. T593:;
  1004.     base[1]= cdr(base[1]);
  1005.     V32= car(base[1]);
  1006.     goto T588;}
  1007. }
  1008. /*    function definition for C1LOCAL-CLOSURE    */
  1009.  
  1010. static L63()
  1011. {    register object *base=vs_base;
  1012.     register object *sup=base+VM18;
  1013.     vs_reserve(VM18);
  1014.     check_arg(1);
  1015.     vs_top=sup;
  1016. TTL:;
  1017.     {object V33;
  1018.     V33= Cnil;
  1019.     {object V34;
  1020.     base[1]= symbol_value(VV[47]);
  1021.     V34= car(base[1]);
  1022. T608:;
  1023.     if(!(endp(base[1]))){
  1024.     goto T609;}
  1025.     base[2]= Cnil;
  1026.     vs_top=(vs_base=base+2)+1;
  1027.     return;
  1028. T609:;
  1029.     if(!((V34)==VV[55])){
  1030.     goto T615;}
  1031.     V33= Ct;
  1032.     goto T613;
  1033. T615:;
  1034.     if(!(type_of((V34))==t_cons)){
  1035.     goto T619;}
  1036.     if(!(car((V34))==base[0])){
  1037.     goto T613;}
  1038.     base[2]= cadr((V34));
  1039.     vs_top=(vs_base=base+2)+1;
  1040.     return;
  1041. T619:;
  1042.     if(!(structure_ref((V34),VV[12],0)==base[0])){
  1043.     goto T613;}
  1044.     structure_set((V34),VV[12],2,Ct);
  1045.     base[2]= list(4,VV[10],symbol_value(VV[71]),(V34),(V33));
  1046.     vs_top=(vs_base=base+2)+1;
  1047.     return;
  1048. T613:;
  1049.     base[1]= cdr(base[1]);
  1050.     V34= car(base[1]);
  1051.     goto T608;}}
  1052. }
  1053. /*    function definition for C2CALL-LOCAL    */
  1054.  
  1055. static L64()
  1056. {    register object *base=vs_base;
  1057.     register object *sup=base+VM19;
  1058.     vs_reserve(VM19);
  1059.     bds_check;
  1060.     check_arg(2);
  1061.     vs_top=sup;
  1062. TTL:;
  1063.     bds_bind(VV[60],symbol_value(VV[60]));
  1064.     if((cadr(base[0]))==Cnil){
  1065.     goto T633;}
  1066.     base[3]= base[1];
  1067.     (void)simple_symlispcall_no_event(VV[111],base+3,1);
  1068.     princ_str("\n    cclosure_call(",VV[67]);
  1069.     base[3]= structure_ref(car(base[0]),VV[12],2);
  1070.     (void)simple_symlispcall_no_event(VV[112],base+3,1);
  1071.     princ_str(");",VV[67]);
  1072.     goto T631;
  1073. T633:;
  1074.     if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
  1075.     goto T643;}
  1076.     if((symbol_value(VV[72]))==Cnil){
  1077.     goto T643;}
  1078.     if((symbol_value(VV[73]))==Cnil){
  1079.     goto T643;}
  1080.     if(!(car(symbol_value(VV[73]))==car(base[0]))){
  1081.     goto T643;}
  1082.     if(!(symbol_value(VV[74])==VV[75])){
  1083.     goto T643;}
  1084.     if((simple_symlispcall_no_event(VV[113],base+3,0))==Cnil){
  1085.     goto T643;}
  1086.     if(!((length(base[1]))==(length(cdr(symbol_value(VV[73])))))){
  1087.     goto T643;}
  1088.     bds_bind(VV[76],VV[77]);
  1089.     setq(VV[78],number_plus(symbol_value(VV[78]),VV[48]));
  1090.     bds_bind(VV[74],make_cons(symbol_value(VV[78]),Cnil));
  1091.     bds_bind(VV[79],make_cons((VV[74]->s.s_dbind),symbol_value(VV[79])));
  1092.     base[6]=symbol_function(VV[114]);
  1093.     {object V35;
  1094.     object V36= cdr(symbol_value(VV[73]));
  1095.     if(endp(V36)){
  1096.     base[7]= Cnil;
  1097.     goto T662;}
  1098.     base[8]=V35=MMcons(Cnil,Cnil);
  1099. T663:;
  1100.     (V35->c.c_car)= list(2,(V36->c.c_car),Cnil);
  1101.     if(endp(V36=MMcdr(V36))){
  1102.     base[7]= base[8];
  1103.     goto T662;}
  1104.     V35=MMcdr(V35)=MMcons(Cnil,Cnil);
  1105.     goto T663;}
  1106. T662:;
  1107.     base[8]= base[1];
  1108.     (void)simple_lispcall_no_event(base+6,2);
  1109.     if((cdr((VV[74]->s.s_dbind)))==Cnil){
  1110.     bds_unwind1;
  1111.     bds_unwind1;
  1112.     bds_unwind1;
  1113.     goto T657;}
  1114.     princ_str("\nT",VV[67]);
  1115.     base[6]= car((VV[74]->s.s_dbind));
  1116.     (void)simple_symlispcall_no_event(VV[104],base+6,1);
  1117.     princ_str(":;",VV[67]);
  1118.     bds_unwind1;
  1119.     bds_unwind1;
  1120.     bds_unwind1;
  1121. T657:;
  1122.     base[3]= VV[80];
  1123.     (void)simple_symlispcall_no_event(VV[115],base+3,1);
  1124.     princ_str("\n    goto TTL;",VV[67]);
  1125.     base[3]= VV[81];
  1126.     base[4]= structure_ref(car(base[0]),VV[12],0);
  1127.     (void)simple_symlispcall_no_event(VV[116],base+3,2);
  1128.     goto T631;
  1129. T643:;
  1130.     base[3]= base[1];
  1131.     (void)simple_symlispcall_no_event(VV[111],base+3,1);
  1132.     princ_str("\n    L",VV[67]);
  1133.     base[3]= structure_ref(car(base[0]),VV[12],3);
  1134.     (void)simple_symlispcall_no_event(VV[104],base+3,1);
  1135.     princ_char(40,VV[67]);
  1136.     {int V37;
  1137.     int V38;
  1138.     V37= fix(structure_ref(car(base[0]),VV[12],4));
  1139.     V38= 0;
  1140. T689:;
  1141.     if(!((V38)>=(V37))){
  1142.     goto T690;}
  1143.     goto T685;
  1144. T690:;
  1145.     princ_str("base",VV[67]);
  1146.     base[3]= make_fixnum(V38);
  1147.     (void)simple_symlispcall_no_event(VV[104],base+3,1);
  1148.     princ_char(44,VV[67]);
  1149.     V38= (V38)+1;
  1150.     goto T689;}
  1151. T685:;
  1152.     princ_str("base",VV[67]);
  1153.     if(number_compare(structure_ref(car(base[0]),VV[12],4),symbol_value(VV[63]))==0){
  1154.     goto T704;}
  1155.     base[3]= one_minus(symbol_value(VV[63]));
  1156.     (void)simple_symlispcall_no_event(VV[104],base+3,1);
  1157. T704:;
  1158.     princ_str(");",VV[67]);
  1159.     setq(VV[82],Ct);
  1160. T631:;
  1161.     base[3]= VV[83];
  1162.     symlispcall_no_event(VV[117],base+3,1);
  1163.     bds_unwind1;
  1164.     return;
  1165. }
  1166.