/[gcl]/gcl/lsp/gcl_info.c
ViewVC logotype

Diff of /gcl/lsp/gcl_info.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sun Sep 14 02:43:05 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:29 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "gcl_info.h"  #include "gcl_info.h"
4  void init_gcl_info(){do_init(VV);}  void init_gcl_info(){do_init(VV);}
5  /*      function definition for SHARP-U-READER  */  /*      local entry for function SHARP-U-READER */
6    
7  static void L1()  static object LI1(V4,V5,V6)
8  {register object *base=vs_base;  
9          register object *sup=base+VM1; VC1  register object V4;object V5;object V6;
10          vs_check;  {        VMB1 VMS1 VMV1
         {register object V1;  
         object V2;  
         object V3;  
         V1=(base[0]);  
         V2=(base[1]);  
         V3=(base[2]);  
         vs_top=sup;  
11          goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          {object V4;          {object V7;
14          base[3]= small_fixnum(10);          V7= (VFUN_NARGS=5,(*(LnkLI89))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));{object V8;
15          base[4]= VV[0];          {object V9;
16          base[5]= VV[1];          {long V10;
17          base[6]= VV[2];          V10= 0;
18          base[7]= small_fixnum(0);          if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){
19          vs_top=(vs_base=base+3)+5;          goto T10;}
20          (void) (*Lnk89)();          V10= (long)getc(((V4))->sm.sm_fp);
21          vs_top=sup;          if(!((V10)==(-1))){
22          V4= vs_base[0];{object V5;          goto T15;}
23          {object V6;          if(!((feof(((V4))->sm.sm_fp)))){
         {long V7;  
         V7= 0;  
         if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){  
24          goto T15;}          goto T15;}
25          V7= (long)getc(((V1))->sm.sm_fp);          V9= Cnil;
26          if(!((V7)==(-1))){          goto T7;
         goto T20;}  
         if(!((feof(((V1))->sm.sm_fp)))){  
         goto T20;}  
         V6= Cnil;  
         goto T12;  
         goto T20;  
 T20:;  
         V6= code_char((V7));  
         goto T12;  
27          goto T15;          goto T15;
28  T15:;  T15:;
29          V6= read_char1((V1),Cnil);}          V9= code_char((V10));
30          goto T12;          goto T7;
 T12:;  
         if(type_of((V6))==t_character){  
         goto T24;}  
         V5= Cnil;  
         goto T11;  
         goto T24;  
 T24:;  
         V5= (((long)(34))==((long)(char_code((V6))))?Ct:Cnil);}  
         goto T11;  
 T11:;  
         if(V5==Cnil)goto T10;  
         goto T9;  
31          goto T10;          goto T10;
32  T10:;}  T10:;
33          base[3]= VV[4];          V9= read_char1((V4),Cnil);}
34          vs_top=(vs_base=base+3)+1;          goto T7;
35    T7:;
36            if(type_of((V9))==t_character){
37            goto T19;}
38            V8= Cnil;
39            goto T6;
40            goto T19;
41    T19:;
42            V8= (((long)(34))==((long)(char_code((V9))))?Ct:Cnil);}
43            goto T6;
44    T6:;
45            if(V8==Cnil)goto T5;
46            goto T4;
47            goto T5;
48    T5:;}
49            base[0]= VV[4];
50            vs_top=(vs_base=base+0)+1;
51          Lerror();          Lerror();
52          vs_top=sup;          vs_top=sup;
53          goto T9;          goto T4;
54  T9:;  T4:;
55          goto T29;          goto T24;
56  T29:;  T24:;
57          {register object V8;          {register object V11;
58          {register long V9;          {register long V12;
59          V9= 0;          V12= 0;
60          if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){          if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){
61            goto T29;}
62            V12= (long)getc(((V4))->sm.sm_fp);
63            if(!((V12)==(-1))){
64          goto T34;}          goto T34;}
65          V9= (long)getc(((V1))->sm.sm_fp);          if(!((feof(((V4))->sm.sm_fp)))){
66          if(!((V9)==(-1))){          goto T34;}
67          goto T39;}          V11= Cnil;
68          if(!((feof(((V1))->sm.sm_fp)))){          goto T26;
         goto T39;}  
         V8= Cnil;  
         goto T31;  
         goto T39;  
 T39:;  
         V8= code_char((V9));  
         goto T31;  
69          goto T34;          goto T34;
70  T34:;  T34:;
71          V8= read_char1((V1),Cnil);}          V11= code_char((V12));
72          goto T31;          goto T26;
73  T31:;          goto T29;
74          if(type_of(V8)==t_character){  T29:;
75          goto T47;}          V11= read_char1((V4),Cnil);}
76          goto T45;          goto T26;
77          goto T47;  T26:;
78  T47:;          if(type_of(V11)==t_character){
79          if(!(((long)(34))==((long)(char_code(V8))))){          goto T42;}
80          goto T45;}          goto T40;
81          goto T27;          goto T42;
82          goto T45;  T42:;
83  T45:;          if(!(((long)(34))==((long)(char_code(V11))))){
84          if(type_of(V8)==t_character){          goto T40;}
85          goto T51;}          goto T22;
86          goto T43;          goto T40;
87          goto T51;  T40:;
88  T51:;          if(type_of(V11)==t_character){
89          if(!(((long)(92))==((long)(char_code(V8))))){          goto T46;}
90          goto T43;}          goto T38;
91          {register long V12;          goto T46;
92          V12= 0;  T46:;
93          if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){          if(!(((long)(92))==((long)(char_code(V11))))){
94            goto T38;}
95            {register long V15;
96            V15= 0;
97            if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){
98            goto T52;}
99            V15= (long)getc(((V4))->sm.sm_fp);
100            if(!((V15)==(-1))){
101          goto T57;}          goto T57;}
102          V12= (long)getc(((V1))->sm.sm_fp);          if(!((feof(((V4))->sm.sm_fp)))){
103          if(!((V12)==(-1))){          goto T57;}
104          goto T62;}          V11= Cnil;
105          if(!((feof(((V1))->sm.sm_fp)))){          goto T49;
         goto T62;}  
         V8= Cnil;  
         goto T54;  
         goto T62;  
 T62:;  
         V8= code_char((V12));  
         goto T54;  
106          goto T57;          goto T57;
107  T57:;  T57:;
108          V8= read_char1((V1),Cnil);}          V11= code_char((V15));
109          goto T54;          goto T49;
110  T54:;{object V13;          goto T52;
111          {register object x= (V8),V15= VV[6];  T52:;
112          while(V15!=Cnil)          V11= read_char1((V4),Cnil);}
113          if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){          goto T49;
114          V14= (V15->c.c_car);  T49:;{object V16;
115          goto T69;          {register object x= (V11),V18= VV[6];
116          }else V15=V15->c.c_cdr;          while(V18!=Cnil)
117          V14= Cnil;}          if(eql(x,V18->c.c_car->c.c_car) &&V18->c.c_car != Cnil){
118            V17= (V18->c.c_car);
119            goto T64;
120            }else V18=V18->c.c_cdr;
121            V17= Cnil;}
122            goto T64;
123    T64:;
124            V16= CMPcdr(V17);
125            if(V16==Cnil)goto T62;
126            V11= V16;
127            goto T61;
128            goto T62;
129    T62:;}
130            goto T61;
131    T61:;
132            goto T38;
133    T38:;
134            {register object V20;
135            register long V21;
136            long V22;
137            V20= (V7);
138            V21= (long)(((V20))->st.st_fillp);
139            V22= (long)(((V20))->st.st_dim);
140            if(!((V21)<(V22))){
141            goto T69;}
142            (void)((((V20))->st.st_fillp)=((long)(1)+(V21)));
143            V23 = CMPmake_fixnum(V21);
144            (void)(aset1((V20),fix(V23),V11));
145            goto T25;
146          goto T69;          goto T69;
147  T69:;  T69:;
148          V13= CMPcdr(V14);          (void)((VFUN_NARGS=2,(*(LnkLI90))(V11,(V20))));}}
149          if(V13==Cnil)goto T67;          goto T25;
150          V8= V13;  T25:;
151          goto T66;          goto T24;
152          goto T67;          goto T22;
153  T67:;}  T22:;
154          goto T66;          {object V24 = (V7);
155  T66:;          VMR1(V24)}}
156          goto T43;          base[0]=base[0];
157  T43:;          return Cnil;
158          {register object V17;  }
159          register long V18;  /*      local entry for function FILE-TO-STRING */
160          long V19;  
161          V17= (V4);  static object LI2(object V25,object first,...)
162          V18= (long)(((V17))->st.st_fillp);  {      
163          V19= (long)(((V17))->st.st_dim);          va_list ap;
164          if(!((V18)<(V19))){          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
165          goto T74;}          bds_check;
166          (void)((((V17))->st.st_fillp)=((long)(1)+(V18)));          {VOL object V26;
167          V20 = CMPmake_fixnum(V18);          va_start(ap,first);
168          (void)(aset1((V17),fix(V20),V8));          V26= V25;
169          goto T30;          narg = narg - 1;
170            if (narg <= 0) goto T74;
171            else {
172            base[1]= first;}
173            --narg; goto T75;
174          goto T74;          goto T74;
175  T74:;  T74:;
         base[3]= V8;  
         base[4]= (V17);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk90)();  
         vs_top=sup;}}  
         goto T30;  
 T30:;  
         goto T29;  
         goto T27;  
 T27:;  
         base[3]= (V4);  
         vs_top=(vs_base=base+3)+1;  
         return;}  
         }  
 }  
 /*      function definition for FILE-TO-STRING  */  
   
 static void L2()  
 {register object *VOL base=vs_base;  
         register object *VOL sup=base+VM2; VC2  
         vs_check;  
         bds_check;  
         {VOL object V21;  
         V21=(base[0]);  
         vs_base=vs_base+1;  
         if(vs_base>=vs_top){vs_top=sup;goto T81;}  
         vs_top=sup;  
         goto T82;  
         goto T81;  
 T81:;  
176          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
177          goto T82;          goto T75;
178  T82:;  T75:;
179          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
180          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
181          base[5]= (V21);          base[5]= (V26);
182          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
183          (void) (*Lnk91)();          (void) (*Lnk91)();
184          vs_top=sup;          vs_top=sup;
# Line 208  T82:; Line 191  T82:;
191          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
192          Lfile_length();          Lfile_length();
193          vs_top=sup;          vs_top=sup;
194          base[3]= vs_base[0];{VOL object V22;          base[3]= vs_base[0];{VOL object V27;
195          if(number_compare(small_fixnum(0),base[1])<=0){          if(number_compare(small_fixnum(0),base[1])<=0){
196          goto T93;}          goto T86;}
197          V22= Cnil;          V27= Cnil;
198          goto T92;          goto T85;
199          goto T93;          goto T86;
200  T93:;  T86:;
201          V22= (number_compare(base[1],base[3])<=0?Ct:Cnil);          V27= (number_compare(base[1],base[3])<=0?Ct:Cnil);
202          goto T92;          goto T85;
203  T92:;  T85:;
204          if(V22==Cnil)goto T91;          if(V27==Cnil)goto T84;
205          goto T90;          goto T83;
206          goto T91;          goto T84;
207  T91:;}  T84:;}
208          base[6]= VV[8];          base[6]= VV[8];
209          base[7]= base[1];          base[7]= base[1];
210          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
211          Lerror();          Lerror();
212          vs_top=sup;          vs_top=sup;
213          goto T90;          goto T83;
214  T90:;  T83:;
215          {object V23;          {object V28;
216          base[6]= number_minus(base[3],base[1]);          V29= number_minus(base[3],base[1]);
217          base[7]= VV[0];          V28= (VFUN_NARGS=3,(*(LnkLI89))(/* INLINE-ARGS */V29,VV[0],VV[1]));
         base[8]= VV[1];  
         vs_top=(vs_base=base+6)+3;  
         (void) (*Lnk89)();  
         vs_top=sup;  
         V23= vs_base[0];  
218          if(!(number_compare(base[1],small_fixnum(0))>0)){          if(!(number_compare(base[1],small_fixnum(0))>0)){
219          goto T101;}          goto T91;}
220          base[6]= base[4];          base[6]= base[4];
221          base[7]= base[1];          base[7]= base[1];
222          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
223          Lfile_position();          Lfile_position();
224          vs_top=sup;          vs_top=sup;
225          goto T101;          goto T91;
226  T101:;  T91:;
227          base[6]= (V23);          base[6]= (V28);
228          base[7]= small_fixnum(0);          base[7]= small_fixnum(0);
229          base[8]= CMPmake_fixnum((long)length((V23)));          base[8]= CMPmake_fixnum((long)length((V28)));
230          base[9]= base[4];          base[9]= base[4];
231          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
232          (void) (*Lnk92)();          (void) (*Lnk92)();
233          vs_top=sup;          vs_top=sup;
234          base[6]= (V23);          base[6]= (V28);
235          vs_top=(vs_base=base+6)+1;}          vs_top=(vs_base=base+6)+1;}
236          active=FALSE;}          active=FALSE;}
237          base[5]=Cnil;          base[5]=Cnil;
# Line 262  T101:; Line 240  T101:;
240          vs_top=sup;          vs_top=sup;
241          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
242          if((base[4])==Cnil){          if((base[4])==Cnil){
243          goto T111;}          goto T101;}
244          base[6]= base[4];          base[6]= base[4];
245          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
246          Lclose();          Lclose();
247          vs_top=sup;          vs_top=sup;
248          goto T111;          goto T101;
249  T111:;  T101:;
250          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
251          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
252          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
253            vs_top=sup;
254            {object V30 = vs_base[0];
255          bds_unwind1;          bds_unwind1;
256          return;}}          VMR2(V30)}}}
257            va_end(ap);
258            base[0]=base[0];
259            return Cnil;}
260          }          }
261  }  /*      local entry for function ATOI   */
 /*      function definition for ATOI    */  
262    
263  static void L3()  static object LI3(V33,V34)
264  {register object *base=vs_base;  
265          register object *sup=base+VM3; VC3  register object V33;register long V34;
266          vs_check;  {        VMB3 VMS3 VMV3
         {register object V24;  
         register long V25;  
         V24=(base[0]);  
         V25=fix(base[1]);  
         vs_top=sup;  
267          goto TTL;          goto TTL;
268  TTL:;  TTL:;
269          {register long V26;          {register long V35;
270          register long V27;          register long V36;
271          register long V28;          register long V37;
272          V26= 0;          V35= 0;
273          V27= 0;          V36= 0;
274          V28= (long)((V24))->v.v_fillp;          V37= (long)((V33))->v.v_fillp;
275          goto T120;          goto T110;
276  T120:;  T110:;
277          if(!((V25)<(V28))){          if(!((V34)<(V37))){
278            goto T113;}
279            goto T112;
280            goto T113;
281    T113:;
282            goto T111;
283            goto T112;
284    T112:;
285            V36= (long)(((V33))->ust.ust_self[V34]);
286            V34= (long)(V34)+(1);
287            V36= (long)(V36)-(48);
288            if(!((V36)>=(0))){
289          goto T123;}          goto T123;}
290          goto T122;          if(!((V36)<(10))){
291            goto T123;}
292            V38 = CMPmake_fixnum(V36);
293            V39 = CMPmake_fixnum(V35);
294            V40= number_times(small_fixnum(10),V39);
295            V35= fix(number_plus(V38,/* INLINE-ARGS */V40));
296            goto T121;
297          goto T123;          goto T123;
298  T123:;  T123:;
299          goto T121;          goto T108;
         goto T122;  
 T122:;  
         V27= (long)(((V24))->ust.ust_self[V25]);  
         V25= (long)(V25)+(1);  
         V27= (long)(V27)-(48);  
         if(!((V27)>=(0))){  
         goto T133;}  
         if(!((V27)<(10))){  
         goto T133;}  
         V29 = CMPmake_fixnum(V27);  
         V30 = CMPmake_fixnum(V26);  
         V31= number_times(small_fixnum(10),V30);  
         V26= fix(number_plus(V29,/* INLINE-ARGS */V31));  
         goto T131;  
         goto T133;  
 T133:;  
         goto T118;  
         goto T131;  
 T131:;  
         goto T120;  
300          goto T121;          goto T121;
301  T121:;  T121:;
302          goto T118;          goto T110;
303          goto T118;          goto T111;
304          goto T118;  T111:;
305  T118:;          goto T108;
306          base[2]= CMPmake_fixnum(V26);          goto T108;
307          vs_top=(vs_base=base+2)+1;          goto T108;
308          return;}  T108:;
309          }          {long V41 = V35;
310            VMR3((object)V41)}}
311  }  }
312  /*      function definition for INFO-GET-TAGS   */  /*      local entry for function INFO-GET-TAGS  */
313    
314  static void L4()  static object LI4(V43)
315  {register object *base=vs_base;  
316          register object *sup=base+VM4; VC4  object V43;
317          vs_check;  {        VMB4 VMS4 VMV4
318          bds_check;          bds_check;
         {object V32;  
         V32=(base[0]);  
         vs_top=sup;  
319          goto TTL;          goto TTL;
320  TTL:;  TTL:;
321          {register long V33;          {register long V44;
322          object V34;          object V45;
323          register object V35;          register object V46;
324          V33= 0;          V44= 0;
325          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
326          V34= Cnil;          V45= Cnil;
327          V35= Cnil;          V46= Cnil;
328          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
329          {register object V36;          {register object V47;
330          register long V37;          register long V48;
331          base[3]= (V32);          V47= (VFUN_NARGS=1,(*(LnkLI93))((V43)));
332          vs_top=(vs_base=base+3)+1;          V48= 0;
333          (void) (*Lnk93)();          {long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V47),small_fixnum(0))));
334          vs_top=sup;          if(!((/* INLINE-ARGS */V49)>=(0))){
335          V36= vs_base[0];          goto T134;}}
336          V37= 0;          V48= (long)(*(LnkLI95))(0);
337          {long V38= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V36),small_fixnum(0))));          V50 = CMPmake_fixnum(V48);
338          if(!((/* INLINE-ARGS */V38)>=(0))){          V44= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V47),V50)));
339            goto T142;
340    T142:;
341            V51 = CMPmake_fixnum(V48);
342            V52 = CMPmake_fixnum(V44);
343            {long V53= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V47),V51,V52)));
344            if(!((/* INLINE-ARGS */V53)>=(0))){
345          goto T145;}}          goto T145;}}
346          V37= (long)(*(LnkLI95))(0);          goto T144;
         V39 = CMPmake_fixnum(V37);  
         V33= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V36),V39)));  
         goto T153;  
 T153:;  
         V40 = CMPmake_fixnum(V37);  
         V41 = CMPmake_fixnum(V33);  
         {long V42= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V36),V40,V41)));  
         if(!((/* INLINE-ARGS */V42)>=(0))){  
         goto T156;}}  
         goto T155;  
         goto T156;  
 T156:;  
         goto T154;  
         goto T155;  
 T155:;  
         V37= (long)(*(LnkLI95))(0);  
         base[3]= (V36);  
         base[4]= CMPmake_fixnum((long)(*(LnkLI96))(2));  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk97)();  
         vs_top=sup;  
         V43= vs_base[0];  
         base[3]= (V36);  
         base[4]= small_fixnum(1);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk98)();  
         vs_top=sup;  
         V44= vs_base[0];  
         V45= make_cons(V43,V44);  
         V35= make_cons(/* INLINE-ARGS */V45,(V35));  
         goto T153;  
         goto T154;  
 T154:;  
         goto T145;  
         goto T145;  
