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

Diff of /gcl/lsp/gcl_seqlib.c

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:31 2003 UTC
# Line 3474  T1278:; Line 3474  T1278:;
3474          base[0]=base[0];          base[0]=base[0];
3475          return Cnil;}          return Cnil;}
3476          }}          }}
3477  /*      function definition for MAP-INTO        */  /*      local entry for function MAP-INTO       */
3478    
3479  static void L45()  static object LI45(object V725,object V724,object first,...)
3480  {register object *base=vs_base;  {      
3481          register object *sup=base+VM44; VC44          va_list ap;
3482          vs_reserve(VM44);          int narg = VFUN_NARGS; VMB44 VMS44 VMV44
3483          {register object V724;          {register object V726;
3484          register object V725;          register object V727;
3485          register object V726;          register object V728;
3486          if(vs_top-vs_base<2) too_few_arguments();          va_start(ap,first);
3487          V724=(base[0]);          if(narg <2) too_few_arguments();
3488          V725=(base[1]);          V726= V725;
3489          vs_base=vs_base+2;          V727= V724;
3490          vs_top[0]=Cnil;          narg= narg - 2;
3491          {object *p=vs_top;          V729 = list_vector_new(narg,first,ap);
3492           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}          V728= V729;
3493          V726=(base[2]);          {object V730;
3494          vs_top=sup;          base[2]= (V726);
3495          {object V727;          vs_top=(vs_base=base+2)+1;
         base[5]= (V724);  
         vs_top=(vs_base=base+5)+1;  
3496          Ltype_of();          Ltype_of();
3497          vs_top=sup;          vs_top=sup;
3498          base[4]= vs_base[0];          base[1]= vs_base[0];
3499          base[5]= VV[18];          base[2]= VV[18];
3500          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+1)+2;
3501          (void) (*Lnk61)();          (void) (*Lnk61)();
3502          vs_top=sup;          vs_top=sup;
3503          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3504          goto T1317;}          goto T1317;}
3505          base[4]= (V724);          base[1]= (V726);
3506          base[5]= small_fixnum(0);          base[2]= small_fixnum(0);
3507          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+1)+2;
3508          Larray_dimension();          Larray_dimension();
3509          vs_top=sup;          vs_top=sup;
3510          base[3]= vs_base[0];          base[0]= vs_base[0];
3511          goto T1315;          goto T1315;
3512          goto T1317;          goto T1317;
3513  T1317:;  T1317:;
3514          base[3]= make_fixnum((long)length((V724)));          base[0]= make_fixnum((long)length((V726)));
3515          goto T1315;          goto T1315;
3516  T1315:;  T1315:;
3517          {object V728;          {object V731;
3518          {object V729;          {object V732;
3519          object V730= (V726);          object V733= (V728);
3520          if(endp(V730)){          if(endp(V733)){
3521          V728= Cnil;          V731= Cnil;
3522          goto T1324;}          goto T1324;}
3523          base[4]=V729=MMcons(Cnil,Cnil);          base[1]=V732=MMcons(Cnil,Cnil);
3524          goto T1325;          goto T1325;
3525  T1325:;  T1325:;
3526          base[5]= (V730->c.c_car);          base[2]= (V733->c.c_car);
3527          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+2)+1;
3528          Llength();          Llength();
3529          vs_top=sup;          vs_top=sup;
3530          (V729->c.c_car)= vs_base[0];          (V732->c.c_car)= vs_base[0];
3531          V730=MMcdr(V730);          V733=MMcdr(V733);
3532          if(endp(V730)){          if(endp(V733)){
3533          V728= base[4];          V731= base[1];
3534          goto T1324;}          goto T1324;}
3535          V729=MMcdr(V729)=MMcons(Cnil,Cnil);          V732=MMcdr(V732)=MMcons(Cnil,Cnil);
3536          goto T1325;}          goto T1325;}
3537          goto T1324;          goto T1324;
3538  T1324:;  T1324:;
3539           vs_top=base+4;           vs_top=base+1;
3540           while(!endp(V728))           while(!endp(V731))
3541           {vs_push(car(V728));V728=cdr(V728);}           {vs_push(car(V731));V731=cdr(V731);}
3542          vs_base=base+3;}          vs_base=base+0;}
3543          Lmin();          Lmin();
3544          vs_top=sup;          vs_top=sup;
3545          V727= vs_base[0];          V730= vs_base[0];
3546          base[4]= (V724);          base[1]= (V726);
3547          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+1)+1;
3548          Ltype_of();          Ltype_of();
3549          vs_top=sup;          vs_top=sup;
3550          base[3]= vs_base[0];          base[0]= vs_base[0];
3551          base[4]= VV[18];          base[1]= VV[18];
3552          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
3553          (void) (*Lnk61)();          (void) (*Lnk61)();
3554          vs_top=sup;          vs_top=sup;
3555          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3556          goto T1328;}          goto T1328;}
3557          base[3]= (V724);          base[0]= (V726);
3558          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+0)+1;
3559          (void) (*Lnk62)();          (void) (*Lnk62)();
3560          vs_top=sup;          vs_top=sup;
3561          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3562          goto T1328;}          goto T1328;}
3563          base[3]= (V724);          base[0]= (V726);
3564          base[4]= (V727);          base[1]= (V730);
3565          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
3566          siLfill_pointer_set();          siLfill_pointer_set();
3567          vs_top=sup;          vs_top=sup;
3568          goto T1328;          goto T1328;
3569  T1328:;  T1328:;
3570          {register object V731;          {register object V734;
3571          register object V732;          register object V735;
3572          V731= (V727);          V734= (V730);
3573          V732= small_fixnum(0);          V735= small_fixnum(0);
3574          goto T1342;          goto T1342;
3575  T1342:;  T1342:;
3576          if(!(number_compare((V732),(V731))>=0)){          if(!(number_compare((V735),(V734))>=0)){
3577          goto T1343;}          goto T1343;}
3578          base[3]= (V724);          {object V736 = (V726);
3579          vs_top=(vs_base=base+3)+1;          VMR44(V736)}
         return;  
3580          goto T1343;          goto T1343;
3581  T1343:;  T1343:;
3582          base[3]= (V725);          base[0]= (V727);
3583          {object V734;          {object V738;
3584          {object V735;          {object V739;
3585          object V736= (V726);          object V740= (V728);
3586          if(endp(V736)){          if(endp(V740)){
3587          V734= Cnil;          V738= Cnil;
3588          goto T1350;}          goto T1350;}
3589          base[4]=V735=MMcons(Cnil,Cnil);          base[1]=V739=MMcons(Cnil,Cnil);
3590          goto T1351;          goto T1351;
3591  T1351:;  T1351:;
3592          {register object V737;          {register object V741;
3593          V737= (V736->c.c_car);          V741= (V740->c.c_car);
3594          (V735->c.c_car)= elt((V737),fixint((V732)));}          (V739->c.c_car)= elt((V741),fixint((V735)));}
3595          V736=MMcdr(V736);          V740=MMcdr(V740);
3596          if(endp(V736)){          if(endp(V740)){
3597          V734= base[4];          V738= base[1];
3598          goto T1350;}          goto T1350;}
3599          V735=MMcdr(V735)=MMcons(Cnil,Cnil);          V739=MMcdr(V739)=MMcons(Cnil,Cnil);
3600          goto T1351;}          goto T1351;}
3601          goto T1350;          goto T1350;
3602  T1350:;  T1350:;
3603           vs_top=base+4;           vs_top=base+1;
3604           while(!endp(V734))           while(!endp(V738))
3605           {vs_push(car(V734));V734=cdr(V734);}           {vs_push(car(V738));V738=cdr(V738);}
3606          vs_base=base+4;}          vs_base=base+1;}
3607          super_funcall_no_event(base[3]);          super_funcall_no_event(base[0]);
3608          vs_top=sup;          vs_top=sup;
3609          V733= vs_base[0];          V737= vs_base[0];
3610          (void)(elt_set((V724),fixint((V732)),V733));          (void)(elt_set((V726),fixint((V735)),V737));
3611          V732= one_plus((V732));          V735= one_plus((V735));
3612          goto T1342;}}          goto T1342;}}
3613            va_end(ap);
3614            base[0]=base[0];
3615            return Cnil;}
3616          }          }
 }  
