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

Diff of /gcl/lsp/defpackage.c

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

revision 1.5 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.6 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "defpackage.h"  #include "defpackage.h"
4  init_defpackage(){do_init(VV);}  void init_defpackage(){do_init(VV);}
5  /*      macro definition for DEFPACKAGE */  /*      macro definition for DEFPACKAGE */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 19  static L1() Line 19  static L1()
19          register object V3;          register object V3;
20          V2= Cnil;          V2= Cnil;
21          V3= base[3];          V3= base[3];
22    goto T3;
23  T3:;  T3:;
24          if(((V3))==Cnil){          if(((V3))==Cnil){
25          goto T6;}          goto T6;}
26          goto T5;          goto T5;
27    goto T6;
28  T6:;  T6:;
29          goto T4;          goto T4;
30    goto T5;
31  T5:;  T5:;
32          {register object V4;          {register object V4;
33          V4= car((V3));          V4= car((V3));
# Line 40  T5:; Line 43  T5:;
43          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
44          Lcerror();          Lcerror();
45          vs_top=sup;          vs_top=sup;
46    goto T11;
47  T11:;  T11:;
48          V3= cdr((V3));          V3= cdr((V3));
49          goto T3;          goto T3;
50    goto T4;
51  T4:;  T4:;
52          goto T1;          goto T1;
53          goto T1;}          goto T1;}
54    goto T1;
55  T1:;  T1:;
56          base[4]=MMcons(Cnil,Cnil);          base[4]=MMcons(Cnil,Cnil);
57          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);
# Line 53  T1:; Line 59  T1:;
59          register object V7;          register object V7;
60          V6= Cnil;          V6= Cnil;
61          V7= VV[3];          V7= VV[3];
62    goto T22;
63  T22:;  T22:;
64          if(((V7))==Cnil){          if(((V7))==Cnil){
65          goto T25;}          goto T25;}
66          goto T24;          goto T24;
67    goto T25;
68  T25:;  T25:;
69          goto T23;          goto T23;
70    goto T24;
71  T24:;  T24:;
72          {register object V8;          {register object V8;
73          V8= car((V7));          V8= car((V7));
# Line 74  T24:; Line 83  T24:;
83          vs_top=sup;          vs_top=sup;
84          V11= vs_base[0];          V11= vs_base[0];
85          (void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11))));          (void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11))));
86    goto T30;
87  T30:;  T30:;
88          V7= cdr((V7));          V7= cdr((V7));
89          goto T22;          goto T22;
90    goto T23;
91  T23:;  T23:;
92          goto T20;          goto T20;
93          goto T20;}          goto T20;}
94    goto T20;
95  T20:;  T20:;
96          base[2]= coerce_to_string(base[2]);          base[2]= coerce_to_string(base[2]);
97          {object V12;          {object V12;
# Line 103  T20:; Line 115  T20:;
115          V12= Cnil;          V12= Cnil;
116          goto T42;}          goto T42;}
117          base[5]=V21=MMcons(Cnil,Cnil);          base[5]=V21=MMcons(Cnil,Cnil);
118    goto T43;
119  T43:;  T43:;
120          (V21->c.c_car)= coerce_to_string((V22->c.c_car));          (V21->c.c_car)= coerce_to_string((V22->c.c_car));
121          if(endp(V22=MMcdr(V22))){          if(endp(V22=MMcdr(V22))){
# Line 110  T43:; Line 123  T43:;
123          goto T42;}          goto T42;}
124          V21=MMcdr(V21)=MMcons(Cnil,Cnil);          V21=MMcdr(V21)=MMcons(Cnil,Cnil);
125          goto T43;}          goto T43;}
126    goto T42;
127  T42:;  T42:;
128          base[5]= VV[7];          base[5]= VV[7];
129          base[6]= base[3];          base[6]= base[3];
# Line 137  T42:; Line 151  T42:;
151          V15= Cnil;          V15= Cnil;
152          goto T56;}          goto T56;}
153          base[5]=V26=MMcons(Cnil,Cnil);          base[5]=V26=MMcons(Cnil,Cnil);
154    goto T57;
155  T57:;  T57:;
156          (V26->c.c_car)= coerce_to_string((V27->c.c_car));          (V26->c.c_car)= coerce_to_string((V27->c.c_car));
157          if(endp(V27=MMcdr(V27))){          if(endp(V27=MMcdr(V27))){
# Line 144  T57:; Line 159  T57:;
159          goto T56;}          goto T56;}
160          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
161          goto T57;}          goto T57;}
162    goto T56;
163  T56:;  T56:;
164          base[6]= VV[10];          base[6]= VV[10];
165          base[7]= base[3];          base[7]= base[3];
# Line 157  T56:; Line 173  T56:;
173          V16= Cnil;          V16= Cnil;
174          goto T62;}          goto T62;}
175          base[5]=V29=MMcons(Cnil,Cnil);          base[5]=V29=MMcons(Cnil,Cnil);
176    goto T63;
177  T63:;  T63:;
178          (V29->c.c_car)= coerce_to_string((V30->c.c_car));          (V29->c.c_car)= coerce_to_string((V30->c.c_car));
179          if(endp(V30=MMcdr(V30))){          if(endp(V30=MMcdr(V30))){
# Line 164  T63:; Line 181  T63:;
181          goto T62;}          goto T62;}
182          V29=MMcdr(V29)=MMcons(Cnil,Cnil);          V29=MMcdr(V29)=MMcons(Cnil,Cnil);
183          goto T63;}          goto T63;}
184    goto T62;
185  T62:;  T62:;
186          base[6]= VV[11];          base[6]= VV[11];
187          base[7]= base[3];          base[7]= base[3];
# Line 177  T62:; Line 195  T62:;
195          V17= Cnil;          V17= Cnil;
196          goto T68;}          goto T68;}
197          base[5]=V32=MMcons(Cnil,Cnil);          base[5]=V32=MMcons(Cnil,Cnil);
198    goto T69;
199  T69:;  T69:;
200          (V32->c.c_car)= coerce_to_string((V33->c.c_car));          (V32->c.c_car)= coerce_to_string((V33->c.c_car));
201          if(endp(V33=MMcdr(V33))){          if(endp(V33=MMcdr(V33))){
# Line 184  T69:; Line 203  T69:;
203          goto T68;}          goto T68;}
204          V32=MMcdr(V32)=MMcons(Cnil,Cnil);          V32=MMcdr(V32)=MMcons(Cnil,Cnil);
205          goto T69;}          goto T69;}
206    goto T68;
207  T68:;  T68:;
208          {register object V35;          {register object V35;
209          register object V36;          register object V36;
# Line 200  T68:; Line 220  T68:;
220          V37= Cnil;          V37= Cnil;
221          V38= Cnil;          V38= Cnil;
222          V39= Cnil;          V39= Cnil;
223    goto T79;
224  T79:;  T79:;
225          if(((V36))==Cnil){          if(((V36))==Cnil){
226          goto T82;}          goto T82;}
227          goto T81;          goto T81;
228    goto T82;
229  T82:;  T82:;
230          goto T80;          goto T80;
231    goto T81;
232  T81:;  T81:;
233          {register object V40;          {register object V40;
234          V40= car((V36));          V40= car((V36));
# Line 217  T81:; Line 240  T81:;
240          V42= Cnil;          V42= Cnil;
241          goto T89;}          goto T89;}
242          base[5]=V43=MMcons(Cnil,Cnil);          base[5]=V43=MMcons(Cnil,Cnil);
243    goto T90;
244  T90:;  T90:;
245          (V43->c.c_car)= coerce_to_string((V44->c.c_car));          (V43->c.c_car)= coerce_to_string((V44->c.c_car));
246          if(endp(V44=MMcdr(V44))){          if(endp(V44=MMcdr(V44))){
# Line 224  T90:; Line 248  T90:;
248          goto T89;}          goto T89;}
249          V43=MMcdr(V43)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
250          goto T90;}          goto T90;}
251    goto T89;
252  T89:;  T89:;
253          V39= make_cons(/* INLINE-ARGS */V41,V42);          V39= make_cons(/* INLINE-ARGS */V41,V42);
254          if(((V38))==Cnil){          if(((V38))==Cnil){
# Line 236  T89:; Line 261  T89:;
261          if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45));          if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45));
262          ((V45))->c.c_cdr = (V46);          ((V45))->c.c_cdr = (V46);
263          goto T92;}          goto T92;}
264    goto T94;
265  T94:;  T94:;
266          V38= make_cons((V39),Cnil);          V38= make_cons((V39),Cnil);
267          V37= (V38);          V37= (V38);
268    goto T92;
269  T92:;  T92:;
270          V36= cdr((V36));          V36= cdr((V36));
271          goto T79;          goto T79;
272    goto T80;
273  T80:;  T80:;
274          V18= (V37);          V18= (V37);
275          goto T74;          goto T74;
# Line 249  T80:; Line 277  T80:;
277          goto T74;          goto T74;
278          V18= Cnil;          V18= Cnil;
279          goto T74;}}          goto T74;}}
280    goto T74;
281  T74:;  T74:;
282          {register object V47;          {register object V47;
283          register object V48;          register object V48;
# Line 265  T74:; Line 294  T74:;
294          V49= Cnil;          V49= Cnil;
295          V50= Cnil;          V50= Cnil;
296          V51= Cnil;          V51= Cnil;
297    goto T111;
298  T111:;  T111:;
299          if(((V48))==Cnil){          if(((V48))==Cnil){
300          goto T114;}          goto T114;}
301          goto T113;          goto T113;
302    goto T114;
303  T114:;  T114:;
304          goto T112;          goto T112;
305    goto T113;
306  T113:;  T113:;
307          {register object V52;          {register object V52;
308          V52= car((V48));          V52= car((V48));
# Line 282  T113:; Line 314  T113:;
314          V54= Cnil;          V54= Cnil;
315          goto T121;}          goto T121;}
316          base[5]=V55=MMcons(Cnil,Cnil);          base[5]=V55=MMcons(Cnil,Cnil);
317    goto T122;
318  T122:;  T122:;
319          (V55->c.c_car)= coerce_to_string((V56->c.c_car));          (V55->c.c_car)= coerce_to_string((V56->c.c_car));
320          if(endp(V56=MMcdr(V56))){          if(endp(V56=MMcdr(V56))){
# Line 289  T122:; Line 322  T122:;
322          goto T121;}          goto T121;}
323          V55=MMcdr(V55)=MMcons(Cnil,Cnil);          V55=MMcdr(V55)=MMcons(Cnil,Cnil);
324          goto T122;}          goto T122;}
325    goto T121;
326  T121:;  T121:;
327          V51= make_cons(/* INLINE-ARGS */V53,V54);          V51= make_cons(/* INLINE-ARGS */V53,V54);
328          if(((V50))==Cnil){          if(((V50))==Cnil){
# Line 301  T121:; Line 335  T121:;
335          if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57));          if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57));
336          ((V57))->c.c_cdr = (V58);          ((V57))->c.c_cdr = (V58);
337          goto T124;}          goto T124;}
338    goto T126;
339  T126:;  T126:;
340          V50= make_cons((V51),Cnil);          V50= make_cons((V51),Cnil);
341          V49= (V50);          V49= (V50);
342    goto T124;
343  T124:;  T124:;
344          V48= cdr((V48));          V48= cdr((V48));
345          goto T111;          goto T111;
346    goto T112;
347  T112:;  T112:;
348          V19= (V49);          V19= (V49);
349          goto T106;          goto T106;
# Line 314  T112:; Line 351  T112:;
351          goto T106;          goto T106;
352          V19= Cnil;          V19= Cnil;
353          goto T106;}}          goto T106;}}
354    goto T106;
355  T106:;  T106:;
356          base[6]= VV[14];          base[6]= VV[14];
357          base[7]= base[3];          base[7]= base[3];
# Line 327  T106:; Line 365  T106:;
365          V20= Cnil;          V20= Cnil;
366          goto T138;}          goto T138;}
367          base[5]=V59=MMcons(Cnil,Cnil);          base[5]=V59=MMcons(Cnil,Cnil);
368    goto T139;
369  T139:;  T139:;
370          (V59->c.c_car)= coerce_to_string((V60->c.c_car));          (V59->c.c_car)= coerce_to_string((V60->c.c_car));
371          if(endp(V60=MMcdr(V60))){          if(endp(V60=MMcdr(V60))){
# Line 334  T139:; Line 373  T139:;
373          goto T138;}          goto T138;}
374          V59=MMcdr(V59)=MMcons(Cnil,Cnil);          V59=MMcdr(V59)=MMcons(Cnil,Cnil);
375          goto T139;}          goto T139;}
376    goto T138;
377  T138:;  T138:;
378          {register object V62;          {register object V62;
379          register object V63;          register object V63;
# Line 349  T138:; Line 389  T138:;
389          V66= Cnil;          V66= Cnil;
390          V67= Cnil;          V67= Cnil;
391          V68= Cnil;          V68= Cnil;
392    goto T151;
393  T151:;  T151:;
394          if(((V65))==Cnil){          if(((V65))==Cnil){
395          goto T154;}          goto T154;}
396          goto T153;          goto T153;
397    goto T154;
398  T154:;  T154:;
399          goto T152;          goto T152;
400    goto T153;
401  T153:;  T153:;
402          {register object V69;          {register object V69;
403          V69= car((V65));          V69= car((V65));
# Line 375  T153:; Line 418  T153:;
418          if(((V71))!=Cnil){          if(((V71))!=Cnil){
419          goto T166;}}          goto T166;}}
420          goto T162;          goto T162;
421    goto T166;
422  T166:;  T166:;
423          base[8]= cdr((V67));          base[8]= cdr((V67));
424          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 382  T166:; Line 426  T166:;
426          vs_top=sup;          vs_top=sup;
427          V67= vs_base[0];          V67= vs_base[0];
428          goto T162;          goto T162;
429    goto T164;
430  T164:;  T164:;
431          V66= (V68);          V66= (V68);
432          base[8]= (V66);          base[8]= (V66);
# Line 389  T164:; Line 434  T164:;
434          Llast();          Llast();
435          vs_top=sup;          vs_top=sup;
436          V67= vs_base[0];          V67= vs_base[0];
437    goto T162;
438  T162:;  T162:;
439          V65= cdr((V65));          V65= cdr((V65));
440          goto T151;          goto T151;
441    goto T152;
442  T152:;  T152:;
443          base[7]= (V66);          base[7]= (V66);
444          goto T149;          goto T149;
# Line 399  T152:; Line 446  T152:;
446          goto T149;          goto T149;
447          base[7]= Cnil;          base[7]= Cnil;
448          goto T149;}}          goto T149;}}
449    goto T149;
450  T149:;  T149:;
451          {register object V72;          {register object V72;
452          register object V73;          register object V73;
# Line 410  T149:; Line 458  T149:;
458          V74= Cnil;          V74= Cnil;
459          V75= Cnil;          V75= Cnil;
460          V76= Cnil;          V76= Cnil;
461    goto T182;
462  T182:;  T182:;
463          if(((V73))==Cnil){          if(((V73))==Cnil){
464          goto T185;}          goto T185;}
465          goto T184;          goto T184;
466    goto T185;
467  T185:;  T185:;
468          goto T183;          goto T183;
469    goto T184;
470  T184:;  T184:;
471          {register object V77;          {register object V77;
472          V77= car((V73));          V77= car((V73));
# Line 436  T184:; Line 487  T184:;
487          if(((V79))!=Cnil){          if(((V79))!=Cnil){
488          goto T197;}}          goto T197;}}
489          goto T193;          goto T193;
490    goto T197;
491  T197:;  T197:;
492          base[9]= cdr((V75));          base[9]= cdr((V75));
493          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 443  T197:; Line 495  T197:;
495          vs_top=sup;          vs_top=sup;
496          V75= vs_base[0];          V75= vs_base[0];
497          goto T193;          goto T193;
498    goto T195;
499  T195:;  T195:;
500          V74= (V76);          V74= (V76);
501          base[9]= (V74);          base[9]= (V74);
# Line 450  T195:; Line 503  T195:;
503          Llast();          Llast();
504          vs_top=sup;          vs_top=sup;
505          V75= vs_base[0];          V75= vs_base[0];
506    goto T193;
507  T193:;  T193:;
508          V73= cdr((V73));          V73= cdr((V73));
509          goto T182;          goto T182;
510    goto T183;
511  T183:;  T183:;
512          base[8]= (V74);          base[8]= (V74);
513          goto T180;          goto T180;
# Line 460  T183:; Line 515  T183:;
515          goto T180;          goto T180;
516          base[8]= Cnil;          base[8]= Cnil;
517          goto T180;}}          goto T180;}}
518    goto T180;
519  T180:;  T180:;
520          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
521          L2(base);          L2(base);
522          vs_top=sup;          vs_top=sup;
523          V63= vs_base[0];          V63= vs_base[0];
524          V62= Cnil;          V62= Cnil;
525    goto T212;
526  T212:;  T212:;
527          if(((V63))==Cnil){          if(((V63))==Cnil){
528          goto T215;}          goto T215;}
529          goto T214;          goto T214;
530    goto T215;
531  T215:;  T215:;
532          goto T213;          goto T213;
533    goto T214;
534  T214:;  T214:;
535          {register object V80;          {register object V80;
536          V80= car((V63));          V80= car((V63));
# Line 488  T214:; Line 547  T214:;
547          V83= Cnil;          V83= Cnil;
548          V84= Cnil;          V84= Cnil;
549          V85= Cnil;          V85= Cnil;
550    goto T226;
551  T226:;  T226:;
552          if(((V82))==Cnil){          if(((V82))==Cnil){
553          goto T229;}          goto T229;}
554          goto T228;          goto T228;
555    goto T229;
556  T229:;  T229:;
557          goto T227;          goto T227;
558    goto T228;
559  T228:;  T228:;
560          {register object V86;          {register object V86;
561          V86= car((V82));          V86= car((V82));
# Line 502  T228:; Line 564  T228:;
564          if(!eql(V87,VV[16]))goto T236;          if(!eql(V87,VV[16]))goto T236;
565          V85= VV[9];          V85= VV[9];
566          goto T235;          goto T235;
567    goto T236;
568  T236:;  T236:;
569          if(!eql(V87,VV[17]))goto T237;          if(!eql(V87,VV[17]))goto T237;
570          V85= VV[10];          V85= VV[10];
571          goto T235;          goto T235;
572    goto T237;
573  T237:;  T237:;
574          if(!eql(V87,VV[18]))goto T238;          if(!eql(V87,VV[18]))goto T238;
575          V85= VV[12];          V85= VV[12];
576          goto T235;          goto T235;
577    goto T238;
578  T238:;  T238:;
579          if(!eql(V87,VV[19]))goto T239;          if(!eql(V87,VV[19]))goto T239;
580          V85= VV[13];          V85= VV[13];
581          goto T235;          goto T235;
582    goto T239;
583  T239:;  T239:;
584          V85= Cnil;}          V85= Cnil;}
585    goto T235;
586  T235:;  T235:;
587          if(((V84))==Cnil){          if(((V84))==Cnil){
588          goto T242;}          goto T242;}
# Line 527  T235:; Line 594  T235:;
594          if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88));          if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88));
595          ((V88))->c.c_cdr = (V89);          ((V88))->c.c_cdr = (V89);
596          goto T240;}          goto T240;}
597    goto T242;
598  T242:;  T242:;
599          V84= make_cons((V85),Cnil);          V84= make_cons((V85),Cnil);
600          V83= (V84);          V83= (V84);
601    goto T240;
602  T240:;  T240:;
603          V82= cdr((V82));          V82= cdr((V82));
604          goto T226;          goto T226;
605    goto T227;
606  T227:;  T227:;
607          base[7]= (V83);          base[7]= (V83);
608          goto T223;          goto T223;
# Line 540  T227:; Line 610  T227:;
610          goto T223;          goto T223;
611          base[7]= Cnil;          base[7]= Cnil;
612          goto T223;}}          goto T223;}}
613    goto T223;
614  T223:;  T223:;
615          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
616          Lerror();          Lerror();
617          vs_top=sup;          vs_top=sup;
618          V63= cdr((V63));          V63= cdr((V63));
619          goto T212;          goto T212;
620    goto T213;
621  T213:;  T213:;
622          goto T145;          goto T145;
623          goto T145;}          goto T145;}
624    goto T145;
625  T145:;  T145:;
626          {register object V90;          {register object V90;
627          register object V91;          register object V91;
# Line 559  T145:; Line 632  T145:;
632          vs_top=sup;          vs_top=sup;
633          V91= vs_base[0];          V91= vs_base[0];
634          V90= Cnil;          V90= Cnil;
635    goto T261;
636  T261:;  T261:;
637          if(((V91))==Cnil){          if(((V91))==Cnil){
638          goto T264;}          goto T264;}
639          goto T263;          goto T263;
640    goto T264;
641  T264:;  T264:;
642          goto T262;          goto T262;
643    goto T263;
644  T263:;  T263:;
645          {register object V92;          {register object V92;
646          V92= car((V91));          V92= car((V91));
# Line 581  T263:; Line 657  T263:;
657          V95= Cnil;          V95= Cnil;
658          V96= Cnil;          V96= Cnil;
659          V97= Cnil;          V97= Cnil;
660    goto T275;
661  T275:;  T275:;
662          if(((V94))==Cnil){          if(((V94))==Cnil){
663          goto T278;}          goto T278;}
664          goto T277;          goto T277;
665    goto T278;
666  T278:;  T278:;
667          goto T276;          goto T276;
668    goto T277;
669  T277:;  T277:;
670          {register object V98;          {register object V98;
671          V98= car((V94));          V98= car((V94));
# Line 595  T277:; Line 674  T277:;
674          if(!eql(V99,VV[16]))goto T285;          if(!eql(V99,VV[16]))goto T285;
675          V97= VV[11];          V97= VV[11];
676          goto T284;          goto T284;
677    goto T285;
678  T285:;  T285:;
679          if(!eql(V99,VV[17]))goto T286;          if(!eql(V99,VV[17]))goto T286;
680          V97= VV[10];          V97= VV[10];
681          goto T284;          goto T284;
682    goto T286;
683  T286:;  T286:;
684          V97= Cnil;}          V97= Cnil;}
685    goto T284;
686  T284:;  T284:;
687          if(((V96))==Cnil){          if(((V96))==Cnil){
688          goto T289;}          goto T289;}
# Line 612  T284:; Line 694  T284:;
694          if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100));          if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100));
695          ((V100))->c.c_cdr = (V101);          ((V100))->c.c_cdr = (V101);
696          goto T287;}          goto T287;}
697    goto T289;
698  T289:;  T289:;
699          V96= make_cons((V97),Cnil);          V96= make_cons((V97),Cnil);
700          V95= (V96);          V95= (V96);
701    goto T287;
702  T287:;  T287:;
703          V94= cdr((V94));          V94= cdr((V94));
704          goto T275;          goto T275;
705    goto T276;
706  T276:;  T276:;
707          base[7]= (V95);          base[7]= (V95);
708          goto T272;          goto T272;
# Line 625  T276:; Line 710  T276:;
710          goto T272;          goto T272;
711          base[7]= Cnil;          base[7]= Cnil;
712          goto T272;}}          goto T272;}}
713    goto T272;
714  T272:;  T272:;
715          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
716          Lerror();          Lerror();
717          vs_top=sup;          vs_top=sup;
718          V91= cdr((V91));          V91= cdr((V91));
719          goto T261;          goto T261;
720    goto T262;
721  T262:;  T262:;
722          goto T144;          goto T144;
723          goto T144;}          goto T144;}
724    goto T144;
725  T144:;  T144:;
726          V102= list(2,VV[26],base[2]);          V102= list(2,VV[26],base[2]);
727          V103= list(3,VV[28],base[2],base[2]);          V103= list(3,VV[28],base[2],base[2]);
# Line 642  T144:; Line 730  T144:;
730          V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12)));          V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12)));
731          V104= make_cons(/* INLINE-ARGS */V105,Cnil);          V104= make_cons(/* INLINE-ARGS */V105,Cnil);
732          goto T304;          goto T304;
733    goto T306;
734  T306:;  T306:;
735          V104= Cnil;          V104= Cnil;
736    goto T304;
737  T304:;  T304:;
738          base[5]= VV[30];          base[5]= VV[30];
739          base[6]= base[3];          base[6]= base[3];
# Line 657  T304:; Line 747  T304:;
747          V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]);          V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]);
748          V106= make_cons(/* INLINE-ARGS */V107,Cnil);          V106= make_cons(/* INLINE-ARGS */V107,Cnil);
749          goto T308;          goto T308;
750    goto T310;
751  T310:;  T310:;
752          V106= Cnil;          V106= Cnil;
753    goto T308;
754  T308:;  T308:;
755          V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106));          V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106));
756          V109= list(2,VV[29],(V12));          V109= list(2,VV[29],(V12));
# Line 666  T308:; Line 758  T308:;
758          goto T318;}          goto T318;}
759          V110= Cnil;          V110= Cnil;
760          goto T316;          goto T316;
761    goto T318;
762  T318:;  T318:;
763          V110= Cnil;          V110= Cnil;
764    goto T316;
765  T316:;  T316:;
766          V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110));          V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110));
767          if(((V13))==Cnil){          if(((V13))==Cnil){
# Line 681  T316:; Line 775  T316:;
775          V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13));          V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13));
776          V112= make_cons(/* INLINE-ARGS */V114,Cnil);          V112= make_cons(/* INLINE-ARGS */V114,Cnil);
777          goto T320;          goto T320;
778    goto T322;
779  T322:;  T322:;
780          V112= Cnil;          V112= Cnil;
781    goto T320;
782  T320:;  T320:;
783          V115= list(2,VV[42],list(2,VV[26],base[2]));          V115= list(2,VV[42],list(2,VV[26],base[2]));
784          V116= make_cons(/* INLINE-ARGS */V115,Cnil);          V116= make_cons(/* INLINE-ARGS */V115,Cnil);
# Line 691  T320:; Line 787  T320:;
787          V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15))));          V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15))));
788          base[5]= make_cons(/* INLINE-ARGS */V118,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V118,Cnil);
789          goto T328;          goto T328;
790    goto T330;
791  T330:;  T330:;
792          base[5]= Cnil;          base[5]= Cnil;
793    goto T328;
794  T328:;  T328:;
795          if(((V18))==Cnil){          if(((V18))==Cnil){
796          goto T334;}          goto T334;}
# Line 702  T328:; Line 800  T328:;
800          base[6]= Cnil;          base[6]= Cnil;
801          goto T332;}          goto T332;}
802          base[7]=V119=MMcons(Cnil,Cnil);          base[7]=V119=MMcons(Cnil,Cnil);
803    goto T336;
804  T336:;  T336:;
805          V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car)))));          V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car)))));
806          (V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car)))));          (V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car)))));
# Line 710  T336:; Line 809  T336:;
809          goto T332;}          goto T332;}
810          V119=MMcdr(V119)=MMcons(Cnil,Cnil);          V119=MMcdr(V119)=MMcons(Cnil,Cnil);
811          goto T336;}          goto T336;}
812    goto T334;
813  T334:;  T334:;
814          base[6]= Cnil;          base[6]= Cnil;
815    goto T332;
816  T332:;{object V124;  T332:;{object V124;
817          base[9]= VV[30];          base[9]= VV[30];
818          base[10]= base[3];          base[10]= base[3];
# Line 725  T332:;{object V124; Line 826  T332:;{object V124;
826          V124= Cnil;          V124= Cnil;
827          goto T341;}          goto T341;}
828          base[8]=V125=MMcons(Cnil,Cnil);          base[8]=V125=MMcons(Cnil,Cnil);
829    goto T342;
830  T342:;  T342:;
831          (V125->c.c_car)= coerce_to_string((V126->c.c_car));          (V125->c.c_car)= coerce_to_string((V126->c.c_car));
832          if(endp(V126=MMcdr(V126))){          if(endp(V126=MMcdr(V126))){
# Line 732  T342:; Line 834  T342:;
834          goto T341;}          goto T341;}
835          V125=MMcdr(V125)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
836          goto T342;}          goto T342;}
837    goto T341;
838  T341:;  T341:;
839          if(V124==Cnil)goto T340;          if(V124==Cnil)goto T340;
840          V123= V124;          V123= V124;
841          goto T339;          goto T339;
842    goto T340;
843  T340:;}  T340:;}
844          V123= VV[53];          V123= VV[53];
845    goto T339;
846  T339:;  T339:;
847          V128= list(2,VV[52],list(2,VV[29],V123));          V128= list(2,VV[52],list(2,VV[29],V123));
848          if(((V19))==Cnil){          if(((V19))==Cnil){
# Line 748  T339:; Line 853  T339:;
853          base[8]= Cnil;          base[8]= Cnil;
854          goto T348;}          goto T348;}
855          base[9]=V130=MMcons(Cnil,Cnil);          base[9]=V130=MMcons(Cnil,Cnil);
856    goto T352;
857  T352:;  T352:;
858          V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car)))));          V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car)))));
859          (V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car)))));          (V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car)))));
# Line 756  T352:; Line 862  T352:;
862          goto T348;}          goto T348;}
863          V130=MMcdr(V130)=MMcons(Cnil,Cnil);          V130=MMcdr(V130)=MMcons(Cnil,Cnil);
864          goto T352;}          goto T352;}
865    goto T350;
866  T350:;  T350:;
867          base[8]= Cnil;          base[8]= Cnil;
868    goto T348;
869  T348:;  T348:;
870          if(((V16))==Cnil){          if(((V16))==Cnil){
871          goto T356;}          goto T356;}
872          V134= list(3,VV[44],VV[56],list(2,VV[29],(V16)));          V134= list(3,VV[44],VV[56],list(2,VV[29],(V16)));
873          base[9]= make_cons(/* INLINE-ARGS */V134,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V134,Cnil);
874          goto T354;          goto T354;
875    goto T356;
876  T356:;  T356:;
877          base[9]= Cnil;          base[9]= Cnil;
878    goto T354;
879  T354:;  T354:;
880          if(((V17))==Cnil){          if(((V17))==Cnil){
881          goto T360;}          goto T360;}
882          V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17))));          V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17))));
883          base[10]= make_cons(/* INLINE-ARGS */V135,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V135,Cnil);
884          goto T358;          goto T358;
885    goto T360;
886  T360:;  T360:;
887          base[10]= Cnil;          base[10]= Cnil;
888    goto T358;
889  T358:;  T358:;
890          if(((V20))==Cnil){          if(((V20))==Cnil){
891          goto T364;}          goto T364;}
892          V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]);          V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]);
893          base[11]= make_cons(/* INLINE-ARGS */V136,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V136,Cnil);
894          goto T362;          goto T362;
895    goto T364;
896  T364:;  T364:;
897          base[11]= Cnil;          base[11]= Cnil;
898    goto T362;
899  T362:;  T362:;
900          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
901          Lappend();          Lappend();
# Line 800  T362:; Line 914  T362:;
914  }  }
915  /*      local function FIND-DUPLICATES  */  /*      local function FIND-DUPLICATES  */
916    
917  static L2(base0)  static void L2(base0)
918  register object *base0;  register object *base0;
919  {       register object *base=vs_base;  {       register object *base=vs_base;
920          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
# Line 821  register object *base0; Line 935  register object *base0;
935          V143= cdr((V139));          V143= cdr((V139));
936          {register long V144;          {register long V144;
937          V144= 1;          V144= 1;
938    goto T370;
939  T370:;  T370:;
940          if(((V143))==Cnil){          if(((V143))==Cnil){
941          goto T373;}          goto T373;}
942          goto T372;          goto T372;
943    goto T373;
944  T373:;  T373:;
945          goto T371;          goto T371;
946    goto T372;
947  T372:;  T372:;
948          if(((V142))==Cnil){          if(((V142))==Cnil){
949          goto T376;}          goto T376;}
950          goto T375;          goto T375;
951    goto T376;
952  T376:;  T376:;
953          goto T371;          goto T371;
954    goto T375;
955  T375:;  T375:;
956          {object V145;          {object V145;
957          V145= car((V142));          V145= car((V142));
# Line 843  T375:; Line 962  T375:;
962          V147= (V141);          V147= (V141);
963          {register object V148;          {register object V148;
964          V148= Cnil;          V148= Cnil;
965    goto T383;
966  T383:;  T383:;
967          if(((V147))==Cnil){          if(((V147))==Cnil){
968          goto T386;}          goto T386;}
969          goto T385;          goto T385;
970    goto T386;
971  T386:;  T386:;
972          goto T384;          goto T384;
973    goto T385;
974  T385:;  T385:;
975          {object V149;          {object V149;
976          V149= car((V147));          V149= car((V147));
# Line 875  T385:; Line 997  T385:;
997          V160= (type_of((V158))==t_fixnum?Ct:Cnil);          V160= (type_of((V158))==t_fixnum?Ct:Cnil);
998          if(V160==Cnil)goto T402;          if(V160==Cnil)goto T402;
999          goto T401;          goto T401;
1000    goto T402;
1001  T402:;}  T402:;}
1002          (void)((*(LnkLI67))());          (void)((*(LnkLI67))());
1003    goto T401;
1004  T401:;  T401:;
1005          V157= fix((V158));}          V157= fix((V158));}
1006    goto T405;
1007  T405:;  T405:;
1008          if(((V156))==Cnil){          if(((V156))==Cnil){
1009          goto T408;}          goto T408;}
1010          goto T407;          goto T407;
1011    goto T408;
1012  T408:;  T408:;
1013          goto T406;          goto T406;
1014    goto T407;
1015  T407:;  T407:;
1016          {object V161;          {object V161;
1017          V161= car((V156));          V161= car((V156));
# Line 904  T407:; Line 1031  T407:;
1031          V163= make_cons(V162,Cnil);          V163= make_cons(V162,Cnil);
1032          (void)(nconc((V148),/* INLINE-ARGS */V163));          (void)(nconc((V148),/* INLINE-ARGS */V163));
1033          goto T413;          goto T413;
1034    goto T421;
1035  T421:;  T421:;
1036          V164 = make_fixnum(V144);          V164 = make_fixnum(V144);
1037          V165 = make_fixnum(V157);          V165 = make_fixnum(V157);
1038          V166= list(3,(V146),V164,V165);          V166= list(3,(V146),V164,V165);
1039          V140= make_cons(/* INLINE-ARGS */V166,(V140));          V140= make_cons(/* INLINE-ARGS */V166,(V140));
1040          V148= car((V140));          V148= car((V140));
1041    goto T413;
1042  T413:;  T413:;
1043          V156= cdr((V156));          V156= cdr((V156));
1044          if(!((V157)<(2147483646))){          if(!((V157)<(2147483646))){
1045          goto T428;}          goto T428;}
1046          goto T427;          goto T427;
1047    goto T428;
1048  T428:;  T428:;
1049          (void)((*(LnkLI67))());          (void)((*(LnkLI67))());
1050    goto T427;
1051  T427:;  T427:;
1052          V157= (V157)+(1);          V157= (V157)+(1);
1053          goto T405;          goto T405;
1054    goto T406;
1055  T406:;  T406:;
1056          goto T396;          goto T396;
1057          goto T396;}}          goto T396;}}
1058    goto T396;
1059  T396:;  T396:;
1060          V147= cdr((V147));          V147= cdr((V147));
1061          goto T383;          goto T383;
1062    goto T384;
1063  T384:;  T384:;
1064          goto T381;          goto T381;
1065          goto T381;}}          goto T381;}}
1066    goto T381;
1067  T381:;  T381:;
1068          V142= cdr((V142));          V142= cdr((V142));
1069          V143= cdr((V143));          V143= cdr((V143));
1070          if(!((V144)<(2147483646))){          if(!((V144)<(2147483646))){
1071          goto T441;}          goto T441;}
1072          goto T440;          goto T440;
1073    goto T441;
1074  T441:;  T441:;
1075          (void)((*(LnkLI67))());          (void)((*(LnkLI67))());
1076    goto T440;
1077  T440:;  T440:;
1078          V144= (V144)+(1);          V144= (V144)+(1);
1079          goto T370;          goto T370;
1080    goto T371;
1081  T371:;  T371:;
1082          goto T366;          goto T366;
1083          goto T366;}}}          goto T366;}}}
1084    goto T366;
1085  T366:;  T366:;
1086          base[1]= (V140);          base[1]= (V140);
1087          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 951  T366:; Line 1090  T366:;
1090  }  }
1091  /*      local function OPTION-TEST      */  /*      local function OPTION-TEST      */
1092    
1093  static LC3(base0)  static void LC3(base0)
1094  register object *base0;  register object *base0;
1095  {       register object *base=vs_base;  {       register object *base=vs_base;
1096          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
# Line 967  register object *base0; Line 1106  register object *base0;
1106          base[2]= (equal(car((V168)),(V167))?Ct:Cnil);          base[2]= (equal(car((V168)),(V167))?Ct:Cnil);
1107          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1108          return;          return;
1109    goto T447;
1110  T447:;  T447:;
1111          base[2]= Cnil;          base[2]= Cnil;
1112          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 975  T447:; Line 1115  T447:;
1115  }  }
1116  /*      local function OPTION-VALUES    */  /*      local function OPTION-VALUES    */
1117    
1118  static L5(base0)  static void L5(base0)
1119  register object *base0;  register object *base0;
1120  {       register object *base=vs_base;  {       register object *base=vs_base;
1121          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
# Line 986  register object *base0; Line 1126  register object *base0;
1126          V169=(base[0]);          V169=(base[0]);
1127          V170=(base[1]);          V170=(base[1]);
1128          vs_top=sup;          vs_top=sup;
1129    goto TTL;
1130  TTL:;  TTL:;
1131          {register object V171;          {register object V171;
1132          V171= Cnil;          V171= Cnil;
# Line 1005  TTL:; Line 1146  TTL:;
1146          vs_top=sup;          vs_top=sup;
1147          V175= vs_base[0];          V175= vs_base[0];
1148          V171= (V175);}          V171= (V175);}
1149    goto T450;
1150  T450:;  T450:;
1151          if(((V171))==Cnil){          if(((V171))==Cnil){
1152          goto T459;}          goto T459;}
1153          goto T458;          goto T458;
1154    goto T459;
1155  T459:;  T459:;
1156          goto T451;          goto T451;
1157    goto T458;
1158  T458:;  T458:;
1159          if(((V171))==Cnil){          if(((V171))==Cnil){
1160          goto T461;}          goto T461;}
# Line 1030  T458:; Line 1174  T458:;
1174          if(((V177))!=Cnil){          if(((V177))!=Cnil){
1175          goto T470;}}          goto T470;}}
1176          goto T461;          goto T461;
1177    goto T470;
1178  T470:;  T470:;
1179          base[2]= cdr((V173));          base[2]= cdr((V173));
1180          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1037  T470:; Line 1182  T470:;
1182          vs_top=sup;          vs_top=sup;
1183          V173= vs_base[0];          V173= vs_base[0];
1184          goto T461;          goto T461;
1185    goto T468;
1186  T468:;  T468:;
1187          V172= (V174);          V172= (V174);
1188          base[2]= (V172);          base[2]= (V172);
# Line 1044  T468:; Line 1190  T468:;
1190          Llast();          Llast();
1191          vs_top=sup;          vs_top=sup;
1192          V173= vs_base[0];          V173= vs_base[0];
1193    goto T461;
1194  T461:;  T461:;
1195          {register object V178;          {register object V178;
1196          base[2]= (V169);          base[2]= (V169);
# Line 1056  T461:; Line 1203  T461:;
1203          V178= vs_base[0];          V178= vs_base[0];
1204          V171= (V178);}          V171= (V178);}
1205          goto T450;          goto T450;
1206    goto T451;
1207  T451:;  T451:;
1208          base[2]= (V172);          base[2]= (V172);
1209          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1070  T451:; Line 1218  T451:;
1218  }  }
1219  /*      local function OPTION-VALUES-LIST       */  /*      local function OPTION-VALUES-LIST       */
1220    
1221  static L4(base0)  static void L4(base0)
1222  register object *base0;  register object *base0;
1223  {       register object *base=vs_base;  {       register object *base=vs_base;
1224          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
# Line 1081  register object *base0; Line 1229  register object *base0;
1229          V179=(base[0]);          V179=(base[0]);
1230          V180=(base[1]);          V180=(base[1]);
1231          vs_top=sup;          vs_top=sup;
1232    goto TTL;
1233  TTL:;  TTL:;
1234          {register object V181;          {register object V181;
1235          V181= Cnil;          V181= Cnil;
# Line 1100  TTL:; Line 1249  TTL:;
1249          vs_top=sup;          vs_top=sup;
1250          V185= vs_base[0];          V185= vs_base[0];
1251          V181= (V185);}          V181= (V185);}
1252    goto T490;
1253  T490:;  T490:;
1254          if(((V181))==Cnil){          if(((V181))==Cnil){
1255          goto T499;}          goto T499;}
1256          goto T498;          goto T498;
1257    goto T499;
1258  T499:;  T499:;
1259          goto T491;          goto T491;
1260    goto T498;
1261  T498:;  T498:;
1262          if(((V181))==Cnil){          if(((V181))==Cnil){
1263          goto T501;}          goto T501;}
# Line 1120  T498:; Line 1272  T498:;
1272          if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186));          if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186));
1273          ((V186))->c.c_cdr = (V187);          ((V186))->c.c_cdr = (V187);
1274          goto T501;}          goto T501;}
1275    goto T507;
1276  T507:;  T507:;
1277          V183= make_cons((V184),Cnil);          V183= make_cons((V184),Cnil);
1278          V182= (V183);          V182= (V183);
1279    goto T501;
1280  T501:;  T501:;
1281          {register object V188;          {register object V188;
1282          base[2]= (V179);          base[2]= (V179);
# Line 1135  T501:; Line 1289  T501:;
1289          V188= vs_base[0];          V188= vs_base[0];
1290          V181= (V188);}          V181= (V188);}
1291          goto T490;          goto T490;
1292    goto T491;
1293  T491:;  T491:;
1294          base[2]= (V182);          base[2]= (V182);
1295          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1147  T491:; Line 1302  T491:;
1302          return;}}          return;}}
1303          }          }
1304  }  }
1305  static object  LnkTLI67(){return call_proc0(VV[67],&LnkLI67);} /* TYPE-ERROR */  static object  LnkTLI67(){return call_proc0(VV[67],(void **)&LnkLI67);} /* TYPE-ERROR */
1306  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* FIND */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* FIND */
1307  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WARN */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],(void **)&LnkLI64,ap);} /* WARN */
1308  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* COUNT */  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],(void **)&LnkLI62,ap);} /* COUNT */
1309    
1310  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1311  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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