347          goto T145;          goto T145;
348  T145:;  T145:;
349          V46 = CMPmake_fixnum(V37);          goto T143;
350          {long V47= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V36),V46)));          goto T144;
351          if(!((/* INLINE-ARGS */V47)>=(0))){  T144:;
352          goto T169;}}          V48= (long)(*(LnkLI95))(0);
353          V37= (long)(*(LnkLI95))(0);          {long V54= (long)(*(LnkLI97))(2);
354          V48 = CMPmake_fixnum(V37);          V55 = CMPmake_fixnum((long)(*(LnkLI96))((V47),/* INLINE-ARGS */V54));
355          {long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V36),V48)));          V56= (*(LnkLI98))((V47),small_fixnum(1));
356          if(!((/* INLINE-ARGS */V49)>=(0))){          V57= make_cons(V55,/* INLINE-ARGS */V56);
357          goto T169;}}          V46= make_cons(/* INLINE-ARGS */V57,(V46));}
358          base[3]= (V36);          goto T142;
359          base[4]= CMPmake_fixnum(V37);          goto T143;
360          base[5]= CMPmake_fixnum((long)(*(LnkLI95))(0));  T143:;
361          vs_top=(vs_base=base+3)+3;          goto T134;
362            goto T134;
363            goto T134;
364    T134:;
365            V58 = CMPmake_fixnum(V48);
366            {long V59= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V47),V58)));
367            if(!((/* INLINE-ARGS */V59)>=(0))){
368            goto T152;}}
369            V48= (long)(*(LnkLI95))(0);
370            V60 = CMPmake_fixnum(V48);
371            {long V61= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V47),V60)));
372            if(!((/* INLINE-ARGS */V61)>=(0))){
373            goto T152;}}
374            base[2]= (V47);
375            base[3]= CMPmake_fixnum(V48);
376            base[4]= CMPmake_fixnum((long)(*(LnkLI95))(0));
377            vs_top=(vs_base=base+2)+3;
378          Lsubseq();          Lsubseq();
379          vs_top=sup;          vs_top=sup;
380          V34= vs_base[0];          V45= vs_base[0];
381          goto T169;          goto T152;
382  T169:;  T152:;
383          if(((V35))==Cnil){          if(((V46))==Cnil){
384          goto T180;}          goto T163;}
385          if((V34)!=Cnil){          if((V45)!=Cnil){
386          goto T180;}          goto T163;}
387          base[3]= VV[16];          base[2]= VV[16];
388          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
389          (void) (*Lnk99)();          (void) (*Lnk99)();
390          vs_top=sup;          vs_top=sup;
391          goto T180;          goto T163;
392  T180:;  T163:;
393          V50= nreverse((V35));          V62= nreverse((V46));
394          base[3]= make_cons((V34),/* INLINE-ARGS */V50);          {object V63 = make_cons((V45),/* INLINE-ARGS */V62);
         vs_top=(vs_base=base+3)+1;  
395          bds_unwind1;          bds_unwind1;
396          bds_unwind1;          bds_unwind1;
397          return;}}          VMR4(V63)}}}
398          }          base[0]=base[0];
399            return Cnil;
400  }  }
401  /*      function definition for RE-QUOTE-STRING */  /*      local entry for function RE-QUOTE-STRING        */
402    
403  static void L5()  static object LI5(V65)
404  {register object *base=vs_base;  
405          register object *sup=base+VM5; VC5  object V65;
406          vs_check;  {        VMB5 VMS5 VMV5
         {object V51;  
         V51=(base[0]);  
         vs_top=sup;  
407          goto TTL;          goto TTL;
408  TTL:;  TTL:;
409          {register long V52;          {register long V66;
410          long V53;          long V67;
411          object V54;          object V68;
412          long V55;          long V69;
413          V52= 0;          V66= 0;
414          V53= (long)((V51))->v.v_fillp;          V67= (long)((V65))->v.v_fillp;
415          V54= Cnil;          V68= Cnil;
416          V55= 0;          V69= 0;
417          {register object V56;          {register object V70;
418          V56= Cnil;          V70= Cnil;
419          goto T190;          goto T173;
420  T190:;  T173:;
421          goto T193;          goto T176;
422  T193:;  T176:;
423          if(!((V52)<(V53))){          if(!((V66)<(V67))){
424          goto T196;}          goto T179;}
425          goto T195;          goto T178;
426          goto T196;          goto T179;
427  T196:;  T179:;
428            goto T177;
429            goto T178;
430    T178:;
431            V68= code_char(((V65))->ust.ust_self[V66]);
432            if(((VFUN_NARGS=2,(*(LnkLI100))((V68),VV[17])))==Cnil){
433            goto T183;}
434            if(((V70))==Cnil){
435            goto T187;}
436            {unsigned char V71;
437            register object V72;
438            register long V73;
439            long V74;
440            V71= 92;
441            V72= (V70);
442            V73= (long)(((V72))->st.st_fillp);
443            V74= (long)(((V72))->st.st_dim);
444            if(!((V73)<(V74))){
445            goto T194;}
446            (void)((((V72))->st.st_fillp)=((long)(1)+(V73)));
447            V75 = CMPmake_fixnum(V73);
448            (void)(aset1((V72),fix(V75),code_char(V71)));
449            goto T183;
450          goto T194;          goto T194;
451          goto T195;  T194:;
452  T195:;          (void)((VFUN_NARGS=2,(*(LnkLI90))(code_char(V71),(V72))));
453          V54= code_char(((V51))->ust.ust_self[V52]);          goto T183;}
454          base[1]= (V54);          goto T187;
455          base[2]= VV[17];  T187:;
456          vs_top=(vs_base=base+1)+2;          V69= (long)(V69)+(1);
457          (void) (*Lnk100)();          goto T183;
458          vs_top=sup;  T183:;
459          if((vs_base[0])==Cnil){          if(((V70))==Cnil){
460          goto T200;}          goto T199;}
461          if(((V56))==Cnil){          {register object V77;
462            register long V78;
463            long V79;
464            V77= (V70);
465            V78= (long)(((V77))->st.st_fillp);
466            V79= (long)(((V77))->st.st_dim);
467            if(!((V78)<(V79))){
468          goto T206;}          goto T206;}
469          {unsigned char V57;          (void)((((V77))->st.st_fillp)=((long)(1)+(V78)));
470          register object V58;          V80 = CMPmake_fixnum(V78);
471          register long V59;          (void)(aset1((V77),fix(V80),V68));
472          long V60;          goto T199;
         V57= 92;  
         V58= (V56);  
         V59= (long)(((V58))->st.st_fillp);  
         V60= (long)(((V58))->st.st_dim);  
         if(!((V59)<(V60))){  
         goto T213;}  
         (void)((((V58))->st.st_fillp)=((long)(1)+(V59)));  
         V61 = CMPmake_fixnum(V59);  
         (void)(aset1((V58),fix(V61),code_char(V57)));  
         goto T200;  
         goto T213;  
 T213:;  
         base[1]= code_char(V57);  
         base[2]= (V58);  
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk90)();  
         vs_top=sup;  
         goto T200;}  
473          goto T206;          goto T206;
474  T206:;  T206:;
475          V55= (long)(V55)+(1);          (void)((VFUN_NARGS=2,(*(LnkLI90))(V68,(V77))));}
476          goto T200;          goto T199;
477  T200:;  T199:;
478          if(((V56))==Cnil){          V66= (long)(V66)+(1);
479          goto T220;}          goto T176;
480          {register object V63;          goto T177;
481          register long V64;  T177:;
482          long V65;          goto T174;
483          V63= (V56);          goto T174;
484          V64= (long)(((V63))->st.st_fillp);          goto T174;
485          V65= (long)(((V63))->st.st_dim);  T174:;
486          if(!((V64)<(V65))){          {object V81;
487          goto T227;}          V81= (V70);
488          (void)((((V63))->st.st_fillp)=((long)(1)+(V64)));          if(((V81))==Cnil){
489          V66 = CMPmake_fixnum(V64);          goto T215;}
490          (void)(aset1((V63),fix(V66),V54));          goto T213;
491          goto T220;          goto T215;
492          goto T227;  T215:;
493  T227:;          if(!((V69)>(0))){
494          base[1]= V54;          goto T218;}
495          base[2]= (V63);          V82 = CMPmake_fixnum((long)((long)((V65))->v.v_fillp)+(V69));
496          vs_top=(vs_base=base+1)+2;          V70= (VFUN_NARGS=5,(*(LnkLI89))(V82,VV[0],VV[1],VV[2],small_fixnum(0)));
497          (void) (*Lnk90)();          V66= 0;
498          vs_top=sup;}          goto T173;
499          goto T220;          goto T218;
500  T220:;  T218:;
501          V52= (long)(V52)+(1);          V70= (V65);}
502          goto T193;          goto T213;
503          goto T194;  T213:;
504  T194:;          goto T171;
505          goto T191;          goto T171;
506          goto T191;  T171:;
507          goto T191;          {object V83 = (V70);
508  T191:;          VMR5(V83)}}}
509          {object V67;          return Cnil;
         V67= (V56);  
         if(((V67))==Cnil){  
         goto T238;}  
         goto T236;  
         goto T238;  
 T238:;  
         if(!((V55)>(0))){  
         goto T241;}  
         base[1]= CMPmake_fixnum((long)((long)((V51))->v.v_fillp)+(V55));  
         base[2]= VV[0];  
         base[3]= VV[1];  
         base[4]= VV[2];  
         base[5]= small_fixnum(0);  
         vs_top=(vs_base=base+1)+5;  
         (void) (*Lnk89)();  
         vs_top=sup;  
         V56= vs_base[0];  
         V52= 0;  
         goto T190;  
         goto T241;  
 T241:;  
         V56= (V51);}  
         goto T236;  
 T236:;  
         goto T188;  
         goto T188;  
 T188:;  
         base[1]= (V56);  
         vs_top=(vs_base=base+1)+1;  
         return;}}  
         }  
510  }  }
511  /*      function definition for GET-MATCH       */  /*      local entry for function GET-MATCH      */
512    
513  static void L6()  static object LI6(V86,V87)
514  {register object *base=vs_base;  
515          register object *sup=base+VM6; VC6  object V86;object V87;
516          vs_check;  {        VMB6 VMS6 VMV6
         {object V68;  
         object V69;  
         V68=(base[0]);  
         V69=(base[1]);  
         vs_top=sup;  
517          goto TTL;          goto TTL;
518  TTL:;  TTL:;
519          base[2]= (V68);          base[0]= (V86);
520          base[3]= CMPmake_fixnum((long)(*(LnkLI96))(fix((V69))));          base[1]= CMPmake_fixnum((long)(*(LnkLI97))(fix((V87))));
521          base[4]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V69))));          base[2]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V87))));
522          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+0)+3;
523          Lsubseq();          Lsubseq();
524          return;          vs_top=sup;
525          }          {object V88 = vs_base[0];
526            VMR6(V88)}
527            base[0]=base[0];
528            return Cnil;
529  }  }
530  /*      function definition for GET-NODES       */  /*      local entry for function GET-NODES      */
531    
532  static void L7()  static object LI7(V91,V92)
533  {register object *base=vs_base;  
534          register object *sup=base+VM7; VC7  register object V91;register object V92;
535          vs_check;  {        VMB7 VMS7 VMV7
536          bds_check;          bds_check;
         {register object V70;  
         register object V71;  
         V70=(base[0]);  
         V71=(base[1]);  
         vs_top=sup;  
537          goto TTL;          goto TTL;
538  TTL:;  TTL:;
539          {register long V72;          {register long V93;
540          register object V73;          register object V94;
541          V72= 0;          V93= 0;
542          V73= Cnil;          V94= Cnil;
543          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
544          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
545          if(((V71))==Cnil){          if(((V92))==Cnil){
546          goto T259;}          goto T231;}
547          base[4]= VV[18];          base[2]= VV[18];
548          base[6]= (V70);          base[3]= (*(LnkLI101))((V91));
549          vs_top=(vs_base=base+6)+1;          base[4]= VV[19];
550          (void) (*Lnk101)();          vs_top=(vs_base=base+2)+3;
         vs_top=sup;  
         base[5]= vs_base[0];  
         base[6]= VV[19];  
         vs_top=(vs_base=base+4)+3;  
551          (void) (*Lnk102)();          (void) (*Lnk102)();
552          vs_top=sup;          vs_top=sup;
553          V70= vs_base[0];          V91= vs_base[0];
554          goto T269;          goto T240;
555  T269:;  T240:;
556          V74 = CMPmake_fixnum(V72);          V95 = CMPmake_fixnum(V93);
557          {long V75= fix((VFUN_NARGS=3,(*(LnkLI94))((V70),(V71),V74)));          {long V96= fix((VFUN_NARGS=3,(*(LnkLI94))((V91),(V92),V95)));
558          if(!((/* INLINE-ARGS */V75)>=(0))){          if(!((/* INLINE-ARGS */V96)>=(0))){
559          goto T272;}}          goto T243;}}
560          goto T271;          goto T242;
561          goto T272;          goto T243;
562  T272:;  T243:;
563          goto T270;          goto T241;
564          goto T271;          goto T242;
565  T271:;  T242:;
566          V72= (long)(*(LnkLI95))(0);          V93= (long)(*(LnkLI95))(0);
567          base[4]= (V71);          V97= (*(LnkLI98))((V92),small_fixnum(1));
568          base[5]= small_fixnum(1);          V94= make_cons(/* INLINE-ARGS */V97,(V94));
569          vs_top=(vs_base=base+4)+2;          goto T240;
570          (void) (*Lnk98)();          goto T241;
571          vs_top=sup;  T241:;
572          V76= vs_base[0];          goto T238;
573          V73= make_cons(V76,(V73));          goto T238;
574          goto T269;          goto T238;
575          goto T270;  T238:;
576  T270:;          {object V98 = nreverse((V94));
         goto T267;  
         goto T267;  
         goto T267;  
 T267:;  
         base[4]= nreverse((V73));  
         vs_top=(vs_base=base+4)+1;  
         bds_unwind1;  
         bds_unwind1;  
         return;  
         goto T259;  
 T259:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
577          bds_unwind1;          bds_unwind1;
578          bds_unwind1;          bds_unwind1;
579          return;}          VMR7(V98)}
580          }          goto T231;
581  }  T231:;
582  /*      function definition for GET-INDEX-NODE  */          {object V99 = Cnil;
583            bds_unwind1;
584  static void L8()          bds_unwind1;
585  {register object *base=vs_base;          VMR7(V99)}}
586          register object *sup=base+VM8; VC8          base[0]=base[0];
587          vs_check;          return Cnil;
588          vs_top=sup;  }
589          goto TTL;  /*      local entry for function GET-INDEX-NODE */
590  TTL:;{object V77;  
591          V77= CMPcaddr((VV[20]->s.s_dbind));  static object LI8()
592          if(V77==Cnil)goto T282;  
593          base[0]= V77;  {        VMB8 VMS8 VMV8
594          vs_top=(vs_base=base+0)+1;          goto TTL;
595          return;  TTL:;{object V100;
596          goto T282;          V100= CMPcaddr((VV[20]->s.s_dbind));
597  T282:;}          if(V100==Cnil)goto T250;
598          {object V78;          {object V101 = V100;
599          object V79;          VMR8(V101)}
600          object V80;          goto T250;
601          V78= Cnil;  T250:;}
602          V79= CMPcar(CMPcadr((VV[20]->s.s_dbind)));          {object V102;
603          if((V79)==Cnil){          object V103;
604          V80= Cnil;          object V104;
605          goto T286;}          V102= Cnil;
606          base[2]= VV[21];          V103= CMPcar(CMPcadr((VV[20]->s.s_dbind)));
607          base[3]= (V79);          if((V103)==Cnil){
608          vs_top=(vs_base=base+2)+2;          V104= Cnil;
609          (void) (*Lnk103)();          goto T254;}
610          vs_top=sup;          V105= (*(LnkLI103))(VV[21],(V103));
611          V81= vs_base[0];          V104= CMPcar(/* INLINE-ARGS */V105);
612          V80= CMPcar(V81);          goto T254;
613          goto T286;  T254:;
614  T286:;          if(((V104))==Cnil){
615          if(((V80))==Cnil){          goto T256;}
616          goto T291;}          base[2]= (V104);
         base[2]= (V80);  
617          base[3]= Cnil;          base[3]= Cnil;
618          base[4]= Cnil;          base[4]= Cnil;
619          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
620          (void) (*Lnk104)();          (void) (*Lnk104)();
621          vs_top=sup;          vs_top=sup;
622          V78= vs_base[0];          V102= vs_base[0];
623          {object V82;          {object V106;
624          V82= (VV[20]->s.s_dbind);          V106= (VV[20]->s.s_dbind);
625          (CMPcddr((V82)))->c.c_car = V78;          (CMPcddr((V106)))->c.c_car = V102;
626          (void)(CMPcddr((V82)));          (void)(CMPcddr((V106)));
627          base[2]= V78;          {object V108 = V102;
628          vs_top=(vs_base=base+2)+1;          VMR8(V108)}}
629          return;}          goto T256;
630          goto T291;  T256:;
631  T291:;          {object V109 = Cnil;
632          base[2]= Cnil;          VMR8(V109)}}
633          vs_top=(vs_base=base+2)+1;          base[0]=base[0];
634          return;}          return Cnil;
635  }  }
636  /*      function definition for NODES-FROM-INDEX        */  /*      local entry for function NODES-FROM-INDEX       */
637    
638  static void L9()  static object LI9(V111)
639  {register object *base=vs_base;  
640          register object *sup=base+VM9; VC9  register object V111;
641          vs_check;  {        VMB9 VMS9 VMV9
642          bds_check;          bds_check;
         {register object V84;  
         V84=(base[0]);  
         vs_top=sup;  
643          goto TTL;          goto TTL;
644  TTL:;  TTL:;
645          {register object V85;          {register object V112;
646          register object V86;          register object V113;
647          V85= small_fixnum(0);          V112= small_fixnum(0);
648          V86= Cnil;          V113= Cnil;
649          bds_bind(VV[10],Ct);          bds_bind(VV[10],Ct);
650          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
651          {register object V87;          {register object V114;
652          vs_base=vs_top;          V114= (*(LnkLI105))();
653          (void) (*Lnk105)();          if(((V114))==Cnil){
654          vs_top=sup;          goto T269;}
655          V87= vs_base[0];          base[2]= VV[22];
656          if(((V87))==Cnil){          base[3]= (*(LnkLI101))((V111));
657          goto T304;}          base[4]= VV[23];
658          base[3]= VV[22];          vs_top=(vs_base=base+2)+3;
         base[5]= (V84);  
         vs_top=(vs_base=base+5)+1;  
         (void) (*Lnk101)();  
         vs_top=sup;  
         base[4]= vs_base[0];  
         base[5]= VV[23];  
         vs_top=(vs_base=base+3)+3;  
659          (void) (*Lnk102)();          (void) (*Lnk102)();
660          vs_top=sup;          vs_top=sup;
661          V84= vs_base[0];          V111= vs_base[0];
662          goto T314;          goto T278;
663  T314:;  T278:;
664          {long V88= fix((VFUN_NARGS=3,(*(LnkLI94))((V84),(V87),(V85))));          {long V115= fix((VFUN_NARGS=3,(*(LnkLI94))((V111),(V114),(V112))));
665          if(!((/* INLINE-ARGS */V88)>=(0))){          if(!((/* INLINE-ARGS */V115)>=(0))){
666          goto T317;}}          goto T281;}}
667          goto T316;          goto T280;
668          goto T317;          goto T281;
669  T317:;  T281:;
670          goto T315;          goto T279;
671          goto T316;          goto T280;
672  T316:;  T280:;
673          V85= CMPmake_fixnum((long)(*(LnkLI95))(0));          V112= CMPmake_fixnum((long)(*(LnkLI95))(0));
674          base[3]= (V87);          V116= (*(LnkLI98))((V114),small_fixnum(1));
675          base[4]= small_fixnum(1);          V117= (*(LnkLI98))((V114),small_fixnum(2));
676          vs_top=(vs_base=base+3)+2;          V118= make_cons(/* INLINE-ARGS */V116,/* INLINE-ARGS */V117);
677          (void) (*Lnk98)();          V113= make_cons(/* INLINE-ARGS */V118,(V113));
678          vs_top=sup;          goto T278;
679          V89= vs_base[0];          goto T279;
680          base[3]= (V87);  T279:;
681          base[4]= small_fixnum(2);          goto T276;
682          vs_top=(vs_base=base+3)+2;          goto T276;
683          (void) (*Lnk98)();          goto T276;
684          vs_top=sup;  T276:;
685          V90= vs_base[0];          {object V119 = nreverse((V113));
         V91= make_cons(V89,V90);  
         V86= make_cons(/* INLINE-ARGS */V91,(V86));  
         goto T314;  
         goto T315;  
 T315:;  
         goto T312;  
         goto T312;  
         goto T312;  
 T312:;  
         base[3]= nreverse((V86));  
         vs_top=(vs_base=base+3)+1;  
686          bds_unwind1;          bds_unwind1;
687          bds_unwind1;          bds_unwind1;
688          return;          VMR9(V119)}
689          goto T304;          goto T269;
690  T304:;  T269:;
691          base[3]= Cnil;          {object V120 = Cnil;
         vs_top=(vs_base=base+3)+1;  
692          bds_unwind1;          bds_unwind1;
693          bds_unwind1;          bds_unwind1;
694          return;}}          VMR9(V120)}}}
695          }          base[0]=base[0];
696            return Cnil;
697  }  }
698  /*      function definition for GET-NODE-INDEX  */  /*      local entry for function GET-NODE-INDEX */
699    
700  static void L10()  static object LI10(V123,V124)
701  {register object *base=vs_base;  
702          register object *sup=base+VM10; VC10  register object V123;object V124;
703          vs_check;  {        VMB10 VMS10 VMV10
704          bds_check;          bds_check;
         {register object V92;  
         object V93;  
         V92=(base[0]);  
         V93=(base[1]);  
         vs_top=sup;  
705          goto TTL;          goto TTL;
706  TTL:;  TTL:;
707          {object V94;          {object V125;
708          V94= (V92);          V125= (V123);
709          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
710          if(((V93))!=Cnil){          if(((V124))!=Cnil){
711          goto T332;}          goto T290;}
712          base[3]= small_fixnum(0);          {long V126 = 0;
713          vs_top=(vs_base=base+3)+1;          bds_unwind1;
714          bds_unwind1;          VMR10((object)V126)}
715          return;          goto T290;
716          goto T332;  T290:;
717  T332:;          base[1]= VV[24];
718          base[3]= VV[24];          base[2]= (*(LnkLI101))((V123));
719          base[5]= (V92);          base[3]= VV[25];
720          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+1)+3;
         (void) (*Lnk101)();  
         vs_top=sup;  
         base[4]= vs_base[0];  
         base[5]= VV[25];  
         vs_top=(vs_base=base+3)+3;  
721          (void) (*Lnk102)();          (void) (*Lnk102)();
722          vs_top=sup;          vs_top=sup;
723          V92= vs_base[0];          V123= vs_base[0];
724          {long V95= fix((VFUN_NARGS=2,(*(LnkLI94))((V92),(V93))));          {long V127= fix((VFUN_NARGS=2,(*(LnkLI94))((V123),(V124))));
725          if(!((/* INLINE-ARGS */V95)>=(0))){          if(!((/* INLINE-ARGS */V127)>=(0))){
726          goto T341;}}          goto T298;}}
727          base[3]= (V93);          {long V128= (long)(*(LnkLI97))(1);
728          base[4]= CMPmake_fixnum((long)(*(LnkLI96))(1));          {long V129 = (long)(*(LnkLI96))((V124),/* INLINE-ARGS */V128);
729          vs_top=(vs_base=base+3)+2;          bds_unwind1;
730          (void) (*Lnk97)();          VMR10((object)V129)}}
731          bds_unwind1;          goto T298;
732          return;  T298:;
733          goto T341;          base[1]= VV[26];
734  T341:;          base[2]= (V125);
735          base[3]= VV[26];          vs_top=(vs_base=base+1)+2;
         base[4]= (V94);  
         vs_top=(vs_base=base+3)+2;  
736          (void) (*Lnk99)();          (void) (*Lnk99)();
737          vs_top=sup;          vs_top=sup;
738          base[3]= small_fixnum(0);          {long V130 = 0;
         vs_top=(vs_base=base+3)+1;  
739          bds_unwind1;          bds_unwind1;
740          return;}          VMR10((object)V130)}}
741          }          base[0]=base[0];
742  }  }
743  /*      function definition for ALL-MATCHES     */  /*      local entry for function ALL-MATCHES    */
744    
745  static void L11()  static object LI11(V133,V134)
746  {register object *base=vs_base;  
747          register object *sup=base+VM11; VC11  object V133;object V134;
748          vs_check;  {        VMB11 VMS11 VMV11
749          bds_check;          bds_check;
         {object V96;  
         object V97;  
         V96=(base[0]);  
         V97=(base[1]);  
         vs_top=sup;  
750          goto TTL;          goto TTL;
751  TTL:;  TTL:;
752          {register long V98;          {register long V135;
753          V98= 0;          V135= 0;
754          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
755          {register object V99;          {register object V136;
756          register object V100;          register object V137;
757          register object V101;          register object V138;
758          V99= Cnil;          V136= Cnil;
759          V100= Cnil;          V137= Cnil;
760          V101= Cnil;          V138= Cnil;
761          goto T350;          goto T305;
762  T350:;  T305:;
763          V102 = CMPmake_fixnum(V98);          V139 = CMPmake_fixnum(V135);
764          V98= fix((VFUN_NARGS=3,(*(LnkLI94))((V96),(V97),V102)));          V135= fix((VFUN_NARGS=3,(*(LnkLI94))((V133),(V134),V139)));
765          if(!((V98)>=(0))){          if(!((V135)>=(0))){
766          goto T353;}          goto T308;}
767          goto T352;          goto T307;
768          goto T353;          goto T308;
769  T353:;  T308:;
770          goto T351;          goto T306;
771          goto T352;          goto T307;
772  T352:;{object V103;  T307:;{object V140;
773          V103= CMPmake_fixnum(V98);          V140= CMPmake_fixnum(V135);
774          V98= (long)(*(LnkLI95))(0);          V135= (long)(*(LnkLI95))(0);
775          V104 = CMPmake_fixnum(V98);          V141 = CMPmake_fixnum(V135);
776          V101= list(2,V103,V104);}          V138= list(2,V140,V141);}
777          if(((V100))==Cnil){          if(((V137))==Cnil){
778          goto T361;}          goto T316;}
779          {register object V105;          {register object V142;
780          register object V106;          register object V143;
781          V105= (V100);          V142= (V137);
782          V100= make_cons((V101),Cnil);          V137= make_cons((V138),Cnil);
783          V106= (V100);          V143= (V137);
784          ((V105))->c.c_cdr = (V106);          ((V142))->c.c_cdr = (V143);
785          goto T359;}          goto T314;}
786          goto T361;          goto T316;
787  T361:;  T316:;
788          V100= make_cons((V101),Cnil);          V137= make_cons((V138),Cnil);
789          V99= (V100);          V136= (V137);
790          goto T359;          goto T314;
791  T359:;  T314:;
792          goto T350;          goto T305;
793          goto T351;          goto T306;
794  T351:;  T306:;
795          base[3]= (V99);          {object V144 = (V136);
796          vs_top=(vs_base=base+3)+1;          bds_unwind1;
797          bds_unwind1;          VMR11(V144)}
798          return;          {object V145 = Cnil;
799          base[3]= Cnil;          bds_unwind1;
800          vs_top=(vs_base=base+3)+1;          VMR11(V145)}
801          bds_unwind1;          {object V146 = Cnil;
802          return;          bds_unwind1;
803          base[3]= Cnil;          VMR11(V146)}}}
804          vs_top=(vs_base=base+3)+1;          base[0]=base[0];
805          bds_unwind1;          return Cnil;
         return;}}  
         }  
806  }  }
807  /*      macro definition for NODE       */  /*      macro definition for NODE       */
808    
# Line 942  static void L12() Line 811  static void L12()
811          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
812          vs_check;          vs_check;
813          vs_top=sup;          vs_top=sup;
814          {object V107=base[0]->c.c_cdr;          {object V147=base[0]->c.c_cdr;
815          base[2]= (V107->c.c_car);          base[2]= (V147->c.c_car);
816          V107=V107->c.c_cdr;          V147=V147->c.c_cdr;
817          base[3]= (V107->c.c_car);}          base[3]= (V147->c.c_car);}
818          base[4]= base[2];          V148= (VFUN_NARGS=2,(*(LnkLI100))(base[2],VV[28]));
819          base[5]= VV[28];          base[4]= list(3,VV[27],/* INLINE-ARGS */V148,base[3]);
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk100)();  
         vs_top=sup;  
         V108= vs_base[0];  
         base[4]= list(3,VV[27],V108,base[3]);  
