home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / packlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  20.0 KB  |  1,022 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "packlib.h"
  4. init_packlib(){do_init(VV);}
  5. /*    macro definition for COERCE-TO-PACKAGE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     if(!endp(V1))invalid_macro_call();}
  18.     if(!((base[2])==(VV[0]))){
  19.     goto T2;}
  20.     vs_top=(vs_base=base+2)+1;
  21.     return;
  22. T2:;
  23.     {register object V2;
  24.     vs_base=vs_top;
  25.     Lgensym();
  26.     vs_top=sup;
  27.     V2= vs_base[0];
  28.     V3= list(2,(V2),base[2]);
  29.     V4= make_cons(/* INLINE-ARGS */V3,Cnil);
  30.     V5= list(2,VV[3],(V2));
  31.     base[3]= list(3,VV[1],/* INLINE-ARGS */V4,list(4,VV[2],/* INLINE-ARGS */V5,(V2),list(2,VV[4],list(2,VV[5],(V2)))));
  32.     vs_top=(vs_base=base+3)+1;
  33.     return;}
  34. }
  35. /*    local entry for function FIND-ALL-SYMBOLS    */
  36.  
  37. static object LI2(V7)
  38.  
  39. register object V7;
  40. {     VMB2 VMS2 VMV2
  41. TTL:;
  42.     if(!(type_of((V7))==t_symbol)){
  43.     goto T5;}
  44.     V7= symbol_name((V7));
  45. T5:;
  46.     vs_base=vs_top;
  47.     Llist_all_packages();
  48.     vs_top=sup;
  49.     V10= vs_base[0];
  50.     {object V8;
  51.     object V9= V10;
  52.     if(endp(V9)){
  53.     {object V11 = Cnil;
  54.     VMR2(V11)}}
  55.     base[0]=V8=MMcons(Cnil,Cnil);
  56. T9:;
  57.     {object V13;
  58.     object V14;
  59.     base[1]= (V7);
  60.     base[2]= (V9->c.c_car);
  61.     vs_top=(vs_base=base+1)+2;
  62.     Lfind_symbol();
  63.     if(vs_base>=vs_top){vs_top=sup;goto T15;}
  64.     V13= vs_base[0];
  65.     vs_base++;
  66.     if(vs_base>=vs_top){vs_top=sup;goto T16;}
  67.     V14= vs_base[0];
  68.     vs_top=sup;
  69.     goto T17;
  70. T15:;
  71.     V13= Cnil;
  72. T16:;
  73.     V14= Cnil;
  74. T17:;
  75.     if(((V14))==(VV[6])){
  76.     goto T18;}
  77.     if(!(((V14))==(VV[7]))){
  78.     goto T19;}
  79. T18:;
  80.     (V8->c.c_cdr)= make_cons((V13),Cnil);
  81.     goto T11;
  82. T19:;
  83.     (V8->c.c_cdr)= Cnil;}
  84. T11:;
  85.     while(!endp(MMcdr(V8)))V8=MMcdr(V8);
  86.     if(endp(V9=MMcdr(V9))){
  87.     base[0]=base[0]->c.c_cdr;
  88.     {object V15 = base[0];
  89.     VMR2(V15)}}
  90.     goto T9;}
  91. }
  92. /*    macro definition for DO-SYMBOLS    */
  93.  
  94. static L3()
  95. {register object *base=vs_base;
  96.     register object *sup=base+VM3; VC3
  97.     vs_reserve(VM3);
  98.     check_arg(2);
  99.     vs_top=sup;
  100.     {object V16=base[0]->c.c_cdr;
  101.     if(endp(V16))invalid_macro_call();
  102.     {object V17= (V16->c.c_car);
  103.     if(endp(V17))invalid_macro_call();
  104.     base[2]= (V17->c.c_car);
  105.     V17=V17->c.c_cdr;
  106.     if(endp(V17)){
  107.     base[3]= VV[0];
  108.     } else {
  109.     base[3]= (V17->c.c_car);
  110.     V17=V17->c.c_cdr;}
  111.     if(endp(V17)){
  112.     base[4]= Cnil;
  113.     } else {
  114.     base[4]= (V17->c.c_car);
  115.     V17=V17->c.c_cdr;}
  116.     if(!endp(V17))invalid_macro_call();}
  117.     V16=V16->c.c_cdr;
  118.     base[5]= V16;}
  119.     {register object V18;
  120.     register object V19;
  121.     register object V20;
  122.     object V21;
  123.     register object V22;
  124.     object V23;
  125.     object V24;
  126.     object V25;
  127.     vs_base=vs_top;
  128.     Lgensym();
  129.     vs_top=sup;
  130.     V18= vs_base[0];
  131.     vs_base=vs_top;
  132.     Lgensym();
  133.     vs_top=sup;
  134.     V19= vs_base[0];
  135.     vs_base=vs_top;
  136.     Lgensym();
  137.     vs_top=sup;
  138.     V20= vs_base[0];
  139.     vs_base=vs_top;
  140.     Lgensym();
  141.     vs_top=sup;
  142.     V21= vs_base[0];
  143.     vs_base=vs_top;
  144.     Lgensym();
  145.     vs_top=sup;
  146.     V22= vs_base[0];
  147.     vs_base=vs_top;
  148.     Lgensym();
  149.     vs_top=sup;
  150.     V23= vs_base[0];
  151.     vs_base=vs_top;
  152.     Lgensym();
  153.     vs_top=sup;
  154.     V24= vs_base[0];
  155.     V25= Cnil;
  156.     base[6]= base[5];
  157.     vs_top=(vs_base=base+6)+1;
  158.     (void) (*Lnk32)();
  159.     if(vs_base<vs_top){
  160.     V25= vs_base[0];
  161.     vs_base++;
  162.     }else{
  163.     V25= Cnil;}
  164.     if(vs_base<vs_top){
  165.     base[5]= vs_base[0];
  166.     }else{
  167.     base[5]= Cnil;}
  168.     vs_top=sup;
  169.     V26= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20));
  170.     V27= list(2,(V23),(V22));
  171.     V28= list(2,VV[10],(V18));
  172.     V29= list(2,VV[11],list(3,VV[12],(V22),(V23)));
  173.     V30= list(3,VV[14],(V22),(V23));
  174.     V31= list(3,(V19),/* INLINE-ARGS */V30,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
  175.     V32= list(3,VV[17],(V19),(V22));
  176.     V33= list(3,VV[18],(V18),(V19));
  177.     V34= list(3,VV[16],(V20),list(4,VV[2],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,list(3,VV[19],(V18),list(3,VV[20],(V19),(V22)))));
  178.     V35= list(2,VV[22],(V20));
  179.     V36= list(3,VV[21],/* INLINE-ARGS */V35,list(2,VV[23],(V24)));
  180.     V37= list(3,VV[16],base[2],list(2,VV[24],(V20)));
  181.     V38= list(3,VV[16],(V20),list(2,VV[25],(V20)));
  182.     V39= list(3,/* INLINE-ARGS */V38,list(2,VV[23],(V21)),(V24));
  183.     V40= list(5,VV[9],/* INLINE-ARGS */V27,/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,listA(7,VV[13],/* INLINE-ARGS */V31,/* INLINE-ARGS */V34,(V21),/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,append(base[5],/* INLINE-ARGS */V39)));
  184.     V41= make_cons(/* INLINE-ARGS */V40,Cnil);
  185.     base[6]= listA(3,VV[1],/* INLINE-ARGS */V26,append((V25),/* INLINE-ARGS */V41));
  186.     vs_top=(vs_base=base+6)+1;
  187.     return;}
  188. }
  189. /*    macro definition for DO-EXTERNAL-SYMBOLS    */
  190.  
  191. static L4()
  192. {register object *base=vs_base;
  193.     register object *sup=base+VM4; VC4
  194.     vs_reserve(VM4);
  195.     check_arg(2);
  196.     vs_top=sup;
  197.     {object V42=base[0]->c.c_cdr;
  198.     if(endp(V42))invalid_macro_call();
  199.     {object V43= (V42->c.c_car);
  200.     if(endp(V43))invalid_macro_call();
  201.     base[2]= (V43->c.c_car);
  202.     V43=V43->c.c_cdr;
  203.     if(endp(V43)){
  204.     base[3]= VV[0];
  205.     } else {
  206.     base[3]= (V43->c.c_car);
  207.     V43=V43->c.c_cdr;}
  208.     if(endp(V43)){
  209.     base[4]= Cnil;
  210.     } else {
  211.     base[4]= (V43->c.c_car);
  212.     V43=V43->c.c_cdr;}
  213.     if(!endp(V43))invalid_macro_call();}
  214.     V42=V42->c.c_cdr;
  215.     base[5]= V42;}
  216.     {object V44;
  217.     object V45;
  218.     register object V46;
  219.     object V47;
  220.     object V48;
  221.     object V49;
  222.     vs_base=vs_top;
  223.     Lgensym();
  224.     vs_top=sup;
  225.     V44= vs_base[0];
  226.     vs_base=vs_top;
  227.     Lgensym();
  228.     vs_top=sup;
  229.     V45= vs_base[0];
  230.     vs_base=vs_top;
  231.     Lgensym();
  232.     vs_top=sup;
  233.     V46= vs_base[0];
  234.     vs_base=vs_top;
  235.     Lgensym();
  236.     vs_top=sup;
  237.     V47= vs_base[0];
  238.     vs_base=vs_top;
  239.     Lgensym();
  240.     vs_top=sup;
  241.     V48= vs_base[0];
  242.     V49= Cnil;
  243.     base[6]= base[5];
  244.     vs_top=(vs_base=base+6)+1;
  245.     (void) (*Lnk32)();
  246.     if(vs_base<vs_top){
  247.     V49= vs_base[0];
  248.     vs_base++;
  249.     }else{
  250.     V49= Cnil;}
  251.     if(vs_base<vs_top){
  252.     base[5]= vs_base[0];
  253.     }else{
  254.     base[5]= Cnil;}
  255.     vs_top=sup;
  256.     V50= list(3,list(2,(V44),list(2,VV[8],base[3])),base[2],(V46));
  257.     V51= list(2,VV[10],(V44));
  258.     V52= list(3,(V45),/* INLINE-ARGS */V51,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
  259.     V53= list(3,VV[16],(V46),list(3,VV[19],(V44),(V45)));
  260.     V54= list(2,VV[22],(V46));
  261.     V55= list(3,VV[21],/* INLINE-ARGS */V54,list(2,VV[23],(V48)));
  262.     V56= list(3,VV[16],base[2],list(2,VV[24],(V46)));
  263.     V57= list(3,VV[16],(V46),list(2,VV[25],(V46)));
  264.     V58= list(3,/* INLINE-ARGS */V57,list(2,VV[23],(V47)),(V48));
  265.     V59= listA(7,VV[13],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,(V47),/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,append(base[5],/* INLINE-ARGS */V58));
  266.     V60= make_cons(/* INLINE-ARGS */V59,Cnil);
  267.     base[6]= listA(3,VV[1],/* INLINE-ARGS */V50,append((V49),/* INLINE-ARGS */V60));
  268.     vs_top=(vs_base=base+6)+1;
  269.     return;}
  270. }
  271. /*    macro definition for DO-ALL-SYMBOLS    */
  272.  
  273. static L5()
  274. {register object *base=vs_base;
  275.     register object *sup=base+VM5; VC5
  276.     vs_reserve(VM5);
  277.     check_arg(2);
  278.     vs_top=sup;
  279.     {object V61=base[0]->c.c_cdr;
  280.     if(endp(V61))invalid_macro_call();
  281.     {object V62= (V61->c.c_car);
  282.     if(endp(V62))invalid_macro_call();
  283.     base[2]= (V62->c.c_car);
  284.     V62=V62->c.c_cdr;
  285.     if(endp(V62)){
  286.     base[3]= Cnil;
  287.     } else {
  288.     base[3]= (V62->c.c_car);
  289.     V62=V62->c.c_cdr;}
  290.     if(!endp(V62))invalid_macro_call();}
  291.     V61=V61->c.c_cdr;
  292.     base[4]= V61;}
  293.     V63= list(3,VV[27],VV[28],base[3]);
  294.     base[5]= list(3,VV[26],/* INLINE-ARGS */V63,listA(3,VV[29],list(2,base[2],VV[27]),base[4]));
  295.     vs_top=(vs_base=base+5)+1;
  296.     return;
  297. }
  298. /*    local entry for function SUBSTRINGP    */
  299.  
  300. static object LI6(V66,V67)
  301.  
  302. register object V66;register object V67;
  303. {     VMB6 VMS6 VMV6
  304. TTL:;
  305.     {register object V68;
  306.     register object V69;
  307.     register object V70;
  308.     { save_avma;
  309.     V71 = stoi(length((V67)));
  310.     V72 = stoi(length((V66)));
  311.     V68= make_integer(subii(V71,V72));restore_avma;}
  312.     V69= make_fixnum(length((V66)));
  313.     V70= small_fixnum(0);
  314. T49:;
  315.     if(!(number_compare((V70),(V68))>0)){
  316.     goto T50;}
  317.     {object V73 = Cnil;
  318.     VMR6(V73)}
  319. T50:;
  320.     base[0]= (V66);
  321.     base[1]= (V67);
  322.     base[2]= VV[30];
  323.     base[3]= (V70);
  324.     base[4]= VV[31];
  325.     base[5]= number_plus((V70),(V69));
  326.     vs_top=(vs_base=base+0)+6;
  327.     Lstring_equal();
  328.     vs_top=sup;
  329.     if((vs_base[0])==Cnil){
  330.     goto T54;}
  331.     {object V74 = Ct;
  332.     VMR6(V74)}
  333. T54:;
  334.     V70= one_plus((V70));
  335.     goto T49;}
  336. }
  337. /*    local entry for function PRINT-SYMBOL-APROPOS    */
  338.  
  339. static object LI7(V76)
  340.  
  341. register object V76;
  342. {     VMB7 VMS7 VMV7
  343. TTL:;
  344.     (void)(prin1((V76),Cnil));
  345.     base[0]= (V76);
  346.     vs_top=(vs_base=base+0)+1;
  347.     Lfboundp();
  348.     vs_top=sup;
  349.     if((vs_base[0])==Cnil){
  350.     goto T67;}
  351.     base[0]= (V76);
  352.     vs_top=(vs_base=base+0)+1;
  353.     Lspecial_form_p();
  354.     vs_top=sup;
  355.     if((vs_base[0])==Cnil){
  356.     goto T72;}
  357.     princ_str("  Special form",Cnil);
  358.     goto T67;
  359. T72:;
  360.     base[0]= (V76);
  361.     vs_top=(vs_base=base+0)+1;
  362.     Lmacro_function();
  363.     vs_top=sup;
  364.     if((vs_base[0])==Cnil){
  365.     goto T76;}
  366.     princ_str("  Macro",Cnil);
  367.     goto T67;
  368. T76:;
  369.     princ_str("  Function",Cnil);
  370. T67:;
  371.     base[0]= (V76);
  372.     vs_top=(vs_base=base+0)+1;
  373.     Lboundp();
  374.     vs_top=sup;
  375.     if((vs_base[0])==Cnil){
  376.     goto T79;}
  377.     base[0]= (V76);
  378.     vs_top=(vs_base=base+0)+1;
  379.     Lconstantp();
  380.     vs_top=sup;
  381.     if((vs_base[0])==Cnil){
  382.     goto T85;}
  383.     princ_str("  Constant: ",Cnil);
  384.     goto T83;
  385. T85:;
  386.     princ_str("  has value: ",Cnil);
  387. T83:;
  388.     base[0]= (V76);
  389.     vs_top=(vs_base=base+0)+1;
  390.     Lsymbol_value();
  391.     vs_top=sup;
  392.     V77= vs_base[0];
  393.     (void)(prin1(V77,Cnil));
  394. T79:;
  395.     {object V78 = terpri(Cnil);
  396.     VMR7(V78)}
  397. }
  398. /*    function definition for APROPOS    */
  399.  
  400. static L8()
  401. {register object *base=vs_base;
  402.     register object *sup=base+VM8; VC8
  403.     vs_reserve(VM8);
  404.     {object V79;
  405.     object V80;
  406.     if(vs_top-vs_base<1) too_few_arguments();
  407.     if(vs_top-vs_base>2) too_many_arguments();
  408.     V79=(base[0]);
  409.     vs_base=vs_base+1;
  410.     if(vs_base>=vs_top){vs_top=sup;goto T90;}
  411.     V80=(base[1]);
  412.     vs_top=sup;
  413.     goto T91;
  414. T90:;
  415.     V80= Cnil;
  416. T91:;
  417.     V79= coerce_to_string((V79));
  418.     if(((V80))==Cnil){
  419.     goto T97;}
  420.     {object V81;
  421.     object V82;
  422.     register object V83;
  423.     base[2]= V80;
  424.     vs_top=(vs_base=base+2)+1;
  425.     Lpackagep();
  426.     vs_top=sup;
  427.     if((vs_base[0])==Cnil){
  428.     goto T102;}
  429.     V81= V80;
  430.     goto T100;
  431. T102:;
  432.     base[2]= coerce_to_string(V80);
  433.     vs_top=(vs_base=base+2)+1;
  434.     Lfind_package();
  435.     vs_top=sup;
  436.     V81= vs_base[0];
  437. T100:;
  438.     V82= Cnil;
  439.     V83= Cnil;
  440.     {int V85;
  441.     int V86;
  442.     base[2]= (V81);
  443.     vs_top=(vs_base=base+2)+1;
  444.     (void) (*Lnk10)();
  445.     if(vs_base>=vs_top){vs_top=sup;goto T108;}
  446.     V85= fix(vs_base[0]);
  447.     vs_base++;
  448.     if(vs_base>=vs_top){vs_top=sup;goto T109;}
  449.     V86= fix(vs_base[0]);
  450.     vs_top=sup;
  451.     goto T110;
  452. T108:;
  453.     V85= fix(Cnil);
  454. T109:;
  455.     V86= fix(Cnil);
  456. T110:;
  457.     {object V87;
  458.     object V88;
  459.     { save_avma;
  460.     V89 = stoi(V86);
  461.     V90 = stoi(V85);
  462.     V87= make_integer(addii(V89,V90));restore_avma;}
  463.     V88= small_fixnum(0);
  464. T114:;
  465.     if(!(number_compare((V88),(V87))>=0)){
  466.     goto T115;}
  467.     V82= Cnil;
  468.     goto T99;
  469. T115:;
  470.     V91 = make_fixnum(V86);
  471.     if(!(number_compare((V88),V91)<0)){
  472.     goto T126;}
  473.     base[3]= (V81);
  474.     base[4]= (V88);
  475.     vs_top=(vs_base=base+3)+2;
  476.     siLpackage_internal();
  477.     vs_top=sup;
  478.     V83= vs_base[0];
  479.     goto T124;
  480. T126:;
  481.     base[3]= (V81);
  482.     V92 = make_fixnum(V86);
  483.     base[4]= number_minus((V88),V92);
  484.     vs_top=(vs_base=base+3)+2;
  485.     siLpackage_external();
  486.     vs_top=sup;
  487.     V83= vs_base[0];
  488. T124:;
  489. T122:;
  490.     if(((V83))!=Cnil){
  491.     goto T132;}
  492.     goto T123;
  493. T132:;
  494.     V82= car((V83));
  495.     V93= coerce_to_string((V82));
  496.     if(((*(LnkLI33))((V79),/* INLINE-ARGS */V93))==Cnil){
  497.     goto T137;}
  498.     (void)((*(LnkLI34))((V82)));
  499. T137:;
  500.     V83= cdr((V83));
  501.     goto T122;
  502. T123:;
  503.     goto T120;
  504. T120:;
  505.     V88= one_plus((V88));
  506.     goto T114;}}}
  507. T99:;
  508.     {object V94;
  509.     base[2]= (V80);
  510.     vs_top=(vs_base=base+2)+1;
  511.     Lpackage_use_list();
  512.     vs_top=sup;
  513.     V94= vs_base[0];
  514. T148:;
  515.     if(((V94))!=Cnil){
  516.     goto T149;}
  517.     goto T95;
  518. T149:;
  519.     {object V95;
  520.     register object V96;
  521.     register object V97;
  522.     {object V98;
  523.     V98= car((V94));
  524.     base[2]= (V98);
  525.     vs_top=(vs_base=base+2)+1;
  526.     Lpackagep();
  527.     vs_top=sup;
  528.     if((vs_base[0])==Cnil){
  529.     goto T157;}
  530.     V95= (V98);
  531.     goto T154;
  532. T157:;
  533.     base[2]= coerce_to_string((V98));
  534.     vs_top=(vs_base=base+2)+1;
  535.     Lfind_package();
  536.     vs_top=sup;
  537.     V95= vs_base[0];}
  538. T154:;
  539.     V96= Cnil;
  540.     V97= Cnil;
  541.     {object V99;
  542.     object V100;
  543.     base[3]= (V95);
  544.     vs_top=(vs_base=base+3)+1;
  545.     (void) (*Lnk10)();
  546.     vs_top=sup;
  547.     V99= vs_base[0];
  548.     V100= small_fixnum(0);
  549. T165:;
  550.     if(!(number_compare((V100),(V99))>=0)){
  551.     goto T166;}
  552.     V96= Cnil;
  553.     goto T153;
  554. T166:;
  555.     base[3]= (V95);
  556.     base[4]= (V100);
  557.     vs_top=(vs_base=base+3)+2;
  558.     siLpackage_external();
  559.     vs_top=sup;
  560.     V97= vs_base[0];
  561. T173:;
  562.     if(((V97))!=Cnil){
  563.     goto T178;}
  564.     goto T174;
  565. T178:;
  566.     V96= car((V97));
  567.     V101= coerce_to_string((V96));
  568.     if(((*(LnkLI33))((V79),/* INLINE-ARGS */V101))==Cnil){
  569.     goto T183;}
  570.     (void)((*(LnkLI34))((V96)));
  571. T183:;
  572.     V97= cdr((V97));
  573.     goto T173;
  574. T174:;
  575.     goto T171;
  576. T171:;
  577.     V100= one_plus((V100));
  578.     goto T165;}}
  579. T153:;
  580.     V94= cdr((V94));
  581.     goto T148;}
  582. T97:;
  583.     {object V102;
  584.     object V103;
  585.     vs_base=vs_top;
  586.     Llist_all_packages();
  587.     vs_top=sup;
  588.     V102= vs_base[0];
  589.     V103= car((V102));
  590. T197:;
  591.     if(!(endp((V102)))){
  592.     goto T198;}
  593.     goto T95;
  594. T198:;
  595.     {object V104;
  596.     register object V105;
  597.     register object V106;
  598.     base[4]= V103;
  599.     vs_top=(vs_base=base+4)+1;
  600.     Lpackagep();
  601.     vs_top=sup;
  602.     if((vs_base[0])==Cnil){
  603.     goto T205;}
  604.     V104= V103;
  605.     goto T203;
  606. T205:;
  607.     base[4]= coerce_to_string(V103);
  608.     vs_top=(vs_base=base+4)+1;
  609.     Lfind_package();
  610.     vs_top=sup;
  611.     V104= vs_base[0];
  612. T203:;
  613.     V105= Cnil;
  614.     V106= Cnil;
  615.     {int V108;
  616.     int V109;
  617.     base[4]= (V104);
  618.     vs_top=(vs_base=base+4)+1;
  619.     (void) (*Lnk10)();
  620.     if(vs_base>=vs_top){vs_top=sup;goto T211;}
  621.     V108= fix(vs_base[0]);
  622.     vs_base++;
  623.     if(vs_base>=vs_top){vs_top=sup;goto T212;}
  624.     V109= fix(vs_base[0]);
  625.     vs_top=sup;
  626.     goto T213;
  627. T211:;
  628.     V108= fix(Cnil);
  629. T212:;
  630.     V109= fix(Cnil);
  631. T213:;
  632.     {object V110;
  633.     register object V111;
  634.     { save_avma;
  635.     V112 = stoi(V109);
  636.     V113 = stoi(V108);
  637.     V110= make_integer(addii(V112,V113));restore_avma;}
  638.     V111= small_fixnum(0);
  639. T217:;
  640.     if(!(number_compare((V111),(V110))>=0)){
  641.     goto T218;}
  642.     V105= Cnil;
  643.     goto T202;
  644. T218:;
  645.     V114 = make_fixnum(V109);
  646.     if(!(number_compare((V111),V114)<0)){
  647.     goto T229;}
  648.     base[5]= (V104);
  649.     base[6]= (V111);
  650.     vs_top=(vs_base=base+5)+2;
  651.     siLpackage_internal();
  652.     vs_top=sup;
  653.     V106= vs_base[0];
  654.     goto T227;
  655. T229:;
  656.     base[5]= (V104);
  657.     V115 = make_fixnum(V109);
  658.     base[6]= number_minus((V111),V115);
  659.     vs_top=(vs_base=base+5)+2;
  660.     siLpackage_external();
  661.     vs_top=sup;
  662.     V106= vs_base[0];
  663. T227:;
  664. T225:;
  665.     if(((V106))!=Cnil){
  666.     goto T235;}
  667.     goto T226;
  668. T235:;
  669.     V105= car((V106));
  670.     V116= coerce_to_string((V105));
  671.     if(((*(LnkLI33))((V79),/* INLINE-ARGS */V116))==Cnil){
  672.     goto T240;}
  673.     (void)((*(LnkLI34))((V105)));
  674. T240:;
  675.     V106= cdr((V106));
  676.     goto T225;
  677. T226:;
  678.     goto T223;
  679. T223:;
  680.     V111= one_plus((V111));
  681.     goto T217;}}}
  682. T202:;
  683.     V102= cdr((V102));
  684.     V103= car((V102));
  685.     goto T197;}
  686. T95:;
  687.     vs_base=vs_top=base+2;
  688.     vs_base[0]=Cnil;
  689.     return;
  690.     }
  691. }
  692. /*    local entry for function APROPOS-LIST    */
  693.  
  694. static object LI9(V117,va_alist)
  695.     object V117;
  696.     va_dcl 
  697. {    
  698.     va_list ap;
  699.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  700.     {object V118;
  701.     object V119;
  702.     if(narg <1) too_few_arguments();
  703.     V118= V117;
  704.     narg = narg - 1;
  705.     if (narg <= 0) goto T253;
  706.     else {
  707.     va_start(ap);
  708.     V119= va_arg(ap,object);}
  709.     --narg; goto T254;
  710. T253:;
  711.     V119= Cnil;
  712. T254:;
  713.     {register object V120;
  714.     V120= Cnil;
  715.     V120= Cnil;
  716.     V118= coerce_to_string((V118));
  717.     if(((V119))==Cnil){
  718.     goto T263;}
  719.     {object V121;
  720.     object V122;
  721.     object V123;
  722.     base[0]= V119;
  723.     vs_top=(vs_base=base+0)+1;
  724.     Lpackagep();
  725.     vs_top=sup;
  726.     if((vs_base[0])==Cnil){
  727.     goto T268;}
  728.     V121= V119;
  729.     goto T266;
  730. T268:;
  731.     base[0]= coerce_to_string(V119);
  732.     vs_top=(vs_base=base+0)+1;
  733.     Lfind_package();
  734.     vs_top=sup;
  735.     V121= vs_base[0];
  736. T266:;
  737.     V122= Cnil;
  738.     V123= Cnil;
  739.     {int V125;
  740.     int V126;
  741.     base[0]= (V121);
  742.     vs_top=(vs_base=base+0)+1;
  743.     (void) (*Lnk10)();
  744.     if(vs_base>=vs_top){vs_top=sup;goto T274;}
  745.     V125= fix(vs_base[0]);
  746.     vs_base++;
  747.     if(vs_base>=vs_top){vs_top=sup;goto T275;}
  748.     V126= fix(vs_base[0]);
  749.     vs_top=sup;
  750.     goto T276;
  751. T274:;
  752.     V125= fix(Cnil);
  753. T275:;
  754.     V126= fix(Cnil);
  755. T276:;
  756.     {object V127;
  757.     object V128;
  758.     { save_avma;
  759.     V129 = stoi(V126);
  760.     V130 = stoi(V125);
  761.     V127= make_integer(addii(V129,V130));restore_avma;}
  762.     V128= small_fixnum(0);
  763. T280:;
  764.     if(!(number_compare((V128),(V127))>=0)){
  765.     goto T281;}
  766.     V122= Cnil;
  767.     goto T265;
  768. T281:;
  769.     V131 = make_fixnum(V126);
  770.     if(!(number_compare((V128),V131)<0)){
  771.     goto T292;}
  772.     base[1]= (V121);
  773.     base[2]= (V128);
  774.     vs_top=(vs_base=base+1)+2;
  775.     siLpackage_internal();
  776.     vs_top=sup;
  777.     V123= vs_base[0];
  778.     goto T290;
  779. T292:;
  780.     base[1]= (V121);
  781.     V132 = make_fixnum(V126);
  782.     base[2]= number_minus((V128),V132);
  783.     vs_top=(vs_base=base+1)+2;
  784.     siLpackage_external();
  785.     vs_top=sup;
  786.     V123= vs_base[0];
  787. T290:;
  788. T288:;
  789.     if(((V123))!=Cnil){
  790.     goto T298;}
  791.     goto T289;
  792. T298:;
  793.     V122= car((V123));
  794.     V133= coerce_to_string((V122));
  795.     if(((*(LnkLI33))((V118),/* INLINE-ARGS */V133))==Cnil){
  796.     goto T303;}
  797.     V120= make_cons((V122),(V120));
  798. T303:;
  799.     V123= cdr((V123));
  800.     goto T288;
  801. T289:;
  802.     goto T286;
  803. T286:;
  804.     V128= one_plus((V128));
  805.     goto T280;}}}
  806. T265:;
  807.     {object V134;
  808.     base[0]= (V119);
  809.     vs_top=(vs_base=base+0)+1;
  810.     Lpackage_use_list();
  811.     vs_top=sup;
  812.     V134= vs_base[0];
  813. T315:;
  814.     if(((V134))!=Cnil){
  815.     goto T316;}
  816.     goto T261;
  817. T316:;
  818.     {object V135;
  819.     register object V136;
  820.     register object V137;
  821.     {object V138;
  822.     V138= car((V134));
  823.     base[0]= (V138);
  824.     vs_top=(vs_base=base+0)+1;
  825.     Lpackagep();
  826.     vs_top=sup;
  827.     if((vs_base[0])==Cnil){
  828.     goto T324;}
  829.     V135= (V138);
  830.     goto T321;
  831. T324:;
  832.     base[0]= coerce_to_string((V138));
  833.     vs_top=(vs_base=base+0)+1;
  834.     Lfind_package();
  835.     vs_top=sup;
  836.     V135= vs_base[0];}
  837. T321:;
  838.     V136= Cnil;
  839.     V137= Cnil;
  840.     {int V139;
  841.     int V140;
  842.     base[0]= (V135);
  843.     vs_top=(vs_base=base+0)+1;
  844.     (void) (*Lnk10)();
  845.     if(vs_base>=vs_top){vs_top=sup;goto T330;}
  846.     V139= fix(vs_base[0]);
  847.     vs_base++;
  848.     if(vs_base>=vs_top){vs_top=sup;goto T331;}
  849.     V140= fix(vs_base[0]);
  850.     vs_top=sup;
  851.     goto T332;
  852. T330:;
  853.     V139= fix(Cnil);
  854. T331:;
  855.     V140= fix(Cnil);
  856. T332:;
  857.     {object V141;
  858.     register object V142;
  859.     { save_avma;
  860.     V143 = stoi(V140);
  861.     V144 = stoi(V139);
  862.     V141= make_integer(addii(V143,V144));restore_avma;}
  863.     V142= small_fixnum(0);
  864. T336:;
  865.     if(!(number_compare((V142),(V141))>=0)){
  866.     goto T337;}
  867.     V136= Cnil;
  868.     goto T320;
  869. T337:;
  870.     V145 = make_fixnum(V140);
  871.     if(!(number_compare((V142),V145)<0)){
  872.     goto T348;}
  873.     base[1]= (V135);
  874.     base[2]= (V142);
  875.     vs_top=(vs_base=base+1)+2;
  876.     siLpackage_internal();
  877.     vs_top=sup;
  878.     V137= vs_base[0];
  879.     goto T346;
  880. T348:;
  881.     base[1]= (V135);
  882.     V146 = make_fixnum(V140);
  883.     base[2]= number_minus((V142),V146);
  884.     vs_top=(vs_base=base+1)+2;
  885.     siLpackage_external();
  886.     vs_top=sup;
  887.     V137= vs_base[0];
  888. T346:;
  889. T344:;
  890.     if(((V137))!=Cnil){
  891.     goto T354;}
  892.     goto T345;
  893. T354:;
  894.     V136= car((V137));
  895.     V147= coerce_to_string((V136));
  896.     if(((*(LnkLI33))((V118),/* INLINE-ARGS */V147))==Cnil){
  897.     goto T359;}
  898.     V120= make_cons((V136),(V120));
  899. T359:;
  900.     V137= cdr((V137));
  901.     goto T344;
  902. T345:;
  903.     goto T342;
  904. T342:;
  905.     V142= one_plus((V142));
  906.     goto T336;}}}
  907. T320:;
  908.     V134= cdr((V134));
  909.     goto T315;}
  910. T263:;
  911.     {object V148;
  912.     object V149;
  913.     vs_base=vs_top;
  914.     Llist_all_packages();
  915.     vs_top=sup;
  916.     V148= vs_base[0];
  917.     V149= car((V148));
  918. T374:;
  919.     if(!(endp((V148)))){
  920.     goto T375;}
  921.     goto T261;
  922. T375:;
  923.     {object V150;
  924.     register object V151;
  925.     register object V152;
  926.     base[2]= V149;
  927.     vs_top=(vs_base=base+2)+1;
  928.     Lpackagep();
  929.     vs_top=sup;
  930.     if((vs_base[0])==Cnil){
  931.     goto T382;}
  932.     V150= V149;
  933.     goto T380;
  934. T382:;
  935.     base[2]= coerce_to_string(V149);
  936.     vs_top=(vs_base=base+2)+1;
  937.     Lfind_package();
  938.     vs_top=sup;
  939.     V150= vs_base[0];
  940. T380:;
  941.     V151= Cnil;
  942.     V152= Cnil;
  943.     {int V154;
  944.     int V155;
  945.     base[2]= (V150);
  946.     vs_top=(vs_base=base+2)+1;
  947.     (void) (*Lnk10)();
  948.     if(vs_base>=vs_top){vs_top=sup;goto T388;}
  949.     V154= fix(vs_base[0]);
  950.     vs_base++;
  951.     if(vs_base>=vs_top){vs_top=sup;goto T389;}
  952.     V155= fix(vs_base[0]);
  953.     vs_top=sup;
  954.     goto T390;
  955. T388:;
  956.     V154= fix(Cnil);
  957. T389:;
  958.     V155= fix(Cnil);
  959. T390:;
  960.     {object V156;
  961.     register object V157;
  962.     { save_avma;
  963.     V158 = stoi(V155);
  964.     V159 = stoi(V154);
  965.     V156= make_integer(addii(V158,V159));restore_avma;}
  966.     V157= small_fixnum(0);
  967. T394:;
  968.     if(!(number_compare((V157),(V156))>=0)){
  969.     goto T395;}
  970.     V151= Cnil;
  971.     goto T379;
  972. T395:;
  973.     V160 = make_fixnum(V155);
  974.     if(!(number_compare((V157),V160)<0)){
  975.     goto T406;}
  976.     base[3]= (V150);
  977.     base[4]= (V157);
  978.     vs_top=(vs_base=base+3)+2;
  979.     siLpackage_internal();
  980.     vs_top=sup;
  981.     V152= vs_base[0];
  982.     goto T404;
  983. T406:;
  984.     base[3]= (V150);
  985.     V161 = make_fixnum(V155);
  986.     base[4]= number_minus((V157),V161);
  987.     vs_top=(vs_base=base+3)+2;
  988.     siLpackage_external();
  989.     vs_top=sup;
  990.     V152= vs_base[0];
  991. T404:;
  992. T402:;
  993.     if(((V152))!=Cnil){
  994.     goto T412;}
  995.     goto T403;
  996. T412:;
  997.     V151= car((V152));
  998.     V162= coerce_to_string((V151));
  999.     if(((*(LnkLI33))((V118),/* INLINE-ARGS */V162))==Cnil){
  1000.     goto T417;}
  1001.     V120= make_cons((V151),(V120));
  1002. T417:;
  1003.     V152= cdr((V152));
  1004.     goto T402;
  1005. T403:;
  1006.     goto T400;
  1007. T400:;
  1008.     V157= one_plus((V157));
  1009.     goto T394;}}}
  1010. T379:;
  1011.     V148= cdr((V148));
  1012.     V149= car((V148));
  1013.     goto T374;}
  1014. T261:;
  1015.     {object V163 = (V120);
  1016.     VMR9(V163)}}}
  1017.     }
  1018. static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* PRINT-SYMBOL-APROPOS */
  1019. static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[33],&LnkLI33,2,ap);} /* SUBSTRINGP */
  1020. static LnkT10(){ call_or_link(VV[10],&Lnk10);} /* PACKAGE-SIZE */
  1021. static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* FIND-DECLARATIONS */
  1022.