/[gcl]/gcl/cmpnew/cmptag.c
ViewVC logotype

Diff of /gcl/cmpnew/cmptag.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmptag.h"  #include "cmptag.h"
4  init_cmptag(){do_init(VV);}  void init_cmptag(){do_init(VV);}
5  /*      local entry for function MAKE-TAG       */  /*      local entry for function MAKE-TAG       */
6    
7  static object LI1(va_alist)  static object LI1(va_alist)
# Line 17  static object LI1(va_alist) Line 17  static object LI1(va_alist)
17          object V6;          object V6;
18          object V7;          object V7;
19          object V8;          object V8;
20          narg= narg - 0;          Vcs[0]=Vcs[0];
21          va_start(ap);          va_start(ap);
22            narg= narg - 0;
23          {          {
24          parse_key_new(narg,Vcs +0,&LI1key,ap);          parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap);
25          V1=(Vcs[0]);          V1=(Vcs[0]);
26          V2=(Vcs[1]);          V2=(Vcs[1]);
27          V3=(Vcs[2]);          V3=(Vcs[2]);
# Line 42  static object LI1(va_alist) Line 43  static object LI1(va_alist)
43          siLmake_structure();          siLmake_structure();
44          vs_top=sup;          vs_top=sup;
45          {object V9 = vs_base[0];          {object V9 = vs_base[0];
46          VMR1(V9)}}          VMR1(V9)}
47            va_end(ap);
48            base[0]=base[0];
49            return Cnil;}
50          }}          }}
51  /*      local entry for function JUMPS-TO-P     */  /*      local entry for function JUMPS-TO-P     */
52    
# Line 50  static object LI2(V12,V13) Line 54  static object LI2(V12,V13)
54    
55  register object V12;object V13;  register object V12;object V13;
56  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
57    goto TTL;
58  TTL:;  TTL:;
59          {object V14;          {object V14;
60          V14= Cnil;          V14= Cnil;
# Line 57  TTL:; Line 62  TTL:;
62          goto T12;}          goto T12;}
63          {object V15 = Cnil;          {object V15 = Cnil;
64          VMR2(V15)}          VMR2(V15)}
65    goto T12;
66  T12:;  T12:;
67          {object V16;          {object V16;
68          if((car((V12)))==(VV[1])){          if((car((V12)))==(VV[1])){
69          goto T15;}          goto T15;}
70          V16= Cnil;          V16= Cnil;
71          goto T14;          goto T14;
72    goto T15;
73  T15:;  T15:;
74          V14= cadddr(cdr((V12)));          V14= cadddr(cdr((V12)));
75          base[0]= (V14);          base[0]= (V14);
# Line 74  T15:; Line 81  T15:;
81          goto T17;}          goto T17;}
82          V16= Cnil;          V16= Cnil;
83          goto T14;          goto T14;
84    goto T17;
85  T17:;  T17:;
86          V17= structure_ref((V14),VV[0],0);          V17= structure_ref((V14),VV[0],0);
87          V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);          V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);
88    goto T14;
89  T14:;  T14:;
90          if(((V16))==Cnil){          if(((V16))==Cnil){
91          goto T23;}          goto T23;}
92          {object V18 = (V16);          {object V18 = (V16);
93          VMR2(V18)}          VMR2(V18)}
94    goto T23;
95  T23:;{object V19;  T23:;{object V19;
96          V19= (*(LnkLI46))(car((V12)),(V13));          V19= (*(LnkLI46))(car((V12)),(V13));
97          if(V19==Cnil)goto T25;          if(V19==Cnil)goto T25;
98          {object V20 = V19;          {object V20 = V19;
99          VMR2(V20)}          VMR2(V20)}
100    goto T25;
101  T25:;}  T25:;}
102          V12= cdr((V12));          V12= cdr((V12));
103          goto TTL;}}          goto TTL;}}
104            base[0]=base[0];
105            return Cnil;
106  }  }
107  /*      local entry for function ADD-REG1       */  /*      local entry for function ADD-REG1       */
108    
# Line 97  static object LI3(V22) Line 110  static object LI3(V22)
110    
111  register object V22;  register object V22;
112  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
113    goto TTL;
114  TTL:;  TTL:;
115          if(!(type_of((V22))!=t_cons)){          if(!(type_of((V22))!=t_cons)){
116          goto T31;}          goto T31;}
# Line 111  TTL:; Line 125  TTL:;
125          V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));          V24 = make_fixnum((/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));
126          {object V25 = structure_set((V22),VV[2],6,V24);          {object V25 = structure_set((V22),VV[2],6,V24);
127          VMR3(V25)}}          VMR3(V25)}}
128    goto T34;
129  T34:;  T34:;
130          {object V26 = Cnil;          {object V26 = Cnil;
131          VMR3(V26)}          VMR3(V26)}
132    goto T31;
133  T31:;  T31:;
134          (void)((*(LnkLI47))(car((V22))));          (void)((*(LnkLI47))(car((V22))));
135          V22= cdr((V22));          V22= cdr((V22));
136          goto TTL;          goto TTL;
137            base[0]=base[0];
138            return Cnil;
139  }  }
140  /*      local entry for function ADD-LOOP-REGISTERS     */  /*      local entry for function ADD-LOOP-REGISTERS     */
141    
# Line 125  static object LI4(V28) Line 143  static object LI4(V28)
143    
144  object V28;  object V28;
145  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
146    goto TTL;
147  TTL:;  TTL:;
148          {register object V29;          {register object V29;
149          register object V30;          register object V30;
# Line 132  TTL:; Line 151  TTL:;
151          V29= (V28);          V29= (V28);
152          V30= Cnil;          V30= Cnil;
153          V31= Cnil;          V31= Cnil;
154    goto T42;
155  T42:;  T42:;
156          if(((V29))!=Cnil){          if(((V29))!=Cnil){
157          goto T43;}          goto T43;}
158          {register object V32;          {register object V32;
159          V32= (V31);          V32= (V31);
160    goto T47;
161  T47:;  T47:;
162          if(!(((V32))==((V30)))){          if(!(((V32))==((V30)))){
163          goto T48;}          goto T48;}
164          {object V33 = (*(LnkLI47))(car((V32)));          {object V33 = (*(LnkLI47))(car((V32)));
165          VMR4(V33)}          VMR4(V33)}
166    goto T48;
167  T48:;  T48:;
168          (void)((*(LnkLI47))(car((V32))));          (void)((*(LnkLI47))(car((V32))));
169          V32= cdr((V32));          V32= cdr((V32));
170          goto T47;}          goto T47;}
171    goto T43;
172  T43:;  T43:;
173          base[0]= car((V29));          base[0]= car((V29));
174          base[1]= VV[0];          base[1]= VV[0];
# Line 157  T43:; Line 180  T43:;
180          if((V31)!=Cnil){          if((V31)!=Cnil){
181          goto T62;}          goto T62;}
182          V31= (V29);          V31= (V29);
183    goto T62;
184  T62:;  T62:;
185          {register object V34;          {register object V34;
186          register object V35;          register object V35;
187          V34= cdr((V29));          V34= cdr((V29));
188          V35= structure_ref(car((V29)),VV[0],0);          V35= structure_ref(car((V29)),VV[0],0);
189    goto T67;
190  T67:;  T67:;
191          if(((V34))!=Cnil){          if(((V34))!=Cnil){
192          goto T68;}          goto T68;}
193          goto T57;          goto T57;
194    goto T68;
195  T68:;  T68:;
196          if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){          if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){
197          goto T72;}          goto T72;}
198          V30= (V34);          V30= (V34);
199    goto T72;
200  T72:;  T72:;
201          V34= cdr((V34));          V34= cdr((V34));
202          goto T67;}          goto T67;}
203    goto T57;
204  T57:;  T57:;
205          V29= cdr((V29));          V29= cdr((V29));
206          goto T42;}          goto T42;}
207            base[0]=base[0];
208            return Cnil;
209  }  }
210  /*      local entry for function C1TAGBODY      */  /*      local entry for function C1TAGBODY      */
211    
# Line 184  static object LI5(V37) Line 214  static object LI5(V37)
214  object V37;  object V37;
215  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
216          bds_check;          bds_check;
217    goto TTL;
218  TTL:;  TTL:;
219          {register object V38;          {register object V38;
220          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
# Line 194  TTL:; Line 225  TTL:;
225          V37= Cnil;          V37= Cnil;
226          goto T84;}          goto T84;}
227          base[2]=V39=MMcons(Cnil,Cnil);          base[2]=V39=MMcons(Cnil,Cnil);
228    goto T85;
229  T85:;  T85:;
230          if(type_of((V40->c.c_car))==t_symbol){          if(type_of((V40->c.c_car))==t_symbol){
231          goto T87;}          goto T87;}
232          if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){          if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){
233          goto T88;}          goto T88;}
234    goto T87;
235  T87:;  T87:;
236          {object V42;          {object V42;
237          V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));          V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
238          (VV[4]->s.s_dbind)= make_cons((V42),(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons((V42),(VV[4]->s.s_dbind));
239          (V39->c.c_car)= (V42);          (V39->c.c_car)= (V42);
240          goto T86;}          goto T86;}
241    goto T88;
242  T88:;  T88:;
243          (V39->c.c_car)= (V40->c.c_car);          (V39->c.c_car)= (V40->c.c_car);
244    goto T86;
245  T86:;  T86:;
246          if(endp(V40=MMcdr(V40))){          if(endp(V40=MMcdr(V40))){
247          V37= base[2];          V37= base[2];
248          goto T84;}          goto T84;}
249          V39=MMcdr(V39)=MMcons(Cnil,Cnil);          V39=MMcdr(V39)=MMcons(Cnil,Cnil);
250          goto T85;}          goto T85;}
251    goto T84;
252  T84:;  T84:;
253          {object V43;          {object V43;
254          object V44= (V37);          object V44= (V37);
# Line 220  T84:; Line 256  T84:;
256          V37= Cnil;          V37= Cnil;
257          goto T96;}          goto T96;}
258          base[2]=V43=MMcons(Cnil,Cnil);          base[2]=V43=MMcons(Cnil,Cnil);
259    goto T97;
260  T97:;  T97:;
261          base[3]= (V44->c.c_car);          base[3]= (V44->c.c_car);
262          base[4]= VV[0];          base[4]= VV[0];
# Line 230  T97:; Line 267  T97:;
267          goto T100;}          goto T100;}
268          (V43->c.c_car)= (V44->c.c_car);          (V43->c.c_car)= (V44->c.c_car);
269          goto T98;          goto T98;
270    goto T100;
271  T100:;  T100:;
272          (V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V38));          (V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V38));
273    goto T98;
274  T98:;  T98:;
275          if(endp(V44=MMcdr(V44))){          if(endp(V44=MMcdr(V44))){
276          V37= base[2];          V37= base[2];
277          goto T96;}          goto T96;}
278          V43=MMcdr(V43)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
279          goto T97;}          goto T97;}
280    goto T96;
281  T96:;  T96:;
282          {register object V46;          {register object V46;
283          register object V47;          register object V47;
# Line 249  T96:; Line 289  T96:;
289          V48= Cnil;          V48= Cnil;
290          V49= Cnil;          V49= Cnil;
291          V50= Cnil;          V50= Cnil;
292    goto T105;
293  T105:;  T105:;
294          if(!(endp((V46)))){          if(!(endp((V46)))){
295          goto T106;}          goto T106;}
# Line 258  T105:; Line 299  T105:;
299          goto T109;}          goto T109;}
300          if(((V48))==Cnil){          if(((V48))==Cnil){
301          goto T110;}          goto T110;}
302    goto T109;
303  T109:;  T109:;
304          V47= reverse((V47));          V47= reverse((V47));
305          if(((V49))!=Cnil){          if(((V49))!=Cnil){
306          goto T119;}          goto T119;}
307          if(((V50))==Cnil){          if(((V50))==Cnil){
308          goto T120;}          goto T120;}
309    goto T119;
310  T119:;  T119:;
311          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
312          goto T118;          goto T118;
313    goto T120;
314  T120:;  T120:;
315          (void)((*(LnkLI51))((V47)));          (void)((*(LnkLI51))((V47)));
316    goto T118;
317  T118:;  T118:;
318          {object V51 = list(5,VV[10],(V38),(V49),(V50),(V47));          {object V51 = list(5,VV[10],(V38),(V49),(V50),(V47));
319          bds_unwind1;          bds_unwind1;
320          VMR5(V51)}          VMR5(V51)}
321    goto T110;
322  T110:;  T110:;
323          V52= (*(LnkLI52))();          V52= (*(LnkLI52))();
324          V53= make_cons(/* INLINE-ARGS */V52,(V47));          V53= make_cons(/* INLINE-ARGS */V52,(V47));
325          {object V54 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V53));          {object V54 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V53));
326          bds_unwind1;          bds_unwind1;
327          VMR5(V54)}          VMR5(V54)}
328    goto T106;
329  T106:;  T106:;
330          base[2]= car((V46));          base[2]= car((V46));
331          base[3]= VV[0];          base[3]= VV[0];
# Line 296  T106:; Line 343  T106:;
343          (void)(structure_set(/* INLINE-ARGS */V55,VV[0],6,/* INLINE-ARGS */V57));          (void)(structure_set(/* INLINE-ARGS */V55,VV[0],6,/* INLINE-ARGS */V57));
344          V50= Ct;          V50= Ct;
345          goto T126;          goto T126;
346    goto T133;
347  T133:;  T133:;
348          if((structure_ref(car((V46)),VV[0],2))==Cnil){          if((structure_ref(car((V46)),VV[0],2))==Cnil){
349          goto T140;}          goto T140;}
# Line 306  T133:; Line 354  T133:;
354          (void)(structure_set(/* INLINE-ARGS */V58,VV[0],6,/* INLINE-ARGS */V60));          (void)(structure_set(/* INLINE-ARGS */V58,VV[0],6,/* INLINE-ARGS */V60));
355          V49= Ct;          V49= Ct;
356          goto T126;          goto T126;
357    goto T140;
358  T140:;  T140:;
359          if((structure_ref(car((V46)),VV[0],1))==Cnil){          if((structure_ref(car((V46)),VV[0],1))==Cnil){
360          goto T126;}          goto T126;}
361          V47= make_cons(car((V46)),(V47));          V47= make_cons(car((V46)),(V47));
362          V48= Ct;          V48= Ct;
363          goto T126;          goto T126;
364    goto T128;
365  T128:;  T128:;
366          V47= make_cons(car((V46)),(V47));          V47= make_cons(car((V46)),(V47));
367    goto T126;
368  T126:;  T126:;
369          V46= cdr((V46));          V46= cdr((V46));
370          goto T105;}}          goto T105;}}
371            base[0]=base[0];
372            return Cnil;
373  }  }
374  /*      local entry for function C2TAGBODY      */  /*      local entry for function C2TAGBODY      */
375    
# Line 324  static object LI6(V64,V65,V66) Line 377  static object LI6(V64,V65,V66)
377    
378  object V64;object V65;object V66;  object V64;object V65;object V66;
379  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
380    goto TTL;
381  TTL:;  TTL:;
382          if(((V65))==Cnil){          if(((V65))==Cnil){
383          goto T156;}          goto T156;}
384          {object V67 = (*(LnkLI54))((V66));          {object V67 = (*(LnkLI54))((V66));
385          VMR6(V67)}          VMR6(V67)}
386    goto T156;
387  T156:;  T156:;
388          if(((V64))==Cnil){          if(((V64))==Cnil){
389          goto T159;}          goto T159;}
390          {object V68 = (*(LnkLI55))((V66));          {object V68 = (*(LnkLI55))((V66));
391          VMR6(V68)}          VMR6(V68)}
392    goto T159;
393  T159:;  T159:;
394          {object V69 = (*(LnkLI56))((V66));          {object V69 = (*(LnkLI56))((V66));
395          VMR6(V69)}          VMR6(V69)}
396            return Cnil;
397  }  }
398  /*      local entry for function C2TAGBODY-LOCAL        */  /*      local entry for function C2TAGBODY-LOCAL        */
399    
# Line 345  static object LI7(V71) Line 402  static object LI7(V71)
402  object V71;  object V71;
403  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
404          bds_check;          bds_check;
405    goto TTL;
406  TTL:;  TTL:;
407          {register object V72;          {register object V72;
408          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
# Line 353  TTL:; Line 411  TTL:;
411          register object V74;          register object V74;
412          V73= (V71);          V73= (V71);
413          V74= car((V73));          V74= car((V73));
414    goto T167;
415  T167:;  T167:;
416          if(!(endp((V73)))){          if(!(endp((V73)))){
417          goto T168;}          goto T168;}
418          goto T163;          goto T163;
419    goto T168;
420  T168:;  T168:;
421          base[2]= (V74);          base[2]= (V74);
422          base[3]= VV[0];          base[3]= VV[0];
# Line 369  T168:; Line 429  T168:;
429          V75= make_cons(symbol_value(VV[12]),Ct);          V75= make_cons(symbol_value(VV[12]),Ct);
430          (void)(structure_set((V74),VV[0],4,/* INLINE-ARGS */V75));          (void)(structure_set((V74),VV[0],4,/* INLINE-ARGS */V75));
431          (void)(structure_set((V74),VV[0],5,(V72)));          (void)(structure_set((V74),VV[0],5,(V72)));
432    goto T172;
433  T172:;  T172:;
434          V73= cdr((V73));          V73= cdr((V73));
435          V74= car((V73));          V74= car((V73));
436          goto T167;}          goto T167;}
437    goto T163;
438  T163:;  T163:;
439          base[1]= make_cons((V72),symbol_value(VV[13]));          base[1]= make_cons((V72),symbol_value(VV[13]));
440          bds_bind(VV[13],base[1]);          bds_bind(VV[13],base[1]);
441          {object V76 = (*(LnkLI57))((V71));          {object V76 = (*(LnkLI57))((V71));
442          bds_unwind1;          bds_unwind1;
443          VMR7(V76)}}          VMR7(V76)}}
444            base[0]=base[0];
445            return Cnil;
446  }  }
447  /*      local entry for function C2TAGBODY-BODY */  /*      local entry for function C2TAGBODY-BODY */
448    
# Line 387  static object LI8(V78) Line 451  static object LI8(V78)
451  object V78;  object V78;
452  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
453          bds_check;          bds_check;
454    goto TTL;
455  TTL:;  TTL:;
456          {register object V79;          {register object V79;
457          register object V80;          register object V80;
458          V79= (V78);          V79= (V78);
459          V80= Cnil;          V80= Cnil;
460    goto T186;
461  T186:;  T186:;
462          if(!(endp(cdr((V79))))){          if(!(endp(cdr((V79))))){
463          goto T187;}          goto T187;}
# Line 399  T186:; Line 465  T186:;
465          goto T191;}          goto T191;}
466          {object V81 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V81 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
467          VMR8(V81)}          VMR8(V81)}
468    goto T191;
469  T191:;  T191:;
470          base[0]= car((V79));          base[0]= car((V79));
471          base[1]= VV[0];          base[1]= VV[0];
# Line 412  T191:; Line 479  T191:;
479          V83= structure_ref(car((V79)),VV[0],4);          V83= structure_ref(car((V79)),VV[0],4);
480          if((cdr(/* INLINE-ARGS */V83))==Cnil){          if((cdr(/* INLINE-ARGS */V83))==Cnil){
481          goto T199;}          goto T199;}
482          princ_str("\nT",VV[14]);          princ_str("\ngoto T",VV[14]);
483          V84= structure_ref(car((V79)),VV[0],4);          V84= structure_ref(car((V79)),VV[0],4);
484          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V84)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V84)));
485            princ_char(59,VV[14]);
486            princ_str("\nT",VV[14]);
487            V85= structure_ref(car((V79)),VV[0],4);
488            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V85)));
489          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
490    goto T199;
491  T199:;  T199:;
492          {object V85 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
493          VMR8(V85)}          VMR8(V86)}
494    goto T194;
495  T194:;  T194:;
496          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
497          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
# Line 432  T194:; Line 505  T194:;
505          bds_unwind1;          bds_unwind1;
506          bds_unwind1;          bds_unwind1;
507          bds_unwind1;          bds_unwind1;
508          goto T205;}          goto T209;}
509            princ_str("\ngoto T",VV[14]);
510            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
511            princ_char(59,VV[14]);
512          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
513          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
514          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
515          bds_unwind1;          bds_unwind1;
516          bds_unwind1;          bds_unwind1;
517          bds_unwind1;          bds_unwind1;
518  T205:;  goto T209;
519    T209:;
520          if((caar((V79)))==(VV[1])){          if((caar((V79)))==(VV[1])){
521          goto T217;}          goto T225;}
522          {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V87 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
         VMR8(V86)}  
 T217:;  
         {object V87 = Cnil;  
523          VMR8(V87)}          VMR8(V87)}
524    goto T225;
525    T225:;
526            {object V88 = Cnil;
527            VMR8(V88)}
528    goto T187;
529  T187:;  T187:;
530          if(((V80))==Cnil){          if(((V80))==Cnil){
531          goto T222;}          goto T230;}
532          V80= Cnil;          V80= Cnil;
533          goto T220;          goto T228;
534  T222:;  goto T230;
535    T230:;
536          base[0]= car((V79));          base[0]= car((V79));
537          base[1]= VV[0];          base[1]= VV[0];
538          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
539          (void) (*Lnk45)();          (void) (*Lnk45)();
540          vs_top=sup;          vs_top=sup;
541          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
542          goto T226;}          goto T234;}
543          V88= structure_ref(car((V79)),VV[0],7);          V89= structure_ref(car((V79)),VV[0],7);
544          (void)((*(LnkLI59))(/* INLINE-ARGS */V88));          (void)((*(LnkLI59))(/* INLINE-ARGS */V89));
         V89= structure_ref(car((V79)),VV[0],4);  
         if((cdr(/* INLINE-ARGS */V89))==Cnil){  
         goto T220;}  
         princ_str("\nT",VV[14]);  