820          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
821          return;          return;
822  }  }
823  /*      function definition for NODE-OFFSET     */  /*      local entry for function NODE-OFFSET    */
824    
825  static void L13()  static object LI13(V150)
826  {register object *base=vs_base;  
827          register object *sup=base+VM13; VC13  object V150;
828          vs_check;  {        VMB13 VMS13 VMV13
         {object V109;  
         V109=(base[0]);  
         vs_top=sup;  
829          goto TTL;          goto TTL;
830  TTL:;  TTL:;
831          base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109)));          {object V151 = number_plus(CMPcar(CMPcadr(CMPcddddr((V150)))),CMPcadr((V150)));
832          vs_top=(vs_base=base+1)+1;          VMR13(V151)}
833          return;          return Cnil;
         }  
834  }  }
835  /*      function definition for SETUP-INFO      */  /*      local entry for function SETUP-INFO     */
836    
837  static void L14()  static object LI14(V153)
838  {register object *base=vs_base;  
839          register object *sup=base+VM14; VC14  register object V153;
840          vs_check;  {        VMB14 VMS14 VMV14
841          bds_check;          bds_check;
         {register object V110;  
         V110=(base[0]);  
         vs_top=sup;  
842          goto TTL;          goto TTL;
843  TTL:;  TTL:;
844          {object V111;          {object V154;
845          register object V112;          register object V155;
846          V111= Cnil;          V154= Cnil;
847          V112= Cnil;          V155= Cnil;
848          if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){          if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){
849          goto T377;}          goto T329;}
850          goto T376;          goto T328;
851          goto T377;          goto T329;
852  T377:;  T329:;
853          (VV[29]->s.s_dbind)= (VV[30]->s.s_dbind);          (VV[29]->s.s_dbind)= (VV[30]->s.s_dbind);
854          {object V113;          {object V156;
855          base[2]= (VV[30]->s.s_dbind);          base[1]= (VV[30]->s.s_dbind);
856          base[3]= VV[31];          base[2]= VV[31];
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk102)();  
         vs_top=sup;  
         V113= vs_base[0];  
         (VV[32]->s.s_dbind)= make_cons((V113),(VV[32]->s.s_dbind));}  
         base[1]= (VV[32]->s.s_dbind);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk106)();  
         vs_top=sup;  
         (VV[32]->s.s_dbind)= vs_base[0];  
         goto T376;  
 T376:;  
         if(!(equal((V110),VV[33]))){  
         goto T388;}  
         V110= VV[34];  
         goto T388;  
 T388:;  
         base[1]= (V110);  
         base[2]= (VV[32]->s.s_dbind);  
         base[3]= VV[35];  
         base[4]= Cnil;  
         vs_top=(vs_base=base+1)+4;  
         (void) (*Lnk107)();  
         vs_top=sup;  
         V112= vs_base[0];  
         {object V114;  
         base[1]= VV[36];  
         base[2]= (V112);  
857          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
858          (void) (*Lnk108)();          (void) (*Lnk102)();
859          vs_top=sup;          vs_top=sup;
860          V114= vs_base[0];          V156= vs_base[0];
861          if(((V114))==Cnil){          (VV[32]->s.s_dbind)= make_cons((V156),(VV[32]->s.s_dbind));}
862          goto T398;}          (VV[32]->s.s_dbind)= (*(LnkLI106))((VV[32]->s.s_dbind));
863          base[1]= (V112);          goto T328;
864          base[2]= small_fixnum(0);  T328:;
865          base[3]= (V114);          if(!(equal((V153),VV[33]))){
866          vs_top=(vs_base=base+1)+3;          goto T339;}
867            V153= VV[34];
868            goto T339;
869    T339:;
870            V155= (VFUN_NARGS=4,(*(LnkLI107))((V153),(VV[32]->s.s_dbind),VV[35],Cnil));
871            {object V157;
872            V157= (VFUN_NARGS=2,(*(LnkLI108))(VV[36],(V155)));
873            if(((V157))==Cnil){
874            goto T345;}
875            base[0]= (V155);
876            base[1]= small_fixnum(0);
877            base[2]= (V157);
878            vs_top=(vs_base=base+0)+3;
879          Lsubseq();          Lsubseq();
880          vs_top=sup;          vs_top=sup;
881          V112= vs_base[0];}          V155= vs_base[0];}
882          goto T398;          goto T345;
883  T398:;  T345:;
884          if(((V112))!=Cnil){          if(((V155))!=Cnil){
885          goto T408;}          goto T353;}
886          if(equal((V110),VV[37])){          if(equal((V153),VV[37])){
887          goto T408;}          goto T353;}
888          {object V115;          {object V158;
889          base[3]= VV[38];          base[2]= VV[38];
890            base[3]= Cnil;
891          base[4]= Cnil;          base[4]= Cnil;
892          base[5]= Cnil;          vs_top=(vs_base=base+2)+3;
         vs_top=(vs_base=base+3)+3;  
893          (void) (*Lnk104)();          (void) (*Lnk104)();
894          vs_top=sup;          vs_top=sup;
895          V115= vs_base[0];          V158= vs_base[0];
896          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
897          base[3]= VV[39];          base[2]= VV[39];
898          base[5]= (V110);          base[3]= (*(LnkLI101))((V153));
899          vs_top=(vs_base=base+5)+1;          base[4]= VV[40];
900          (void) (*Lnk101)();          vs_top=(vs_base=base+2)+3;
         vs_top=sup;  
         base[4]= vs_base[0];  
         base[5]= VV[40];  
         vs_top=(vs_base=base+3)+3;  
901          (void) (*Lnk102)();          (void) (*Lnk102)();
902          vs_top=sup;          vs_top=sup;
903          V116= vs_base[0];          V159= vs_base[0];
904          {long V117= fix((VFUN_NARGS=2,(*(LnkLI94))(V116,(V115))));          {long V160= fix((VFUN_NARGS=2,(*(LnkLI94))(V159,(V158))));
905          if(!((/* INLINE-ARGS */V117)>=(0))){          if(!((/* INLINE-ARGS */V160)>=(0))){
906          bds_unwind1;          bds_unwind1;
907          goto T408;}}          goto T353;}}
908          base[3]= (V115);          V155= (*(LnkLI98))((V158),small_fixnum(1));
         base[4]= small_fixnum(1);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk98)();  
         vs_top=sup;  
         V112= vs_base[0];  
909          bds_unwind1;}          bds_unwind1;}
910          goto T408;          goto T353;
911  T408:;  T353:;
912          if(((V112))==Cnil){          if(((V155))==Cnil){
913          goto T429;}          goto T371;}
914          {object V118;          {object V161;
915          base[3]= (V112);          base[2]= (V155);
916          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
917          Ltruename();          Ltruename();
918          vs_top=sup;          vs_top=sup;
919          base[2]= vs_base[0];          base[1]= vs_base[0];
920          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
921          Lnamestring();          Lnamestring();
922          vs_top=sup;          vs_top=sup;
923          V118= vs_base[0];          V161= vs_base[0];
924          {register object x= (V118),V119= (VV[41]->s.s_dbind);          {register object x= (V161),V162= (VV[41]->s.s_dbind);
925          while(V119!=Cnil)          while(V162!=Cnil)
926          if(equal(x,V119->c.c_car->c.c_car) &&V119->c.c_car != Cnil){          if(equal(x,V162->c.c_car->c.c_car) &&V162->c.c_car != Cnil){
927          V111= (V119->c.c_car);          V154= (V162->c.c_car);
928          goto T437;          goto T379;
929          }else V119=V119->c.c_cdr;          }else V162=V162->c.c_cdr;
930          V111= Cnil;}          V154= Cnil;}
931          goto T437;          goto T379;
932  T437:;  T379:;
933          if(((V111))==Cnil){          if(((V154))==Cnil){
934          goto T435;}          goto T377;}
935          (VV[20]->s.s_dbind)= (V111);          (VV[20]->s.s_dbind)= (V154);
936          goto T427;          goto T369;
937          goto T435;          goto T377;
938  T435:;  T377:;
939          base[2]= (V118);          V163= (*(LnkLI109))((V161));
940          vs_top=(vs_base=base+2)+1;          (VV[20]->s.s_dbind)= list(3,(V161),/* INLINE-ARGS */V163,Cnil);
         (void) (*Lnk109)();  
         vs_top=sup;  
         V120= vs_base[0];  
         (VV[20]->s.s_dbind)= list(3,(V118),V120,Cnil);  
941          (VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind));          (VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind));
942          goto T427;}          goto T369;}
943          goto T429;          goto T371;
944  T429:;  T371:;
945          base[1]= Ct;          base[0]= Ct;
946          base[2]= VV[42];          base[1]= VV[42];
947          base[3]= (V110);          base[2]= (V153);
948          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+0)+3;
949          Lformat();          Lformat();
950          vs_top=sup;          vs_top=sup;
951          goto T427;          goto T369;
952  T427:;  T369:;
953          base[1]= Cnil;          {object V164 = Cnil;
954          vs_top=(vs_base=base+1)+1;          VMR14(V164)}}
955          return;}          base[0]=base[0];
956          }          return Cnil;
957  }  }
958  /*      function definition for GET-INFO-CHOICES        */  /*      local entry for function GET-INFO-CHOICES       */
959    
960  static void L15()  static object LI15(V167,V168)
 {register object *base=vs_base;  
         register object *sup=base+VM15; VC15  
         vs_check;  
         {object V121;  
         object V122;  
         V121=(base[0]);  
         V122=(base[1]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         if(!(eql((V122),VV[43]))){  
         goto T448;}  
         base[2]= (V121);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk110)();  
         return;  
         goto T448;  
 T448:;  
         base[2]= (V121);  
         base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk103)();  
         return;  
         }  
 }  
 /*      function definition for ADD-FILE        */  
