home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / cmpnew / cmpenv.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  43.9 KB  |  2,153 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpenv.h"
  5. init_cmpenv(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.     VV[0]->s.s_stype=(short)stp_special;
  9.     if(VV[0]->s.s_dbind == OBJNULL){
  10.     VV[0]->s.s_dbind = Cnil;}
  11.     VV[1]->s.s_stype=(short)stp_special;
  12.     if(VV[1]->s.s_dbind == OBJNULL){
  13.     VV[1]->s.s_dbind = Cnil;}
  14.     VV[2]->s.s_stype=(short)stp_special;
  15.     if(VV[2]->s.s_dbind == OBJNULL){
  16.     VV[2]->s.s_dbind = Cnil;}
  17.     VV[4]->s.s_stype=(short)stp_special;
  18.     if(VV[4]->s.s_dbind == OBJNULL){
  19.     VV[4]->s.s_dbind = VV[3];}
  20.     VV[6]->s.s_stype=(short)stp_special;
  21.     if(VV[6]->s.s_dbind == OBJNULL){
  22.     VV[6]->s.s_dbind = VV[5];}
  23.     MF(VV[111],L1,start,size,data);
  24.     VV[7]->s.s_stype=(short)stp_special;
  25.     if(VV[7]->s.s_dbind == OBJNULL){
  26.     VV[7]->s.s_dbind = VV[5];}
  27.     VV[8]->s.s_stype=(short)stp_special;
  28.     if(VV[8]->s.s_dbind == OBJNULL){
  29.     VV[8]->s.s_dbind = VV[5];}
  30.     VV[9]->s.s_stype=(short)stp_special;
  31.     if(VV[9]->s.s_dbind == OBJNULL){
  32.     VV[9]->s.s_dbind = VV[10];}
  33.     VV[11]->s.s_stype=(short)stp_special;
  34.     if(VV[11]->s.s_dbind == OBJNULL){
  35.     VV[11]->s.s_dbind = VV[5];}
  36.     MM(VV[112],L2,start,size,data);
  37.     MF(VV[113],L3,start,size,data);
  38.     MF(VV[114],L4,start,size,data);
  39.     MF(VV[115],L5,start,size,data);
  40.     MM(VV[116],L6,start,size,data);
  41.     MM(VV[117],L7,start,size,data);
  42.     VV[35]->s.s_stype=(short)stp_special;
  43.     if(VV[35]->s.s_dbind == OBJNULL){
  44.     VV[35]->s.s_dbind = Ct;}
  45.     VV[36]->s.s_stype=(short)stp_special;
  46.     if(VV[36]->s.s_dbind == OBJNULL){
  47.     VV[36]->s.s_dbind = Cnil;}
  48.     VV[25]->s.s_stype=(short)stp_special;
  49.     if(VV[25]->s.s_dbind == OBJNULL){
  50.     VV[25]->s.s_dbind = Cnil;}
  51.     MF(VV[118],L8,start,size,data);
  52.     MF(VV[119],L9,start,size,data);
  53.     MF(VV[120],L10,start,size,data);
  54.     MF(VV[121],L11,start,size,data);
  55.     MF(VV[122],L12,start,size,data);
  56.     MF(VV[123],L13,start,size,data);
  57.     MF(VV[124],L14,start,size,data);
  58.     MF(VV[125],L15,start,size,data);
  59.     VV[48]->s.s_stype=(short)stp_special;
  60.     if(VV[48]->s.s_dbind == OBJNULL){
  61.     VV[48]->s.s_dbind = Cnil;}
  62.     VV[49]->s.s_stype=(short)stp_special;
  63.     if(VV[49]->s.s_dbind == OBJNULL){
  64.     VV[49]->s.s_dbind = Cnil;}
  65.     MF(VV[126],L16,start,size,data);
  66.     MM(VV[127],L17,start,size,data);
  67.     VV[52]->s.s_stype=(short)stp_special;
  68.     if(VV[52]->s.s_dbind == OBJNULL){
  69.     VV[52]->s.s_dbind = Cnil;}
  70.     VV[28]->s.s_stype=(short)stp_special;
  71.     if(VV[28]->s.s_dbind == OBJNULL){
  72.     VV[28]->s.s_dbind = Cnil;}
  73.     MF(VV[128],L18,start,size,data);
  74.     MF(VV[129],L19,start,size,data);
  75.     MF(VV[130],L20,start,size,data);
  76.     MF(VV[131],L21,start,size,data);
  77.     MF(VV[132],L22,start,size,data);
  78.     (void)(putprop(VV[92],VV[93],VV[94]));
  79.     MF(VV[93],L24,start,size,data);
  80.     MF(VV[133],L25,start,size,data);
  81.     MF(VV[134],L26,start,size,data);
  82.     vs_top=vs_base=base;
  83. }
  84. /*    function definition for INIT-ENV    */
  85.  
  86. static L1()
  87. {    register object *base=vs_base;
  88.     register object *sup=base+VM3;
  89.     vs_reserve(VM3);
  90.     check_arg(0);
  91.     vs_top=sup;
  92. TTL:;
  93.     setq(VV[7],VV[5]);
  94.     setq(VV[8],VV[5]);
  95.     setq(VV[9],VV[10]);
  96.     setq(VV[11],VV[5]);
  97.     setq(VV[12],VV[5]);
  98.     setq(VV[13],Cnil);
  99.     setq(VV[14],Cnil);
  100.     setq(VV[15],Cnil);
  101.     setq(VV[16],Cnil);
  102.     setq(VV[17],Cnil);
  103.     setq(VV[18],Cnil);
  104.     setq(VV[19],Cnil);
  105.     setq(VV[20],Cnil);
  106.     setq(VV[21],Cnil);
  107.     setq(VV[22],symbol_value(VV[23]));
  108.     setq(VV[24],Cnil);
  109.     setq(VV[25],Cnil);
  110.     setq(VV[26],Cnil);
  111.     setq(VV[27],VV[5]);
  112.     setq(VV[28],Cnil);
  113.     base[0]= Cnil;
  114.     vs_top=(vs_base=base+0)+1;
  115.     return;
  116. }
  117. /*    macro definition for NEXT-CFUN    */
  118.  
  119. static L2()
  120. {    register object *base=vs_base;
  121.     register object *sup=base+VM4;
  122.     vs_reserve(VM4);
  123.     check_arg(2);
  124.     vs_top=sup;
  125.     {object V1=base[0]->c.c_cdr;
  126.     if(!endp(V1))invalid_macro_call();}
  127.     base[2]= VV[29];
  128.     vs_top=(vs_base=base+2)+1;
  129.     return;
  130. }
  131. /*    function definition for ADD-SYMBOL    */
  132.  
  133. static L3()
  134. {    register object *base=vs_base;
  135.     register object *sup=base+VM5;
  136.     vs_reserve(VM5);
  137.     check_arg(1);
  138.     vs_top=sup;
  139. TTL:;
  140.     {object x= base[0],V2= symbol_value(VV[13]);
  141.     while(!endp(V2))
  142.     if(eql(x,car(V2->c.c_car))){
  143.     base[1]= (V2->c.c_car);
  144.     goto T57;
  145.     }else V2=V2->c.c_cdr;
  146.     base[1]= Cnil;}
  147. T57:;
  148.     if((base[1])==Cnil){
  149.     goto T59;}
  150.     base[2]= cadr(base[1]);
  151.     vs_top=(vs_base=base+2)+1;
  152.     return;
  153. T59:;
  154.     setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
  155.     base[2]= list(2,base[0],symbol_value(VV[9]));
  156.     setq(VV[13],make_cons(base[2],symbol_value(VV[13])));
  157.     base[2]= base[0];
  158.     (void)simple_symlispcall_no_event(VV[135],base+2,1);
  159.     base[2]= symbol_value(VV[9]);
  160.     vs_top=(vs_base=base+2)+1;
  161.     return;
  162. }
  163. /*    function definition for ADD-OBJECT    */
  164.  
  165. static L4()
  166. {    register object *base=vs_base;
  167.     register object *sup=base+VM6;
  168.     vs_reserve(VM6);
  169.     check_arg(1);
  170.     vs_top=sup;
  171. TTL:;
  172.     base[1]= Cnil;
  173.     base[2]= base[0];
  174.     if((simple_symlispcall_no_event(VV[136],base+2,1))==Cnil){
  175.     goto T68;}
  176.     setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
  177.     setq(VV[31],make_cons(symbol_value(VV[9]),symbol_value(VV[31])));
  178.     base[2]=symbol_function(VV[135]);
  179.     base[4]= base[0];
  180.     base[3]= simple_symlispcall_no_event(VV[137],base+4,1);
  181.     (void)simple_lispcall_no_event(base+2,1);
  182.     base[2]= symbol_value(VV[9]);
  183.     vs_top=(vs_base=base+2)+1;
  184.     return;
  185. T68:;
  186.     {object x= base[0],V3= symbol_value(VV[13]);
  187.     while(!endp(V3))
  188.     if(eql(x,car(V3->c.c_car))){
  189.     base[1]= (V3->c.c_car);
  190.     goto T81;
  191.     }else V3=V3->c.c_cdr;
  192.     base[1]= Cnil;}
  193. T81:;
  194.     if((base[1])==Cnil){
  195.     goto T79;}
  196.     base[2]= cadr(base[1]);
  197.     vs_top=(vs_base=base+2)+1;
  198.     return;
  199. T79:;
  200.     setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
  201.     base[2]= list(2,base[0],symbol_value(VV[9]));
  202.     setq(VV[13],make_cons(base[2],symbol_value(VV[13])));
  203.     base[2]= base[0];
  204.     (void)simple_symlispcall_no_event(VV[135],base+2,1);
  205.     base[2]= symbol_value(VV[9]);
  206.     vs_top=(vs_base=base+2)+1;
  207.     return;
  208. }
  209. /*    function definition for ADD-CONSTANT    */
  210.  
  211. static L5()
  212. {    register object *base=vs_base;
  213.     register object *sup=base+VM7;
  214.     vs_reserve(VM7);
  215.     check_arg(1);
  216.     vs_top=sup;
  217. TTL:;
  218.     base[1]= Cnil;
  219.     {object x= base[0],V4= symbol_value(VV[14]);
  220.     while(!endp(V4))
  221.     if(eql(x,car(V4->c.c_car))){
  222.     base[1]= (V4->c.c_car);
  223.     goto T91;
  224.     }else V4=V4->c.c_cdr;
  225.     base[1]= Cnil;}
  226. T91:;
  227.     if((base[1])==Cnil){
  228.     goto T89;}
  229.     base[2]= cadr(base[1]);
  230.     vs_top=(vs_base=base+2)+1;
  231.     return;
  232. T89:;
  233.     setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
  234.     setq(VV[31],make_cons(symbol_value(VV[9]),symbol_value(VV[31])));
  235.     base[2]=symbol_function(VV[135]);
  236.     base[4]= make_cons(VV[32],base[0]);
  237.     base[3]= simple_symlispcall_no_event(VV[137],base+4,1);
  238.     (void)simple_lispcall_no_event(base+2,1);
  239.     base[2]= list(2,base[0],symbol_value(VV[9]));
  240.     setq(VV[14],make_cons(base[2],symbol_value(VV[14])));
  241.     base[2]= symbol_value(VV[9]);
  242.     vs_top=(vs_base=base+2)+1;
  243.     return;
  244. }
  245. /*    macro definition for NEXT-CVAR    */
  246.  
  247. static L6()
  248. {    register object *base=vs_base;
  249.     register object *sup=base+VM8;
  250.     vs_reserve(VM8);
  251.     check_arg(2);
  252.     vs_top=sup;
  253.     {object V5=base[0]->c.c_cdr;
  254.     if(!endp(V5))invalid_macro_call();}
  255.     base[2]= VV[33];
  256.     vs_top=(vs_base=base+2)+1;
  257.     return;
  258. }
  259. /*    macro definition for NEXT-CMACRO    */
  260.  
  261. static L7()
  262. {    register object *base=vs_base;
  263.     register object *sup=base+VM9;
  264.     vs_reserve(VM9);
  265.     check_arg(2);
  266.     vs_top=sup;
  267.     {object V6=base[0]->c.c_cdr;
  268.     if(!endp(V6))invalid_macro_call();}
  269.     base[2]= VV[34];
  270.     vs_top=(vs_base=base+2)+1;
  271.     return;
  272. }
  273. /*    function definition for FUNCTION-ARG-TYPES    */
  274.  
  275. static L8()
  276. {    register object *base=vs_base;
  277.     register object *sup=base+VM10;
  278.     vs_reserve(VM10);
  279.     check_arg(1);
  280.     vs_top=sup;
  281. TTL:;
  282.     base[1]= Cnil;
  283.     {object V7;
  284.     V7= base[0];
  285. T103:;
  286.     if(endp((V7))){
  287.     goto T105;}
  288.     {object x= car((V7)),V8= VV[37];
  289.     while(!endp(V8))
  290.     if(eql(x,V8->c.c_car)){
  291.     goto T108;
  292.     }else V8=V8->c.c_cdr;
  293.     goto T104;}
  294. T108:;
  295. T105:;
  296.     base[2]= reverse(base[1]);
  297.     vs_top=(vs_base=base+2)+1;
  298.     return;
  299. T104:;
  300.     base[3]= car((V7));
  301.     base[2]= simple_symlispcall_no_event(VV[138],base+3,1);
  302.     base[1]= make_cons(base[2],base[1]);
  303.     V7= cdr((V7));
  304.     goto T103;}
  305. }
  306. /*    function definition for FUNCTION-RETURN-TYPE    */
  307.  
  308. static L9()
  309. {    register object *base=vs_base;
  310.     register object *sup=base+VM11;
  311.     vs_reserve(VM11);
  312.     check_arg(1);
  313.     vs_top=sup;
  314. TTL:;
  315.     if(!(endp(base[0]))){
  316.     goto T118;}
  317.     base[1]= Ct;
  318.     vs_top=(vs_base=base+1)+1;
  319.     return;
  320. T118:;
  321.     if(!(type_of(car(base[0]))==t_cons)){
  322.     goto T121;}
  323.     if(!(caar(base[0])==VV[38])){
  324.     goto T121;}
  325.     if(endp(cdr(base[0]))){
  326.     goto T126;}
  327.     base[1]= VV[39];
  328.     base[2]= base[0];
  329.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  330.     base[1]= Ct;
  331.     vs_top=(vs_base=base+1)+1;
  332.     return;
  333. T126:;
  334.     if(endp(cdar(base[0]))){
  335.     goto T131;}
  336.     {object x= cadar(base[0]),V9= VV[40];
  337.     while(!endp(V9))
  338.     if(eql(x,V9->c.c_car)){
  339.     goto T135;
  340.     }else V9=V9->c.c_cdr;
  341.     goto T132;}
  342. T135:;
  343. T131:;
  344.     base[1]= Ct;
  345.     vs_top=(vs_base=base+1)+1;
  346.     return;
  347. T132:;
  348.     base[1]= cadar(base[0]);
  349.     symlispcall_no_event(VV[138],base+1,1);
  350.     return;
  351. T121:;
  352.     base[1]= car(base[0]);
  353.     symlispcall_no_event(VV[138],base+1,1);
  354.     return;
  355. }
  356. /*    function definition for ADD-FUNCTION-PROCLAMATION    */
  357.  
  358. static L10()
  359. {    register object *base=vs_base;
  360.     register object *sup=base+VM12;
  361.     vs_reserve(VM12);
  362.     check_arg(3);
  363.     vs_top=sup;
  364. TTL:;
  365.     if(!(type_of(base[0])==t_symbol)){
  366.     goto T139;}
  367.     base[4]= base[1];
  368.     vs_top=(vs_base=base+4)+1;
  369.     L8();
  370.     vs_top=sup;
  371.     base[3]= vs_base[0];
  372.     (void)(putprop(base[0],base[3],VV[41]));
  373.     base[4]= base[2];
  374.     vs_top=(vs_base=base+4)+1;
  375.     L9();
  376.     vs_top=sup;
  377.     base[3]= vs_base[0];
  378.     (void)(putprop(base[0],base[3],VV[42]));
  379.     if(endp(base[2])){
  380.     goto T148;}
  381.     if(!(endp(cdr(base[2])))){
  382.     goto T148;}
  383.     if(!(type_of(car(base[2]))==t_cons)){
  384.     goto T147;}
  385.     if(!(caar(base[2])==VV[38])){
  386.     goto T147;}
  387.     if(endp(cdar(base[2]))){
  388.     goto T148;}
  389.     if(!(endp(cddar(base[2])))){
  390.     goto T148;}
  391. T147:;
  392.     base[3]= putprop(base[0],Ct,VV[43]);
  393.     vs_top=(vs_base=base+3)+1;
  394.     return;
  395. T148:;
  396.     base[3]= remprop(base[0],VV[43]);
  397.     vs_top=(vs_base=base+3)+1;
  398.     return;
  399. T139:;
  400.     base[3]= VV[44];
  401.     base[4]= base[0];
  402.     symlispcall_no_event(VV[139],base+3,2);
  403.     return;
  404. }
  405. /*    function definition for ADD-FUNCTION-DECLARATION    */
  406.  
  407. static L11()
  408. {    register object *base=vs_base;
  409.     register object *sup=base+VM13;
  410.     vs_reserve(VM13);
  411.     check_arg(3);
  412.     vs_top=sup;
  413. TTL:;
  414.     if(!(type_of(base[0])==t_symbol)){
  415.     goto T163;}
  416.     base[4]= base[0];
  417.     base[3]= simple_symlispcall_no_event(VV[140],base+4,1);
  418.     base[5]= base[1];
  419.     vs_top=(vs_base=base+5)+1;
  420.     L8();
  421.     vs_top=sup;
  422.     base[4]= vs_base[0];
  423.     base[6]= base[2];
  424.     vs_top=(vs_base=base+6)+1;
  425.     L9();
  426.     vs_top=sup;
  427.     base[5]= vs_base[0];
  428.     base[6]= list(3,base[3],base[4],base[5]);
  429.     setq(VV[25],make_cons(base[6],symbol_value(VV[25])));
  430.     base[3]= symbol_value(VV[25]);
  431.     vs_top=(vs_base=base+3)+1;
  432.     return;
  433. T163:;
  434.     base[3]= VV[45];
  435.     base[4]= base[0];
  436.     symlispcall_no_event(VV[139],base+3,2);
  437.     return;
  438. }
  439. /*    function definition for GET-ARG-TYPES    */
  440.  
  441. static L12()
  442. {    register object *base=vs_base;
  443.     register object *sup=base+VM14;
  444.     vs_reserve(VM14);
  445.     check_arg(1);
  446.     vs_top=sup;
  447. TTL:;
  448.     base[1]= Cnil;
  449.     {object x= base[0],V10= symbol_value(VV[25]);
  450.     while(!endp(V10))
  451.     if(eql(x,car(V10->c.c_car))){
  452.     base[1]= (V10->c.c_car);
  453.     goto T177;
  454.     }else V10=V10->c.c_cdr;
  455.     base[1]= Cnil;}
  456. T177:;
  457.     if((base[1])==Cnil){
  458.     goto T175;}
  459.     base[2]= cadr(base[1]);
  460.     vs_top=(vs_base=base+2)+1;
  461.     return;
  462. T175:;
  463.     base[2]= get(base[0],VV[41],Cnil);
  464.     vs_top=(vs_base=base+2)+1;
  465.     return;
  466. }
  467. /*    function definition for GET-RETURN-TYPE    */
  468.  
  469. static L13()
  470. {    register object *base=vs_base;
  471.     register object *sup=base+VM15;
  472.     vs_reserve(VM15);
  473.     check_arg(1);
  474.     vs_top=sup;
  475. TTL:;
  476.     {object x= base[0],V11= symbol_value(VV[25]);
  477.     while(!endp(V11))
  478.     if(eql(x,car(V11->c.c_car))){
  479.     base[1]= (V11->c.c_car);
  480.     goto T178;
  481.     }else V11=V11->c.c_cdr;
  482.     base[1]= Cnil;}
  483. T178:;
  484.     if((base[1])==Cnil){
  485.     goto T181;}
  486.     base[2]= caddr(base[1]);
  487.     goto T179;
  488. T181:;
  489.     base[2]= get(base[0],VV[42],Cnil);
  490. T179:;
  491.     if((base[2])==Cnil){
  492.     goto T184;}
  493.     base[3]= get(base[0],VV[46],Cnil);
  494.     if((base[3])==Cnil){
  495.     goto T188;}
  496.     base[4]= base[3];
  497.     base[5]= base[2];
  498.     base[3]= simple_symlispcall_no_event(VV[141],base+4,2);
  499.     if((base[3])==Cnil){
  500.     goto T191;}
  501.     vs_top=(vs_base=base+3)+1;
  502.     return;
  503. T191:;
  504.     base[4]= VV[47];
  505.     base[5]= base[0];
  506.     symlispcall_no_event(VV[142],base+4,2);
  507.     return;
  508. T188:;
  509.     vs_top=(vs_base=base+2)+1;
  510.     return;
  511. T184:;
  512.     base[3]= get(base[0],VV[46],Cnil);
  513.     vs_top=(vs_base=base+3)+1;
  514.     return;
  515. }
  516. /*    function definition for GET-LOCAL-ARG-TYPES    */
  517.  
  518. static L14()
  519. {    register object *base=vs_base;
  520.     register object *sup=base+VM16;
  521.     vs_reserve(VM16);
  522.     check_arg(1);
  523.     vs_top=sup;
  524. TTL:;
  525.     base[1]= Cnil;
  526.     {object x= base[0],V12= symbol_value(VV[25]);
  527.     while(!endp(V12))
  528.     if(eql(x,car(V12->c.c_car))){
  529.     base[1]= (V12->c.c_car);
  530.     goto T201;
  531.     }else V12=V12->c.c_cdr;
  532.     base[1]= Cnil;}
  533. T201:;
  534.     if((base[1])==Cnil){
  535.     goto T199;}
  536.     base[2]= cadr(base[1]);
  537.     vs_top=(vs_base=base+2)+1;
  538.     return;
  539. T199:;
  540.     base[2]= Cnil;
  541.     vs_top=(vs_base=base+2)+1;
  542.     return;
  543. }
  544. /*    function definition for GET-LOCAL-RETURN-TYPE    */
  545.  
  546. static L15()
  547. {    register object *base=vs_base;
  548.     register object *sup=base+VM17;
  549.     vs_reserve(VM17);
  550.     check_arg(1);
  551.     vs_top=sup;
  552. TTL:;
  553.     base[1]= Cnil;
  554.     {object x= base[0],V13= symbol_value(VV[25]);
  555.     while(!endp(V13))
  556.     if(eql(x,car(V13->c.c_car))){
  557.     base[1]= (V13->c.c_car);
  558.     goto T205;
  559.     }else V13=V13->c.c_cdr;
  560.     base[1]= Cnil;}
  561. T205:;
  562.     if((base[1])==Cnil){
  563.     goto T203;}
  564.     base[2]= caddr(base[1]);
  565.     vs_top=(vs_base=base+2)+1;
  566.     return;
  567. T203:;
  568.     base[2]= Cnil;
  569.     vs_top=(vs_base=base+2)+1;
  570.     return;
  571. }
  572. /*    function definition for RESET-TOP    */
  573.  
  574. static L16()
  575. {    register object *base=vs_base;
  576.     register object *sup=base+VM18;
  577.     vs_reserve(VM18);
  578.     check_arg(0);
  579.     vs_top=sup;
  580. TTL:;
  581.     princ_str("vs_top=sup;",VV[50]);
  582.     setq(VV[48],Ct);
  583.     base[0]= Ct;
  584.     vs_top=(vs_base=base+0)+1;
  585.     return;
  586. }
  587. /*    macro definition for BASE-USED    */
  588.  
  589. static L17()
  590. {    register object *base=vs_base;
  591.     register object *sup=base+VM19;
  592.     vs_reserve(VM19);
  593.     check_arg(2);
  594.     vs_top=sup;
  595.     {object V14=base[0]->c.c_cdr;
  596.     if(!endp(V14))invalid_macro_call();}
  597.     base[2]= VV[51];
  598.     vs_top=(vs_base=base+2)+1;
  599.     return;
  600. }
  601. /*    function definition for INLINE-POSSIBLE    */
  602.  
  603. static L18()
  604. {    register object *base=vs_base;
  605.     register object *sup=base+VM20;
  606.     vs_reserve(VM20);
  607.     check_arg(1);
  608.     vs_top=sup;
  609. TTL:;
  610.     if(symbol_value(VV[2])!=Cnil){
  611.     base[1]= symbol_value(VV[2]);
  612.     goto T209;}
  613.     {object x= base[0],V15= symbol_value(VV[28]);
  614.     while(!endp(V15))
  615.     if(eql(x,V15->c.c_car)){
  616.     base[2]= V15;
  617.     goto T211;
  618.     }else V15=V15->c.c_cdr;
  619.     base[2]= Cnil;}
  620. T211:;
  621.     if(base[2]==Cnil)goto T210;
  622.     base[1]= base[2];
  623.     goto T209;
  624. T210:;
  625.     base[1]= get(base[0],VV[53],Cnil);
  626. T209:;
  627.     base[2]= ((base[1])==Cnil?Ct:Cnil);
  628.     vs_top=(vs_base=base+2)+1;
  629.     return;
  630. }
  631. /*    function definition for PROCLAIM    */
  632.  
  633. static L19()
  634. {    register object *base=vs_base;
  635.     register object *sup=base+VM21;
  636.     vs_reserve(VM21);
  637.     check_arg(1);
  638.     vs_top=sup;
  639. TTL:;
  640.     {object V16= car(base[0]);
  641.     if((V16!= VV[143]))goto T213;
  642.     {object V17;
  643.     object V18;
  644.     V17= cdr(base[0]);
  645.     V18= car((V17));
  646. T217:;
  647.     if(!(endp((V17)))){
  648.     goto T218;}
  649.     goto T212;
  650. T218:;
  651.     if(!(type_of((V18))==t_symbol)){
  652.     goto T224;}
  653.     base[1]= (V18);
  654.     (void)simple_symlispcall_no_event(VV[144],base+1,1);
  655.     goto T222;
  656. T224:;
  657.     base[1]= VV[54];
  658.     base[2]= (V18);
  659.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  660. T222:;
  661.     V17= cdr((V17));
  662.     V18= car((V17));
  663.     goto T217;}
  664. T213:;
  665.     if((V16!= VV[145]))goto T234;
  666.     base[1]= cdr(base[0]);
  667.     base[2]= car(base[1]);
  668. T238:;
  669.     if(!(endp(base[1]))){
  670.     goto T239;}
  671.     goto T212;
  672. T239:;
  673.     if(!(type_of(base[2])==t_symbol)){
  674.     goto T243;}
  675.     base[2]= list(2,base[2],VV[3]);
  676. T243:;
  677.     if(!(type_of(base[2])==t_cons)){
  678.     goto T248;}
  679.     if(!(type_of(cdr(base[2]))==t_cons)){
  680.     goto T248;}
  681.     if(!(type_of(cadr(base[2]))==t_fixnum||
  682. type_of(cadr(base[2]))==t_bignum||
  683. type_of(cadr(base[2]))==t_ratio||
  684. type_of(cadr(base[2]))==t_shortfloat||
  685. type_of(cadr(base[2]))==t_longfloat||
  686. type_of(cadr(base[2]))==t_complex)){
  687.     goto T248;}
  688.     base[3]= VV[5];
  689.     base[4]= cadr(base[2]);
  690.     base[5]= VV[3];
  691.     vs_top=(vs_base=base+3)+3;
  692.     Lmonotonically_nondecreasing();
  693.     vs_top=sup;
  694.     if((vs_base[0])!=Cnil){
  695.     goto T249;}
  696. T248:;
  697.     base[3]= VV[55];
  698.     base[4]= base[2];
  699.     (void)simple_symlispcall_no_event(VV[139],base+3,2);
  700.     goto T247;
  701. T249:;
  702.     {object V19= car(base[2]);
  703.     if((V19!= VV[81]))goto T262;
  704.     setq(VV[1],(number_compare(cadr(base[2]),VV[30])>=0?Ct:Cnil));
  705.     setq(VV[0],(number_compare(cadr(base[2]),VV[56])>=0?Ct:Cnil));
  706.     setq(VV[2],(number_compare(cadr(base[2]),VV[3])>=0?Ct:Cnil));
  707.     goto T247;
  708. T262:;
  709.     if((V19!= VV[82]))goto T268;
  710.     setq(VV[6],cadr(base[2]));
  711.     goto T247;
  712. T268:;
  713.     if((V19!= VV[146]))goto T270;
  714.     setq(VV[4],cadr(base[2]));
  715.     goto T247;
  716. T270:;
  717.     if((V19!= VV[147]))goto T272;
  718.     setq(VV[4],number_minus(VV[3],cadr(base[2])));
  719.     goto T247;
  720. T272:;
  721.     base[3]= VV[57];
  722.     base[4]= car(base[2]);
  723.     (void)simple_symlispcall_no_event(VV[139],base+3,2);}
  724. T247:;
  725.     base[1]= cdr(base[1]);
  726.     base[2]= car(base[1]);
  727.     goto T238;
  728. T234:;
  729.     if((V16!= VV[148]))goto T281;
  730.     if(!(type_of(cdr(base[0]))==t_cons)){
  731.     goto T283;}
  732.     base[1]= cadr(base[0]);
  733.     base[2]= cddr(base[0]);
  734.     vs_top=(vs_base=base+1)+2;
  735.     L20();
  736.     vs_top=sup;
  737.     goto T212;
  738. T283:;
  739.     base[1]= VV[58];
  740.     base[2]= base[0];
  741.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  742.     goto T212;
  743. T281:;
  744.     if((V16!= VV[149])
  745.     && (V16!= VV[150])
  746.     && (V16!= VV[151])
  747.     && (V16!= VV[152]))goto T289;
  748.     base[1]= car(base[0]);
  749.     base[2]= cdr(base[0]);
  750.     vs_top=(vs_base=base+1)+2;
  751.     L20();
  752.     vs_top=sup;
  753.     goto T212;
  754. T289:;
  755.     if((V16!= VV[153]))goto T292;
  756.     if(endp(cdr(base[0]))){
  757.     goto T293;}
  758.     if(!(type_of(cadr(base[0]))==t_cons)){
  759.     goto T293;}
  760.     if(!(caadr(base[0])==VV[59])){
  761.     goto T293;}
  762.     if(!(endp(cdadr(base[0])))){
  763.     goto T294;}
  764. T293:;
  765.     base[1]= VV[60];
  766.     base[2]= base[0];
  767.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  768.     goto T212;
  769. T294:;
  770.     {object V20;
  771.     object V21;
  772.     V20= cddr(base[0]);
  773.     V21= car((V20));
  774. T307:;
  775.     if(!(endp((V20)))){
  776.     goto T308;}
  777.     goto T212;
  778. T308:;
  779.     base[1]= (V21);
  780.     base[2]= cadadr(base[0]);
  781.     base[3]= cddadr(base[0]);
  782.     vs_top=(vs_base=base+1)+3;
  783.     L10();
  784.     vs_top=sup;
  785.     V20= cdr((V20));
  786.     V21= car((V20));
  787.     goto T307;}
  788. T292:;
  789.     if((V16!= VV[59]))goto T321;
  790.     if(endp(cdr(base[0]))){
  791.     goto T322;}
  792.     if(!(endp(cddr(base[0])))){
  793.     goto T323;}
  794. T322:;
  795.     base[1]= VV[61];
  796.     base[2]= base[0];
  797.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  798.     goto T212;
  799. T323:;
  800.     base[1]= cadr(base[0]);
  801.     base[2]= caddr(base[0]);
  802.     base[3]= cdddr(base[0]);
  803.     vs_top=(vs_base=base+1)+3;
  804.     L10();
  805.     vs_top=sup;
  806.     goto T212;
  807. T321:;
  808.     if((V16!= VV[86]))goto T332;
  809.     {object V22;
  810.     object V23;
  811.     V22= cdr(base[0]);
  812.     V23= car((V22));
  813. T336:;
  814.     if(!(endp((V22)))){
  815.     goto T337;}
  816.     goto T212;
  817. T337:;
  818.     if(!(type_of((V23))==t_symbol)){
  819.     goto T343;}
  820.     (void)(remprop((V23),VV[53]));
  821.     goto T341;
  822. T343:;
  823.     base[1]= VV[62];
  824.     base[2]= (V23);
  825.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  826. T341:;
  827.     V22= cdr((V22));
  828.     V23= car((V22));
  829.     goto T336;}
  830. T332:;
  831.     if((V16!= VV[88]))goto T352;
  832.     {object V24;
  833.     object V25;
  834.     V24= cdr(base[0]);
  835.     V25= car((V24));
  836. T356:;
  837.     if(!(endp((V24)))){
  838.     goto T357;}
  839.     goto T212;
  840. T357:;
  841.     if(!(type_of((V25))==t_symbol)){
  842.     goto T363;}
  843.     (void)(putprop((V25),Ct,VV[53]));
  844.     goto T361;
  845. T363:;
  846.     base[1]= VV[63];
  847.     base[2]= (V25);
  848.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  849. T361:;
  850.     V24= cdr((V24));
  851.     V25= car((V24));
  852.     goto T356;}
  853. T352:;
  854.     if((V16!= VV[78])
  855.     && (V16!= VV[154]))goto T372;
  856.     {object V26;
  857.     object V27;
  858.     V26= cdr(base[0]);
  859.     V27= car((V26));
  860. T376:;
  861.     if(!(endp((V26)))){
  862.     goto T377;}
  863.     goto T212;
  864. T377:;
  865.     if(type_of((V27))==t_symbol){
  866.     goto T381;}
  867.     base[1]= VV[64];
  868.     base[2]= (V27);
  869.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  870. T381:;
  871.     V26= cdr((V26));
  872.     V27= car((V26));
  873.     goto T376;}
  874. T372:;
  875.     if((V16!= VV[155]))goto T391;
  876.     {object V28;
  877.     object V29;
  878.     V28= cdr(base[0]);
  879.     V29= car((V28));
  880. T395:;
  881.     if(!(endp((V28)))){
  882.     goto T396;}
  883.     goto T212;
  884. T396:;
  885.     if(!(type_of((V29))==t_symbol)){
  886.     goto T402;}
  887.     {object x= (V29),V30= symbol_value(VV[52]);
  888.     while(!endp(V30))
  889.     if(eql(x,V30->c.c_car)){
  890.     goto T400;
  891.     }else V30=V30->c.c_cdr;}
  892.     setq(VV[52],make_cons((V29),symbol_value(VV[52])));
  893.     goto T400;
  894. T402:;
  895.     base[1]= VV[65];
  896.     base[2]= (V29);
  897.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  898. T400:;
  899.     V28= cdr((V28));
  900.     V29= car((V28));
  901.     goto T395;}
  902. T391:;
  903.     if((V16== VV[156])
  904.     || (V16== VV[157])
  905.     || (V16== VV[158])
  906.     || (V16== VV[159])
  907.     || (V16== VV[160]))goto T415;
  908.     if((V16== VV[150])
  909.     || (V16== VV[161])
  910.     || (V16== VV[162])
  911.     || (V16== VV[163])
  912.     || (V16== VV[164]))goto T415;
  913.     if((V16== VV[165])
  914.     || (V16== VV[149])
  915.     || (V16== VV[166])
  916.     || (V16== VV[167])
  917.     || (V16== VV[168]))goto T415;
  918.     if((V16== VV[169])
  919.     || (V16== VV[170])
  920.     || (V16== VV[152])
  921.     || (V16== Cnil)
  922.     || (V16== VV[171]))goto T415;
  923.     if((V16== VV[172])
  924.     || (V16== VV[173])
  925.     || (V16== VV[174])
  926.     || (V16== VV[175])
  927.     || (V16== VV[176]))goto T415;
  928.     if((V16== VV[177])
  929.     || (V16== VV[178])
  930.     || (V16== VV[179])
  931.     || (V16== VV[151])
  932.     || (V16== VV[180]))goto T415;
  933.     if((V16== VV[181])
  934.     || (V16== VV[182])
  935.     || (V16== VV[183])
  936.     || (V16== VV[184])
  937.     || (V16== VV[185]))goto T415;
  938.     if((V16== VV[186])
  939.     || (V16== VV[187])
  940.     || (V16== VV[188])
  941.     || (V16== VV[189])
  942.     || (V16== Ct))goto T415;
  943.     if((V16!= VV[190])
  944.     && (V16!= VV[191])
  945.     && (V16!= VV[192]))goto T414;
  946. T415:;
  947.     base[1]= car(base[0]);
  948.     base[2]= cdr(base[0]);
  949.     vs_top=(vs_base=base+1)+2;
  950.     L20();
  951.     vs_top=sup;
  952.     goto T212;
  953. T414:;
  954.     {object x= car(base[0]),V31= symbol_value(VV[52]);
  955.     while(!endp(V31))
  956.     if(eql(x,V31->c.c_car)){
  957.     goto T212;
  958.     }else V31=V31->c.c_cdr;}
  959.     base[1]= VV[66];
  960.     base[2]= car(base[0]);
  961.     (void)simple_symlispcall_no_event(VV[139],base+1,2);}
  962. T212:;
  963.     base[1]= Cnil;
  964.     vs_top=(vs_base=base+1)+1;
  965.     return;
  966. }
  967. /*    function definition for PROCLAIM-VAR    */
  968.  
  969. static L20()
  970. {    register object *base=vs_base;
  971.     register object *sup=base+VM22;
  972.     vs_reserve(VM22);
  973.     check_arg(2);
  974.     vs_top=sup;
  975. TTL:;
  976.     base[2]= base[0];
  977.     base[0]= simple_symlispcall_no_event(VV[138],base+2,1);
  978.     {object V32;
  979.     object V33;
  980.     V32= base[1];
  981.     V33= car((V32));
  982. T428:;
  983.     if(!(endp((V32)))){
  984.     goto T429;}
  985.     base[2]= Cnil;
  986.     vs_top=(vs_base=base+2)+1;
  987.     return;
  988. T429:;
  989.     if(!(type_of((V33))==t_symbol)){
  990.     goto T435;}
  991.     base[2]= get((V33),VV[67],Cnil);
  992.     base[4]= (V33);
  993.     base[3]= simple_symlispcall_no_event(VV[193],base+4,1);
  994.     if((base[2])==Cnil){
  995.     goto T443;}
  996.     base[4]= base[2];
  997.     base[5]= base[0];
  998.     base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
  999.     goto T441;
  1000. T443:;
  1001.     base[2]= base[0];
  1002. T441:;
  1003.     if((base[3])==Cnil){
  1004.     goto T447;}
  1005.     base[4]= base[2];
  1006.     base[5]= structure_ref(base[3],VV[68],5);
  1007.     base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
  1008. T447:;
  1009.     if((base[2])!=Cnil){
  1010.     goto T453;}
  1011.     base[4]= VV[69];
  1012.     base[5]= (V33);
  1013.     (void)simple_symlispcall_no_event(VV[139],base+4,2);
  1014. T453:;
  1015.     (void)(putprop((V33),base[2],VV[67]));
  1016.     if((base[3])==Cnil){
  1017.     goto T433;}
  1018.     structure_set(base[3],VV[68],5,base[2]);
  1019.     goto T433;
  1020. T435:;
  1021.     base[2]= VV[70];
  1022.     base[3]= (V33);
  1023.     (void)simple_symlispcall_no_event(VV[139],base+2,2);
  1024. T433:;
  1025.     V32= cdr((V32));
  1026.     V33= car((V32));
  1027.     goto T428;}
  1028. }
  1029. /*    function definition for C1BODY    */
  1030.  
  1031. static L21()
  1032. {    register object *base=vs_base;
  1033.     register object *sup=base+VM23;
  1034.     vs_reserve(VM23);
  1035.     check_arg(2);
  1036.     vs_top=sup;
  1037. TTL:;
  1038.     base[2]= Cnil;
  1039.     base[3]= Cnil;
  1040.     base[4]= Cnil;
  1041.     base[5]= Cnil;
  1042.     base[6]= Cnil;
  1043.     base[7]= Cnil;
  1044. T470:;
  1045.     if(!(endp(base[0]))){
  1046.     goto T472;}
  1047.     goto T468;
  1048. T472:;
  1049.     base[8]= car(base[0]);
  1050.     base[7]= simple_symlispcall_no_event(VV[194],base+8,1);
  1051.     if(!(type_of(base[7])==t_string)){
  1052.     goto T480;}
  1053.     if((base[1])==Cnil){
  1054.     goto T483;}
  1055.     if(endp(cdr(base[0]))){
  1056.     goto T483;}
  1057.     if((base[6])==Cnil){
  1058.     goto T482;}
  1059. T483:;
  1060.     goto T468;
  1061. T482:;
  1062.     base[6]= base[7];
  1063.     goto T478;
  1064. T480:;
  1065.     if(!(type_of(base[7])==t_cons)){
  1066.     goto T491;}
  1067.     if(!(car(base[7])==VV[71])){
  1068.     goto T491;}
  1069.     {object V34;
  1070.     object V35;
  1071.     V34= cdr(base[7]);
  1072.     V35= car((V34));
  1073. T498:;
  1074.     if(!(endp((V34)))){
  1075.     goto T499;}
  1076.     goto T478;
  1077. T499:;
  1078.     if(!(type_of((V35))==t_cons)){
  1079.     goto T504;}
  1080.     if(type_of(car((V35)))==t_symbol){
  1081.     goto T503;}
  1082. T504:;
  1083.     base[8]= VV[72];
  1084.     base[9]= (V35);
  1085.     (void)simple_symlispcall_no_event(VV[195],base+8,2);
  1086. T503:;
  1087.     {object V36= car((V35));
  1088.     if((V36!= VV[143]))goto T511;
  1089.     {object V37;
  1090.     object V38;
  1091.     V37= cdr((V35));
  1092.     V38= car((V37));
  1093. T515:;
  1094.     if(!(endp((V37)))){
  1095.     goto T516;}
  1096.     goto T510;
  1097. T516:;
  1098.     if(type_of((V38))==t_symbol){
  1099.     goto T520;}
  1100.     base[8]= VV[73];
  1101.     base[9]= (V35);
  1102.     base[10]= (V38);
  1103.     (void)simple_symlispcall_no_event(VV[195],base+8,3);
  1104. T520:;
  1105.     base[2]= make_cons((V38),base[2]);
  1106.     V37= cdr((V37));
  1107.     V38= car((V37));
  1108.     goto T515;}
  1109. T511:;
  1110.     if((V36!= VV[154]))goto T533;
  1111.     {object V39;
  1112.     object V40;
  1113.     V39= cdr((V35));
  1114.     V40= car((V39));
  1115. T537:;
  1116.     if(!(endp((V39)))){
  1117.     goto T538;}
  1118.     goto T510;
  1119. T538:;
  1120.     if(type_of((V40))==t_symbol){
  1121.     goto T542;}
  1122.     base[8]= VV[74];
  1123.     base[9]= (V35);
  1124.     base[10]= (V40);
  1125.     (void)simple_symlispcall_no_event(VV[195],base+8,3);
  1126. T542:;
  1127.     base[3]= make_cons((V40),base[3]);
  1128.     V39= cdr((V39));
  1129.     V40= car((V39));
  1130.     goto T537;}
  1131. T533:;
  1132.     if((V36!= VV[148]))goto T555;
  1133.     if(!(endp(cdr((V35))))){
  1134.     goto T556;}
  1135.     base[8]= VV[75];
  1136.     base[9]= (V35);
  1137.     (void)simple_symlispcall_no_event(VV[195],base+8,2);
  1138. T556:;
  1139.     base[9]= cadr((V35));
  1140.     base[8]= simple_symlispcall_no_event(VV[138],base+9,1);
  1141.     if((base[8])==Cnil){
  1142.     goto T510;}
  1143.     {object V41;
  1144.     object V42;
  1145.     V41= cddr((V35));
  1146.     V42= car((V41));
  1147. T568:;
  1148.     if(!(endp((V41)))){
  1149.     goto T569;}
  1150.     goto T510;
  1151. T569:;
  1152.     if(type_of((V42))==t_symbol){
  1153.     goto T573;}
  1154.     base[9]= VV[76];
  1155.     base[10]= (V35);
  1156.     base[11]= (V42);
  1157.     (void)simple_symlispcall_no_event(VV[195],base+9,3);
  1158. T573:;
  1159.     base[9]= make_cons((V42),base[8]);
  1160.     base[4]= make_cons(base[9],base[4]);
  1161.     V41= cdr((V41));
  1162.     V42= car((V41));
  1163.     goto T568;}
  1164. T555:;
  1165.     if((V36!= VV[78]))goto T586;
  1166.     {object V43;
  1167.     object V44;
  1168.     V43= cdr((V35));
  1169.     V44= car((V43));
  1170. T590:;
  1171.     if(!(endp((V43)))){
  1172.     goto T591;}
  1173.     goto T510;
  1174. T591:;
  1175.     if(type_of((V44))==t_symbol){
  1176.     goto T595;}
  1177.     base[8]= VV[77];
  1178.     base[9]= (V35);
  1179.     base[10]= (V44);
  1180.     (void)simple_symlispcall_no_event(VV[195],base+8,3);
  1181. T595:;
  1182.     base[8]= make_cons((V44),VV[78]);
  1183.     base[4]= make_cons(base[8],base[4]);
  1184.     V43= cdr((V43));
  1185.     V44= car((V43));
  1186.     goto T590;}
  1187. T586:;
  1188.     if((V36== VV[149])
  1189.     || (V36== VV[150])
  1190.     || (V36== VV[165])
  1191.     || (V36== VV[151])
  1192.     || (V36== VV[156]))goto T609;
  1193.     if((V36== VV[157])
  1194.     || (V36== VV[158])
  1195.     || (V36== VV[159])
  1196.     || (V36== VV[160])
  1197.     || (V36== VV[161]))goto T609;
  1198.     if((V36== VV[162])
  1199.     || (V36== VV[163])
  1200.     || (V36== VV[164])
  1201.     || (V36== VV[166])
  1202.     || (V36== VV[167]))goto T609;
  1203.     if((V36== VV[168])
  1204.     || (V36== VV[169])
  1205.     || (V36== VV[170])
  1206.     || (V36== VV[152])
  1207.     || (V36== Cnil))goto T609;
  1208.     if((V36== VV[171])
  1209.     || (V36== VV[172])
  1210.     || (V36== VV[173])
  1211.     || (V36== VV[174])
  1212.     || (V36== VV[175]))goto T609;
  1213.     if((V36== VV[176])
  1214.     || (V36== VV[177])
  1215.     || (V36== VV[178])
  1216.     || (V36== VV[179])
  1217.     || (V36== VV[180]))goto T609;
  1218.     if((V36== VV[181])
  1219.     || (V36== VV[182])
  1220.     || (V36== VV[183])
  1221.     || (V36== VV[184])
  1222.     || (V36== VV[185]))goto T609;
  1223.     if((V36== VV[186])
  1224.     || (V36== VV[187])
  1225.     || (V36== VV[188])
  1226.     || (V36== VV[189])
  1227.     || (V36== Ct))goto T609;
  1228.     if((V36!= VV[190])
  1229.     && (V36!= VV[191])
  1230.     && (V36!= VV[192]))goto T608;
  1231. T609:;
  1232.     base[9]= car((V35));
  1233.     base[8]= simple_symlispcall_no_event(VV[138],base+9,1);
  1234.     if((base[8])==Cnil){
  1235.     goto T510;}
  1236.     {object V45;
  1237.     object V46;
  1238.     V45= cdr((V35));
  1239.     V46= car((V45));
  1240. T617:;
  1241.     if(!(endp((V45)))){
  1242.     goto T618;}
  1243.     goto T510;
  1244. T618:;
  1245.     if(type_of((V46))==t_symbol){
  1246.     goto T622;}
  1247.     base[9]= VV[79];
  1248.     base[10]= (V35);
  1249.     base[11]= (V46);
  1250.     (void)simple_symlispcall_no_event(VV[195],base+9,3);
  1251. T622:;
  1252.     base[9]= make_cons((V46),base[8]);
  1253.     base[4]= make_cons(base[9],base[4]);
  1254.     V45= cdr((V45));
  1255.     V46= car((V45));
  1256.     goto T617;}
  1257. T608:;
  1258.     base[5]= make_cons((V35),base[5]);}
  1259. T510:;
  1260.     V34= cdr((V34));
  1261.     V35= car((V34));
  1262.     goto T498;}
  1263. T491:;
  1264.     goto T468;
  1265. T478:;
  1266.     base[8]= car(base[0]);
  1267.     base[0]= cdr(base[0]);
  1268.     goto T470;
  1269. T468:;
  1270.     base[8]= base[0];
  1271.     base[9]= base[2];
  1272.     base[10]= base[4];
  1273.     base[11]= base[3];
  1274.     base[12]= base[5];
  1275.     base[13]= base[6];
  1276.     vs_top=(vs_base=base+8)+6;
  1277.     return;
  1278. }
  1279. /*    function definition for C1DECL-BODY    */
  1280.  
  1281. static L22()
  1282. {    register object *base=vs_base;
  1283.     register object *sup=base+VM24;
  1284.     vs_reserve(VM24);
  1285.     bds_check;
  1286.     check_arg(2);
  1287.     vs_top=sup;
  1288. TTL:;
  1289.     base[2]= Cnil;
  1290.     if((base[0])!=Cnil){
  1291.     goto T652;}
  1292.     base[3]= base[1];
  1293.     symlispcall_no_event(VV[196],base+3,1);
  1294.     return;
  1295. T652:;
  1296.     bds_bind(VV[25],symbol_value(VV[25]));
  1297.     bds_bind(VV[52],symbol_value(VV[52]));
  1298.     bds_bind(VV[28],symbol_value(VV[28]));
  1299.     bds_bind(VV[6],symbol_value(VV[6]));
  1300.     {object V47;
  1301.     object V48;
  1302.     V47= base[0];
  1303.     V48= car((V47));
  1304. T659:;
  1305.     if(!(endp((V47)))){
  1306.     goto T660;}
  1307.     goto T655;
  1308. T660:;
  1309.     {object V49= car((V48));
  1310.     if((V49!= VV[145]))goto T665;
  1311.     base[7]= cdr((V48));
  1312.     base[8]= car(base[7]);
  1313. T669:;
  1314.     if(!(endp(base[7]))){
  1315.     goto T670;}
  1316.     goto T664;
  1317. T670:;
  1318.     if(!(type_of(base[8])==t_symbol)){
  1319.     goto T674;}
  1320.     base[8]= list(2,base[8],VV[3]);
  1321. T674:;
  1322.     if(!(type_of(base[8])==t_cons)){
  1323.     goto T679;}
  1324.     if(!(type_of(cdr(base[8]))==t_cons)){
  1325.     goto T679;}
  1326.     if(!(type_of(cadr(base[8]))==t_fixnum||
  1327. type_of(cadr(base[8]))==t_bignum||
  1328. type_of(cadr(base[8]))==t_ratio||
  1329. type_of(cadr(base[8]))==t_shortfloat||
  1330. type_of(cadr(base[8]))==t_longfloat||
  1331. type_of(cadr(base[8]))==t_complex)){
  1332.     goto T679;}
  1333.     base[9]= VV[5];
  1334.     base[10]= cadr(base[8]);
  1335.     base[11]= VV[3];
  1336.     vs_top=(vs_base=base+9)+3;
  1337.     Lmonotonically_nondecreasing();
  1338.     vs_top=sup;
  1339.     if((vs_base[0])!=Cnil){
  1340.     goto T680;}
  1341. T679:;
  1342.     base[9]= VV[80];
  1343.     base[10]= base[8];
  1344.     (void)simple_symlispcall_no_event(VV[139],base+9,2);
  1345.     goto T678;
  1346. T680:;
  1347.     {object V50= car(base[8]);
  1348.     if((V50!= VV[81]))goto T693;
  1349.     base[9]= list(2,VV[81],cadr(base[8]));
  1350.     base[2]= make_cons(base[9],base[2]);
  1351.     goto T678;
  1352. T693:;
  1353.     if((V50!= VV[82]))goto T695;
  1354.     (VV[6]->s.s_dbind)= cadr(base[8]);
  1355.     base[9]= list(2,VV[82],cadr(base[8]));
  1356.     base[2]= make_cons(base[9],base[2]);
  1357.     goto T678;
  1358. T695:;
  1359.     if((V50!= VV[146])
  1360.     && (V50!= VV[147]))goto T699;
  1361.     goto T678;
  1362. T699:;
  1363.     base[9]= VV[83];
  1364.     base[10]= car(base[8]);
  1365.     (void)simple_symlispcall_no_event(VV[139],base+9,2);}
  1366. T678:;
  1367.     base[7]= cdr(base[7]);
  1368.     base[8]= car(base[7]);
  1369.     goto T669;
  1370. T665:;
  1371.     if((V49!= VV[153]))goto T707;
  1372.     if(endp(cdr((V48)))){
  1373.     goto T708;}
  1374.     if(!(type_of(cadr((V48)))==t_cons)){
  1375.     goto T708;}
  1376.     if(!(caadr((V48))==VV[59])){
  1377.     goto T708;}
  1378.     if(!(endp(cdadr((V48))))){
  1379.     goto T709;}
  1380. T708:;
  1381.     base[7]= VV[84];
  1382.     base[8]= (V48);
  1383.     (void)simple_symlispcall_no_event(VV[139],base+7,2);
  1384.     goto T664;
  1385. T709:;
  1386.     {object V51;
  1387.     object V52;
  1388.     V51= cddr((V48));
  1389.     V52= car((V51));
  1390. T722:;
  1391.     if(!(endp((V51)))){
  1392.     goto T723;}
  1393.     goto T664;
  1394. T723:;
  1395.     base[7]= (V52);
  1396.     base[8]= cadadr((V48));
  1397.     base[9]= cddadr((V48));
  1398.     vs_top=(vs_base=base+7)+3;
  1399.     L11();
  1400.     vs_top=sup;
  1401.     V51= cdr((V51));
  1402.     V52= car((V51));
  1403.     goto T722;}
  1404. T707:;
  1405.     if((V49!= VV[59]))goto T736;
  1406.     if(endp(cdr((V48)))){
  1407.     goto T737;}
  1408.     if(endp(cddr((V48)))){
  1409.     goto T737;}
  1410.     if(type_of(cadr((V48)))==t_symbol){
  1411.     goto T738;}
  1412. T737:;
  1413.     base[7]= VV[85];
  1414.     base[8]= (V48);
  1415.     (void)simple_symlispcall_no_event(VV[139],base+7,2);
  1416.     goto T664;
  1417. T738:;
  1418.     base[7]= cadr((V48));
  1419.     base[8]= caddr((V48));
  1420.     base[9]= cdddr((V48));
  1421.     vs_top=(vs_base=base+7)+3;
  1422.     L11();
  1423.     vs_top=sup;
  1424.     goto T664;
  1425. T736:;
  1426.     if((V49!= VV[86]))goto T749;
  1427.     {object V53;
  1428.     object V54;
  1429.     V53= cdr((V48));
  1430.     V54= car((V53));
  1431. T753:;
  1432.     if(!(endp((V53)))){
  1433.     goto T754;}
  1434.     goto T664;
  1435. T754:;
  1436.     if(!(type_of((V54))==t_symbol)){
  1437.     goto T760;}
  1438.     base[7]= list(2,VV[86],(V54));
  1439.     base[2]= make_cons(base[7],base[2]);
  1440.     base[7]= (V54);
  1441.     base[8]= (VV[28]->s.s_dbind);
  1442.     (VV[28]->s.s_dbind)= simple_symlispcall_no_event(VV[197],base+7,2);
  1443.     goto T758;
  1444. T760:;
  1445.     base[7]= VV[87];
  1446.     base[8]= (V54);
  1447.     (void)simple_symlispcall_no_event(VV[139],base+7,2);
  1448. T758:;
  1449.     V53= cdr((V53));
  1450.     V54= car((V53));
  1451.     goto T753;}
  1452. T749:;
  1453.     if((V49!= VV[88]))goto T774;
  1454.     {object V55;
  1455.     object V56;
  1456.     V55= cdr((V48));
  1457.     V56= car((V55));
  1458. T778:;
  1459.     if(!(endp((V55)))){
  1460.     goto T779;}
  1461.     goto T664;
  1462. T779:;
  1463.     if(!(type_of((V56))==t_symbol)){
  1464.     goto T785;}
  1465.     base[7]= list(2,VV[88],(V56));
  1466.     base[2]= make_cons(base[7],base[2]);
  1467.     (VV[28]->s.s_dbind)= make_cons((V56),(VV[28]->s.s_dbind));
  1468.     goto T783;
  1469. T785:;
  1470.     base[7]= VV[89];
  1471.     base[8]= (V56);
  1472.     (void)simple_symlispcall_no_event(VV[139],base+7,2);
  1473. T783:;
  1474.     V55= cdr((V55));
  1475.     V56= car((V55));
  1476.     goto T778;}
  1477. T774:;
  1478.     if((V49!= VV[155]))goto T797;
  1479.     {object V57;
  1480.     object V58;
  1481.     V57= cdr((V48));
  1482.     V58= car((V57));
  1483. T801:;
  1484.     if(!(endp((V57)))){
  1485.     goto T802;}
  1486.     goto T664;
  1487. T802:;
  1488.     if(!(type_of((V58))==t_symbol)){
  1489.     goto T808;}
  1490.     {object x= (V58),V59= (VV[52]->s.s_dbind);
  1491.     while(!endp(V59))
  1492.     if(eql(x,V59->c.c_car)){
  1493.     goto T806;
  1494.     }else V59=V59->c.c_cdr;}
  1495.     (VV[52]->s.s_dbind)= make_cons((V58),(VV[52]->s.s_dbind));
  1496.     goto T806;
  1497. T808:;
  1498.     base[7]= VV[90];
  1499.     base[8]= (V58);
  1500.     (void)simple_symlispcall_no_event(VV[139],base+7,2);
  1501. T806:;
  1502.     V57= cdr((V57));
  1503.     V58= car((V57));
  1504.     goto T801;}
  1505. T797:;
  1506.     {object x= car((V48)),V60= (VV[52]->s.s_dbind);
  1507.     while(!endp(V60))
  1508.     if(eql(x,V60->c.c_car)){
  1509.     goto T664;
  1510.     }else V60=V60->c.c_cdr;}
  1511.     base[7]= VV[91];
  1512.     base[8]= car((V48));
  1513.     (void)simple_symlispcall_no_event(VV[139],base+7,2);}
  1514. T664:;
  1515.     V47= cdr((V47));
  1516.     V48= car((V47));
  1517.     goto T659;}
  1518. T655:;
  1519.     base[7]= base[1];
  1520.     base[1]= simple_symlispcall_no_event(VV[196],base+7,1);
  1521.     base[7]= list(4,VV[92],cadr(base[1]),base[2],base[1]);
  1522.     vs_top=(vs_base=base+7)+1;
  1523.     bds_unwind1;
  1524.     bds_unwind1;
  1525.     bds_unwind1;
  1526.     bds_unwind1;
  1527.     return;
  1528. }
  1529. /*    function definition for C2DECL-BODY    */
  1530.  
  1531. static L24()
  1532. {    register object *base=vs_base;
  1533.     register object *sup=base+VM25;
  1534.     vs_reserve(VM25);
  1535.     bds_check;
  1536.     check_arg(2);
  1537.     vs_top=sup;
  1538. TTL:;
  1539.     bds_bind(VV[1],symbol_value(VV[1]));
  1540.     bds_bind(VV[0],symbol_value(VV[0]));
  1541.     bds_bind(VV[2],symbol_value(VV[2]));
  1542.     bds_bind(VV[28],symbol_value(VV[28]));
  1543.     bds_bind(VV[6],symbol_value(VV[6]));
  1544.     {object V61;
  1545.     object V62;
  1546.     V61= base[0];
  1547.     V62= car((V61));
  1548. T836:;
  1549.     if(!(endp((V61)))){
  1550.     goto T837;}
  1551.     goto T832;
  1552. T837:;
  1553.     {object V63= car((V62));
  1554.     if((V63!= VV[81]))goto T842;
  1555.     {int V64;
  1556.     V64= fix(cadr((V62)));
  1557.     (VV[1]->s.s_dbind)= ((V64)>=(1)?Ct:Cnil);
  1558.     (VV[0]->s.s_dbind)= ((V64)>=(2)?Ct:Cnil);
  1559.     (VV[2]->s.s_dbind)= ((V64)>=(3)?Ct:Cnil);
  1560.     goto T841;}
  1561. T842:;
  1562.     if((V63!= VV[82]))goto T849;
  1563.     (VV[6]->s.s_dbind)= cadr((V62));
  1564.     goto T841;
  1565. T849:;
  1566.     if((V63!= VV[88]))goto T851;
  1567.     (VV[28]->s.s_dbind)= make_cons(cadr((V62)),(VV[28]->s.s_dbind));
  1568.     goto T841;
  1569. T851:;
  1570.     if((V63!= VV[86]))goto T853;
  1571.     base[7]= cadr((V62));
  1572.     base[8]= (VV[28]->s.s_dbind);
  1573.     (VV[28]->s.s_dbind)= simple_symlispcall_no_event(VV[197],base+7,2);
  1574.     goto T841;
  1575. T853:;
  1576.     (void)simple_symlispcall_no_event(VV[198],base+7,0);}
  1577. T841:;
  1578.     V61= cdr((V61));
  1579.     V62= car((V61));
  1580.     goto T836;}
  1581. T832:;
  1582.     base[7]= base[1];
  1583.     symlispcall_no_event(VV[199],base+7,1);
  1584.     bds_unwind1;
  1585.     bds_unwind1;
  1586.     bds_unwind1;
  1587.     bds_unwind1;
  1588.     bds_unwind1;
  1589.     return;
  1590. }
  1591. /*    function definition for CHECK-VDECL    */
  1592.  
  1593. static L25()
  1594. {    register object *base=vs_base;
  1595.     register object *sup=base+VM26;
  1596.     vs_reserve(VM26);
  1597.     check_arg(3);
  1598.     vs_top=sup;
  1599. TTL:;
  1600.     {object V65;
  1601.     object V66;
  1602.     V65= base[1];
  1603.     V66= car((V65));
  1604. T867:;
  1605.     if(!(endp((V65)))){
  1606.     goto T868;}
  1607.     goto T863;
  1608. T868:;
  1609.     {object x= car((V66)),V67= base[0];
  1610.     while(!endp(V67))
  1611.     if(eql(x,V67->c.c_car)){
  1612.     goto T872;
  1613.     }else V67=V67->c.c_cdr;}
  1614.     base[3]= VV[95];
  1615.     base[4]= car((V66));
  1616.     (void)simple_symlispcall_no_event(VV[142],base+3,2);
  1617. T872:;
  1618.     V65= cdr((V65));
  1619.     V66= car((V65));
  1620.     goto T867;}
  1621. T863:;
  1622.     {object V68;
  1623.     object V69;
  1624.     V68= base[2];
  1625.     V69= car((V68));
  1626. T885:;
  1627.     if(!(endp((V68)))){
  1628.     goto T886;}
  1629.     base[3]= Cnil;
  1630.     vs_top=(vs_base=base+3)+1;
  1631.     return;
  1632. T886:;
  1633.     {object x= (V69),V70= base[0];
  1634.     while(!endp(V70))
  1635.     if(eql(x,V70->c.c_car)){
  1636.     goto T890;
  1637.     }else V70=V70->c.c_cdr;}
  1638.     base[3]= VV[96];
  1639.     base[4]= (V69);
  1640.     (void)simple_symlispcall_no_event(VV[142],base+3,2);
  1641. T890:;
  1642.     V68= cdr((V68));
  1643.     V69= car((V68));
  1644.     goto T885;}
  1645. }
  1646. /*    function definition for PROCLAMATION    */
  1647.  
  1648. static L26()
  1649. {    register object *base=vs_base;
  1650.     register object *sup=base+VM27;
  1651.     vs_reserve(VM27);
  1652.     check_arg(1);
  1653.     vs_top=sup;
  1654. TTL:;
  1655.     {object V71= car(base[0]);
  1656.     if((V71!= VV[143]))goto T900;
  1657.     {object V72;
  1658.     object V73;
  1659.     V72= cdr(base[0]);
  1660.     V73= car((V72));
  1661. T904:;
  1662.     if(!(endp((V72)))){
  1663.     goto T905;}
  1664.     base[1]= Ct;
  1665.     vs_top=(vs_base=base+1)+1;
  1666.     return;
  1667. T905:;
  1668.     if(!(type_of((V73))==t_symbol)){
  1669.     goto T911;}
  1670.     base[1]= (V73);
  1671.     vs_top=(vs_base=base+1)+1;
  1672.     siLspecialp();
  1673.     vs_top=sup;
  1674.     if((vs_base[0])!=Cnil){
  1675.     goto T909;}
  1676.     base[1]= Cnil;
  1677.     vs_top=(vs_base=base+1)+1;
  1678.     return;
  1679. T911:;
  1680.     base[1]= VV[97];
  1681.     base[2]= (V73);
  1682.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  1683. T909:;
  1684.     V72= cdr((V72));
  1685.     V73= car((V72));
  1686.     goto T904;}
  1687. T900:;
  1688.     if((V71!= VV[145]))goto T923;
  1689.     base[1]= cdr(base[0]);
  1690.     base[2]= car(base[1]);
  1691. T927:;
  1692.     if(!(endp(base[1]))){
  1693.     goto T928;}
  1694.     base[3]= Ct;
  1695.     vs_top=(vs_base=base+3)+1;
  1696.     return;
  1697. T928:;
  1698.     if(!(type_of(base[2])==t_symbol)){
  1699.     goto T932;}
  1700.     base[2]= list(2,base[2],VV[3]);
  1701. T932:;
  1702.     if(!(type_of(base[2])==t_cons)){
  1703.     goto T937;}
  1704.     if(!(type_of(cdr(base[2]))==t_cons)){
  1705.     goto T937;}
  1706.     if(!(type_of(cadr(base[2]))==t_fixnum||
  1707. type_of(cadr(base[2]))==t_bignum||
  1708. type_of(cadr(base[2]))==t_ratio||
  1709. type_of(cadr(base[2]))==t_shortfloat||
  1710. type_of(cadr(base[2]))==t_longfloat||
  1711. type_of(cadr(base[2]))==t_complex)){
  1712.     goto T937;}
  1713.     base[3]= VV[5];
  1714.     base[4]= cadr(base[2]);
  1715.     base[5]= VV[3];
  1716.     vs_top=(vs_base=base+3)+3;
  1717.     Lmonotonically_nondecreasing();
  1718.     vs_top=sup;
  1719.     if((vs_base[0])!=Cnil){
  1720.     goto T938;}
  1721. T937:;
  1722.     base[3]= VV[98];
  1723.     base[4]= base[2];
  1724.     (void)simple_symlispcall_no_event(VV[139],base+3,2);
  1725.     goto T936;
  1726. T938:;
  1727.     {object V74= car(base[2]);
  1728.     if((V74!= VV[81]))goto T951;
  1729.     {object V75= cadr(base[2]);
  1730.     if((symbol_value(VV[1]))!=Cnil){
  1731.     goto T956;}
  1732.     base[3]= VV[5];
  1733.     goto T954;
  1734. T956:;
  1735.     if((symbol_value(VV[0]))!=Cnil){
  1736.     goto T959;}
  1737.     base[3]= VV[30];
  1738.     goto T954;
  1739. T959:;
  1740.     if((symbol_value(VV[2]))!=Cnil){
  1741.     goto T962;}
  1742.     base[3]= VV[56];
  1743.     goto T954;
  1744. T962:;
  1745.     base[3]= VV[3];
  1746. T954:;
  1747.     if(number_compare(V75,base[3])==0){
  1748.     goto T936;}}
  1749.     base[3]= Cnil;
  1750.     vs_top=(vs_base=base+3)+1;
  1751.     return;
  1752. T951:;
  1753.     if((V74!= VV[82]))goto T964;
  1754.     if(number_compare(cadr(base[2]),symbol_value(VV[6]))==0){
  1755.     goto T936;}
  1756.     base[3]= Cnil;
  1757.     vs_top=(vs_base=base+3)+1;
  1758.     return;
  1759. T964:;
  1760.     if((V74!= VV[146]))goto T967;
  1761.     if(number_compare(cadr(base[2]),symbol_value(VV[4]))==0){
  1762.     goto T936;}
  1763.     base[3]= Cnil;
  1764.     vs_top=(vs_base=base+3)+1;
  1765.     return;
  1766. T967:;
  1767.     if((V74!= VV[147]))goto T970;
  1768.     base[3]= number_minus(VV[3],cadr(base[2]));
  1769.     if(number_compare(base[3],symbol_value(VV[4]))==0){
  1770.     goto T936;}
  1771.     base[3]= Cnil;
  1772.     vs_top=(vs_base=base+3)+1;
  1773.     return;
  1774. T970:;
  1775.     base[3]= VV[99];
  1776.     base[4]= car(base[2]);
  1777.     (void)simple_symlispcall_no_event(VV[139],base+3,2);}
  1778. T936:;
  1779.     base[1]= cdr(base[1]);
  1780.     base[2]= car(base[1]);
  1781.     goto T927;
  1782. T923:;
  1783.     if((V71!= VV[148]))goto T980;
  1784.     if(!(type_of(cdr(base[0]))==t_cons)){
  1785.     goto T982;}
  1786.     base[3]= cadr(base[0]);
  1787.     base[1]= simple_symlispcall_no_event(VV[138],base+3,1);
  1788.     base[2]= Cnil;
  1789.     {object V76;
  1790.     object V77;
  1791.     V76= cddr(base[0]);
  1792.     V77= car((V76));
  1793. T989:;
  1794.     if(!(endp((V76)))){
  1795.     goto T990;}
  1796.     base[3]= Ct;
  1797.     vs_top=(vs_base=base+3)+1;
  1798.     return;
  1799. T990:;
  1800.     if(!(type_of((V77))==t_symbol)){
  1801.     goto T996;}
  1802.     base[2]= get((V77),VV[67],Cnil);
  1803.     if((base[2])==Cnil){
  1804.     goto T998;}
  1805.     if(equal(base[2],base[1])){
  1806.     goto T994;}
  1807. T998:;
  1808.     base[3]= Cnil;
  1809.     vs_top=(vs_base=base+3)+1;
  1810.     return;
  1811. T996:;
  1812.     base[3]= VV[100];
  1813.     base[4]= (V77);
  1814.     (void)simple_symlispcall_no_event(VV[139],base+3,2);
  1815. T994:;
  1816.     V76= cdr((V76));
  1817.     V77= car((V76));
  1818.     goto T989;}
  1819. T982:;
  1820.     base[1]= VV[101];
  1821.     base[2]= base[0];
  1822.     symlispcall_no_event(VV[139],base+1,2);
  1823.     return;
  1824. T980:;
  1825.     if((V71!= VV[149])
  1826.     && (V71!= VV[150])
  1827.     && (V71!= VV[151])
  1828.     && (V71!= VV[152]))goto T1012;
  1829.     base[3]= car(base[0]);
  1830.     base[1]= simple_symlispcall_no_event(VV[138],base+3,1);
  1831.     base[2]= Cnil;
  1832.     {object V78;
  1833.     object V79;
  1834.     V78= cdr(base[0]);
  1835.     V79= car((V78));
  1836. T1018:;
  1837.     if(!(endp((V78)))){
  1838.     goto T1019;}
  1839.     base[3]= Ct;
  1840.     vs_top=(vs_base=base+3)+1;
  1841.     return;
  1842. T1019:;
  1843.     if(!(type_of((V79))==t_symbol)){
  1844.     goto T1025;}
  1845.     base[2]= get((V79),VV[67],Cnil);
  1846.     if((base[2])==Cnil){
  1847.     goto T1027;}
  1848.     if(equal(base[2],base[1])){
  1849.     goto T1023;}
  1850. T1027:;
  1851.     base[3]= Cnil;
  1852.     vs_top=(vs_base=base+3)+1;
  1853.     return;
  1854. T1025:;
  1855.     base[3]= VV[102];
  1856.     base[4]= (V79);
  1857.     (void)simple_symlispcall_no_event(VV[139],base+3,2);
  1858. T1023:;
  1859.     V78= cdr((V78));
  1860.     V79= car((V78));
  1861.     goto T1018;}
  1862. T1012:;
  1863.     if((V71!= VV[153]))goto T1039;
  1864.     if(endp(cdr(base[0]))){
  1865.     goto T1040;}
  1866.     if(!(type_of(cadr(base[0]))==t_cons)){
  1867.     goto T1040;}
  1868.     if(!(caadr(base[0])==VV[59])){
  1869.     goto T1040;}
  1870.     if(!(endp(cdadr(base[0])))){
  1871.     goto T1041;}
  1872. T1040:;
  1873.     base[1]= VV[103];
  1874.     base[2]= base[0];
  1875.     symlispcall_no_event(VV[139],base+1,2);
  1876.     return;
  1877. T1041:;
  1878.     {object V80;
  1879.     object V81;
  1880.     V80= cddr(base[0]);
  1881.     V81= car((V80));
  1882. T1054:;
  1883.     if(!(endp((V80)))){
  1884.     goto T1055;}
  1885.     base[1]= Ct;
  1886.     vs_top=(vs_base=base+1)+1;
  1887.     return;
  1888. T1055:;
  1889.     if((get((V81),VV[43],Cnil))==Cnil){
  1890.     goto T1060;}
  1891.     base[2]= cadadr(base[0]);
  1892.     vs_top=(vs_base=base+2)+1;
  1893.     L8();
  1894.     vs_top=sup;
  1895.     base[1]= vs_base[0];
  1896.     base[2]= get((V81),VV[41],Cnil);
  1897.     if(!(equal(base[1],base[2]))){
  1898.     goto T1060;}
  1899.     base[2]= cddadr(base[0]);
  1900.     vs_top=(vs_base=base+2)+1;
  1901.     L9();
  1902.     vs_top=sup;
  1903.     base[1]= vs_base[0];
  1904.     base[2]= get((V81),VV[42],Cnil);
  1905.     if(equal(base[1],base[2])){
  1906.     goto T1059;}
  1907. T1060:;
  1908.     base[1]= Cnil;
  1909.     vs_top=(vs_base=base+1)+1;
  1910.     return;
  1911. T1059:;
  1912.     V80= cdr((V80));
  1913.     V81= car((V80));
  1914.     goto T1054;}
  1915. T1039:;
  1916.     if((V71!= VV[59]))goto T1077;
  1917.     if(endp(cdr(base[0]))){
  1918.     goto T1078;}
  1919.     if(!(endp(cddr(base[0])))){
  1920.     goto T1079;}
  1921. T1078:;
  1922.     base[1]= VV[104];
  1923.     base[2]= base[0];
  1924.     symlispcall_no_event(VV[139],base+1,2);
  1925.     return;
  1926. T1079:;
  1927.     if((get(cadr(base[0]),VV[43],Cnil))!=Cnil){
  1928.     goto T1085;}
  1929.     base[1]= Cnil;
  1930.     vs_top=(vs_base=base+1)+1;
  1931.     return;
  1932. T1085:;
  1933.     base[2]= caddr(base[0]);
  1934.     vs_top=(vs_base=base+2)+1;
  1935.     L8();
  1936.     vs_top=sup;
  1937.     base[1]= vs_base[0];
  1938.     base[2]= get(cadr(base[0]),VV[41],Cnil);
  1939.     if(equal(base[1],base[2])){
  1940.     goto T1087;}
  1941.     base[1]= Cnil;
  1942.     vs_top=(vs_base=base+1)+1;
  1943.     return;
  1944. T1087:;
  1945.     base[2]= cdddr(base[0]);
  1946.     vs_top=(vs_base=base+2)+1;
  1947.     L9();
  1948.     vs_top=sup;
  1949.     base[1]= vs_base[0];
  1950.     base[2]= get(cadr(base[0]),VV[42],Cnil);
  1951.     base[3]= (equal(base[1],base[2])?Ct:Cnil);
  1952.     vs_top=(vs_base=base+3)+1;
  1953.     return;
  1954. T1077:;
  1955.     if((V71!= VV[86]))goto T1095;
  1956.     {object V82;
  1957.     object V83;
  1958.     V82= cdr(base[0]);
  1959.     V83= car((V82));
  1960. T1099:;
  1961.     if(!(endp((V82)))){
  1962.     goto T1100;}
  1963.     base[1]= Ct;
  1964.     vs_top=(vs_base=base+1)+1;
  1965.     return;
  1966. T1100:;
  1967.     if(!(type_of((V83))==t_symbol)){
  1968.     goto T1106;}
  1969.     if((get((V83),VV[53],Cnil))==Cnil){
  1970.     goto T1104;}
  1971.     base[1]= Cnil;
  1972.     vs_top=(vs_base=base+1)+1;
  1973.     return;
  1974. T1106:;
  1975.     base[1]= VV[105];
  1976.     base[2]= (V83);
  1977.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  1978. T1104:;
  1979.     V82= cdr((V82));
  1980.     V83= car((V82));
  1981.     goto T1099;}
  1982. T1095:;
  1983.     if((V71!= VV[88]))goto T1117;
  1984.     {object V84;
  1985.     object V85;
  1986.     V84= cdr(base[0]);
  1987.     V85= car((V84));
  1988. T1121:;
  1989.     if(!(endp((V84)))){
  1990.     goto T1122;}
  1991.     base[1]= Ct;
  1992.     vs_top=(vs_base=base+1)+1;
  1993.     return;
  1994. T1122:;
  1995.     if(!(type_of((V85))==t_symbol)){
  1996.     goto T1128;}
  1997.     if((get((V85),VV[53],Cnil))!=Cnil){
  1998.     goto T1126;}
  1999.     base[1]= Cnil;
  2000.     vs_top=(vs_base=base+1)+1;
  2001.     return;
  2002. T1128:;
  2003.     base[1]= VV[106];
  2004.     base[2]= (V85);
  2005.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  2006. T1126:;
  2007.     V84= cdr((V84));
  2008.     V85= car((V84));
  2009.     goto T1121;}
  2010. T1117:;
  2011.     if((V71!= VV[78])
  2012.     && (V71!= VV[154]))goto T1139;
  2013.     {object V86;
  2014.     object V87;
  2015.     V86= cdr(base[0]);
  2016.     V87= car((V86));
  2017. T1143:;
  2018.     if(!(endp((V86)))){
  2019.     goto T1144;}
  2020.     base[1]= Ct;
  2021.     vs_top=(vs_base=base+1)+1;
  2022.     return;
  2023. T1144:;
  2024.     if(type_of((V87))==t_symbol){
  2025.     goto T1148;}
  2026.     base[1]= VV[107];
  2027.     base[2]= (V87);
  2028.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  2029. T1148:;
  2030.     V86= cdr((V86));
  2031.     V87= car((V86));
  2032.     goto T1143;}
  2033. T1139:;
  2034.     if((V71!= VV[155]))goto T1158;
  2035.     {object V88;
  2036.     object V89;
  2037.     V88= cdr(base[0]);
  2038.     V89= car((V88));
  2039. T1162:;
  2040.     if(!(endp((V88)))){
  2041.     goto T1163;}
  2042.     base[1]= Ct;
  2043.     vs_top=(vs_base=base+1)+1;
  2044.     return;
  2045. T1163:;
  2046.     if(!(type_of((V89))==t_symbol)){
  2047.     goto T1169;}
  2048.     {object x= (V89),V90= symbol_value(VV[52]);
  2049.     while(!endp(V90))
  2050.     if(eql(x,V90->c.c_car)){
  2051.     goto T1167;
  2052.     }else V90=V90->c.c_cdr;}
  2053.     base[1]= Cnil;
  2054.     vs_top=(vs_base=base+1)+1;
  2055.     return;
  2056. T1169:;
  2057.     base[1]= VV[108];
  2058.     base[2]= (V89);
  2059.     (void)simple_symlispcall_no_event(VV[139],base+1,2);
  2060. T1167:;
  2061.     V88= cdr((V88));
  2062.     V89= car((V88));
  2063.     goto T1162;}
  2064. T1158:;
  2065.     if((V71== VV[156])
  2066.     || (V71== VV[157])
  2067.     || (V71== VV[158])
  2068.     || (V71== VV[159])
  2069.     || (V71== VV[160]))goto T1181;
  2070.     if((V71== VV[150])
  2071.     || (V71== VV[161])
  2072.     || (V71== VV[162])
  2073.     || (V71== VV[163])
  2074.     || (V71== VV[164]))goto T1181;
  2075.     if((V71== VV[165])
  2076.     || (V71== VV[149])
  2077.     || (V71== VV[166])
  2078.     || (V71== VV[167])
  2079.     || (V71== VV[168]))goto T1181;
  2080.     if((V71== VV[169])
  2081.     || (V71== VV[170])
  2082.     || (V71== VV[152])
  2083.     || (V71== Cnil)
  2084.     || (V71== VV[171]))goto T1181;
  2085.     if((V71== VV[172])
  2086.     || (V71== VV[173])
  2087.     || (V71== VV[174])
  2088.     || (V71== VV[175])
  2089.     || (V71== VV[176]))goto T1181;
  2090.     if((V71== VV[177])
  2091.     || (V71== VV[178])
  2092.     || (V71== VV[179])
  2093.     || (V71== VV[151])
  2094.     || (V71== VV[180]))goto T1181;
  2095.     if((V71== VV[181])
  2096.     || (V71== VV[182])
  2097.     || (V71== VV[183])
  2098.     || (V71== VV[184])
  2099.     || (V71== VV[185]))goto T1181;
  2100.     if((V71== VV[186])
  2101.     || (V71== VV[187])
  2102.     || (V71== VV[188])
  2103.     || (V71== VV[189])
  2104.     || (V71== Ct))goto T1181;
  2105.     if((V71!= VV[190])
  2106.     && (V71!= VV[191])
  2107.     && (V71!= VV[192]))goto T1180;
  2108. T1181:;
  2109.     base[2]= car(base[0]);
  2110.     base[1]= simple_symlispcall_no_event(VV[138],base+2,1);
  2111.     {object V91;
  2112.     object V92;
  2113.     V91= cdr(base[0]);
  2114.     V92= car((V91));
  2115. T1187:;
  2116.     if(!(endp((V91)))){
  2117.     goto T1188;}
  2118.     base[2]= Ct;
  2119.     vs_top=(vs_base=base+2)+1;
  2120.     return;
  2121. T1188:;
  2122.     if(!(type_of((V92))==t_symbol)){
  2123.     goto T1194;}
  2124.     base[2]= get((V92),VV[67],Cnil);
  2125.     if(equal(base[2],base[1])){
  2126.     goto T1192;}
  2127.     base[2]= Cnil;
  2128.     vs_top=(vs_base=base+2)+1;
  2129.     return;
  2130. T1194:;
  2131.     base[2]= VV[109];
  2132.     base[3]= (V92);
  2133.     (void)simple_symlispcall_no_event(VV[139],base+2,2);
  2134. T1192:;
  2135.     V91= cdr((V91));
  2136.     V92= car((V91));
  2137.     goto T1187;}
  2138. T1180:;
  2139.     {object x= car(base[0]),V93= symbol_value(VV[52]);
  2140.     while(!endp(V93))
  2141.     if(eql(x,V93->c.c_car)){
  2142.     goto T1207;
  2143.     }else V93=V93->c.c_cdr;}
  2144.     base[1]= VV[110];
  2145.     base[2]= car(base[0]);
  2146.     symlispcall_no_event(VV[139],base+1,2);
  2147.     return;
  2148. T1207:;
  2149.     base[1]= Cnil;
  2150.     vs_top=(vs_base=base+1)+1;
  2151.     return;}
  2152. }
  2153.