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

Diff of /gcl/cmpnew/cmpflet.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:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpflet.h"  #include "cmpflet.h"
4  init_cmpflet(){do_init(VV);}  void init_cmpflet(){do_init(VV);}
5  /*      local entry for function MAKE-FUN       */  /*      local entry for function MAKE-FUN       */
6    
7  static object LI1(va_alist)  static object LI1(va_alist)
# Line 14  static object LI1(va_alist) Line 14  static object LI1(va_alist)
14          object V3;          object V3;
15          object V4;          object V4;
16          object V5;          object V5;
17          narg= narg - 0;          Vcs[0]=Vcs[0];
18          va_start(ap);          va_start(ap);
19            narg= narg - 0;
20          {          {
21          parse_key_new(narg,Vcs +0,&LI1key,ap);          parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap);
22          V1=(Vcs[0]);          V1=(Vcs[0]);
23          V2=(Vcs[1]);          V2=(Vcs[1]);
24          V3=(Vcs[2]);          V3=(Vcs[2]);
# Line 33  static object LI1(va_alist) Line 34  static object LI1(va_alist)
34          siLmake_structure();          siLmake_structure();
35          vs_top=sup;          vs_top=sup;
36          {object V6 = vs_base[0];          {object V6 = vs_base[0];
37          VMR1(V6)}}          VMR1(V6)}
38            va_end(ap);
39            base[0]=base[0];
40            return Cnil;}
41          }}          }}
42  /*      local entry for function C1FLET */  /*      local entry for function C1FLET */
43    
# Line 42  static object LI2(V8) Line 46  static object LI2(V8)
46  object V8;  object V8;
47  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
48          bds_check;          bds_check;
49    goto TTL;
50  TTL:;  TTL:;
51          {object V9;          {object V9;
52          object V10;          object V10;
# Line 64  TTL:; Line 69  TTL:;
69          if(!(endp((V8)))){          if(!(endp((V8)))){
70          goto T16;}          goto T16;}
71          (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));
72    goto T16;
73  T16:;  T16:;
74          bds_bind(VV[2],symbol_value(VV[2]));          bds_bind(VV[2],symbol_value(VV[2]));
75          {register object V18;          {register object V18;
76          register object V19;          register object V19;
77          V18= car((V8));          V18= car((V8));
78          V19= car((V18));          V19= car((V18));
79    goto T24;
80  T24:;  T24:;
81          if(!(endp((V18)))){          if(!(endp((V18)))){
82          goto T25;}          goto T25;}
83          goto T20;          goto T20;
84    goto T25;
85  T25:;  T25:;
86          if(endp((V19))){          if(endp((V19))){
87          goto T30;}          goto T30;}
# Line 81  T25:; Line 89  T25:;
89          goto T30;}          goto T30;}
90          if(!(endp(cdr((V19))))){          if(!(endp(cdr((V19))))){
91          goto T29;}          goto T29;}
92    goto T30;
93  T30:;  T30:;
94          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19))));
95    goto T29;
96  T29:;  T29:;
97          {object V20;          {object V20;
98          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));
# Line 92  T29:; Line 102  T29:;
102          V18= cdr((V18));          V18= cdr((V18));
103          V19= car((V18));          V19= car((V18));
104          goto T24;}          goto T24;}
105    goto T20;
106  T20:;  T20:;
107          base[1]= cdr((V8));          base[1]= cdr((V8));
108          base[2]= Ct;          base[2]= Ct;
# Line 137  T20:; Line 148  T20:;
148          register object V23;          register object V23;
149          V22= reverse((V15));          V22= reverse((V15));
150          V23= car((V22));          V23= car((V22));
151    goto T60;
152  T60:;  T60:;
153          if(!(endp((V22)))){          if(!(endp((V22)))){
154          goto T61;}          goto T61;}
155          goto T56;          goto T56;
156    goto T61;
157  T61:;  T61:;
158          if((structure_ref(car((V23)),VV[0],2))==Cnil){          if((structure_ref(car((V23)),VV[0],2))==Cnil){
159          goto T65;}          goto T65;}
# Line 163  T61:; Line 176  T61:;
176          bds_unwind1;          bds_unwind1;
177          bds_unwind1;          bds_unwind1;
178          bds_unwind1;}          bds_unwind1;}
179    goto T65;
180  T65:;  T65:;
181          if((structure_ref(car((V23)),VV[0],1))==Cnil){          if((structure_ref(car((V23)),VV[0],1))==Cnil){
182          goto T75;}          goto T75;}
# Line 182  T65:; Line 196  T65:;
196          bds_unwind1;          bds_unwind1;
197          bds_unwind1;          bds_unwind1;
198          bds_unwind1;}          bds_unwind1;}
199    goto T75;
200  T75:;  T75:;
201          if((structure_ref(car((V23)),VV[0],1))!=Cnil){          if((structure_ref(car((V23)),VV[0],1))!=Cnil){
202          goto T85;}          goto T85;}
203          if((structure_ref(car((V23)),VV[0],2))==Cnil){          if((structure_ref(car((V23)),VV[0],2))==Cnil){
204          goto T84;}          goto T84;}
205    goto T85;
206  T85:;  T85:;
207          V32= car((V23));          V32= car((V23));
208          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
209          (void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12])));          (void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12])));
210    goto T84;
211  T84:;  T84:;
212          V22= cdr((V22));          V22= cdr((V22));
213          V23= car((V22));          V23= car((V22));
214          goto T60;}          goto T60;}
215    goto T56;
216  T56:;  T56:;
217          if(((V16))!=Cnil){          if(((V16))!=Cnil){
218          goto T95;}          goto T95;}
219          if(((V17))==Cnil){          if(((V17))==Cnil){
220          goto T96;}          goto T96;}
221    goto T95;
222  T95:;  T95:;
223          V33= reverse((V16));          V33= reverse((V16));
224          {object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9));          {object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9));
225          VMR2(V34)}          VMR2(V34)}
226    goto T96;
227  T96:;  T96:;
228          {object V35 = (V9);          {object V35 = (V9);
229          VMR2(V35)}}          VMR2(V35)}}
230            base[0]=base[0];
231            return Cnil;
232  }  }
233  /*      function definition for C2FLET  */  /*      function definition for C2FLET  */
234    
235  static L3()  static void L3()
236  {register object *base=vs_base;  {register object *base=vs_base;
237          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
238          vs_reserve(VM3);          vs_reserve(VM3);
# Line 223  static L3() Line 245  static L3()
245          V37=(base[1]);          V37=(base[1]);
246          V38=(base[2]);          V38=(base[2]);
247          vs_top=sup;          vs_top=sup;
248    goto TTL;
249  TTL:;  TTL:;
250          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
251          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],symbol_value(VV[14]));
# Line 231  TTL:; Line 254  TTL:;
254          object V40;          object V40;
255          V39= (V36);          V39= (V36);
256          V40= car((V39));          V40= car((V39));
257    goto T104;
258  T104:;  T104:;
259          if(!(endp((V39)))){          if(!(endp((V39)))){
260          goto T105;}          goto T105;}
261          goto T100;          goto T100;
262    goto T105;
263  T105:;  T105:;
264          (void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41;          (void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41;
265          V41= (VV[14]->s.s_dbind);{object V42;          V41= (VV[14]->s.s_dbind);{object V42;
# Line 244  T105:; Line 269  T105:;
269          V39= cdr((V39));          V39= cdr((V39));
270          V40= car((V39));          V40= car((V39));
271          goto T104;}          goto T104;}
272    goto T100;
273  T100:;  T100:;
274          {register object V44;          {register object V44;
275          register object V45;          register object V45;
276          V44= (V37);          V44= (V37);
277          V45= car((V44));          V45= car((V44));
278    goto T121;
279  T121:;  T121:;
280          if(!(endp((V44)))){          if(!(endp((V44)))){
281          goto T122;}          goto T122;}
282          goto T117;          goto T117;
283    goto T122;
284  T122:;  T122:;
285          if(((VV[14]->s.s_dbind))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
286          goto T130;}          goto T130;}
287          V46= Cnil;          V46= Cnil;
288          goto T128;          goto T128;
289    goto T130;
290  T130:;  T130:;
291          V46= make_cons(small_fixnum(0),small_fixnum(0));          V46= make_cons(small_fixnum(0),small_fixnum(0));
292    goto T128;
293  T128:;{object V47;  T128:;{object V47;
294          V47= (VV[15]->s.s_dbind);          V47= (VV[15]->s.s_dbind);
295          V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45)));          V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45)));
# Line 294  T128:;{object V47; Line 324  T128:;{object V47;
324          V44= cdr((V44));          V44= cdr((V44));
325          V45= car((V44));          V45= car((V44));
326          goto T121;}          goto T121;}
327    goto T117;
328  T117:;  T117:;
329          base[6]= (V38);          base[6]= (V38);
330          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 311  static object LI4(V58) Line 342  static object LI4(V58)
342  object V58;  object V58;
343  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
344          bds_check;          bds_check;
345    goto TTL;
346  TTL:;  TTL:;
347          {object V59;          {object V59;
348          object V60;          object V60;
# Line 338  TTL:; Line 370  TTL:;
370          if(!(endp((V58)))){          if(!(endp((V58)))){
371          goto T174;}          goto T174;}
372          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
373    goto T174;
374  T174:;  T174:;
375          {object V70;          {object V70;
376          register object V71;          register object V71;
377          V70= car((V58));          V70= car((V58));
378          V71= car((V70));          V71= car((V70));
379    goto T181;
380  T181:;  T181:;
381          if(!(endp((V70)))){          if(!(endp((V70)))){
382          goto T182;}          goto T182;}
383          goto T177;          goto T177;
384    goto T182;
385  T182:;  T182:;
386          if(endp((V71))){          if(endp((V71))){
387          goto T187;}          goto T187;}
# Line 354  T182:; Line 389  T182:;
389          goto T187;}          goto T187;}
390          if(!(endp(cdr((V71))))){          if(!(endp(cdr((V71))))){
391          goto T186;}          goto T186;}
392    goto T187;
393  T187:;  T187:;
394          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71))));
395    goto T186;
396  T186:;  T186:;
397          {register object x= car((V71)),V72= (V68);          {register object x= car((V71)),V72= (V68);
398          while(!endp(V72))          while(!endp(V72))
# Line 363  T186:; Line 400  T186:;
400          goto T195;          goto T195;
401          }else V72=V72->c.c_cdr;          }else V72=V72->c.c_cdr;
402          goto T193;}          goto T193;}
403    goto T195;
404  T195:;  T195:;
405          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71)))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71)))));
406    goto T193;
407  T193:;  T193:;
408          V68= make_cons(car((V71)),(V68));          V68= make_cons(car((V71)),(V68));
409          {object V73;          {object V73;
# Line 375  T193:; Line 414  T193:;
414          V70= cdr((V70));          V70= cdr((V70));
415          V71= car((V70));          V71= car((V70));
416          goto T181;}          goto T181;}
417    goto T177;
418  T177:;  T177:;
419          V65= reverse((V65));          V65= reverse((V65));
420          base[1]= cdr((V58));          base[1]= cdr((V58));
# Line 416  T177:; Line 456  T177:;
456          (void) (*Lnk49)();          (void) (*Lnk49)();
457          vs_top=sup;          vs_top=sup;
458          V64= vs_base[0];          V64= vs_base[0];
459    goto T223;
460  T223:;  T223:;
461          V69= Cnil;          V69= Cnil;
462          {register object V75;          {register object V75;
463          register object V76;          register object V76;
464          V75= (V65);          V75= (V65);
465          V76= car((V75));          V76= car((V75));
466    goto T231;
467  T231:;  T231:;
468          if(!(endp((V75)))){          if(!(endp((V75)))){
469          goto T232;}          goto T232;}
470          goto T227;          goto T227;
471    goto T232;
472  T232:;  T232:;
473          if((structure_ref(car((V76)),VV[0],1))==Cnil){          if((structure_ref(car((V76)),VV[0],1))==Cnil){
474          goto T236;}          goto T236;}
# Line 451  T232:; Line 494  T232:;
494          bds_unwind1;          bds_unwind1;
495          bds_unwind1;          bds_unwind1;
496          bds_unwind1;}          bds_unwind1;}
497    goto T236;
498  T236:;  T236:;
499          V75= cdr((V75));          V75= cdr((V75));
500          V76= car((V75));          V76= car((V75));
501          goto T231;}          goto T231;}
502    goto T227;
503  T227:;  T227:;
504          if(((V69))!=Cnil){          if(((V69))!=Cnil){
505          goto T224;}          goto T224;}
506          goto T221;          goto T221;
507    goto T224;
508  T224:;  T224:;
509          goto T223;          goto T223;
510    goto T221;
511  T221:;  T221:;
512    goto T261;
513  T261:;  T261:;
514          V69= Cnil;          V69= Cnil;
515          {register object V83;          {register object V83;
516          register object V84;          register object V84;
517          V83= (V65);          V83= (V65);
518          V84= car((V83));          V84= car((V83));
519    goto T269;
520  T269:;  T269:;
521          if(!(endp((V83)))){          if(!(endp((V83)))){
522          goto T270;}          goto T270;}
523          goto T265;          goto T265;
524    goto T270;
525  T270:;  T270:;
526          if((structure_ref(car((V84)),VV[0],2))==Cnil){          if((structure_ref(car((V84)),VV[0],2))==Cnil){
527          goto T274;}          goto T274;}
# Line 500  T270:; Line 550  T270:;
550          bds_unwind1;          bds_unwind1;
551          bds_unwind1;          bds_unwind1;
552          bds_unwind1;}          bds_unwind1;}
553    goto T274;
554  T274:;  T274:;
555          V83= cdr((V83));          V83= cdr((V83));
556          V84= car((V83));          V84= car((V83));
557          goto T269;}          goto T269;}
558    goto T265;
559  T265:;  T265:;
560          if(((V69))!=Cnil){          if(((V69))!=Cnil){
561          goto T262;}          goto T262;}
562          goto T259;          goto T259;
563    goto T262;
564  T262:;  T262:;
565          goto T261;          goto T261;
566    goto T259;
567  T259:;  T259:;
568          {object V91;          {object V91;
569          object V92;          object V92;
570          V91= (V65);          V91= (V65);
571          V92= car((V91));          V92= car((V91));
572    goto T302;
573  T302:;  T302:;
574          if(!(endp((V91)))){          if(!(endp((V91)))){
575          goto T303;}          goto T303;}
576          goto T298;          goto T298;
577    goto T303;
578  T303:;  T303:;
579          if((structure_ref(car((V92)),VV[0],1))!=Cnil){          if((structure_ref(car((V92)),VV[0],1))!=Cnil){
580          goto T308;}          goto T308;}
581          if((structure_ref(car((V92)),VV[0],2))==Cnil){          if((structure_ref(car((V92)),VV[0],2))==Cnil){
582          goto T307;}          goto T307;}
583    goto T308;
584  T308:;  T308:;
585          V93= car((V92));          V93= car((V92));
586          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
587          (void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12])));          (void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12])));
588    goto T307;
589  T307:;  T307:;
590          V91= cdr((V91));          V91= cdr((V91));
591          V92= car((V91));          V92= car((V91));
592          goto T302;}          goto T302;}
593    goto T298;
594  T298:;  T298:;
595          if(((V66))!=Cnil){          if(((V66))!=Cnil){
596          goto T318;}          goto T318;}
597          if(((V67))==Cnil){          if(((V67))==Cnil){
598          goto T319;}          goto T319;}
599    goto T318;
600  T318:;  T318:;
601          V94= reverse((V66));          V94= reverse((V66));
602          {object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59));          {object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59));
603          bds_unwind1;          bds_unwind1;
604          VMR4(V95)}          VMR4(V95)}
605    goto T319;
606  T319:;  T319:;
607          {object V96 = (V59);          {object V96 = (V59);
608          bds_unwind1;          bds_unwind1;
609          VMR4(V96)}}          VMR4(V96)}}
610            base[0]=base[0];
611            return Cnil;
612  }  }
613  /*      function definition for C2LABELS        */  /*      function definition for C2LABELS        */
614    
615  static L5()  static void L5()
616  {register object *base=vs_base;  {register object *base=vs_base;
617          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
618          vs_reserve(VM5);          vs_reserve(VM5);
# Line 562  static L5() Line 625  static L5()
625          V98=(base[1]);          V98=(base[1]);
626          V99=(base[2]);          V99=(base[2]);
627          vs_top=sup;          vs_top=sup;
628    goto TTL;
629  TTL:;  TTL:;
630          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
631          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],symbol_value(VV[14]));
# Line 569  TTL:; Line 633  TTL:;
633          object V101;          object V101;
634          V100= (V98);          V100= (V98);
635          V101= car((V100));          V101= car((V100));
636    goto T327;
637  T327:;  T327:;
638          if(!(endp((V100)))){          if(!(endp((V100)))){
639          goto T328;}          goto T328;}
640          goto T323;          goto T323;
641    goto T328;
642  T328:;  T328:;
643          {register object V102;          {register object V102;
644          V102= car((V101));          V102= car((V101));
# Line 591  T328:; Line 657  T328:;
657          V100= cdr((V100));          V100= cdr((V100));
658          V101= car((V100));          V101= car((V100));
659          goto T327;}          goto T327;}
660    goto T323;
661  T323:;  T323:;
662          {register object V107;          {register object V107;
663          object V108;          object V108;
664          V107= (V97);          V107= (V97);
665          V108= car((V107));          V108= car((V107));
666    goto T352;
667  T352:;  T352:;
668          if(!(endp((V107)))){          if(!(endp((V107)))){
669          goto T353;}          goto T353;}
670          goto T348;          goto T348;
671    goto T353;
672  T353:;  T353:;
673          (void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109;          (void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109;
674          V109= (VV[14]->s.s_dbind);{object V110;          V109= (VV[14]->s.s_dbind);{object V110;
# Line 609  T353:; Line 678  T353:;
678          V107= cdr((V107));          V107= cdr((V107));
679          V108= car((V107));          V108= car((V107));
680          goto T352;}          goto T352;}
681    goto T348;
682  T348:;  T348:;
683          {register object V112;          {register object V112;
684          register object V113;          register object V113;
685          V112= (V98);          V112= (V98);
686          V113= car((V112));          V113= car((V112));
687    goto T369;
688  T369:;  T369:;
689          if(!(endp((V112)))){          if(!(endp((V112)))){
690          goto T370;}          goto T370;}
691          goto T365;          goto T365;
692    goto T370;
693  T370:;  T370:;
694          if(((VV[14]->s.s_dbind))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
695          goto T378;}          goto T378;}
696          V114= Cnil;          V114= Cnil;
697          goto T376;          goto T376;
698    goto T378;
699  T378:;  T378:;
700          V114= make_cons(small_fixnum(0),small_fixnum(0));          V114= make_cons(small_fixnum(0),small_fixnum(0));
701    goto T376;
702  T376:;{object V115;  T376:;{object V115;
703          V115= symbol_value(VV[15]);          V115= symbol_value(VV[15]);
704          V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113)));          V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113)));
# Line 642  T376:;{object V115; Line 716  T376:;{object V115;
716          V112= cdr((V112));          V112= cdr((V112));
717          V113= car((V112));          V113= car((V112));
718          goto T369;}          goto T369;}
719    goto T365;
720  T365:;  T365:;
721          base[5]= (V99);          base[5]= (V99);
722          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 658  static object LI6(V120) Line 733  static object LI6(V120)
733  object V120;  object V120;
734  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
735          bds_check;          bds_check;
736    goto TTL;
737  TTL:;  TTL:;
738          {object V121;          {object V121;
739          object V122;          object V122;
# Line 674  TTL:; Line 750  TTL:;
750          if(!(endp((V120)))){          if(!(endp((V120)))){
751          goto T402;}          goto T402;}
752          (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
753    goto T402;
754  T402:;  T402:;
755          {register object V126;          {register object V126;
756          register object V127;          register object V127;
757          V126= car((V120));          V126= car((V120));
758          V127= car((V126));          V127= car((V126));
759    goto T409;
760  T409:;  T409:;
761          if(!(endp((V126)))){          if(!(endp((V126)))){
762          goto T410;}          goto T410;}
763          goto T405;          goto T405;
764    goto T410;
765  T410:;  T410:;
766          if(endp((V127))){          if(endp((V127))){
767          goto T415;}          goto T415;}
# Line 690  T410:; Line 769  T410:;
769          goto T415;}          goto T415;}
770          if(!(endp(cdr((V127))))){          if(!(endp(cdr((V127))))){
771          goto T414;}          goto T414;}
772    goto T415;
773  T415:;  T415:;
774          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127))));
775    goto T414;
776  T414:;  T414:;
777          V128= car((V127));          V128= car((V127));
778          V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127)));          V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127)));
# Line 700  T414:; Line 781  T414:;
781          V126= cdr((V126));          V126= cdr((V126));
782          V127= car((V126));          V127= car((V126));
783          goto T409;}          goto T409;}
784    goto T405;
785  T405:;  T405:;
786          base[2]= cdr((V120));          base[2]= cdr((V120));
787          base[3]= Ct;          base[3]= Ct;
# Line 736  T405:; Line 818  T405:;
818          bds_unwind1;          bds_unwind1;
819          bds_unwind1;          bds_unwind1;
820          VMR6(V131)}}          VMR6(V131)}}
821            base[0]=base[0];
822            return Cnil;
823  }  }
824  /*      local entry for function C1LOCAL-FUN    */  /*      local entry for function C1LOCAL-FUN    */
825    
# Line 743  static object LI7(V133) Line 827  static object LI7(V133)
827    
828  register object V133;  register object V133;
829  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
830    goto TTL;
831  TTL:;  TTL:;
832          {register object V134;          {register object V134;
833          V134= Cnil;          V134= Cnil;
# Line 750  TTL:; Line 835  TTL:;
835          register object V136;          register object V136;
836          V135= symbol_value(VV[2]);          V135= symbol_value(VV[2]);
837          V136= car((V135));          V136= car((V135));
838    goto T438;
839  T438:;  T438:;
840          if(!(endp((V135)))){          if(!(endp((V135)))){
841          goto T439;}          goto T439;}
842          {object V137 = Cnil;          {object V137 = Cnil;
843          VMR7(V137)}          VMR7(V137)}
844    goto T439;
845  T439:;  T439:;
846          if(!(((V136))==(VV[8]))){          if(!(((V136))==(VV[8]))){
847          goto T445;}          goto T445;}
848          V134= Ct;          V134= Ct;
849          goto T443;          goto T443;
850    goto T445;
851  T445:;  T445:;
852          if(!(type_of((V136))==t_cons)){          if(!(type_of((V136))==t_cons)){
853          goto T449;}          goto T449;}
# Line 767  T445:; Line 855  T445:;
855          goto T443;}          goto T443;}
856          {object V138 = cadr((V136));          {object V138 = cadr((V136));
857          VMR7(V138)}          VMR7(V138)}
858    goto T449;
859  T449:;  T449:;
860          V139= structure_ref((V136),VV[0],0);          V139= structure_ref((V136),VV[0],0);
861          if(!((/* INLINE-ARGS */V139)==((V133)))){          if(!((/* INLINE-ARGS */V139)==((V133)))){
# Line 775  T449:; Line 864  T449:;
864          goto T457;}          goto T457;}
865          (void)(structure_set((V136),VV[0],2,Ct));          (void)(structure_set((V136),VV[0],2,Ct));
866          goto T455;          goto T455;
867    goto T457;
868  T457:;  T457:;
869          (void)(structure_set((V136),VV[0],1,Ct));          (void)(structure_set((V136),VV[0],1,Ct));
870    goto T455;
871  T455:;  T455:;
872          {object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134));          {object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134));
873          VMR7(V140)}          VMR7(V140)}
874    goto T443;
875  T443:;  T443:;
876          V135= cdr((V135));          V135= cdr((V135));
877          V136= car((V135));          V136= car((V135));
878          goto T438;}}          goto T438;}}
879            base[0]=base[0];
880            return Cnil;
881  }  }
882  /*      local entry for function SCH-LOCAL-FUN  */  /*      local entry for function SCH-LOCAL-FUN  */
883    
# Line 791  static object LI8(V142) Line 885  static object LI8(V142)
885    
886  register object V142;  register object V142;
887  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
888    goto TTL;
889  TTL:;  TTL:;
890          {register object V143;          {register object V143;
891          register object V144;          register object V144;
892          V143= symbol_value(VV[2]);          V143= symbol_value(VV[2]);
893          V144= car((V143));          V144= car((V143));
894    goto T467;
895  T467:;  T467:;
896          if(!(endp((V143)))){          if(!(endp((V143)))){
897          goto T468;}          goto T468;}
898          {object V145 = (V142);          {object V145 = (V142);
899          VMR8(V145)}          VMR8(V145)}
900    goto T468;
901  T468:;  T468:;
902          if(((V144))==(VV[8])){          if(((V144))==(VV[8])){
903          goto T472;}          goto T472;}
# Line 811  T468:; Line 908  T468:;
908          goto T472;}          goto T472;}
909          {object V147 = (V144);          {object V147 = (V144);
910          VMR8(V147)}          VMR8(V147)}
911    goto T472;
912  T472:;  T472:;
913          V143= cdr((V143));          V143= cdr((V143));
914          V144= car((V143));          V144= car((V143));
915          goto T467;}          goto T467;}
916            base[0]=base[0];
917            return Cnil;
918  }  }
919  /*      local entry for function C1LOCAL-CLOSURE        */  /*      local entry for function C1LOCAL-CLOSURE        */
920    
# Line 822  static object LI9(V149) Line 922  static object LI9(V149)
922    
923  register object V149;  register object V149;
924  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
925    goto TTL;
926  TTL:;  TTL:;
927          {register object V150;          {register object V150;
928          V150= Cnil;          V150= Cnil;
# Line 829  TTL:; Line 930  TTL:;
930          register object V152;          register object V152;
931          V151= symbol_value(VV[2]);          V151= symbol_value(VV[2]);
932          V152= car((V151));          V152= car((V151));
933    goto T488;
934  T488:;  T488:;
935          if(!(endp((V151)))){          if(!(endp((V151)))){
936          goto T489;}          goto T489;}
937          {object V153 = Cnil;          {object V153 = Cnil;
938          VMR9(V153)}          VMR9(V153)}
939    goto T489;
940  T489:;  T489:;
941          if(!(((V152))==(VV[8]))){          if(!(((V152))==(VV[8]))){
942          goto T495;}          goto T495;}
943          V150= Ct;          V150= Ct;
944          goto T493;          goto T493;
945    goto T495;
946  T495:;  T495:;
947          if(!(type_of((V152))==t_cons)){          if(!(type_of((V152))==t_cons)){
948          goto T499;}          goto T499;}
# Line 846  T495:; Line 950  T495:;
950          goto T493;}          goto T493;}
951          {object V154 = cadr((V152));          {object V154 = cadr((V152));
952          VMR9(V154)}          VMR9(V154)}
953    goto T499;
954  T499:;  T499:;
955          V155= structure_ref((V152),VV[0],0);          V155= structure_ref((V152),VV[0],0);
956          if(!((/* INLINE-ARGS */V155)==((V149)))){          if(!((/* INLINE-ARGS */V155)==((V149)))){
# Line 853  T499:; Line 958  T499:;
958          (void)(structure_set((V152),VV[0],2,Ct));          (void)(structure_set((V152),VV[0],2,Ct));
959          {object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150));          {object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150));
960          VMR9(V156)}          VMR9(V156)}
961    goto T493;
962  T493:;  T493:;
963          V151= cdr((V151));          V151= cdr((V151));
964          V152= car((V151));          V152= car((V151));
965          goto T488;}}          goto T488;}}
966            base[0]=base[0];
967            return Cnil;
968  }  }
969  /*      local entry for function C2CALL-LOCAL   */  /*      local entry for function C2CALL-LOCAL   */
970    
# Line 865  static object LI10(V159,V160) Line 973  static object LI10(V159,V160)
973  register object V159;register object V160;  register object V159;register object V160;
974  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
975          bds_check;          bds_check;
976    goto TTL;
977  TTL:;  TTL:;
978          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
979          if((cadr((V159)))==Cnil){          if((cadr((V159)))==Cnil){
# Line 875  TTL:; Line 984  TTL:;
984          (void)((*(LnkLI62))(/* INLINE-ARGS */V161));          (void)((*(LnkLI62))(/* INLINE-ARGS */V161));
985          princ_str(");",VV[20]);          princ_str(");",VV[20]);
986          goto T511;          goto T511;
987    goto T513;
988  T513:;  T513:;
989          if(!(type_of((V160))==t_cons||((V160))==Cnil)){          if(!(type_of((V160))==t_cons||((V160))==Cnil)){
990          goto T521;}          goto T521;}
# Line 900  T513:; Line 1010  T513:;
1010          V162= Cnil;          V162= Cnil;
1011          goto T540;}          goto T540;}
1012          base[4]=V163=MMcons(Cnil,Cnil);          base[4]=V163=MMcons(Cnil,Cnil);
1013    goto T541;
1014  T541:;  T541:;
1015          (V163->c.c_car)= list(2,(V164->c.c_car),Cnil);          (V163->c.c_car)= list(2,(V164->c.c_car),Cnil);
1016          if(endp(V164=MMcdr(V164))){          if(endp(V164=MMcdr(V164))){
# Line 907  T541:; Line 1018  T541:;
1018          goto T540;}          goto T540;}
1019          V163=MMcdr(V163)=MMcons(Cnil,Cnil);          V163=MMcdr(V163)=MMcons(Cnil,Cnil);
1020          goto T541;}          goto T541;}
1021    goto T540;
1022  T540:;  T540:;
1023          (void)((*(LnkLI64))(V162,(V160)));          (void)((*(LnkLI64))(V162,(V160)));
1024          if((cdr((VV[30]->s.s_dbind)))==Cnil){          if((cdr((VV[30]->s.s_dbind)))==Cnil){
# Line 914  T540:; Line 1026  T540:;
1026          bds_unwind1;          bds_unwind1;
1027          bds_unwind1;          bds_unwind1;
1028          goto T535;}          goto T535;}
1029            princ_str("\ngoto T",VV[20]);
1030            (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
1031            princ_char(59,VV[20]);
1032          princ_str("\nT",VV[20]);          princ_str("\nT",VV[20]);
1033          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
1034          princ_str(":;",VV[20]);          princ_str(":;",VV[20]);
1035          bds_unwind1;          bds_unwind1;
1036          bds_unwind1;          bds_unwind1;
1037          bds_unwind1;          bds_unwind1;
1038    goto T535;
1039  T535:;  T535:;
1040          (void)((*(LnkLI65))(VV[36]));          (void)((*(LnkLI65))(VV[36]));
1041          princ_str("\n   goto TTL;",VV[20]);          princ_str("\n   goto TTL;",VV[20]);
1042          V166= structure_ref(car((V159)),VV[0],0);          V166= structure_ref(car((V159)),VV[0],0);
1043          (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166)));          (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166)));
1044          goto T511;          goto T511;
1045    goto T521;
1046  T521:;  T521:;
1047          (void)((*(LnkLI61))((V160)));          (void)((*(LnkLI61))((V160)));
1048          princ_str("\n   L",VV[20]);          princ_str("\n   L",VV[20]);
# Line 936  T521:; Line 1053  T521:;
1053          register long V169;          register long V169;
1054          V168= fix(structure_ref(car((V159)),VV[0],4));          V168= fix(structure_ref(car((V159)),VV[0],4));
1055          V169= 0;          V169= 0;
1056  T560:;  goto T564;
1057    T564:;
1058          if(!((V169)>=(V168))){          if(!((V169)>=(V168))){
1059          goto T561;}          goto T565;}
1060          goto T556;          goto T560;
1061  T561:;  goto T565;
1062    T565:;
1063          princ_str("base",VV[20]);          princ_str("base",VV[20]);
1064          V170 = make_fixnum(V169);          V170 = make_fixnum(V169);
1065          (void)((*(LnkLI54))(V170));          (void)((*(LnkLI54))(V170));
1066          princ_char(44,VV[20]);          princ_char(44,VV[20]);
1067          V169= (V169)+1;          V169= (V169)+1;
1068          goto T560;}          goto T564;}
1069  T556:;  goto T560;
1070    T560:;
1071          princ_str("base",VV[20]);          princ_str("base",VV[20]);
1072          V171= structure_ref(car((V159)),VV[0],4);          V171= structure_ref(car((V159)),VV[0],4);
1073          if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){          if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){
1074          goto T574;}          goto T578;}
1075          V172= structure_ref(car((V159)),VV[0],4);          V172= structure_ref(car((V159)),VV[0],4);
1076          (void)((*(LnkLI54))(/* INLINE-ARGS */V172));          (void)((*(LnkLI54))(/* INLINE-ARGS */V172));
1077  T574:;  goto T578;
1078    T578:;
1079          princ_str(");",VV[20]);          princ_str(");",VV[20]);
1080          setq(VV[38],Ct);          setq(VV[38],Ct);
1081    goto T511;
1082  T511:;  T511:;
1083          {object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));          {object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
1084          bds_unwind1;          bds_unwind1;
1085          VMR10(V173)}          VMR10(V173)}
1086            base[0]=base[0];
1087            return Cnil;
1088  }  }
1089  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* UNWIND-EXIT */  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* UNWIND-EXIT */
1090  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* CMPNOTE */  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],(void **)&LnkLI66,ap);} /* CMPNOTE */
1091  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */
1092  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* C2PSETQ */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,2,ap);} /* C2PSETQ */
1093  static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
1094  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,1,ap);} /* WT-CCB-VS */  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],(void **)&LnkLI62,1,ap);} /* WT-CCB-VS */
1095  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* PUSH-ARGS */  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,1,ap);} /* PUSH-ARGS */
1096  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* DEFMACRO* */  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,3,ap);} /* DEFMACRO* */
1097  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-VS* */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,1,ap);} /* WT-VS* */
1098  static LnkT58(){ call_or_link(VV[58],&Lnk58);} /* C2EXPR */  static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* C2EXPR */
1099  static object  LnkTLI57(){return call_proc0(VV[57],&LnkLI57);} /* CCB-VS-PUSH */  static object  LnkTLI57(){return call_proc0(VV[57],(void **)&LnkLI57);} /* CCB-VS-PUSH */
1100  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* CLINK */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* CLINK */
1101  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* WT-CLINK */  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* WT-CLINK */
1102  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */
1103  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* WT-VS */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* WT-VS */
1104  static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* VS-PUSH */  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* VS-PUSH */
1105  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,2,ap);} /* ADD-INFO */  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,2,ap);} /* ADD-INFO */
1106  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* C1LAMBDA-EXPR */
1107  static LnkT49(){ call_or_link(VV[49],&Lnk49);} /* COPY-INFO */  static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* COPY-INFO */
1108  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,2,ap);} /* C1DECL-BODY */  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,2,ap);} /* C1DECL-BODY */
1109  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,3,ap);} /* CHECK-VDECL */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,3,ap);} /* CHECK-VDECL */
1110  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1ADD-GLOBALS */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1ADD-GLOBALS */
1111  static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* C1BODY */  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* C1BODY */
1112  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],&LnkLI44,ap);} /* MAKE-FUN */  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],(void **)&LnkLI44,ap);} /* MAKE-FUN */
1113  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],&LnkLI43,ap);} /* CMPERR */  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],(void **)&LnkLI43,ap);} /* CMPERR */
1114  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,3,ap);} /* TOO-FEW-ARGS */
1115    
1116  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1117  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