545          V90= structure_ref(car((V79)),VV[0],4);          V90= structure_ref(car((V79)),VV[0],4);
546          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V90)));          if((cdr(/* INLINE-ARGS */V90))==Cnil){
547            goto T228;}
548            princ_str("\ngoto T",VV[14]);
549            V91= structure_ref(car((V79)),VV[0],4);
550            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V91)));
551            princ_char(59,VV[14]);
552            princ_str("\nT",VV[14]);
553            V92= structure_ref(car((V79)),VV[0],4);
554            (void)((*(LnkLI60))(car(/* INLINE-ARGS */V92)));
555          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
556          goto T220;          goto T228;
557  T226:;  goto T234;
558    T234:;
559          base[3]= cadr((V79));          base[3]= cadr((V79));
560          base[4]= VV[0];          base[4]= VV[0];
561          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
562          (void) (*Lnk45)();          (void) (*Lnk45)();
563          vs_top=sup;          vs_top=sup;
564          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
565          goto T238;}          goto T250;}
566          V80= Ct;          V80= Ct;
567          bds_bind(VV[15],structure_ref(cadr((V79)),VV[0],4));          bds_bind(VV[15],structure_ref(cadr((V79)),VV[0],4));
568          goto T236;          goto T248;
569  T238:;  goto T250;
570    T250:;
571          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
572          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
573  T236:;  goto T248;
574    T248:;
575          bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));          bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
576          bds_bind(VV[16],VV[17]);          bds_bind(VV[16],VV[17]);
577          base[3]= car((V79));          base[3]= car((V79));
# Line 497  T236:; Line 584  T236:;
584          (void) (*Lnk45)();          (void) (*Lnk45)();
585          vs_top=sup;          vs_top=sup;
586          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
587          goto T249;}          goto T261;}
588          goto T248;          goto T260;
589  T249:;  goto T261;
590          V91= structure_ref(cadr((V79)),VV[0],7);  T261:;
591          (void)((*(LnkLI59))(/* INLINE-ARGS */V91));          V93= structure_ref(cadr((V79)),VV[0],7);
592  T248:;          (void)((*(LnkLI59))(/* INLINE-ARGS */V93));
593    goto T260;
594    T260:;
595          if((cdr((VV[15]->s.s_dbind)))==Cnil){          if((cdr((VV[15]->s.s_dbind)))==Cnil){
596          bds_unwind1;          bds_unwind1;
597          bds_unwind1;          bds_unwind1;
598          bds_unwind1;          bds_unwind1;
599          goto T220;}          goto T228;}
600            princ_str("\ngoto T",VV[14]);
601            (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
602            princ_char(59,VV[14]);
603          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
604          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
605          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
606          bds_unwind1;          bds_unwind1;
607          bds_unwind1;          bds_unwind1;
608          bds_unwind1;          bds_unwind1;
609  T220:;  goto T228;
610    T228:;
611          V79= cdr((V79));          V79= cdr((V79));
612          goto T186;}          goto T186;}
613            base[0]=base[0];
614            return Cnil;
615  }  }
616  /*      local entry for function C2TAGBODY-CLB  */  /*      local entry for function C2TAGBODY-CLB  */
617    
618  static object LI9(V93)  static object LI9(V95)
619    
620  object V93;  object V95;
621  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
622          bds_check;          bds_check;
623    goto TTL;
624  TTL:;  TTL:;
625          {register object V94;          {register object V96;
626          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
627          V94= make_cons(symbol_value(VV[12]),Cnil);          V96= make_cons(symbol_value(VV[12]),Cnil);
628          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],symbol_value(VV[18]));
629          {register object V95;          {register object V97;
630          base[2]= make_cons(VV[19],symbol_value(VV[13]));          base[2]= make_cons(VV[19],symbol_value(VV[13]));
631          V95= (*(LnkLI62))();          V97= (*(LnkLI62))();
632          bds_bind(VV[13],base[2]);          bds_bind(VV[13],base[2]);
633          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
634          (void)((*(LnkLI63))((V95)));          (void)((*(LnkLI63))((V97)));
635          princ_str("=alloc_frame_id();",VV[14]);          princ_str("=alloc_frame_id();",VV[14]);
636          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
637          (void)((*(LnkLI63))((V95)));          (void)((*(LnkLI63))((V97)));
638          princ_str(");",VV[14]);          princ_str(");",VV[14]);
639          princ_str("\n   if(nlj_active){",VV[14]);          princ_str("\n   if(nlj_active){",VV[14]);
640          princ_str("\n   nlj_active=FALSE;",VV[14]);          princ_str("\n   nlj_active=FALSE;",VV[14]);
641          {register object V96;          {register object V98;
642          register object V97;          register object V99;
643          V96= (V93);          V98= (V95);
644          V97= car((V96));          V99= car((V98));
645  T282:;  goto T298;
646          if(!(endp((V96)))){  T298:;
647          goto T283;}          if(!(endp((V98)))){
648          goto T278;          goto T299;}
649  T283:;          goto T294;
650          base[4]= (V97);  goto T299;
651    T299:;
652            base[4]= (V99);
653          base[5]= VV[0];          base[5]= VV[0];
654          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
655          (void) (*Lnk45)();          (void) (*Lnk45)();
656          vs_top=sup;          vs_top=sup;
657          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
658          goto T287;}          goto T303;}
659          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
660          V98= make_cons(symbol_value(VV[12]),Ct);          V100= make_cons(symbol_value(VV[12]),Ct);
661          (void)(structure_set((V97),VV[0],4,/* INLINE-ARGS */V98));          (void)(structure_set((V99),VV[0],4,/* INLINE-ARGS */V100));
662          (void)(structure_set((V97),VV[0],5,(V94)));          (void)(structure_set((V99),VV[0],5,(V96)));
663          if((structure_ref((V97),VV[0],2))==Cnil){          if((structure_ref((V99),VV[0],2))==Cnil){
664          goto T287;}          goto T303;}
665          (void)(structure_set((V97),VV[0],2,(V95)));          (void)(structure_set((V99),VV[0],2,(V97)));
666          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
667          V99= structure_ref((V97),VV[0],6);          V101= structure_ref((V99),VV[0],6);
668          (void)((*(LnkLI60))(/* INLINE-ARGS */V99));          (void)((*(LnkLI60))(/* INLINE-ARGS */V101));
669          princ_str("]))",VV[14]);          princ_str("]))",VV[14]);
670          V100= structure_ref((V97),VV[0],4);          V102= structure_ref((V99),VV[0],4);
671          if(type_of(/* INLINE-ARGS */V100)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V100);          if(type_of(/* INLINE-ARGS */V102)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V102);
672          (/* INLINE-ARGS */V100)->c.c_cdr = Ct;          (/* INLINE-ARGS */V102)->c.c_cdr = Ct;
673          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
674          V101= structure_ref((V97),VV[0],4);          V103= structure_ref((V99),VV[0],4);
675          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V101)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V103)));
676          princ_char(59,VV[14]);          princ_char(59,VV[14]);
677  T287:;  goto T303;
678          V96= cdr((V96));  T303:;
679          V97= car((V96));          V98= cdr((V98));
680          goto T282;}          V99= car((V98));
681  T278:;          goto T298;}
682    goto T294;
683    T294:;
684          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
685          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
686          base[3]= make_cons((V94),(VV[13]->s.s_dbind));          base[3]= make_cons((V96),(VV[13]->s.s_dbind));
687          bds_bind(VV[13],base[3]);          bds_bind(VV[13],base[3]);
688          {object V102 = (*(LnkLI57))((V93));          {object V104 = (*(LnkLI57))((V95));
689          bds_unwind1;          bds_unwind1;
690          bds_unwind1;          bds_unwind1;
691          bds_unwind1;          bds_unwind1;
692          VMR9(V102)}}}          VMR9(V104)}}}
693            base[0]=base[0];
694            return Cnil;
695  }  }
696  /*      local entry for function C2TAGBODY-CCB  */  /*      local entry for function C2TAGBODY-CCB  */
697    
698  static object LI10(V104)  static object LI10(V106)
699    
700  object V104;  object V106;
701  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
702          bds_check;          bds_check;
703    goto TTL;
704  TTL:;  TTL:;
705          {register object V105;          {register object V107;
706          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
707          V105= make_cons(symbol_value(VV[12]),Cnil);          V107= make_cons(symbol_value(VV[12]),Cnil);
708          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],symbol_value(VV[18]));
709          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
710          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],symbol_value(VV[21]));
711          {register object V106;          {register object V108;
712          register object V107;          register object V109;
713          base[4]= make_cons(VV[19],symbol_value(VV[13]));          base[4]= make_cons(VV[19],symbol_value(VV[13]));
714          V106= (*(LnkLI62))();          V108= (*(LnkLI62))();
715          bds_bind(VV[13],base[4]);          bds_bind(VV[13],base[4]);
716          V107= Cnil;          V109= Cnil;
717          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
718          (void)((*(LnkLI63))((V106)));          (void)((*(LnkLI63))((V108)));
719          princ_str("=alloc_frame_id();",VV[14]);          princ_str("=alloc_frame_id();",VV[14]);
720          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
721          (void)((*(LnkLI63))((V106)));          (void)((*(LnkLI63))((V108)));
722          princ_str("=MMcons(",VV[14]);          princ_str("=MMcons(",VV[14]);
723          (void)((*(LnkLI63))((V106)));          (void)((*(LnkLI63))((V108)));
724          princ_char(44,VV[14]);          princ_char(44,VV[14]);
725          (void)((VFUN_NARGS=0,(*(LnkLI64))()));          (void)((VFUN_NARGS=0,(*(LnkLI64))()));
726          princ_str(");",VV[14]);          princ_str(");",VV[14]);
727          (void)((*(LnkLI65))((V106)));          (void)((*(LnkLI65))((V108)));
728          V107= (*(LnkLI66))();          V109= (*(LnkLI66))();
729          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
730          (void)((*(LnkLI67))((V106)));          (void)((*(LnkLI67))((V108)));
731          princ_str(");",VV[14]);          princ_str(");",VV[14]);
732          princ_str("\n   if(nlj_active){",VV[14]);          princ_str("\n   if(nlj_active){",VV[14]);
733          princ_str("\n   nlj_active=FALSE;",VV[14]);          princ_str("\n   nlj_active=FALSE;",VV[14]);
734          {register object V108;          {register object V110;
735          register object V109;          register object V111;
736          V108= (V104);          V110= (V106);
737          V109= car((V108));          V111= car((V110));
738  T350:;  goto T366;
739          if(!(endp((V108)))){  T366:;
740          goto T351;}          if(!(endp((V110)))){
741          goto T346;          goto T367;}
742  T351:;          goto T362;
743          base[6]= (V109);  goto T367;
744    T367:;
745            base[6]= (V111);
746          base[7]= VV[0];          base[7]= VV[0];
747          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
748          (void) (*Lnk45)();          (void) (*Lnk45)();
749          vs_top=sup;          vs_top=sup;
750          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
751          goto T355;}          goto T371;}
752          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
753          V110= make_cons(symbol_value(VV[12]),Ct);          V112= make_cons(symbol_value(VV[12]),Ct);
754          (void)(structure_set((V109),VV[0],4,/* INLINE-ARGS */V110));          (void)(structure_set((V111),VV[0],4,/* INLINE-ARGS */V112));
755          (void)(structure_set((V109),VV[0],5,(V105)));          (void)(structure_set((V111),VV[0],5,(V107)));
756          if((structure_ref((V109),VV[0],2))!=Cnil){          if((structure_ref((V111),VV[0],2))!=Cnil){
757          goto T363;}          goto T379;}
758          if((structure_ref((V109),VV[0],3))==Cnil){          if((structure_ref((V111),VV[0],3))==Cnil){
759          goto T355;}          goto T371;}
760  T363:;  goto T379;
761          (void)(structure_set((V109),VV[0],2,(V106)));  T379:;
762          if((structure_ref((V109),VV[0],3))==Cnil){          (void)(structure_set((V111),VV[0],2,(V108)));
763          goto T368;}          if((structure_ref((V111),VV[0],3))==Cnil){
764          (void)(structure_set((V109),VV[0],3,(V107)));          goto T384;}
765  T368:;          (void)(structure_set((V111),VV[0],3,(V109)));
766    goto T384;
767    T384:;
768          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
769          V111= structure_ref((V109),VV[0],6);          V113= structure_ref((V111),VV[0],6);
770          (void)((*(LnkLI60))(/* INLINE-ARGS */V111));          (void)((*(LnkLI60))(/* INLINE-ARGS */V113));
771          princ_str("]))",VV[14]);          princ_str("]))",VV[14]);
772          V112= structure_ref((V109),VV[0],4);          V114= structure_ref((V111),VV[0],4);
773          if(type_of(/* INLINE-ARGS */V112)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V112);          if(type_of(/* INLINE-ARGS */V114)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V114);
774          (/* INLINE-ARGS */V112)->c.c_cdr = Ct;          (/* INLINE-ARGS */V114)->c.c_cdr = Ct;
775          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
776          V113= structure_ref((V109),VV[0],4);          V115= structure_ref((V111),VV[0],4);
777          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V113)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V115)));
778          princ_char(59,VV[14]);          princ_char(59,VV[14]);
779  T355:;  goto T371;
780          V108= cdr((V108));  T371:;
781          V109= car((V108));          V110= cdr((V110));
782          goto T350;}          V111= car((V110));
783  T346:;          goto T366;}
784    goto T362;
785    T362:;
786          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);          princ_str("\n   FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
787          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
788          base[5]= make_cons((V105),(VV[13]->s.s_dbind));          base[5]= make_cons((V107),(VV[13]->s.s_dbind));
789          bds_bind(VV[13],base[5]);          bds_bind(VV[13],base[5]);
790          {object V114 = (*(LnkLI57))((V104));          {object V116 = (*(LnkLI57))((V106));
791          bds_unwind1;          bds_unwind1;
792          bds_unwind1;          bds_unwind1;
793          bds_unwind1;          bds_unwind1;
794          bds_unwind1;          bds_unwind1;
795          bds_unwind1;          bds_unwind1;
796          VMR10(V114)}}}          VMR10(V116)}}}
797            base[0]=base[0];
798            return Cnil;
799  }  }
800  /*      local entry for function C1GO   */  /*      local entry for function C1GO   */
801    
802  static object LI11(V116)  static object LI11(V118)
803    
804  object V116;  object V118;
805  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
806    goto TTL;
807  TTL:;  TTL:;
808          if(!(endp((V116)))){          if(!(endp((V118)))){
809          goto T391;}          goto T407;}
810          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));
811          goto T389;          goto T405;
812  T391:;  goto T407;
813          if(endp(cdr((V116)))){  T407:;
814          goto T394;}          if(endp(cdr((V118)))){
815          V117 = make_fixnum(length((V116)));          goto T410;}
816          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V117));          V119 = make_fixnum(length((V118)));
817          goto T389;          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V119));
818  T394:;          goto T405;
819          if(type_of(car((V116)))==t_symbol){  goto T410;
820          goto T389;}  T410:;
821          {object V118= car((V116));          if(type_of(car((V118)))==t_symbol){
         if(type_of(V118)==t_fixnum||type_of(V118)==t_bignum){  
         goto T389;}}  
         (void)(car((V116)));  
 T389:;  
         {register object V119;  
         register object V120;  
         register object V121;  
         register object V122;  
         V119= symbol_value(VV[4]);  
         V120= car((V116));  
         V121= Cnil;  
         V122= Cnil;  
 T404:;  
         if(!(endp((V119)))){  
822          goto T405;}          goto T405;}
823          {object V123 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V120)));          {object V120= car((V118));
824          VMR11(V123)}          if(type_of(V120)==t_fixnum||type_of(V120)==t_bignum){
825            goto T405;}}
826            (void)(car((V118)));
827    goto T405;
828  T405:;  T405:;
829          {object V124= car((V119));          {register object V121;
830          if((V124!= VV[71]))goto T410;          register object V122;
831          V121= Ct;          register object V123;
832          goto T409;          register object V124;
833  T410:;          V121= symbol_value(VV[4]);
834          if((V124!= VV[72]))goto T412;          V122= car((V118));
835          V122= Ct;          V123= Cnil;
836          goto T409;          V124= Cnil;
837  T412:;  goto T420;
838          V125= structure_ref(car((V119)),VV[0],0);  T420:;
839          if(!((/* INLINE-ARGS */V125)==((V120)))){          if(!(endp((V121)))){
840          goto T409;}          goto T421;}
841          {register object V126;          {object V125 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V122)));
842          V126= car((V119));          VMR11(V125)}
843          if(((V121))==Cnil){  goto T421;
844          goto T419;}  T421:;
845          (void)(structure_set((V126),VV[0],3,Ct));          {object V126= car((V121));
846          goto T417;          if((V126!= VV[71]))goto T426;
847  T419:;          V123= Ct;
848          if(((V122))==Cnil){          goto T425;
849          goto T422;}  goto T426;
850          (void)(structure_set((V126),VV[0],2,Ct));  T426:;
851          goto T417;          if((V126!= VV[72]))goto T428;
852  T422:;          V124= Ct;
853          (void)(structure_set((V126),VV[0],1,Ct));          goto T425;
854  T417:;  goto T428;
855          {object V127 = list(5,VV[1],symbol_value(VV[24]),(V122),(V121),(V126));  T428:;
856          VMR11(V127)}}}          V127= structure_ref(car((V121)),VV[0],0);
857  T409:;          if(!((/* INLINE-ARGS */V127)==((V122)))){
858          V119= cdr((V119));          goto T425;}
859          goto T404;}          {register object V128;
860            V128= car((V121));
861            if(((V123))==Cnil){
862            goto T435;}
863            (void)(structure_set((V128),VV[0],3,Ct));
864            goto T433;
865    goto T435;
866    T435:;
867            if(((V124))==Cnil){
868            goto T438;}
869            (void)(structure_set((V128),VV[0],2,Ct));
870            goto T433;
871    goto T438;
872    T438:;
873            (void)(structure_set((V128),VV[0],1,Ct));
874    goto T433;
875    T433:;
876            {object V129 = list(5,VV[1],symbol_value(VV[24]),(V124),(V123),(V128));
877            VMR11(V129)}}}
878    goto T425;
879    T425:;
880            V121= cdr((V121));
881            goto T420;}
882            return Cnil;
883  }  }
884  /*      local entry for function C2GO   */  /*      local entry for function C2GO   */
885    
886  static object LI12(V131,V132,V133)  static object LI12(V133,V134,V135)
887    
888  object V131;object V132;object V133;  object V133;object V134;object V135;
889  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
890    goto TTL;
891  TTL:;  TTL:;
892          if(((V132))==Cnil){          if(((V134))==Cnil){
893          goto T428;}          goto T444;}
894          {object V134 = (*(LnkLI73))((V133));          {object V136 = (*(LnkLI73))((V135));
         VMR12(V134)}  
 T428:;  
         if(((V131))==Cnil){  
         goto T431;}  
         {object V135 = (*(LnkLI74))((V133));  
         VMR12(V135)}  
 T431:;  
         {object V136 = (*(LnkLI75))((V133));  
895          VMR12(V136)}          VMR12(V136)}
896    goto T444;
897    T444:;
898            if(((V133))==Cnil){
899            goto T447;}
900            {object V137 = (*(LnkLI74))((V135));
901            VMR12(V137)}
902    goto T447;
903    T447:;
904            {object V138 = (*(LnkLI75))((V135));
905            VMR12(V138)}
906            return Cnil;
907  }  }
908  /*      local entry for function C2GO-LOCAL     */  /*      local entry for function C2GO-LOCAL     */
909    
910  static object LI13(V138)  static object LI13(V140)
911    
912  object V138;  object V140;
913  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
914    goto TTL;
915  TTL:;  TTL:;
916          V139= structure_ref((V138),VV[0],5);          V141= structure_ref((V140),VV[0],5);
917          (void)((*(LnkLI76))(/* INLINE-ARGS */V139));          (void)((*(LnkLI76))(/* INLINE-ARGS */V141));
918          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
919          V140= structure_ref((V138),VV[0],4);          V142= structure_ref((V140),VV[0],4);
920          if(type_of(/* INLINE-ARGS */V140)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V140);          if(type_of(/* INLINE-ARGS */V142)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V142);
921          (/* INLINE-ARGS */V140)->c.c_cdr = Ct;          (/* INLINE-ARGS */V142)->c.c_cdr = Ct;
922          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
923          V141= structure_ref((V138),VV[0],4);          V143= structure_ref((V140),VV[0],4);
924          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V141)));          (void)((*(LnkLI60))(car(/* INLINE-ARGS */V143)));
925          princ_char(59,VV[14]);          princ_char(59,VV[14]);
926          {object V142 = Cnil;          {object V144 = Cnil;
927          VMR13(V142)}          VMR13(V144)}
928            return Cnil;
929  }  }
930  /*      local entry for function C2GO-CLB       */  /*      local entry for function C2GO-CLB       */
931    
932  static object LI14(V144)  static object LI14(V146)
933    
934  register object V144;  register object V146;
935  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
936    goto TTL;
937  TTL:;  TTL:;
938          princ_str("\n   vs_base=vs_top;",VV[14]);          princ_str("\n   vs_base=vs_top;",VV[14]);
939          princ_str("\n   unwind(frs_sch(",VV[14]);          princ_str("\n   unwind(frs_sch(",VV[14]);
940          if((structure_ref((V144),VV[0],3))==Cnil){          if((structure_ref((V146),VV[0],3))==Cnil){
941          goto T445;}          goto T461;}
942          V145= structure_ref((V144),VV[0],2);          V147= structure_ref((V146),VV[0],2);
943          (void)((*(LnkLI67))(/* INLINE-ARGS */V145));          (void)((*(LnkLI67))(/* INLINE-ARGS */V147));
944          goto T443;          goto T459;
945  T445:;  goto T461;
946          V146= structure_ref((V144),VV[0],2);  T461:;
947          (void)((*(LnkLI63))(/* INLINE-ARGS */V146));          V148= structure_ref((V146),VV[0],2);
948  T443:;          (void)((*(LnkLI63))(/* INLINE-ARGS */V148));
949    goto T459;
950    T459:;
951          princ_str("),VV[",VV[14]);          princ_str("),VV[",VV[14]);
952          V147= structure_ref((V144),VV[0],6);          V149= structure_ref((V146),VV[0],6);
953          (void)((*(LnkLI60))(/* INLINE-ARGS */V147));          (void)((*(LnkLI60))(/* INLINE-ARGS */V149));
954          princ_str("]);",VV[14]);          princ_str("]);",VV[14]);
955          {object V148 = Cnil;          {object V150 = Cnil;
956          VMR14(V148)}          VMR14(V150)}
957            return Cnil;
958  }  }
959  /*      local entry for function C2GO-CCB       */  /*      local entry for function C2GO-CCB       */
960    
961  static object LI15(V150)  static object LI15(V152)
962    
963  object V150;  object V152;
964  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
965    goto TTL;
966  TTL:;  TTL:;
967          princ_str("\n   {frame_ptr fr;",VV[14]);          princ_str("\n   {frame_ptr fr;",VV[14]);
968          princ_str("\n   fr=frs_sch(",VV[14]);          princ_str("\n   fr=frs_sch(",VV[14]);
969          V151= structure_ref((V150),VV[0],3);          V153= structure_ref((V152),VV[0],3);
970          (void)((*(LnkLI77))(/* INLINE-ARGS */V151));          (void)((*(LnkLI77))(/* INLINE-ARGS */V153));
971          princ_str(");",VV[14]);          princ_str(");",VV[14]);
972          princ_str("\n   if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]);          princ_str("\n   if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]);
973          V152= structure_ref((V150),VV[0],6);          V154= structure_ref((V152),VV[0],6);
974          (void)((*(LnkLI60))(/* INLINE-ARGS */V152));          (void)((*(LnkLI60))(/* INLINE-ARGS */V154));
975          princ_str("]);",VV[14]);          princ_str("]);",VV[14]);
976          princ_str("\n   vs_base=vs_top;",VV[14]);          princ_str("\n   vs_base=vs_top;",VV[14]);
977          princ_str("\n   unwind(fr,VV[",VV[14]);          princ_str("\n   unwind(fr,VV[",VV[14]);
978          V153= structure_ref((V150),VV[0],6);          V155= structure_ref((V152),VV[0],6);
979          (void)((*(LnkLI60))(/* INLINE-ARGS */V153));          (void)((*(LnkLI60))(/* INLINE-ARGS */V155));
980          princ_str("]);}",VV[14]);          princ_str("]);}",VV[14]);
981          {object V154 = Cnil;          {object V156 = Cnil;
982          VMR15(V154)}          VMR15(V156)}
983            return Cnil;
984  }  }
985  /*      local entry for function WT-SWITCH-CASE */  /*      local entry for function WT-SWITCH-CASE */
986    
987  static object LI16(V156)  static object LI16(V158)
988    
989  register object V156;  register object V158;
990  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
991    goto TTL;
992  TTL:;  TTL:;
993          if(((V156))==Cnil){          if(((V158))==Cnil){
994          goto T467;}          goto T483;}
995          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
996          if(!(type_of((V156))==t_fixnum)){          if(!(type_of((V158))==t_fixnum)){
997          goto T473;}          goto T489;}
998          V157= VV[25];          V159= VV[25];
999          goto T471;          goto T487;
1000  T473:;  goto T489;
1001          V157= VV[26];  T489:;
1002  T471:;          V159= VV[26];
1003          (void)((*(LnkLI60))(V157));  goto T487;
1004          (void)((*(LnkLI60))((V156)));  T487:;
1005            (void)((*(LnkLI60))(V159));
1006            (void)((*(LnkLI60))((V158)));
1007          princ_char(58,VV[14]);          princ_char(58,VV[14]);
1008          {object V158 = Cnil;          {object V160 = Cnil;
1009          VMR16(V158)}          VMR16(V160)}
1010  T467:;  goto T483;
1011          {object V159 = Cnil;  T483:;
1012          VMR16(V159)}          {object V161 = Cnil;
1013            VMR16(V161)}
1014            return Cnil;
1015  }  }
1016  /*      local entry for function C1SWITCH       */  /*      local entry for function C1SWITCH       */
1017    
1018  static object LI17(V161)  static object LI17(V163)
1019    
1020  object V161;  object V163;
1021  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1022          bds_check;          bds_check;
1023    goto TTL;
1024  TTL:;  TTL:;
1025          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
1026          {object V162;          {object V164;
1027          register object V163;          register object V165;
1028          object V164;          object V166;
1029          V162= car((V161));          V164= car((V163));
1030          V163= cdr((V161));          V165= cdr((V163));
1031          V164= (*(LnkLI78))((V162));          V166= (*(LnkLI78))((V164));
1032          base[4]= cadr((V164));          base[4]= cadr((V166));
1033          base[5]= VV[27];          base[5]= VV[27];
1034          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1035          (void) (*Lnk45)();          (void) (*Lnk45)();
1036          vs_top=sup;          vs_top=sup;
1037          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1038          goto T481;}          goto T497;}
1039          base[4]= structure_ref(cadr((V164)),VV[27],2);          base[4]= structure_ref(cadr((V166)),VV[27],2);
1040          base[5]= VV[28];          base[5]= VV[28];
1041          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1042          (void) (*Lnk79)();          (void) (*Lnk79)();
1043          vs_top=sup;          vs_top=sup;
1044          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1045          goto T481;}{object V165;          goto T497;}{object V167;
1046          {register object x= Ct,V166= (V163);          {register object x= Ct,V168= (V165);
1047          while(!endp(V166))          while(!endp(V168))
1048          if(eql(x,V166->c.c_car)){          if(eql(x,V168->c.c_car)){
1049          V165= V166;          V167= V168;
1050          goto T491;          goto T507;
1051          }else V166=V166->c.c_cdr;          }else V168=V168->c.c_cdr;
1052          V165= Cnil;}          V167= Cnil;}
1053  T491:;  goto T507;
1054          if(V165==Cnil)goto T490;  T507:;
1055          goto T489;          if(V167==Cnil)goto T506;
1056  T490:;}          goto T505;
1057          V167= make_cons(Ct,Cnil);  goto T506;
1058          V163= append((V163),/* INLINE-ARGS */V167);  T506:;}
1059  T489:;          V169= make_cons(Ct,Cnil);
1060          {object V168;          V165= append((V165),/* INLINE-ARGS */V169);
1061          object V169= (V163);  goto T505;
         if(endp(V169)){  
         V163= Cnil;  
         goto T494;}  
         base[4]=V168=MMcons(Cnil,Cnil);  
 T495:;  
         {register object V170;  
         V170= (V169->c.c_car);  
         if(type_of((V170))==t_symbol){  
         goto T497;}  
         if(!(type_of((V170))==t_fixnum||type_of((V170))==t_bignum)){  
         goto T498;}  
 T497:;  
         {register object V171;  
         V171= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V170),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));  
         if(!(type_of((V170))==t_fixnum)){  
         goto T505;}  
         (void)(structure_set((V171),VV[0],1,Ct));  
         (void)(structure_set((V171),VV[0],7,(V170)));  
         goto T503;  
