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

Diff of /gcl/lsp/defmacro.c

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

revision 1.8 by camm, Sun Feb 9 22:35:15 2003 UTC revision 1.9 by camm, Wed Feb 26 22:21:36 2003 UTC
# Line 12  static void L1() Line 12  static void L1()
12          check_arg(1);          check_arg(1);
13          V1=(base[0]);          V1=(base[0]);
14          vs_top=sup;          vs_top=sup;
15  goto TTL;          goto TTL;
16  TTL:;  TTL:;
17          {object V2;          {object V2;
18          V2= Cnil;          V2= Cnil;
# Line 21  TTL:; Line 21  TTL:;
21          goto T3;}          goto T3;}
22          V3= Cnil;          V3= Cnil;
23          goto T2;          goto T2;
24  goto T3;          goto T3;
25  T3:;  T3:;
26          {register object V4;          {register object V4;
27          V4= (V1);          V4= (V1);
28  goto T6;          goto T6;
29  T6:;  T6:;
30          if(type_of((V4))==t_cons){          if(type_of((V4))==t_cons){
31          goto T7;}          goto T7;}
32          V3= Cnil;          V3= Cnil;
33          goto T2;          goto T2;
34  goto T7;          goto T7;
35  T7:;  T7:;
36          if(!((VV[0])==(car((V4))))){          if(!((VV[0])==(car((V4))))){
37          goto T11;}          goto T11;}
38          V3= (V4);          V3= (V4);
39          goto T2;          goto T2;
40  goto T11;          goto T11;
41  T11:;  T11:;
42          V4= cdr((V4));          V4= cdr((V4));
43          goto T6;}          goto T6;}
44  goto T2;          goto T2;
45  T2:;  T2:;
46          if(((V3))==Cnil){          if(((V3))==Cnil){
47          goto T17;}          goto T17;}
# Line 53  T2:; Line 53  T2:;
53          vs_top=sup;          vs_top=sup;
54          V5= vs_base[0];          V5= vs_base[0];
55          V1= append(V5,cddr((V3)));          V1= append(V5,cddr((V3)));
56  goto T17;          goto T17;
57  T17:;  T17:;
58          base[1]= (V1);          base[1]= (V1);
59          base[2]= (V2);          base[2]= (V2);
# Line 68  static object LI2(V9,V10,V11) Line 68  static object LI2(V9,V10,V11)
68  object V9;object V10;register object V11;  object V9;object V10;register object V11;
69  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
70          bds_check;          bds_check;
71  goto TTL;          goto TTL;
72  TTL:;  TTL:;
73          {object V12;          {object V12;
74          object V13;          object V13;
# Line 90  TTL:; Line 90  TTL:;
90          if(((V18))==Cnil){          if(((V18))==Cnil){
91          goto T37;}          goto T37;}
92          goto T34;          goto T34;
93  goto T37;          goto T37;
94  T37:;  T37:;
95          if(!(type_of((V10))==t_symbol)){          if(!(type_of((V10))==t_symbol)){
96          goto T40;}          goto T40;}
97          V10= list(2,VV[4],(V10));          V10= list(2,VV[4],(V10));
98          goto T34;          goto T34;
99  goto T40;          goto T40;
100  T40:;  T40:;
101          base[3]= VV[5];          base[3]= VV[5];
102          base[4]= (V10);          base[4]= (V10);
103          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
104          Lerror();          Lerror();
105          vs_top=sup;}          vs_top=sup;}
106  goto T34;          goto T34;
107  T34:;  T34:;
108          base[3]= (V11);          base[3]= (V11);
109          base[4]= Cnil;          base[4]= Cnil;
# Line 131  T34:; Line 131  T34:;
131          V14= cadr((V10));          V14= cadr((V10));
132          V10= cddr((V10));          V10= cddr((V10));
133          goto T49;          goto T49;
134  goto T51;          goto T51;
135  T51:;  T51:;
136          vs_base=vs_top;          vs_base=vs_top;
137          Lgensym();          Lgensym();
138          vs_top=sup;          vs_top=sup;
139          V14= vs_base[0];          V14= vs_base[0];
140  goto T49;          goto T49;
141  T49:;  T49:;
142          base[3]= (V10);          base[3]= (V10);
143          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 159  T49:; Line 159  T49:;
159          Lgensym();          Lgensym();
160          vs_top=sup;          vs_top=sup;
161          V16= vs_base[0];          V16= vs_base[0];
162  goto T64;          goto T64;
163  T64:;  T64:;
164          (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));          (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));
165          V15= (*(LnkLI55))((V10),(V14),Ct);          V15= (*(LnkLI55))((V10),(V14),Ct);
# Line 167  T64:; Line 167  T64:;
167          register object V20;          register object V20;
168          V19= (VV[2]->s.s_dbind);          V19= (VV[2]->s.s_dbind);
169          V20= car((V19));          V20= car((V19));
170  goto T74;          goto T74;
171  T74:;  T74:;
172          if(!(endp_prop((V19)))){          if(!(endp_prop((V19)))){
173          goto T75;}          goto T75;}
174          goto T70;          goto T70;
175  goto T75;          goto T75;
176  T75:;  T75:;
177          {register object V21;          {register object V21;
178          V22= list(3,VV[9],car((V20)),VV[10]);          V22= list(3,VV[9],car((V20)),VV[10]);
# Line 183  T75:; Line 183  T75:;
183          V19= cdr((V19));          V19= cdr((V19));
184          V20= car((V19));          V20= car((V19));
185          goto T74;}          goto T74;}
186  goto T70;          goto T70;
187  T70:;  T70:;
188          {register object V25;          {register object V25;
189          register object V26;          register object V26;
190          V25= (VV[3]->s.s_dbind);          V25= (VV[3]->s.s_dbind);
191          V26= car((V25));          V26= car((V25));
192  goto T91;          goto T91;
193  T91:;  T91:;
194          if(!(endp_prop((V25)))){          if(!(endp_prop((V25)))){
195          goto T92;}          goto T92;}
196          goto T87;          goto T87;
197  goto T92;          goto T92;
198  T92:;  T92:;
199          {register object V27;          {register object V27;
200          V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);          V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);
# Line 202  T92:; Line 202  T92:;
202          V25= cdr((V25));          V25= cdr((V25));
203          V26= car((V25));          V26= car((V25));
204          goto T91;}          goto T91;}
205  goto T87;          goto T87;
206  T87:;  T87:;
207          if(((V17))!=Cnil){          if(((V17))!=Cnil){
208          goto T104;}          goto T104;}
209          {object V28;          {object V28;
210          V28= list(2,VV[21],list(2,VV[22],(V16)));          V28= list(2,VV[21],list(2,VV[22],(V16)));
211          V11= make_cons((V28),(V11));}          V11= make_cons((V28),(V11));}
212  goto T104;          goto T104;
213  T104:;  T104:;
214          V29= reverse((VV[1]->s.s_dbind));          V29= reverse((VV[1]->s.s_dbind));
215          {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));          {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));
# Line 226  static object LI3(V34,V35,V36) Line 226  static object LI3(V34,V35,V36)
226    
227  register object V34;register object V35;object V36;  register object V34;register object V35;object V36;
228  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
229  goto TTL;          goto TTL;
230  TTL:;  TTL:;
231          {register object V37;          {register object V37;
232          object V38;          object V38;
# Line 243  TTL:; Line 243  TTL:;
243          goto T111;}          goto T111;}
244          V46= small_fixnum(1);          V46= small_fixnum(1);
245          goto T109;          goto T109;
246  goto T111;          goto T111;
247  T111:;  T111:;
248          V46= small_fixnum(0);          V46= small_fixnum(0);
249  goto T109;          goto T109;
250  T109:;  T109:;
251          V37= Cnil;          V37= Cnil;
252          V38= Cnil;          V38= Cnil;
# Line 258  T109:; Line 258  T109:;
258          V44= Cnil;          V44= Cnil;
259          V45= Cnil;          V45= Cnil;
260          V47= Cnil;          V47= Cnil;
261  goto T114;          goto T114;
262  T114:;  T114:;
263          if(type_of((V34))==t_cons){          if(type_of((V34))==t_cons){
264          goto T115;}          goto T115;}
# Line 267  T114:; Line 267  T114:;
267          if(((V38))==Cnil){          if(((V38))==Cnil){
268          goto T121;}          goto T121;}
269          (void)((*(LnkLI57))(VV[4]));          (void)((*(LnkLI57))(VV[4]));
270  goto T121;          goto T121;
271  T121:;  T121:;
272          {object V48;          {object V48;
273          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));          V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));
274          setq(VV[1],make_cons((V48),symbol_value(VV[1])));}          setq(VV[1],make_cons((V48),symbol_value(VV[1])));}
275          V45= Ct;          V45= Ct;
276  goto T118;          goto T118;
277  T118:;  T118:;
278          if(((V42))==Cnil){          if(((V42))==Cnil){
279          goto T128;}          goto T128;}
# Line 282  T118:; Line 282  T118:;
282          {object V49;          {object V49;
283          V49= make_cons((V42),(V44));          V49= make_cons((V42),(V44));
284          setq(VV[2],make_cons((V49),symbol_value(VV[2])));}          setq(VV[2],make_cons((V49),symbol_value(VV[2])));}
285  goto T128;          goto T128;
286  T128:;  T128:;
287          if(((V45))!=Cnil){          if(((V45))!=Cnil){
288          goto T135;}          goto T135;}
289          {object V50;          {object V50;
290          V50= make_cons((V35),(V46));          V50= make_cons((V35),(V46));
291          setq(VV[3],make_cons((V50),symbol_value(VV[3])));}          setq(VV[3],make_cons((V50),symbol_value(VV[3])));}
292  goto T135;          goto T135;
293  T135:;  T135:;
294          {object V51 = (V47);          {object V51 = (V47);
295          VMR3(V51)}          VMR3(V51)}
296  goto T115;          goto T115;
297  T115:;  T115:;
298          {register object V52;          {register object V52;
299          V52= car((V34));          V52= car((V34));
# Line 302  T115:; Line 302  T115:;
302          if(((V37))==Cnil){          if(((V37))==Cnil){
303          goto T146;}          goto T146;}
304          (void)((*(LnkLI57))(VV[24]));          (void)((*(LnkLI57))(VV[24]));
305  goto T146;          goto T146;
306  T146:;  T146:;
307          V37= Ct;          V37= Ct;
308          {object V53;          {object V53;
309          V53= car((V34));          V53= car((V34));
310          V34= cdr((V34));          V34= cdr((V34));
311          goto T141;}          goto T141;}
312  goto T144;          goto T144;
313  T144:;  T144:;
314          if(((V52))==(VV[4])){          if(((V52))==(VV[4])){
315          goto T154;}          goto T154;}
316          if(!(((V52))==(VV[25]))){          if(!(((V52))==(VV[25]))){
317          goto T155;}          goto T155;}
318  goto T154;          goto T154;
319  T154:;  T154:;
320          if(((V38))==Cnil){          if(((V38))==Cnil){
321          goto T159;}          goto T159;}
322          (void)((*(LnkLI57))((V52)));          (void)((*(LnkLI57))((V52)));
323  goto T159;          goto T159;
324  T159:;  T159:;
325          V54= cadr((V34));          V54= cadr((V34));
326          V55= (*(LnkLI56))((V46),(V35));          V55= (*(LnkLI56))((V46),(V35));
# Line 335  T159:; Line 335  T159:;
335          goto T175;}          goto T175;}
336          V47= one_minus((V46));          V47= one_minus((V46));
337          goto T173;          goto T173;
338  goto T175;          goto T175;
339  T175:;  T175:;
340          V47= (V46);          V47= (V46);
341  goto T173;          goto T173;
342  T173:;  T173:;
343          goto T141;          goto T141;
344  goto T155;          goto T155;
345  T155:;  T155:;
346          if(!(((V52))==(VV[26]))){          if(!(((V52))==(VV[26]))){
347          goto T178;}          goto T178;}
348          if(((V39))==Cnil){          if(((V39))==Cnil){
349          goto T180;}          goto T180;}
350          (void)((*(LnkLI57))(VV[26]));          (void)((*(LnkLI57))(VV[26]));
351  goto T180;          goto T180;
352  T180:;  T180:;
353          vs_base=vs_top;          vs_base=vs_top;
354          Lgensym();          Lgensym();
# Line 365  T180:; Line 365  T180:;
365          V57= car((V34));          V57= car((V34));
366          V34= cdr((V34));          V34= cdr((V34));
367          goto T141;}          goto T141;}
368  goto T178;          goto T178;
369  T178:;  T178:;
370          if(!(((V52))==(VV[27]))){          if(!(((V52))==(VV[27]))){
371          goto T200;}          goto T200;}
# Line 373  T178:; Line 373  T178:;
373          goto T203;}          goto T203;}
374          if(((V40))==Cnil){          if(((V40))==Cnil){
375          goto T202;}          goto T202;}
376  goto T203;          goto T203;
377  T203:;  T203:;
378          (void)((*(LnkLI57))(VV[27]));          (void)((*(LnkLI57))(VV[27]));
379  goto T202;          goto T202;
380  T202:;  T202:;
381          V40= Ct;          V40= Ct;
382          V43= Ct;          V43= Ct;
# Line 384  T202:; Line 384  T202:;
384          V58= car((V34));          V58= car((V34));
385          V34= cdr((V34));          V34= cdr((V34));
386          goto T141;}          goto T141;}
387  goto T200;          goto T200;
388  T200:;  T200:;
389          if(!(((V52))==(VV[7]))){          if(!(((V52))==(VV[7]))){
390          goto T215;}          goto T215;}
391          if(((V41))==Cnil){          if(((V41))==Cnil){
392          goto T217;}          goto T217;}
393          (void)((*(LnkLI57))(VV[7]));          (void)((*(LnkLI57))(VV[7]));
394  goto T217;          goto T217;
395  T217:;  T217:;
396          V41= Ct;          V41= Ct;
397          V40= Ct;          V40= Ct;
# Line 402  T217:; Line 402  T217:;
402          V59= car((V34));          V59= car((V34));
403          V34= cdr((V34));          V34= cdr((V34));
404          goto T141;}          goto T141;}
405  goto T215;          goto T215;
406  T215:;  T215:;
407          if(((V41))==Cnil){          if(((V41))==Cnil){
408          goto T234;}          goto T234;}
# Line 414  T215:; Line 414  T215:;
414          goto T239;}          goto T239;}
415          V60= (V52);          V60= (V52);
416          goto T237;          goto T237;
417  goto T239;          goto T239;
418  T239:;  T239:;
419          V60= car((V52));          V60= car((V52));
420          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
421          goto T237;}          goto T237;}
422          V61= cadr((V52));          V61= cadr((V52));
423  goto T237;          goto T237;
424  T237:;  T237:;
425          (void)((*(LnkLI58))((V60),(V61)));}          (void)((*(LnkLI58))((V60),(V61)));}
426          {object V62;          {object V62;
427          V62= car((V34));          V62= car((V34));
428          V34= cdr((V34));          V34= cdr((V34));
429          goto T141;}          goto T141;}
430  goto T234;          goto T234;
431  T234:;  T234:;
432          if(((V39))==Cnil){          if(((V39))==Cnil){
433          goto T251;}          goto T251;}
# Line 454  T234:; Line 454  T234:;
454          vs_top=sup;          vs_top=sup;
455          V65= vs_base[0];          V65= vs_base[0];
456          goto T255;          goto T255;
457  goto T257;          goto T257;
458  T257:;  T257:;
459          if(!(type_of(car((V52)))==t_symbol)){          if(!(type_of(car((V52)))==t_symbol)){
460          goto T266;}          goto T266;}
# Line 466  T257:; Line 466  T257:;
466          vs_top=sup;          vs_top=sup;
467          V65= vs_base[0];          V65= vs_base[0];
468          goto T264;          goto T264;
469  goto T266;          goto T266;
470  T266:;  T266:;
471          V64= cadar((V52));          V64= cadar((V52));
472          V65= caar((V52));          V65= caar((V52));
473  goto T264;          goto T264;
474  T264:;  T264:;
475          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
476          goto T255;}          goto T255;}
# Line 478  T264:; Line 478  T264:;
478          if(endp_prop(cddr((V52)))){          if(endp_prop(cddr((V52)))){
479          goto T255;}          goto T255;}
480          V67= caddr((V52));          V67= caddr((V52));
481  goto T255;          goto T255;
482  T255:;  T255:;
483          V68= list(4,VV[9],(V42),(V65),VV[29]);          V68= list(4,VV[9],(V42),(V65),VV[29]);
484          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));          (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));
# Line 488  T255:; Line 488  T255:;
488          goto T285;}          goto T285;}
489          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));          V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));
490          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));          (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));
491  goto T285;          goto T285;
492  T285:;  T285:;
493          V44= make_cons(V65,(V44));}          V44= make_cons(V65,(V44));}
494          {object V72;          {object V72;
495          V72= car((V34));          V72= car((V34));
496          V34= cdr((V34));          V34= cdr((V34));
497          goto T141;}          goto T141;}
498  goto T251;          goto T251;
499  T251:;  T251:;
500          if(((V37))==Cnil){          if(((V37))==Cnil){
501          goto T293;}          goto T293;}
# Line 509  T251:; Line 509  T251:;
509          goto T298;}          goto T298;}
510          V73= (V52);          V73= (V52);
511          goto T296;          goto T296;
512  goto T298;          goto T298;
513  T298:;  T298:;
514          V73= car((V52));          V73= car((V52));
515          if(endp_prop(cdr((V52)))){          if(endp_prop(cdr((V52)))){
# Line 518  T298:; Line 518  T298:;
518          if(endp_prop(cddr((V52)))){          if(endp_prop(cddr((V52)))){
519          goto T296;}          goto T296;}
520          V75= caddr((V52));          V75= caddr((V52));
521  goto T296;          goto T296;
522  T296:;  T296:;
523          V76= (*(LnkLI56))((V46),(V35));          V76= (*(LnkLI56))((V46),(V35));
524          V77= (*(LnkLI59))((V46),(V35));          V77= (*(LnkLI59))((V46),(V35));
# Line 528  T296:; Line 528  T296:;
528          goto T295;}          goto T295;}
529          V79= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));          V79= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));
530          (void)((*(LnkLI58))((V75),/* INLINE-ARGS */V79));}          (void)((*(LnkLI58))((V75),/* INLINE-ARGS */V79));}
531  goto T295;          goto T295;
532  T295:;  T295:;
533          V46= number_plus((V46),small_fixnum(1));          V46= number_plus((V46),small_fixnum(1));
534          {object V80;          {object V80;
535          V80= car((V34));          V80= car((V34));
536          V34= cdr((V34));          V34= cdr((V34));
537          goto T141;}          goto T141;}
538  goto T293;          goto T293;
539  T293:;  T293:;
540          V81= (*(LnkLI56))((V46),(V35));          V81= (*(LnkLI56))((V46),(V35));
541          V82= (*(LnkLI59))((V46),(V35));          V82= (*(LnkLI59))((V46),(V35));
# Line 545  T293:; Line 545  T293:;
545          {object V84;          {object V84;
546          V84= car((V34));          V84= car((V34));
547          V34= cdr((V34));}}          V34= cdr((V34));}}
548  goto T141;          goto T141;
549  T141:;  T141:;
550          goto T114;}          goto T114;}
551          base[0]=base[0];          base[0]=base[0];
# Line 557  static object LI4(V87,V88) Line 557  static object LI4(V87,V88)
557    
558  register object V87;register object V88;  register object V87;register object V88;
559  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
560  goto TTL;          goto TTL;
561  TTL:;  TTL:;
562          if(!(type_of((V87))==t_symbol)){          if(!(type_of((V87))==t_symbol)){
563          goto T327;}          goto T327;}
# Line 566  TTL:; Line 566  TTL:;
566          goto T331;}          goto T331;}
567          V89= list(2,(V87),(V88));          V89= list(2,(V87),(V88));
568          goto T329;          goto T329;
569  goto T331;          goto T331;
570  T331:;  T331:;
571          V89= (V87);          V89= (V87);
572  goto T329;          goto T329;
573  T329:;  T329:;
574          setq(VV[1],make_cons((V89),symbol_value(VV[1])));          setq(VV[1],make_cons((V89),symbol_value(VV[1])));
575          {object V90 = symbol_value(VV[1]);          {object V90 = symbol_value(VV[1]);
576          VMR4(V90)}}          VMR4(V90)}}
577  goto T327;          goto T327;
578  T327:;  T327:;
579          {object V91;          {object V91;
580          vs_base=vs_top;          vs_base=vs_top;
# Line 586  T327:; Line 586  T327:;
586          goto T338;}          goto T338;}
587          V92= list(2,(V91),(V88));          V92= list(2,(V91),(V88));
588          goto T336;          goto T336;
589  goto T338;          goto T338;
590  T338:;  T338:;
591          V92= (V91);          V92= (V91);
592  goto T336;          goto T336;
593  T336:;  T336:;
594          setq(VV[1],make_cons((V92),symbol_value(VV[1])));}          setq(VV[1],make_cons((V92),symbol_value(VV[1])));}
595          {object V93 = (*(LnkLI55))((V87),(V91),Cnil);          {object V93 = (*(LnkLI55))((V87),(V91),Cnil);
# Line 603  static object LI5(V96,V97) Line 603  static object LI5(V96,V97)
603    
604  object V96;register object V97;  object V96;register object V97;
605  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
606  goto TTL;          goto TTL;
607  TTL:;  TTL:;
608          {object V98;          {object V98;
609          object V99;          object V99;
# Line 618  TTL:; Line 618  TTL:;
618          V99= vs_base[0];          V99= vs_base[0];
619          vs_top=sup;          vs_top=sup;
620          goto T346;          goto T346;
621  goto T344;          goto T344;
622  T344:;  T344:;
623          V98= Cnil;          V98= Cnil;
624  goto T345;          goto T345;
625  T345:;  T345:;
626          V99= Cnil;          V99= Cnil;
627  goto T346;          goto T346;
628  T346:;  T346:;
629          {register object V100;          {register object V100;
630          register object V101;          register object V101;
631          V100= (V98);          V100= (V98);
632          V101= small_fixnum(0);          V101= small_fixnum(0);
633  goto T351;          goto T351;
634  T351:;  T351:;
635          if(!(number_compare((V101),(V100))>=0)){          if(!(number_compare((V101),(V100))>=0)){
636          goto T352;}          goto T352;}
637          goto T347;          goto T347;
638  goto T352;          goto T352;
639  T352:;  T352:;
640          V97= list(2,VV[37],(V97));          V97= list(2,VV[37],(V97));
641          V101= one_plus((V101));          V101= one_plus((V101));
642          goto T351;}          goto T351;}
643  goto T347;          goto T347;
644  T347:;  T347:;
645          {object V102= (V99);          {object V102= (V99);
646          if(!eql(V102,VV[38]))goto T361;          if(!eql(V102,VV[38]))goto T361;
647          {object V103 = list(2,VV[39],(V97));          {object V103 = list(2,VV[39],(V97));
648          VMR5(V103)}          VMR5(V103)}
649  goto T361;          goto T361;
650  T361:;  T361:;
651          if(!eql(V102,VV[40]))goto T362;          if(!eql(V102,VV[40]))goto T362;
652          {object V104 = list(2,VV[41],(V97));          {object V104 = list(2,VV[41],(V97));
653          VMR5(V104)}          VMR5(V104)}
654  goto T362;          goto T362;
655  T362:;  T362:;
656          if(!eql(V102,VV[42]))goto T363;          if(!eql(V102,VV[42]))goto T363;
657          {object V105 = list(2,VV[43],(V97));          {object V105 = list(2,VV[43],(V97));
658          VMR5(V105)}          VMR5(V105)}
659  goto T363;          goto T363;
660  T363:;  T363:;
661          if(!eql(V102,VV[44]))goto T364;          if(!eql(V102,VV[44]))goto T364;
662          {object V106 = list(2,VV[45],(V97));          {object V106 = list(2,VV[45],(V97));
663          VMR5(V106)}          VMR5(V106)}
664  goto T364;          goto T364;
665  T364:;  T364:;
666          {object V107 = Cnil;          {object V107 = Cnil;
667          VMR5(V107)}}}          VMR5(V107)}}}
# Line 674  static object LI6(V110,V111) Line 674  static object LI6(V110,V111)
674    
675  object V110;register object V111;  object V110;register object V111;
676  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
677  goto TTL;          goto TTL;
678  TTL:;  TTL:;
679          {object V112;          {object V112;
680          object V113;          object V113;
# Line 689  TTL:; Line 689  TTL:;
689          V113= vs_base[0];          V113= vs_base[0];
690          vs_top=sup;          vs_top=sup;
691          goto T370;          goto T370;
692  goto T368;          goto T368;
693  T368:;  T368:;
694          V112= Cnil;          V112= Cnil;
695  goto T369;          goto T369;
696  T369:;  T369:;
697          V113= Cnil;          V113= Cnil;
698  goto T370;          goto T370;
699  T370:;  T370:;
700          {register object V114;          {register object V114;
701          register object V115;          register object V115;
702          V114= (V112);          V114= (V112);
703          V115= small_fixnum(0);          V115= small_fixnum(0);
704  goto T375;          goto T375;
705  T375:;  T375:;
706          if(!(number_compare((V115),(V114))>=0)){          if(!(number_compare((V115),(V114))>=0)){
707          goto T376;}          goto T376;}
708          goto T371;          goto T371;
709  goto T376;          goto T376;
710  T376:;  T376:;
711          V111= list(2,VV[37],(V111));          V111= list(2,VV[37],(V111));
712          V115= one_plus((V115));          V115= one_plus((V115));
713          goto T375;}          goto T375;}
714  goto T371;          goto T371;
715  T371:;  T371:;
716          {object V116= (V113);          {object V116= (V113);
717          if(!eql(V116,VV[38]))goto T385;          if(!eql(V116,VV[38]))goto T385;
718          {object V117 = (V111);          {object V117 = (V111);
719          VMR6(V117)}          VMR6(V117)}
720  goto T385;          goto T385;
721  T385:;  T385:;
722          if(!eql(V116,VV[40]))goto T386;          if(!eql(V116,VV[40]))goto T386;
723          {object V118 = list(2,VV[46],(V111));          {object V118 = list(2,VV[46],(V111));
724          VMR6(V118)}          VMR6(V118)}
725  goto T386;          goto T386;
726  T386:;  T386:;
727          if(!eql(V116,VV[42]))goto T387;          if(!eql(V116,VV[42]))goto T387;
728          {object V119 = list(2,VV[47],(V111));          {object V119 = list(2,VV[47],(V111));
729          VMR6(V119)}          VMR6(V119)}
730  goto T387;          goto T387;
731  T387:;  T387:;
732          if(!eql(V116,VV[44]))goto T388;          if(!eql(V116,VV[44]))goto T388;
733          {object V120 = list(2,VV[48],(V111));          {object V120 = list(2,VV[48],(V111));
734          VMR6(V120)}          VMR6(V120)}
735  goto T388;          goto T388;
736  T388:;  T388:;
737          {object V121 = Cnil;          {object V121 = Cnil;
738          VMR6(V121)}}}          VMR6(V121)}}}
# Line 745  static object LI7(V123) Line 745  static object LI7(V123)
745    
746  object V123;  object V123;
747  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
748  goto TTL;          goto TTL;
749  TTL:;  TTL:;
750          base[0]= VV[49];          base[0]= VV[49];
751          base[1]= (V123);          base[1]= (V123);
# Line 762  TTL:; Line 762  TTL:;
762  static object LI8()  static object LI8()
763    
764  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
765  goto TTL;          goto TTL;
766  TTL:;  TTL:;
767          base[0]= VV[50];          base[0]= VV[50];
768          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 778  TTL:; Line 778  TTL:;
778  static object LI9()  static object LI9()
779    
780  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
781  goto TTL;          goto TTL;
782  TTL:;  TTL:;
783          base[0]= VV[51];          base[0]= VV[51];
784          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 795  static object LI10(V128) Line 795  static object LI10(V128)
795    
796  object V128;  object V128;
797  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
798  goto TTL;          goto TTL;
799  TTL:;  TTL:;
800          base[0]= VV[52];          base[0]= VV[52];
801          base[1]= (V128);          base[1]= (V128);
# Line 819  static void L11() Line 819  static void L11()
819          V130=(base[0]);          V130=(base[0]);
820          V131=(base[1]);          V131=(base[1]);
821          vs_top=sup;          vs_top=sup;
822  goto TTL;          goto TTL;
823  TTL:;  TTL:;
824          if(!(endp_prop((V130)))){          if(!(endp_prop((V130)))){
825          goto T396;}          goto T396;}
# Line 828  TTL:; Line 828  TTL:;
828          base[4]= Cnil;          base[4]= Cnil;
829          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
830          return;          return;
831  goto T396;          goto T396;
832  T396:;  T396:;
833          {register object V132;          {register object V132;
834          base[2]= car((V130));          base[2]= car((V130));
# Line 842  T396:; Line 842  T396:;
842          goto T406;}          goto T406;}
843          if(((V131))==Cnil){          if(((V131))==Cnil){
844          goto T407;}          goto T407;}
845  goto T406;          goto T406;
846  T406:;  T406:;
847          base[2]= Cnil;          base[2]= Cnil;
848          base[3]= Cnil;          base[3]= Cnil;
849          base[4]= make_cons((V132),cdr((V130)));          base[4]= make_cons((V132),cdr((V130)));
850          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
851          return;          return;
852  goto T407;          goto T407;
853  T407:;  T407:;
854          {object V133;          {object V133;
855          object V134;          object V134;
# Line 868  T407:; Line 868  T407:;
868          V135= vs_base[0];          V135= vs_base[0];
869          vs_top=sup;          vs_top=sup;
870          goto T420;          goto T420;
871  goto T417;          goto T417;
872  T417:;  T417:;
873          V133= Cnil;          V133= Cnil;
874  goto T418;          goto T418;
875  T418:;  T418:;
876          V134= Cnil;          V134= Cnil;
877  goto T419;          goto T419;
878  T419:;  T419:;
879          V135= Cnil;          V135= Cnil;
880  goto T420;          goto T420;
881  T420:;  T420:;
882          base[2]= (V132);          base[2]= (V132);
883          base[3]= (V134);          base[3]= (V134);
884          base[4]= (V135);          base[4]= (V135);
885          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
886          return;}          return;}
887  goto T404;          goto T404;
888  T404:;  T404:;
889          if(!(type_of((V132))==t_cons)){          if(!(type_of((V132))==t_cons)){
890          goto T425;}          goto T425;}
# Line 907  T404:; Line 907  T404:;
907          V138= vs_base[0];          V138= vs_base[0];
908          vs_top=sup;          vs_top=sup;
909          goto T435;          goto T435;
910  goto T432;          goto T432;
911  T432:;  T432:;
912          V136= Cnil;          V136= Cnil;
913  goto T433;          goto T433;
914  T433:;  T433:;
915          V137= Cnil;          V137= Cnil;
916  goto T434;          goto T434;
917  T434:;  T434:;
918          V138= Cnil;          V138= Cnil;
919  goto T435;          goto T435;
920  T435:;  T435:;
921          base[2]= (V136);          base[2]= (V136);
922          base[3]= make_cons((V132),(V137));          base[3]= make_cons((V132),(V137));
923          base[4]= (V138);          base[4]= (V138);
924          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
925          return;}          return;}
926  goto T425;          goto T425;
927  T425:;  T425:;
928          base[2]= Cnil;          base[2]= Cnil;
929          base[3]= Cnil;          base[3]= Cnil;
# Line 942  static void L12() Line 942  static void L12()
942          check_arg(1);          check_arg(1);
943          V139=(base[0]);          V139=(base[0]);
944          vs_top=sup;          vs_top=sup;
945  goto TTL;          goto TTL;
946  TTL:;  TTL:;
947          if(!(endp_prop((V139)))){          if(!(endp_prop((V139)))){
948          goto T443;}          goto T443;}
# Line 950  TTL:; Line 950  TTL:;
950          base[2]= Cnil;          base[2]= Cnil;
951          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
952          return;          return;
953  goto T443;          goto T443;
954  T443:;  T443:;
955          {register object V140;          {register object V140;
956          base[1]= car((V139));          base[1]= car((V139));
# Line 966  T443:; Line 966  T443:;
966          base[2]= make_cons((V140),Cnil);          base[2]= make_cons((V140),Cnil);
967          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
968          return;          return;
969  goto T453;          goto T453;
970  T453:;  T453:;
971          {object V141;          {object V141;
972          object V142;          object V142;
# Line 980  T453:; Line 980  T453:;
980          V142= vs_base[0];          V142= vs_base[0];
981          vs_top=sup;          vs_top=sup;
982          goto T461;          goto T461;
983  goto T459;          goto T459;
984  T459:;  T459:;
985          V141= Cnil;          V141= Cnil;
986  goto T460;          goto T460;
987  T460:;  T460:;
988          V142= Cnil;          V142= Cnil;
989  goto T461;          goto T461;
990  T461:;  T461:;
991          base[1]= make_cons((V140),(V141));          base[1]= make_cons((V140),(V141));
992          base[2]= (V142);          base[2]= (V142);
993          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
994          return;}          return;}
995  goto T450;          goto T450;
996  T450:;  T450:;
997          if(!(type_of((V140))==t_cons)){          if(!(type_of((V140))==t_cons)){
998          goto T465;}          goto T465;}
# Line 1010  T450:; Line 1010  T450:;
1010          V144= vs_base[0];          V144= vs_base[0];
1011          vs_top=sup;          vs_top=sup;
1012          goto T473;          goto T473;
1013  goto T471;          goto T471;
1014  T471:;  T471:;
1015          V143= Cnil;          V143= Cnil;
1016  goto T472;          goto T472;
1017  T472:;  T472:;
1018          V144= Cnil;          V144= Cnil;
1019  goto T473;          goto T473;
1020  T473:;  T473:;
1021          base[1]= make_cons((V140),(V143));          base[1]= make_cons((V140),(V143));
1022          base[2]= (V144);          base[2]= (V144);
1023          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1024          return;}          return;}
1025  goto T465;          goto T465;
1026  T465:;  T465:;
1027          base[1]= Cnil;          base[1]= Cnil;
1028          base[2]= make_cons((V140),cdr((V139)));          base[2]= make_cons((V140),cdr((V139)));

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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