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

Diff of /gcl/lsp/destructuring_bind.c

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

revision 1.7 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.8 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "destructuring_bind.h"  #include "destructuring_bind.h"
4  init_destructuring_bind(){do_init(VV);}  void init_destructuring_bind(){do_init(VV);}
5  /*      function definition for PARSE-DEFMACRO  */  /*      function definition for PARSE-DEFMACRO  */
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 55  static L1() Line 55  static L1()
55          V12= vs_base[0];          V12= vs_base[0];
56          vs_top=sup;          vs_top=sup;
57          goto T10;          goto T10;
58    goto T7;
59  T7:;  T7:;
60          V10= Cnil;          V10= Cnil;
61    goto T8;
62  T8:;  T8:;
63          V11= Cnil;          V11= Cnil;
64    goto T9;
65  T9:;  T9:;
66          V12= Cnil;          V12= Cnil;
67    goto T10;
68  T10:;  T10:;
69          bds_bind(VV[2],Cnil);          bds_bind(VV[2],Cnil);
70          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
# Line 89  T10:; Line 93  T10:;
93          V15= vs_base[0];          V15= vs_base[0];
94          vs_top=sup;          vs_top=sup;
95          goto T23;          goto T23;
96    goto T20;
97  T20:;  T20:;
98          V13= Cnil;          V13= Cnil;
99    goto T21;
100  T21:;  T21:;
101          V14= Cnil;          V14= Cnil;
102    goto T22;
103  T22:;  T22:;
104          V15= Cnil;          V15= Cnil;
105    goto T23;
106  T23:;  T23:;
107          V16= nreverse((VV[4]->s.s_dbind));          V16= nreverse((VV[4]->s.s_dbind));
108          if(((VV[5]->s.s_dbind))==Cnil){          if(((VV[5]->s.s_dbind))==Cnil){
# Line 102  T23:; Line 110  T23:;
110          V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind)));          V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind)));
111          base[20]= make_cons(/* INLINE-ARGS */V18,Cnil);          base[20]= make_cons(/* INLINE-ARGS */V18,Cnil);
112          goto T26;          goto T26;
113    goto T28;
114  T28:;  T28:;
115          base[20]= Cnil;          base[20]= Cnil;
116    goto T26;
117  T26:;  T26:;
118          base[21]= (VV[2]->s.s_dbind);          base[21]= (VV[2]->s.s_dbind);
119          V19= nreverse((VV[3]->s.s_dbind));          V19= nreverse((VV[3]->s.s_dbind));
# Line 121  T26:; Line 131  T26:;
131          V21= list(2,VV[7],list(2,VV[9],(V8)));          V21= list(2,VV[7],list(2,VV[9],(V8)));
132          base[20]= make_cons(/* INLINE-ARGS */V21,Cnil);          base[20]= make_cons(/* INLINE-ARGS */V21,Cnil);
133          goto T32;          goto T32;
134    goto T34;
135  T34:;  T34:;
136          base[20]= Cnil;          base[20]= Cnil;
137    goto T32;
138  T32:;  T32:;
139          base[21]= (V12);          base[21]= (V12);
140          base[22]= (V14);          base[22]= (V14);
# Line 138  T32:; Line 150  T32:;
150  }  }
151  /*      function definition for PARSE-DEFMACRO-LAMBDA-LIST      */  /*      function definition for PARSE-DEFMACRO-LAMBDA-LIST      */
152    
153  static L2()  static void L2()
154  {register object *base=vs_base;  {register object *base=vs_base;
155          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
156          vs_reserve(VM2);          vs_reserve(VM2);
# Line 168  static L2() Line 180  static L2()
180          V29=(base[7]);          V29=(base[7]);
181          vs_top=sup;          vs_top=sup;
182          goto T44;          goto T44;
183    goto T41;
184  T41:;  T41:;
185          V27= Cnil;          V27= Cnil;
186    goto T42;
187  T42:;  T42:;
188          V28= Cnil;          V28= Cnil;
189    goto T43;
190  T43:;  T43:;
191          V29= Cnil;          V29= Cnil;
192    goto T44;
193  T44:;  T44:;
194          {register object V30;          {register object V30;
195          object V31;          object V31;
# Line 188  T44:; Line 204  T44:;
204          goto T50;}          goto T50;}
205          V30= list(2,VV[10],(V23));          V30= list(2,VV[10],(V23));
206          goto T48;          goto T48;
207    goto T50;
208  T50:;  T50:;
209          V30= (V23);          V30= (V23);
210    goto T48;
211  T48:;  T48:;
212          V31= VV[11];          V31= VV[11];
213          V32= small_fixnum(0);          V32= small_fixnum(0);
# Line 201  T48:; Line 219  T48:;
219          V38= Cnil;          V38= Cnil;
220          {object V39;          {object V39;
221          V39= (V22);          V39= (V22);
222    goto T57;
223  T57:;  T57:;
224          if(!(type_of((V39))!=t_cons)){          if(!(type_of((V39))!=t_cons)){
225          goto T58;}          goto T58;}
226          goto T52;          goto T52;
227    goto T58;
228  T58:;  T58:;
229          if(!((car((V39)))==(VV[12]))){          if(!((car((V39)))==(VV[12]))){
230          goto T62;}          goto T62;}
231          goto T55;          goto T55;
232    goto T62;
233  T62:;  T62:;
234          V39= cdr((V39));          V39= cdr((V39));
235          goto T57;}          goto T57;}
236    goto T55;
237  T55:;  T55:;
238          if((car((V22)))==(VV[12])){          if((car((V22)))==(VV[12])){
239          goto T52;}          goto T52;}
# Line 220  T55:; Line 242  T55:;
242          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
243          Lerror();          Lerror();
244          vs_top=sup;          vs_top=sup;
245    goto T52;
246  T52:;  T52:;
247          {register object V40;          {register object V40;
248          V40= (V22);          V40= (V22);
249    goto T73;
250  T73:;  T73:;
251          if(!(type_of((V40))!=t_cons)){          if(!(type_of((V40))!=t_cons)){
252          goto T74;}          goto T74;}
253          if(((V40))!=Cnil){          if(((V40))!=Cnil){
254          goto T78;}          goto T78;}
255          goto T71;          goto T71;
256    goto T78;
257  T78:;  T78:;
258          base[8]= (V40);          base[8]= (V40);
259          base[9]= (V30);          base[9]= (V30);
# Line 238  T78:; Line 263  T78:;
263          vs_top=sup;          vs_top=sup;
264          V36= Ct;          V36= Ct;
265          goto T71;          goto T71;
266    goto T74;
267  T74:;  T74:;
268          {register object V41;          {register object V41;
269          V41= car((V40));          V41= car((V40));
# Line 255  T74:; Line 281  T74:;
281          (void) (*Lnk81)();          (void) (*Lnk81)();
282          vs_top=sup;          vs_top=sup;
283          goto T86;          goto T86;
284    goto T92;
285  T92:;  T92:;
286          base[8]= VV[14];          base[8]= VV[14];
287          base[9]= (V25);          base[9]= (V25);
# Line 263  T92:; Line 290  T92:;
290          (void) (*Lnk82)();          (void) (*Lnk82)();
291          vs_top=sup;          vs_top=sup;
292          goto T86;          goto T86;
293    goto T89;
294  T89:;  T89:;
295          if(!(((V41))==(VV[15]))){          if(!(((V41))==(VV[15]))){
296          goto T105;}          goto T105;}
# Line 274  T89:; Line 302  T89:;
302          Lerror();          Lerror();
303          vs_top=sup;          vs_top=sup;
304          goto T107;          goto T107;
305    goto T109;
306  T109:;  T109:;
307          if(((V27))!=Cnil){          if(((V27))!=Cnil){
308          goto T107;}          goto T107;}
# Line 281  T109:; Line 310  T109:;
310          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
311          Lerror();          Lerror();
312          vs_top=sup;          vs_top=sup;
313    goto T107;
314  T107:;  T107:;
315          if((cdr((V40)))==Cnil){          if((cdr((V40)))==Cnil){
316          goto T117;}          goto T117;}
# Line 295  T107:; Line 325  T107:;
325          vs_top=sup;          vs_top=sup;
326          V38= Ct;          V38= Ct;
327          goto T86;          goto T86;
328    goto T117;
329  T117:;  T117:;
330          base[8]= VV[18];          base[8]= VV[18];
331          base[9]= (V25);          base[9]= (V25);
# Line 303  T117:; Line 334  T117:;
334          (void) (*Lnk82)();          (void) (*Lnk82)();
335          vs_top=sup;          vs_top=sup;
336          goto T86;          goto T86;
337    goto T105;
338  T105:;  T105:;
339          if(((V41))==(VV[19])){          if(((V41))==(VV[19])){
340          goto T131;}          goto T131;}
341          if(!(((V41))==(VV[20]))){          if(!(((V41))==(VV[20]))){
342          goto T132;}          goto T132;}
343    goto T131;
344  T131:;  T131:;
345          if((cdr((V40)))==Cnil){          if((cdr((V40)))==Cnil){
346          goto T137;}          goto T137;}
# Line 322  T131:; Line 355  T131:;
355          (void) (*Lnk81)();          (void) (*Lnk81)();
356          vs_top=sup;          vs_top=sup;
357          goto T86;          goto T86;
358    goto T137;
359  T137:;  T137:;
360          if((cdr((V40)))==Cnil){          if((cdr((V40)))==Cnil){
361          goto T149;}          goto T149;}
# Line 357  T137:; Line 391  T137:;
391          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
392          (void) (*Lnk81)();          (void) (*Lnk81)();
393          vs_top=sup;          vs_top=sup;
394    goto T169;
395  T169:;  T169:;
396          if(((V43))==Cnil){          if(((V43))==Cnil){
397          goto T175;}          goto T175;}
# Line 366  T169:; Line 401  T169:;
401          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
402          (void) (*Lnk81)();          (void) (*Lnk81)();
403          vs_top=sup;          vs_top=sup;
404    goto T175;
405  T175:;  T175:;
406          if(((V44))==Cnil){          if(((V44))==Cnil){
407          goto T86;}          goto T86;}
# Line 376  T175:; Line 412  T175:;
412          (void) (*Lnk81)();          (void) (*Lnk81)();
413          vs_top=sup;          vs_top=sup;
414          goto T86;}          goto T86;}
415    goto T149;
416  T149:;  T149:;
417          base[8]= symbol_name((V41));          base[8]= symbol_name((V41));
418          base[9]= (V25);          base[9]= (V25);
# Line 384  T149:; Line 421  T149:;
421          (void) (*Lnk82)();          (void) (*Lnk82)();
422          vs_top=sup;          vs_top=sup;
423          goto T86;          goto T86;
424    goto T132;
425  T132:;  T132:;
426          if(!(((V41))==(VV[26]))){          if(!(((V41))==(VV[26]))){
427          goto T190;}          goto T190;}
428          V31= VV[27];          V31= VV[27];
429          goto T86;          goto T86;
430    goto T190;
431  T190:;  T190:;
432          if(!(((V41))==(VV[28]))){          if(!(((V41))==(VV[28]))){
433          goto T194;}          goto T194;}
# Line 407  T190:; Line 446  T190:;
446          (void) (*Lnk81)();          (void) (*Lnk81)();
447          vs_top=sup;          vs_top=sup;
448          goto T86;          goto T86;
449    goto T194;
450  T194:;  T194:;
451          if(!(((V41))==(VV[31]))){          if(!(((V41))==(VV[31]))){
452          goto T209;}          goto T209;}
453          V37= Ct;          V37= Ct;
454          goto T86;          goto T86;
455    goto T209;
456  T209:;  T209:;
457          if(!(((V41))==(VV[32]))){          if(!(((V41))==(VV[32]))){
458          goto T213;}          goto T213;}
459          V31= VV[33];          V31= VV[33];
460          goto T86;          goto T86;
461    goto T213;
462  T213:;  T213:;
463          if(!(type_of((V41))==t_cons||((V41))==Cnil)){          if(!(type_of((V41))==t_cons||((V41))==Cnil)){
464          goto T217;}          goto T217;}
# Line 449  T213:; Line 491  T213:;
491          V33= number_plus((V33),small_fixnum(1));          V33= number_plus((V33),small_fixnum(1));
492          V32= number_plus((V32),small_fixnum(1));          V32= number_plus((V32),small_fixnum(1));
493          goto T86;          goto T86;
494    goto T219;
495  T219:;  T219:;
496          if((V46!= VV[27]))goto T240;          if((V46!= VV[27]))goto T240;
497          if(!((length((V41)))>(3))){          if(!((length((V41)))>(3))){
# Line 459  T219:; Line 502  T219:;
502          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
503          Lcerror();          Lcerror();
504          vs_top=sup;          vs_top=sup;
505    goto T241;
506  T241:;  T241:;
507          base[8]= car((V41));          base[8]= car((V41));
508          base[9]= cadr((V41));          base[9]= cadr((V41));
# Line 474  T241:; Line 518  T241:;
518          V30= list(2,VV[10],(V30));          V30= list(2,VV[10],(V30));
519          V32= number_plus((V32),small_fixnum(1));          V32= number_plus((V32),small_fixnum(1));
520          goto T86;          goto T86;
521    goto T240;
522  T240:;  T240:;
523          if((V46!= VV[29]))goto T259;          if((V46!= VV[29]))goto T259;
524          {object V48;          {object V48;
# Line 485  T240:; Line 530  T240:;
530          goto T263;}          goto T263;}
531          V49= cadar((V41));          V49= cadar((V41));
532          goto T261;          goto T261;
533    goto T263;
534  T263:;  T263:;
535          V49= car((V41));          V49= car((V41));
536    goto T261;
537  T261:;  T261:;
538          if(((V48))==Cnil){          if(((V48))==Cnil){
539          goto T267;}          goto T267;}
540          V50= caar((V41));          V50= caar((V41));
541          goto T265;          goto T265;
542    goto T267;
543  T267:;  T267:;
544          base[12]= (V49);          base[12]= (V49);
545          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
546          (void) (*Lnk85)();          (void) (*Lnk85)();
547          vs_top=sup;          vs_top=sup;
548          V50= vs_base[0];          V50= vs_base[0];
549    goto T265;
550  T265:;  T265:;
551          V51= caddr((V41));          V51= caddr((V41));
552          base[12]= (V49);          base[12]= (V49);
# Line 513  T265:; Line 562  T265:;
562          vs_top=sup;          vs_top=sup;
563          V34= make_cons((V50),(V34));          V34= make_cons((V50),(V34));
564          goto T86;}          goto T86;}
565    goto T259;
566  T259:;  T259:;
567          if((V46!= VV[33]))goto T281;          if((V46!= VV[33]))goto T281;
568          base[8]= car((V41));          base[8]= car((V41));
# Line 522  T259:; Line 572  T259:;
572          (void) (*Lnk81)();          (void) (*Lnk81)();
573          vs_top=sup;          vs_top=sup;
574          goto T86;          goto T86;
575    goto T281;
576  T281:;  T281:;
577          goto T86;}          goto T86;}
578    goto T217;
579  T217:;  T217:;
580          if(!(type_of((V41))==t_symbol)){          if(!(type_of((V41))==t_symbol)){
581          goto T286;}          goto T286;}
# Line 539  T217:; Line 591  T217:;
591          vs_top=sup;          vs_top=sup;
592          V30= list(2,VV[10],(V30));          V30= list(2,VV[10],(V30));
593          goto T86;          goto T86;
594    goto T288;
595  T288:;  T288:;
596          if((V52!= VV[27]))goto T298;          if((V52!= VV[27]))goto T298;
597          V32= number_plus((V32),small_fixnum(1));          V32= number_plus((V32),small_fixnum(1));
# Line 551  T288:; Line 604  T288:;
604          vs_top=sup;          vs_top=sup;
605          V30= list(2,VV[10],(V30));          V30= list(2,VV[10],(V30));
606          goto T86;          goto T86;
607    goto T298;
608  T298:;  T298:;
609          if((V52!= VV[29]))goto T307;          if((V52!= VV[29]))goto T307;
610          {object V53;          {object V53;
# Line 567  T298:; Line 621  T298:;
621          vs_top=sup;          vs_top=sup;
622          V34= make_cons((V53),(V34));          V34= make_cons((V53),(V34));
623          goto T86;}          goto T86;}
624    goto T307;
625  T307:;  T307:;
626          if((V52!= VV[33]))goto T315;          if((V52!= VV[33]))goto T315;
627          base[8]= (V41);          base[8]= (V41);
# Line 576  T307:; Line 631  T307:;
631          (void) (*Lnk81)();          (void) (*Lnk81)();
632          vs_top=sup;          vs_top=sup;
633          goto T86;          goto T86;
634    goto T315;
635  T315:;  T315:;
636          goto T86;}          goto T86;}
637    goto T286;
638  T286:;  T286:;
639          base[8]= VV[42];          base[8]= VV[42];
640          base[9]= (V41);          base[9]= (V41);
641          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
642          Lerror();          Lerror();
643          vs_top=sup;}          vs_top=sup;}
644    goto T86;
645  T86:;  T86:;
646          V40= cdr((V40));          V40= cdr((V40));
647          goto T73;}          goto T73;}
648    goto T71;
649  T71:;  T71:;
650          if(((V36))!=Cnil){          if(((V36))!=Cnil){
651          goto T324;}          goto T324;}
# Line 594  T71:; Line 653  T71:;
653          goto T330;}          goto T330;}
654          V54= list(2,VV[10],(V23));          V54= list(2,VV[10],(V23));
655          goto T328;          goto T328;
656    goto T330;
657  T330:;  T330:;
658          V54= (V23);          V54= (V23);
659    goto T328;
660  T328:;  T328:;
661          V55= list(2,VV[45],list(3,VV[46],VV[47],V54));          V55= list(2,VV[45],list(3,VV[46],VV[47],V54));
662          if(((V36))!=Cnil){          if(((V36))!=Cnil){
663          goto T334;}          goto T334;}
664          V56= make_cons((V32),Cnil);          V56= make_cons((V32),Cnil);
665          goto T332;          goto T332;
666    goto T334;
667  T334:;  T334:;
668          V56= Cnil;          V56= Cnil;
669    goto T332;
670  T332:;  T332:;
671          V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56);          V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56);
672          {object V59;          {object V59;
# Line 611  T332:; Line 674  T332:;
674          goto T339;}          goto T339;}
675          V59= list(2,VV[10],(V23));          V59= list(2,VV[10],(V23));
676          goto T337;          goto T337;
677    goto T339;
678  T339:;  T339:;
679          V59= (V23);          V59= (V23);
680    goto T337;
681  T337:;  T337:;
682          if(!(((V26))==(VV[1]))){          if(!(((V26))==(VV[1]))){
683          goto T342;}          goto T342;}
# Line 623  T337:; Line 688  T337:;
688          goto T346;}          goto T346;}
689          V63= (V32);          V63= (V32);
690          goto T344;          goto T344;
691    goto T346;
692  T346:;  T346:;
693          V63= Cnil;          V63= Cnil;
694    goto T344;
695  T344:;  T344:;
696          V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63);          V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63);
697          goto T336;          goto T336;
698    goto T342;
699  T342:;  T342:;
700          V64= list(2,VV[40],(V25));          V64= list(2,VV[40],(V25));
701          if(((V24))==Cnil){          if(((V24))==Cnil){
702          goto T350;}          goto T350;}
703          V65= list(2,VV[51],list(2,VV[40],(V24)));          V65= list(2,VV[51],list(2,VV[40],(V24)));
704          goto T348;          goto T348;
705    goto T350;
706  T350:;  T350:;
707          V65= Cnil;          V65= Cnil;
708    goto T348;
709  T348:;  T348:;
710          V66= list(2,VV[40],(V22));          V66= list(2,VV[40],(V22));
711          if(((V36))!=Cnil){          if(((V36))!=Cnil){
712          goto T354;}          goto T354;}
713          V67= list(2,VV[55],(V32));          V67= list(2,VV[55],(V32));
714          goto T352;          goto T352;
715    goto T354;
716  T354:;  T354:;
717          V67= Cnil;          V67= Cnil;
718    goto T352;
719  T352:;  T352:;
720          V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67);          V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67);
721          V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));}          V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));}
722    goto T336;
723  T336:;  T336:;
724          V69= list(3,VV[43],/* INLINE-ARGS */V57,V58);          V69= list(3,VV[43],/* INLINE-ARGS */V57,V58);
725          setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2])));          setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2])));
726    goto T324;
727  T324:;  T324:;
728          if(((V34))==Cnil){          if(((V34))==Cnil){
729          goto T356;}          goto T356;}
# Line 673  T324:; Line 747  T324:;
747          goto T366;}          goto T366;}
748          V76= list(2,VV[51],list(2,VV[40],(V24)));          V76= list(2,VV[51],list(2,VV[40],(V24)));
749          goto T364;          goto T364;
750    goto T366;
751  T366:;  T366:;
752          V76= Cnil;          V76= Cnil;
753    goto T364;
754  T364:;  T364:;
755          V77= list(4,VV[62],(V70),VV[63],(V71));          V77= list(4,VV[62],(V70),VV[63],(V71));
756          V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77))));          V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77))));
757          setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));}          setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));}
758    goto T356;
759  T356:;  T356:;
760          base[8]= (V38);          base[8]= (V38);
761          base[9]= (V33);          base[9]= (V33);
# Line 686  T356:; Line 763  T356:;
763          goto T372;}          goto T372;}
764          base[10]= (V32);          base[10]= (V32);
765          goto T370;          goto T370;
766    goto T372;
767  T372:;  T372:;
768          base[10]= Cnil;          base[10]= Cnil;
769    goto T370;
770  T370:;  T370:;
771          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
772          return;}          return;}
# Line 695  T370:; Line 774  T370:;
774  }  }
775  /*      function definition for PUSH-SUB-LIST-BINDING   */  /*      function definition for PUSH-SUB-LIST-BINDING   */
776    
777  static L3()  static void L3()
778  {register object *base=vs_base;  {register object *base=vs_base;
779          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
780          vs_reserve(VM3);          vs_reserve(VM3);
# Line 713  static L3() Line 792  static L3()
792          V83=(base[4]);          V83=(base[4]);
793          V84=(base[5]);          V84=(base[5]);
794          vs_top=sup;          vs_top=sup;
795    goto TTL;
796  TTL:;  TTL:;
797          {register object V85;          {register object V85;
798          base[6]= VV[64];          base[6]= VV[64];
# Line 728  TTL:; Line 808  TTL:;
808          goto T379;}          goto T379;}
809          V90= list(2,VV[51],list(2,VV[40],(V82)));          V90= list(2,VV[51],list(2,VV[40],(V82)));
810          goto T377;          goto T377;
811    goto T379;
812  T379:;  T379:;
813          V90= Cnil;          V90= Cnil;
814    goto T377;
815  T377:;  T377:;
816          V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81)));          V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81)));
817          V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91)))));          V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91)))));
# Line 741  T377:; Line 823  T377:;
823  }  }
824  /*      function definition for PUSH-LET-BINDING        */  /*      function definition for PUSH-LET-BINDING        */
825    
826  static L4()  static void L4()
827  {register object *base=vs_base;  {register object *base=vs_base;
828          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
829          vs_reserve(VM4);          vs_reserve(VM4);
# Line 763  static L4() Line 845  static L4()
845          V97=(base[4]);          V97=(base[4]);
846          vs_top=sup;          vs_top=sup;
847          goto T383;          goto T383;
848    goto T381;
849  T381:;  T381:;
850          V96= Cnil;          V96= Cnil;
851    goto T382;
852  T382:;  T382:;
853          V97= symbol_value(VV[0]);          V97= symbol_value(VV[0]);
854    goto T383;
855  T383:;  T383:;
856          {object V98;          {object V98;
857          if(((V96))==Cnil){          if(((V96))==Cnil){
858          goto T388;}          goto T388;}
859          V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97)));          V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97)));
860          goto T386;          goto T386;
861    goto T388;
862  T388:;  T388:;
863          V98= list(2,(V93),(V94));          V98= list(2,(V93),(V94));
864    goto T386;
865  T386:;  T386:;
866          if(((V95))==Cnil){          if(((V95))==Cnil){
867          goto T391;}          goto T391;}
# Line 782  T386:; Line 869  T386:;
869          base[5]= symbol_value(VV[4]);          base[5]= symbol_value(VV[4]);
870          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
871          return;          return;
872    goto T391;
873  T391:;  T391:;
874          setq(VV[3],make_cons((V98),symbol_value(VV[3])));          setq(VV[3],make_cons((V98),symbol_value(VV[3])));
875          base[5]= symbol_value(VV[3]);          base[5]= symbol_value(VV[3]);
# Line 791  T391:; Line 879  T391:;
879  }  }
880  /*      function definition for PUSH-OPTIONAL-BINDING   */  /*      function definition for PUSH-OPTIONAL-BINDING   */
881    
882  static L5()  static void L5()
883  {register object *base=vs_base;  {register object *base=vs_base;
884          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
885          vs_reserve(VM5);          vs_reserve(VM5);
# Line 813  static L5() Line 901  static L5()
901          V105=(base[6]);          V105=(base[6]);
902          V106=(base[7]);          V106=(base[7]);
903          vs_top=sup;          vs_top=sup;
904    goto TTL;
905  TTL:;  TTL:;
906          if(((V101))!=Cnil){          if(((V101))!=Cnil){
907          goto T395;}          goto T395;}
# Line 821  TTL:; Line 910  TTL:;
910          Lgensym();          Lgensym();
911          vs_top=sup;          vs_top=sup;
912          V101= vs_base[0];          V101= vs_base[0];
913    goto T395;
914  T395:;  T395:;
915          base[8]= (V101);          base[8]= (V101);
916          base[9]= (V102);          base[9]= (V102);
# Line 853  T395:; Line 943  T395:;
943          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
944          (void) (*Lnk80)();          (void) (*Lnk80)();
945          return;}          return;}
946    goto T405;
947  T405:;  T405:;
948          if(!(type_of((V99))==t_symbol)){          if(!(type_of((V99))==t_symbol)){
949          goto T422;}          goto T422;}
# Line 864  T405:; Line 955  T405:;
955          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
956          (void) (*Lnk81)();          (void) (*Lnk81)();
957          return;          return;
958    goto T422;
959  T422:;  T422:;
960          base[8]= VV[72];          base[8]= VV[72];
961          base[9]= (V99);          base[9]= (V99);
# Line 874  T422:; Line 966  T422:;
966  }  }
967  /*      function definition for PARSE-BODY      */  /*      function definition for PARSE-BODY      */
968    
969  static L6()  static void L6()
970  {register object *base=vs_base;  {register object *base=vs_base;
971          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
972          vs_reserve(VM6);          vs_reserve(VM6);
# Line 890  static L6() Line 982  static L6()
982          V110=(base[2]);          V110=(base[2]);
983          vs_top=sup;          vs_top=sup;
984          goto T432;          goto T432;
985    goto T431;
986  T431:;  T431:;
987          V110= Ct;          V110= Ct;
988    goto T432;
989  T432:;  T432:;
990          {register object V111;          {register object V111;
991          register object V112;          register object V112;
# Line 899  T432:; Line 993  T432:;
993          V112= Cnil;          V112= Cnil;
994          {register object V113;          {register object V113;
995          V113= (V108);          V113= (V108);
996    goto T435;
997  T435:;  T435:;
998          if(!(endp((V113)))){          if(!(endp((V113)))){
999          goto T436;}          goto T436;}
# Line 907  T435:; Line 1002  T435:;
1002          base[5]= (V112);          base[5]= (V112);
1003          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1004          return;          return;
1005    goto T436;
1006  T436:;  T436:;
1007          {register object V114;          {register object V114;
1008          V114= car((V113));          V114= car((V113));
# Line 919  T436:; Line 1015  T436:;
1015          V112= (V114);          V112= (V114);
1016          V110= Cnil;          V110= Cnil;
1017          goto T443;          goto T443;
1018    goto T451;
1019  T451:;  T451:;
1020          base[3]= (V113);          base[3]= (V113);
1021          base[4]= nreverse((V111));          base[4]= nreverse((V111));
1022          base[5]= (V112);          base[5]= (V112);
1023          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1024          return;          return;
1025    goto T446;
1026  T446:;  T446:;
1027          if(!(type_of((V114))==t_cons)){          if(!(type_of((V114))==t_cons)){
1028          goto T459;}          goto T459;}
1029          if(type_of(car((V114)))==t_symbol){          if(type_of(car((V114)))==t_symbol){
1030          goto T460;}          goto T460;}
1031    goto T459;
1032  T459:;  T459:;
1033          base[3]= (V113);          base[3]= (V113);
1034          base[4]= nreverse((V111));          base[4]= nreverse((V111));
1035          base[5]= (V112);          base[5]= (V112);
1036          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1037          return;          return;
1038    goto T460;
1039  T460:;  T460:;
1040          if(!((car((V114)))==(VV[7]))){          if(!((car((V114)))==(VV[7]))){
1041          goto T468;}          goto T468;}
1042          V111= make_cons((V114),(V111));          V111= make_cons((V114),(V111));
1043          goto T443;          goto T443;
1044    goto T468;
1045  T468:;  T468:;
1046          base[3]= (V113);          base[3]= (V113);
1047          base[4]= nreverse((V111));          base[4]= nreverse((V111));
1048          base[5]= (V112);          base[5]= (V112);
1049          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1050          return;}          return;}
1051    goto T443;
1052  T443:;  T443:;
1053          V113= cdr((V113));          V113= cdr((V113));
1054          goto T435;}}          goto T435;}}
# Line 954  T443:; Line 1056  T443:;
1056  }  }
1057  /*      macro definition for DESTRUCTURING-BIND */  /*      macro definition for DESTRUCTURING-BIND */
1058    
1059  static L7()  static void L7()
1060  {register object *base=vs_base;  {register object *base=vs_base;
1061          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
1062          vs_reserve(VM7);          vs_reserve(VM7);
# Line 994  static L7() Line 1096  static L7()
1096          V118= vs_base[0];          V118= vs_base[0];
1097          vs_top=sup;          vs_top=sup;
1098          goto T491;          goto T491;
1099    goto T489;
1100  T489:;  T489:;
1101          V117= Cnil;          V117= Cnil;
1102    goto T490;
1103  T490:;  T490:;
1104          V118= Cnil;          V118= Cnil;
1105    goto T491;
1106  T491:;  T491:;
1107          V119= list(2,(V116),base[3]);          V119= list(2,(V116),base[3]);
1108          V120= make_cons(/* INLINE-ARGS */V119,Cnil);          V120= make_cons(/* INLINE-ARGS */V119,Cnil);
# Line 1006  T491:; Line 1111  T491:;
1111          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1112          return;}}          return;}}
1113  }  }
1114  static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* PARSE-DEFMACRO */  static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PARSE-DEFMACRO */
1115  static LnkT85(){ call_or_link(VV[85],&Lnk85);} /* MAKE-KEYWORD */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* MAKE-KEYWORD */
1116  static LnkT84(){ call_or_link(VV[84],&Lnk84);} /* PUSH-OPTIONAL-BINDING */  static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* PUSH-OPTIONAL-BINDING */
1117  static LnkT83(){ call_or_link(VV[83],&Lnk83);} /* PUSH-SUB-LIST-BINDING */  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-SUB-LIST-BINDING */
1118  static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* DEFMACRO-ERROR */
1119  static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* PUSH-LET-BINDING */
1120  static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */
1121  static LnkT22(){ call_or_link(VV[22],&Lnk22);} /* PARSE-BODY */  static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* PARSE-BODY */
1122    
1123  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1124  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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