/[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.10 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.11 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 19  static void L1() Line 19  static void L1()
19          object V8;          object V8;
20          object V9;          object V9;
21          if(vs_top-vs_base<5) too_few_arguments();          if(vs_top-vs_base<5) too_few_arguments();
22          parse_key(vs_base+5,FALSE,FALSE,5,VV[75],VV[76],VV[77],VV[78],VV[79]);          parse_key(vs_base+5,FALSE,FALSE,5,VV[77],VV[78],VV[79],VV[80],VV[81]);
23          V1=(base[0]);          V1=(base[0]);
24          V2=(base[1]);          V2=(base[1]);
25          V3=(base[2]);          V3=(base[2]);
# Line 44  static void L1() Line 44  static void L1()
44          base[16]= Cnil;          base[16]= Cnil;
45          base[17]= (V7);          base[17]= (V7);
46          vs_top=(vs_base=base+15)+3;          vs_top=(vs_base=base+15)+3;
47          (void) (*Lnk22)();          (void) (*Lnk24)();
48          if(vs_base>=vs_top){vs_top=sup;goto T7;}          if(vs_base>=vs_top){vs_top=sup;goto T7;}
49          V10= vs_base[0];          V10= vs_base[0];
50          vs_base++;          vs_base++;
# Line 82  T10:; Line 82  T10:;
82          base[25]= Cnil;          base[25]= Cnil;
83          base[26]= (V8);          base[26]= (V8);
84          vs_top=(vs_base=base+19)+8;          vs_top=(vs_base=base+19)+8;
85          (void) (*Lnk80)();          (void) (*Lnk82)();
86          if(vs_base>=vs_top){vs_top=sup;goto T20;}          if(vs_base>=vs_top){vs_top=sup;goto T20;}
87          V13= vs_base[0];          V13= vs_base[0];
88          vs_base++;          vs_base++;
# Line 148  T32:; Line 148  T32:;
148          return;}}          return;}}
149          }          }
150  }  }
151  /*      function definition for PARSE-DEFMACRO-LAMBDA-LIST      */  /*      function definition for MAKE-KEYWORD    */
152    
153  static void 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);
157          {object V22;          {object V22;
158          object V23;          check_arg(1);
159          register object V24;          V22=(base[0]);
160          register object V25;          vs_top=sup;
161          object V26;  goto TTL;
162    TTL:;
163            base[1]= VV[10];
164            base[2]= (V22);
165            vs_top=(vs_base=base+1)+2;
166            Lerror();
167            return;
168            }
169    }
170    /*      function definition for DEFMACRO-ERROR  */
171    
172    static void L3()
173    {register object *base=vs_base;
174            register object *sup=base+VM3; VC3
175            vs_reserve(VM3);
176            {object V23;
177            object V24;
178            object V25;
179            check_arg(3);
180            V23=(base[0]);
181            V24=(base[1]);
182            V25=(base[2]);
183            vs_top=sup;
184    goto TTL;
185    TTL:;
186            base[3]= VV[11];
187            base[4]= (V23);
188            base[5]= (V24);
189            base[6]= (V25);
190            vs_top=(vs_base=base+3)+4;
191            Lerror();
192            return;
193            }
194    }
195    /*      function definition for PARSE-DEFMACRO-LAMBDA-LIST      */
196    
197    static void L4()
198    {register object *base=vs_base;
199            register object *sup=base+VM4; VC4
200            vs_reserve(VM4);
201            {object V26;
202          object V27;          object V27;
203          object V28;          register object V28;
204          object V29;          register object V29;
205            object V30;
206            object V31;
207            object V32;
208            object V33;
209          if(vs_top-vs_base<5) too_few_arguments();          if(vs_top-vs_base<5) too_few_arguments();
210          if(vs_top-vs_base>8) too_many_arguments();          if(vs_top-vs_base>8) too_many_arguments();
211          V22=(base[0]);          V26=(base[0]);
212          V23=(base[1]);          V27=(base[1]);
213          V24=(base[2]);          V28=(base[2]);
214          V25=(base[3]);          V29=(base[3]);
215          V26=(base[4]);          V30=(base[4]);
216          vs_base=vs_base+5;          vs_base=vs_base+5;
217          if(vs_base>=vs_top){vs_top=sup;goto T41;}          if(vs_base>=vs_top){vs_top=sup;goto T47;}
218          V27=(base[5]);          V31=(base[5]);
219          vs_base++;          vs_base++;
220          if(vs_base>=vs_top){vs_top=sup;goto T42;}          if(vs_base>=vs_top){vs_top=sup;goto T48;}
221          V28=(base[6]);          V32=(base[6]);
222          vs_base++;          vs_base++;
223          if(vs_base>=vs_top){vs_top=sup;goto T43;}          if(vs_base>=vs_top){vs_top=sup;goto T49;}
224          V29=(base[7]);          V33=(base[7]);
225          vs_top=sup;          vs_top=sup;
226          goto T44;          goto T50;
227  goto T41;  goto T47;
228  T41:;  T47:;
229          V27= Cnil;          V31= Cnil;
230  goto T42;  goto T48;
231  T42:;  T48:;
232          V28= Cnil;          V32= Cnil;
233  goto T43;  goto T49;
234  T43:;  T49:;
235          V29= Cnil;          V33= Cnil;
236  goto T44;  goto T50;
237  T44:;  T50:;
238          {register object V30;          {register object V34;
         object V31;  
         register object V32;  
         object V33;  
         object V34;  
239          object V35;          object V35;
240          object V36;          register object V36;
241          object V37;          object V37;
242          object V38;          object V38;
243          if(((V27))==Cnil){          object V39;
244          goto T50;}          object V40;
245          V30= list(2,VV[10],(V23));          object V41;
246          goto T48;          object V42;
247  goto T50;          if(((V31))==Cnil){
248  T50:;          goto T56;}
249          V30= (V23);          V34= list(2,VV[12],(V27));
250  goto T48;          goto T54;
251  T48:;  goto T56;
252          V31= VV[11];  T56:;
253          V32= small_fixnum(0);          V34= (V27);
254          V33= small_fixnum(0);  goto T54;
255          V34= Cnil;  T54:;
256          V35= Cnil;          V35= VV[13];
257          V36= Cnil;          V36= small_fixnum(0);
258          V37= Cnil;          V37= small_fixnum(0);
259          V38= Cnil;          V38= Cnil;
260          {object V39;          V39= Cnil;
261          V39= (V22);          V40= Cnil;
262  goto T57;          V41= Cnil;
263  T57:;          V42= Cnil;
264          if(!(type_of((V39))!=t_cons)){          {object V43;
265            V43= (V26);
266    goto T63;
267    T63:;
268            if(!(type_of((V43))!=t_cons)){
269            goto T64;}
270            goto T58;
271    goto T64;
272    T64:;
273            if(!((car((V43)))==(VV[14]))){
274            goto T68;}
275            goto T61;
276    goto T68;
277    T68:;
278            V43= cdr((V43));
279            goto T63;}
280    goto T61;
281    T61:;
282            if((car((V26)))==(VV[14])){
283          goto T58;}          goto T58;}
284          goto T52;          base[8]= VV[15];
285  goto T58;          base[9]= (V29);
 T58:;  
         if(!((car((V39)))==(VV[12]))){  
         goto T62;}  
         goto T55;  
 goto T62;  
 T62:;  
         V39= cdr((V39));  
         goto T57;}  
 goto T55;  
 T55:;  
         if((car((V22)))==(VV[12])){  
         goto T52;}  
         base[8]= VV[13];  
         base[9]= (V25);  
286          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
287          Lerror();          Lerror();
288          vs_top=sup;          vs_top=sup;
289  goto T52;  goto T58;
290  T52:;  T58:;
291          {register object V40;          {register object V44;
292          V40= (V22);          V44= (V26);
293  goto T73;  goto T79;
294  T73:;  T79:;
295          if(!(type_of((V40))!=t_cons)){          if(!(type_of((V44))!=t_cons)){
296          goto T74;}          goto T80;}
297          if(((V40))!=Cnil){          if(((V44))!=Cnil){
298          goto T78;}          goto T84;}
299          goto T71;          goto T77;
300  goto T78;  goto T84;
301  T78:;  T84:;
302          base[8]= (V40);          base[8]= (V44);
303          base[9]= (V30);          base[9]= (V34);
304          base[10]= Cnil;          base[10]= Cnil;
305          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
306          (void) (*Lnk81)();          (void) (*Lnk83)();
307          vs_top=sup;          vs_top=sup;
308          V36= Ct;          V40= Ct;
309          goto T71;          goto T77;
310  goto T74;  goto T80;
311  T74:;  T80:;
312          {register object V41;          {register object V45;
313          V41= car((V40));          V45= car((V44));
314          if(!(((V41))==(VV[12]))){          if(!(((V45))==(VV[14]))){
315          goto T89;}          goto T95;}
316          if((cdr((V40)))==Cnil){          if((cdr((V44)))==Cnil){
317          goto T92;}          goto T98;}
318          if(!(type_of(cadr((V40)))==t_symbol)){          if(!(type_of(cadr((V44)))==t_symbol)){
319          goto T92;}          goto T98;}
320          V40= cdr((V40));          V44= cdr((V44));
321          base[8]= car((V40));          base[8]= car((V44));
322          base[9]= (V23);          base[9]= (V27);
323          base[10]= Cnil;          base[10]= Cnil;
324          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
325          (void) (*Lnk81)();          (void) (*Lnk83)();
326          vs_top=sup;          vs_top=sup;
327          goto T86;          goto T92;
328  goto T92;  goto T98;
329  T92:;  T98:;
330          base[8]= VV[14];          base[8]= VV[16];
331          base[9]= (V25);          base[9]= (V29);
332          base[10]= (V24);          base[10]= (V28);
333          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
334          (void) (*Lnk82)();          (void) (*Lnk84)();
335          vs_top=sup;          vs_top=sup;
336          goto T86;          goto T92;
337  goto T89;  goto T95;
338  T89:;  T95:;
339          if(!(((V41))==(VV[15]))){          if(!(((V45))==(VV[17]))){
340          goto T105;}          goto T111;}
341          if(((V28))==Cnil){          if(((V32))==Cnil){
342          goto T109;}          goto T115;}
343          base[8]= VV[16];          base[8]= VV[18];
344          base[9]= (V25);          base[9]= (V29);
345          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
346          Lerror();          Lerror();
347          vs_top=sup;          vs_top=sup;
348          goto T107;          goto T113;
349  goto T109;  goto T115;
350  T109:;  T115:;
351          if(((V27))!=Cnil){          if(((V31))!=Cnil){
352          goto T107;}          goto T113;}
353          base[8]= VV[17];          base[8]= VV[19];
354          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
355          Lerror();          Lerror();
356          vs_top=sup;          vs_top=sup;
357  goto T107;  goto T113;
358  T107:;  T113:;
359          if((cdr((V40)))==Cnil){          if((cdr((V44)))==Cnil){
360          goto T117;}          goto T123;}
361          if(!(type_of(cadr((V40)))==t_symbol)){          if(!(type_of(cadr((V44)))==t_symbol)){
362          goto T117;}          goto T123;}
363          V40= cdr((V40));          V44= cdr((V44));
364          base[8]= car((V40));          base[8]= car((V44));
365          base[9]= (V29);          base[9]= (V33);
366          base[10]= Cnil;          base[10]= Cnil;
367          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
368          (void) (*Lnk81)();          (void) (*Lnk83)();
369          vs_top=sup;          vs_top=sup;
370          V38= Ct;          V42= Ct;
371          goto T86;          goto T92;
372  goto T117;  goto T123;
373  T117:;  T123:;
374          base[8]= VV[18];          base[8]= VV[20];
375          base[9]= (V25);          base[9]= (V29);
376          base[10]= (V24);          base[10]= (V28);
377          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
378          (void) (*Lnk82)();          (void) (*Lnk84)();
379          vs_top=sup;          vs_top=sup;
380          goto T86;          goto T92;
381  goto T105;  goto T111;
382  T105:;  T111:;
383          if(((V41))==(VV[19])){          if(((V45))==(VV[21])){
         goto T131;}  
         if(!(((V41))==(VV[20]))){  
         goto T132;}  
 goto T131;  
 T131:;  
         if((cdr((V40)))==Cnil){  
384          goto T137;}          goto T137;}
385          if(!(type_of(cadr((V40)))==t_symbol)){          if(!(((V45))==(VV[22]))){
386          goto T137;}          goto T138;}
387          V40= cdr((V40));  goto T137;
388          V36= Ct;  T137:;
389          base[8]= car((V40));          if((cdr((V44)))==Cnil){
390          base[9]= (V30);          goto T143;}
391            if(!(type_of(cadr((V44)))==t_symbol)){
392            goto T143;}
393            V44= cdr((V44));
394            V40= Ct;
395            base[8]= car((V44));
396            base[9]= (V34);
397          base[10]= Cnil;          base[10]= Cnil;
398          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
399          (void) (*Lnk81)();          (void) (*Lnk83)();
400          vs_top=sup;          vs_top=sup;
401          goto T86;          goto T92;
402  goto T137;  goto T143;
403  T137:;  T143:;
404          if((cdr((V40)))==Cnil){          if((cdr((V44)))==Cnil){
405          goto T149;}          goto T155;}
406          if(!(type_of(cadr((V40)))==t_cons)){          if(!(type_of(cadr((V44)))==t_cons)){
407          goto T149;}          goto T155;}
408          if(!(type_of(caadr((V40)))==t_symbol)){          if(!(type_of(caadr((V44)))==t_symbol)){
409          goto T149;}          goto T155;}
410          V40= cdr((V40));          V44= cdr((V44));
411          V36= Ct;          V40= Ct;
412          {object V42;          {object V46;
413          object V43;          object V47;
414          object V44;          object V48;
415          object V45;          object V49;
416          V42= caar((V40));          V46= caar((V44));
417          V43= cadar((V40));          V47= cadar((V44));
418          V44= caddar((V40));          V48= caddar((V44));
419          vs_base=vs_top;          vs_base=vs_top;
420          Lgensym();          Lgensym();
421          vs_top=sup;          vs_top=sup;
422          V45= vs_base[0];          V49= vs_base[0];
423          base[8]= (V45);          base[8]= (V49);
424          base[9]= list(2,VV[21],list(4,VV[22],(V30),(V29),(((((V44))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)));          base[9]= list(2,VV[23],list(4,VV[24],(V34),(V33),(((((V48))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)));
425          base[10]= Ct;          base[10]= Ct;
426          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
427          (void) (*Lnk81)();          (void) (*Lnk83)();
         vs_top=sup;  
         V38= Ct;  
         if(((V42))==Cnil){  
         goto T169;}  
         base[8]= (V42);  
         base[9]= list(2,VV[23],(V45));  
         base[10]= Cnil;  
         vs_top=(vs_base=base+8)+3;  
         (void) (*Lnk81)();  
428          vs_top=sup;          vs_top=sup;
429  goto T169;          V42= Ct;
430  T169:;          if(((V46))==Cnil){
         if(((V43))==Cnil){  
431          goto T175;}          goto T175;}
432          base[8]= (V43);          base[8]= (V46);
433          base[9]= list(2,VV[24],(V45));          base[9]= list(2,VV[25],(V49));
434          base[10]= Cnil;          base[10]= Cnil;
435          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
436          (void) (*Lnk81)();          (void) (*Lnk83)();
437          vs_top=sup;          vs_top=sup;
438  goto T175;  goto T175;
439  T175:;  T175:;
440          if(((V44))==Cnil){          if(((V47))==Cnil){
441          goto T86;}          goto T181;}
442          base[8]= (V44);          base[8]= (V47);
443          base[9]= list(2,VV[25],(V45));          base[9]= list(2,VV[26],(V49));
444            base[10]= Cnil;
445            vs_top=(vs_base=base+8)+3;
446            (void) (*Lnk83)();
447            vs_top=sup;
448    goto T181;
449    T181:;
450            if(((V48))==Cnil){
451            goto T92;}
452            base[8]= (V48);
453            base[9]= list(2,VV[27],(V49));
454          base[10]= Cnil;          base[10]= Cnil;
455          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
456          (void) (*Lnk81)();          (void) (*Lnk83)();
457          vs_top=sup;          vs_top=sup;
458          goto T86;}          goto T92;}
459  goto T149;  goto T155;
460  T149:;  T155:;
461          base[8]= symbol_name((V41));          base[8]= symbol_name((V45));
462          base[9]= (V25);          base[9]= (V29);
463          base[10]= (V24);          base[10]= (V28);
464          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
465          (void) (*Lnk82)();          (void) (*Lnk84)();
466          vs_top=sup;          vs_top=sup;
467          goto T86;          goto T92;
468  goto T132;  goto T138;
469  T132:;  T138:;
470          if(!(((V41))==(VV[26]))){          if(!(((V45))==(VV[28]))){
471          goto T190;}          goto T196;}
472          V31= VV[27];          V35= VV[29];
473          goto T86;          goto T92;
474  goto T190;  goto T196;
475  T190:;  T196:;
476          if(!(((V41))==(VV[28]))){          if(!(((V45))==(VV[30]))){
477          goto T194;}          goto T200;}
478          V31= VV[29];          V35= VV[31];
479          base[8]= VV[30];          base[8]= VV[32];
480          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
481          Lgensym();          Lgensym();
482          vs_top=sup;          vs_top=sup;
483          V35= vs_base[0];          V39= vs_base[0];
484          setq(VV[5],make_cons((V35),symbol_value(VV[5])));          setq(VV[5],make_cons((V39),symbol_value(VV[5])));
485          V36= Ct;          V40= Ct;
486          base[8]= (V35);          base[8]= (V39);
487          base[9]= (V30);          base[9]= (V34);
488          base[10]= Ct;          base[10]= Ct;
489          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
490          (void) (*Lnk81)();          (void) (*Lnk83)();
491          vs_top=sup;          vs_top=sup;
492          goto T86;          goto T92;
493  goto T194;  goto T200;
494  T194:;  T200:;
495          if(!(((V41))==(VV[31]))){          if(!(((V45))==(VV[33]))){
496          goto T209;}          goto T215;}
497          V37= Ct;          V41= Ct;
498          goto T86;          goto T92;
499  goto T209;  goto T215;
500  T209:;  T215:;
501          if(!(((V41))==(VV[32]))){          if(!(((V45))==(VV[34]))){
502          goto T213;}          goto T219;}
503          V31= VV[33];          V35= VV[35];
504          goto T86;          goto T92;
505  goto T213;  goto T219;
506  T213:;  T219:;
507          if(!(type_of((V41))==t_cons||((V41))==Cnil)){          if(!(type_of((V45))==t_cons||((V45))==Cnil)){
508          goto T217;}          goto T223;}
509          {object V46= (V31);          {object V50= (V35);
510          if((V46!= VV[11]))goto T219;          if((V50!= VV[13]))goto T225;
511          {object V47;          {object V51;
512          base[8]= VV[34];          base[8]= VV[36];
513          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
514          Lgensym();          Lgensym();
515          vs_top=sup;          vs_top=sup;
516          V47= vs_base[0];          V51= vs_base[0];
517          base[8]= (V47);          base[8]= (V51);
518          base[9]= list(2,VV[23],(V30));          base[9]= list(2,VV[25],(V34));
519          base[10]= (V41);          base[10]= (V45);
520          base[11]= (V24);          base[11]= (V28);
521          base[12]= (V25);          base[12]= (V29);
522          base[13]= (V26);          base[13]= (V30);
523          vs_top=(vs_base=base+8)+6;          vs_top=(vs_base=base+8)+6;
524          (void) (*Lnk83)();          (void) (*Lnk85)();
525          vs_top=sup;          vs_top=sup;
526          base[8]= (V41);          base[8]= (V45);
527          base[9]= (V47);          base[9]= (V51);
528          base[10]= (V24);          base[10]= (V28);
529          base[11]= (V25);          base[11]= (V29);
530          base[12]= (V26);          base[12]= (V30);
531          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
532          (void) (*Lnk80)();          (void) (*Lnk82)();
533          vs_top=sup;}          vs_top=sup;}
534          V30= list(2,VV[10],(V30));          V34= list(2,VV[12],(V34));
535          V33= number_plus((V33),small_fixnum(1));          V37= number_plus((V37),small_fixnum(1));
536          V32= number_plus((V32),small_fixnum(1));          V36= number_plus((V36),small_fixnum(1));
537          goto T86;          goto T92;
538  goto T219;  goto T225;
539  T219:;  T225:;
540          if((V46!= VV[27]))goto T240;          if((V50!= VV[29]))goto T246;
541          if(!(((long)length((V41)))>(3))){          if(!(((long)length((V45)))>(3))){
542          goto T241;}          goto T247;}
543          base[8]= VV[35];          base[8]= VV[37];
544          base[9]= VV[36];          base[9]= VV[38];
545          base[10]= (V41);          base[10]= (V45);
546          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
547          Lcerror();          Lcerror();
548          vs_top=sup;          vs_top=sup;
549  goto T241;  goto T247;
550  T241:;  T247:;
551          base[8]= car((V41));          base[8]= car((V45));
552          base[9]= cadr((V41));          base[9]= cadr((V45));
553          base[10]= caddr((V41));          base[10]= caddr((V45));
554          base[11]= list(2,VV[37],list(2,VV[38],(V30)));          base[11]= list(2,VV[39],list(2,VV[40],(V34)));
555          base[12]= list(2,VV[23],(V30));          base[12]= list(2,VV[25],(V34));
556          base[13]= (V24);          base[13]= (V28);
557          base[14]= (V25);          base[14]= (V29);
558          base[15]= (V26);          base[15]= (V30);
559          vs_top=(vs_base=base+8)+8;          vs_top=(vs_base=base+8)+8;
560          (void) (*Lnk84)();          (void) (*Lnk86)();
561          vs_top=sup;          vs_top=sup;
562          V30= list(2,VV[10],(V30));          V34= list(2,VV[12],(V34));
563          V32= number_plus((V32),small_fixnum(1));          V36= number_plus((V36),small_fixnum(1));
564          goto T86;          goto T92;
565  goto T240;  goto T246;
566  T240:;  T246:;
567          if((V46!= VV[29]))goto T259;          if((V50!= VV[31]))goto T265;
568          {object V48;          {object V52;
569          object V49;          object V53;
570          object V50;          object V54;
571          object V51;          object V55;
572          V48= (type_of(car((V41)))==t_cons?Ct:Cnil);          V52= (type_of(car((V45)))==t_cons?Ct:Cnil);
573          if(((V48))==Cnil){          if(((V52))==Cnil){
574          goto T263;}          goto T269;}
575          V49= cadar((V41));          V53= cadar((V45));
576          goto T261;          goto T267;
577  goto T263;  goto T269;
578  T263:;  T269:;
579          V49= car((V41));          V53= car((V45));
 goto T261;  
 T261:;  
         if(((V48))==Cnil){  
         goto T267;}  
         V50= caar((V41));  
         goto T265;  
580  goto T267;  goto T267;
581  T267:;  T267:;
582          base[12]= (V49);          if(((V52))==Cnil){
583            goto T273;}
584            V54= caar((V45));
585            goto T271;
586    goto T273;
587    T273:;
588            base[12]= (V53);
589          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
590          (void) (*Lnk85)();          (void) (*Lnk87)();
591          vs_top=sup;          vs_top=sup;
592          V50= vs_base[0];          V54= vs_base[0];
593  goto T265;  goto T271;
594  T265:;  T271:;
595          V51= caddr((V41));          V55= caddr((V45));
596          base[12]= (V49);          base[12]= (V53);
597          base[13]= cadr((V41));          base[13]= cadr((V45));
598          base[14]= (V51);          base[14]= (V55);
599          base[15]= list(3,VV[39],list(2,VV[40],(V50)),(V35));          base[15]= list(3,VV[41],list(2,VV[42],(V54)),(V39));
600          base[16]= list(3,VV[41],list(2,VV[40],(V50)),(V35));          base[16]= list(3,VV[43],list(2,VV[42],(V54)),(V39));
601          base[17]= (V24);          base[17]= (V28);
602          base[18]= (V25);          base[18]= (V29);
603          base[19]= (V26);          base[19]= (V30);
604          vs_top=(vs_base=base+12)+8;          vs_top=(vs_base=base+12)+8;
605          (void) (*Lnk84)();          (void) (*Lnk86)();
606          vs_top=sup;          vs_top=sup;
607          V34= make_cons((V50),(V34));          V38= make_cons((V54),(V38));
608          goto T86;}          goto T92;}
609  goto T259;  goto T265;
610  T259:;  T265:;
611          if((V46!= VV[33]))goto T281;          if((V50!= VV[35]))goto T287;
612          base[8]= car((V41));          base[8]= car((V45));
613          base[9]= cadr((V41));          base[9]= cadr((V45));
614          base[10]= Cnil;          base[10]= Cnil;
615          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
616          (void) (*Lnk81)();          (void) (*Lnk83)();
617          vs_top=sup;          vs_top=sup;
618          goto T86;          goto T92;
619  goto T281;  goto T287;
620  T281:;  T287:;
621          goto T86;}          goto T92;}
622  goto T217;  goto T223;
623  T217:;  T223:;
624          if(!(type_of((V41))==t_symbol)){          if(!(type_of((V45))==t_symbol)){
625          goto T286;}          goto T292;}
626          {object V52= (V31);          {object V56= (V35);
627          if((V52!= VV[11]))goto T288;          if((V56!= VV[13]))goto T294;
628          V33= number_plus((V33),small_fixnum(1));          V37= number_plus((V37),small_fixnum(1));
629          V32= number_plus((V32),small_fixnum(1));          V36= number_plus((V36),small_fixnum(1));
630          base[8]= (V41);          base[8]= (V45);
631          base[9]= list(2,VV[23],(V30));          base[9]= list(2,VV[25],(V34));
632          base[10]= Cnil;          base[10]= Cnil;
633          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
634          (void) (*Lnk81)();          (void) (*Lnk83)();
635          vs_top=sup;          vs_top=sup;
636          V30= list(2,VV[10],(V30));          V34= list(2,VV[12],(V34));
637          goto T86;          goto T92;
638  goto T288;  goto T294;
639  T288:;  T294:;
640          if((V52!= VV[27]))goto T298;          if((V56!= VV[29]))goto T304;
641          V32= number_plus((V32),small_fixnum(1));          V36= number_plus((V36),small_fixnum(1));
642          base[8]= (V41);          base[8]= (V45);
643          base[9]= list(2,VV[23],(V30));          base[9]= list(2,VV[25],(V34));
644          base[10]= Cnil;          base[10]= Cnil;
645          base[11]= list(2,VV[37],list(2,VV[38],(V30)));          base[11]= list(2,VV[39],list(2,VV[40],(V34)));
646          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
647          (void) (*Lnk81)();          (void) (*Lnk83)();
648          vs_top=sup;          vs_top=sup;
649          V30= list(2,VV[10],(V30));          V34= list(2,VV[12],(V34));
650          goto T86;          goto T92;
651  goto T298;  goto T304;
652  T298:;  T304:;
653          if((V52!= VV[29]))goto T307;          if((V56!= VV[31]))goto T313;
654          {object V53;          {object V57;
655          base[8]= (V41);          base[8]= (V45);
656          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
657          (void) (*Lnk85)();          (void) (*Lnk87)();
658          vs_top=sup;          vs_top=sup;
659          V53= vs_base[0];          V57= vs_base[0];
660          base[8]= (V41);          base[8]= (V45);
661          base[9]= list(3,VV[41],(V53),(V35));          base[9]= list(3,VV[43],(V57),(V39));
662          base[10]= Cnil;          base[10]= Cnil;
663          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
664          (void) (*Lnk81)();          (void) (*Lnk83)();
665          vs_top=sup;          vs_top=sup;
666          V34= make_cons((V53),(V34));          V38= make_cons((V57),(V38));
667          goto T86;}          goto T92;}
668  goto T307;  goto T313;
669  T307:;  T313:;
670          if((V52!= VV[33]))goto T315;          if((V56!= VV[35]))goto T321;
671          base[8]= (V41);          base[8]= (V45);
672          base[9]= Cnil;          base[9]= Cnil;
673          base[10]= Cnil;          base[10]= Cnil;
674          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
675          (void) (*Lnk81)();          (void) (*Lnk83)();
676          vs_top=sup;          vs_top=sup;
677          goto T86;          goto T92;
678  goto T315;  goto T321;
679  T315:;  T321:;
680          goto T86;}          goto T92;}
681  goto T286;  goto T292;
682  T286:;  T292:;
683          base[8]= VV[42];          base[8]= VV[44];
684          base[9]= (V41);          base[9]= (V45);
685          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
686          Lerror();          Lerror();
687          vs_top=sup;}          vs_top=sup;}
688  goto T86;  goto T92;
689  T86:;  T92:;
690          V40= cdr((V40));          V44= cdr((V44));
691          goto T73;}          goto T79;}
692  goto T71;  goto T77;
693  T71:;  T77:;
694          if(((V36))!=Cnil){          if(((V40))!=Cnil){
         goto T324;}  
         if(((V27))==Cnil){  
695          goto T330;}          goto T330;}
696          V54= list(2,VV[10],(V23));          if(((V31))==Cnil){
697          goto T328;          goto T336;}
698  goto T330;          V58= list(2,VV[12],(V27));
699  T330:;          goto T334;
700          V54= (V23);  goto T336;
701  goto T328;  T336:;
702  T328:;          V58= (V27);
         V55= list(2,VV[45],list(3,VV[46],VV[47],V54));  
         if(((V36))!=Cnil){  
         goto T334;}  
         V56= make_cons((V32),Cnil);  
         goto T332;  
703  goto T334;  goto T334;
704  T334:;  T334:;
705          V56= Cnil;          V59= list(2,VV[47],list(3,VV[48],VV[49],V58));
706  goto T332;          if(((V40))!=Cnil){
707  T332:;          goto T340;}
708          V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56);          V60= make_cons((V36),Cnil);
709          {object V59;          goto T338;
710          if(((V27))==Cnil){  goto T340;
711          goto T339;}  T340:;
712          V59= list(2,VV[10],(V23));          V60= Cnil;
713          goto T337;  goto T338;
714  goto T339;  T338:;
715  T339:;          V61= listA(4,VV[46],(V37),/* INLINE-ARGS */V59,V60);
716          V59= (V23);          {object V63;
717  goto T337;          if(((V31))==Cnil){
718  T337:;          goto T345;}
719          if(!(((V26))==(VV[1]))){          V63= list(2,VV[12],(V27));
720          goto T342;}          goto T343;
721          V60= list(2,VV[40],(V25));  goto T345;
722          V61= list(2,VV[40],(V24));  T345:;
723          V62= list(2,VV[40],(V22));          V63= (V27);
724          if(((V36))!=Cnil){  goto T343;
725          goto T346;}  T343:;
726          V63= (V32);          if(!(((V30))==(VV[1]))){
727          goto T344;          goto T348;}
728  goto T346;          V64= list(2,VV[42],(V29));
729  T346:;          V65= list(2,VV[42],(V28));
730          V63= Cnil;          V66= list(2,VV[42],(V26));
731  goto T344;          if(((V40))!=Cnil){
732  T344:;          goto T352;}
733          V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63);          V67= (V36);
734          goto T336;          goto T350;
735  goto T342;  goto T352;
736  T342:;  T352:;
737          V64= list(2,VV[40],(V25));          V67= Cnil;
         if(((V24))==Cnil){  
         goto T350;}  
         V65= list(2,VV[51],list(2,VV[40],(V24)));  
         goto T348;  
738  goto T350;  goto T350;
739  T350:;  T350:;
740          V65= Cnil;          V62= list(7,VV[50],/* INLINE-ARGS */V64,/* INLINE-ARGS */V65,(V63),/* INLINE-ARGS */V66,(V37),V67);
741            goto T342;
742  goto T348;  goto T348;
743  T348:;  T348:;
744          V66= list(2,VV[40],(V22));          V68= list(2,VV[42],(V29));
745          if(((V36))!=Cnil){          if(((V28))==Cnil){
746          goto T354;}          goto T356;}
747          V67= list(2,VV[55],(V32));          V69= list(2,VV[53],list(2,VV[42],(V28)));
748          goto T352;          goto T354;
749    goto T356;
750    T356:;
751            V69= Cnil;
752  goto T354;  goto T354;
753  T354:;  T354:;
754          V67= Cnil;          V70= list(2,VV[42],(V26));
755  goto T352;          if(((V40))!=Cnil){
756  T352:;          goto T360;}
757          V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67);          V71= list(2,VV[57],(V36));
758          V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));}          goto T358;
759  goto T336;  goto T360;
760  T336:;  T360:;
761          V69= list(3,VV[43],/* INLINE-ARGS */V57,V58);          V71= Cnil;
762          setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2])));  goto T358;
763  goto T324;  T358:;
764  T324:;          V72= listA(7,VV[54],(V63),VV[55],/* INLINE-ARGS */V70,VV[56],(V37),V71);
765          if(((V34))==Cnil){          V62= listA(5,(V30),VV[51],VV[52],/* INLINE-ARGS */V68,append(V69,/* INLINE-ARGS */V72));}
766          goto T356;}  goto T342;
767          {object V70;  T342:;
768          object V71;          V73= list(3,VV[45],/* INLINE-ARGS */V61,V62);
769          base[8]= VV[56];          setq(VV[2],make_cons(/* INLINE-ARGS */V73,symbol_value(VV[2])));
770    goto T330;
771    T330:;
772            if(((V38))==Cnil){
773            goto T362;}
774            {object V74;
775            object V75;
776            base[8]= VV[58];
777          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
778          Lgensym();          Lgensym();
779          vs_top=sup;          vs_top=sup;
780          V70= vs_base[0];          V74= vs_base[0];
781          base[8]= VV[57];          base[8]= VV[59];
782          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
783          Lgensym();          Lgensym();
784          vs_top=sup;          vs_top=sup;
785          V71= vs_base[0];          V75= vs_base[0];
786          V72= list(2,(V70),(V71));          V76= list(2,(V74),(V75));
787          V73= list(2,VV[40],(V34));          V77= list(2,VV[42],(V38));
788          V74= list(4,VV[59],(V35),/* INLINE-ARGS */V73,list(2,VV[40],(V37)));          V78= list(4,VV[61],(V39),/* INLINE-ARGS */V77,list(2,VV[42],(V41)));
789          V75= list(2,VV[40],(V25));          V79= list(2,VV[42],(V29));
790          if(((V24))==Cnil){          if(((V28))==Cnil){
         goto T366;}  
         V76= list(2,VV[51],list(2,VV[40],(V24)));  
         goto T364;  
 goto T366;  
 T366:;  
         V76= Cnil;  
 goto T364;  
 T364:;  
         V77= list(4,VV[62],(V70),VV[63],(V71));  
         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))));  
         setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));}  
 goto T356;  
 T356:;  
         base[8]= (V38);  
         base[9]= (V33);  
         if(((V36))!=Cnil){  
791          goto T372;}          goto T372;}
792          base[10]= (V32);          V80= list(2,VV[53],list(2,VV[42],(V28)));
793          goto T370;          goto T370;
794  goto T372;  goto T372;
795  T372:;  T372:;
796          base[10]= Cnil;          V80= Cnil;
797  goto T370;  goto T370;
798  T370:;  T370:;
799            V81= list(4,VV[64],(V74),VV[65],(V75));
800            V82= list(4,VV[60],/* INLINE-ARGS */V76,/* INLINE-ARGS */V78,list(3,VV[62],(V74),listA(5,(V30),VV[63],VV[52],/* INLINE-ARGS */V79,append(V80,/* INLINE-ARGS */V81))));
801            setq(VV[2],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[2])));}
802    goto T362;
803    T362:;
804            base[8]= (V42);
805            base[9]= (V37);
806            if(((V40))!=Cnil){
807            goto T378;}
808            base[10]= (V36);
809            goto T376;
810    goto T378;
811    T378:;
812            base[10]= Cnil;
813    goto T376;
814    T376:;
815          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
816          return;}          return;}
817          }          }
818  }  }
819  /*      function definition for PUSH-SUB-LIST-BINDING   */  /*      function definition for PUSH-SUB-LIST-BINDING   */
820    
821  static void L3()  static void L5()
822  {register object *base=vs_base;  {register object *base=vs_base;
823          register object *sup=base+VM3; VC3          register object *sup=base+VM5; VC5
824          vs_reserve(VM3);          vs_reserve(VM5);
825          {object V79;          {object V83;
         object V80;  
         object V81;  
         object V82;  
         object V83;  
826          object V84;          object V84;
827            object V85;
828            object V86;
829            object V87;
830            object V88;
831          check_arg(6);          check_arg(6);
832          V79=(base[0]);          V83=(base[0]);
833          V80=(base[1]);          V84=(base[1]);
834          V81=(base[2]);          V85=(base[2]);
835          V82=(base[3]);          V86=(base[3]);
836          V83=(base[4]);          V87=(base[4]);
837          V84=(base[5]);          V88=(base[5]);
838          vs_top=sup;          vs_top=sup;
839  goto TTL;  goto TTL;
840  TTL:;  TTL:;
841          {register object V85;          {register object V89;
842          base[6]= VV[64];          base[6]= VV[66];
843          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
844          Lgensym();          Lgensym();
845          vs_top=sup;          vs_top=sup;
846          V85= vs_base[0];          V89= vs_base[0];
847          V86= list(2,(V85),(V80));          V90= list(2,(V89),(V84));
848          V87= make_cons(/* INLINE-ARGS */V86,Cnil);          V91= make_cons(/* INLINE-ARGS */V90,Cnil);
849          V88= list(2,VV[67],(V85));          V92= list(2,VV[69],(V89));
850          V89= list(2,VV[40],(V83));          V93= list(2,VV[42],(V87));
851          if(((V82))==Cnil){          if(((V86))==Cnil){
852          goto T379;}          goto T385;}
853          V90= list(2,VV[51],list(2,VV[40],(V82)));          V94= list(2,VV[53],list(2,VV[42],(V86)));
854          goto T377;          goto T383;
855  goto T379;  goto T385;
856  T379:;  T385:;
857          V90= Cnil;          V94= Cnil;
858  goto T377;  goto T383;
859  T377:;  T383:;
860          V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81)));          V95= list(4,VV[71],(V89),VV[55],list(2,VV[42],(V85)));
861          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)))));          V96= list(2,(V83),list(3,VV[67],/* INLINE-ARGS */V91,list(4,VV[68],/* INLINE-ARGS */V92,(V89),listA(5,(V88),VV[70],VV[52],/* INLINE-ARGS */V93,append(V94,/* INLINE-ARGS */V95)))));
862          setq(VV[4],make_cons(/* INLINE-ARGS */V92,symbol_value(VV[4])));          setq(VV[4],make_cons(/* INLINE-ARGS */V96,symbol_value(VV[4])));
863          base[6]= symbol_value(VV[4]);          base[6]= symbol_value(VV[4]);
864          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
865          return;}          return;}
# Line 823  T377:; Line 867  T377:;
867  }  }
868  /*      function definition for PUSH-LET-BINDING        */  /*      function definition for PUSH-LET-BINDING        */
869    
870  static void L4()  static void L6()
871  {register object *base=vs_base;  {register object *base=vs_base;
872          register object *sup=base+VM4; VC4          register object *sup=base+VM6; VC6
873          vs_reserve(VM4);          vs_reserve(VM6);
874          {object V93;          {object V97;
875          object V94;          object V98;
876          object V95;          object V99;
877          object V96;          object V100;
878          object V97;          object V101;
879          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
880          if(vs_top-vs_base>5) too_many_arguments();          if(vs_top-vs_base>5) too_many_arguments();
881          V93=(base[0]);          V97=(base[0]);
882          V94=(base[1]);          V98=(base[1]);
883          V95=(base[2]);          V99=(base[2]);
884          vs_base=vs_base+3;          vs_base=vs_base+3;
885          if(vs_base>=vs_top){vs_top=sup;goto T381;}          if(vs_base>=vs_top){vs_top=sup;goto T387;}
886          V96=(base[3]);          V100=(base[3]);
887          vs_base++;          vs_base++;
888          if(vs_base>=vs_top){vs_top=sup;goto T382;}          if(vs_base>=vs_top){vs_top=sup;goto T388;}
889          V97=(base[4]);          V101=(base[4]);
890          vs_top=sup;          vs_top=sup;
891          goto T383;          goto T389;
892  goto T381;  goto T387;
893  T381:;  T387:;
894          V96= Cnil;          V100= Cnil;
 goto T382;  
 T382:;  
         V97= symbol_value(VV[0]);  
 goto T383;  
 T383:;  
         {object V98;  
         if(((V96))==Cnil){  
         goto T388;}  
         V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97)));  
         goto T386;  
895  goto T388;  goto T388;
896  T388:;  T388:;
897          V98= list(2,(V93),(V94));          V101= symbol_value(VV[0]);
898  goto T386;  goto T389;
899  T386:;  T389:;
900          if(((V95))==Cnil){          {object V102;
901          goto T391;}          if(((V100))==Cnil){
902          setq(VV[4],make_cons((V98),symbol_value(VV[4])));          goto T394;}
903            V102= list(2,(V97),list(4,VV[68],(V100),(V98),(V101)));
904            goto T392;
905    goto T394;
906    T394:;
907            V102= list(2,(V97),(V98));
908    goto T392;
909    T392:;
910            if(((V99))==Cnil){
911            goto T397;}
912            setq(VV[4],make_cons((V102),symbol_value(VV[4])));
913          base[5]= symbol_value(VV[4]);          base[5]= symbol_value(VV[4]);
914          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
915          return;          return;
916  goto T391;  goto T397;
917  T391:;  T397:;
918          setq(VV[3],make_cons((V98),symbol_value(VV[3])));          setq(VV[3],make_cons((V102),symbol_value(VV[3])));
919          base[5]= symbol_value(VV[3]);          base[5]= symbol_value(VV[3]);
920          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
921          return;}          return;}
# Line 879  T391:; Line 923  T391:;
923  }  }
924  /*      function definition for PUSH-OPTIONAL-BINDING   */  /*      function definition for PUSH-OPTIONAL-BINDING   */
925    
926  static void L5()  static void L7()
927  {register object *base=vs_base;  {register object *base=vs_base;
928          register object *sup=base+VM5; VC5          register object *sup=base+VM7; VC7
929          vs_reserve(VM5);          vs_reserve(VM7);
930          {register object V99;          {register object V103;
         object V100;  
         register object V101;  
         object V102;  
         object V103;  
931          object V104;          object V104;
932          object V105;          register object V105;
933          object V106;          object V106;
934            object V107;
935            object V108;
936            object V109;
937            object V110;
938          check_arg(8);          check_arg(8);
939          V99=(base[0]);          V103=(base[0]);
940          V100=(base[1]);          V104=(base[1]);
941          V101=(base[2]);          V105=(base[2]);
942          V102=(base[3]);          V106=(base[3]);
943          V103=(base[4]);          V107=(base[4]);
944          V104=(base[5]);          V108=(base[5]);
945          V105=(base[6]);          V109=(base[6]);
946          V106=(base[7]);          V110=(base[7]);
947          vs_top=sup;          vs_top=sup;
948  goto TTL;  goto TTL;
949  TTL:;  TTL:;
950          if(((V101))!=Cnil){          if(((V105))!=Cnil){
951          goto T395;}          goto T401;}
952          base[8]= VV[70];          base[8]= VV[72];
953          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
954          Lgensym();          Lgensym();
955          vs_top=sup;          vs_top=sup;
956          V101= vs_base[0];          V105= vs_base[0];
957  goto T395;  goto T401;
958  T395:;  T401:;
959          base[8]= (V101);          base[8]= (V105);
960          base[9]= (V102);          base[9]= (V106);
961          base[10]= Ct;          base[10]= Ct;
962          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
963          (void) (*Lnk81)();          (void) (*Lnk83)();
964          vs_top=sup;          vs_top=sup;
965          if(!(type_of((V99))==t_cons)){          if(!(type_of((V103))==t_cons)){
966          goto T405;}          goto T411;}
967          {object V107;          {object V111;
968          base[8]= VV[71];          base[8]= VV[73];
969          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
970          Lgensym();          Lgensym();
971          vs_top=sup;          vs_top=sup;
972          V107= vs_base[0];          V111= vs_base[0];
973          base[8]= (V107);          base[8]= (V111);
974          base[9]= list(4,VV[66],(V101),(V103),(V100));          base[9]= list(4,VV[68],(V105),(V107),(V104));
975          base[10]= (V99);          base[10]= (V103);
976          base[11]= (V104);          base[11]= (V108);
977          base[12]= (V105);          base[12]= (V109);
978          base[13]= (V106);          base[13]= (V110);
979          vs_top=(vs_base=base+8)+6;          vs_top=(vs_base=base+8)+6;
980          (void) (*Lnk83)();          (void) (*Lnk85)();
981          vs_top=sup;          vs_top=sup;
982          base[8]= (V99);          base[8]= (V103);
983          base[9]= (V107);          base[9]= (V111);
984          base[10]= (V104);          base[10]= (V108);
985          base[11]= (V105);          base[11]= (V109);
986          base[12]= (V106);          base[12]= (V110);
987          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
988          (void) (*Lnk80)();          (void) (*Lnk82)();
989          return;}          return;}
990  goto T405;  goto T411;
991  T405:;  T411:;
992          if(!(type_of((V99))==t_symbol)){          if(!(type_of((V103))==t_symbol)){
993          goto T422;}          goto T428;}
994          base[8]= (V99);          base[8]= (V103);
995          base[9]= (V103);          base[9]= (V107);
996          base[10]= Cnil;          base[10]= Cnil;
997          base[11]= (V101);          base[11]= (V105);
998          base[12]= (V100);          base[12]= (V104);
999          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
1000          (void) (*Lnk81)();          (void) (*Lnk83)();
1001          return;          return;
1002  goto T422;  goto T428;
1003  T422:;  T428:;
1004          base[8]= VV[72];          base[8]= VV[74];
1005          base[9]= (V99);          base[9]= (V103);
1006          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
1007          Lerror();          Lerror();
1008          return;          return;
# Line 966  T422:; Line 1010  T422:;
1010  }  }
1011  /*      function definition for PARSE-BODY      */  /*      function definition for PARSE-BODY      */
1012    
1013  static void L6()  static void L8()
1014  {register object *base=vs_base;  {register object *base=vs_base;
1015          register object *sup=base+VM6; VC6          register object *sup=base+VM8; VC8
1016          vs_reserve(VM6);          vs_reserve(VM8);
1017          {object V108;          {object V112;
1018          object V109;          object V113;
1019          register object V110;          register object V114;
1020          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1021          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1022          V108=(base[0]);          V112=(base[0]);
1023          V109=(base[1]);          V113=(base[1]);
1024          vs_base=vs_base+2;          vs_base=vs_base+2;
1025          if(vs_base>=vs_top){vs_top=sup;goto T431;}          if(vs_base>=vs_top){vs_top=sup;goto T437;}
1026          V110=(base[2]);          V114=(base[2]);
1027          vs_top=sup;          vs_top=sup;
1028          goto T432;          goto T438;
1029  goto T431;  goto T437;
1030  T431:;  T437:;
1031          V110= Ct;          V114= Ct;
1032  goto T432;  goto T438;
1033  T432:;  T438:;
1034          {register object V111;          {register object V115;
1035          register object V112;          register object V116;
1036          V111= Cnil;          V115= Cnil;
1037          V112= Cnil;          V116= Cnil;
1038          {register object V113;          {register object V117;
1039          V113= (V108);          V117= (V112);
1040  goto T435;  goto T441;
1041  T435:;  T441:;
1042          if(!(endp_prop((V113)))){          if(!(endp_prop((V117)))){
1043          goto T436;}          goto T442;}
1044          base[3]= (V113);          base[3]= (V117);
1045          base[4]= nreverse((V111));          base[4]= nreverse((V115));
1046          base[5]= (V112);          base[5]= (V116);
1047          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1048          return;          return;
1049  goto T436;  goto T442;
1050  T436:;  T442:;
1051          {register object V114;          {register object V118;
1052          V114= car((V113));          V118= car((V117));
1053          if(!(type_of((V114))==t_string)){          if(!(type_of((V118))==t_string)){
1054          goto T446;}          goto T452;}
1055          if((cdr((V113)))==Cnil){          if((cdr((V117)))==Cnil){
1056          goto T446;}          goto T452;}
1057          if(((V110))==Cnil){          if(((V114))==Cnil){
1058          goto T451;}          goto T457;}
1059          V112= (V114);          V116= (V118);
1060          V110= Cnil;          V114= Cnil;
1061          goto T443;          goto T449;
1062  goto T451;  goto T457;
1063  T451:;  T457:;
1064          base[3]= (V113);          base[3]= (V117);
1065          base[4]= nreverse((V111));          base[4]= nreverse((V115));
1066          base[5]= (V112);          base[5]= (V116);
1067          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1068          return;          return;
1069  goto T446;  goto T452;
1070  T446:;  T452:;
1071          if(!(type_of((V114))==t_cons)){          if(!(type_of((V118))==t_cons)){
1072          goto T459;}          goto T465;}
1073          if(type_of(car((V114)))==t_symbol){          if(type_of(car((V118)))==t_symbol){
1074          goto T460;}          goto T466;}
1075  goto T459;  goto T465;
1076  T459:;  T465:;
1077          base[3]= (V113);          base[3]= (V117);
1078          base[4]= nreverse((V111));          base[4]= nreverse((V115));
1079          base[5]= (V112);          base[5]= (V116);
1080          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1081          return;          return;
1082  goto T460;  goto T466;
1083  T460:;  T466:;
1084          if(!((car((V114)))==(VV[7]))){          if(!((car((V118)))==(VV[7]))){
1085          goto T468;}          goto T474;}
1086          V111= make_cons((V114),(V111));          V115= make_cons((V118),(V115));
1087          goto T443;          goto T449;
1088  goto T468;  goto T474;
1089  T468:;  T474:;
1090          base[3]= (V113);          base[3]= (V117);
1091          base[4]= nreverse((V111));          base[4]= nreverse((V115));
1092          base[5]= (V112);          base[5]= (V116);
1093          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1094          return;}          return;}
1095  goto T443;  goto T449;
1096  T443:;  T449:;
1097          V113= cdr((V113));          V117= cdr((V117));
1098          goto T435;}}          goto T441;}}
1099          }          }
1100  }  }
1101  /*      macro definition for DESTRUCTURING-BIND */  /*      macro definition for DESTRUCTURING-BIND */
1102    
1103  static void L7()  static void L9()
1104  {register object *base=vs_base;  {register object *base=vs_base;
1105          register object *sup=base+VM7; VC7          register object *sup=base+VM9; VC9
1106          vs_reserve(VM7);          vs_reserve(VM9);
1107          check_arg(2);          check_arg(2);
1108          vs_top=sup;          vs_top=sup;
1109          {object V115=base[0]->c.c_cdr;          {object V119=base[0]->c.c_cdr;
1110          if(endp(V115))invalid_macro_call();          if(endp(V119))invalid_macro_call();
1111          base[2]= (V115->c.c_car);          base[2]= (V119->c.c_car);
1112          V115=V115->c.c_cdr;          V119=V119->c.c_cdr;
1113          if(endp(V115))invalid_macro_call();          if(endp(V119))invalid_macro_call();
1114          base[3]= (V115->c.c_car);          base[3]= (V119->c.c_car);
1115          V115=V115->c.c_cdr;          V119=V119->c.c_cdr;
1116          base[4]= V115;}          base[4]= V119;}
1117          {object V116;          {object V120;
1118          base[6]= VV[73];          base[6]= VV[75];
1119          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1120          Lgensym();          Lgensym();
1121          vs_top=sup;          vs_top=sup;
1122          V116= vs_base[0];          V120= vs_base[0];
1123          {object V117;          {object V121;
1124          object V118;          object V122;
1125          base[6]= base[2];          base[6]= base[2];
1126          base[7]= (V116);          base[7]= (V120);
1127          base[8]= base[4];          base[8]= base[4];
1128          base[9]= Cnil;          base[9]= Cnil;
1129          base[10]= VV[74];          base[10]= VV[76];
1130          base[11]= VV[75];          base[11]= VV[77];
1131          base[12]= Ct;          base[12]= Ct;
1132          base[13]= VV[76];          base[13]= VV[78];
1133          base[14]= Cnil;          base[14]= Cnil;
1134          vs_top=(vs_base=base+6)+9;          vs_top=(vs_base=base+6)+9;
1135          (void) (*Lnk86)();          (void) (*Lnk88)();
1136          if(vs_base>=vs_top){vs_top=sup;goto T489;}          if(vs_base>=vs_top){vs_top=sup;goto T495;}
1137          V117= vs_base[0];          V121= vs_base[0];
1138          vs_base++;          vs_base++;
1139          if(vs_base>=vs_top){vs_top=sup;goto T490;}          if(vs_base>=vs_top){vs_top=sup;goto T496;}
1140          V118= vs_base[0];          V122= vs_base[0];
1141          vs_top=sup;          vs_top=sup;
1142          goto T491;          goto T497;
1143  goto T489;  goto T495;
1144  T489:;  T495:;
1145          V117= Cnil;          V121= Cnil;
1146  goto T490;  goto T496;
1147  T490:;  T496:;
1148          V118= Cnil;          V122= Cnil;
1149  goto T491;  goto T497;
1150  T491:;  T497:;
1151          V119= list(2,(V116),base[3]);          V123= list(2,(V120),base[3]);
1152          V120= make_cons(/* INLINE-ARGS */V119,Cnil);          V124= make_cons(/* INLINE-ARGS */V123,Cnil);
1153          V121= make_cons((V117),Cnil);          V125= make_cons((V121),Cnil);
1154          base[6]= listA(3,VV[65],/* INLINE-ARGS */V120,append((V118),/* INLINE-ARGS */V121));          base[6]= listA(3,VV[67],/* INLINE-ARGS */V124,append((V122),/* INLINE-ARGS */V125));
1155          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1156          return;}}          return;}}
1157  }  }
1158  static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PARSE-DEFMACRO */  static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* PARSE-DEFMACRO */
1159  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* MAKE-KEYWORD */  static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* MAKE-KEYWORD */
1160  static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* PUSH-OPTIONAL-BINDING */  static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PUSH-OPTIONAL-BINDING */
1161  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-SUB-LIST-BINDING */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* PUSH-SUB-LIST-BINDING */
1162  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* DEFMACRO-ERROR */  static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* DEFMACRO-ERROR */
1163  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* PUSH-LET-BINDING */  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-LET-BINDING */
1164  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* PARSE-DEFMACRO-LAMBDA-LIST */
1165  static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* PARSE-BODY */  static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* PARSE-BODY */
1166    
1167  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1168  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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