3617  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */  /*      macro definition for WITH-HASH-TABLE-ITERATOR   */
3618    
3619  static void L46()  static void L46()
# Line 3623  static void L46() Line 3622  static void L46()
3622          vs_reserve(VM45);          vs_reserve(VM45);
3623          check_arg(2);          check_arg(2);
3624          vs_top=sup;          vs_top=sup;
3625          {object V738=base[0]->c.c_cdr;          {object V742=base[0]->c.c_cdr;
3626          if(endp(V738))invalid_macro_call();          if(endp(V742))invalid_macro_call();
3627          {object V739= (V738->c.c_car);          {object V743= (V742->c.c_car);
3628          if(endp(V739))invalid_macro_call();          if(endp(V743))invalid_macro_call();
3629          base[2]= (V739->c.c_car);          base[2]= (V743->c.c_car);
3630          V739=V739->c.c_cdr;          V743=V743->c.c_cdr;
3631          if(endp(V739))invalid_macro_call();          if(endp(V743))invalid_macro_call();
3632          base[3]= (V739->c.c_car);          base[3]= (V743->c.c_car);
3633          V739=V739->c.c_cdr;          V743=V743->c.c_cdr;
3634          if(!endp(V739))invalid_macro_call();}          if(!endp(V743))invalid_macro_call();}
3635          V738=V738->c.c_cdr;          V742=V742->c.c_cdr;
3636          base[4]= V738;}          base[4]= V742;}
3637          {object V740;          {object V744;
3638          object V741;          object V745;
3639          vs_base=vs_top;          vs_base=vs_top;
3640          Lgensym();          Lgensym();
3641          vs_top=sup;          vs_top=sup;
3642          V740= vs_base[0];          V744= vs_base[0];
3643          base[5]= VV[19];          base[5]= VV[19];
3644          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3645          Lgensym();          Lgensym();
3646          vs_top=sup;          vs_top=sup;
3647          V741= vs_base[0];          V745= vs_base[0];
3648          V742= list(2,(V740),base[3]);          V746= list(2,(V744),base[3]);
3649          V743= list(2,/* INLINE-ARGS */V742,list(2,(V741),small_fixnum(0)));          V747= list(2,/* INLINE-ARGS */V746,list(2,(V745),small_fixnum(0)));
3650          V744= list(2,VV[25],(V740));          V748= list(2,VV[25],(V744));
3651          V745= list(4,VV[0],VV[24],/* INLINE-ARGS */V744,list(2,VV[25],(V741)));          V749= list(4,VV[0],VV[24],/* INLINE-ARGS */V748,list(2,VV[25],(V745)));
3652          V746= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V745,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V741)),VV[29]),VV[30]),VV[31])));          V750= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V749,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V745)),VV[29]),VV[30]),VV[31])));
3653          base[5]= list(3,VV[20],/* INLINE-ARGS */V743,listA(3,VV[21],make_cons(/* INLINE-ARGS */V746,Cnil),base[4]));          base[5]= list(3,VV[20],/* INLINE-ARGS */V747,listA(3,VV[21],make_cons(/* INLINE-ARGS */V750,Cnil),base[4]));
3654          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3655          return;}          return;}
3656  }  }
# Line 3662  register object *base0; Line 3661  register object *base0;
3661  {       register object *base=vs_base;  {       register object *base=vs_base;
3662          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3663          vs_reserve(VM46);          vs_reserve(VM46);
3664          {object V747;          {object V751;
3665          check_arg(1);          check_arg(1);
3666          V747=(base[0]);          V751=(base[0]);
3667          vs_top=sup;          vs_top=sup;
3668          goto TTL;          goto TTL;
3669  TTL:;  TTL:;
3670          {long V748;          {long V752;
         register object V749;  
         register object V750;  
         object V751;  
         register object V752;  
3671          register object V753;          register object V753;
3672          register object V754;          register object V754;
3673          V748= 0;          object V755;
3674          V749= Cnil;          register object V756;
3675          V750= Cnil;          register object V757;
3676          V751= Cnil;          register object V758;
3677          V752= Cnil;          V752= 0;
3678          V753= Cnil;          V753= Cnil;
3679          V754= Cnil;          V754= Cnil;
3680          V748= (long)length((V747));          V755= Cnil;
3681          if(!((V748)<(2))){          V756= Cnil;
3682            V757= Cnil;
3683            V758= Cnil;
3684            V752= (long)length((V751));
3685            if(!((V752)<(2))){
3686          goto T1368;}          goto T1368;}
3687          base[1]= (V747);          base[1]= (V751);
3688          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3689          return;          return;
3690          goto T1368;          goto T1368;
3691  T1368:;  T1368:;
3692          if(!((V748)==(2))){          if(!((V752)==(2))){
3693          goto T1366;}          goto T1366;}
3694          V753= (          V757= (
3695          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3696          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V747))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V751))));
3697          V754= (          V758= (
3698          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3699          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V747))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V751))));
3700          base[1]= (V753);          base[1]= (V757);
3701          base[2]= (V754);          base[2]= (V758);
3702          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3703          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3704          vs_top=sup;          vs_top=sup;
3705          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3706          goto T1377;}          goto T1377;}
3707          base[1]= (V747);          base[1]= (V751);
3708          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3709          return;          return;
3710          goto T1377;          goto T1377;
3711  T1377:;  T1377:;
3712          base[1]= (V754);          base[1]= (V758);
3713          base[2]= (V753);          base[2]= (V757);
3714          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3715          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3716          vs_top=sup;          vs_top=sup;
3717          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3718          goto T1382;}          goto T1382;}
3719          base[1]= nreverse((V747));          base[1]= nreverse((V751));
3720          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3721          return;          return;
3722          goto T1382;          goto T1382;
3723  T1382:;  T1382:;
3724          base[1]= (V747);          base[1]= (V751);
3725          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3726          return;          return;
3727          goto T1366;          goto T1366;
3728  T1366:;  T1366:;
3729          V748= (long)(V748>=0&&(2)>0?(V748)/(2):ifloor(V748,2));          V752= (long)(V752>=0&&(2)>0?(V752)/(2):ifloor(V752,2));
3730          {long V755;          {long V759;
3731          register object V756;          register object V760;
3732          V755= 1;          V759= 1;
3733          V756= (V747);          V760= (V751);
3734          goto T1391;          goto T1391;
3735  T1391:;  T1391:;
3736          if(!((V755)>=(V748))){          if(!((V759)>=(V752))){
3737          goto T1392;}          goto T1392;}
3738          V749= (V747);          V753= (V751);
3739          V750= cdr((V756));          V754= cdr((V760));
3740          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));          if(type_of((V760))!=t_cons)FEwrong_type_argument(Scons,(V760));
3741          ((V756))->c.c_cdr = Cnil;          ((V760))->c.c_cdr = Cnil;
3742          goto T1388;          goto T1388;
3743          goto T1392;          goto T1392;
3744  T1392:;  T1392:;
3745          V755= (long)(1)+(V755);          V759= (long)(1)+(V759);
3746          V756= cdr((V756));          V760= cdr((V760));
3747          goto T1391;}          goto T1391;}
3748          goto T1388;          goto T1388;
3749  T1388:;  T1388:;
3750          base[1]= (V749);          base[1]= (V753);
3751          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3752          L41(base0);          L41(base0);
3753          vs_top=sup;          vs_top=sup;
3754          V749= vs_base[0];          V753= vs_base[0];
3755          base[1]= (V750);          base[1]= (V754);
3756          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3757          L41(base0);          L41(base0);
3758          vs_top=sup;          vs_top=sup;
3759          V750= vs_base[0];          V754= vs_base[0];
3760          if(!(endp_prop((V749)))){          if(!(endp_prop((V753)))){
3761          goto T1412;}          goto T1412;}
3762          base[1]= (V750);          base[1]= (V754);
3763          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3764          return;          return;
3765          goto T1412;          goto T1412;
3766  T1412:;  T1412:;
3767          if(!(endp_prop((V750)))){          if(!(endp_prop((V754)))){
3768          goto T1410;}          goto T1410;}
3769          base[1]= (V749);          base[1]= (V753);
3770          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3771          return;          return;
3772          goto T1410;          goto T1410;
3773  T1410:;  T1410:;
3774          V751= make_cons(Cnil,Cnil);          V755= make_cons(Cnil,Cnil);
3775          V752= (V751);          V756= (V755);
3776          V753= (          V757= (
3777          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3778          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V753))));
3779          V754= (          V758= (
3780          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3781          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V754))));
3782          goto T1361;          goto T1361;
3783  T1361:;  T1361:;
3784          base[1]= (V753);          base[1]= (V757);
3785          base[2]= (V754);          base[2]= (V758);
3786          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3787          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3788          vs_top=sup;          vs_top=sup;
# Line 3792  T1361:; Line 3791  T1361:;
3791          goto T1362;          goto T1362;
3792          goto T1424;          goto T1424;
3793  T1424:;  T1424:;
3794          base[1]= (V754);          base[1]= (V758);
3795          base[2]= (V753);          base[2]= (V757);
3796          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3797          super_funcall_no_event(base0[1]);          super_funcall_no_event(base0[1]);
3798          vs_top=sup;          vs_top=sup;
# Line 3805  T1429:; Line 3804  T1429:;
3804          goto T1362;          goto T1362;
3805          goto T1362;          goto T1362;
3806  T1362:;  T1362:;
3807          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));
3808          ((V752))->c.c_cdr = (V749);          ((V756))->c.c_cdr = (V753);
3809          V752= cdr((V752));          V756= cdr((V756));
3810          V749= cdr((V749));          V753= cdr((V753));
3811          if(!(endp_prop((V749)))){          if(!(endp_prop((V753)))){
3812          goto T1438;}          goto T1438;}
3813          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));
3814          ((V752))->c.c_cdr = (V750);          ((V756))->c.c_cdr = (V754);
3815          base[1]= cdr((V751));          base[1]= cdr((V755));
3816          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3817          return;          return;
3818          goto T1438;          goto T1438;
3819  T1438:;  T1438:;
3820          V753= (          V757= (
3821          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3822          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V753))));
3823          goto T1361;          goto T1361;
3824          goto T1363;          goto T1363;
3825  T1363:;  T1363:;
3826          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));
3827          ((V752))->c.c_cdr = (V750);          ((V756))->c.c_cdr = (V754);
3828          V752= cdr((V752));          V756= cdr((V756));
3829          V750= cdr((V750));          V754= cdr((V754));
3830          if(!(endp_prop((V750)))){          if(!(endp_prop((V754)))){
3831          goto T1449;}          goto T1449;}
3832          if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752));          if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756));
3833          ((V752))->c.c_cdr = (V749);          ((V756))->c.c_cdr = (V753);
3834          base[1]= cdr((V751));          base[1]= cdr((V755));
3835          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3836          return;          return;
3837          goto T1449;          goto T1449;
3838  T1449:;  T1449:;
3839          V754= (          V758= (
3840          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):          (type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)):
3841          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750))));          (fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V754))));
3842          goto T1361;}          goto T1361;}
3843          }          }
3844  }  }

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