/[gcl]/gcl/pcl/pcl_fngen.c
ViewVC logotype

Diff of /gcl/pcl/pcl_fngen.c

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 210  TTL:; Line 210  TTL:;
210          V28= (*(LnkLI21))(/* INLINE-ARGS */V29);          V28= (*(LnkLI21))(/* INLINE-ARGS */V29);
211          if(((V28))==Cnil){          if(((V28))==Cnil){
212          goto T42;}          goto T42;}
213          V30= (*(LnkLI23))((V27));          V30 = (V28);
214          (void)(((V28))->v.v_self[2]= (/* INLINE-ARGS */V30));{object V32;          V31= (*(LnkLI23))((V27));
215          V32= ((V28))->v.v_self[4];          (void)((V30)->v.v_self[2]= (/* INLINE-ARGS */V31));
216          if(V32==Cnil)goto T46;          V32 = (V28);{object V34;
217          V31= V32;          V34= ((V28))->v.v_self[4];
218            if(V34==Cnil)goto T46;
219            V33= V34;
220          goto T45;          goto T45;
221          goto T46;          goto T46;
222  T46:;}  T46:;}
223          V31= (*(LnkLI24))((V27));          V33= (*(LnkLI24))((V27));
224          goto T45;          goto T45;
225  T45:;  T45:;
226          {object V33 = ((V28))->v.v_self[4]= (V31);          {object V35 = (V32)->v.v_self[4]= (V33);
227          VMR7(V33)}          VMR7(V35)}
228          goto T42;          goto T42;
229  T42:;{object V34;  T42:;{object V36;
230          V34= (VV[2]->s.s_dbind);          V36= (VV[2]->s.s_dbind);
231          V35= make_cons((V27),Cnil);          V37= make_cons((V27),Cnil);
232          (VV[2]->s.s_dbind)= nconc(V34,/* INLINE-ARGS */V35);}          (VV[2]->s.s_dbind)= nconc(V36,/* INLINE-ARGS */V37);}
233          {object V36 = (VV[2]->s.s_dbind);          {object V38 = (VV[2]->s.s_dbind);
234          VMR7(V36)}}          VMR7(V38)}}
235          return Cnil;          return Cnil;
236  }  }
237  /*      local entry for function LOOKUP-FGEN    */  /*      local entry for function LOOKUP-FGEN    */
238    
239  static object LI8(V38)  static object LI8(V40)
240    
241  object V38;  object V40;
242  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
243          goto TTL;          goto TTL;
244  TTL:;  TTL:;
245          base[0]= (V38);          base[0]= (V40);
246          base[1]= (VV[2]->s.s_dbind);          base[1]= (VV[2]->s.s_dbind);
247          base[2]= VV[3];          base[2]= VV[3];
248          base[3]= (VV[22]->s.s_gfdef);          base[3]= (VV[22]->s.s_gfdef);
# Line 249  TTL:; Line 251  TTL:;
251          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
252          (void) (*Lnk26)();          (void) (*Lnk26)();
253          vs_top=sup;          vs_top=sup;
254          {object V39 = vs_base[0];          {object V41 = vs_base[0];
255          VMR8(V39)}          VMR8(V41)}
256          base[0]=base[0];          base[0]=base[0];
257          return Cnil;          return Cnil;
258  }  }
259  /*      local entry for function MAKE-FGEN      */  /*      local entry for function MAKE-FGEN      */
260    
261  static object LI9(V45,V46,V47,V48,V49)  static object LI9(V47,V48,V49,V50,V51)
262    
263  object V45;object V46;object V47;object V48;object V49;  object V47;object V48;object V49;object V50;object V51;
264  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
265          goto TTL;          goto TTL;
266  TTL:;  TTL:;
267          {register object V50;          {register object V52;
268          base[0]= small_fixnum(6);          base[0]= small_fixnum(6);
269          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
270          (void) (*Lnk27)();          (void) (*Lnk27)();
271          vs_top=sup;          vs_top=sup;
272          V50= vs_base[0];          V52= vs_base[0];
273          (void)(((V50))->v.v_self[0]= ((V45)));          (void)(((V52))->v.v_self[0]= ((V47)));
274          (void)(((V50))->v.v_self[1]= ((V46)));          (void)(((V52))->v.v_self[1]= ((V48)));
275          (void)(((V50))->v.v_self[2]= ((V47)));          (void)(((V52))->v.v_self[2]= ((V49)));
276          (void)(((V50))->v.v_self[3]= ((V48)));          (void)(((V52))->v.v_self[3]= ((V50)));
277          (void)(((V50))->v.v_self[4]= ((V49)));          (void)(((V52))->v.v_self[4]= ((V51)));
278          {object V51 = (V50);          {object V53 = (V52);
279          VMR9(V51)}}          VMR9(V53)}}
280          base[0]=base[0];          base[0]=base[0];
281          return Cnil;          return Cnil;
282  }  }
283  /*      local entry for function FGEN-TEST      */  /*      local entry for function FGEN-TEST      */
284    
285  static object LI10(V53)  static object LI10(V55)
286    
287  object V53;  object V55;
288  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
289          goto TTL;          goto TTL;
290  TTL:;  TTL:;
291          {object V54 = ((V53))->v.v_self[0];          {object V56 = ((V55))->v.v_self[0];
292          VMR10(V54)}          VMR10(V56)}
293          return Cnil;          return Cnil;
294  }  }
295  /*      local entry for function FGEN-GENSYMS   */  /*      local entry for function FGEN-GENSYMS   */
296    
297  static object LI11(V56)  static object LI11(V58)
298    
299  object V56;  object V58;
300  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
301          goto TTL;          goto TTL;
302  TTL:;  TTL:;
303          {object V57 = ((V56))->v.v_self[1];          {object V59 = ((V58))->v.v_self[1];
304          VMR11(V57)}          VMR11(V59)}
305          return Cnil;          return Cnil;
306  }  }
307  /*      local entry for function FGEN-GENERATOR */  /*      local entry for function FGEN-GENERATOR */
308    
309  static object LI12(V59)  static object LI12(V61)
310    
311  object V59;  object V61;
312  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
313          goto TTL;          goto TTL;
314  TTL:;  TTL:;
315          {object V60 = ((V59))->v.v_self[2];          {object V62 = ((V61))->v.v_self[2];
316          VMR12(V60)}          VMR12(V62)}
317          return Cnil;          return Cnil;
318  }  }
319  /*      local entry for function FGEN-GENERATOR-LAMBDA  */  /*      local entry for function FGEN-GENERATOR-LAMBDA  */
320    
321  static object LI13(V62)  static object LI13(V64)
322    
323  object V62;  object V64;
324  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
325          goto TTL;          goto TTL;
326  TTL:;  TTL:;
327          {object V63 = ((V62))->v.v_self[3];          {object V65 = ((V64))->v.v_self[3];
328          VMR13(V63)}          VMR13(V65)}
329          return Cnil;          return Cnil;
330  }  }
331  /*      local entry for function FGEN-SYSTEM    */  /*      local entry for function FGEN-SYSTEM    */
332    
333  static object LI14(V65)  static object LI14(V67)
334    
335  object V65;  object V67;
336  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
337          goto TTL;          goto TTL;
338  TTL:;  TTL:;
339          {object V66 = ((V65))->v.v_self[4];          {object V68 = ((V67))->v.v_self[4];
340          VMR14(V66)}          VMR14(V68)}
341          return Cnil;          return Cnil;
342  }  }
343  /*      local entry for function GET-FUNCTION-GENERATOR */  /*      local entry for function GET-FUNCTION-GENERATOR */
344    
345  static object LI15(V70,V71,V72)  static object LI15(V72,V73,V74)
346    
347  object V70;object V71;object V72;  object V72;object V73;object V74;
348  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
349          goto TTL;          goto TTL;
350  TTL:;  TTL:;
351          {object V73;          {object V75;
352          object V74;          object V76;
353          base[2]= (V70);          base[2]= (V72);
354          base[3]= (V71);          base[3]= (V73);
355          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
356          (void) (*Lnk28)();          (void) (*Lnk28)();
357          vs_top=sup;          vs_top=sup;
358          V73= vs_base[0];          V75= vs_base[0];
359          V74= (*(LnkLI21))((V73));          V76= (*(LnkLI21))((V75));
360          if(((V74))==Cnil){          if(((V76))==Cnil){
361          goto T67;}          goto T67;}
362          {object V75 = (*(LnkLI23))((V74));          {object V77 = (*(LnkLI23))((V76));
363          VMR15(V75)}          VMR15(V77)}
364          goto T67;          goto T67;
365  T67:;  T67:;
366          {object V76 = (*(LnkLI29))((V70),(V73),(V72));          {object V78 = (*(LnkLI29))((V72),(V75),(V74));
367          VMR15(V76)}}          VMR15(V78)}}
368          base[0]=base[0];          base[0]=base[0];
369          return Cnil;          return Cnil;
370  }  }
371  /*      local entry for function GET-NEW-FUNCTION-GENERATOR     */  /*      local entry for function GET-NEW-FUNCTION-GENERATOR     */
372    
373  static object LI16(V80,V81,V82)  static object LI16(V82,V83,V84)
374    
375  object V80;object V81;object V82;  object V82;object V83;object V84;
376  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
377          goto TTL;          goto TTL;
378  TTL:;  TTL:;
379          {object V83;          {object V85;
380          object V84;          object V86;
381          base[0]= (V80);          base[0]= (V82);
382          base[1]= (V82);          base[1]= (V84);
383          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
384          (void) (*Lnk30)();          (void) (*Lnk30)();
385          if(vs_base>=vs_top){vs_top=sup;goto T72;}          if(vs_base>=vs_top){vs_top=sup;goto T72;}
386          V83= vs_base[0];          V85= vs_base[0];
387          vs_base++;          vs_base++;
388          if(vs_base>=vs_top){vs_top=sup;goto T73;}          if(vs_base>=vs_top){vs_top=sup;goto T73;}
389          V84= vs_base[0];          V86= vs_base[0];
390          vs_top=sup;          vs_top=sup;
391          goto T74;          goto T74;
392          goto T72;          goto T72;
393  T72:;  T72:;
394          V83= Cnil;          V85= Cnil;
395          goto T73;          goto T73;
396  T73:;  T73:;
397          V84= Cnil;          V86= Cnil;
398          goto T74;          goto T74;
399  T74:;  T74:;
400          {object V85;          {object V87;
401          object V86;          object V88;
402          base[2]= (V84);          base[2]= (V86);
403          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
404          (void) (*Lnk31)();          (void) (*Lnk31)();
405          vs_top=sup;          vs_top=sup;
406          V85= vs_base[0];          V87= vs_base[0];
407          V86= (*(LnkLI32))((V81),(V83),(V85),(V84),Cnil);          V88= (*(LnkLI32))((V83),(V85),(V87),(V86),Cnil);
408          (void)((*(LnkLI33))((V86)));          (void)((*(LnkLI33))((V88)));
409          {object V87 = (V85);          {object V89 = (V87);
410          VMR16(V87)}}}          VMR16(V89)}}}
411          base[0]=base[0];          base[0]=base[0];
412          return Cnil;          return Cnil;
413  }  }
# Line 415  static void L17() Line 417  static void L17()
417  {register object *base=vs_base;  {register object *base=vs_base;
418          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
419          vs_check;          vs_check;
420          {object V88;          {object V90;
421          object V89;          object V91;
422          check_arg(2);          check_arg(2);
423          V88=(base[0]);          V90=(base[0]);
424          V89=(base[1]);          V91=(base[1]);
425          vs_top=sup;          vs_top=sup;
426          goto TTL;          goto TTL;
427  TTL:;  TTL:;
428          {object V90;          {object V92;
429          object V91;          object V93;
430          base[2]= (V88);          base[2]= (V90);
431          base[3]= (V89);          base[3]= (V91);
432          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
433          (void) (*Lnk34)();          (void) (*Lnk34)();
434          if(vs_base>=vs_top){vs_top=sup;goto T82;}          if(vs_base>=vs_top){vs_top=sup;goto T82;}
435          V90= vs_base[0];          V92= vs_base[0];
436          vs_base++;          vs_base++;
437          if(vs_base>=vs_top){vs_top=sup;goto T83;}          if(vs_base>=vs_top){vs_top=sup;goto T83;}
438          V91= vs_base[0];          V93= vs_base[0];
439          vs_top=sup;          vs_top=sup;
440          goto T84;          goto T84;
441          goto T82;          goto T82;
442  T82:;  T82:;
443          V90= Cnil;          V92= Cnil;
444          goto T83;          goto T83;
445  T83:;  T83:;
446          V91= Cnil;          V93= Cnil;
447          goto T84;          goto T84;
448  T84:;  T84:;
449          base[2]= (V91);          base[2]= (V93);
450          base[3]= list(3,VV[5],(V91),list(2,VV[6],(V90)));          base[3]= list(3,VV[5],(V93),list(2,VV[6],(V92)));
451          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
452          return;}          return;}
453          }          }
# Line 457  static void L18() Line 459  static void L18()
459          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
460          vs_check;          vs_check;
461          bds_check;          bds_check;
462          {object V92;          {object V94;
463          check_arg(2);          check_arg(2);
464          V92=(base[0]);          V94=(base[0]);
465          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
466          vs_top=sup;          vs_top=sup;
467          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
468          base[3]= (V92);          base[3]= (V94);
469          base[4]= Cnil;          base[4]= Cnil;
470          base[5]=          base[5]=
471          make_cclosure_new(LC24,Cnil,base[1],Cdata);          make_cclosure_new(LC24,Cnil,base[1],Cdata);
# Line 480  static void L19() Line 482  static void L19()
482          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
483          vs_check;          vs_check;
484          bds_check;          bds_check;
485          {object V93;          {object V95;
486          check_arg(2);          check_arg(2);
487          V93=(base[0]);          V95=(base[0]);
488          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
489          vs_top=sup;          vs_top=sup;
490          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
491          base[3]=MMcons(Cnil,base[1]);          base[3]=MMcons(Cnil,base[1]);
492          base[5]= (V93);          base[5]= (V95);
493          base[6]= Cnil;          base[6]= Cnil;
494          base[7]=          base[7]=
495          make_cclosure_new(LC25,Cnil,base[3],Cdata);          make_cclosure_new(LC25,Cnil,base[3],Cdata);
# Line 503  static void L19() Line 505  static void L19()
505  }  }
506  /*      local entry for function COMPUTE-CONSTANTS      */  /*      local entry for function COMPUTE-CONSTANTS      */
507    
508  static object LI21(V96,V97)  static object LI21(V98,V99)
509    
510  object V96;object V97;  object V98;object V99;
511  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
512          bds_check;          bds_check;
513          goto TTL;          goto TTL;
514  TTL:;  TTL:;
515          base[0]=MMcons((V97),Cnil);          base[0]=MMcons((V99),Cnil);
516          bds_bind(VV[7],Ct);          bds_bind(VV[7],Ct);
517          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
518          base[3]= (V96);          base[3]= (V98);
519          base[4]= Cnil;          base[4]= Cnil;
520          base[5]=          base[5]=
521          make_cclosure_new(LC26,Cnil,base[2],Cdata);          make_cclosure_new(LC26,Cnil,base[2],Cdata);
522          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
523          (void) (*Lnk35)();          (void) (*Lnk35)();
524          vs_top=sup;          vs_top=sup;
525          {object V98 = (base[2]->c.c_car);          {object V100 = (base[2]->c.c_car);
526          bds_unwind1;          bds_unwind1;
527          VMR20(V98)}          VMR20(V100)}
528          base[0]=base[0];          base[0]=base[0];
529          return Cnil;          return Cnil;
530  }  }
# Line 534  static void L22() Line 536  static void L22()
536          vs_check;          vs_check;
537          check_arg(2);          check_arg(2);
538          vs_top=sup;          vs_top=sup;
539          {object V99=base[0]->c.c_cdr;          {object V101=base[0]->c.c_cdr;
540          if(endp(V99)){          if(endp(V101)){
541          base[2]= Cnil;          base[2]= Cnil;
542          } else {          } else {
543          base[2]= (V99->c.c_car);          base[2]= (V101->c.c_car);
544          V99=V99->c.c_cdr;}          V101=V101->c.c_cdr;}
545          if(!endp(V99))invalid_macro_call();}          if(!endp(V101))invalid_macro_call();}
         {register object V100;  
         V100= small_fixnum(-1);  
546          {register object V102;          {register object V102;
547          register object V103;          V102= small_fixnum(-1);
         V102= Cnil;  
         V103= Cnil;  
548          {register object V104;          {register object V104;
549          register object V105;          register object V105;
550          V104= (VV[2]->s.s_dbind);          V104= Cnil;
551          V105= CMPcar((V104));          V105= Cnil;
552            {register object V106;
553            register object V107;
554            V106= (VV[2]->s.s_dbind);
555            V107= CMPcar((V106));
556          goto T107;          goto T107;
557  T107:;  T107:;
558          if(!(((V104))==Cnil)){          if(!(((V106))==Cnil)){
559          goto T108;}          goto T108;}
560          goto T103;          goto T103;
561          goto T108;          goto T108;
562  T108:;  T108:;
563          if(((*(LnkLI24))((V105)))==Cnil){          if(((*(LnkLI24))((V107)))==Cnil){
564          goto T113;}          goto T113;}
565          V106= (*(LnkLI24))((V105));          V108= (*(LnkLI24))((V107));
566          if(!((/* INLINE-ARGS */V106)==(base[2]))){          V109 = base[2];
567            if(!((/* INLINE-ARGS */V108)==(V109))){
568          goto T112;}          goto T112;}
569          goto T113;          goto T113;
570  T113:;  T113:;
571          if((base[2])==Cnil){          if((base[2])==Cnil){
572          goto T117;}          goto T117;}
573          (void)(((V105))->v.v_self[4]= (base[2]));          (void)(((V107))->v.v_self[4]= (base[2]));
574          goto T117;          goto T117;
575  T117:;  T117:;
576          {register object V107;          {register object V110;
577          V100= number_plus((V100),small_fixnum(1));          V111 = base[2];
578          V108= list(3,VV[10],base[2],(V100));          V102= number_plus((V102),small_fixnum(1));
579          V109= list(2,VV[13],(*(LnkLI22))((V105)));          V112 = (V102);
580          V110= list(2,VV[13],(*(LnkLI37))((V105)));          V113= list(3,VV[10],V111,V112);
581          V111= list(2,VV[6],(*(LnkLI38))((V105)));          V114= list(2,VV[13],(*(LnkLI22))((V107)));
582          V112= list(2,VV[13],(*(LnkLI38))((V105)));          V115= list(2,VV[13],(*(LnkLI37))((V107)));
583          V113= list(6,VV[12],/* INLINE-ARGS */V109,/* INLINE-ARGS */V110,/* INLINE-ARGS */V111,/* INLINE-ARGS */V112,list(2,VV[13],base[2]));          V116= list(2,VV[6],(*(LnkLI38))((V107)));
584          V107= (*(LnkLI36))(/* INLINE-ARGS */V108,VV[11],/* INLINE-ARGS */V113);          V117= list(2,VV[13],(*(LnkLI38))((V107)));
585          if(((V102))!=Cnil){          V118= list(6,VV[12],/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,/* INLINE-ARGS */V116,/* INLINE-ARGS */V117,list(2,VV[13],base[2]));
586            V110= (*(LnkLI36))(/* INLINE-ARGS */V113,VV[11],/* INLINE-ARGS */V118);
587            if(((V104))!=Cnil){
588          goto T123;}          goto T123;}
589          V103= make_cons((V107),Cnil);          V105= make_cons((V110),Cnil);
590          V102= (V103);          V104= (V105);
591          goto T112;          goto T112;
592          goto T123;          goto T123;
593  T123:;  T123:;
594          V115= make_cons((V107),Cnil);          V120= make_cons((V110),Cnil);
595          ((V103))->c.c_cdr = /* INLINE-ARGS */V115;          ((V105))->c.c_cdr = /* INLINE-ARGS */V120;
596          V114= (V103);          V119= (V105);
597          V103= CMPcdr(V114);}          V105= CMPcdr(V119);}
598          goto T112;          goto T112;
599  T112:;  T112:;
600          V104= CMPcdr((V104));          V106= CMPcdr((V106));
601          V105= CMPcar((V104));          V107= CMPcar((V106));
602          goto T107;}          goto T107;}
603          goto T103;          goto T103;
604  T103:;  T103:;
605          V101= (V102);}          V103= (V104);}
606          base[3]= make_cons(VV[9],V101);          base[3]= make_cons(VV[9],V103);
607          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
608          return;}          return;}
609  }  }
610  /*      local entry for function LOAD-FUNCTION-GENERATOR        */  /*      local entry for function LOAD-FUNCTION-GENERATOR        */
611    
612  static object LI23(V121,V122,V123,V124,V125)  static object LI23(V126,V127,V128,V129,V130)
613    
614  object V121;object V122;object V123;object V124;object V125;  object V126;object V127;object V128;object V129;object V130;
615  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
616          goto TTL;          goto TTL;
617  TTL:;  TTL:;
618          V126= (*(LnkLI32))((V121),(V122),(V123),(V124),(V125));          V131= (*(LnkLI32))((V126),(V127),(V128),(V129),(V130));
619          {object V127 = (*(LnkLI33))(/* INLINE-ARGS */V126);          {object V132 = (*(LnkLI33))(/* INLINE-ARGS */V131);
620          VMR22(V127)}          VMR22(V132)}
621          return Cnil;          return Cnil;
622  }  }
623  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 622  register object *base0; Line 627  register object *base0;
627  {       register object *base=vs_base;  {       register object *base=vs_base;
628          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
629          vs_check;          vs_check;
630          {register object V128;          {register object V133;
631          object V129;          object V134;
632          object V130;          object V135;
633          check_arg(3);          check_arg(3);
634          V128=(base[0]);          V133=(base[0]);
635          V129=(base[1]);          V134=(base[1]);
636          V130=(base[2]);          V135=(base[2]);
637          vs_top=sup;          vs_top=sup;
638          if(!(((((V129))==(VV[8])?Ct:Cnil))==Cnil)){          if(!(((((V134))==(VV[8])?Ct:Cnil))==Cnil)){
639          goto T135;}          goto T135;}
640          base[3]= (V128);          base[3]= (V133);
641          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
642          return;          return;
643          goto T135;          goto T135;
644  T135:;  T135:;
645          {object V131;          {object V136;
646          V131= (          V136= (
647          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):          (type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):
648          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?          (fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?
649          (*(((base0[1]->c.c_car))->sfn.sfn_self)):          (*(((base0[1]->c.c_car))->sfn.sfn_self)):
650          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V128)));          (fcall.fun=((base0[1]->c.c_car)),fcalln))((V133)));
651          if(((V131))==Cnil){          if(((V136))==Cnil){
652          goto T139;}          goto T139;}
653          (base0[0]->c.c_car)= append((base0[0]->c.c_car),V131);          (base0[0]->c.c_car)= append((base0[0]->c.c_car),V136);
654          base[3]= (V128);          base[3]= (V133);
655          base[4]= Ct;          base[4]= Ct;
656          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
657          return;          return;
658          goto T139;          goto T139;
659  T139:;  T139:;
660          base[3]= (V128);          base[3]= (V133);
661          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
662          return;}          return;}
663          }          }
# Line 664  register object *base0; Line 669  register object *base0;
669  {       register object *base=vs_base;  {       register object *base=vs_base;
670          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
671          vs_check;          vs_check;
672          {object V133;          {object V138;
673          object V134;          object V139;
674          object V135;          object V140;
675          check_arg(3);          check_arg(3);
676          V133=(base[0]);          V138=(base[0]);
677          V134=(base[1]);          V139=(base[1]);
678          V135=(base[2]);          V140=(base[2]);
679          vs_top=sup;          vs_top=sup;
680          if(!(((((V134))==(VV[8])?Ct:Cnil))==Cnil)){          if(!(((((V139))==(VV[8])?Ct:Cnil))==Cnil)){
681          goto T146;}          goto T146;}
682          base[3]= (V133);          base[3]= (V138);
683          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
684          return;          return;
685          goto T146;          goto T146;
686  T146:;  T146:;
687          {object V136;          {object V141;
688          object V137;          object V142;
689          base[3]= (V133);          base[3]= (V138);
690          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
691          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
692                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
693                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
694                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
695          if(vs_base>=vs_top){vs_top=sup;goto T150;}          if(vs_base>=vs_top){vs_top=sup;goto T150;}
696          V136= vs_base[0];          V141= vs_base[0];
697          vs_base++;          vs_base++;
698          if(vs_base>=vs_top){vs_top=sup;goto T151;}          if(vs_base>=vs_top){vs_top=sup;goto T151;}
699          V137= vs_base[0];          V142= vs_base[0];
700          vs_top=sup;          vs_top=sup;
701          goto T152;          goto T152;
702          goto T150;          goto T150;
703  T150:;  T150:;
704          V136= Cnil;          V141= Cnil;
705          goto T151;          goto T151;
706  T151:;  T151:;
707          V137= Cnil;          V142= Cnil;
708          goto T152;          goto T152;
709  T152:;  T152:;
710          if(((V137))==Cnil){          if(((V142))==Cnil){
711          goto T153;}          goto T153;}
712          (base0[0]->c.c_car)= append((base0[0]->c.c_car),(V137));          (base0[0]->c.c_car)= append((base0[0]->c.c_car),(V142));
713          goto T153;          goto T153;
714  T153:;  T153:;
715          base[3]= (V136);          base[3]= (V141);
716          base[4]= (((((V136))==((V133))?Ct:Cnil))==Cnil?Ct:Cnil);          base[4]= (((((V141))==((V138))?Ct:Cnil))==Cnil?Ct:Cnil);
717          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
718          return;}          return;}
719          }          }
# Line 720  register object *base0; Line 725  register object *base0;
725  {       register object *base=vs_base;  {       register object *base=vs_base;
726          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
727          vs_check;          vs_check;
728          {object V138;          {object V143;
729          object V139;          object V144;
730          object V140;          object V145;
731          check_arg(3);          check_arg(3);
732          V138=(base[0]);          V143=(base[0]);
733          V139=(base[1]);          V144=(base[1]);
734          V140=(base[2]);          V145=(base[2]);
735          vs_top=sup;          vs_top=sup;
736          if(!(((((V139))==(VV[8])?Ct:Cnil))==Cnil)){          if(!(((((V144))==(VV[8])?Ct:Cnil))==Cnil)){
737          goto T160;}          goto T160;}
738          base[3]= (V138);          base[3]= (V143);
739          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
740          return;          return;
741          goto T160;          goto T160;
742  T160:;  T160:;
743          {object V141;          {object V146;
744          V141= (          V146= (
745          (type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):          (type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):
746          (fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?          (fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?
747          (*(((base0[0]->c.c_car))->sfn.sfn_self)):          (*(((base0[0]->c.c_car))->sfn.sfn_self)):
748          (fcall.fun=((base0[0]->c.c_car)),fcalln))((V138)));          (fcall.fun=((base0[0]->c.c_car)),fcalln))((V143)));
749          base[3]= (V141);          base[3]= (V146);
750          base[4]= (((((V141))==((V138))?Ct:Cnil))==Cnil?Ct:Cnil);          base[4]= (((((V146))==((V143))?Ct:Cnil))==Cnil?Ct:Cnil);
751          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
752          return;}          return;}
753          }          }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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