961    
962  static void L16()  object V167;object V168;
963  {register object *base=vs_base;  {        VMB15 VMS15 VMV15
         register object *sup=base+VM16; VC16  
         vs_check;  
         {object V123;  
         register object V124;  
         V123=(base[0]);  
         V124=(base[1]);  
         vs_top=sup;  
964          goto TTL;          goto TTL;
965  TTL:;  TTL:;
966          {register object V125;          if(!(eql((V168),VV[43]))){
967          V125= (V123);          goto T388;}
968          goto T456;          {object V169 = (*(LnkLI110))((V167));
969  T456:;          VMR15(V169)}
970          if((V125)!=Cnil){          goto T388;
971          goto T458;}  T388:;
972          goto T457;          {object V170 = (*(LnkLI103))((V167),CMPcar(CMPcadr((VV[20]->s.s_dbind))));
973          goto T458;          VMR15(V170)}
974  T458:;          return Cnil;
975          {register object V126;  }
976          register object V127;  /*      local entry for function ADD-FILE       */
977          V126= (V125);  
978          V127= list(2,CMPcar((V125)),(V124));  static object LI16(V173,V174)
979          ((V126))->c.c_car = (V127);}  
980          V125= CMPcdr((V125));  object V173;register object V174;
981          goto T456;  {        VMB16 VMS16 VMV16
982          goto T457;          goto TTL;
983  T457:;  TTL:;
984          goto T454;          {register object V175;
985          goto T454;          V175= (V173);
986          goto T454;          goto T393;
987  T454:;  T393:;
988          base[2]= (V123);          if((V175)!=Cnil){
989          vs_top=(vs_base=base+2)+1;          goto T395;}
990          return;}          goto T394;
991          }          goto T395;
992    T395:;
993            {register object V176;
994            register object V177;
995            V176= (V175);
996            V177= list(2,CMPcar((V175)),(V174));
997            ((V176))->c.c_car = (V177);}
998            V175= CMPcdr((V175));
999            goto T393;
1000            goto T394;
1001    T394:;
1002            goto T391;
1003            goto T391;
1004            goto T391;
1005    T391:;
1006            {object V178 = (V173);
1007            VMR16(V178)}}
1008            base[0]=base[0];
1009            return Cnil;
1010  }  }
1011  /*      function definition for INFO-ERROR      */  /*      function definition for INFO-ERROR      */
1012    
# Line 1201  static void L17() Line 1014  static void L17()
1014  {register object *base=vs_base;  {register object *base=vs_base;
1015          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1016          vs_check;          vs_check;
1017          {object V128;          {object V179;
1018          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1019          {object *p=vs_top;          {object *p=vs_top;
1020           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1021          V128=(base[0]);          V179=(base[0]);
1022          vs_top=sup;          vs_top=sup;
1023          if(((VV[44]->s.s_dbind))==Cnil){          if(((VV[44]->s.s_dbind))==Cnil){
1024          goto T467;}          goto T404;}
1025          base[2]= Cnil;          base[2]= Cnil;
1026          {object V129;          {object V180;
1027          V129= (V128);          V180= (V179);
1028           vs_top=base+3;           vs_top=base+3;
1029           while(V129!=Cnil)           while(V180!=Cnil)
1030           {vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;}           {vs_push((V180)->c.c_car);V180=(V180)->c.c_cdr;}
1031          vs_base=base+2;}          vs_base=base+2;}
1032          Lformat();          Lformat();
1033          vs_top=sup;          vs_top=sup;
# Line 1222  static void L17() Line 1035  static void L17()
1035          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1036          (void) (*Lnk111)();          (void) (*Lnk111)();
1037          return;          return;
1038          goto T467;          goto T404;
1039  T467:;  T404:;
1040          {object V130;          {object V181;
1041          V130= (V128);          V181= (V179);
1042           vs_top=base+1;           vs_top=base+1;
1043           while(V130!=Cnil)           while(V181!=Cnil)
1044           {vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;}           {vs_push((V181)->c.c_car);V181=(V181)->c.c_cdr;}
1045          vs_base=base+1;}          vs_base=base+1;}
1046          Lerror();          Lerror();
1047          return;          return;
1048          }          }
1049  }  }
1050  /*      function definition for INFO-GET-FILE   */  /*      local entry for function INFO-GET-FILE  */
1051    
1052  static void L18()  static object LI18(V183)
1053  {register object *base=vs_base;  
1054          register object *sup=base+VM18; VC18  register object V183;
1055          vs_check;  {        VMB18 VMS18 VMV18
         {register object V131;  
         V131=(base[0]);  
         vs_top=sup;  
1056          goto TTL;          goto TTL;
1057  TTL:;  TTL:;
1058          base[1]= (V131);          base[0]= (V183);
1059          base[2]= CMPcar((VV[20]->s.s_dbind));          base[1]= CMPcar((VV[20]->s.s_dbind));
1060          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
1061          Lmerge_pathnames();          Lmerge_pathnames();
1062          vs_top=sup;          vs_top=sup;
1063          V131= vs_base[0];          V183= vs_base[0];
1064          if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V131)))){          if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V183)))){
1065          goto T479;}          goto T416;}
1066          V132= (VV[45]->s.s_dbind);          V184= (VV[45]->s.s_dbind);
1067          goto T477;          goto T414;
1068          goto T479;          goto T416;
1069  T479:;  T416:;
1070          base[1]= (V131);          V185= (VFUN_NARGS=1,(*(LnkLI93))((V183)));
1071          vs_top=(vs_base=base+1)+1;          (VV[45]->s.s_dbind)= make_cons((V183),/* INLINE-ARGS */V185);
1072          (void) (*Lnk93)();          V184= (VV[45]->s.s_dbind);
1073          vs_top=sup;          goto T414;
1074          V133= vs_base[0];  T414:;
1075          (VV[45]->s.s_dbind)= make_cons((V131),V133);          {object V186 = CMPcdr(V184);
1076          V132= (VV[45]->s.s_dbind);          VMR18(V186)}
1077          goto T477;          base[0]=base[0];
1078  T477:;          return Cnil;
         base[1]= CMPcdr(V132);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         }  
