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 / describe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  51.5 KB  |  2,678 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "describe.h"
  4. init_describe(){do_init(VV);}
  5. /*    local entry for function INSPECT-READ-LINE    */
  6.  
  7. static object LI1()
  8.  
  9. {     VMB1 VMS1 VMV1
  10. TTL:;
  11.     {register object V1;
  12.     base[0]= symbol_value(VV[0]);
  13.     vs_top=(vs_base=base+0)+1;
  14.     Lread_char();
  15.     vs_top=sup;
  16.     V1= vs_base[0];
  17. T4:;
  18.     base[0]= (V1);
  19.     base[1]= VV[1];
  20.     vs_top=(vs_base=base+0)+2;
  21.     Lchar_eq();
  22.     vs_top=sup;
  23.     if((vs_base[0])!=Cnil){
  24.     goto T6;}
  25.     base[0]= (V1);
  26.     base[1]= VV[2];
  27.     vs_top=(vs_base=base+0)+2;
  28.     Lchar_eq();
  29.     vs_top=sup;
  30.     if((vs_base[0])==Cnil){
  31.     goto T5;}
  32. T6:;
  33.     {object V2 = Cnil;
  34.     VMR1(V2)}
  35. T5:;
  36.     base[0]= symbol_value(VV[0]);
  37.     vs_top=(vs_base=base+0)+1;
  38.     Lread_char();
  39.     vs_top=sup;
  40.     V1= vs_base[0];
  41.     goto T4;}
  42. }
  43. /*    function definition for READ-INSPECT-COMMAND    */
  44.  
  45. static L2()
  46. {register object *base=vs_base;
  47.     register object *sup=base+VM2; VC2
  48.     vs_reserve(VM2);
  49.     bds_check;
  50.     {object V3;
  51.     register object V4;
  52.     register object V5;
  53.     check_arg(3);
  54.     V3=(base[0]);
  55.     V4=(base[1]);
  56.     V5=(base[2]);
  57.     vs_top=sup;
  58. TTL:;
  59.     if((symbol_value(VV[3]))!=Cnil){
  60.     goto T19;}
  61.     (void)((*(LnkLI163))());
  62.     if(((V5))==Cnil){
  63.     goto T25;}
  64.     (void)(princ((V3),Cnil));
  65.     base[3]= (V4);
  66.     vs_top=(vs_base=base+3)+1;
  67.     (void) (*Lnk164)();
  68.     vs_top=sup;
  69.     goto T23;
  70. T25:;
  71.     base[3]= Ct;
  72.     base[4]= (V3);
  73.     base[5]= (V4);
  74.     vs_top=(vs_base=base+3)+3;
  75.     Lformat();
  76.     vs_top=sup;
  77. T23:;
  78.     base[3]= Cnil;
  79.     vs_top=(vs_base=base+3)+1;
  80.     return;
  81. T19:;
  82. T33:;
  83.     (void)((*(LnkLI163))());
  84.     if(((V5))==Cnil){
  85.     goto T38;}
  86.     (void)(princ((V3),Cnil));
  87.     (void)((*(LnkLI165))());
  88.     (void)(prin1((V4),Cnil));
  89.     goto T36;
  90. T38:;
  91.     base[3]= Ct;
  92.     base[4]= (V3);
  93.     base[5]= (V4);
  94.     vs_top=(vs_base=base+3)+3;
  95.     Lformat();
  96.     vs_top=sup;
  97. T36:;
  98.     base[3]= VV[4];
  99.     vs_top=(vs_base=base+3)+1;
  100.     Lwrite_char();
  101.     vs_top=sup;
  102.     vs_base=vs_top;
  103.     Lforce_output();
  104.     vs_top=sup;
  105.     {register object V8;
  106.     base[3]= symbol_value(VV[0]);
  107.     vs_top=(vs_base=base+3)+1;
  108.     Lread_char();
  109.     vs_top=sup;
  110.     V8= vs_base[0];
  111. T52:;
  112.     base[3]= (V8);
  113.     base[4]= VV[4];
  114.     vs_top=(vs_base=base+3)+2;
  115.     Lchar_neq();
  116.     vs_top=sup;
  117.     if((vs_base[0])==Cnil){
  118.     goto T53;}
  119.     base[3]= VV[5];
  120.     vs_top=(vs_base=base+3)+1;
  121.     Lchar_neq();
  122.     vs_top=sup;
  123.     if((vs_base[0])==Cnil){
  124.     goto T53;}
  125.     V7= (V8);
  126.     goto T48;
  127. T53:;
  128.     base[3]= symbol_value(VV[0]);
  129.     vs_top=(vs_base=base+3)+1;
  130.     Lread_char();
  131.     vs_top=sup;
  132.     V8= vs_base[0];
  133.     goto T52;}
  134. T48:;
  135.     {object V6= V7;
  136.     if(!eql(V6,VV[1])
  137.     && !eql(V6,VV[2]))goto T66;
  138.     if(((V5))==Cnil){
  139.     goto T67;}
  140.     base[3]= (V4);
  141.     vs_top=(vs_base=base+3)+1;
  142.     (void) (*Lnk164)();
  143.     vs_top=sup;
  144. T67:;
  145.     base[3]= Cnil;
  146.     vs_top=(vs_base=base+3)+1;
  147.     return;
  148. T66:;
  149.     if(!eql(V6,VV[6])
  150.     && !eql(V6,VV[7]))goto T71;
  151.     (void)((*(LnkLI166))());
  152.     if(((V5))==Cnil){
  153.     goto T73;}
  154.     base[3]= (V4);
  155.     vs_top=(vs_base=base+3)+1;
  156.     (void) (*Lnk164)();
  157.     vs_top=sup;
  158. T73:;
  159.     base[3]= Cnil;
  160.     vs_top=(vs_base=base+3)+1;
  161.     return;
  162. T71:;
  163.     if(!eql(V6,VV[8])
  164.     && !eql(V6,VV[9]))goto T77;
  165.     (void)((*(LnkLI166))());
  166.     base[3]= Cnil;
  167.     vs_top=(vs_base=base+3)+1;
  168.     return;
  169. T77:;
  170.     if(!eql(V6,VV[10])
  171.     && !eql(V6,VV[11]))goto T79;
  172.     (void)((*(LnkLI166))());
  173.     bds_bind(VV[12],Ct);
  174.     bds_bind(VV[13],Cnil);
  175.     bds_bind(VV[14],Cnil);
  176.     (void)(prin1((V4),Cnil));
  177.     princ_char(10,Cnil);
  178.     bds_unwind1;
  179.     bds_unwind1;
  180.     bds_unwind1;
  181.     goto T34;
  182. T79:;
  183.     if(!eql(V6,VV[15])
  184.     && !eql(V6,VV[16]))goto T82;
  185.     (void)((*(LnkLI166))());
  186.     {frame_ptr fr;
  187.     fr=frs_sch_catch(VV[17]);
  188.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]);
  189.     base[3]= Cnil;
  190.     vs_top=(vs_base=base+3)+1;
  191.     unwind(fr,VV[17]);}
  192. T82:;
  193.     if(!eql(V6,VV[18])
  194.     && !eql(V6,VV[19]))goto T85;
  195.     base[3]= Ct;
  196.     {object V9;
  197.     base[6]= symbol_value(VV[0]);
  198.     vs_top=(vs_base=base+6)+1;
  199.     (void) (*Lnk167)();
  200.     vs_top=sup;
  201.     base[5]= vs_base[0];
  202.     vs_top=(vs_base=base+5)+1;
  203.     Leval();
  204.     vs_top=sup;
  205.     V9= vs_base[0];
  206.     (void)((*(LnkLI166))());
  207.     base[4]= (V9);}
  208.     vs_top=(vs_base=base+3)+2;
  209.     return;
  210. T85:;
  211.     if(!eql(V6,VV[20])
  212.     && !eql(V6,VV[21]))goto T92;
  213.     {register object V10;
  214.     register object V11;
  215.     base[6]= symbol_value(VV[0]);
  216.     vs_top=(vs_base=base+6)+1;
  217.     (void) (*Lnk167)();
  218.     vs_top=sup;
  219.     base[5]= vs_base[0];
  220.     vs_top=(vs_base=base+5)+1;
  221.     Leval();
  222.     {object *V13=vs_top;object *V12=vs_base; vs_base=V13;
  223.     {register object *base0=base;
  224.     {register object *base=V13;
  225.     register object *sup=vs_base+VM3;
  226.     vs_reserve(VM3);
  227.     vs_top=sup;
  228.     (void)((*(LnkLI166))());
  229.     }}
  230.     vs_base=V12;vs_top=V13;}
  231.     Llist();
  232.     vs_top=sup;
  233.     V10= vs_base[0];
  234.     V11= car((V10));
  235. T101:;
  236.     if(!(endp((V10)))){
  237.     goto T102;}
  238.     goto T34;
  239. T102:;
  240.     base[5]= (V11);
  241.     base[6]= VV[22];
  242.     base[7]= symbol_value(VV[23]);
  243.     base[8]= VV[24];
  244.     base[9]= symbol_value(VV[25]);
  245.     vs_top=(vs_base=base+5)+5;
  246.     Lwrite();
  247.     vs_top=sup;
  248.     princ_char(10,Cnil);
  249.     V10= cdr((V10));
  250.     V11= car((V10));
  251.     goto T101;}
  252. T92:;
  253.     if(!eql(V6,VV[26])
  254.     && !eql(V6,VV[27]))goto T118;
  255.     (void)((*(LnkLI166))());
  256.     {frame_ptr fr;
  257.     fr=frs_sch_catch(VV[28]);
  258.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]);
  259.     base[3]= Cnil;
  260.     vs_top=(vs_base=base+3)+1;
  261.     unwind(fr,VV[28]);}
  262. T118:;
  263.     (void)((*(LnkLI166))());
  264.     princ_char(10,Cnil);
  265.     base[3]= Ct;
  266.     base[4]= VV[29];
  267.     vs_top=(vs_base=base+3)+2;
  268.     Lformat();
  269.     vs_top=sup;}
  270. T34:;
  271.     goto T33;
  272.     }
  273. }
  274. /*    macro definition for INSPECT-RECURSIVELY    */
  275.  
  276. static L3()
  277. {register object *base=vs_base;
  278.     register object *sup=base+VM4; VC4
  279.     vs_reserve(VM4);
  280.     check_arg(2);
  281.     vs_top=sup;
  282.     {object V14=base[0]->c.c_cdr;
  283.     if(endp(V14))invalid_macro_call();
  284.     base[2]= (V14->c.c_car);
  285.     V14=V14->c.c_cdr;
  286.     if(endp(V14))invalid_macro_call();
  287.     base[3]= (V14->c.c_car);
  288.     V14=V14->c.c_cdr;
  289.     if(endp(V14)){
  290.     base[4]= Cnil;
  291.     } else {
  292.     base[4]= (V14->c.c_car);
  293.     V14=V14->c.c_cdr;}
  294.     if(!endp(V14))invalid_macro_call();}
  295.     if((base[4])==Cnil){
  296.     goto T128;}
  297.     V15= list(4,VV[32],base[2],base[3],Ct);
  298.     base[5]= list(4,VV[30],VV[31],/* INLINE-ARGS */V15,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
  299.     vs_top=(vs_base=base+5)+1;
  300.     return;
  301. T128:;
  302.     base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Ct),VV[37]);
  303.     vs_top=(vs_base=base+5)+1;
  304.     return;
  305. }
  306. /*    macro definition for INSPECT-PRINT    */
  307.  
  308. static L4()
  309. {register object *base=vs_base;
  310.     register object *sup=base+VM5; VC5
  311.     vs_reserve(VM5);
  312.     check_arg(2);
  313.     vs_top=sup;
  314.     {object V16=base[0]->c.c_cdr;
  315.     if(endp(V16))invalid_macro_call();
  316.     base[2]= (V16->c.c_car);
  317.     V16=V16->c.c_cdr;
  318.     if(endp(V16))invalid_macro_call();
  319.     base[3]= (V16->c.c_car);
  320.     V16=V16->c.c_cdr;
  321.     if(endp(V16)){
  322.     base[4]= Cnil;
  323.     } else {
  324.     base[4]= (V16->c.c_car);
  325.     V16=V16->c.c_cdr;}
  326.     if(!endp(V16))invalid_macro_call();}
  327.     if((base[4])==Cnil){
  328.     goto T132;}
  329.     V17= list(4,VV[32],base[2],base[3],Cnil);
  330.     base[5]= list(4,VV[30],VV[38],/* INLINE-ARGS */V17,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
  331.     vs_top=(vs_base=base+5)+1;
  332.     return;
  333. T132:;
  334.     base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Cnil),VV[39]);
  335.     vs_top=(vs_base=base+5)+1;
  336.     return;
  337. }
  338. /*    local entry for function INSPECT-INDENT    */
  339.  
  340. static object LI5()
  341.  
  342. {     VMB6 VMS6 VMV6
  343. TTL:;
  344.     vs_base=vs_top;
  345.     Lfresh_line();
  346.     vs_top=sup;
  347.     base[0]= Ct;
  348.     base[1]= VV[40];
  349.     if(!(number_compare(symbol_value(VV[41]),small_fixnum(8))<0)){
  350.     goto T140;}
  351.     V18= symbol_value(VV[41]);
  352.     goto T138;
  353. T140:;
  354.     V18= small_fixnum(8);
  355. T138:;
  356.     base[2]= number_times(small_fixnum(4),V18);
  357.     vs_top=(vs_base=base+0)+3;
  358.     Lformat();
  359.     vs_top=sup;
  360.     {object V19 = vs_base[0];
  361.     VMR6(V19)}
  362. }
  363. /*    local entry for function INSPECT-INDENT-1    */
  364.  
  365. static object LI6()
  366.  
  367. {     VMB7 VMS7 VMV7
  368. TTL:;
  369.     vs_base=vs_top;
  370.     Lfresh_line();
  371.     vs_top=sup;
  372.     base[0]= Ct;
  373.     base[1]= VV[42];
  374.     if(!(number_compare(symbol_value(VV[41]),small_fixnum(8))<0)){
  375.     goto T148;}
  376.     V20= symbol_value(VV[41]);
  377.     goto T146;
  378. T148:;
  379.     V20= small_fixnum(8);
  380. T146:;
  381.     V21= number_times(small_fixnum(4),V20);
  382.     base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));
  383.     vs_top=(vs_base=base+0)+3;
  384.     Lformat();
  385.     vs_top=sup;
  386.     {object V22 = vs_base[0];
  387.     VMR7(V22)}
  388. }
  389. /*    local entry for function INSPECT-SYMBOL    */
  390.  
  391. static object LI7(V24)
  392.  
  393. register object V24;
  394. {     VMB8 VMS8 VMV8
  395. TTL:;
  396.     {object V25;
  397.     base[0]= (V24);
  398.     vs_top=(vs_base=base+0)+1;
  399.     Lsymbol_package();
  400.     vs_top=sup;
  401.     V25= vs_base[0];
  402.     if(((V25))!=Cnil){
  403.     goto T154;}
  404.     base[0]= Ct;
  405.     base[1]= VV[43];
  406.     base[2]= (V24);
  407.     vs_top=(vs_base=base+0)+3;
  408.     Lformat();
  409.     vs_top=sup;
  410.     goto T150;
  411. T154:;
  412.     base[0]= VV[44];
  413.     vs_top=(vs_base=base+0)+1;
  414.     Lfind_package();
  415.     vs_top=sup;
  416.     V26= vs_base[0];
  417.     if(!(((V25))==(V26))){
  418.     goto T160;}
  419.     base[0]= Ct;
  420.     base[1]= VV[45];
  421.     base[2]= (V24);
  422.     vs_top=(vs_base=base+0)+3;
  423.     Lformat();
  424.     vs_top=sup;
  425.     goto T150;
  426. T160:;
  427.     base[0]= Ct;
  428.     base[1]= VV[46];
  429.     base[2]= (V24);
  430.     {object V27;
  431.     object V28;
  432.     base[4]= symbol_name((V24));
  433.     base[5]= (V25);
  434.     vs_top=(vs_base=base+4)+2;
  435.     Lfind_symbol();
  436.     if(vs_base>=vs_top){vs_top=sup;goto T174;}
  437.     V27= vs_base[0];
  438.     vs_base++;
  439.     if(vs_base>=vs_top){vs_top=sup;goto T175;}
  440.     V28= vs_base[0];
  441.     vs_top=sup;
  442.     goto T176;
  443. T174:;
  444.     V27= Cnil;
  445. T175:;
  446.     V28= Cnil;
  447. T176:;
  448.     base[3]= (((V28))==(VV[47])?Ct:Cnil);}
  449.     base[5]= (V25);
  450.     vs_top=(vs_base=base+5)+1;
  451.     Lpackage_name();
  452.     vs_top=sup;
  453.     base[4]= vs_base[0];
  454.     vs_top=(vs_base=base+0)+5;
  455.     Lformat();
  456.     vs_top=sup;}
  457. T150:;
  458.     base[0]= (V24);
  459.     vs_top=(vs_base=base+0)+1;
  460.     Lboundp();
  461.     vs_top=sup;
  462.     if((vs_base[0])==Cnil){
  463.     goto T179;}
  464.     if((symbol_value(VV[3]))==Cnil){
  465.     goto T184;}
  466.     {object V29;
  467.     object V30;
  468.     base[0]= VV[48];
  469.     base[2]= (V24);
  470.     vs_top=(vs_base=base+2)+1;
  471.     Lsymbol_value();
  472.     vs_top=sup;
  473.     base[1]= vs_base[0];
  474.     base[2]= Ct;
  475.     vs_top=(vs_base=base+0)+3;
  476.     (void) (*Lnk32)();
  477.     if(vs_base>=vs_top){vs_top=sup;goto T191;}
  478.     V29= vs_base[0];
  479.     vs_base++;
  480.     if(vs_base>=vs_top){vs_top=sup;goto T192;}
  481.     V30= vs_base[0];
  482.     vs_top=sup;
  483.     goto T193;
  484. T191:;
  485.     V29= Cnil;
  486. T192:;
  487.     V30= Cnil;
  488. T193:;
  489.     if(((V29))==Cnil){
  490.     goto T179;}
  491.     base[0]= (V24);
  492.     base[1]= (V30);
  493.     vs_top=(vs_base=base+0)+2;
  494.     Lset();
  495.     vs_top=sup;
  496.     goto T179;}
  497. T184:;
  498.     {object V31;
  499.     object V32;
  500.     base[0]= VV[49];
  501.     base[2]= (V24);
  502.     vs_top=(vs_base=base+2)+1;
  503.     Lsymbol_value();
  504.     vs_top=sup;
  505.     base[1]= vs_base[0];
  506.     base[2]= Cnil;
  507.     vs_top=(vs_base=base+0)+3;
  508.     (void) (*Lnk32)();
  509.     if(vs_base>=vs_top){vs_top=sup;goto T203;}
  510.     V31= vs_base[0];
  511.     vs_base++;
  512.     if(vs_base>=vs_top){vs_top=sup;goto T204;}
  513.     V32= vs_base[0];
  514.     vs_top=sup;
  515.     goto T205;
  516. T203:;
  517.     V31= Cnil;
  518. T204:;
  519.     V32= Cnil;
  520. T205:;
  521.     if(((V31))==Cnil){
  522.     goto T179;}
  523.     base[0]= (V24);
  524.     base[1]= (V32);
  525.     vs_top=(vs_base=base+0)+2;
  526.     Lset();
  527.     vs_top=sup;}
  528. T179:;
  529.     {register object V33;
  530.     base[0]= (V24);
  531.     vs_top=(vs_base=base+0)+1;
  532.     Lsymbol_plist();
  533.     vs_top=sup;
  534.     V33= vs_base[0];
  535. T214:;
  536.     if(!(endp((V33)))){
  537.     goto T215;}
  538.     goto T210;
  539. T215:;
  540.     if(!(type_of(car((V33)))==t_symbol)){
  541.     goto T220;}
  542.     base[0]= car((V33));
  543.     vs_top=(vs_base=base+0)+1;
  544.     Lsymbol_package();
  545.     vs_top=sup;
  546.     V34= vs_base[0];
  547.     base[0]= VV[50];
  548.     vs_top=(vs_base=base+0)+1;
  549.     Lfind_package();
  550.     vs_top=sup;
  551.     V35= vs_base[0];
  552.     if((V34)==(V35)){
  553.     goto T219;}
  554.     base[0]= car((V33));
  555.     vs_top=(vs_base=base+0)+1;
  556.     Lsymbol_package();
  557.     vs_top=sup;
  558.     V36= vs_base[0];
  559.     base[0]= VV[51];
  560.     vs_top=(vs_base=base+0)+1;
  561.     Lfind_package();
  562.     vs_top=sup;
  563.     V37= vs_base[0];
  564.     if((V36)==(V37)){
  565.     goto T219;}
  566. T220:;
  567.     if((symbol_value(VV[3]))==Cnil){
  568.     goto T235;}
  569.     {register object V38;
  570.     register object V39;
  571.     base[1]= Cnil;
  572.     base[2]= VV[52];
  573.     base[3]= car((V33));
  574.     vs_top=(vs_base=base+1)+3;
  575.     Lformat();
  576.     vs_top=sup;
  577.     base[0]= vs_base[0];
  578.     base[1]= cadr((V33));
  579.     base[2]= Ct;
  580.     vs_top=(vs_base=base+0)+3;
  581.     (void) (*Lnk32)();
  582.     if(vs_base>=vs_top){vs_top=sup;goto T244;}
  583.     V38= vs_base[0];
  584.     vs_base++;
  585.     if(vs_base>=vs_top){vs_top=sup;goto T245;}
  586.     V39= vs_base[0];
  587.     vs_top=sup;
  588.     goto T246;
  589. T244:;
  590.     V38= Cnil;
  591. T245:;
  592.     V39= Cnil;
  593. T246:;
  594.     if(((V38))==Cnil){
  595.     goto T219;}
  596.     (void)(sputprop((V24),car((V33)),(V39)));
  597.     goto T219;}
  598. T235:;
  599.     {register object V40;
  600.     register object V41;
  601.     base[1]= Cnil;
  602.     base[2]= VV[53];
  603.     base[3]= car((V33));
  604.     vs_top=(vs_base=base+1)+3;
  605.     Lformat();
  606.     vs_top=sup;
  607.     base[0]= vs_base[0];
  608.     base[1]= cadr((V33));
  609.     base[2]= Cnil;
  610.     vs_top=(vs_base=base+0)+3;
  611.     (void) (*Lnk32)();
  612.     if(vs_base>=vs_top){vs_top=sup;goto T256;}
  613.     V40= vs_base[0];
  614.     vs_base++;
  615.     if(vs_base>=vs_top){vs_top=sup;goto T257;}
  616.     V41= vs_base[0];
  617.     vs_top=sup;
  618.     goto T258;
  619. T256:;
  620.     V40= Cnil;
  621. T257:;
  622.     V41= Cnil;
  623. T258:;
  624.     if(((V40))==Cnil){
  625.     goto T219;}
  626.     (void)(sputprop((V24),car((V33)),(V41)));}
  627. T219:;
  628.     V33= cddr((V33));
  629.     goto T214;}
  630. T210:;
  631.     base[0]= (V24);
  632.     base[1]= Ct;
  633.     vs_top=(vs_base=base+0)+2;
  634.     (void) (*Lnk168)();
  635.     vs_top=sup;
  636.     if((vs_base[0])==Cnil){
  637.     goto T265;}
  638.     base[0]= Ct;
  639.     base[1]= VV[54];
  640.     vs_top=(vs_base=base+0)+2;
  641.     Lformat();
  642.     vs_top=sup;
  643.     {object V42 = vs_base[0];
  644.     VMR8(V42)}
  645. T265:;
  646.     {object V43 = Cnil;
  647.     VMR8(V43)}
  648. }
  649. /*    local entry for function INSPECT-PACKAGE    */
  650.  
  651. static object LI8(V45)
  652.  
  653. register object V45;
  654. {     VMB9 VMS9 VMV9
  655. TTL:;
  656.     base[0]= Ct;
  657.     base[1]= VV[55];
  658.     base[2]= (V45);
  659.     vs_top=(vs_base=base+0)+3;
  660.     Lformat();
  661.     vs_top=sup;
  662.     base[0]= (V45);
  663.     vs_top=(vs_base=base+0)+1;
  664.     Lpackage_nicknames();
  665.     vs_top=sup;
  666.     if((vs_base[0])==Cnil){
  667.     goto T275;}
  668.     base[0]= VV[56];
  669.     base[2]= (V45);
  670.     vs_top=(vs_base=base+2)+1;
  671.     Lpackage_nicknames();
  672.     vs_top=sup;
  673.     base[1]= vs_base[0];
  674.     base[2]= Cnil;
  675.     vs_top=(vs_base=base+0)+3;
  676.     (void) (*Lnk32)();
  677.     vs_top=sup;
  678.     if((vs_base[0])==Cnil){
  679.     goto T275;}
  680.     princ_str("Not updated.",Cnil);
  681.     princ_char(10,Cnil);
  682. T275:;
  683.     base[0]= (V45);
  684.     vs_top=(vs_base=base+0)+1;
  685.     Lpackage_use_list();
  686.     vs_top=sup;
  687.     if((vs_base[0])==Cnil){
  688.     goto T286;}
  689.     base[0]= VV[57];
  690.     base[2]= (V45);
  691.     vs_top=(vs_base=base+2)+1;
  692.     Lpackage_use_list();
  693.     vs_top=sup;
  694.     base[1]= vs_base[0];
  695.     base[2]= Cnil;
  696.     vs_top=(vs_base=base+0)+3;
  697.     (void) (*Lnk32)();
  698.     vs_top=sup;
  699.     if((vs_base[0])==Cnil){
  700.     goto T286;}
  701.     princ_str("Not updated.",Cnil);
  702.     princ_char(10,Cnil);
  703. T286:;
  704.     base[0]= (V45);
  705.     vs_top=(vs_base=base+0)+1;
  706.     Lpackage_used_by_list();
  707.     vs_top=sup;
  708.     if((vs_base[0])==Cnil){
  709.     goto T297;}
  710.     base[0]= VV[58];
  711.     base[2]= (V45);
  712.     vs_top=(vs_base=base+2)+1;
  713.     Lpackage_used_by_list();
  714.     vs_top=sup;
  715.     base[1]= vs_base[0];
  716.     base[2]= Cnil;
  717.     vs_top=(vs_base=base+0)+3;
  718.     (void) (*Lnk32)();
  719.     vs_top=sup;
  720.     if((vs_base[0])==Cnil){
  721.     goto T297;}
  722.     princ_str("Not updated.",Cnil);
  723.     princ_char(10,Cnil);
  724. T297:;
  725.     base[0]= (V45);
  726.     vs_top=(vs_base=base+0)+1;
  727.     (void) (*Lnk169)();
  728.     vs_top=sup;
  729.     if((vs_base[0])==Cnil){
  730.     goto T309;}
  731.     base[0]= VV[59];
  732.     base[2]= (V45);
  733.     vs_top=(vs_base=base+2)+1;
  734.     (void) (*Lnk169)();
  735.     vs_top=sup;
  736.     base[1]= vs_base[0];
  737.     base[2]= Cnil;
  738.     vs_top=(vs_base=base+0)+3;
  739.     (void) (*Lnk32)();
  740.     vs_top=sup;
  741.     if((vs_base[0])==Cnil){
  742.     goto T313;}
  743.     princ_str("Not updated.",Cnil);
  744.     {object V46 = terpri(Cnil);
  745.     VMR9(V46)}
  746. T313:;
  747.     {object V47 = Cnil;
  748.     VMR9(V47)}
  749. T309:;
  750.     {object V48 = Cnil;
  751.     VMR9(V48)}
  752. }
  753. /*    local entry for function INSPECT-CHARACTER    */
  754.  
  755. static object LI9(V50)
  756.  
  757. register object V50;
  758. {     VMB10 VMS10 VMV10
  759. TTL:;
  760.     base[0]= Ct;
  761.     base[2]= (V50);
  762.     vs_top=(vs_base=base+2)+1;
  763.     Lstandard_char_p();
  764.     vs_top=sup;
  765.     if((vs_base[0])==Cnil){
  766.     goto T324;}
  767.     base[1]= VV[60];
  768.     goto T322;
  769. T324:;
  770.     base[2]= (V50);
  771.     vs_top=(vs_base=base+2)+1;
  772.     Lstring_char_p();
  773.     vs_top=sup;
  774.     if((vs_base[0])==Cnil){
  775.     goto T328;}
  776.     base[1]= VV[61];
  777.     goto T322;
  778. T328:;
  779.     base[1]= VV[62];
  780. T322:;
  781.     base[2]= (V50);
  782.     vs_top=(vs_base=base+0)+3;
  783.     Lformat();
  784.     vs_top=sup;
  785.     base[0]= VV[63];
  786.     base[2]= (V50);
  787.     vs_top=(vs_base=base+2)+1;
  788.     Lchar_code();
  789.     vs_top=sup;
  790.     base[1]= vs_base[0];
  791.     base[2]= Cnil;
  792.     vs_top=(vs_base=base+0)+3;
  793.     (void) (*Lnk32)();
  794.     vs_top=sup;
  795.     if((vs_base[0])==Cnil){
  796.     goto T332;}
  797.     princ_str("Not updated.",Cnil);
  798.     princ_char(10,Cnil);
  799. T332:;
  800.     base[0]= VV[64];
  801.     base[2]= (V50);
  802.     vs_top=(vs_base=base+2)+1;
  803.     Lchar_bits();
  804.     vs_top=sup;
  805.     base[1]= vs_base[0];
  806.     base[2]= Cnil;
  807.     vs_top=(vs_base=base+0)+3;
  808.     (void) (*Lnk32)();
  809.     vs_top=sup;
  810.     if((vs_base[0])==Cnil){
  811.     goto T340;}
  812.     princ_str("Not updated.",Cnil);
  813.     princ_char(10,Cnil);
  814. T340:;
  815.     base[0]= VV[65];
  816.     base[2]= (V50);
  817.     vs_top=(vs_base=base+2)+1;
  818.     Lchar_font();
  819.     vs_top=sup;
  820.     base[1]= vs_base[0];
  821.     base[2]= Cnil;
  822.     vs_top=(vs_base=base+0)+3;
  823.     (void) (*Lnk32)();
  824.     vs_top=sup;
  825.     if((vs_base[0])==Cnil){
  826.     goto T349;}
  827.     princ_str("Not updated.",Cnil);
  828.     {object V51 = terpri(Cnil);
  829.     VMR10(V51)}
  830. T349:;
  831.     {object V52 = Cnil;
  832.     VMR10(V52)}
  833. }
  834. /*    local entry for function INSPECT-NUMBER    */
  835.  
  836. static object LI10(V54)
  837.  
  838. register object V54;
  839. {     VMB11 VMS11 VMV11
  840. TTL:;
  841.     base[0]= (V54);
  842.     vs_top=(vs_base=base+0)+1;
  843.     Ltype_of();
  844.     vs_top=sup;
  845.     V56= vs_base[0];
  846.     {object V55= V56;
  847.     if((V55!= VV[170]))goto T358;
  848.     base[0]= Ct;
  849.     base[1]= VV[66];
  850.     base[2]= (V54);
  851.     vs_top=(vs_base=base+0)+3;
  852.     Lformat();
  853.     vs_top=sup;
  854.     {object V57 = vs_base[0];
  855.     VMR11(V57)}
  856. T358:;
  857.     if((V55!= VV[171]))goto T362;
  858.     base[0]= Ct;
  859.     base[1]= VV[67];
  860.     base[2]= (V54);
  861.     vs_top=(vs_base=base+0)+3;
  862.     Lformat();
  863.     vs_top=sup;
  864.     {object V58 = vs_base[0];
  865.     VMR11(V58)}
  866. T362:;
  867.     if((V55!= VV[172]))goto T366;
  868.     base[0]= Ct;
  869.     base[1]= VV[68];
  870.     base[2]= (V54);
  871.     vs_top=(vs_base=base+0)+3;
  872.     Lformat();
  873.     vs_top=sup;
  874.     base[0]= VV[69];
  875.     base[2]= (V54);
  876.     vs_top=(vs_base=base+2)+1;
  877.     Lnumerator();
  878.     vs_top=sup;
  879.     base[1]= vs_base[0];
  880.     base[2]= Ct;
  881.     vs_top=(vs_base=base+0)+3;
  882.     (void) (*Lnk32)();
  883.     vs_top=sup;
  884.     if((vs_base[0])==Cnil){
  885.     goto T371;}
  886.     princ_str("Not updated.",Cnil);
  887.     princ_char(10,Cnil);
  888. T371:;
  889.     base[0]= VV[70];
  890.     base[2]= (V54);
  891.     vs_top=(vs_base=base+2)+1;
  892.     Ldenominator();
  893.     vs_top=sup;
  894.     base[1]= vs_base[0];
  895.     base[2]= Ct;
  896.     vs_top=(vs_base=base+0)+3;
  897.     (void) (*Lnk32)();
  898.     vs_top=sup;
  899.     if((vs_base[0])==Cnil){
  900.     goto T380;}
  901.     princ_str("Not updated.",Cnil);
  902.     {object V59 = terpri(Cnil);
  903.     VMR11(V59)}
  904. T380:;
  905.     {object V60 = Cnil;
  906.     VMR11(V60)}
  907. T366:;
  908.     if((V55!= VV[173]))goto T387;
  909.     base[0]= Ct;
  910.     base[1]= VV[71];
  911.     base[2]= (V54);
  912.     vs_top=(vs_base=base+0)+3;
  913.     Lformat();
  914.     vs_top=sup;
  915.     base[0]= VV[72];
  916.     base[2]= (V54);
  917.     vs_top=(vs_base=base+2)+1;
  918.     Lrealpart();
  919.     vs_top=sup;
  920.     base[1]= vs_base[0];
  921.     base[2]= Ct;
  922.     vs_top=(vs_base=base+0)+3;
  923.     (void) (*Lnk32)();
  924.     vs_top=sup;
  925.     if((vs_base[0])==Cnil){
  926.     goto T392;}
  927.     princ_str("Not updated.",Cnil);
  928.     princ_char(10,Cnil);
  929. T392:;
  930.     base[0]= VV[73];
  931.     base[2]= (V54);
  932.     vs_top=(vs_base=base+2)+1;
  933.     Limagpart();
  934.     vs_top=sup;
  935.     base[1]= vs_base[0];
  936.     base[2]= Ct;
  937.     vs_top=(vs_base=base+0)+3;
  938.     (void) (*Lnk32)();
  939.     vs_top=sup;
  940.     if((vs_base[0])==Cnil){
  941.     goto T401;}
  942.     princ_str("Not updated.",Cnil);
  943.     {object V61 = terpri(Cnil);
  944.     VMR11(V61)}
  945. T401:;
  946.     {object V62 = Cnil;
  947.     VMR11(V62)}
  948. T387:;
  949.     if((V55!= VV[174])
  950.     && (V55!= VV[175]))goto T408;
  951.     base[0]= Ct;
  952.     base[1]= VV[74];
  953.     base[2]= (V54);
  954.     vs_top=(vs_base=base+0)+3;
  955.     Lformat();
  956.     vs_top=sup;
  957.     {object V63;
  958.     object V64;
  959.     object V65;
  960.     base[0]= (V54);
  961.     vs_top=(vs_base=base+0)+1;
  962.     Linteger_decode_float();
  963.     if(vs_base>=vs_top){vs_top=sup;goto T415;}
  964.     V63= vs_base[0];
  965.     vs_base++;
  966.     if(vs_base>=vs_top){vs_top=sup;goto T416;}
  967.     V64= vs_base[0];
  968.     vs_base++;
  969.     if(vs_base>=vs_top){vs_top=sup;goto T417;}
  970.     V65= vs_base[0];
  971.     vs_top=sup;
  972.     goto T418;
  973. T415:;
  974.     V63= Cnil;
  975. T416:;
  976.     V64= Cnil;
  977. T417:;
  978.     V65= Cnil;
  979. T418:;
  980.     base[0]= VV[75];
  981.     base[1]= (V64);
  982.     base[2]= Cnil;
  983.     vs_top=(vs_base=base+0)+3;
  984.     (void) (*Lnk32)();
  985.     vs_top=sup;
  986.     if((vs_base[0])==Cnil){
  987.     goto T419;}
  988.     princ_str("Not updated.",Cnil);
  989.     princ_char(10,Cnil);
  990. T419:;
  991.     base[0]= VV[76];
  992.     base[1]= (V63);
  993.     base[2]= Cnil;
  994.     vs_top=(vs_base=base+0)+3;
  995.     (void) (*Lnk32)();
  996.     vs_top=sup;
  997.     if((vs_base[0])==Cnil){
  998.     goto T427;}
  999.     princ_str("Not updated.",Cnil);
  1000.     {object V66 = terpri(Cnil);
  1001.     VMR11(V66)}
  1002. T427:;
  1003.     {object V67 = Cnil;
  1004.     VMR11(V67)}}
  1005. T408:;
  1006.     if((V55!= VV[176])
  1007.     && (V55!= VV[177]))goto T433;
  1008.     base[0]= Ct;
  1009.     base[1]= VV[77];
  1010.     base[2]= (V54);
  1011.     vs_top=(vs_base=base+0)+3;
  1012.     Lformat();
  1013.     vs_top=sup;
  1014.     {object V68;
  1015.     object V69;
  1016.     object V70;
  1017.     base[0]= (V54);
  1018.     vs_top=(vs_base=base+0)+1;
  1019.     Linteger_decode_float();
  1020.     if(vs_base>=vs_top){vs_top=sup;goto T440;}
  1021.     V68= vs_base[0];
  1022.     vs_base++;
  1023.     if(vs_base>=vs_top){vs_top=sup;goto T441;}
  1024.     V69= vs_base[0];
  1025.     vs_base++;
  1026.     if(vs_base>=vs_top){vs_top=sup;goto T442;}
  1027.     V70= vs_base[0];
  1028.     vs_top=sup;
  1029.     goto T443;
  1030. T440:;
  1031.     V68= Cnil;
  1032. T441:;
  1033.     V69= Cnil;
  1034. T442:;
  1035.     V70= Cnil;
  1036. T443:;
  1037.     base[0]= VV[78];
  1038.     base[1]= (V69);
  1039.     base[2]= Cnil;
  1040.     vs_top=(vs_base=base+0)+3;
  1041.     (void) (*Lnk32)();
  1042.     vs_top=sup;
  1043.     if((vs_base[0])==Cnil){
  1044.     goto T444;}
  1045.     princ_str("Not updated.",Cnil);
  1046.     princ_char(10,Cnil);
  1047. T444:;
  1048.     base[0]= VV[79];
  1049.     base[1]= (V68);
  1050.     base[2]= Cnil;
  1051.     vs_top=(vs_base=base+0)+3;
  1052.     (void) (*Lnk32)();
  1053.     vs_top=sup;
  1054.     if((vs_base[0])==Cnil){
  1055.     goto T452;}
  1056.     princ_str("Not updated.",Cnil);
  1057.     {object V71 = terpri(Cnil);
  1058.     VMR11(V71)}
  1059. T452:;
  1060.     {object V72 = Cnil;
  1061.     VMR11(V72)}}
  1062. T433:;
  1063.     {object V73 = Cnil;
  1064.     VMR11(V73)}}
  1065. }
  1066. /*    local entry for function INSPECT-CONS    */
  1067.  
  1068. static object LI11(V75)
  1069.  
  1070. register object V75;
  1071. {     VMB12 VMS12 VMV12
  1072. TTL:;
  1073.     base[0]= Ct;
  1074.     {object V76= car((V75));
  1075.     if((V76!= VV[178])
  1076.     && (V76!= VV[179])
  1077.     && (V76!= VV[180])
  1078.     && (V76!= VV[181]))goto T461;
  1079.     base[1]= VV[80];
  1080.     goto T460;
  1081. T461:;
  1082.     if((V76!= VV[182]))goto T462;
  1083.     base[1]= VV[81];
  1084.     goto T460;
  1085. T462:;
  1086.     base[1]= VV[82];}
  1087. T460:;
  1088.     base[2]= (V75);
  1089.     vs_top=(vs_base=base+0)+3;
  1090.     Lformat();
  1091.     vs_top=sup;
  1092.     if((symbol_value(VV[3]))==Cnil){
  1093.     goto T465;}
  1094.     {register object V77;
  1095.     register object V78;
  1096.     V77= small_fixnum(0);
  1097.     V78= (V75);
  1098. T468:;
  1099.     if(!(type_of((V78))!=t_cons)){
  1100.     goto T469;}
  1101.     {register object V79;
  1102.     register object V80;
  1103.     base[1]= Cnil;
  1104.     base[2]= VV[83];
  1105.     base[3]= (V77);
  1106.     vs_top=(vs_base=base+1)+3;
  1107.     Lformat();
  1108.     vs_top=sup;
  1109.     base[0]= vs_base[0];
  1110.     base[1]= (V78);
  1111.     base[2]= Ct;
  1112.     vs_top=(vs_base=base+0)+3;
  1113.     (void) (*Lnk32)();
  1114.     if(vs_base>=vs_top){vs_top=sup;goto T479;}
  1115.     V79= vs_base[0];
  1116.     vs_base++;
  1117.     if(vs_base>=vs_top){vs_top=sup;goto T480;}
  1118.     V80= vs_base[0];
  1119.     vs_top=sup;
  1120.     goto T481;
  1121. T479:;
  1122.     V79= Cnil;
  1123. T480:;
  1124.     V80= Cnil;
  1125. T481:;
  1126.     if(((V79))==Cnil){
  1127.     goto T483;}
  1128.     {register object V81;
  1129.     register object V82;
  1130.     V83= one_minus((V77));
  1131.     V81= nthcdr(fixint(/* INLINE-ARGS */V83),(V75));
  1132.     V82= (V80);
  1133.     if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));
  1134.     ((V81))->c.c_cdr = (V82);
  1135.     {object V84 = (V82);
  1136.     VMR12(V84)}}
  1137. T483:;
  1138.     {object V85 = Cnil;
  1139.     VMR12(V85)}}
  1140. T469:;
  1141.     {register object V86;
  1142.     register object V87;
  1143.     base[1]= Cnil;
  1144.     base[2]= VV[84];
  1145.     base[3]= (V77);
  1146.     vs_top=(vs_base=base+1)+3;
  1147.     Lformat();
  1148.     vs_top=sup;
  1149.     base[0]= vs_base[0];
  1150.     base[1]= car((V78));
  1151.     base[2]= Ct;
  1152.     vs_top=(vs_base=base+0)+3;
  1153.     (void) (*Lnk32)();
  1154.     if(vs_base>=vs_top){vs_top=sup;goto T497;}
  1155.     V86= vs_base[0];
  1156.     vs_base++;
  1157.     if(vs_base>=vs_top){vs_top=sup;goto T498;}
  1158.     V87= vs_base[0];
  1159.     vs_top=sup;
  1160.     goto T499;
  1161. T497:;
  1162.     V86= Cnil;
  1163. T498:;
  1164.     V87= Cnil;
  1165. T499:;
  1166.     if(((V86))==Cnil){
  1167.     goto T489;}
  1168.     {register object V88;
  1169.     register object V89;
  1170.     register object V90;
  1171.     V88= (V77);
  1172.     V89= (V75);
  1173.     V90= (V87);
  1174.     if(type_of(nthcdr(fixint((V88)),(V89)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V88)),(V89)));
  1175.     (nthcdr(fixint((V88)),(V89)))->c.c_car = (V90);
  1176.     (void)(nthcdr(fixint((V88)),(V89)));}}
  1177. T489:;
  1178.     V77= one_plus((V77));
  1179.     V78= cdr((V78));
  1180.     goto T468;}
  1181. T465:;
  1182.     {object V91 = Cnil;
  1183.     VMR12(V91)}
  1184. }
  1185. /*    local entry for function INSPECT-STRING    */
  1186.  
  1187. static object LI12(V93)
  1188.  
  1189. register object V93;
  1190. {     VMB13 VMS13 VMV13
  1191. TTL:;
  1192.     base[0]= Ct;
  1193.     base[2]= (V93);
  1194.     vs_top=(vs_base=base+2)+1;
  1195.     Lsimple_string_p();
  1196.     vs_top=sup;
  1197.     if((vs_base[0])==Cnil){
  1198.     goto T514;}
  1199.     base[1]= VV[85];
  1200.     goto T512;
  1201. T514:;
  1202.     base[1]= VV[86];
  1203. T512:;
  1204.     base[2]= (V93);
  1205.     vs_top=(vs_base=base+0)+3;
  1206.     Lformat();
  1207.     vs_top=sup;
  1208.     base[0]= VV[87];
  1209.     base[2]= (V93);
  1210.     base[3]= small_fixnum(0);
  1211.     vs_top=(vs_base=base+2)+2;
  1212.     Larray_dimension();
  1213.     vs_top=sup;
  1214.     base[1]= vs_base[0];
  1215.     base[2]= Cnil;
  1216.     vs_top=(vs_base=base+0)+3;
  1217.     (void) (*Lnk32)();
  1218.     vs_top=sup;
  1219.     if((vs_base[0])==Cnil){
  1220.     goto T518;}
  1221.     princ_str("Not updated.",Cnil);
  1222.     princ_char(10,Cnil);
  1223. T518:;
  1224.     base[0]= (V93);
  1225.     vs_top=(vs_base=base+0)+1;
  1226.     (void) (*Lnk183)();
  1227.     vs_top=sup;
  1228.     if((vs_base[0])==Cnil){
  1229.     goto T527;}
  1230.     {object V94;
  1231.     object V95;
  1232.     base[0]= VV[88];
  1233.     base[2]= (V93);
  1234.     vs_top=(vs_base=base+2)+1;
  1235.     Lfill_pointer();
  1236.     vs_top=sup;
  1237.     base[1]= vs_base[0];
  1238.     base[2]= Cnil;
  1239.     vs_top=(vs_base=base+0)+3;
  1240.     (void) (*Lnk32)();
  1241.     if(vs_base>=vs_top){vs_top=sup;goto T536;}
  1242.     V94= vs_base[0];
  1243.     vs_base++;
  1244.     if(vs_base>=vs_top){vs_top=sup;goto T537;}
  1245.     V95= vs_base[0];
  1246.     vs_top=sup;
  1247.     goto T538;
  1248. T536:;
  1249.     V94= Cnil;
  1250. T537:;
  1251.     V95= Cnil;
  1252. T538:;
  1253.     if(((V94))==Cnil){
  1254.     goto T527;}
  1255.     base[0]= (V93);
  1256.     base[1]= (V95);
  1257.     vs_top=(vs_base=base+0)+2;
  1258.     siLfill_pointer_set();
  1259.     vs_top=sup;}
  1260. T527:;
  1261.     if((symbol_value(VV[3]))==Cnil){
  1262.     goto T544;}
  1263.     {register object V96;
  1264.     register object V97;
  1265.     base[1]= (V93);
  1266.     base[2]= small_fixnum(0);
  1267.     vs_top=(vs_base=base+1)+2;
  1268.     Larray_dimension();
  1269.     vs_top=sup;
  1270.     V96= vs_base[0];
  1271.     V97= small_fixnum(0);
  1272. T551:;
  1273.     if(!(number_compare((V97),(V96))>=0)){
  1274.     goto T552;}
  1275.     {object V98 = Cnil;
  1276.     VMR13(V98)}
  1277. T552:;
  1278.     {register object V99;
  1279.     register object V100;
  1280.     base[2]= Cnil;
  1281.     base[3]= VV[89];
  1282.     base[4]= (V97);
  1283.     vs_top=(vs_base=base+2)+3;
  1284.     Lformat();
  1285.     vs_top=sup;
  1286.     base[1]= vs_base[0];
  1287.     base[2]= elt((V93),fixint((V97)));
  1288.     base[3]= Ct;
  1289.     vs_top=(vs_base=base+1)+3;
  1290.     (void) (*Lnk32)();
  1291.     if(vs_base>=vs_top){vs_top=sup;goto T564;}
  1292.     V99= vs_base[0];
  1293.     vs_base++;
  1294.     if(vs_base>=vs_top){vs_top=sup;goto T565;}
  1295.     V100= vs_base[0];
  1296.     vs_top=sup;
  1297.     goto T566;
  1298. T564:;
  1299.     V99= Cnil;
  1300. T565:;
  1301.     V100= Cnil;
  1302. T566:;
  1303.     if(((V99))==Cnil){
  1304.     goto T556;}
  1305.     (void)(elt_set((V93),fixint((V97)),(V100)));}
  1306. T556:;
  1307.     V97= one_plus((V97));
  1308.     goto T551;}
  1309. T544:;
  1310.     {object V101 = Cnil;
  1311.     VMR13(V101)}
  1312. }
  1313. /*    local entry for function INSPECT-VECTOR    */
  1314.  
  1315. static object LI13(V103)
  1316.  
  1317. register object V103;
  1318. {     VMB14 VMS14 VMV14
  1319. TTL:;
  1320.     base[0]= Ct;
  1321.     base[2]= (V103);
  1322.     vs_top=(vs_base=base+2)+1;
  1323.     Lsimple_vector_p();
  1324.     vs_top=sup;
  1325.     if((vs_base[0])==Cnil){
  1326.     goto T576;}
  1327.     base[1]= VV[90];
  1328.     goto T574;
  1329. T576:;
  1330.     base[1]= VV[91];
  1331. T574:;
  1332.     base[2]= (V103);
  1333.     vs_top=(vs_base=base+0)+3;
  1334.     Lformat();
  1335.     vs_top=sup;
  1336.     base[0]= VV[92];
  1337.     base[2]= (V103);
  1338.     base[3]= small_fixnum(0);
  1339.     vs_top=(vs_base=base+2)+2;
  1340.     Larray_dimension();
  1341.     vs_top=sup;
  1342.     base[1]= vs_base[0];
  1343.     base[2]= Cnil;
  1344.     vs_top=(vs_base=base+0)+3;
  1345.     (void) (*Lnk32)();
  1346.     vs_top=sup;
  1347.     if((vs_base[0])==Cnil){
  1348.     goto T580;}
  1349.     princ_str("Not updated.",Cnil);
  1350.     princ_char(10,Cnil);
  1351. T580:;
  1352.     base[0]= (V103);
  1353.     vs_top=(vs_base=base+0)+1;
  1354.     (void) (*Lnk183)();
  1355.     vs_top=sup;
  1356.     if((vs_base[0])==Cnil){
  1357.     goto T589;}
  1358.     {object V104;
  1359.     object V105;
  1360.     base[0]= VV[93];
  1361.     base[2]= (V103);
  1362.     vs_top=(vs_base=base+2)+1;
  1363.     Lfill_pointer();
  1364.     vs_top=sup;
  1365.     base[1]= vs_base[0];
  1366.     base[2]= Cnil;
  1367.     vs_top=(vs_base=base+0)+3;
  1368.     (void) (*Lnk32)();
  1369.     if(vs_base>=vs_top){vs_top=sup;goto T598;}
  1370.     V104= vs_base[0];
  1371.     vs_base++;
  1372.     if(vs_base>=vs_top){vs_top=sup;goto T599;}
  1373.     V105= vs_base[0];
  1374.     vs_top=sup;
  1375.     goto T600;
  1376. T598:;
  1377.     V104= Cnil;
  1378. T599:;
  1379.     V105= Cnil;
  1380. T600:;
  1381.     if(((V104))==Cnil){
  1382.     goto T589;}
  1383.     base[0]= (V103);
  1384.     base[1]= (V105);
  1385.     vs_top=(vs_base=base+0)+2;
  1386.     siLfill_pointer_set();
  1387.     vs_top=sup;}
  1388. T589:;
  1389.     if((symbol_value(VV[3]))==Cnil){
  1390.     goto T606;}
  1391.     {register object V106;
  1392.     register object V107;
  1393.     base[1]= (V103);
  1394.     base[2]= small_fixnum(0);
  1395.     vs_top=(vs_base=base+1)+2;
  1396.     Larray_dimension();
  1397.     vs_top=sup;
  1398.     V106= vs_base[0];
  1399.     V107= small_fixnum(0);
  1400. T613:;
  1401.     if(!(number_compare((V107),(V106))>=0)){
  1402.     goto T614;}
  1403.     {object V108 = Cnil;
  1404.     VMR14(V108)}
  1405. T614:;
  1406.     {register object V109;
  1407.     register object V110;
  1408.     base[2]= Cnil;
  1409.     base[3]= VV[94];
  1410.     base[4]= (V107);
  1411.     vs_top=(vs_base=base+2)+3;
  1412.     Lformat();
  1413.     vs_top=sup;
  1414.     base[1]= vs_base[0];
  1415.     base[2]= aref1((V103),fixint((V107)));
  1416.     base[3]= Ct;
  1417.     vs_top=(vs_base=base+1)+3;
  1418.     (void) (*Lnk32)();
  1419.     if(vs_base>=vs_top){vs_top=sup;goto T626;}
  1420.     V109= vs_base[0];
  1421.     vs_base++;
  1422.     if(vs_base>=vs_top){vs_top=sup;goto T627;}
  1423.     V110= vs_base[0];
  1424.     vs_top=sup;
  1425.     goto T628;
  1426. T626:;
  1427.     V109= Cnil;
  1428. T627:;
  1429.     V110= Cnil;
  1430. T628:;
  1431.     if(((V109))==Cnil){
  1432.     goto T618;}
  1433.     (void)(aset1((V103),fixint((V107)),(V110)));}
  1434. T618:;
  1435.     V107= one_plus((V107));
  1436.     goto T613;}
  1437. T606:;
  1438.     {object V111 = Cnil;
  1439.     VMR14(V111)}
  1440. }
  1441. /*    local entry for function INSPECT-ARRAY    */
  1442.  
  1443. static object LI14(V113)
  1444.  
  1445. register object V113;
  1446. {     VMB15 VMS15 VMV15
  1447. TTL:;
  1448.     base[0]= Ct;
  1449.     base[2]= (V113);
  1450.     vs_top=(vs_base=base+2)+1;
  1451.     Ladjustable_array_p();
  1452.     vs_top=sup;
  1453.     if((vs_base[0])==Cnil){
  1454.     goto T638;}
  1455.     base[1]= VV[95];
  1456.     goto T636;
  1457. T638:;
  1458.     base[1]= VV[96];
  1459. T636:;
  1460.     base[2]= (V113);
  1461.     vs_top=(vs_base=base+0)+3;
  1462.     Lformat();
  1463.     vs_top=sup;
  1464.     base[0]= VV[97];
  1465.     base[2]= (V113);
  1466.     vs_top=(vs_base=base+2)+1;
  1467.     Larray_rank();
  1468.     vs_top=sup;
  1469.     base[1]= vs_base[0];
  1470.     base[2]= Cnil;
  1471.     vs_top=(vs_base=base+0)+3;
  1472.     (void) (*Lnk32)();
  1473.     vs_top=sup;
  1474.     if((vs_base[0])==Cnil){
  1475.     goto T642;}
  1476.     princ_str("Not updated.",Cnil);
  1477.     princ_char(10,Cnil);
  1478. T642:;
  1479.     base[0]= VV[98];
  1480.     base[1]= (*(LnkLI184))((V113));
  1481.     base[2]= Cnil;
  1482.     vs_top=(vs_base=base+0)+3;
  1483.     (void) (*Lnk32)();
  1484.     vs_top=sup;
  1485.     if((vs_base[0])==Cnil){
  1486.     goto T650;}
  1487.     princ_str("Not updated.",Cnil);
  1488.     princ_char(10,Cnil);
  1489. T650:;
  1490.     base[0]= VV[99];
  1491.     base[2]= (V113);
  1492.     vs_top=(vs_base=base+2)+1;
  1493.     (void) (*Lnk185)();
  1494.     vs_top=sup;
  1495.     base[1]= vs_base[0];
  1496.     base[2]= Cnil;
  1497.     vs_top=(vs_base=base+0)+3;
  1498.     (void) (*Lnk32)();
  1499.     vs_top=sup;
  1500.     if((vs_base[0])==Cnil){
  1501.     goto T658;}
  1502.     princ_str("Not updated.",Cnil);
  1503.     {object V114 = terpri(Cnil);
  1504.     VMR15(V114)}
  1505. T658:;
  1506.     {object V115 = Cnil;
  1507.     VMR15(V115)}
  1508. }
  1509. /*    local entry for function INSPECT-STRUCTURE    */
  1510.  
  1511. static object LI15(V117)
  1512.  
  1513. register object V117;
  1514. {     VMB16 VMS16 VMV16
  1515. TTL:;
  1516.     {object V118;
  1517.     V118= Cnil;
  1518.     base[0]= Ct;
  1519.     base[1]= VV[100];
  1520.     base[3]= (V117);
  1521.     vs_top=(vs_base=base+3)+1;
  1522.     Ltype_of();
  1523.     vs_top=sup;
  1524.     V118= vs_base[0];
  1525.     base[2]= (V118);
  1526.     vs_top=(vs_base=base+0)+3;
  1527.     Lformat();
  1528.     vs_top=sup;
  1529.     {object V119;
  1530.     register object V120;
  1531.     V119= get((V118),VV[101],Cnil);
  1532.     V120= structure_ref((V119),VV[101],8);
  1533.     {register object V121;
  1534.     register object V122;
  1535.     V121= structure_ref((V119),VV[101],7);
  1536.     V122= car((V121));
  1537. T677:;
  1538.     if(!(endp((V121)))){
  1539.     goto T678;}
  1540.     {object V123 = Cnil;
  1541.     VMR16(V123)}
  1542. T678:;
  1543.     base[4]= Ct;
  1544.     base[5]= VV[102];
  1545.     base[6]= aref1((V120),fixint(car(cddddr((V122)))));
  1546.     {register object V124;
  1547.     V124= caddr((V122));
  1548.     if(!((Ct)==((V124)))){
  1549.     goto T689;}
  1550.     base[7]= Cnil;
  1551.     goto T686;
  1552. T689:;
  1553.     base[7]= (V124);}
  1554. T686:;
  1555.     base[8]= car((V122));
  1556.     base[10]= (V117);
  1557.     base[11]= car(cddddr((V122)));
  1558.     vs_top=(vs_base=base+10)+2;
  1559.     (void) (*Lnk186)();
  1560.     vs_top=sup;
  1561.     base[9]= vs_base[0];
  1562.     vs_top=(vs_base=base+4)+6;
  1563.     Lformat();
  1564.     vs_top=sup;
  1565.     V121= cdr((V121));
  1566.     V122= car((V121));
  1567.     goto T677;}}}
  1568. }
  1569. /*    function definition for INSPECT-OBJECT    */
  1570.  
  1571. static L16()
  1572. {register object *VOL base=vs_base;
  1573.     register object *VOL sup=base+VM17; VC17
  1574.     vs_reserve(VM17);
  1575.     bds_check;
  1576.     {VOL object V125;
  1577.     check_arg(1);
  1578.     V125=(base[0]);
  1579.     vs_top=sup;
  1580. TTL:;
  1581.     bds_bind(VV[41],symbol_value(VV[41]));
  1582.     (void)((*(LnkLI165))());
  1583.     if((symbol_value(VV[3]))!=Cnil){
  1584.     goto T701;}
  1585.     if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){
  1586.     goto T702;}
  1587.     {register object x= (V125),V126= symbol_value(VV[103]);
  1588.     while(!endp(V126))
  1589.     if(eql(x,V126->c.c_car)){
  1590.     goto T707;
  1591.     }else V126=V126->c.c_cdr;
  1592.     goto T701;}
  1593. T707:;
  1594. T702:;
  1595.     (void)(prin1((V125),Cnil));
  1596.     base[2]= Cnil;
  1597.     vs_top=(vs_base=base+2)+1;
  1598.     bds_unwind1;
  1599.     return;
  1600. T701:;
  1601.     (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));
  1602.     setq(VV[103],make_cons((V125),symbol_value(VV[103])));
  1603.     frs_push(FRS_CATCH,VV[17]);
  1604.     if(nlj_active)
  1605.     {nlj_active=FALSE;frs_pop();
  1606.     bds_unwind1;
  1607.     return;}
  1608.     else{
  1609.     if(!(type_of((V125))==t_symbol)){
  1610.     goto T715;}
  1611.     V127= (*(LnkLI187))((V125));
  1612.     frs_pop();
  1613.     base[2]= V127;
  1614.     vs_top=(vs_base=base+2)+1;
  1615.     bds_unwind1;
  1616.     return;
  1617. T715:;
  1618.     base[2]= (V125);
  1619.     vs_top=(vs_base=base+2)+1;
  1620.     Lpackagep();
  1621.     vs_top=sup;
  1622.     if((vs_base[0])==Cnil){
  1623.     goto T718;}
  1624.     V128= (*(LnkLI188))((V125));
  1625.     frs_pop();
  1626.     base[2]= V128;
  1627.     vs_top=(vs_base=base+2)+1;
  1628.     bds_unwind1;
  1629.     return;
  1630. T718:;
  1631.     if(!(type_of((V125))==t_character)){
  1632.     goto T722;}
  1633.     V129= (*(LnkLI189))((V125));
  1634.     frs_pop();
  1635.     base[2]= V129;
  1636.     vs_top=(vs_base=base+2)+1;
  1637.     bds_unwind1;
  1638.     return;
  1639. T722:;
  1640.     if(!(type_of((V125))==t_fixnum||
  1641. type_of((V125))==t_bignum||
  1642. type_of((V125))==t_ratio||
  1643. type_of((V125))==t_shortfloat||
  1644. type_of((V125))==t_longfloat||
  1645. type_of((V125))==t_complex)){
  1646.     goto T725;}
  1647.     V130= (*(LnkLI190))((V125));
  1648.     frs_pop();
  1649.     base[2]= V130;
  1650.     vs_top=(vs_base=base+2)+1;
  1651.     bds_unwind1;
  1652.     return;
  1653. T725:;
  1654.     if(!(type_of((V125))==t_cons)){
  1655.     goto T728;}
  1656.     V131= (*(LnkLI191))((V125));
  1657.     frs_pop();
  1658.     base[2]= V131;
  1659.     vs_top=(vs_base=base+2)+1;
  1660.     bds_unwind1;
  1661.     return;
  1662. T728:;
  1663.     if(!(type_of((V125))==t_string)){
  1664.     goto T731;}
  1665.     V132= (*(LnkLI192))((V125));
  1666.     frs_pop();
  1667.     base[2]= V132;
  1668.     vs_top=(vs_base=base+2)+1;
  1669.     bds_unwind1;
  1670.     return;
  1671. T731:;
  1672.     if(!(type_of((V125))==t_vector||
  1673. type_of((V125))==t_string||
  1674. type_of((V125))==t_bitvector)){
  1675.     goto T734;}
  1676.     V133= (*(LnkLI193))((V125));
  1677.     frs_pop();
  1678.     base[2]= V133;
  1679.     vs_top=(vs_base=base+2)+1;
  1680.     bds_unwind1;
  1681.     return;
  1682. T734:;
  1683.     if(!(type_of((V125))==t_array||
  1684. type_of((V125))==t_vector||
  1685. type_of((V125))==t_string||
  1686. type_of((V125))==t_bitvector)){
  1687.     goto T737;}
  1688.     V134= (*(LnkLI194))((V125));
  1689.     frs_pop();
  1690.     base[2]= V134;
  1691.     vs_top=(vs_base=base+2)+1;
  1692.     bds_unwind1;
  1693.     return;
  1694. T737:;
  1695.     if(!(type_of((V125))==t_structure)){
  1696.     goto T740;}
  1697.     V135= (*(LnkLI195))((V125));
  1698.     frs_pop();
  1699.     base[2]= V135;
  1700.     vs_top=(vs_base=base+2)+1;
  1701.     bds_unwind1;
  1702.     return;
  1703. T740:;
  1704.     base[2]= Ct;
  1705.     base[3]= VV[104];
  1706.     base[4]= (V125);
  1707.     base[6]= (V125);
  1708.     vs_top=(vs_base=base+6)+1;
  1709.     Ltype_of();
  1710.     vs_top=sup;
  1711.     base[5]= vs_base[0];
  1712.     vs_top=(vs_base=base+2)+4;
  1713.     Lformat();
  1714.     frs_pop();
  1715.     bds_unwind1;
  1716.     return;}
  1717.     }
  1718. }
  1719. /*    function definition for DESCRIBE    */
  1720.  
  1721. static L17()
  1722. {register object *VOL base=vs_base;
  1723.     register object *VOL sup=base+VM18; VC18
  1724.     vs_reserve(VM18);
  1725.     bds_check;
  1726.     {VOL object V136;
  1727.     check_arg(1);
  1728.     V136=(base[0]);
  1729.     vs_top=sup;
  1730. TTL:;
  1731.     bds_bind(VV[3],Cnil);
  1732.     bds_bind(VV[41],small_fixnum(0));
  1733.     bds_bind(VV[103],Cnil);
  1734.     bds_bind(VV[13],Cnil);
  1735.     bds_bind(VV[14],Cnil);
  1736.     princ_char(10,Cnil);
  1737.     frs_push(FRS_CATCH,VV[28]);
  1738.     if(nlj_active)
  1739.     {nlj_active=FALSE;frs_pop();
  1740.     vs_top=sup;
  1741.     goto T748;}
  1742.     else{
  1743.     base[6]= (V136);
  1744.     vs_top=(vs_base=base+6)+1;
  1745.     (void) (*Lnk164)();
  1746.     vs_top=sup;
  1747.     frs_pop();}
  1748. T748:;
  1749.     princ_char(10,Cnil);
  1750.     vs_base=vs_top=base+6;
  1751.     vs_base[0]=Cnil;
  1752.     bds_unwind1;
  1753.     bds_unwind1;
  1754.     bds_unwind1;
  1755.     bds_unwind1;
  1756.     bds_unwind1;
  1757.     return;
  1758.     }
  1759. }
  1760. /*    function definition for INSPECT    */
  1761.  
  1762. static L18()
  1763. {register object *VOL base=vs_base;
  1764.     register object *VOL sup=base+VM19; VC19
  1765.     vs_reserve(VM19);
  1766.     bds_check;
  1767.     {VOL object V137;
  1768.     check_arg(1);
  1769.     V137=(base[0]);
  1770.     vs_top=sup;
  1771. TTL:;
  1772.     bds_bind(VV[3],Ct);
  1773.     bds_bind(VV[41],small_fixnum(0));
  1774.     bds_bind(VV[103],Cnil);
  1775.     bds_bind(VV[23],symbol_value(VV[13]));
  1776.     bds_bind(VV[25],symbol_value(VV[14]));
  1777.     bds_bind(VV[13],small_fixnum(3));
  1778.     bds_bind(VV[14],small_fixnum(3));
  1779.     vs_base=vs_top;
  1780.     Lread_line();
  1781.     vs_top=sup;
  1782.     princ_str("Type ? and a newline for help.",Cnil);
  1783.     princ_char(10,Cnil);
  1784.     frs_push(FRS_CATCH,VV[28]);
  1785.     if(nlj_active)
  1786.     {nlj_active=FALSE;frs_pop();
  1787.     vs_top=sup;
  1788.     goto T755;}
  1789.     else{
  1790.     base[8]= (V137);
  1791.     vs_top=(vs_base=base+8)+1;
  1792.     (void) (*Lnk164)();
  1793.     vs_top=sup;
  1794.     frs_pop();}
  1795. T755:;
  1796.     princ_char(10,Cnil);
  1797.     vs_base=vs_top=base+8;
  1798.     vs_base[0]=Cnil;
  1799.     bds_unwind1;
  1800.     bds_unwind1;
  1801.     bds_unwind1;
  1802.     bds_unwind1;
  1803.     bds_unwind1;
  1804.     bds_unwind1;
  1805.     bds_unwind1;
  1806.     return;
  1807.     }
  1808. }
  1809. /*    function definition for PRINT-DOC    */
  1810.  
  1811. static L19()
  1812. {register object *VOL base=vs_base;
  1813.     register object *VOL sup=base+VM20; VC20
  1814.     vs_reserve(VM20);
  1815.     bds_check;
  1816.     {VOL object V138;
  1817.     if(vs_top-vs_base<1) too_few_arguments();
  1818.     if(vs_top-vs_base>2) too_many_arguments();
  1819.     vs_base=vs_base+1;
  1820.     if(vs_base>=vs_top){vs_top=sup;goto T759;}
  1821.     V138=(base[1]);
  1822.     vs_top=sup;
  1823.     goto T760;
  1824. T759:;
  1825.     V138= Cnil;
  1826. T760:;
  1827.     {VOL object V139;
  1828.     base[2]= Cnil;
  1829.     V139= Cnil;
  1830.     base[3]= base[0];
  1831.     vs_top=(vs_base=base+3)+1;
  1832.     Lspecial_form_p();
  1833.     vs_top=sup;
  1834.     if((vs_base[0])==Cnil){
  1835.     goto T766;}{VOL object V140;
  1836.     V140= (*(LnkLI196))(base[0],VV[105]);
  1837.     if(V140==Cnil)goto T770;
  1838.     base[3]= V140;
  1839.     goto T769;
  1840. T770:;}
  1841.     base[3]= VV[106];
  1842. T769:;
  1843.     base[5]= base[0];
  1844.     vs_top=(vs_base=base+5)+1;
  1845.     Lmacro_function();
  1846.     vs_top=sup;
  1847.     if((vs_base[0])==Cnil){
  1848.     goto T774;}
  1849.     base[4]= VV[107];
  1850.     goto T772;
  1851. T774:;
  1852.     base[4]= VV[108];
  1853. T772:;
  1854.     vs_top=(vs_base=base+3)+2;
  1855.     L20(base);
  1856.     vs_top=sup;
  1857.     goto T764;
  1858. T766:;
  1859.     base[3]= base[0];
  1860.     vs_top=(vs_base=base+3)+1;
  1861.     Lmacro_function();
  1862.     vs_top=sup;
  1863.     if((vs_base[0])==Cnil){
  1864.     goto T778;}{VOL object V141;
  1865.     V141= (*(LnkLI196))(base[0],VV[105]);
  1866.     if(V141==Cnil)goto T782;
  1867.     base[3]= V141;
  1868.     goto T781;
  1869. T782:;}
  1870.     base[3]= VV[109];
  1871. T781:;
  1872.     base[4]= VV[110];
  1873.     vs_top=(vs_base=base+3)+2;
  1874.     L20(base);
  1875.     vs_top=sup;
  1876.     goto T764;
  1877. T778:;
  1878.     base[3]= base[0];
  1879.     vs_top=(vs_base=base+3)+1;
  1880.     Lfboundp();
  1881.     vs_top=sup;
  1882.     if((vs_base[0])==Cnil){
  1883.     goto T786;}{VOL object V142;
  1884.     V142= (*(LnkLI196))(base[0],VV[105]);
  1885.     if(V142==Cnil)goto T790;
  1886.     base[3]= V142;
  1887.     goto T789;
  1888. T790:;}
  1889.     base[4]= base[0];
  1890.     vs_top=(vs_base=base+4)+1;
  1891.     Lsymbol_function();
  1892.     vs_top=sup;
  1893.     V139= vs_base[0];
  1894.     if(!(type_of((V139))==t_cons)){
  1895.     goto T793;}
  1896.     {object V143= car((V139));
  1897.     if((V143!= VV[178]))goto T797;
  1898.     base[4]= Cnil;
  1899.     base[5]= VV[111];
  1900.     base[6]= cadr((V139));
  1901.     vs_top=(vs_base=base+4)+3;
  1902.     Lformat();
  1903.     vs_top=sup;
  1904.     base[3]= vs_base[0];
  1905.     goto T789;
  1906. T797:;
  1907.     if((V143!= VV[179]))goto T801;
  1908.     base[4]= Cnil;
  1909.     base[5]= VV[112];
  1910.     base[6]= caddr((V139));
  1911.     vs_top=(vs_base=base+4)+3;
  1912.     Lformat();
  1913.     vs_top=sup;
  1914.     base[3]= vs_base[0];
  1915.     goto T789;
  1916. T801:;
  1917.     if((V143!= VV[180]))goto T805;
  1918.     base[4]= Cnil;
  1919.     base[5]= VV[113];
  1920.     base[6]= car(cddddr((V139)));
  1921.     vs_top=(vs_base=base+4)+3;
  1922.     Lformat();
  1923.     vs_top=sup;
  1924.     base[3]= vs_base[0];
  1925.     goto T789;
  1926. T805:;
  1927.     if((V143!= VV[181]))goto T809;
  1928.     base[4]= Cnil;
  1929.     base[5]= VV[114];
  1930.     base[6]= cadr(cddddr((V139)));
  1931.     vs_top=(vs_base=base+4)+3;
  1932.     Lformat();
  1933.     vs_top=sup;
  1934.     base[3]= vs_base[0];
  1935.     goto T789;
  1936. T809:;
  1937.     base[3]= VV[115];
  1938.     goto T789;}
  1939. T793:;
  1940.     base[3]= VV[116];
  1941. T789:;
  1942.     base[4]= VV[117];
  1943.     vs_top=(vs_base=base+3)+2;
  1944.     L20(base);
  1945.     vs_top=sup;
  1946.     goto T764;
  1947. T786:;
  1948.     V139= (*(LnkLI196))(base[0],VV[105]);
  1949.     if(((V139))==Cnil){
  1950.     goto T764;}
  1951.     base[3]= (V139);
  1952.     base[4]= VV[118];
  1953.     vs_top=(vs_base=base+3)+2;
  1954.     L20(base);
  1955.     vs_top=sup;
  1956. T764:;
  1957.     base[3]= base[0];
  1958.     vs_top=(vs_base=base+3)+1;
  1959.     Lconstantp();
  1960.     vs_top=sup;
  1961.     if((vs_base[0])==Cnil){
  1962.     goto T821;}
  1963.     base[3]= base[0];
  1964.     vs_top=(vs_base=base+3)+1;
  1965.     Lsymbol_package();
  1966.     vs_top=sup;
  1967.     V144= vs_base[0];
  1968.     base[3]= VV[119];
  1969.     vs_top=(vs_base=base+3)+1;
  1970.     Lfind_package();
  1971.     vs_top=sup;
  1972.     V145= vs_base[0];
  1973.     if(!((V144)==(V145))){
  1974.     goto T824;}
  1975.     if(((*(LnkLI196))(base[0],VV[120]))==Cnil){
  1976.     goto T819;}
  1977. T824:;{VOL object V146;
  1978.     V146= (*(LnkLI196))(base[0],VV[120]);
  1979.     if(V146==Cnil)goto T833;
  1980.     base[3]= V146;
  1981.     goto T832;
  1982. T833:;}
  1983.     base[3]= VV[121];
  1984. T832:;
  1985.     base[4]= VV[122];
  1986.     vs_top=(vs_base=base+3)+2;
  1987.     L20(base);
  1988.     vs_top=sup;
  1989.     goto T819;
  1990. T821:;
  1991.     base[3]= base[0];
  1992.     vs_top=(vs_base=base+3)+1;
  1993.     siLspecialp();
  1994.     vs_top=sup;
  1995.     if((vs_base[0])==Cnil){
  1996.     goto T837;}{VOL object V147;
  1997.     V147= (*(LnkLI196))(base[0],VV[120]);
  1998.     if(V147==Cnil)goto T841;
  1999.     base[3]= V147;
  2000.     goto T840;
  2001. T841:;}
  2002.     base[3]= VV[123];
  2003. T840:;
  2004.     base[4]= VV[124];
  2005.     vs_top=(vs_base=base+3)+2;
  2006.     L20(base);
  2007.     vs_top=sup;
  2008.     goto T819;
  2009. T837:;
  2010.     V139= (*(LnkLI196))(base[0],VV[120]);
  2011.     if(((V139))!=Cnil){
  2012.     goto T844;}
  2013.     base[3]= base[0];
  2014.     vs_top=(vs_base=base+3)+1;
  2015.     Lboundp();
  2016.     vs_top=sup;
  2017.     if((vs_base[0])==Cnil){
  2018.     goto T819;}
  2019. T844:;
  2020.     if((V139)!=Cnil){
  2021.     base[3]= (V139);
  2022.     goto T850;}
  2023.     base[3]= VV[125];
  2024. T850:;
  2025.     base[4]= VV[126];
  2026.     vs_top=(vs_base=base+3)+2;
  2027.     L20(base);
  2028.     vs_top=sup;
  2029. T819:;
  2030.     V139= (*(LnkLI196))(base[0],VV[127]);
  2031.     if(((V139))==Cnil){
  2032.     goto T854;}
  2033.     base[3]= (V139);
  2034.     base[4]= VV[128];
  2035.     vs_top=(vs_base=base+3)+2;
  2036.     L20(base);
  2037.     vs_top=sup;
  2038.     goto T852;
  2039. T854:;
  2040.     V139= get(base[0],VV[129],Cnil);
  2041.     if(((V139))==Cnil){
  2042.     goto T852;}
  2043.     vs_base=vs_top;
  2044.     L21(base);
  2045.     vs_top=sup;
  2046.     base[3]= vs_base[0];
  2047.     bds_bind(VV[130],base[3]);
  2048.     base[5]= Cnil;
  2049.     base[6]= VV[131];
  2050.     base[7]= (V139);
  2051.     vs_top=(vs_base=base+5)+3;
  2052.     Lformat();
  2053.     vs_top=sup;
  2054.     base[4]= vs_base[0];
  2055.     base[5]= VV[132];
  2056.     vs_top=(vs_base=base+4)+2;
  2057.     L20(base);
  2058.     vs_top=sup;
  2059.     bds_unwind1;
  2060. T852:;
  2061.     V139= (*(LnkLI196))(base[0],VV[133]);
  2062.     if(((V139))==Cnil){
  2063.     goto T870;}
  2064.     base[3]= (V139);
  2065.     base[4]= VV[134];
  2066.     vs_top=(vs_base=base+3)+2;
  2067.     L20(base);
  2068.     vs_top=sup;
  2069.     goto T868;
  2070. T870:;
  2071.     V139= get(base[0],VV[135],Cnil);
  2072.     if(((V139))==Cnil){
  2073.     goto T868;}
  2074.     base[4]= Cnil;
  2075.     base[5]= VV[136];
  2076.     base[6]= (V139);
  2077.     vs_top=(vs_base=base+4)+3;
  2078.     Lformat();
  2079.     vs_top=sup;
  2080.     base[3]= vs_base[0];
  2081.     base[4]= VV[137];
  2082.     vs_top=(vs_base=base+3)+2;
  2083.     L20(base);
  2084.     vs_top=sup;
  2085. T868:;
  2086.     V139= (*(LnkLI196))(base[0],VV[35]);
  2087.     if(((V139))==Cnil){
  2088.     goto T884;}
  2089.     base[3]= (V139);
  2090.     base[4]= VV[138];
  2091.     vs_top=(vs_base=base+3)+2;
  2092.     L20(base);
  2093.     vs_top=sup;
  2094.     goto T763;
  2095. T884:;
  2096.     V139= get(base[0],VV[139],Cnil);
  2097.     if(((V139))==Cnil){
  2098.     goto T890;}
  2099.     vs_base=vs_top;
  2100.     L21(base);
  2101.     vs_top=sup;
  2102.     base[3]= vs_base[0];
  2103.     bds_bind(VV[130],base[3]);
  2104.     base[5]= Cnil;
  2105.     base[6]= VV[140];
  2106.     V148= get(base[0],VV[139],Cnil);
  2107.     base[7]= list(3,VV[141],base[0],V148);
  2108.     vs_top=(vs_base=base+5)+3;
  2109.     Lformat();
  2110.     vs_top=sup;
  2111.     base[4]= vs_base[0];
  2112.     base[5]= VV[142];
  2113.     vs_top=(vs_base=base+4)+2;
  2114.     L20(base);
  2115.     vs_top=sup;
  2116.     bds_unwind1;
  2117.     goto T763;
  2118. T890:;
  2119.     V139= get(base[0],VV[143],Cnil);
  2120.     if(((V139))==Cnil){
  2121.     goto T901;}
  2122.     vs_base=vs_top;
  2123.     L21(base);
  2124.     vs_top=sup;
  2125.     base[3]= vs_base[0];
  2126.     bds_bind(VV[130],base[3]);
  2127.     base[5]= Cnil;
  2128.     base[6]= VV[144];
  2129.     V149= get(base[0],VV[143],Cnil);
  2130.     base[7]= listA(3,VV[141],base[0],V149);
  2131.     vs_top=(vs_base=base+5)+3;
  2132.     Lformat();
  2133.     vs_top=sup;
  2134.     base[4]= vs_base[0];
  2135.     base[5]= VV[145];
  2136.     vs_top=(vs_base=base+4)+2;
  2137.     L20(base);
  2138.     vs_top=sup;
  2139.     bds_unwind1;
  2140.     goto T763;
  2141. T901:;
  2142.     V139= get(base[0],VV[146],Cnil);
  2143.     if(((V139))==Cnil){
  2144.     goto T763;}
  2145.     vs_base=vs_top;
  2146.     L21(base);
  2147.     vs_top=sup;
  2148.     base[3]= vs_base[0];
  2149.     bds_bind(VV[130],base[3]);
  2150.     base[5]= Cnil;
  2151.     base[6]= VV[147];
  2152.     if(!(type_of((V139))==t_cons)){
  2153.     goto T920;}
  2154.     {object V150= car((V139));
  2155.     if((V150!= VV[178]))goto T922;
  2156.     base[7]= make_cons(VV[148],cdr((V139)));
  2157.     goto T918;
  2158. T922:;
  2159.     if((V150!= VV[179]))goto T923;
  2160.     base[7]= make_cons(VV[148],cddr((V139)));
  2161.     goto T918;
  2162. T923:;
  2163.     if((V150!= VV[180]))goto T924;
  2164.     base[7]= make_cons(VV[148],cddddr((V139)));
  2165.     goto T918;
  2166. T924:;
  2167.     if((V150!= VV[181]))goto T925;
  2168.     base[7]= make_cons(VV[148],cdr(cddddr((V139))));
  2169.     goto T918;
  2170. T925:;
  2171.     base[7]= Cnil;
  2172.     goto T918;}
  2173. T920:;
  2174.     base[7]= Cnil;
  2175. T918:;
  2176.     vs_top=(vs_base=base+5)+3;
  2177.     Lformat();
  2178.     vs_top=sup;
  2179.     base[4]= vs_base[0];
  2180.     base[5]= VV[149];
  2181.     vs_top=(vs_base=base+4)+2;
  2182.     L20(base);
  2183.     vs_top=sup;
  2184.     bds_unwind1;
  2185. T763:;
  2186.     {VOL object V151;
  2187.     V151= symbol_name(base[0]);
  2188.     base[3]= Cnil;
  2189.     base[4]= VV[153];
  2190.     vs_top=(vs_base=base+4)+1;
  2191.     Lboundp();
  2192.     vs_top=sup;
  2193.     if((vs_base[0])==Cnil){
  2194.     goto T930;}
  2195.     goto T929;
  2196. T930:;
  2197.     base[5]= VV[154];
  2198.     vs_top=(vs_base=base+5)+1;
  2199.     Lfind_package();
  2200.     vs_top=sup;
  2201.     base[4]= vs_base[0];
  2202.     bds_bind(VV[130],base[4]);
  2203.     base[6]= VV[155];
  2204.     vs_top=(vs_base=base+6)+1;
  2205.     (void) (*Lnk197)();
  2206.     vs_top=sup;
  2207.     base[5]= vs_base[0];
  2208.     vs_top=(vs_base=base+5)+1;
  2209.     Lprobe_file();
  2210.     vs_top=sup;
  2211.     base[3]= vs_base[0];
  2212.     if((base[3])==Cnil){
  2213.     goto T940;}
  2214.     base[5]= base[3];
  2215.     vs_top=(vs_base=base+5)+1;
  2216.     (void) (*Lnk198)();
  2217.     vs_top=sup;
  2218.     bds_unwind1;
  2219.     goto T929;
  2220. T940:;
  2221.     setq(VV[153],Cnil);
  2222.     bds_unwind1;
  2223. T929:;
  2224.     {register object x= (V151),V153= symbol_value(VV[153]);
  2225.     while(!endp(V153))
  2226.     if(type_of(V153->c.c_car)==t_cons &&equal(x,V153->c.c_car->c.c_car)){
  2227.     V152= (V153->c.c_car);
  2228.     goto T947;
  2229.     }else V153=V153->c.c_cdr;
  2230.     V152= Cnil;}
  2231. T947:;
  2232.     base[3]= cdr(V152);
  2233.     if((base[3])==Cnil){
  2234.     goto T927;}
  2235.     base[2]= Ct;
  2236.     base[6]= VV[156];
  2237.     vs_top=(vs_base=base+6)+1;
  2238.     (void) (*Lnk197)();
  2239.     vs_top=sup;
  2240.     base[5]= vs_base[0];
  2241.     vs_top=(vs_base=base+5)+1;
  2242.     (void) (*Lnk199)();
  2243.     vs_top=sup;
  2244.     base[4]= vs_base[0];
  2245.     {object tag;frame_ptr fr;object p;bool active;
  2246.     frs_push(FRS_PROTECT,Cnil);
  2247.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  2248.     else{
  2249.     base[6]= base[4];
  2250.     base[7]= base[3];
  2251.     vs_top=(vs_base=base+6)+2;
  2252.     Lfile_position();
  2253.     vs_top=sup;
  2254.     {register object V154;
  2255.     V154= VV[4];
  2256. T958:;
  2257.     if(!(eql((V154),VV[157]))){
  2258.     goto T959;}
  2259.     base[6]= Cnil;
  2260.     vs_top=(vs_base=base+6)+1;
  2261.     goto T953;
  2262. T959:;
  2263.     (void)(princ((V154),Cnil));
  2264.     base[6]= base[4];
  2265.     base[7]= Cnil;
  2266.     base[8]= VV[157];
  2267.     vs_top=(vs_base=base+6)+3;
  2268.     Lread_char();
  2269.     vs_top=sup;
  2270.     V154= vs_base[0];
  2271.     goto T958;}
  2272. T953:;
  2273.     active=FALSE;}
  2274.     base[5]=Cnil;
  2275.     while(vs_base<vs_top)
  2276.     {base[5]=MMcons(vs_top[-1],base[5]);vs_top--;}
  2277.     vs_top=sup;
  2278.     nlj_active=FALSE;frs_pop();
  2279.     base[6]= base[4];
  2280.     vs_top=(vs_base=base+6)+1;
  2281.     Lclose();
  2282.     vs_top=sup;
  2283.     vs_base=vs_top=base+6;
  2284.     for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  2285.     if(active)unwind(fr,tag);else{
  2286.     vs_top=sup;}}}
  2287. T927:;
  2288.     if(((V138))==Cnil){
  2289.     goto T973;}
  2290.     vs_top=(vs_base=base+2)+1;
  2291.     return;
  2292. T973:;
  2293.     if((base[2])==Cnil){
  2294.     goto T977;}
  2295.     base[3]= Ct;
  2296.     base[4]= VV[158];
  2297.     vs_top=(vs_base=base+3)+2;
  2298.     Lformat();
  2299.     vs_top=sup;
  2300.     goto T975;
  2301. T977:;
  2302.     base[3]= Ct;
  2303.     base[4]= VV[159];
  2304.     base[5]= base[0];
  2305.     vs_top=(vs_base=base+3)+3;
  2306.     Lformat();
  2307.     vs_top=sup;
  2308. T975:;
  2309.     vs_base=vs_top=base+3;
  2310.     vs_base[0]=Cnil;
  2311.     return;}
  2312.     }
  2313. }
  2314. /*    function definition for APROPOS-DOC    */
  2315.  
  2316. static L22()
  2317. {register object *base=vs_base;
  2318.     register object *sup=base+VM21; VC21
  2319.     vs_reserve(VM21);
  2320.     {object V155;
  2321.     object V156;
  2322.     if(vs_top-vs_base<1) too_few_arguments();
  2323.     if(vs_top-vs_base>2) too_many_arguments();
  2324.     V155=(base[0]);
  2325.     vs_base=vs_base+1;
  2326.     if(vs_base>=vs_top){vs_top=sup;goto T984;}
  2327.     V156=(base[1]);
  2328.     vs_top=sup;
  2329.     goto T985;
  2330. T984:;
  2331.     V156= VV[160];
  2332. T985:;
  2333.     {register object V157;
  2334.     V157= Cnil;
  2335.     V155= coerce_to_string((V155));
  2336.     if(((V156))==Cnil){
  2337.     goto T992;}
  2338.     {object V158;
  2339.     register object V159;
  2340.     register object V160;
  2341.     base[2]= V156;
  2342.     vs_top=(vs_base=base+2)+1;
  2343.     Lpackagep();
  2344.     vs_top=sup;
  2345.     if((vs_base[0])==Cnil){
  2346.     goto T996;}
  2347.     V158= V156;
  2348.     goto T994;
  2349. T996:;
  2350.     base[2]= coerce_to_string(V156);
  2351.     vs_top=(vs_base=base+2)+1;
  2352.     Lfind_package();
  2353.     vs_top=sup;
  2354.     V158= vs_base[0];
  2355. T994:;
  2356.     V159= Cnil;
  2357.     V160= Cnil;
  2358.     {int V162;
  2359.     int V163;
  2360.     base[2]= (V158);
  2361.     vs_top=(vs_base=base+2)+1;
  2362.     (void) (*Lnk200)();
  2363.     if(vs_base>=vs_top){vs_top=sup;goto T1002;}
  2364.     V162= fix(vs_base[0]);
  2365.     vs_base++;
  2366.     if(vs_base>=vs_top){vs_top=sup;goto T1003;}
  2367.     V163= fix(vs_base[0]);
  2368.     vs_top=sup;
  2369.     goto T1004;
  2370. T1002:;
  2371.     V162= fix(Cnil);
  2372. T1003:;
  2373.     V163= fix(Cnil);
  2374. T1004:;
  2375.     {object V164;
  2376.     object V165;
  2377.     { save_avma;
  2378.     V166 = stoi(V163);
  2379.     V167 = stoi(V162);
  2380.     V164= make_integer(addii(V166,V167));restore_avma;}
  2381.     V165= small_fixnum(0);
  2382. T1008:;
  2383.     if(!(number_compare((V165),(V164))>=0)){
  2384.     goto T1009;}
  2385.     V159= Cnil;
  2386.     goto T990;
  2387. T1009:;
  2388.     V168 = make_fixnum(V163);
  2389.     if(!(number_compare((V165),V168)<0)){
  2390.     goto T1020;}
  2391.     base[3]= (V158);
  2392.     base[4]= (V165);
  2393.     vs_top=(vs_base=base+3)+2;
  2394.     siLpackage_internal();
  2395.     vs_top=sup;
  2396.     V160= vs_base[0];
  2397.     goto T1018;
  2398. T1020:;
  2399.     base[3]= (V158);
  2400.     V169 = make_fixnum(V163);
  2401.     base[4]= number_minus((V165),V169);
  2402.     vs_top=(vs_base=base+3)+2;
  2403.     siLpackage_external();
  2404.     vs_top=sup;
  2405.     V160= vs_base[0];
  2406. T1018:;
  2407. T1016:;
  2408.     if(((V160))!=Cnil){
  2409.     goto T1026;}
  2410.     goto T1017;
  2411. T1026:;
  2412.     V159= car((V160));
  2413.     V170= coerce_to_string((V159));
  2414.     if(((*(LnkLI201))((V155),/* INLINE-ARGS */V170))==Cnil){
  2415.     goto T1031;}{object V171;
  2416.     base[3]= (V159);
  2417.     base[4]= Ct;
  2418.     vs_top=(vs_base=base+3)+2;
  2419.     (void) (*Lnk168)();
  2420.     vs_top=sup;
  2421.     V171= vs_base[0];
  2422.     if(V171==Cnil)goto T1035;
  2423.     V157= V171;
  2424.     goto T1034;
  2425. T1035:;}
  2426. T1034:;
  2427. T1031:;
  2428.     V160= cdr((V160));
  2429.     goto T1016;
  2430. T1017:;
  2431.     goto T1014;
  2432. T1014:;
  2433.     V165= one_plus((V165));
  2434.     goto T1008;}}}
  2435. T992:;
  2436.     {object V172;
  2437.     object V173;
  2438.     vs_base=vs_top;
  2439.     Llist_all_packages();
  2440.     vs_top=sup;
  2441.     V172= vs_base[0];
  2442.     V173= car((V172));
  2443. T1047:;
  2444.     if(!(endp((V172)))){
  2445.     goto T1048;}
  2446.     goto T990;
  2447. T1048:;
  2448.     {object V174;
  2449.     register object V175;
  2450.     register object V176;
  2451.     base[4]= V173;
  2452.     vs_top=(vs_base=base+4)+1;
  2453.     Lpackagep();
  2454.     vs_top=sup;
  2455.     if((vs_base[0])==Cnil){
  2456.     goto T1055;}
  2457.     V174= V173;
  2458.     goto T1053;
  2459. T1055:;
  2460.     base[4]= coerce_to_string(V173);
  2461.     vs_top=(vs_base=base+4)+1;
  2462.     Lfind_package();
  2463.     vs_top=sup;
  2464.     V174= vs_base[0];
  2465. T1053:;
  2466.     V175= Cnil;
  2467.     V176= Cnil;
  2468.     {int V178;
  2469.     int V179;
  2470.     base[4]= (V174);
  2471.     vs_top=(vs_base=base+4)+1;
  2472.     (void) (*Lnk200)();
  2473.     if(vs_base>=vs_top){vs_top=sup;goto T1061;}
  2474.     V178= fix(vs_base[0]);
  2475.     vs_base++;
  2476.     if(vs_base>=vs_top){vs_top=sup;goto T1062;}
  2477.     V179= fix(vs_base[0]);
  2478.     vs_top=sup;
  2479.     goto T1063;
  2480. T1061:;
  2481.     V178= fix(Cnil);
  2482. T1062:;
  2483.     V179= fix(Cnil);
  2484. T1063:;
  2485.     {object V180;
  2486.     register object V181;
  2487.     { save_avma;
  2488.     V182 = stoi(V179);
  2489.     V183 = stoi(V178);
  2490.     V180= make_integer(addii(V182,V183));restore_avma;}
  2491.     V181= small_fixnum(0);
  2492. T1067:;
  2493.     if(!(number_compare((V181),(V180))>=0)){
  2494.     goto T1068;}
  2495.     V175= Cnil;
  2496.     goto T1052;
  2497. T1068:;
  2498.     V184 = make_fixnum(V179);
  2499.     if(!(number_compare((V181),V184)<0)){
  2500.     goto T1079;}
  2501.     base[5]= (V174);
  2502.     base[6]= (V181);
  2503.     vs_top=(vs_base=base+5)+2;
  2504.     siLpackage_internal();
  2505.     vs_top=sup;
  2506.     V176= vs_base[0];
  2507.     goto T1077;
  2508. T1079:;
  2509.     base[5]= (V174);
  2510.     V185 = make_fixnum(V179);
  2511.     base[6]= number_minus((V181),V185);
  2512.     vs_top=(vs_base=base+5)+2;
  2513.     siLpackage_external();
  2514.     vs_top=sup;
  2515.     V176= vs_base[0];
  2516. T1077:;
  2517. T1075:;
  2518.     if(((V176))!=Cnil){
  2519.     goto T1085;}
  2520.     goto T1076;
  2521. T1085:;
  2522.     V175= car((V176));
  2523.     V186= coerce_to_string((V175));
  2524.     if(((*(LnkLI201))((V155),/* INLINE-ARGS */V186))==Cnil){
  2525.     goto T1090;}{object V187;
  2526.     base[5]= (V175);
  2527.     base[6]= Ct;
  2528.     vs_top=(vs_base=base+5)+2;
  2529.     (void) (*Lnk168)();
  2530.     vs_top=sup;
  2531.     V187= vs_base[0];
  2532.     if(V187==Cnil)goto T1094;
  2533.     V157= V187;
  2534.     goto T1093;
  2535. T1094:;}
  2536. T1093:;
  2537. T1090:;
  2538.     V176= cdr((V176));
  2539.     goto T1075;
  2540. T1076:;
  2541.     goto T1073;
  2542. T1073:;
  2543.     V181= one_plus((V181));
  2544.     goto T1067;}}}
  2545. T1052:;
  2546.     V172= cdr((V172));
  2547.     V173= car((V172));
  2548.     goto T1047;}
  2549. T990:;
  2550.     if(((V157))==Cnil){
  2551.     goto T1110;}
  2552.     base[2]= Ct;
  2553.     base[3]= VV[161];
  2554.     vs_top=(vs_base=base+2)+2;
  2555.     Lformat();
  2556.     vs_top=sup;
  2557.     goto T1108;
  2558. T1110:;
  2559.     base[2]= Ct;
  2560.     base[3]= VV[162];
  2561.     base[4]= (V155);
  2562.     base[5]= (V156);
  2563.     if((V156)==Cnil){
  2564.     base[6]= Cnil;
  2565.     goto T1118;}
  2566.     base[8]= V156;
  2567.     vs_top=(vs_base=base+8)+1;
  2568.     Lpackagep();
  2569.     vs_top=sup;
  2570.     if((vs_base[0])==Cnil){
  2571.     goto T1121;}
  2572.     base[7]= V156;
  2573.     goto T1119;
  2574. T1121:;
  2575.     base[8]= coerce_to_string(V156);
  2576.     vs_top=(vs_base=base+8)+1;
  2577.     Lfind_package();
  2578.     vs_top=sup;
  2579.     base[7]= vs_base[0];
  2580. T1119:;
  2581.     vs_top=(vs_base=base+7)+1;
  2582.     Lpackage_name();
  2583.     vs_top=sup;
  2584.     base[6]= vs_base[0];
  2585. T1118:;
  2586.     vs_top=(vs_base=base+2)+5;
  2587.     Lformat();
  2588.     vs_top=sup;
  2589. T1108:;
  2590.     vs_base=vs_top=base+2;
  2591.     vs_base[0]=Cnil;
  2592.     return;}
  2593.     }
  2594. }
  2595. /*    local function GOOD-PACKAGE    */
  2596.  
  2597. static L21(base0)
  2598. register object *base0;
  2599. {    register object *base=vs_base;
  2600.     register object *sup=base+VM22; VC22
  2601.     vs_reserve(VM22);
  2602.     check_arg(0);
  2603.     vs_top=sup;
  2604. TTL:;
  2605.     base[0]= base0[0];
  2606.     vs_top=(vs_base=base+0)+1;
  2607.     Lsymbol_package();
  2608.     vs_top=sup;
  2609.     V189= vs_base[0];
  2610.     base[0]= VV[151];
  2611.     vs_top=(vs_base=base+0)+1;
  2612.     Lfind_package();
  2613.     vs_top=sup;
  2614.     V190= vs_base[0];
  2615.     if(!((V189)==(V190))){
  2616.     goto T1126;}
  2617.     base[0]= VV[152];
  2618.     vs_top=(vs_base=base+0)+1;
  2619.     Lfind_package();
  2620.     return;
  2621. T1126:;
  2622.     base[0]= symbol_value(VV[130]);
  2623.     vs_top=(vs_base=base+0)+1;
  2624.     return;
  2625. }
  2626. /*    local function DOC1    */
  2627.  
  2628. static L20(base0)
  2629. register object *base0;
  2630. {    register object *base=vs_base;
  2631.     register object *sup=base+VM23; VC23
  2632.     vs_reserve(VM23);
  2633.     {object V191;
  2634.     object V192;
  2635.     check_arg(2);
  2636.     V191=(base[0]);
  2637.     V192=(base[1]);
  2638.     vs_top=sup;
  2639. TTL:;
  2640.     base0[2]= Ct;
  2641.     base[2]= Ct;
  2642.     base[3]= VV[150];
  2643.     base[4]= base0[0];
  2644.     base[5]= (V192);
  2645.     base[6]= (V191);
  2646.     vs_top=(vs_base=base+2)+5;
  2647.     Lformat();
  2648.     return;
  2649.     }
  2650. }
  2651. static object  LnkTLI201(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[201],&LnkLI201,2,ap);} /* SUBSTRINGP */
  2652. static LnkT200(){ call_or_link(VV[200],&Lnk200);} /* PACKAGE-SIZE */
  2653. static LnkT199(){ call_or_link(VV[199],&Lnk199);} /* OPEN */
  2654. static LnkT198(){ call_or_link(VV[198],&Lnk198);} /* LOAD */
  2655. static LnkT197(){ call_or_link(VV[197],&Lnk197);} /* SRC-PATH */
  2656. static object  LnkTLI196(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[196],&LnkLI196,2,ap);} /* DOCUMENTATION */
  2657. static object  LnkTLI195(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[195],&LnkLI195,1,ap);} /* INSPECT-STRUCTURE */
  2658. static object  LnkTLI194(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[194],&LnkLI194,1,ap);} /* INSPECT-ARRAY */
  2659. static object  LnkTLI193(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[193],&LnkLI193,1,ap);} /* INSPECT-VECTOR */
  2660. static object  LnkTLI192(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[192],&LnkLI192,1,ap);} /* INSPECT-STRING */
  2661. static object  LnkTLI191(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[191],&LnkLI191,1,ap);} /* INSPECT-CONS */
  2662. static object  LnkTLI190(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[190],&LnkLI190,1,ap);} /* INSPECT-NUMBER */
  2663. static object  LnkTLI189(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[189],&LnkLI189,1,ap);} /* INSPECT-CHARACTER */
  2664. static object  LnkTLI188(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[188],&LnkLI188,1,ap);} /* INSPECT-PACKAGE */
  2665. static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],&LnkLI187,1,ap);} /* INSPECT-SYMBOL */
  2666. static LnkT186(){ call_or_link(VV[186],&Lnk186);} /* STRUCTURE-REF1 */
  2667. static LnkT185(){ call_or_link(VV[185],&Lnk185);} /* ARRAY-TOTAL-SIZE */
  2668. static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[184],&LnkLI184,1,ap);} /* ARRAY-DIMENSIONS */
  2669. static LnkT183(){ call_or_link(VV[183],&Lnk183);} /* ARRAY-HAS-FILL-POINTER-P */
  2670. static LnkT169(){ call_or_link(VV[169],&Lnk169);} /* PACKAGE-SHADOWING-SYMBOLS */
  2671. static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* PRINT-DOC */
  2672. static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* READ-INSPECT-COMMAND */
  2673. static LnkT167(){ call_or_link(VV[167],&Lnk167);} /* READ-PRESERVING-WHITESPACE */
  2674. static object  LnkTLI166(){return call_proc0(VV[166],&LnkLI166);} /* INSPECT-READ-LINE */
  2675. static object  LnkTLI165(){return call_proc0(VV[165],&LnkLI165);} /* INSPECT-INDENT */
  2676. static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* INSPECT-OBJECT */
  2677. static object  LnkTLI163(){return call_proc0(VV[163],&LnkLI163);} /* INSPECT-INDENT-1 */
  2678.