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

Diff of /gcl/pcl/pcl_vector.c

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

revision 1.4 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:39 2003 UTC
# Line 4319  T1547:; Line 4319  T1547:;
4319          (void) (*Lnk228)();          (void) (*Lnk228)();
4320          vs_top=sup;}          vs_top=sup;}
4321          {object V883;          {object V883;
4322            object V885;
4323          V883= (base[1]->c.c_car);          V883= (base[1]->c.c_car);
4324          (void)((*(LnkLI229))((base[0]->c.c_car),(V883),VV[131]));}          V885= (base[0]->c.c_car);
4325          {object V885 = (base[1]->c.c_car);          V886= ({object _tmp=get(VV[227],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[227])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[227])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
4326          VMR63(V885)}}          V887 = (V885);
4327            V888 = (V883);
4328            V889 = VV[131];
4329            (void)((
4330            V890 = V886,
4331            (type_of(V890) == t_sfun ?(*((V890)->sfn.sfn_self)):
4332            (fcall.argd=3,type_of(V890)==t_vfun) ?
4333            (*((V890)->sfn.sfn_self)):
4334            (fcall.fun=(V890),fcalln))(V887,V888,V889)));}
4335            {object V891 = (base[1]->c.c_car);
4336            VMR63(V891)}}
4337          base[0]=base[0];          base[0]=base[0];
4338          return Cnil;          return Cnil;
4339  }  }
4340  /*      local entry for function GET-METHOD-FUNCTION-PV-CELL    */  /*      local entry for function GET-METHOD-FUNCTION-PV-CELL    */
4341    
4342  static object LI67(object V887,object V886,object first,...)  static object LI67(object V893,object V892,object first,...)
4343  {        {      
4344          va_list ap;          va_list ap;
4345          int narg = VFUN_NARGS; VMB64 VMS64 VMV64          int narg = VFUN_NARGS; VMB64 VMS64 VMV64
4346          {object V888;          {object V894;
4347          object V889;          object V895;
4348          object V890;          object V896;
4349          va_start(ap,first);          va_start(ap,first);
4350          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
4351          V888= V887;          V894= V893;
4352          V889= V886;          V895= V892;
4353          narg = narg - 2;          narg = narg - 2;
4354          if (narg <= 0) goto T1566;          if (narg <= 0) goto T1569;
4355          else {          else {
4356          V890= first;}          V896= first;}
4357          --narg; goto T1567;          --narg; goto T1570;
         goto T1566;  
 T1566:;  
         V890= Cnil;  
         goto T1567;  
 T1567:;  
         {object V891;  
         if((V890)!=Cnil){  
         V891= (V890);  
         goto T1569;}  
         V891= (*(LnkLI230))((V888));  
4358          goto T1569;          goto T1569;
4359  T1569:;  T1569:;
4360          if(((V891))==Cnil){          V896= Cnil;
4361          goto T1571;}          goto T1570;
4362          {object V892;  T1570:;
4363          V892= (*(LnkLI231))((V891),(V889));          {object V897;
4364          if(((V892))==Cnil){          if((V896)!=Cnil){
4365          goto T1575;}          V897= (V896);
4366          {object V893 = (*(LnkLI232))((V891),(V892));          goto T1572;}
4367          VMR64(V893)}          V897= (*(LnkLI229))((V894));
4368          goto T1575;          goto T1572;
4369  T1575:;  T1572:;
4370          {object V894 = Cnil;          if(((V897))==Cnil){
4371          VMR64(V894)}}          goto T1574;}
4372          goto T1571;          {object V898;
4373  T1571:;          V898= (*(LnkLI230))((V897),(V895));
4374          {object V895 = Cnil;          if(((V898))==Cnil){
4375          VMR64(V895)}}          goto T1578;}
4376            {object V899 = (*(LnkLI231))((V897),(V898));
4377            VMR64(V899)}
4378            goto T1578;
4379    T1578:;
4380            {object V900 = Cnil;
4381            VMR64(V900)}}
4382            goto T1574;
4383    T1574:;
4384            {object V901 = Cnil;
4385            VMR64(V901)}}
4386          va_end(ap);          va_end(ap);
4387          return Cnil;}          return Cnil;}
4388          }          }
4389  /*      local entry for function PV-TABLE-LOOKUP-PV-ARGS        */  /*      local entry for function PV-TABLE-LOOKUP-PV-ARGS        */
4390    
4391  static object LI68(object V896,object first,...)  static object LI68(object V902,object first,...)
4392  {        {      
4393          va_list ap;          va_list ap;
4394          int narg = VFUN_NARGS; VMB65 VMS65 VMV65          int narg = VFUN_NARGS; VMB65 VMS65 VMV65
4395          {object V897;          {object V903;
4396          object V898;          object V904;
4397          va_start(ap,first);          va_start(ap,first);
4398          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
4399          V897= V896;          V903= V902;
4400          narg= narg - 1;          narg= narg - 1;
4401          V899 = list_vector_new(narg,first,ap);          V905 = list_vector_new(narg,first,ap);
4402          V898= V899;          V904= V905;
4403          V900 = (V897);          V906 = (V903);
4404          V901= (VFUN_NARGS=1,(*(LnkLI233))((V898)));          V907= (VFUN_NARGS=1,(*(LnkLI232))((V904)));
4405          {object V902 = (*(LnkLI232))(V900,/* INLINE-ARGS */V901);          {object V908 = (*(LnkLI231))(V906,/* INLINE-ARGS */V907);
4406          VMR65(V902)}          VMR65(V908)}
4407          va_end(ap);          va_end(ap);
4408          return Cnil;}          return Cnil;}
4409          }          }
# Line 4402  static object LI69(object first,...) Line 4413  static object LI69(object first,...)
4413  {        {      
4414          va_list ap;          va_list ap;
4415          int narg = VFUN_NARGS; VMB66 VMS66 VMV66          int narg = VFUN_NARGS; VMB66 VMS66 VMV66
4416          {object V903;          {object V909;
4417          va_start(ap,first);          va_start(ap,first);
4418          narg= narg - 0;          narg= narg - 0;
4419          V904 = list_vector_new(narg,first,ap);          V910 = list_vector_new(narg,first,ap);
4420          V903= V904;          V909= V910;
4421          {long V905;          {long V911;
4422          object V906;          object V912;
4423          register object V907;          register object V913;
4424          object V908;          object V914;
4425          V905= (long)length((V903));          V911= (long)length((V909));
4426          base[1]= CMPmake_fixnum(V905);          base[1]= CMPmake_fixnum(V911);
4427          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4428          Lmake_list();          Lmake_list();
4429          vs_top=sup;          vs_top=sup;
4430          V906= vs_base[0];          V912= vs_base[0];
4431          V907= Cnil;          V913= Cnil;
4432          V908= (V906);          V914= (V912);
4433          {register object V909;          {register object V915;
4434          register object V910;          register object V916;
4435          V909= (V903);          V915= (V909);
4436          V910= CMPcar((V909));          V916= CMPcar((V915));
4437          goto T1586;          goto T1589;
4438  T1586:;  T1589:;
4439          if(!(((V909))==Cnil)){          if(!(((V915))==Cnil)){
4440          goto T1587;}          goto T1590;}
4441          goto T1582;          goto T1585;
4442          goto T1587;          goto T1590;
4443  T1587:;  T1590:;
4444          {register object V911;          {register object V917;
4445          V911= (V910);          V917= (V916);
4446          if(type_of((V911))==t_structure){          if(type_of((V917))==t_structure){
4447          goto T1596;}          goto T1599;}
4448          goto T1594;          goto T1597;
4449          goto T1596;          goto T1599;
4450  T1596:;  T1599:;
4451          if(!((((V911))->str.str_def)==(VV[145]))){          if(!((((V917))->str.str_def)==(VV[145]))){
4452          goto T1594;}}          goto T1597;}}
4453          V907= STREF(object,(V910),0);          V913= STREF(object,(V916),0);
4454          goto T1592;          goto T1595;
4455          goto T1594;          goto T1597;
4456  T1594:;{object V912;  T1597:;{object V918;
4457          V912= (VV[147]->s.s_dbind);          V918= (VV[147]->s.s_dbind);
4458          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
4459          base[3]= (V910);          base[3]= (V916);
4460          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4461          (void) (*Lnk234)();          (void) (*Lnk233)();
4462          vs_top=sup;          vs_top=sup;
4463          V913= vs_base[0];          V919= vs_base[0];
4464          if(!((V912)==(CMPcar(V913)))){          if(!((V918)==(CMPcar(V919)))){
4465          goto T1599;}}          goto T1602;}}
4466          V907= CMPcar(((V910))->cc.cc_turbo[13]);          V913= CMPcar(((V916))->cc.cc_turbo[13]);
4467          goto T1592;          goto T1595;
4468          goto T1599;          goto T1602;
4469  T1599:;  T1602:;
4470          if(!(type_of((V910))==t_structure)){          if(!(type_of((V916))==t_structure)){
         goto T1605;}  
         V907= (*(LnkLI236))((V910));  
         goto T1592;  
         goto T1605;  
 T1605:;  
         if(!(type_of((V910))==t_symbol)){  
4471          goto T1608;}          goto T1608;}
4472          if(((V910))==Cnil){          V913= (*(LnkLI235))((V916));
4473            goto T1595;
4474            goto T1608;
4475    T1608:;
4476            if(!(type_of((V916))==t_symbol)){
4477          goto T1611;}          goto T1611;}
4478          V907= (VV[148]->s.s_dbind);          if(((V916))==Cnil){
4479          goto T1592;          goto T1614;}
4480            V913= (VV[148]->s.s_dbind);
4481            goto T1595;
4482            goto T1614;
4483    T1614:;
4484            V913= (VV[149]->s.s_dbind);
4485            goto T1595;
4486          goto T1611;          goto T1611;
4487  T1611:;  T1611:;
4488          V907= (VV[149]->s.s_dbind);          V913= (*(LnkLI236))((V916));
4489          goto T1592;          goto T1595;
4490          goto T1608;  T1595:;
4491  T1608:;          if((Ct)==(((V913))->v.v_self[8])){
4492          V907= (*(LnkLI237))((V910));          goto T1616;}
4493          goto T1592;          V913= (*(LnkLI237))((V916));
4494  T1592:;          goto T1616;
4495          if((Ct)==(((V907))->v.v_self[8])){  T1616:;
4496          goto T1613;}          {register object V920;
4497          V907= (*(LnkLI238))((V910));          register object V921;
4498          goto T1613;          V920= (V914);
4499  T1613:;          V921= (V913);
4500          {register object V914;          ((V920))->c.c_car = (V921);}
4501          register object V915;          V915= CMPcdr((V915));
4502          V914= (V908);          V916= CMPcar((V915));
4503          V915= (V907);          goto T1589;}
4504          ((V914))->c.c_car = (V915);}          goto T1585;
4505          V909= CMPcdr((V909));  T1585:;
4506          V910= CMPcar((V909));          V914= CMPcdr((V914));
4507          goto T1586;}          if(!((V911)==(1))){
4508          goto T1582;          goto T1631;}
4509  T1582:;          V912= CMPcar((V912));
4510          V908= CMPcdr((V908));          goto T1631;
4511          if(!((V905)==(1))){  T1631:;
4512          goto T1628;}          {object V922 = (V912);
4513          V906= CMPcar((V906));          VMR66(V922)}}
         goto T1628;  
 T1628:;  
         {object V916 = (V906);  
         VMR66(V916)}}  
4514          va_end(ap);          va_end(ap);
4515          base[0]=base[0];          base[0]=base[0];
4516          return Cnil;}          return Cnil;}
4517          }          }
4518  /*      local entry for function PV-WRAPPERS-FROM-ALL-ARGS      */  /*      local entry for function PV-WRAPPERS-FROM-ALL-ARGS      */
4519    
4520  static object LI70(V919,V920)  static object LI70(V925,V926)
4521    
4522  object V919;register object V920;  object V925;register object V926;
4523  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
4524          goto TTL;          goto TTL;
4525  TTL:;  TTL:;
4526          {long V921;          {long V927;
4527          object V922;          object V928;
4528          V921= 0;          V927= 0;
4529          V922= STREF(object,(V919),8);          V928= STREF(object,(V925),8);
4530          {register object V923;          {register object V929;
4531          object V924;          object V930;
4532          V923= (V922);          V929= (V928);
4533          V924= CMPcar((V923));          V930= CMPcar((V929));
4534          goto T1638;          goto T1641;
4535  T1638:;  T1641:;
4536          if(!(((V923))==Cnil)){          if(!(((V929))==Cnil)){
4537          goto T1639;}          goto T1642;}
4538          goto T1634;          goto T1637;
4539          goto T1639;          goto T1642;
4540  T1639:;  T1642:;
4541          if(((V924))==Cnil){          if(((V930))==Cnil){
4542          goto T1643;}          goto T1646;}
4543          V921= (long)(V921)+(1);          V927= (long)(V927)+(1);
4544          goto T1643;          goto T1646;
4545  T1643:;  T1646:;
4546          V923= CMPcdr((V923));          V929= CMPcdr((V929));
4547          V924= CMPcar((V923));          V930= CMPcar((V929));
4548          goto T1638;}          goto T1641;}
4549          goto T1634;          goto T1637;
4550  T1634:;  T1637:;
4551          {object V925;          {object V931;
4552          register object V926;          register object V932;
4553          base[1]= CMPmake_fixnum(V921);          base[1]= CMPmake_fixnum(V927);
4554          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4555          Lmake_list();          Lmake_list();
4556          vs_top=sup;          vs_top=sup;
4557          V925= vs_base[0];          V931= vs_base[0];
4558          V926= (V925);          V932= (V931);
4559          {register object V927;          {register object V933;
4560          object V928;          object V934;
4561          V927= (V922);          V933= (V928);
4562          V928= CMPcar((V927));          V934= CMPcar((V933));
4563          goto T1659;          goto T1662;
4564  T1659:;  T1662:;
4565          if(!(((V927))==Cnil)){          if(!(((V933))==Cnil)){
4566          goto T1660;}          goto T1663;}
4567          goto T1655;          goto T1658;
4568          goto T1660;          goto T1663;
4569  T1660:;  T1663:;
4570          if(((V928))==Cnil){          if(((V934))==Cnil){
4571          goto T1664;}          goto T1667;}
4572          {object V929;          {object V935;
4573          register object V930;          register object V936;
4574          V929= CMPcar((V920));          V935= CMPcar((V926));
4575          V930= (*(LnkLI239))((V929));          V936= (*(LnkLI238))((V935));
4576          if(((V930))!=Cnil){          if(((V936))!=Cnil){
4577          goto T1669;}          goto T1672;}
4578          base[4]= VV[150];          base[4]= VV[150];
4579          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4580          Lerror();          Lerror();
4581          vs_top=sup;          vs_top=sup;
4582          goto T1669;          goto T1672;
4583  T1669:;  T1672:;
4584          {register object V932;          {register object V938;
4585          V932= (V930);          V938= (V936);
4586          (V926)->c.c_car = (V932);}          (V932)->c.c_car = (V938);}
4587          V926= CMPcdr((V926));}          V932= CMPcdr((V932));}
4588          goto T1664;          goto T1667;
4589  T1664:;  T1667:;
4590          V920= CMPcdr((V920));          V926= CMPcdr((V926));
4591          V927= CMPcdr((V927));          V933= CMPcdr((V933));
4592          V928= CMPcar((V927));          V934= CMPcar((V933));
4593          goto T1659;}          goto T1662;}
4594          goto T1655;          goto T1658;
4595  T1655:;  T1658:;
4596          if(!((V921)==(1))){          if(!((V927)==(1))){
4597          goto T1684;}          goto T1687;}
4598          V925= CMPcar((V925));          V931= CMPcar((V931));
4599          goto T1684;          goto T1687;
4600  T1684:;  T1687:;
4601          {object V933 = (V925);          {object V939 = (V931);
4602          VMR67(V933)}}}          VMR67(V939)}}}
4603          base[0]=base[0];          base[0]=base[0];
4604          return Cnil;          return Cnil;
4605  }  }
4606  /*      local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS  */  /*      local entry for function PV-WRAPPERS-FROM-ALL-WRAPPERS  */
4607    
4608  static object LI71(V936,V937)  static object LI71(V942,V943)
4609    
4610  object V936;register object V937;  object V942;register object V943;
4611  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
4612          goto TTL;          goto TTL;
4613  TTL:;  TTL:;
4614          {long V938;          {long V944;
4615          object V939;          object V945;
4616          V938= 0;          V944= 0;
4617          V939= STREF(object,(V936),8);          V945= STREF(object,(V942),8);
4618          {register object V940;          {register object V946;
4619          object V941;          object V947;
4620          V940= (V939);          V946= (V945);
4621          V941= CMPcar((V940));          V947= CMPcar((V946));
4622          goto T1694;          goto T1697;
4623  T1694:;  T1697:;
4624          if(!(((V940))==Cnil)){          if(!(((V946))==Cnil)){
4625          goto T1695;}          goto T1698;}
4626          goto T1690;          goto T1693;
4627          goto T1695;          goto T1698;
4628  T1695:;  T1698:;
4629          if(((V941))==Cnil){          if(((V947))==Cnil){
4630          goto T1699;}          goto T1702;}
4631          V938= (long)(V938)+(1);          V944= (long)(V944)+(1);
4632          goto T1699;          goto T1702;
4633  T1699:;  T1702:;
4634          V940= CMPcdr((V940));          V946= CMPcdr((V946));
4635          V941= CMPcar((V940));          V947= CMPcar((V946));
4636          goto T1694;}          goto T1697;}
4637          goto T1690;          goto T1693;
4638  T1690:;  T1693:;
4639          {object V942;          {object V948;
4640          register object V943;          register object V949;
4641          base[1]= CMPmake_fixnum(V938);          base[1]= CMPmake_fixnum(V944);
4642          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4643          Lmake_list();          Lmake_list();
4644          vs_top=sup;          vs_top=sup;
4645          V942= vs_base[0];          V948= vs_base[0];
4646          V943= (V942);          V949= (V948);
4647          {register object V944;          {register object V950;
4648          object V945;          object V951;
4649          V944= (V939);          V950= (V945);
4650          V945= CMPcar((V944));          V951= CMPcar((V950));
4651          goto T1715;          goto T1718;
4652  T1715:;  T1718:;
4653          if(!(((V944))==Cnil)){          if(!(((V950))==Cnil)){
4654          goto T1716;}          goto T1719;}
4655          goto T1711;          goto T1714;
4656          goto T1716;          goto T1719;
4657  T1716:;  T1719:;
4658          if(((V945))==Cnil){          if(((V951))==Cnil){
4659          goto T1720;}          goto T1723;}
4660          {register object V946;          {register object V952;
4661          V946= CMPcar((V937));          V952= CMPcar((V943));
4662          if(((V946))!=Cnil){          if(((V952))!=Cnil){
4663          goto T1724;}          goto T1727;}
4664          base[2]= VV[151];          base[2]= VV[151];
4665          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4666          Lerror();          Lerror();
4667          vs_top=sup;          vs_top=sup;
4668          goto T1724;          goto T1727;
4669  T1724:;  T1727:;
4670          {register object V948;          {register object V954;
4671          V948= (V946);          V954= (V952);
4672          (V943)->c.c_car = (V948);}          (V949)->c.c_car = (V954);}
4673          V943= CMPcdr((V943));}          V949= CMPcdr((V949));}
4674          goto T1720;          goto T1723;
4675  T1720:;  T1723:;
4676          V937= CMPcdr((V937));          V943= CMPcdr((V943));
4677          V944= CMPcdr((V944));          V950= CMPcdr((V950));
4678          V945= CMPcar((V944));          V951= CMPcar((V950));
4679          goto T1715;}          goto T1718;}
4680          goto T1711;          goto T1714;
4681  T1711:;  T1714:;
4682          if(!((V938)==(1))){          if(!((V944)==(1))){
4683          goto T1739;}          goto T1742;}
4684          V942= CMPcar((V942));          V948= CMPcar((V948));
4685          goto T1739;          goto T1742;
4686  T1739:;  T1742:;
4687          {object V949 = (V942);          {object V955 = (V948);
4688          VMR68(V949)}}}          VMR68(V955)}}}
4689          base[0]=base[0];          base[0]=base[0];
4690          return Cnil;          return Cnil;
4691  }  }
# Line 4685  register object *base0; Line 4696  register object *base0;
4696  {       register object *base=vs_base;  {       register object *base=vs_base;
4697          register object *sup=base+VM69; VC69          register object *sup=base+VM69; VC69
4698          vs_check;          vs_check;
4699          {register object V950;          {register object V956;
4700          object V951;          object V957;
4701          check_arg(2);          check_arg(2);
4702          V950=(base[0]);          V956=(base[0]);
4703          V951=(base[1]);          V957=(base[1]);
4704          vs_top=sup;          vs_top=sup;
4705          if(((base0[2]->c.c_car))!=Cnil){          if(((base0[2]->c.c_car))!=Cnil){
4706          goto T1743;}          goto T1746;}
4707          (base0[2]->c.c_car)= (*(LnkLI230))((base0[4]->c.c_car));          (base0[2]->c.c_car)= (*(LnkLI229))((base0[4]->c.c_car));
4708          goto T1743;          goto T1746;
4709  T1743:;  T1746:;
4710          {object V952;          {object V958;
4711          register object V953;          register object V959;
4712          object V954;          object V960;
4713          object V955;          object V961;
4714          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
4715          goto T1749;}          goto T1752;}
4716          V952= (VFUN_NARGS=3,(*(LnkLI240))((base0[3]->c.c_car),(V950),(base0[2]->c.c_car)));          V958= (VFUN_NARGS=3,(*(LnkLI239))((base0[3]->c.c_car),(V956),(base0[2]->c.c_car)));
4717          goto T1747;          goto T1750;
4718          goto T1749;          goto T1752;
4719  T1749:;  T1752:;
4720          V952= Cnil;          V958= Cnil;
4721          goto T1747;          goto T1750;
4722  T1747:;  T1750:;
4723          V953= CMPcar((V951));          V959= CMPcar((V957));
4724          V954= CMPcdr((V951));          V960= CMPcdr((V957));
4725          if(((V953))==Cnil){          if(((V959))==Cnil){
4726          goto T1755;}          goto T1758;}
4727          if(type_of(V953)==t_structure){          if(type_of(V959)==t_structure){
4728          goto T1761;}          goto T1764;}
4729          goto T1759;          goto T1762;
4730          goto T1761;          goto T1764;
4731  T1761:;  T1764:;
4732          if(!(((V953)->str.str_def)==(VV[144]))){          if(!(((V959)->str.str_def)==(VV[144]))){
4733          goto T1759;}          goto T1762;}
4734          base[6]= (V953);          base[6]= (V959);
4735          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
4736          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk241)(Lclptr241);
4737          vs_top=sup;          vs_top=sup;
4738          V956= vs_base[0];          V962= vs_base[0];
4739          goto T1757;          goto T1760;
4740          goto T1759;          goto T1762;
4741  T1759:;  T1762:;
4742          V956= (V953);          V962= (V959);
4743          goto T1757;          goto T1760;
4744  T1757:;  T1760:;
4745          V958= make_cons((V954),Cnil);          V964= make_cons((V960),Cnil);
4746          V955= (VFUN_NARGS=4,(*(LnkLI241))(VV[124],V956,VV[138],/* INLINE-ARGS */V958));          V961= (VFUN_NARGS=4,(*(LnkLI240))(VV[124],V962,VV[138],/* INLINE-ARGS */V964));
4747          goto T1753;          goto T1756;
4748          goto T1755;          goto T1758;
4749  T1755:;  T1758:;
4750          V955= Cnil;          V961= Cnil;
4751          goto T1753;          goto T1756;
4752  T1753:;  T1756:;
4753          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
4754          goto T1765;}          goto T1768;}
4755          {object V959;          {object V965;
4756          object V960;          object V966;
4757          V959= nthcdr(fix((base0[1]->c.c_car)),(V950));          V965= nthcdr(fix((base0[1]->c.c_car)),(V956));
4758          base[8]= (V950);          base[8]= (V956);
4759          base[9]= (V959);          base[9]= (V965);
4760          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4761          Lldiff();          Lldiff();
4762          vs_top=sup;          vs_top=sup;
4763          V960= vs_base[0];          V966= vs_base[0];
4764          base[8]= (base0[4]->c.c_car);          base[8]= (base0[4]->c.c_car);
4765          base[9]= (V952);          base[9]= (V958);
4766          base[10]= (V955);          base[10]= (V961);
4767          {object V961;          {object V967;
4768          V962= make_cons((V959),Cnil);          V968= make_cons((V965),Cnil);
4769          V961= nconc((V960),/* INLINE-ARGS */V962);          V967= nconc((V966),/* INLINE-ARGS */V968);
4770           vs_top=base+11;           vs_top=base+11;
4771           while(V961!=Cnil)           while(V967!=Cnil)
4772           {vs_push((V961)->c.c_car);V961=(V961)->c.c_cdr;}           {vs_push((V967)->c.c_car);V967=(V967)->c.c_cdr;}
4773          vs_base=base+9;}          vs_base=base+9;}
4774          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4775                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4776                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4777                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4778          return;}          return;}
4779          goto T1765;          goto T1768;
4780  T1765:;  T1768:;
4781          base[6]= (base0[4]->c.c_car);          base[6]= (base0[4]->c.c_car);
4782          base[7]= (V952);          base[7]= (V958);
4783          base[8]= (V955);          base[8]= (V961);
4784          {object V963;          {object V969;
4785          V963= (V950);          V969= (V956);
4786           vs_top=base+9;           vs_top=base+9;
4787           while(V963!=Cnil)           while(V969!=Cnil)
4788           {vs_push((V963)->c.c_car);V963=(V963)->c.c_cdr;}           {vs_push((V969)->c.c_car);V969=(V969)->c.c_cdr;}
4789          vs_base=base+7;}          vs_base=base+7;}
4790          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4791                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4790  register object *base0; Line 4801  register object *base0;
4801  {       register object *base=vs_base;  {       register object *base=vs_base;
4802          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
4803          vs_check;          vs_check;
4804          {object V964;          {object V970;
4805          object V965;          object V971;
4806          check_arg(2);          check_arg(2);
4807          V964=(base[0]);          V970=(base[0]);
4808          V965=(base[1]);          V971=(base[1]);
4809          vs_top=sup;          vs_top=sup;
4810          {object V967;          {object V973;
4811          V967= (*(LnkLI243))((V964),CMPcar((V965)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car));          V973= (*(LnkLI242))((V970),CMPcar((V971)),(base0[3]->c.c_car),(base0[1]->c.c_car),(base0[0]->c.c_car));
4812          (V965)->c.c_car = (V967);          (V971)->c.c_car = (V973);
4813          base[3]= (V967);          base[3]= (V973);
4814          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4815          return;}          return;}
4816          }          }
# Line 4811  register object *base0; Line 4822  register object *base0;
4822  {       register object *base=vs_base;  {       register object *base=vs_base;
4823          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
4824          vs_check;          vs_check;
4825          {object V968;          {object V974;
4826          register object V969;          register object V975;
4827          check_arg(2);          check_arg(2);
4828          V968=(base[0]);          V974=(base[0]);
4829          V969=(base[1]);          V975=(base[1]);
4830          vs_top=sup;          vs_top=sup;
4831          base[2]= V968;          base[2]= V974;
4832          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
4833          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4834          Ladjoin();          Ladjoin();
# Line 4835  register object *base0; Line 4846  register object *base0;
4846  {       register object *base=vs_base;  {       register object *base=vs_base;
4847          register object *sup=base+VM72; VC72          register object *sup=base+VM72; VC72
4848          vs_check;          vs_check;
4849          {object V971;          {object V977;
4850          check_arg(1);          check_arg(1);
4851          V971=(base[0]);          V977=(base[0]);
4852          vs_top=sup;          vs_top=sup;
4853          goto TTL;          goto TTL;
4854  TTL:;{object V972;  TTL:;{object V978;
4855          base[1]= (V971);          base[1]= (V977);
4856          base[2]= (VV[16]->s.s_dbind);          base[2]= (VV[16]->s.s_dbind);
4857          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4858          Lgethash();          Lgethash();
4859          vs_top=sup;          vs_top=sup;
4860          V972= vs_base[0];          V978= vs_base[0];
4861          if(V972==Cnil)goto T1784;          if(V978==Cnil)goto T1787;
4862          base[1]= V972;          base[1]= V978;
4863          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4864          return;          return;
4865          goto T1784;          goto T1787;
4866  T1784:;}  T1787:;}
4867          {object V974;          {object V980;
4868          object V975;          object V981;
4869          V974= (VV[16]->s.s_dbind);          V980= (VV[16]->s.s_dbind);
4870          {object V976;          {object V982;
4871          object V977;          object V983;
4872          base[2]= CMPcdr((V971));          base[2]= CMPcdr((V977));
4873          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4874          Lcopy_list();          Lcopy_list();
4875          vs_top=sup;          vs_top=sup;
4876          V976= vs_base[0];          V982= vs_base[0];
4877          V977= CMPcar((V971));          V983= CMPcar((V977));
4878          base0[0]= Ct;          base0[0]= Ct;
4879          V975= (VFUN_NARGS=4,(*(LnkLI244))(VV[17],(V976),VV[18],(V977)));}          V981= (VFUN_NARGS=4,(*(LnkLI243))(VV[17],(V982),VV[18],(V983)));}
4880          base[2]= V971;          base[2]= V977;
4881          base[3]= (V974);          base[3]= (V980);
4882          base[4]= (V975);          base[4]= (V981);
4883          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4884          siLhash_set();          siLhash_set();
4885          return;}          return;}
# Line 4881  register object *base0; Line 4892  register object *base0;
4892  {       register object *base=vs_base;  {       register object *base=vs_base;
4893          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
4894          vs_check;          vs_check;
4895          {object V978;          {object V984;
4896          check_arg(1);          check_arg(1);
4897          V978=(base[0]);          V984=(base[0]);
4898          vs_top=sup;          vs_top=sup;
4899          goto TTL;          goto TTL;
4900  TTL:;{object V979;  TTL:;{object V985;
4901          base[1]= (V978);          base[1]= (V984);
4902          base[2]= (VV[15]->s.s_dbind);          base[2]= (VV[15]->s.s_dbind);
4903          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4904          Lgethash();          Lgethash();
4905          vs_top=sup;          vs_top=sup;
4906          V979= vs_base[0];          V985= vs_base[0];
4907          if(V979==Cnil)goto T1798;          if(V985==Cnil)goto T1801;
4908          base[1]= V979;          base[1]= V985;
4909          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4910          return;          return;
4911          goto T1798;          goto T1801;
4912  T1798:;}  T1801:;}
4913          {object V981;          {object V987;
4914          object V982;          object V988;
4915          V981= (VV[15]->s.s_dbind);          V987= (VV[15]->s.s_dbind);
4916          base[2]= (V978);          base[2]= (V984);
4917          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4918          Lcopy_list();          Lcopy_list();
4919          vs_top=sup;          vs_top=sup;
4920          V982= vs_base[0];          V988= vs_base[0];
4921          base[2]= V978;          base[2]= V984;
4922          base[3]= (V981);          base[3]= (V987);
4923          base[4]= (V982);          base[4]= (V988);
4924          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4925          siLhash_set();          siLhash_set();
4926          return;}          return;}
4927          }          }
4928  }  }
4929  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[244],(void **)(void *)&LnkLI244,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */  static object  LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* MAKE-PV-TABLE */
4930  static object  LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[243],(void **)(void *)&LnkLI243,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,5,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS-IN-PV */
4931  static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* METHOD-FUNCTION */  static void LnkT241(ptr) object *ptr;{ call_or_link_closure(VV[241],(void **)(void *)&Lnk241,(void **)(void *)&Lclptr241);} /* METHOD-FUNCTION */
4932  static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[241],(void **)(void *)&LnkLI241,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */  static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[240],(void **)(void *)&LnkLI240,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-CALL */
4933  static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[240],(void **)(void *)&LnkLI240,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* GET-METHOD-FUNCTION-PV-CELL */
4934  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
4935  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
4936  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */
4937  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */
4938  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
4939  static void LnkT234(){ call_or_link(VV[234],(void **)(void *)&Lnk234);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* CCLOSURE-ENV-NTHCDR */
4940  static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[233],(void **)(void *)&LnkLI233,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[232],(void **)(void *)&LnkLI232,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-PV-ARGS */
4941  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */
4942  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,2,first,ap);va_end(ap);return V1;} /* PV-WRAPPERS-FROM-ALL-ARGS */
4943  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */  static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PV-TABLE */
 static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,3,first,ap);va_end(ap);return V1;} /* SETF PCL METHOD-FUNCTION-GET */  
4944  static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* SET-FUNCTION-NAME */  static void LnkT228(){ call_or_link(VV[228],(void **)(void *)&Lnk228);} /* SET-FUNCTION-NAME */
4945  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[227],(void **)(void *)&LnkLI227,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[227],(void **)(void *)&LnkLI227,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
4946  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* SPLIT-DECLARATIONS */  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* SPLIT-DECLARATIONS */

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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