1079  }  }
1080  /*      function definition for WAITING */  /*      function definition for WAITING */
1081    
# Line 1277  static void L19() Line 1083  static void L19()
1083  {register object *base=vs_base;  {register object *base=vs_base;
1084          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1085          vs_check;          vs_check;
1086          {object V134;          {object V187;
1087          V134=(base[0]);          V187=(base[0]);
1088          vs_top=sup;          vs_top=sup;
1089          goto TTL;          goto TTL;
1090  TTL:;  TTL:;
# Line 1286  TTL:; Line 1092  TTL:;
1092          base[1]= Cnil;          base[1]= Cnil;
1093          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1094          return;}          return;}
1095          base[1]= (V134);          base[1]= (V187);
1096          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1097          Lfboundp();          Lfboundp();
1098          vs_top=sup;          vs_top=sup;
1099          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1100          goto T484;}          goto T419;}
1101          base[1]= Cnil;          base[1]= Cnil;
1102          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1103          return;          return;
1104          goto T484;          goto T419;
1105  T484:;  T419:;
1106          base[1]= VV[46];          base[1]= VV[46];
1107          base[2]= (V134);          base[2]= (V187);
1108          base[3]= VV[47];          base[3]= VV[47];
1109          base[4]= VV[48];          base[4]= VV[48];
1110          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1111          (void) (*Lnk112)();          (void) (*Lnk112)();
1112          vs_top=sup;          vs_top=sup;
1113          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1114          goto T487;}          goto T422;}
1115          base[1]= Cnil;          base[1]= Cnil;
1116          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1117          return;          return;
1118          goto T487;          goto T422;
1119  T487:;  T422:;
1120          base[1]= VV[49];          base[1]= VV[49];
1121          base[2]= VV[50];          base[2]= VV[50];
1122          base[3]= VV[51];          base[3]= VV[51];
1123          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1124          super_funcall_no_event((V134));          super_funcall_no_event((V187));
1125          return;          return;
1126          }          }
1127  }  }
# Line 1325  static void L20() Line 1131  static void L20()
1131  {register object *base=vs_base;  {register object *base=vs_base;
1132          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1133          vs_check;          vs_check;
1134          {object V135;          {object V188;
1135          V135=(base[0]);          V188=(base[0]);
1136          vs_top=sup;          vs_top=sup;
1137          goto TTL;          goto TTL;
1138  TTL:;  TTL:;
1139          base[1]= (V135);          base[1]= (V188);
1140          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1141          Lfboundp();          Lfboundp();
1142          vs_top=sup;          vs_top=sup;
1143          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1144          goto T496;}          goto T431;}
1145          base[1]= Cnil;          base[1]= Cnil;
1146          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1147          return;          return;
1148          goto T496;          goto T431;
1149  T496:;  T431:;
1150          base[1]= VV[49];          base[1]= VV[49];
1151          base[2]= VV[50];          base[2]= VV[50];
1152          base[3]= VV[52];          base[3]= VV[52];
1153          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1154          super_funcall_no_event((V135));          super_funcall_no_event((V188));
1155          return;          return;
1156          }          }
1157  }  }
# Line 1355  static void L21() Line 1161  static void L21()
1161  {register object *base=vs_base;  {register object *base=vs_base;
1162          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1163          vs_check;          vs_check;
1164          {register object V136;          {register object V189;
1165          V136=(base[0]);          V189=(base[0]);
1166          vs_top=sup;          vs_top=sup;
1167          goto TTL;          goto TTL;
1168  TTL:;  TTL:;
1169          {object V137;          {object V190;
1170          register object V138;          register object V191;
1171          register object V139;          register object V192;
1172          V137= CMPcdr(CMPcadr((VV[20]->s.s_dbind)));          V190= CMPcdr(CMPcadr((VV[20]->s.s_dbind)));
1173          V138= Cnil;          V191= Cnil;
1174          V139= Cnil;          V192= Cnil;
1175          if((V137)==Cnil){          if((V190)==Cnil){
1176          goto T503;}          goto T438;}
1177          if(number_compare((V136),small_fixnum(0))>=0){          if(number_compare((V189),small_fixnum(0))>=0){
1178          goto T504;}          goto T439;}
1179          goto T503;          goto T438;
1180          goto T504;          goto T439;
1181  T504:;  T439:;
1182          {register object V140;          {register object V193;
1183          register object V141;          register object V194;
1184          V140= (V137);          V193= (V190);
1185          V141= CMPcar((V140));          V194= CMPcar((V193));
1186          goto T509;          goto T444;
1187  T509:;  T444:;
1188          if(!(((V140))==Cnil)){          if(!(((V193))==Cnil)){
1189          goto T510;}          goto T445;}
1190          goto T503;          goto T438;
1191          goto T510;          goto T445;
1192  T510:;  T445:;
1193          if(!(number_compare(CMPcar((V141)),(V136))>0)){          if(!(number_compare(CMPcar((V194)),(V189))>0)){
1194          goto T514;}          goto T449;}
1195          V139= CMPcar((V141));          V192= CMPcar((V194));
1196          goto T503;          goto T438;
1197          goto T514;          goto T449;
1198  T514:;  T449:;
1199          V138= (V141);          V191= (V194);
1200          V140= CMPcdr((V140));          V193= CMPcdr((V193));
1201          V141= CMPcar((V140));          V194= CMPcar((V193));
1202          goto T509;}          goto T444;}
1203          goto T503;          goto T438;
1204  T503:;  T438:;
1205          if((V138)!=Cnil){          if((V191)!=Cnil){
1206          base[1]= (V138);          base[1]= (V191);
1207          goto T526;}          goto T461;}
1208          base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind)));          base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind)));
1209          goto T526;          goto T461;
1210  T526:;  T461:;
1211          base[2]= (V139);          base[2]= (V192);
1212          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1213          return;}          return;}
1214          }          }
1215  }  }
1216  /*      function definition for INFO-NODE-FROM-POSITION */  /*      local entry for function INFO-NODE-FROM-POSITION        */
1217    
1218  static void L22()  static object LI22(V196)
1219  {register object *base=vs_base;  
1220          register object *sup=base+VM22; VC22  object V196;
1221          vs_check;  {        VMB22 VMS22 VMV22
         {object V142;  
         V142=(base[0]);  
         vs_top=sup;  
1222          goto TTL;          goto TTL;
1223  TTL:;  TTL:;
1224          {register object V143;          {register object V197;
1225          V143= small_fixnum(0);          V197= small_fixnum(0);
1226          {object V144;          {object V198;
1227          register object V145;          register object V199;
1228          register object V146;          register object V200;
1229          base[4]= (V142);          base[3]= (V196);
1230          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+3)+1;
1231          (void) (*Lnk113)();          (void) (*Lnk113)();
1232          vs_top=sup;          vs_top=sup;
1233          V144= vs_base[0];          V198= vs_base[0];
1234          base[4]= CMPcdr((V144));          V199= (*(LnkLI114))(CMPcdr((V198)));
1235          vs_top=(vs_base=base+4)+1;          V200= number_minus((V196),CMPcar((V198)));
1236          (void) (*Lnk114)();          goto T470;
1237          vs_top=sup;  T470:;
1238          V145= vs_base[0];          {long V201= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V199),(V197),(V200))));
1239          V146= number_minus((V142),CMPcar((V144)));          if(!((/* INLINE-ARGS */V201)>=(0))){
1240          goto T536;          goto T473;}}
1241  T536:;          goto T472;
1242          {long V147= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V145),(V143),(V146))));          goto T473;
1243          if(!((/* INLINE-ARGS */V147)>=(0))){  T473:;
1244          goto T539;}}          goto T471;
1245          goto T538;          goto T472;
1246          goto T539;  T472:;
1247  T539:;          V197= CMPmake_fixnum((long)(*(LnkLI95))(0));
1248          goto T537;          goto T470;
1249          goto T538;          goto T471;
1250  T538:;  T471:;
1251          V143= CMPmake_fixnum((long)(*(LnkLI95))(0));          goto T468;
1252          goto T536;          goto T468;
1253          goto T537;          goto T468;
1254  T537:;  T468:;
1255          goto T534;          V197= number_minus((V197),small_fixnum(1));
1256          goto T534;          {long V202= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V199),(V197))));
1257          goto T534;          if(!((/* INLINE-ARGS */V202)>=(0))){
1258  T534:;          goto T481;}}
1259          V143= number_minus((V143),small_fixnum(1));          {object V203;
1260          {long V148= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V145),(V143))));          object V204;
1261          if(!((/* INLINE-ARGS */V148)>=(0))){          object V205;
1262          goto T547;}}          object V206;
1263          {object V149;          object V207;
1264          object V150;          V203= CMPmake_fixnum((long)(*(LnkLI97))(0));
1265          object V151;          V204= CMPmake_fixnum((long)(*(LnkLI95))(0));
1266          object V152;          V205= (*(LnkLI98))((V199),small_fixnum(1));
1267          object V153;          {long V208= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V199),(V204))));
1268          V149= CMPmake_fixnum((long)(*(LnkLI96))(0));          if(!((/* INLINE-ARGS */V208)>=(0))){
1269          V150= CMPmake_fixnum((long)(*(LnkLI95))(0));          goto T488;}}
1270          base[9]= (V145);          V206= CMPmake_fixnum((long)(*(LnkLI97))(0));
1271          base[10]= small_fixnum(1);          goto T486;
1272          vs_top=(vs_base=base+9)+2;          goto T488;
1273          (void) (*Lnk98)();  T488:;
1274          vs_top=sup;          V206= CMPmake_fixnum((long)length((V199)));
1275          V151= vs_base[0];          goto T486;
1276          {long V154= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V145),(V150))));  T486:;
1277          if(!((/* INLINE-ARGS */V154)>=(0))){          V207= listA(7,(V199),(V204),(V206),(V203),(V205),(V198),(VV[20]->s.s_dbind));
1278          goto T556;}}          {object V209 = (V207);
1279          V152= CMPmake_fixnum((long)(*(LnkLI96))(0));          VMR22(V209)}}
1280          goto T554;          goto T481;
1281          goto T556;  T481:;
1282  T556:;          {object V210 = Cnil;
1283          V152= CMPmake_fixnum((long)length((V145)));          VMR22(V210)}}}
1284          goto T554;          base[0]=base[0];
1285  T554:;          return Cnil;
         V153= listA(7,(V145),(V150),(V152),(V149),(V151),(V144),(VV[20]->s.s_dbind));  
         base[9]= (V153);  
         vs_top=(vs_base=base+9)+1;  
         return;}  
         goto T547;  
 T547:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;}}  
         }  
1286  }  }
1287  /*      function definition for SHOW-INFO       */  /*      function definition for SHOW-INFO       */
1288    
# Line 1498  static void L23() Line 1291  static void L23()
1291          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1292          vs_check;          vs_check;
1293          bds_check;          bds_check;
1294          {register object V155;          {register object V211;
1295          register object V156;          register object V212;
1296          object V157;          object V213;
1297          V155=(base[0]);          V211=(base[0]);
1298          vs_base=vs_base+1;          vs_base=vs_base+1;
1299          if(vs_base>=vs_top){vs_top=sup;goto T559;}          if(vs_base>=vs_top){vs_top=sup;goto T491;}
1300          V156=(base[1]);          V212=(base[1]);
1301          vs_base++;          vs_base++;
1302          if(vs_base>=vs_top){vs_top=sup;goto T560;}          if(vs_base>=vs_top){vs_top=sup;goto T492;}
1303          V157=(base[2]);          V213=(base[2]);
1304          vs_top=sup;          vs_top=sup;
1305          goto T561;          goto T493;
1306          goto T559;          goto T491;
1307  T559:;  T491:;
1308          V156= Cnil;          V212= Cnil;
1309          goto T560;          goto T492;
1310  T560:;  T492:;
1311          V157= (VV[44]->s.s_dbind);          V213= (VV[44]->s.s_dbind);
1312          goto T561;          goto T493;
1313  T561:;  T493:;
1314          {register object V158;          {register object V214;
1315          register object V159;          register object V215;
1316          register long V160;          register long V216;
1317          long V161;          long V217;
1318          V158= Cnil;          V214= Cnil;
1319          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
1320          V159= Cnil;          V215= Cnil;
1321          V160= 0;          V216= 0;
1322          V161= -1;          V217= -1;
1323          if(!(type_of((V155))==t_cons)){          if(!(type_of((V211))==t_cons)){
1324          goto T569;}          goto T501;}
1325          if(!(type_of(CMPcdr((V155)))==t_cons)){          if(!(type_of(CMPcdr((V211)))==t_cons)){
1326          goto T569;}          goto T501;}
1327          V159= CMPcadr((V155));          V215= CMPcadr((V211));
1328          V155= CMPcar((V155));          V211= CMPcar((V211));
1329          goto T569;          goto T501;
1330  T569:;  T501:;
1331          if(!(type_of((V155))==t_cons)){          if(!(type_of((V211))==t_cons)){
1332          goto T568;}          goto T500;}
1333          V156= CMPcar((V155));          V212= CMPcar((V211));
1334          V155= CMPcdr((V155));          V211= CMPcdr((V211));
1335          goto T568;          goto T500;
1336  T568:;  T500:;
1337          if(!(type_of((V155))==t_string)){          if(!(type_of((V211))==t_string)){
1338          goto T583;}          goto T515;}
1339          goto T582;          goto T514;
1340          goto T583;          goto T515;
1341  T583:;  T515:;
1342          base[4]= VV[56];          base[4]= VV[56];
1343          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1344          (void) (*Lnk99)();          (void) (*Lnk99)();
1345          vs_top=sup;          vs_top=sup;
1346          goto T582;          goto T514;
1347  T582:;  T514:;
1348          base[4]= (VV[57]->s.s_dbind);          base[4]= (VV[57]->s.s_dbind);
1349          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1350          (void) (*Lnk115)();          (void) (*Lnk115)();
1351          vs_top=sup;          vs_top=sup;
1352          {long V162= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V155))));          {long V218= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V211))));
1353          if(!((/* INLINE-ARGS */V162)>=(0))){          if(!((/* INLINE-ARGS */V218)>=(0))){
1354          goto T588;}}          goto T520;}}
1355          base[4]= (V155);          V215= (*(LnkLI98))((V211),small_fixnum(1));
1356          base[5]= small_fixnum(1);          V211= (*(LnkLI98))((V211),small_fixnum(2));
1357          vs_top=(vs_base=base+4)+2;          if(!(equal((V211),VV[59]))){
1358          (void) (*Lnk98)();          goto T520;}
1359          vs_top=sup;          V211= VV[60];
1360          V159= vs_base[0];          goto T520;
1361          base[4]= (V155);  T520:;
1362          base[5]= small_fixnum(2);          if(((V215))==Cnil){
1363          vs_top=(vs_base=base+4)+2;          goto T530;}
1364          (void) (*Lnk98)();          (void)((*(LnkLI116))((V215)));
1365          vs_top=sup;          goto T530;
1366          V155= vs_base[0];  T530:;
1367          if(!(equal((V155),VV[59]))){          {object V219;
1368          goto T588;}          V219= CMPmake_fixnum((long)(*(LnkLI117))((V211),CMPcar(CMPcadr((VV[20]->s.s_dbind)))));
1369          V155= VV[60];          if(((V219))!=Cnil){
1370          goto T588;          goto T534;}
 T588:;  
         if(((V159))==Cnil){  
         goto T602;}  
         base[4]= (V159);  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk116)();  
         vs_top=sup;  
         goto T602;  
 T602:;  
         {object V163;  
         base[4]= (V155);  
         base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind)));  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk117)();  
         vs_top=sup;  
         V163= vs_base[0];  
         if(((V163))!=Cnil){  
         goto T609;}  
1371          base[4]= Ct;          base[4]= Ct;
1372          base[5]= VV[61];          base[5]= VV[61];
1373          base[6]= (V155);          base[6]= (V211);
1374          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1375          Lformat();          Lformat();
1376          vs_top=sup;          vs_top=sup;
# Line 1603  T602:; Line 1378  T602:;
1378          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1379          bds_unwind1;          bds_unwind1;
1380          return;          return;
1381          goto T609;          goto T534;
1382  T609:;  T534:;
1383          base[4]= (V163);          base[4]= (V219);
1384          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1385          (void) (*Lnk113)();          (void) (*Lnk113)();
1386          vs_top=sup;          vs_top=sup;
1387          V158= vs_base[0];          V214= vs_base[0];
1388          {register object V164;          {register object V220;
1389          object V165;          object V221;
1390          base[6]= CMPcdr((V158));          V220= (*(LnkLI114))(CMPcdr((V214)));
1391          vs_top=(vs_base=base+6)+1;          V221= number_minus((V219),CMPcar((V214)));
         (void) (*Lnk114)();  
         vs_top=sup;  
         V164= vs_base[0];  
         V165= number_minus((V163),CMPcar((V158)));  
1392          base[6]= VV[62];          base[6]= VV[62];
1393          base[8]= (V155);          base[7]= (*(LnkLI101))((V211));
         vs_top=(vs_base=base+8)+1;  
         (void) (*Lnk101)();  
         vs_top=sup;  
         base[7]= vs_base[0];  
1394          base[8]= VV[63];          base[8]= VV[63];
1395          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1396          (void) (*Lnk102)();          (void) (*Lnk102)();
1397          vs_top=sup;          vs_top=sup;
1398          V166= vs_base[0];          V222= vs_base[0];
1399          {long V167= fix((VFUN_NARGS=3,(*(LnkLI94))(V166,(V164),(V165))));          {long V223= fix((VFUN_NARGS=3,(*(LnkLI94))(V222,(V220),(V221))));
1400          if(!((/* INLINE-ARGS */V167)>=(0))){          if(!((/* INLINE-ARGS */V223)>=(0))){
1401          goto T623;}}          goto T547;}}
1402          {object V168;          {object V224;
1403          register object V169;          register object V225;
1404          register object V170;          register object V226;
1405          object V171;          object V227;
1406          V168= CMPmake_fixnum((long)(*(LnkLI96))(0));          V224= CMPmake_fixnum((long)(*(LnkLI97))(0));
1407          V169= CMPmake_fixnum((long)(*(LnkLI95))(0));          V225= CMPmake_fixnum((long)(*(LnkLI95))(0));
1408          {long V172= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V164),(V169))));          {long V228= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V220),(V225))));
1409          if(!((/* INLINE-ARGS */V172)>=(0))){          if(!((/* INLINE-ARGS */V228)>=(0))){
1410          goto T634;}}          goto T557;}}
1411          V170= CMPmake_fixnum((long)(*(LnkLI96))(0));          V226= CMPmake_fixnum((long)(*(LnkLI97))(0));
1412          goto T632;          goto T555;
1413          goto T634;          goto T557;
1414  T634:;  T557:;
1415          V170= CMPmake_fixnum((long)length((V164)));          V226= CMPmake_fixnum((long)length((V220)));
1416          goto T632;          goto T555;
1417  T632:;  T555:;
1418          V171= listA(7,(V164),(V169),(V170),(V168),(V155),(V158),(VV[20]->s.s_dbind));          V227= listA(7,(V220),(V225),(V226),(V224),(V211),(V214),(VV[20]->s.s_dbind));
1419          if(((V156))==Cnil){          if(((V212))==Cnil){
1420          goto T637;}          goto T560;}
1421          base[10]= (V156);          V212= (*(LnkLI101))((V212));
         vs_top=(vs_base=base+10)+1;  
         (void) (*Lnk101)();  
         vs_top=sup;  
         V156= vs_base[0];  
