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

Diff of /gcl/pcl/pcl_init.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 330  T104:; Line 330  T104:;
330          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
331          vs_top=sup;          vs_top=sup;
332          V74= vs_base[0];          V74= vs_base[0];
333          {register object x= V74,V73= (V67);          V75 = (V67);
334            {register object x= V74,V73= V75;
335          while(V73!=Cnil)          while(V73!=Cnil)
336          if(x==(V73->c.c_car)){          if(x==(V73->c.c_car)){
337          goto T108;          goto T108;
# Line 339  T104:; Line 340  T104:;
340          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
341          (void) (*Lnk34)(Lclptr34);          (void) (*Lnk34)(Lclptr34);
342          vs_top=sup;          vs_top=sup;
343          V75= vs_base[0];          V76= vs_base[0];
344          if(!((V75)==(VV[9]))){          if(!((V76)==(VV[9]))){
345          goto T108;}          goto T108;}
346          {register object V76;          {register object V77;
347          base[7]= (V72);          base[7]= (V72);
348          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
349          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
350          vs_top=sup;          vs_top=sup;
351          V76= vs_base[0];          V77= vs_base[0];
352          V65= make_cons((V76),(V65));}          V65= make_cons((V77),(V65));}
353          goto T108;          goto T108;
354  T108:;  T108:;
355          V71= CMPcdr((V71));          V71= CMPcdr((V71));
# Line 356  T108:; Line 357  T108:;
357          goto T103;}          goto T103;}
358          goto T99;          goto T99;
359  T99:;  T99:;
360          V77= (*(LnkLI31))((V61));          V78= (*(LnkLI31))((V61));
361          V78= listA(4,VV[10],(V60),(V61),V62);          V79 = V62;
362          V79= list(2,/* INLINE-ARGS */V78,listA(4,VV[11],(V61),(V65),V62));          V80= listA(4,VV[10],(V60),(V61),V62);
363          (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V77,V62,/* INLINE-ARGS */V79)));          V81= list(2,/* INLINE-ARGS */V80,listA(4,VV[11],(V61),(V65),V62));
364            (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V78,V79,/* INLINE-ARGS */V81)));
365          base[5]=VV[11]->s.s_gfdef;          base[5]=VV[11]->s.s_gfdef;
366          base[6]= (V61);          base[6]= (V61);
367          base[7]= (V65);          base[7]= (V65);
368          {object V80;          {object V82;
369          V80= V62;          V82= V62;
370           vs_top=base+8;           vs_top=base+8;
371           while(V80!=Cnil)           while(V82!=Cnil)
372           {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}           {vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;}
373          vs_base=base+6;}          vs_base=base+6;}
374          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk11)(Lclptr11);
375          return;}          return;}
# Line 379  static void L7() Line 381  static void L7()
381  {register object *base=vs_base;  {register object *base=vs_base;
382          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
383          vs_check;          vs_check;
384          {object V81;          {object V83;
         object V82;  
         register object V83;  
385          object V84;          object V84;
386          object V85;          register object V85;
387          object V86;          object V86;
388          object V87;          object V87;
389            object V88;
390            object V89;
391          check_arg(7);          check_arg(7);
392          V81=(base[0]);          V83=(base[0]);
393          V82=(base[1]);          V84=(base[1]);
394          V83=(base[2]);          V85=(base[2]);
395          V84=(base[3]);          V86=(base[3]);
396          V85=(base[4]);          V87=(base[4]);
397          V86=(base[5]);          V88=(base[5]);
398          V87=(base[6]);          V89=(base[6]);
399          vs_top=sup;          vs_top=sup;
400          goto TTL;          goto TTL;
401  TTL:;  TTL:;
402          {register object V89;          {register object V91;
403          V89= V87;          V91= V89;
404          V90= (*(LnkLI31))((V83));          V92= (*(LnkLI31))((V85));
405          V91= listA(6,VV[12],(V83),(V84),(V85),(V86),(V89));          V93 = (V91);
406          V92= list(2,/* INLINE-ARGS */V91,listA(4,VV[11],(V83),(V84),(V89)));          V94= listA(6,VV[12],(V85),(V86),(V87),(V88),(V91));
407          (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V90,(V89),/* INLINE-ARGS */V92)));          V95= list(2,/* INLINE-ARGS */V94,listA(4,VV[11],(V85),(V86),(V91)));
408            (void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V92,V93,/* INLINE-ARGS */V95)));
409          base[7]=VV[11]->s.s_gfdef;          base[7]=VV[11]->s.s_gfdef;
410          base[8]= (V83);          base[8]= (V85);
411          base[9]= (V84);          base[9]= (V86);
412          {object V93;          {object V96;
413          V93= (V89);          V96= (V91);
414           vs_top=base+10;           vs_top=base+10;
415           while(V93!=Cnil)           while(V96!=Cnil)
416           {vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;}           {vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;}
417          vs_base=base+8;}          vs_base=base+8;}
418          (void) (*Lnk11)(Lclptr11);          (void) (*Lnk11)(Lclptr11);
419          return;}          return;}
# Line 422  static void L8() Line 425  static void L8()
425  {register object *base=vs_base;  {register object *base=vs_base;
426          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
427          vs_check;          vs_check;
428          {object V94;          {object V97;
         object V95;  
         register object V96;  
         register object V97;  
429          object V98;          object V98;
430            register object V99;
431            register object V100;
432            object V101;
433          check_arg(5);          check_arg(5);
434          V94=(base[0]);          V97=(base[0]);
435          V95=(base[1]);          V98=(base[1]);
436          V96=(base[2]);          V99=(base[2]);
437          V97=(base[3]);          V100=(base[3]);
438          V98=(base[4]);          V101=(base[4]);
439          vs_top=sup;          vs_top=sup;
440          goto TTL;          goto TTL;
441  TTL:;  TTL:;
442          if(!(((V97))==(Ct))){          if(!(((V100))==(Ct))){
443          goto T140;}          goto T140;}
444          {object V101;          {object V104;
445          {object V102;          {object V105;
446          V103= (*(LnkLI31))((V96));          V106= (*(LnkLI31))((V99));
447          V104= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V103,V98));          V107 = V101;
448          V102= STREF(object,/* INLINE-ARGS */V104,32);          V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V106,V107));
449          if(!(((V102))==(VV[1]))){          V105= STREF(object,/* INLINE-ARGS */V108,32);
450            if(!(((V105))==(VV[1]))){
451          goto T146;}          goto T146;}
452          V105= (*(LnkLI31))((V96));          V109= (*(LnkLI31))((V99));
453          V106= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V105,V98));          V110 = V101;
454          (void)((*(LnkLI26))(/* INLINE-ARGS */V106,VV[13]));          V111= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V109,V110));
455          V107= (*(LnkLI31))((V96));          (void)((*(LnkLI26))(/* INLINE-ARGS */V111,VV[13]));
456          V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V107,V98));          V112= (*(LnkLI31))((V99));
457          V101= STREF(object,/* INLINE-ARGS */V108,32);          V113 = V101;
458            V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V112,V113));
459            V104= STREF(object,/* INLINE-ARGS */V114,32);
460          goto T143;          goto T143;
461          goto T146;          goto T146;
462  T146:;  T146:;
463          V101= (V102);}          V104= (V105);}
464          goto T143;          goto T143;
465  T143:;  T143:;
466          if(!(type_of((V101))==t_cons)){          if(!(type_of((V104))==t_cons)){
467          goto T150;}          goto T150;}
468          if(!((CMPcar((V101)))==(VV[6]))){          if(!((CMPcar((V104)))==(VV[6]))){
469          goto T150;}          goto T150;}
470          base[5]= (*(LnkLI30))(CMPcadr((V101)),CMPcaddr((V101)),(V96),V98);          base[5]= (*(LnkLI30))(CMPcadr((V104)),CMPcaddr((V104)),(V99),V101);
471          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
472          return;          return;
473          goto T150;          goto T150;
474  T150:;  T150:;
475          base[5]= (V96);          base[5]= (V99);
476          base[6]= V98;          base[6]= V101;
477          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
478          {object _funobj = (V101);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V104);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
479                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
480                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
481                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
482          return;}          return;}
483          goto T140;          goto T140;
484  T140:;  T140:;
485          if(!(((V97))==(Cnil))){          if(!(((V100))==(Cnil))){
486          goto T156;}          goto T156;}
487          {object V109;          {object V115;
488          {object V110;          {object V116;
489          V111= (*(LnkLI31))((V96));          V117= (*(LnkLI31))((V99));
490          V112= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V111,V98));          V118 = V101;
491          V110= STREF(object,/* INLINE-ARGS */V112,36);          V119= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V118));
492          if(!(((V110))==(VV[1]))){          V116= STREF(object,/* INLINE-ARGS */V119,36);
493            if(!(((V116))==(VV[1]))){
494          goto T162;}          goto T162;}
495          V113= (*(LnkLI31))((V96));          V120= (*(LnkLI31))((V99));
496          V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V113,V98));          V121 = V101;
497          (void)((*(LnkLI26))(/* INLINE-ARGS */V114,VV[14]));          V122= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V120,V121));
498          V115= (*(LnkLI31))((V96));          (void)((*(LnkLI26))(/* INLINE-ARGS */V122,VV[14]));
499          V116= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V115,V98));          V123= (*(LnkLI31))((V99));
500          V109= STREF(object,/* INLINE-ARGS */V116,36);          V124 = V101;
501            V125= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V123,V124));
502            V115= STREF(object,/* INLINE-ARGS */V125,36);
503          goto T159;          goto T159;
504          goto T162;          goto T162;
505  T162:;  T162:;
506          V109= (V110);}          V115= (V116);}
507          goto T159;          goto T159;
508  T159:;  T159:;
509          if(!(type_of((V109))==t_cons)){          if(!(type_of((V115))==t_cons)){
510          goto T166;}          goto T166;}
511          if(!((CMPcar((V109)))==(VV[6]))){          if(!((CMPcar((V115)))==(VV[6]))){
512          goto T166;}          goto T166;}
513          base[5]= (*(LnkLI30))(CMPcadr((V109)),CMPcaddr((V109)),(V96),V98);          base[5]= (*(LnkLI30))(CMPcadr((V115)),CMPcaddr((V115)),(V99),V101);
514          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
515          return;          return;
516          goto T166;          goto T166;
517  T166:;  T166:;
518          base[5]= (V96);          base[5]= (V99);
519          base[6]= V98;          base[6]= V101;
520          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
521          {object _funobj = (V109);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V115);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
522                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
523                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
524                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
525          return;}          return;}
526          goto T156;          goto T156;
527  T156:;  T156:;
528          {object V117;          {object V126;
529          object V118;          object V127;
530          object V119;          object V128;
531          V117= (*(LnkLI31))((V96));          V126= (*(LnkLI31))((V99));
532          base[8]= (V117);          base[8]= (V126);
533          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
534          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk32)(Lclptr32);
535          vs_top=sup;          vs_top=sup;
536          V118= vs_base[0];{object V120;          V127= vs_base[0];{object V129;
537          if(type_of(V96)==t_structure){          if(type_of(V99)==t_structure){
538          goto T178;}          goto T178;}
539          V120= Cnil;          V129= Cnil;
540          goto T177;          goto T177;
541          goto T178;          goto T178;
542  T178:;  T178:;
543          V120= (((V96)->str.str_def)==(VV[15])?Ct:Cnil);          V129= (((V99)->str.str_def)==(VV[15])?Ct:Cnil);
544          goto T177;          goto T177;
545  T177:;  T177:;
546          if(V120==Cnil)goto T176;          if(V129==Cnil)goto T176;
547          V119= V120;          V128= V129;
548          goto T175;          goto T175;
549          goto T176;          goto T176;
550  T176:;}{object V122;  T176:;}{object V131;
551          V122= (VV[16]->s.s_dbind);          V131= (VV[16]->s.s_dbind);
552          base[8]= small_fixnum(14);          base[8]= small_fixnum(14);
553          base[9]= (V96);          base[9]= (V99);
554          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
555          (void) (*Lnk36)();          (void) (*Lnk36)();
556          vs_top=sup;          vs_top=sup;
557          V123= vs_base[0];          V132= vs_base[0];
558          V119= ((V122)==(CMPcar(V123))?Ct:Cnil);}          V128= ((V131)==(CMPcar(V132))?Ct:Cnil);}
559          goto T175;          goto T175;
560  T175:;  T175:;
561          {object V124;          {object V133;
562          register object V125;          register object V134;
563          V124= (V118);          V133= (V127);
564          V125= CMPcar((V124));          V134= CMPcar((V133));
565          goto T187;          goto T187;
566  T187:;  T187:;
567          if(!(((V124))==Cnil)){          if(!(((V133))==Cnil)){
568          goto T188;}          goto T188;}
569          goto T183;          goto T183;
570          goto T188;          goto T188;
571  T188:;  T188:;
572          {object V126;          {object V135;
573          object V127;          object V136;
574          base[9]= (V125);          base[9]= (V134);
575          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
576          (void) (*Lnk33)(Lclptr33);          (void) (*Lnk33)(Lclptr33);
577          vs_top=sup;          vs_top=sup;
578          V126= vs_base[0];          V135= vs_base[0];
579          base[9]= (V125);          base[9]= (V134);
580          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
581          (void) (*Lnk37)(Lclptr37);          (void) (*Lnk37)(Lclptr37);
582          vs_top=sup;          vs_top=sup;
583          V127= vs_base[0];          V136= vs_base[0];
584          {register object V128;          {register object V137;
585          register object V129;          register object V138;
586          register object V130;          register object V139;
587          V128= V98;          V137= V101;
588          V129= Cnil;          V138= Cnil;
589          V130= Cnil;          V139= Cnil;
590          goto T200;          goto T200;
591  T200:;  T200:;
592          if(((V128))!=Cnil){          if(((V137))!=Cnil){
593          goto T202;}          goto T202;}
594          goto T198;          goto T198;
595          goto T202;          goto T202;
596  T202:;  T202:;
597          {object V131;          {object V140;
598          V131= CMPcar((V128));          V140= CMPcar((V137));
599          V128= CMPcdr((V128));          V137= CMPcdr((V137));
600          V129= (V131);}          V138= (V140);}
601          if(((V128))!=Cnil){          if(((V137))!=Cnil){
602          goto T210;}          goto T210;}
603          base[9]= VV[17];          base[9]= VV[17];
604          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 597  T202:; Line 606  T202:;
606          vs_top=sup;          vs_top=sup;
607          goto T210;          goto T210;
608  T210:;  T210:;
609          {object V132;          {object V141;
610          V132= CMPcar((V128));          V141= CMPcar((V137));
611          V128= CMPcdr((V128));          V137= CMPcdr((V137));
612          V130= (V132);}          V139= (V141);}
613          {register object x= (V129),V133= (V127);          {register object x= (V138),V142= (V136);
614          while(V133!=Cnil)          while(V142!=Cnil)
615          if(x==(V133->c.c_car)){          if(x==(V142->c.c_car)){
616          goto T220;          goto T220;
617          }else V133=V133->c.c_cdr;          }else V142=V142->c.c_cdr;
618          goto T201;}          goto T201;}
619          goto T220;          goto T220;
620  T220:;  T220:;
621          base[9]= (V130);          base[9]= (V139);
622          base[10]= V117;          base[10]= V126;
623          base[11]= V96;          base[11]= V99;
624          base[12]= V125;          base[12]= V134;
625          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
626          (void) (*Lnk38)(Lclptr38);          (void) (*Lnk38)(Lclptr38);
627          vs_top=sup;          vs_top=sup;
# Line 622  T201:; Line 631  T201:;
631          goto T200;}          goto T200;}
632          goto T198;          goto T198;
633  T198:;  T198:;
634          if(((V97))==Cnil){          if(((V100))==Cnil){
635          goto T192;}          goto T192;}
636          if(((V97))==(Ct)){          if(((V100))==(Ct)){
637          goto T230;}          goto T230;}
638          {register object x= (V126),V137= (V97);          {register object x= (V135),V146= (V100);
639          while(V137!=Cnil)          while(V146!=Cnil)
640          if(x==(V137->c.c_car)){          if(x==(V146->c.c_car)){
641          goto T233;          goto T233;
642          }else V137=V137->c.c_cdr;          }else V146=V146->c.c_cdr;
643          goto T192;}          goto T192;}
644          goto T233;          goto T233;
645  T233:;  T233:;
646          goto T230;          goto T230;
647  T230:;  T230:;
648          if(((V119))!=Cnil){          if(((V128))!=Cnil){
649          goto T234;}          goto T234;}
650          if(((V97))==(Ct)){          if(((V100))==(Ct)){
651          goto T227;}          goto T227;}
652          goto T234;          goto T234;
653  T234:;  T234:;
654          base[9]= (V117);          base[9]= (V126);
655          base[10]= (V96);          base[10]= (V99);
656          base[11]= (V125);          base[11]= (V134);
657          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
658          (void) (*Lnk39)(Lclptr39);          (void) (*Lnk39)(Lclptr39);
659          vs_top=sup;          vs_top=sup;
# Line 652  T234:; Line 661  T234:;
661          goto T192;}          goto T192;}
662          goto T227;          goto T227;
663  T227:;  T227:;
664          {object V138;          {object V147;
665          base[9]= (V125);          base[9]= (V134);
666          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
667          (void) (*Lnk40)(Lclptr40);          (void) (*Lnk40)(Lclptr40);
668          vs_top=sup;          vs_top=sup;
669          V138= vs_base[0];          V147= vs_base[0];
670          if(((V138))==Cnil){          if(((V147))==Cnil){
671          goto T192;}          goto T192;}
672          vs_base=vs_top;          vs_base=vs_top;
673          {object _funobj = (V138);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V147);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
674                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
675                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
676                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
677          vs_top=sup;          vs_top=sup;
678          base[9]= vs_base[0];          base[9]= vs_base[0];
679          base[10]= V117;          base[10]= V126;
680          base[11]= V96;          base[11]= V99;
681          base[12]= V125;          base[12]= V134;
682          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
683          (void) (*Lnk38)(Lclptr38);          (void) (*Lnk38)(Lclptr38);
684          vs_top=sup;}}          vs_top=sup;}}
685          goto T192;          goto T192;
686  T192:;  T192:;
687          V124= CMPcdr((V124));          V133= CMPcdr((V133));
688          V125= CMPcar((V124));          V134= CMPcar((V133));
689          goto T187;}          goto T187;}
690          goto T183;          goto T183;
691  T183:;  T183:;
692          base[8]= (V96);          base[8]= (V99);
693          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
694          return;}          return;}
695          }          }
696  }  }
697  /*      local entry for function CHECK-INITARGS-1       */  /*      local entry for function CHECK-INITARGS-1       */
698    
699  static object LI9(object V144,object V143,object V142,object first,...)  static object LI9(object V153,object V152,object V151,object first,...)
700  {        {      
701          va_list ap;          va_list ap;
702          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
703          {object V145;          {object V154;
704          object V146;          object V155;
705          object V147;          object V156;
706          object V148;          object V157;
707          object V149;          object V158;
708          va_start(ap,first);          va_start(ap,first);
709          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
710          V145= V144;          V154= V153;
711          V146= V143;          V155= V152;
712          V147= V142;          V156= V151;
713          narg = narg - 3;          narg = narg - 3;
714          if (narg <= 0) goto T255;          if (narg <= 0) goto T255;
715          else {          else {
716          V148= first;}          V157= first;}
717          if (--narg <= 0) goto T256;          if (--narg <= 0) goto T256;
718          else {          else {
719          V149= va_arg(ap,object);}          V158= va_arg(ap,object);}
720          --narg; goto T257;          --narg; goto T257;
721          goto T255;          goto T255;
722  T255:;  T255:;
723          V148= Ct;          V157= Ct;
724          goto T256;          goto T256;
725  T256:;  T256:;
726          V149= Ct;          V158= Ct;
727          goto T257;          goto T257;
728  T257:;  T257:;
729          {object V150;          {object V159;
730          object V151;          object V160;
731          base[0]= (V145);          base[0]= (V154);
732          base[1]= (V147);          base[1]= (V156);
733          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
734          (void) (*Lnk41)();          (void) (*Lnk41)();
735          if(vs_base>=vs_top){vs_top=sup;goto T263;}          if(vs_base>=vs_top){vs_top=sup;goto T263;}
736          V150= vs_base[0];          V159= vs_base[0];
737          vs_base++;          vs_base++;
738          if(vs_base>=vs_top){vs_top=sup;goto T264;}          if(vs_base>=vs_top){vs_top=sup;goto T264;}
739          V151= vs_base[0];          V160= vs_base[0];
740          vs_top=sup;          vs_top=sup;
741          goto T265;          goto T265;
742          goto T263;          goto T263;
743  T263:;  T263:;
744          V150= Cnil;          V159= Cnil;
745          goto T264;          goto T264;
746  T264:;  T264:;
747          V151= Cnil;          V160= Cnil;
748          goto T265;          goto T265;
749  T265:;  T265:;
750          if(((V151))!=Cnil){          if(((V160))!=Cnil){
751          goto T267;}          goto T267;}
752          if(((V148))==Cnil){          if(((V157))==Cnil){
753          goto T270;}          goto T270;}
754          {object V152 = (VFUN_NARGS=4,(*(LnkLI42))((V146),(V145),(V150),(V149)));          {object V161 = (VFUN_NARGS=4,(*(LnkLI42))((V155),(V154),(V159),(V158)));
755          VMR9(V152)}          VMR9(V161)}
756          goto T270;          goto T270;
757  T270:;  T270:;
758          {object V153 = (VFUN_NARGS=4,(*(LnkLI43))((V146),(V145),(V150),(V149)));          {object V162 = (VFUN_NARGS=4,(*(LnkLI43))((V155),(V154),(V159),(V158)));
759          VMR9(V153)}          VMR9(V162)}
760          goto T267;          goto T267;
761  T267:;  T267:;
762          {object V154 = Cnil;          {object V163 = Cnil;
763          VMR9(V154)}}          VMR9(V163)}}
764          va_end(ap);          va_end(ap);
765          base[0]=base[0];          base[0]=base[0];
766          return Cnil;}          return Cnil;}
# Line 762  static void L10() Line 771  static void L10()
771  {register object *base=vs_base;  {register object *base=vs_base;
772          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
773          vs_check;          vs_check;
774          {object V155;          {object V164;
775          object V156;          object V165;
776          check_arg(2);          check_arg(2);
777          V155=(base[0]);          V164=(base[0]);
778          V156=(base[1]);          V165=(base[1]);
779          vs_top=sup;          vs_top=sup;
780          goto TTL;          goto TTL;
781  TTL:;  TTL:;
782          {object V157;          {object V166;
783          register object V158;          register object V167;
784          {object V159;          {object V168;
785          object V160= (V156);          object V169= (V165);
786          if(V160==Cnil){          if(V169==Cnil){
787          V157= Cnil;          V166= Cnil;
788          goto T272;}          goto T272;}
789          base[2]=V159=MMcons(Cnil,Cnil);          base[2]=V168=MMcons(Cnil,Cnil);
790          goto T273;          goto T273;
791  T273:;  T273:;
792          {register object V161;          {register object V170;
793          V161= (V160->c.c_car);          V170= (V169->c.c_car);
794          if(!(type_of((V161))==t_cons)){          if(!(type_of((V170))==t_cons)){
795          goto T276;}          goto T276;}
796          base[4]= (*(LnkLI44))(CMPcar((V161)));          base[4]= (*(LnkLI44))(CMPcar((V170)));
797          base[5]= CMPcdr((V161));          base[5]= CMPcdr((V170));
798          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
799          (void) (*Lnk45)(Lclptr45);          (void) (*Lnk45)(Lclptr45);
800          vs_top=sup;          vs_top=sup;
# Line 793  T273:; Line 802  T273:;
802          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
803          Lcopy_list();          Lcopy_list();
804          vs_top=sup;          vs_top=sup;
805          (V159->c.c_cdr)= vs_base[0];          (V168->c.c_cdr)= vs_base[0];
806          goto T274;          goto T274;
807          goto T276;          goto T276;
808  T276:;  T276:;
809          (V159->c.c_cdr)= make_cons((V161),Cnil);}          (V168->c.c_cdr)= make_cons((V170),Cnil);}
810          goto T274;          goto T274;
811  T274:;  T274:;
812          while(MMcdr(V159)!=Cnil)V159=MMcdr(V159);          while(MMcdr(V168)!=Cnil)V168=MMcdr(V168);
813          if((V160=MMcdr(V160))==Cnil){          if((V169=MMcdr(V169))==Cnil){
814          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
815          V157= base[2];          V166= base[2];
816          goto T272;}          goto T272;}
817          goto T273;}          goto T273;}
818          goto T272;          goto T272;
819  T272:;  T272:;
820          {object V162;          {object V171;
821          base[3]=VV[37]->s.s_gfdef;          base[3]=VV[37]->s.s_gfdef;
822          base[4]= (V155);          base[4]= (V164);
823          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
824          (void) (*Lnk32)(Lclptr32);          (void) (*Lnk32)(Lclptr32);
825          vs_top=sup;          vs_top=sup;
826          V165= vs_base[0];          V174= vs_base[0];
827          {object V163;          {object V172;
828          object V164= V165;          object V173= V174;
829          if(V164==Cnil){          if(V173==Cnil){
830          V162= Cnil;          V171= Cnil;
831          goto T282;}          goto T282;}
832          base[2]=V163=MMcons(Cnil,Cnil);          base[2]=V172=MMcons(Cnil,Cnil);
833          goto T283;          goto T283;
834  T283:;  T283:;
835          base[4]= (V164->c.c_car);          base[4]= (V173->c.c_car);
836          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
837          (void) (*Lnk37)(Lclptr37);          (void) (*Lnk37)(Lclptr37);
838          vs_top=sup;          vs_top=sup;
839          (V163->c.c_car)= vs_base[0];          (V172->c.c_car)= vs_base[0];
840          if((V164=MMcdr(V164))==Cnil){          if((V173=MMcdr(V173))==Cnil){
841          V162= base[2];          V171= base[2];
842          goto T282;}          goto T282;}
843          V163=MMcdr(V163)=MMcons(Cnil,Cnil);          V172=MMcdr(V172)=MMcons(Cnil,Cnil);
844          goto T283;}          goto T283;}
845          goto T282;          goto T282;
846  T282:;  T282:;
847           vs_top=base+2;           vs_top=base+2;
848           while(V162!=Cnil)           while(V171!=Cnil)
849           {vs_push((V162)->c.c_car);V162=(V162)->c.c_cdr;}           {vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;}
850          vs_base=base+2;}          vs_base=base+2;}
851          Lappend();          Lappend();
852          vs_top=sup;          vs_top=sup;
853          V158= vs_base[0];          V167= vs_base[0];
854          {register object V166;          {register object V175;
855          register object V167;          register object V176;
856          V166= (V157);          V175= (V166);
857          V167= CMPcar((V166));          V176= CMPcar((V175));
858          goto T292;          goto T292;
859  T292:;  T292:;
860          if(!(((V166))==Cnil)){          if(!(((V175))==Cnil)){
861          goto T293;}          goto T293;}
862          goto T288;          goto T288;
863          goto T293;          goto T293;
864  T293:;  T293:;
865          {register object V168;          {register object V177;
866          register object V169;          register object V178;
867          register object V170;          register object V179;
868          register object V171;          register object V180;
869          register object V172;          register object V181;
870          register object V173;          register object V182;
871          if(!(type_of((V167))==t_cons)){          if(!(type_of((V176))==t_cons)){
872          goto T301;}          goto T301;}
873          base[3]= (*(LnkLI46))((V167));          base[3]= (*(LnkLI46))((V176));
874          goto T299;          goto T299;
875          goto T301;          goto T301;
876  T301:;  T301:;
877          base[4]= (V167);          base[4]= (V176);
878          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
879          (void) (*Lnk47)(Lclptr47);          (void) (*Lnk47)(Lclptr47);
880          vs_top=sup;          vs_top=sup;
# Line 875  T299:; Line 884  T299:;
884          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
885          (void) (*Lnk48)();          (void) (*Lnk48)();
886          if(vs_base>=vs_top){vs_top=sup;goto T304;}          if(vs_base>=vs_top){vs_top=sup;goto T304;}
887          V168= vs_base[0];          V177= vs_base[0];
888          vs_base++;          vs_base++;
889          if(vs_base>=vs_top){vs_top=sup;goto T305;}          if(vs_base>=vs_top){vs_top=sup;goto T305;}
890          V169= vs_base[0];          V178= vs_base[0];
891          vs_base++;          vs_base++;
892          if(vs_base>=vs_top){vs_top=sup;goto T306;}          if(vs_base>=vs_top){vs_top=sup;goto T306;}
893          V170= vs_base[0];          V179= vs_base[0];
894          vs_base++;          vs_base++;
895          if(vs_base>=vs_top){vs_top=sup;goto T307;}          if(vs_base>=vs_top){vs_top=sup;goto T307;}
896          V171= vs_base[0];          V180= vs_base[0];
897          vs_base++;          vs_base++;
898          if(vs_base>=vs_top){vs_top=sup;goto T308;}          if(vs_base>=vs_top){vs_top=sup;goto T308;}
899          V172= vs_base[0];          V181= vs_base[0];
900          vs_base++;          vs_base++;
901          if(vs_base>=vs_top){vs_top=sup;goto T309;}          if(vs_base>=vs_top){vs_top=sup;goto T309;}
902          V173= vs_base[0];          V182= vs_base[0];
903          vs_top=sup;          vs_top=sup;
904          goto T310;          goto T310;
905          goto T304;          goto T304;
906  T304:;  T304:;
907          V168= Cnil;          V177= Cnil;
908          goto T305;          goto T305;
909  T305:;  T305:;
910          V169= Cnil;          V178= Cnil;
911          goto T306;          goto T306;
912  T306:;  T306:;
913          V170= Cnil;          V179= Cnil;
914          goto T307;          goto T307;
915  T307:;  T307:;
916          V171= Cnil;          V180= Cnil;
917          goto T308;          goto T308;
918  T308:;  T308:;
919          V172= Cnil;          V181= Cnil;
920          goto T309;          goto T309;
921  T309:;  T309:;
922          V173= Cnil;          V182= Cnil;
923          goto T310;          goto T310;
924  T310:;  T310:;
925          if(((V172))==Cnil){          if(((V181))==Cnil){
926          goto T311;}          goto T311;}
927          base[3]= Cnil;          base[3]= Cnil;
928          base[4]= Ct;          base[4]= Ct;
# Line 921  T310:; Line 930  T310:;
930          return;          return;
931          goto T311;          goto T311;
932  T311:;  T311:;
933          V158= append((V173),(V158));}          V167= append((V182),(V167));}
934          V166= CMPcdr((V166));          V175= CMPcdr((V175));
935          V167= CMPcar((V166));          V176= CMPcar((V175));
936          goto T292;}          goto T292;}
937          goto T288;          goto T288;
938  T288:;  T288:;
939          base[2]= (V158);          base[2]= (V167);
940          base[3]= Cnil;          base[3]= Cnil;
941          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
942          return;}          return;}
# Line 935  T288:; Line 944  T288:;
944  }  }
945  /*      local entry for function CHECK-INITARGS-2-PLIST */  /*      local entry for function CHECK-INITARGS-2-PLIST */
946    
947  static object LI11(object V176,object V175,object V174,object first,...)  static object LI11(object V185,object V184,object V183,object first,...)
948  {        {      
949          va_list ap;          va_list ap;
950          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
951          {object V177;          {object V186;
952          register object V178;          register object V187;
953          register object V179;          register object V188;
954          register object V180;          register object V189;
955          va_start(ap,first);          va_start(ap,first);
956          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
957          V177= V176;          V186= V185;
958          V178= V175;          V187= V184;
959          V179= V174;          V188= V183;
960          narg = narg - 3;          narg = narg - 3;
961          if (narg <= 0) goto T324;          if (narg <= 0) goto T324;
962          else {          else {
963          V180= first;}          V189= first;}
964          --narg; goto T325;          --narg; goto T325;
965          goto T324;          goto T324;
966  T324:;  T324:;
967          V180= Ct;          V189= Ct;
968          goto T325;          goto T325;
969  T325:;  T325:;
970          base[0]= (V177);          base[0]= (V186);
971          base[1]= VV[18];          base[1]= VV[18];
972          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
973          Lgetf();          Lgetf();
974          vs_top=sup;          vs_top=sup;
975          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
976          goto T327;}          goto T327;}
977          {register object V181;          {register object V190;
978          register object V182;          register object V191;
979          register object V183;          register object V192;
980          V181= (V177);          V190= (V186);
981          V182= Cnil;          V191= Cnil;
982          V183= Cnil;          V192= Cnil;
983          goto T333;          goto T333;
984  T333:;  T333:;
985          if(((V181))!=Cnil){          if(((V190))!=Cnil){
986          goto T335;}          goto T335;}
987          goto T327;          goto T327;
988          goto T335;          goto T335;
989  T335:;  T335:;
990          {register object V184;          {register object V193;
991          V184= CMPcar((V181));          V193= CMPcar((V190));
992          V181= CMPcdr((V181));          V190= CMPcdr((V190));
993          V182= (V184);}          V191= (V193);}
994          if(((V181))!=Cnil){          if(((V190))!=Cnil){
995          goto T343;}          goto T343;}
996          base[0]= VV[17];          base[0]= VV[17];
997          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 990  T335:; Line 999  T335:;
999          vs_top=sup;          vs_top=sup;
1000          goto T343;          goto T343;
1001  T343:;  T343:;
1002          {register object V185;          {register object V194;
1003          V185= CMPcar((V181));          V194= CMPcar((V190));
1004          V181= CMPcdr((V181));          V190= CMPcdr((V190));
1005          V183= (V185);}          V192= (V194);}
1006          {register object x= (V182),V186= (V179);          {register object x= (V191),V195= (V188);
1007          while(V186!=Cnil)          while(V195!=Cnil)
1008          if(x==(V186->c.c_car)){          if(x==(V195->c.c_car)){
1009          goto T334;          goto T334;
1010          }else V186=V186->c.c_cdr;}          }else V195=V195->c.c_cdr;}
1011          if(((V180))==Cnil){          if(((V189))==Cnil){
1012          goto T355;}          goto T355;}
1013          base[0]= VV[19];          base[0]= VV[19];
1014          base[1]= (V182);          base[1]= (V191);
1015          base[3]= (V178);          base[3]= (V187);
1016          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1017          (void) (*Lnk27)(Lclptr27);          (void) (*Lnk27)(Lclptr27);
1018          vs_top=sup;          vs_top=sup;
# Line 1014  T343:; Line 1023  T343:;
1023          goto T334;          goto T334;
1024          goto T355;          goto T355;
1025  T355:;  T355:;
1026          {object V187 = Cnil;          {object V196 = Cnil;
1027          VMR11(V187)}          VMR11(V196)}
1028          goto T334;          goto T334;
1029  T334:;  T334:;
1030          goto T333;}          goto T333;}
1031          goto T327;          goto T327;
1032  T327:;  T327:;
1033          {object V188 = Ct;          {object V197 = Ct;
1034          VMR11(V188)}          VMR11(V197)}
1035          va_end(ap);          va_end(ap);
1036          base[0]=base[0];          base[0]=base[0];
1037          return Cnil;}          return Cnil;}
1038          }          }
1039  /*      local entry for function CHECK-INITARGS-2-LIST  */  /*      local entry for function CHECK-INITARGS-2-LIST  */
1040    
1041  static object LI12(object V191,object V190,object V189,object first,...)  static object LI12(object V200,object V199,object V198,object first,...)
1042  {        {      
1043          va_list ap;          va_list ap;
1044          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
1045          {object V192;          {object V201;
1046          register object V193;          register object V202;
1047          register object V194;          register object V203;
1048          register object V195;          register object V204;
1049          va_start(ap,first);          va_start(ap,first);
1050          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1051          V192= V191;          V201= V200;
1052          V193= V190;          V202= V199;
1053          V194= V189;          V203= V198;
1054          narg = narg - 3;          narg = narg - 3;
1055          if (narg <= 0) goto T362;          if (narg <= 0) goto T362;
1056          else {          else {
1057          V195= first;}          V204= first;}
1058          --narg; goto T363;          --narg; goto T363;
1059          goto T362;          goto T362;
1060  T362:;  T362:;
1061          V195= Ct;          V204= Ct;
1062          goto T363;          goto T363;
1063  T363:;  T363:;
1064          {register object x= VV[18],V196= (V192);          {register object x= VV[18],V205= (V201);
1065          while(V196!=Cnil)          while(V205!=Cnil)
1066          if(x==(V196->c.c_car)){          if(x==(V205->c.c_car)){
1067          goto T365;          goto T365;
1068          }else V196=V196->c.c_cdr;}          }else V205=V205->c.c_cdr;}
1069          {register object V197;          {register object V206;
1070          register object V198;          register object V207;
1071          V197= (V192);          V206= (V201);
1072          V198= CMPcar((V197));          V207= CMPcar((V206));
1073          goto T371;          goto T371;
1074  T371:;  T371:;
1075          if(!(((V197))==Cnil)){          if(!(((V206))==Cnil)){
1076          goto T372;}          goto T372;}
1077          goto T365;          goto T365;
1078          goto T372;          goto T372;
1079  T372:;  T372:;
1080          {register object x= (V198),V199= (V194);          {register object x= (V207),V208= (V203);
1081          while(V199!=Cnil)          while(V208!=Cnil)
1082          if(x==(V199->c.c_car)){          if(x==(V208->c.c_car)){
1083          goto T376;          goto T376;
1084          }else V199=V199->c.c_cdr;}          }else V208=V208->c.c_cdr;}
1085          if(((V195))==Cnil){          if(((V204))==Cnil){
1086          goto T380;}          goto T380;}
1087          base[1]= VV[20];          base[1]= VV[20];
1088          base[2]= (V198);          base[2]= (V207);
1089          base[4]= (V193);          base[4]= (V202);
1090          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1091          (void) (*Lnk27)(Lclptr27);          (void) (*Lnk27)(Lclptr27);
1092          vs_top=sup;          vs_top=sup;
# Line 1088  T372:; Line 1097  T372:;
1097          goto T376;          goto T376;
1098          goto T380;          goto T380;
1099  T380:;  T380:;
1100          {object V200 = Cnil;          {object V209 = Cnil;
1101          VMR12(V200)}          VMR12(V209)}
1102          goto T376;          goto T376;
1103  T376:;  T376:;
1104          V197= CMPcdr((V197));          V206= CMPcdr((V206));
1105          V198= CMPcar((V197));          V207= CMPcar((V206));
1106          goto T371;}          goto T371;}
1107          goto T365;          goto T365;
1108  T365:;  T365:;
1109          {object V201 = Ct;          {object V210 = Ct;
1110          VMR12(V201)}          VMR12(V210)}
1111          va_end(ap);          va_end(ap);
1112          base[0]=base[0];          base[0]=base[0];
1113          return Cnil;}          return Cnil;}

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

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