1062  T505:;  T505:;
1063          if(!((Ct)==((V170)))){          {object V170;
1064          goto T503;}          object V171= (V165);
1065          (void)(structure_set((V171),VV[0],1,Ct));          if(endp(V171)){
1066          (void)(structure_set((V171),VV[0],7,VV[29]));          V165= Cnil;
1067  T503:;          goto T510;}
1068          (V168->c.c_car)= (V171);          base[4]=V170=MMcons(Cnil,Cnil);
1069          goto T496;}  goto T511;
1070  T498:;  T511:;
1071          (V168->c.c_car)= (V170);}          {register object V172;
1072  T496:;          V172= (V171->c.c_car);
1073          if(endp(V169=MMcdr(V169))){          if(type_of((V172))==t_symbol){
1074          V163= base[4];          goto T513;}
1075          goto T494;}          if(!(type_of((V172))==t_fixnum||type_of((V172))==t_bignum)){
1076          V168=MMcdr(V168)=MMcons(Cnil,Cnil);          goto T514;}
1077          goto T495;}  goto T513;
1078  T494:;  T513:;
1079          {object V172;          {register object V173;
1080          V173= append((V163),VV[30]);          V173= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V172),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
1081          V172= (*(LnkLI80))(/* INLINE-ARGS */V173);          if(!(type_of((V172))==t_fixnum)){
1082          V174= list(3,VV[31],cadr((V172)),(V164));          goto T521;}
1083          {object V175 = nconc(/* INLINE-ARGS */V174,cddr((V172)));          (void)(structure_set((V173),VV[0],1,Ct));
1084          bds_unwind1;          (void)(structure_set((V173),VV[0],7,(V172)));
1085          VMR17(V175)}}          goto T519;
1086  T481:;  goto T521;
1087          V176= make_cons(VV[31],(V161));  T521:;
1088          V177= (*(LnkLI81))(/* INLINE-ARGS */V176);          if(!((Ct)==((V172)))){
1089          {object V178 = (*(LnkLI78))(/* INLINE-ARGS */V177);          goto T519;}
1090            (void)(structure_set((V173),VV[0],1,Ct));
1091            (void)(structure_set((V173),VV[0],7,VV[29]));
1092    goto T519;
1093    T519:;
1094            (V170->c.c_car)= (V173);
1095            goto T512;}
1096    goto T514;
1097    T514:;
1098            (V170->c.c_car)= (V172);}
1099    goto T512;
1100    T512:;
1101            if(endp(V171=MMcdr(V171))){
1102            V165= base[4];
1103            goto T510;}
1104            V170=MMcdr(V170)=MMcons(Cnil,Cnil);
1105            goto T511;}
1106    goto T510;
1107    T510:;
1108            {object V174;
1109            V175= append((V165),VV[30]);
1110            V174= (*(LnkLI80))(/* INLINE-ARGS */V175);
1111            V176= list(3,VV[31],cadr((V174)),(V166));
1112            {object V177 = nconc(/* INLINE-ARGS */V176,cddr((V174)));
1113          bds_unwind1;          bds_unwind1;
1114          VMR17(V178)}}          VMR17(V177)}}
1115    goto T497;
1116    T497:;
1117            V178= make_cons(VV[31],(V163));
1118            V179= (*(LnkLI81))(/* INLINE-ARGS */V178);
1119            {object V180 = (*(LnkLI78))(/* INLINE-ARGS */V179);
1120            bds_unwind1;
1121            VMR17(V180)}}
1122            base[0]=base[0];
1123            return Cnil;
1124  }  }
1125  /*      local entry for function C2SWITCH       */  /*      local entry for function C2SWITCH       */
1126    
1127  static object LI18(V183,V184,V185,V186)  static object LI18(V185,V186,V187,V188)
1128    
1129  object V183;object V184;object V185;object V186;  object V185;object V186;object V187;object V188;
1130  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1131          bds_check;          bds_check;
1132    goto TTL;
1133  TTL:;  TTL:;
1134          bds_bind(VV[32],small_fixnum(0));          bds_bind(VV[32],small_fixnum(0));
1135          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],symbol_value(VV[18]));
1136          {object V187;          {object V189;
1137          V188= make_cons((V183),Cnil);          V190= make_cons((V185),Cnil);
1138          V187= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V188,VV[33]));          V189= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V190,VV[33]));
1139          base[2]= VV[34];          base[2]= VV[34];
1140          base[3]= (V187);          base[3]= (V189);
1141          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1142          (void) (*Lnk83)();          (void) (*Lnk83)();
1143          vs_top=sup;          vs_top=sup;
1144          if(((V185))==Cnil){          if(((V187))==Cnil){
1145          goto T518;}          goto T534;}
1146          (void)((*(LnkLI54))((V186)));          (void)((*(LnkLI54))((V188)));
1147          goto T516;          goto T532;
1148  T518:;  goto T534;
1149          if(((V184))==Cnil){  T534:;
1150          goto T521;}          if(((V186))==Cnil){
1151          (void)((*(LnkLI55))((V186)));          goto T537;}
1152          goto T516;          (void)((*(LnkLI55))((V188)));
1153  T521:;          goto T532;
1154          (void)((*(LnkLI56))((V186)));  goto T537;
1155  T516:;  T537:;
1156            (void)((*(LnkLI56))((V188)));
1157    goto T532;
1158    T532:;
1159          princ_char(125,VV[14]);          princ_char(125,VV[14]);
1160          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));
1161          {object V189 = (*(LnkLI84))();          {object V191 = (*(LnkLI84))();
1162          bds_unwind1;          bds_unwind1;
1163          bds_unwind1;          bds_unwind1;
1164          VMR18(V189)}}          VMR18(V191)}}
1165            base[0]=base[0];
1166            return Cnil;
1167  }  }
1168  /*      macro definition for SWITCH     */  /*      macro definition for SWITCH     */
1169    
1170  static L19()  static void L19()
1171  {register object *base=vs_base;  {register object *base=vs_base;
1172          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1173          vs_reserve(VM19);          vs_reserve(VM19);
1174          check_arg(2);          check_arg(2);
1175          vs_top=sup;          vs_top=sup;
1176          {object V190=base[0]->c.c_cdr;          {object V192=base[0]->c.c_cdr;
1177          if(endp(V190))invalid_macro_call();          if(endp(V192))invalid_macro_call();
1178          base[2]= (V190->c.c_car);          base[2]= (V192->c.c_car);
1179          V190=V190->c.c_cdr;          V192=V192->c.c_cdr;
1180          base[3]= V190;          base[3]= V192;
1181          base[4]= Cnil;}          base[4]= Cnil;}
1182          {register object V191;          {register object V193;
1183          register object V192;          register object V194;
1184          V191= base[3];          V193= base[3];
1185          V192= car((V191));          V194= car((V193));
1186  T531:;  goto T547;
1187          if(!(endp((V191)))){  T547:;
1188          goto T532;}          if(!(endp((V193)))){
1189          goto T527;          goto T548;}
1190  T532:;          goto T543;
1191          if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){  goto T548;
1192          goto T536;}  T548:;
1193          V193= list(3,VV[36],(V192),base[2]);          if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){
1194          V194= list(4,VV[35],/* INLINE-ARGS */V193,list(2,VV[1],(V192)),Cnil);          goto T552;}
1195          base[4]= make_cons(/* INLINE-ARGS */V194,base[4]);          V195= list(3,VV[36],(V194),base[2]);
1196  T536:;          V196= list(4,VV[35],/* INLINE-ARGS */V195,list(2,VV[1],(V194)),Cnil);
1197          V191= cdr((V191));          base[4]= make_cons(/* INLINE-ARGS */V196,base[4]);
1198          V192= car((V191));  goto T552;
1199          goto T531;}  T552:;
1200  T527:;          V193= cdr((V193));
1201          V195= nreverse(base[4]);          V194= car((V193));
1202            goto T547;}
1203    goto T543;
1204    T543:;
1205            V197= nreverse(base[4]);
1206          base[5]= base[3];          base[5]= base[3];
1207          {register object x= Ct,V197= base[3];          {register object x= Ct,V199= base[3];
1208          while(!endp(V197))          while(!endp(V199))
1209          if(eql(x,V197->c.c_car)){          if(eql(x,V199->c.c_car)){
1210          goto T550;          goto T566;
1211          }else V197=V197->c.c_cdr;          }else V199=V199->c.c_cdr;
1212          goto T549;}          goto T565;}
1213  T550:;  goto T566;
1214    T566:;
1215          base[6]= Cnil;          base[6]= Cnil;
1216          goto T547;          goto T563;
1217  T549:;  goto T565;
1218    T565:;
1219          base[6]= VV[38];          base[6]= VV[38];
1220  T547:;  goto T563;
1221    T563:;
1222          base[7]= VV[39];          base[7]= VV[39];
1223          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1224          Lappend();          Lappend();
1225          vs_top=sup;          vs_top=sup;
1226          V196= vs_base[0];          V198= vs_base[0];
1227          V198= make_cons(VV[37],V196);          V200= make_cons(VV[37],V198);
1228          V199= append(/* INLINE-ARGS */V195,/* INLINE-ARGS */V198);          V201= append(/* INLINE-ARGS */V197,/* INLINE-ARGS */V200);
1229          base[5]= make_cons(VV[10],/* INLINE-ARGS */V199);          base[5]= make_cons(VV[10],/* INLINE-ARGS */V201);
1230          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1231          return;          return;
1232  }  }
1233  /*      macro definition for SWITCH-FINISH      */  /*      macro definition for SWITCH-FINISH      */
1234    
1235  static L20()  static void L20()
1236  {register object *base=vs_base;  {register object *base=vs_base;
1237          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1238          vs_reserve(VM20);          vs_reserve(VM20);
1239          check_arg(2);          check_arg(2);
1240          vs_top=sup;          vs_top=sup;
1241          {object V200=base[0]->c.c_cdr;          {object V202=base[0]->c.c_cdr;
1242          if(!endp(V200))invalid_macro_call();}          if(!endp(V202))invalid_macro_call();}
1243          base[2]= VV[40];          base[2]= VV[40];
1244          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1245          return;          return;
1246  }  }
1247  static object  LnkTLI84(){return call_proc0(VV[84],&LnkLI84);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI84(){return call_proc0(VV[84],(void **)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */
1248  static LnkT83(){ call_or_link(VV[83],&Lnk83);} /* WT-INLINE-LOC */  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* WT-INLINE-LOC */
1249  static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* INLINE-ARGS */  static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],(void **)&LnkLI82,ap);} /* INLINE-ARGS */
1250  static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* CMP-MACROEXPAND-1 */  static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],(void **)&LnkLI81,1,ap);} /* CMP-MACROEXPAND-1 */
1251  static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* C1TAGBODY */  static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,1,ap);} /* C1TAGBODY */
1252  static LnkT79(){ call_or_link(VV[79],&Lnk79);} /* SUBTYPEP */  static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SUBTYPEP */
1253  static object  LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],&LnkLI78,1,ap);} /* C1EXPR */  static object  LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],(void **)&LnkLI78,1,ap);} /* C1EXPR */
1254  static object  LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* WT-CCB-VS */  static object  LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],(void **)&LnkLI77,1,ap);} /* WT-CCB-VS */
1255  static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],(void **)&LnkLI76,1,ap);} /* UNWIND-NO-EXIT */
1256  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* C2GO-LOCAL */  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* C2GO-LOCAL */
1257  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* C2GO-CLB */  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* C2GO-CLB */
1258  static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* C2GO-CCB */  static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* C2GO-CCB */
1259  static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* CMPERR */  static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],(void **)&LnkLI70,ap);} /* CMPERR */
1260  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,3,ap);} /* TOO-MANY-ARGS */
1261  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,3,ap);} /* TOO-FEW-ARGS */
1262  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,1,ap);} /* WT-VS* */  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,1,ap);} /* WT-VS* */
1263  static object  LnkTLI66(){return call_proc0(VV[66],&LnkLI66);} /* CCB-VS-PUSH */  static object  LnkTLI66(){return call_proc0(VV[66],(void **)&LnkLI66);} /* CCB-VS-PUSH */
1264  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* CLINK */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,1,ap);} /* CLINK */
1265  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WT-CLINK */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],(void **)&LnkLI64,ap);} /* WT-CLINK */
1266  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* WT-VS */  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],(void **)&LnkLI63,1,ap);} /* WT-VS */
1267  static object  LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* VS-PUSH */  static object  LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* VS-PUSH */
1268  static LnkT61(){ call_or_link(VV[61],&Lnk61);} /* C2EXPR */  static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* C2EXPR */
1269  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,1,ap);} /* WT1 */  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,1,ap);} /* WT1 */
1270  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-SWITCH-CASE */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,1,ap);} /* WT-SWITCH-CASE */
1271  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],&LnkLI58,ap);} /* UNWIND-EXIT */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],(void **)&LnkLI58,ap);} /* UNWIND-EXIT */
1272  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C2TAGBODY-BODY */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* C2TAGBODY-BODY */
1273  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* C2TAGBODY-LOCAL */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* C2TAGBODY-LOCAL */
1274  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,1,ap);} /* C2TAGBODY-CLB */  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,1,ap);} /* C2TAGBODY-CLB */
1275  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* C2TAGBODY-CCB */  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* C2TAGBODY-CCB */
1276  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ADD-OBJECT */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* ADD-OBJECT */
1277  static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1NIL */  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1NIL */
1278  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* ADD-LOOP-REGISTERS */  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* ADD-LOOP-REGISTERS */
1279  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,2,ap);} /* C1EXPR* */
1280  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],&LnkLI49,ap);} /* MAKE-TAG */  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],(void **)&LnkLI49,ap);} /* MAKE-TAG */
1281  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */
1282  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* ADD-REG1 */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,1,ap);} /* ADD-REG1 */
1283  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,2,ap);} /* JUMPS-TO-P */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,2,ap);} /* JUMPS-TO-P */
1284  static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* STRUCTURE-SUBTYPE-P */  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* STRUCTURE-SUBTYPE-P */
1285    
1286  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1287  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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