1422          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
1423          base[11]= VV[65];          base[11]= VV[65];
1424          base[12]= (V156);          base[12]= (V212);
1425          base[13]= VV[66];          base[13]= VV[66];
1426          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
1427          (void) (*Lnk102)();          (void) (*Lnk102)();
1428          vs_top=sup;          vs_top=sup;
1429          V173= vs_base[0];          V229= vs_base[0];
1430          V161= fix((VFUN_NARGS=4,(*(LnkLI94))(V173,(V164),(V169),(V170))));          V217= fix((VFUN_NARGS=4,(*(LnkLI94))(V229,(V220),(V225),(V226))));
1431          if((V161)>=(0)){          if((V217)>=(0)){
1432          goto T643;}          goto T565;}
1433          {long V174= fix((VFUN_NARGS=4,(*(LnkLI94))((V156),(V164),(V169),(V170))));          {long V230= fix((VFUN_NARGS=4,(*(LnkLI94))((V212),(V220),(V225),(V226))));
1434          if(!((/* INLINE-ARGS */V174)>=(0))){          if(!((/* INLINE-ARGS */V230)>=(0))){
1435          bds_unwind1;          bds_unwind1;
1436          goto T637;}}          goto T560;}}
1437          goto T643;          goto T565;
1438  T643:;  T565:;
1439          V175 = CMPmake_fixnum((long)(*(LnkLI96))(0));          V231 = CMPmake_fixnum((long)(*(LnkLI97))(0));
1440          V160= fix(number_minus(V175,(V169)));          V216= fix(number_minus(V231,(V225)));
1441          bds_unwind1;          bds_unwind1;
1442          goto T637;          goto T560;
1443  T637:;  T560:;
1444          if(((V157))==Cnil){          if(((V213))==Cnil){
1445          goto T654;}          goto T576;}
1446          {object V176;          {object V232;
1447          base[10]= (V171);          base[10]= (V227);
1448          base[11]= CMPmake_fixnum(V160);          base[11]= CMPmake_fixnum(V216);
1449          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1450          (void) (*Lnk118)();          (void) (*Lnk118)();
1451          vs_top=sup;          vs_top=sup;
1452          V176= vs_base[0];          V232= vs_base[0];
1453          base[10]= (VV[57]->s.s_dbind);          base[10]= (VV[57]->s.s_dbind);
1454          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1455          (void) (*Lnk119)();          (void) (*Lnk119)();
1456          vs_top=sup;          vs_top=sup;
1457          base[10]= (V176);          base[10]= (V232);
1458          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1459          bds_unwind1;          bds_unwind1;
1460          return;}          return;}
1461          goto T654;          goto T576;
1462  T654:;  T576:;
1463          {object V177;          {object V233;
1464          if(!((V161)>=(0))){          if(!((V217)>=(0))){
1465          goto T663;}          goto T585;}
1466          base[10]= (V169);          base[10]= (V225);
1467          base[11]= small_fixnum(1);          base[11]= small_fixnum(1);
1468          base[12]= CMPmake_fixnum(V160);          base[12]= CMPmake_fixnum(V216);
1469          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
1470          Lplus();          Lplus();
1471          vs_top=sup;          vs_top=sup;
1472          V178= vs_base[0];          V234= vs_base[0];
1473          {long V179= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V164),V178,(V170))));          {long V235= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V220),V234,(V226))));
1474          if(!((/* INLINE-ARGS */V179)>=(0))){          if(!((/* INLINE-ARGS */V235)>=(0))){
1475          goto T663;}}          goto T585;}}
1476          V177= CMPmake_fixnum((long)(*(LnkLI96))(0));          V233= CMPmake_fixnum((long)(*(LnkLI97))(0));
1477          goto T661;          goto T583;
1478          goto T663;          goto T585;
1479  T663:;  T585:;
1480          V177= (V170);          V233= (V226);
1481          goto T661;          goto T583;
1482  T661:;  T583:;
1483          base[10]= (V164);          base[10]= (V220);
1484          V180 = CMPmake_fixnum(V160);          V236 = CMPmake_fixnum(V216);
1485          base[11]= number_plus(V180,(V169));          base[11]= number_plus(V236,(V225));
1486          base[12]= (V177);          base[12]= (V233);
1487          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
1488          Lsubseq();          Lsubseq();
1489          bds_unwind1;          bds_unwind1;
1490          return;}}          return;}}
1491          goto T623;          goto T547;
1492  T623:;  T547:;
1493          base[6]= VV[68];          base[6]= VV[68];
1494          base[7]= (V155);          base[7]= (V211);
1495          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1496          (void) (*Lnk99)();          (void) (*Lnk99)();
1497          vs_top=sup;          vs_top=sup;
# Line 1739  T623:; Line 1502  T623:;
1502          return;}}}          return;}}}
1503          }          }
1504  }  }
1505  /*      function definition for INFO-AUX        */  /*      local entry for function INFO-AUX       */
1506    
1507  static void L24()  static object LI24(V239,V240)
1508  {register object *base=vs_base;  
1509          register object *sup=base+VM24; VC24  object V239;object V240;
1510          vs_check;  {        VMB24 VMS24 VMV24
         {object V181;  
         object V182;  
         V181=(base[0]);  
         V182=(base[1]);  
         vs_top=sup;  
1511          goto TTL;          goto TTL;
1512  TTL:;  TTL:;
1513          {register object V183;          {register object V241;
1514          register object V184;          register object V242;
1515          V183= Cnil;          V241= Cnil;
1516          V184= (V182);          V242= (V240);
1517          {object V185;          {object V243;
1518          register object V186;          register object V244;
1519          register object V187;          register object V245;
1520          register object V188;          register object V246;
1521          V185= Cnil;          V243= Cnil;
1522          V186= Cnil;          V244= Cnil;
1523          V187= Cnil;          V245= Cnil;
1524          V188= Cnil;          V246= Cnil;
1525          goto T679;          goto T601;
1526  T679:;  T601:;
1527          if(((V184))==Cnil){          if(((V242))==Cnil){
1528          goto T682;}          goto T604;}
1529          goto T681;          goto T603;
1530          goto T682;          goto T604;
1531  T682:;  T604:;
1532          goto T680;          goto T602;
1533          goto T681;          goto T603;
1534  T681:;  T603:;
1535          {object V189;          {object V247;
1536          V189= CMPcar((V184));          V247= CMPcar((V242));
1537          V183= (V189);}          V241= (V247);}
1538          base[2]= (V183);          (void)((*(LnkLI116))((V241)));
1539          vs_top=(vs_base=base+2)+1;          V248= (*(LnkLI121))((V239),VV[69]);
1540          (void) (*Lnk116)();          base[0]= (*(LnkLI120))(/* INLINE-ARGS */V248,(V241));
1541          vs_top=sup;          vs_top=(vs_base=base+0)+1;
         base[4]= (V181);  
         base[5]= VV[69];  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk120)();  
         vs_top=sup;  
         base[3]= vs_base[0];  
         base[4]= (V183);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk121)();  
         vs_top=sup;  
         base[2]= vs_base[0];  
         vs_top=(vs_base=base+2)+1;  
1542          Lcopy_list();          Lcopy_list();
1543          vs_top=sup;          vs_top=sup;
1544          V187= vs_base[0];          V245= vs_base[0];
1545          if(((V186))==Cnil){          if(((V244))==Cnil){
1546          goto T698;}          goto T615;}
1547          {register object V191;          {register object V250;
1548          V191= (V187);          V250= (V245);
1549          (V186)->c.c_cdr = (V191);          (V244)->c.c_cdr = (V250);
1550          if(((V191))!=Cnil){          if(((V250))!=Cnil){
1551          goto T700;}}          goto T617;}}
1552          goto T696;          goto T613;
1553          goto T700;          goto T617;
1554  T700:;  T617:;
1555          base[2]= CMPcdr((V186));          base[0]= CMPcdr((V244));
1556          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
1557          Llast();          Llast();
1558          vs_top=sup;          vs_top=sup;
1559          V186= vs_base[0];          V244= vs_base[0];
1560          goto T696;          goto T613;
1561          goto T698;          goto T615;
1562  T698:;  T615:;
1563          V185= (V187);          V243= (V245);
1564          base[2]= (V185);          base[0]= (V243);
1565          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
1566          Llast();          Llast();
1567          vs_top=sup;          vs_top=sup;
1568          V186= vs_base[0];          V244= vs_base[0];
1569          goto T696;          goto T613;
1570  T696:;  T613:;
1571          base[4]= (V181);          V251= (*(LnkLI121))((V239),VV[43]);
1572          base[5]= VV[43];          base[0]= (*(LnkLI120))(/* INLINE-ARGS */V251,(V241));
1573          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+0)+1;
         (void) (*Lnk120)();  
         vs_top=sup;  
         base[3]= vs_base[0];  
         base[4]= (V183);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk121)();  
         vs_top=sup;  
         base[2]= vs_base[0];  
         vs_top=(vs_base=base+2)+1;  
1574          Lcopy_list();          Lcopy_list();
1575          vs_top=sup;          vs_top=sup;
1576          V188= vs_base[0];          V246= vs_base[0];
1577          if(((V186))==Cnil){          if(((V244))==Cnil){
1578          goto T718;}          goto T631;}
1579          {register object V193;          {register object V253;
1580          V193= (V188);          V253= (V246);
1581          (V186)->c.c_cdr = (V193);          (V244)->c.c_cdr = (V253);
1582          if(((V193))!=Cnil){          if(((V253))!=Cnil){
1583          goto T720;}}          goto T633;}}
1584          goto T716;          goto T629;
1585          goto T720;          goto T633;
1586  T720:;  T633:;
1587          base[2]= CMPcdr((V186));          base[0]= CMPcdr((V244));
1588          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
1589          Llast();          Llast();
1590          vs_top=sup;          vs_top=sup;
1591          V186= vs_base[0];          V244= vs_base[0];
1592          goto T716;          goto T629;
1593          goto T718;          goto T631;
1594  T718:;  T631:;
1595          V185= (V188);          V243= (V246);
1596          base[2]= (V185);          base[0]= (V243);
1597          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
1598          Llast();          Llast();
1599          vs_top=sup;          vs_top=sup;
1600          V186= vs_base[0];          V244= vs_base[0];
1601          goto T716;          goto T629;
1602  T716:;  T629:;
1603          V184= CMPcdr((V184));          V242= CMPcdr((V242));
1604          goto T679;          goto T601;
1605          goto T680;          goto T602;
1606  T680:;  T602:;
1607          base[2]= (V185);          {object V254 = (V243);
1608          vs_top=(vs_base=base+2)+1;          VMR24(V254)}
1609          return;          {object V255 = Cnil;
1610          base[2]= Cnil;          VMR24(V255)}
1611          vs_top=(vs_base=base+2)+1;          {object V256 = Cnil;
1612          return;          VMR24(V256)}}}
1613          base[2]= Cnil;          base[0]=base[0];
1614          vs_top=(vs_base=base+2)+1;          return Cnil;
1615          return;}}  }
1616          }  /*      local entry for function INFO-SEARCH    */
1617  }  
1618  /*      function definition for INFO-SEARCH     */  static object LI25(object V257,object first,...)
1619    {      
1620  static void L25()          va_list ap;
1621  {register object *base=vs_base;          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1622          register object *sup=base+VM25; VC25          {object V258;
1623          vs_check;          register object V259;
1624          {object V194;          register object V260;
1625          register object V195;          va_start(ap,first);
1626          register object V196;          V258= V257;
1627          V194=(base[0]);          narg = narg - 1;
1628          vs_base=vs_base+1;          if (narg <= 0) goto T646;
1629          if(vs_base>=vs_top){vs_top=sup;goto T733;}          else {
1630          V195=(base[1]);          V259= first;}
1631          vs_base++;          if (--narg <= 0) goto T647;
1632          if(vs_base>=vs_top){vs_top=sup;goto T734;}          else {
1633          V196=(base[2]);          V260= va_arg(ap,object);}
1634          vs_top=sup;          --narg; goto T648;
1635          goto T735;          goto T646;
1636          goto T733;  T646:;
1637  T733:;          V259= Cnil;
1638          V195= Cnil;          goto T647;
1639          goto T734;  T647:;
1640  T734:;          V260= Cnil;
1641          V196= Cnil;          goto T648;
1642          goto T735;  T648:;
1643  T735:;          {register object V261;
1644          {register object V197;          V261= Cnil;
1645          V197= Cnil;          if((V259)!=Cnil){
1646          if((V195)!=Cnil){          goto T652;}
1647          goto T739;}          V259= small_fixnum(0);
1648          V195= small_fixnum(0);          goto T652;
1649          goto T739;  T652:;
1650  T739:;          goto T656;
1651          goto T743;  T656:;
1652  T743:;          if((V259)!=Cnil){
1653          if((V195)!=Cnil){          goto T658;}
1654          goto T745;}          goto T657;
1655          goto T744;          goto T658;
1656          goto T745;  T658:;
1657  T745:;          {register object V262;
1658          {register object V198;          register object V263;
1659          register object V199;          base[0]= (V259);
1660          base[3]= (V195);          vs_top=(vs_base=base+0)+1;
         vs_top=(vs_base=base+3)+1;  
1661          (void) (*Lnk113)();          (void) (*Lnk113)();
1662          if(vs_base>=vs_top){vs_top=sup;goto T749;}          if(vs_base>=vs_top){vs_top=sup;goto T662;}
1663          V198= vs_base[0];          V262= vs_base[0];
1664          vs_base++;          vs_base++;
1665          if(vs_base>=vs_top){vs_top=sup;goto T750;}          if(vs_base>=vs_top){vs_top=sup;goto T663;}
1666          V199= vs_base[0];          V263= vs_base[0];
         vs_top=sup;  
         goto T751;  
         goto T749;  
 T749:;  
         V198= Cnil;  
         goto T750;  
 T750:;  
         V199= Cnil;  
         goto T751;  
 T751:;  
         V197= (V199);  
         if((V196)==Cnil){  
         goto T754;}  
         if((V197)==Cnil){  
         goto T754;}  
         if(number_compare((V196),(V197))<0){  
         goto T755;}  
         goto T754;  
         goto T755;  
 T755:;  
         V197= (V196);  
         goto T754;  
 T754:;  
         {register object V200;  
         register object V201;  
         object V202;  
         object V203;  
         base[7]= CMPcdr((V198));  
         vs_top=(vs_base=base+7)+1;  
         (void) (*Lnk114)();  
         vs_top=sup;  
         V200= vs_base[0];  
         V201= CMPcar((V198));  
         V202= number_minus((V195),(V201));  
         V203= CMPmake_fixnum((long)length((V200)));  
         if(((V197))==Cnil){  
         goto T768;}  
         V204= number_minus((V197),(V201));  
         goto T766;  
         goto T768;  
 T768:;  
         V204= (V203);  
         goto T766;  
 T766:;  
         {long V205= fix((VFUN_NARGS=4,(*(LnkLI94))((V194),(V200),(V202),V204)));  
         if(!((/* INLINE-ARGS */V205)>=(0))){  
         goto T758;}}  
         V206 = CMPmake_fixnum((long)(*(LnkLI96))(0));  
         base[7]= number_plus((V201),V206);  
         vs_top=(vs_base=base+7)+1;  
         return;}  
         goto T758;  
 T758:;  
         V195= (V199);}  
         goto T743;  
         goto T744;  
 T744:;  
         goto T741;  
         goto T741;  
         goto T741;  
 T741:;  
         base[3]= small_fixnum(-1);  
         vs_top=(vs_base=base+3)+1;  
         return;}  
         }  
 }  
 /*      function definition for IDESCRIBE       */  
   
 static void L26()  
 {register object *base=vs_base;  
         register object *sup=base+VM26; VC26  
         vs_check;  
         {register object V207;  
         V207=(base[0]);  
1667          vs_top=sup;          vs_top=sup;
1668          goto TTL;          goto T664;
1669  TTL:;          goto T662;
1670          {object V208;  T662:;
1671          base[2]= (V207);          V262= Cnil;
1672          base[3]= (VV[70]->s.s_dbind);          goto T663;
1673          vs_top=(vs_base=base+2)+2;  T663:;
1674          (void) (*Lnk122)();          V263= Cnil;
1675          vs_top=sup;          goto T664;
1676          V208= vs_base[0];  T664:;
1677          {register object V209;          V261= (V263);
1678          register object V210;          if((V260)==Cnil){
1679          V209= (V208);          goto T667;}
1680          V210= CMPcar((V209));          if((V261)==Cnil){
1681          goto T778;          goto T667;}
1682  T778:;          if(number_compare((V260),(V261))<0){
1683          if(!(((V209))==Cnil)){          goto T668;}
1684          goto T779;}          goto T667;
1685          base[3]= Cnil;          goto T668;
1686          vs_top=(vs_base=base+3)+1;  T668:;
1687          return;          V261= (V260);
1688          goto T779;          goto T667;
1689  T779:;  T667:;
1690          if(!(type_of(CMPcar((V210)))==t_cons)){          {register object V264;
1691          goto T787;}          register object V265;
1692          if(!(equalp(CMPcaar((V210)),(V207)))){          object V266;
1693          goto T783;}          object V267;
1694          goto T785;          V264= (*(LnkLI114))(CMPcdr((V262)));
1695          goto T787;          V265= CMPcar((V262));
1696  T787:;          V266= number_minus((V259),(V265));
1697          if(!(equalp(CMPcar((V210)),(V207)))){          V267= CMPmake_fixnum((long)length((V264)));
1698          goto T783;}          if(((V261))==Cnil){
1699          goto T785;          goto T680;}
1700  T785:;          V268= number_minus((V261),(V265));
1701          base[3]= Ct;          goto T678;
1702          base[4]= VV[71];          goto T680;
1703          base[5]= (V210);  T680:;
1704          vs_top=(vs_base=base+3)+3;          V268= (V267);
1705            goto T678;
1706    T678:;
1707            {long V269= fix((VFUN_NARGS=4,(*(LnkLI94))((V258),(V264),(V266),V268)));
1708            if(!((/* INLINE-ARGS */V269)>=(0))){
1709            goto T671;}}
1710            V270 = CMPmake_fixnum((long)(*(LnkLI97))(0));
1711            {object V271 = number_plus((V265),V270);
1712            VMR25(V271)}}
1713            goto T671;
1714    T671:;
1715            V259= (V263);}
1716            goto T656;
1717            goto T657;
1718    T657:;
1719            goto T654;
1720            goto T654;
1721            goto T654;
1722    T654:;
1723            {object V272 = small_fixnum(-1);
1724            VMR25(V272)}}
1725            va_end(ap);
1726            base[0]=base[0];
1727            return Cnil;}
1728            }
1729    /*      local entry for function IDESCRIBE      */
1730    
1731    static object LI26(V274)
1732    
1733    register object V274;
1734    {        VMB26 VMS26 VMV26
1735            goto TTL;
1736    TTL:;
1737            {object V275;
1738            V275= (*(LnkLI122))((V274),(VV[70]->s.s_dbind));
1739            {register object V276;
1740            register object V277;
1741            V276= (V275);
1742            V277= CMPcar((V276));
1743            goto T688;
1744    T688:;
1745            if(!(((V276))==Cnil)){
1746            goto T689;}
1747            {object V278 = Cnil;
1748            VMR26(V278)}
1749            goto T689;
1750    T689:;
1751            if(!(type_of(CMPcar((V277)))==t_cons)){
1752            goto T697;}
1753            if(!(equalp(CMPcaar((V277)),(V274)))){
1754            goto T693;}
1755            goto T695;
1756            goto T697;
1757    T697:;
1758            if(!(equalp(CMPcar((V277)),(V274)))){
1759            goto T693;}
1760            goto T695;
1761    T695:;
1762            base[2]= Ct;
1763            base[3]= VV[71];
1764            base[4]= (V277);
1765            vs_top=(vs_base=base+2)+3;
1766          Lformat();          Lformat();
1767          vs_top=sup;          vs_top=sup;
1768          base[3]= (V210);          base[2]= (V277);
1769            base[3]= Cnil;
1770          base[4]= Cnil;          base[4]= Cnil;
1771          base[5]= Cnil;          vs_top=(vs_base=base+2)+3;
         vs_top=(vs_base=base+3)+3;  
1772          (void) (*Lnk104)();          (void) (*Lnk104)();
1773          vs_top=sup;          vs_top=sup;
1774          V211= vs_base[0];          V279= vs_base[0];
1775          (void)(princ(V211,Cnil));          (void)(princ(V279,Cnil));
1776          goto T783;          goto T693;
1777  T783:;  T693:;
1778          V209= CMPcdr((V209));          V276= CMPcdr((V276));
1779          V210= CMPcar((V209));          V277= CMPcar((V276));
1780          goto T778;}}          goto T688;}}
1781          }          base[0]=base[0];
1782            return Cnil;
1783  }  }
1784  /*      function definition for INFO    */  /*      function definition for INFO    */
1785    
# Line 2064  static void L27() Line 1788  static void L27()
1788          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1789          vs_check;          vs_check;
1790          bds_check;          bds_check;
1791          {object V212;          {object V280;
1792          object V213;          object V281;
1793          V212=(base[0]);          V280=(base[0]);
1794          vs_base=vs_base+1;          vs_base=vs_base+1;
1795          if(vs_base>=vs_top){vs_top=sup;goto T802;}          if(vs_base>=vs_top){vs_top=sup;goto T712;}
1796          V213=(base[1]);          V281=(base[1]);
1797          vs_top=sup;          vs_top=sup;
1798          goto T803;          goto T713;
1799          goto T802;          goto T712;
1800  T802:;  T712:;
1801          V213= (VV[70]->s.s_dbind);          V281= (VV[70]->s.s_dbind);
1802          goto T803;          goto T713;
1803  T803:;  T713:;
1804          {object V214;          {object V282;
1805          register object V215;          register object V283;
1806          object V216;          object V284;
1807          V214= Cnil;          V282= Cnil;
1808          bds_bind(VV[20],Cnil);          bds_bind(VV[20],Cnil);
1809          V215= Cnil;          V283= Cnil;
1810          V216= Cnil;          V284= Cnil;
1811          {object V217;          {object V285;
1812          base[3]= (V212);          V285= (*(LnkLI122))((V280),(V281));
         base[4]= (V213);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk122)();  
         vs_top=sup;  
         V217= vs_base[0];  
1813          if(((VV[44]->s.s_dbind))==Cnil){          if(((VV[44]->s.s_dbind))==Cnil){
1814          goto T812;}          goto T720;}
1815          base[3]= (V217);          base[3]= (V285);
1816          base[4]= (V213);          base[4]= (V281);
1817          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1818          (void) (*Lnk123)();          (void) (*Lnk123)();
1819          bds_unwind1;          bds_unwind1;
1820          return;          return;
1821          goto T812;          goto T720;
1822  T812:;  T720:;
1823          if(((V217))==Cnil){          if(((V285))==Cnil){
1824          goto T817;}          goto T725;}
1825          base[3]= CMPmake_fixnum((long)length((V217)));          base[3]= CMPmake_fixnum((long)length((V285)));
1826          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
1827          {register long V218;          {register long V286;
1828          V218= 0;          V286= 0;
1829          {register object V219;          {register object V287;
1830          register object V220;          register object V288;
1831          V219= Cnil;          V287= Cnil;
1832          V220= (V217);          V288= (V285);
1833          {object V221;          {object V289;
1834          V221= Cnil;          V289= Cnil;
1835          goto T823;          goto T731;
1836  T823:;  T731:;
1837          if(((V220))==Cnil){          if(((V288))==Cnil){
1838          goto T826;}          goto T734;}
1839          goto T825;          goto T733;
1840          goto T826;          goto T734;
1841  T826:;  T734:;
1842          goto T824;          goto T732;
1843          goto T825;          goto T733;
1844  T825:;  T733:;
1845          {object V222;          {object V290;
1846          V222= CMPcar((V220));          V290= CMPcar((V288));
1847          V219= (V222);}          V287= (V290);}
1848          V215= Cnil;          V283= Cnil;
1849          V216= Cnil;          V284= Cnil;
1850          if(!(type_of((V219))==t_cons)){          if(!(type_of((V287))==t_cons)){
1851          goto T836;}          goto T744;}
1852          if(!(type_of(CMPcdr((V219)))==t_cons)){          if(!(type_of(CMPcdr((V287)))==t_cons)){
1853          goto T836;}          goto T744;}
1854          V215= CMPcadr((V219));          V283= CMPcadr((V287));
1855          V219= CMPcar((V219));          V287= CMPcar((V287));
1856          goto T836;          goto T744;
1857  T836:;  T744:;
1858          if(!(type_of((V219))==t_cons)){          if(!(type_of((V287))==t_cons)){
1859          goto T835;}          goto T743;}
1860          V216= CMPcar((V219));          V284= CMPcar((V287));
1861          V219= CMPcdr((V219));          V287= CMPcdr((V287));
1862          goto T835;          goto T743;
1863  T835:;  T743:;
1864          base[4]= Ct;          base[4]= Ct;
1865          base[5]= VV[72];          base[5]= VV[72];
1866          base[6]= CMPmake_fixnum(V218);          base[6]= CMPmake_fixnum(V286);
1867          base[7]= (V216);          base[7]= (V284);
1868          if(!(((V215))==((V221)))){          if(!(((V283))==((V289)))){
1869          goto T856;}          goto T764;}
1870          base[8]= Cnil;          base[8]= Cnil;
1871          goto T854;          goto T762;
1872          goto T856;          goto T764;
1873  T856:;  T764:;
1874          V221= (V215);          V289= (V283);
1875          base[8]= (V221);          base[8]= (V289);
1876          goto T854;          goto T762;
1877  T854:;  T762:;
1878          base[9]= (V219);          base[9]= (V287);
1879          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
1880          Lformat();          Lformat();
1881          vs_top=sup;          vs_top=sup;
1882          if(!((V218)<(2147483646))){          if(!((V286)<(2147483646))){
1883          goto T861;}          goto T769;}
1884          goto T860;          goto T768;
1885          goto T861;          goto T769;
1886  T861:;  T769:;
1887          vs_base=vs_top;          (void)((*(LnkLI124))());
1888          (void) (*Lnk124)();          goto T768;
1889          vs_top=sup;  T768:;
1890          goto T860;          V286= (long)(V286)+(1);
1891  T860:;          V288= CMPcdr((V288));
1892          V218= (long)(V218)+(1);          goto T731;
1893          V220= CMPcdr((V220));          goto T732;
1894          goto T823;  T732:;
1895          goto T824;          goto T728;
1896  T824:;          goto T728;}}}
1897          goto T820;          goto T728;
1898          goto T820;}}}  T728:;
1899          goto T820;          if(!(((long)length((V285)))>(1))){
1900  T820:;          goto T778;}
         if(!(((long)length((V217)))>(1))){  
         goto T870;}  
1901          base[4]= Ct;          base[4]= Ct;
1902          base[5]= VV[74];          base[5]= VV[74];
1903          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1904          Lformat();          Lformat();
1905          vs_top=sup;          vs_top=sup;
1906          goto T868;          goto T776;
1907          goto T870;          goto T778;
1908  T870:;  T778:;
1909          princ_char(10,Cnil);          princ_char(10,Cnil);
1910          goto T868;          goto T776;
1911  T868:;  T776:;
1912          {object V223;          {object V291;
1913          object V224;          object V292;
1914          register object V225;          register object V293;
1915          if(!(((long)length((V217)))>(1))){          if(!(((long)length((V285)))>(1))){
1916          goto T876;}          goto T784;}
1917          vs_base=vs_top;          vs_base=vs_top;
1918          Lread_line();          Lread_line();
1919          vs_top=sup;          vs_top=sup;
1920          V223= vs_base[0];          V291= vs_base[0];
1921          goto T874;          goto T782;
1922          goto T876;          goto T784;
1923  T876:;  T784:;
1924          V223= VV[75];          V291= VV[75];
1925          goto T874;          goto T782;
1926  T874:;  T782:;
1927          V224= small_fixnum(0);          V292= small_fixnum(0);
1928          V225= Cnil;          V293= Cnil;
1929          goto T880;          goto T788;
1930  T880:;  T788:;
1931          if(!(equal((V223),VV[76]))){          if(!(equal((V291),VV[76]))){
1932          goto T883;}          goto T791;}
1933          goto T882;          goto T790;
1934          goto T883;          goto T791;
1935  T883:;  T791:;
1936          goto T881;          goto T789;
1937          goto T882;          goto T790;
1938  T882:;  T790:;
1939          vs_base=vs_top;          vs_base=vs_top;
1940          Lread_line();          Lread_line();
1941          vs_top=sup;          vs_top=sup;
1942          V223= vs_base[0];          V291= vs_base[0];
1943          goto T880;          goto T788;
1944          goto T881;          goto T789;
1945  T881:;  T789:;
1946          goto T878;          goto T786;
1947          goto T878;          goto T786;
1948          goto T878;          goto T786;
1949  T878:;  T786:;
1950          goto T890;          goto T798;
1951  T890:;{object V226;  T798:;{object V294;
1952          base[4]= (V223);          base[4]= (V291);
1953          base[5]= Cnil;          base[5]= Cnil;
1954          base[6]= Cnil;          base[6]= Cnil;
1955          base[7]= VV[77];          base[7]= VV[77];
1956          base[8]= (V224);          base[8]= (V292);
1957          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1958          (void) (*Lnk125)();          (void) (*Lnk125)();
1959          if(vs_base<vs_top){          if(vs_base<vs_top){
1960          V225= vs_base[0];          V293= vs_base[0];
1961          vs_base++;          vs_base++;
1962          }else{          }else{
1963          V225= Cnil;}          V293= Cnil;}
1964          if(vs_base<vs_top){          if(vs_base<vs_top){
1965          V224= vs_base[0];          V292= vs_base[0];
1966          }else{          }else{
1967          V224= Cnil;}          V292= Cnil;}
         vs_top=sup;  
         V226= (V225);  
         if(V226==Cnil)goto T893;  
         goto T892;  
         goto T893;  
 T893:;}  
         goto T891;  
         goto T892;  
 T892:;  
         if(!(type_of((V225))==t_fixnum||  
 type_of((V225))==t_bignum||  
 type_of((V225))==t_ratio||  
 type_of((V225))==t_shortfloat||  
 type_of((V225))==t_longfloat||  
 type_of((V225))==t_complex)){  
         goto T903;}  
         V214= make_cons((V225),(V214));  
         goto T901;  
         goto T903;  
 T903:;  
         V214= (V225);  
         goto T888;  
         goto T901;  
 T901:;  
         goto T890;  
         goto T891;  
 T891:;  
         goto T888;  
         goto T888;  
         goto T888;  
 T888:;  
         if(!(type_of((V214))==t_cons)){  
         goto T911;}  
         V214= nreverse((V214));  
         goto T909;  
         goto T911;  
 T911:;  
         if(!(type_of((V214))==t_symbol)){  
         goto T909;}  
         V227= symbol_name((V214));  
         if(equal(/* INLINE-ARGS */V227,VV[78])){  
         goto T917;}  
         V214= Cnil;  
         goto T916;  
         goto T917;  
 T917:;  
         {register long V228;  
         long V229;  
         V228= 0;  
         {object V230;  
         V230= CMPmake_fixnum((long)length((V217)));{object V231;  
         V231= (type_of((V230))==t_fixnum?Ct:Cnil);  
         if(V231==Cnil)goto T923;  
         goto T922;  
         goto T923;  
 T923:;}  
         vs_base=vs_top;  
         (void) (*Lnk124)();  
         vs_top=sup;  
         goto T922;  
 T922:;  
         V229= fix((V230));}  
         {object V232;  
         register object V233;  
         V232= Cnil;  
         V233= Cnil;  
         goto T926;  
 T926:;  
         if((V228)>=(V229)){  
         goto T929;}  
         goto T928;  
         goto T929;  
 T929:;  
         goto T927;  
         goto T928;  
 T928:;  
         if(((V233))==Cnil){  
         goto T933;}  
         {object V234;  
         object V235;  
         V234= (V233);  
         V236 = CMPmake_fixnum(V228);  
         V233= make_cons(V236,Cnil);  
         V235= (V233);  
         ((V234))->c.c_cdr = (V235);  
         goto T931;}  
         goto T933;  
 T933:;  
         V237 = CMPmake_fixnum(V228);  
         V233= make_cons(V237,Cnil);  
         V232= (V233);  
         goto T931;  
 T931:;  
         V228= (long)(V228)+(1);  
         goto T926;  
         goto T927;  
 T927:;  
         V214= (V232);  
         goto T916;  
         V214= Cnil;  
         goto T916;  
         V214= Cnil;  
         goto T916;}}  
         goto T916;  
 T916:;  
         goto T909;  
 T909:;  
         if(((V214))==Cnil){  
         goto T945;}  
         base[4]=  
         make_cclosure_new(LC31,Cnil,base[3],Cdata);  
         base[5]= (V214);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk126)();  
1968          vs_top=sup;          vs_top=sup;
1969          V214= vs_base[0];          V294= (V293);
1970            if(V294==Cnil)goto T801;
1971            goto T800;
1972            goto T801;
1973    T801:;}
1974            goto T799;
1975            goto T800;
1976    T800:;
1977            if(!(type_of((V293))==t_fixnum||
1978    type_of((V293))==t_bignum||
1979    type_of((V293))==t_ratio||
1980    type_of((V293))==t_shortfloat||
1981    type_of((V293))==t_longfloat||
1982    type_of((V293))==t_complex)){
1983            goto T811;}
1984            V282= make_cons((V293),(V282));
1985            goto T809;
1986            goto T811;
1987    T811:;
1988            V282= (V293);
1989            goto T796;
1990            goto T809;
1991    T809:;
1992            goto T798;
1993            goto T799;
1994    T799:;
1995            goto T796;
1996            goto T796;
1997            goto T796;
1998    T796:;
1999            if(!(type_of((V282))==t_cons)){
2000            goto T819;}
2001            V282= nreverse((V282));
2002            goto T817;
2003            goto T819;
2004    T819:;
2005            if(!(type_of((V282))==t_symbol)){
2006            goto T817;}
2007            V295= symbol_name((V282));
2008            if(equal(/* INLINE-ARGS */V295,VV[78])){
2009            goto T825;}
2010            V282= Cnil;
2011            goto T824;
2012            goto T825;
2013    T825:;
2014            {register long V296;
2015            long V297;
2016            V296= 0;
2017            {object V298;
2018            V298= CMPmake_fixnum((long)length((V285)));{object V299;
2019            V299= (type_of((V298))==t_fixnum?Ct:Cnil);
2020            if(V299==Cnil)goto T831;
2021            goto T830;
2022            goto T831;
2023    T831:;}
2024            (void)((*(LnkLI124))());
2025            goto T830;
2026    T830:;
2027            V297= fix((V298));}
2028            {object V300;
2029            register object V301;
2030            V300= Cnil;
2031            V301= Cnil;
2032            goto T834;
2033    T834:;
2034            if((V296)>=(V297)){
2035            goto T837;}
2036            goto T836;
2037            goto T837;
2038    T837:;
2039            goto T835;
2040            goto T836;
2041    T836:;
2042            if(((V301))==Cnil){
2043            goto T841;}
2044            {object V302;
2045            object V303;
2046            V302= (V301);
2047            V304 = CMPmake_fixnum(V296);
2048            V301= make_cons(V304,Cnil);
2049            V303= (V301);
2050            ((V302))->c.c_cdr = (V303);
2051            goto T839;}
2052            goto T841;
2053    T841:;
2054            V305 = CMPmake_fixnum(V296);
2055            V301= make_cons(V305,Cnil);
2056            V300= (V301);
2057            goto T839;
2058    T839:;
2059            V296= (long)(V296)+(1);
2060            goto T834;
2061            goto T835;
2062    T835:;
2063            V282= (V300);
2064            goto T824;
2065            V282= Cnil;
2066            goto T824;
2067            V282= Cnil;
2068            goto T824;}}
2069            goto T824;
2070    T824:;
2071            goto T817;
2072    T817:;
2073            if(((V282))==Cnil){
2074            goto T853;}
2075            V306=
2076            make_cclosure_new(LC32,Cnil,base[3],Cdata);
2077            V282= (VFUN_NARGS=2,(*(LnkLI126))(V306,(V282)));
2078          base[4]= Ct;          base[4]= Ct;
2079          base[5]= VV[79];          base[5]= VV[79];
2080          base[6]= CMPcar((VV[20]->s.s_dbind));          base[6]= CMPcar((VV[20]->s.s_dbind));
2081          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2082          Lformat();          Lformat();
2083          vs_top=sup;          vs_top=sup;
2084          goto T945;          goto T853;
2085  T945:;  T853:;
2086          {object V238;          {object V307;
2087          register object V239;          register object V308;
2088          V238= Cnil;          V307= Cnil;
2089          V239= (V214);          V308= (V282);
2090          goto T956;          goto T863;
2091  T956:;  T863:;
2092          if(((V239))==Cnil){          if(((V308))==Cnil){
2093          goto T959;}          goto T866;}
2094          goto T958;          goto T865;
2095          goto T959;          goto T866;
2096  T959:;  T866:;
2097          goto T957;          goto T864;
2098          goto T958;          goto T865;
2099  T958:;  T865:;
2100          {object V240;          {object V309;
2101          V240= CMPcar((V239));          V309= CMPcar((V308));
2102          V238= (V240);}          V307= (V309);}
2103          base[4]= nth(fix((V238)),(V217));          base[4]= nth(fix((V307)),(V285));
2104          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2105          (void) (*Lnk104)();          (void) (*Lnk104)();
2106          vs_top=sup;          vs_top=sup;
2107          V241= vs_base[0];          V310= vs_base[0];
2108          (void)(princ(V241,Cnil));          (void)(princ(V310,Cnil));
2109          V239= CMPcdr((V239));          V308= CMPcdr((V308));
2110          goto T956;          goto T863;
2111          goto T957;          goto T864;
2112  T957:;  T864:;
2113          base[4]= Cnil;          base[4]= Cnil;
2114          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2115          bds_unwind1;          bds_unwind1;
# Line 2407  T957:; Line 2118  T957:;
2118          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2119          bds_unwind1;          bds_unwind1;
2120          return;}}          return;}}
2121          goto T817;          goto T725;
2122  T817:;  T725:;
2123          base[3]= Cnil;          base[3]= Cnil;
2124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2125          bds_unwind1;          bds_unwind1;
2126          return;}}          return;}}
2127          }          }
2128  }  }
2129  /*      function definition for DEFAULT-INFO-HOTLIST    */  /*      local entry for function DEFAULT-INFO-HOTLIST   */
2130    
2131  static void L28()  static object LI28()
2132  {register object *base=vs_base;  
2133          register object *sup=base+VM28; VC28  {        VMB28 VMS28 VMV28
         vs_check;  
         vs_top=sup;  
2134          goto TTL;          goto TTL;
2135  TTL:;  TTL:;
2136          base[1]= VV[80];          base[1]= VV[80];
# Line 2435  TTL:; Line 2144  TTL:;
2144          base[0]= vs_base[0];          base[0]= vs_base[0];
2145          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2146          Lnamestring();          Lnamestring();
2147          return;          vs_top=sup;
2148            {object V311 = vs_base[0];
2149            VMR28(V311)}
2150            base[0]=base[0];
2151            return Cnil;
2152  }  }
2153  /*      function definition for ADD-TO-HOTLIST  */  /*      local entry for function ADD-TO-HOTLIST */
2154    
2155  static void L29()  static object LI30(V313)
2156  {register object *VOL base=vs_base;  
2157          register object *VOL sup=base+VM29; VC29  VOL object V313;
2158          vs_check;  {        VMB29 VMS29 VMV29
         vs_top=sup;  
2159          goto TTL;          goto TTL;
2160  TTL:;  TTL:;
2161            base[0]= (V313);
2162          if(!(type_of(base[0])==t_symbol)){          if(!(type_of(base[0])==t_symbol)){
2163          goto T973;}          goto T880;}
2164          {object V242 =(base[0])->s.s_plist;          {object V314 =(base[0])->s.s_plist;
2165           object ind= VV[69];           object ind= VV[69];
2166          while(V242!=Cnil){          while(V314!=Cnil){
2167          if(V242->c.c_car==ind){          if(V314->c.c_car==ind){
2168          base[0]= (V242->c.c_cdr->c.c_car);          base[0]= (V314->c.c_cdr->c.c_car);
2169          goto T976;          goto T883;
2170          }else V242=V242->c.c_cdr->c.c_cdr;}          }else V314=V314->c.c_cdr->c.c_cdr;}
2171          base[0]= Cnil;}          base[0]= Cnil;}
2172          goto T976;          goto T883;
2173  T976:;  T883:;
2174          goto T973;          goto T880;
2175  T973:;  T880:;
2176          if((base[0])==Cnil){          if((base[0])==Cnil){
2177          goto T978;}          goto T885;}
2178          vs_base=vs_top;          base[2]= (*(LnkLI128))();
         (void) (*Lnk128)();  
         vs_top=sup;  
         base[2]= vs_base[0];  
2179          base[3]= VV[81];          base[3]= VV[81];
2180          base[4]= VV[82];          base[4]= VV[82];
2181          base[5]= VV[83];          base[5]= VV[83];
# Line 2484  T973:; Line 2194  T973:;
2194          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2195          Lfile_position();          Lfile_position();
2196          vs_top=sup;          vs_top=sup;
2197          V243= vs_base[0];          V315= vs_base[0];
2198          if(!(number_compare(V243,small_fixnum(10))<0)){          if(!(number_compare(V315,small_fixnum(10))<0)){
2199          goto T989;}          goto T896;}
2200          (void)(princ(VV[87],base[1]));          (void)(princ(VV[87],base[1]));
2201          goto T989;          goto T896;
2202  T989:;  T896:;
2203          base[3]= base[1];          base[3]= base[1];
2204          base[4]= VV[88];          base[4]= VV[88];
2205          base[5]= CMPcaddr(CMPcddddr(base[0]));          base[5]= CMPcaddr(CMPcddddr(base[0]));
# Line 2503  T989:; Line 2213  T989:;
2213          vs_top=sup;          vs_top=sup;
2214          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
2215          if((base[1])==Cnil){          if((base[1])==Cnil){
2216          goto T998;}          goto T905;}
2217          base[3]= base[1];          base[3]= base[1];
2218          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2219          Lclose();          Lclose();
2220          vs_top=sup;          vs_top=sup;
2221          goto T998;          goto T905;
2222  T998:;  T905:;
2223          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2224          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
2225          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
         return;}}  
         goto T978;  
 T978:;  
         base[1]= Cnil;  
         vs_top=(vs_base=base+1)+1;  
         return;  
 }  
 /*      function definition for LIST-MATCHES    */  
   
 static void L30()  
 {register object *base=vs_base;  
         register object *sup=base+VM30; VC30  
         vs_check;  
         {object V244;  
         object V245;  
         V244=(base[0]);  
         vs_base=vs_base+1;  
         vs_top[0]=Cnil;  
         {object *p=vs_top;  
          for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}  
         V245=(base[1]);  
2226          vs_top=sup;          vs_top=sup;
2227          {register object V246;          {object V316 = vs_base[0];
2228          register object V247;          VMR29(V316)}}}
2229          V246= Cnil;          goto T885;
2230          V247= (V245);  T885:;
2231          {object V248;          {object V317 = Cnil;
2232          register object V249;          VMR29(V317)}
2233          register object V250;          base[0]=base[0];
2234          V248= Cnil;          return Cnil;
2235          V249= Cnil;  }
2236          V250= Cnil;  /*      local entry for function LIST-MATCHES   */
2237          goto T1003;  
2238  T1003:;  static object LI31(object V318,object first,...)
2239          if(((V247))==Cnil){  {      
2240          goto T1006;}          va_list ap;
2241          goto T1005;          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
2242          goto T1006;          {object V319;
2243  T1006:;          object V320;
2244          goto T1004;          va_start(ap,first);
2245          goto T1005;          V319= V318;
2246  T1005:;          narg= narg - 1;
2247          {register object V251;          V321 = list_vector_new(narg,first,ap);
2248          V251= CMPcar((V247));          V320= V321;
2249          V246= (V251);}          {register object V322;
2250          {long V252= (long)(*(LnkLI96))(fix((V246)));          register object V323;
2251          if((/* INLINE-ARGS */V252)>=(0)){          V322= Cnil;
2252          goto T1013;}}          V323= (V320);
2253          V250= Cnil;          {object V324;
2254          goto T1012;          register object V325;
2255          goto T1013;          register object V326;
2256  T1013:;          V324= Cnil;
2257          base[2]= (V244);          V325= Cnil;
2258          base[3]= (V246);          V326= Cnil;
2259          vs_top=(vs_base=base+2)+2;          goto T910;
2260          (void) (*Lnk98)();  T910:;
2261          vs_top=sup;          if(((V323))==Cnil){
2262          V250= vs_base[0];          goto T913;}
2263          goto T1012;          goto T912;
2264  T1012:;          goto T913;
2265          if(((V249))==Cnil){  T913:;
2266          goto T1019;}          goto T911;
2267          {register object V253;          goto T912;
2268          register object V254;  T912:;
2269          V253= (V249);          {register object V327;
2270          V249= make_cons((V250),Cnil);          V327= CMPcar((V323));
2271          V254= (V249);          V322= (V327);}
2272          ((V253))->c.c_cdr = (V254);          {long V328= (long)(*(LnkLI97))(fix((V322)));
2273          goto T1017;}          if((/* INLINE-ARGS */V328)>=(0)){
2274          goto T1019;          goto T920;}}
2275  T1019:;          V326= Cnil;
2276          V249= make_cons((V250),Cnil);          goto T919;
2277          V248= (V249);          goto T920;
2278          goto T1017;  T920:;
2279  T1017:;          V326= (*(LnkLI98))((V319),(V322));
2280          V247= CMPcdr((V247));          goto T919;
2281          goto T1003;  T919:;
2282          goto T1004;          if(((V325))==Cnil){
2283  T1004:;          goto T924;}
2284          base[2]= (V248);          {register object V329;
2285          vs_top=(vs_base=base+2)+1;          register object V330;
2286          return;          V329= (V325);
2287          base[2]= Cnil;          V325= make_cons((V326),Cnil);
2288          vs_top=(vs_base=base+2)+1;          V330= (V325);
2289          return;          ((V329))->c.c_cdr = (V330);
2290          base[2]= Cnil;          goto T922;}
2291          vs_top=(vs_base=base+2)+1;          goto T924;
2292          return;}}  T924:;
2293            V325= make_cons((V326),Cnil);
2294            V324= (V325);
2295            goto T922;
2296    T922:;
2297            V323= CMPcdr((V323));
2298            goto T910;
2299            goto T911;
2300    T911:;
2301            {object V331 = (V324);
2302            VMR30(V331)}
2303            {object V332 = Cnil;
2304            VMR30(V332)}
2305            {object V333 = Cnil;
2306            VMR30(V333)}}}
2307            va_end(ap);
2308            base[0]=base[0];
2309            return Cnil;}
2310          }          }
 }  
2311  /*      local function CLOSURE  */  /*      local function CLOSURE  */
2312    
2313  static void LC31(base0)  static void LC32(base0)
2314  register object *base0;  register object *base0;
2315  {       register object *base=vs_base;  {       register object *base=vs_base;
2316          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
2317          vs_check;          vs_check;
2318          {object V255;          {object V334;
2319          V255=(base[0]);          V334=(base[0]);
2320          vs_top=sup;          vs_top=sup;
2321          if(type_of((V255))==t_fixnum||type_of((V255))==t_bignum){          if(type_of((V334))==t_fixnum||type_of((V334))==t_bignum){
2322          goto T1031;}          goto T936;}
2323          base[1]= Cnil;          base[1]= Cnil;
2324          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2325          return;          return;
2326          goto T1031;          goto T936;
2327  T1031:;  T936:;
2328          base[1]= (number_compare((V255),(base0[0]->c.c_car))>=0?Ct:Cnil);          base[1]= (number_compare((V334),(base0[0]->c.c_car))>=0?Ct:Cnil);
2329          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2330          return;          return;
2331          }          }
2332  }  }
2333  static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* DEFAULT-INFO-HOTLIST */  static object  LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* DEFAULT-INFO-HOTLIST */
2334  static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */  static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */
2335  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* REMOVE-IF */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* REMOVE-IF */
2336  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */
2337  static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* TYPE-ERROR */  static object  LnkTLI124(){return call_proc0(VV[124],(void **)(void *)&LnkLI124);} /* TYPE-ERROR */
2338  static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */  static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */
2339  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* INFO-AUX */  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,2,first,ap);va_end(ap);return V1;} /* INFO-AUX */
2340  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ADD-FILE */  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,2,first,ap);va_end(ap);return V1;} /* GET-INFO-CHOICES */
2341  static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* GET-INFO-CHOICES */  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,2,first,ap);va_end(ap);return V1;} /* ADD-FILE */
2342  static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */  static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */
2343  static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */  static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */
2344  static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* GET-NODE-INDEX */  static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,258,first,ap);va_end(ap);return V1;} /* GET-NODE-INDEX */
2345  static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* SETUP-INFO */  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* SETUP-INFO */
2346  static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */  static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */
2347  static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* INFO-GET-FILE */  static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* INFO-GET-FILE */
2348  static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */  static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */
2349  static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */  static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */
2350  static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */  static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */
2351  static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* NODES-FROM-INDEX */  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* NODES-FROM-INDEX */
2352  static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* INFO-GET-TAGS */  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* INFO-GET-TAGS */
2353  static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* SEARCH */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[108],(void **)(void *)&LnkLI108,first,ap);va_end(ap);return V1;} /* SEARCH */
2354  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FILE-SEARCH */  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)(void *)&LnkLI107,first,ap);va_end(ap);return V1;} /* FILE-SEARCH */
2355  static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* FIX-LOAD-PATH */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* FIX-LOAD-PATH */
2356  static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* GET-INDEX-NODE */  static object  LnkTLI105(){return call_proc0(VV[105],(void **)(void *)&LnkLI105);} /* GET-INDEX-NODE */
2357  static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */  static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */
2358  static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* GET-NODES */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,2,first,ap);va_end(ap);return V1;} /* GET-NODES */
2359  static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */  static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */
2360  static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* RE-QUOTE-STRING */  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* RE-QUOTE-STRING */
2361  static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* POSITION */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[100],(void **)(void *)&LnkLI100,first,ap);va_end(ap);return V1;} /* POSITION */
2362  static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */  static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */
2363  static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-MATCH */  static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* GET-MATCH */
2364  static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* ATOI */  static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */
2365  static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */  static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,16642,first,ap);va_end(ap);return V1;} /* ATOI */
2366  static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */  static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */
2367  static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */  static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */
2368  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* FILE-TO-STRING */  static object  LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* FILE-TO-STRING */
2369  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */
2370  static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */  static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */
2371  static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
2372  static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* MAKE-ARRAY */  static object  LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[89],(void **)(void *)&LnkLI89,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
2373    
2374  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2375  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26