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

Diff of /gcl/lsp/listlib.c

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

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Tue Oct 1 04:37:33 2002 UTC
# Line 53  T13:; Line 53  T13:;
53          vs_top=sup;          vs_top=sup;
54  goto T12;  goto T12;
55  T12:;  T12:;
56          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
57          base[1]= CMPcar((V9));          base[1]= CMPcar((V9));
58          base[2]= (V4);          base[2]= (V4);
59          {object V12;          {object V12;
# Line 62  T12:; Line 62  T12:;
62           while(V12!=Cnil)           while(V12!=Cnil)
63           {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}           {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}
64          vs_base=base+1;}          vs_base=base+1;}
65          (void) (*Lnk8)();          (void) (*Lnk11)();
66          vs_top=sup;          vs_top=sup;
67          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
68          goto T16;}          goto T16;}
# Line 135  T45:; Line 135  T45:;
135          vs_top=sup;          vs_top=sup;
136  goto T44;  goto T44;
137  T44:;  T44:;
138          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
139          base[1]= CMPcar((V22));          base[1]= CMPcar((V22));
140          base[2]= (V17);          base[2]= (V17);
141          {object V25;          {object V25;
# Line 144  T44:; Line 144  T44:;
144           while(V25!=Cnil)           while(V25!=Cnil)
145           {vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;}           {vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;}
146          vs_base=base+1;}          vs_base=base+1;}
147          (void) (*Lnk8)();          (void) (*Lnk11)();
148          vs_top=sup;          vs_top=sup;
149          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
150          goto T48;}          goto T48;}
# Line 207  T71:; Line 207  T71:;
207          vs_top=sup;          vs_top=sup;
208  goto T70;  goto T70;
209  T70:;  T70:;
210          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
211          base[1]= CMPcar((V33));          base[1]= CMPcar((V33));
212          base[2]= (V29);          base[2]= (V29);
213          {object V35;          {object V35;
# Line 216  T70:; Line 216  T70:;
216           while(V35!=Cnil)           while(V35!=Cnil)
217           {vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;}           {vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;}
218          vs_base=base+1;}          vs_base=base+1;}
219          (void) (*Lnk8)();          (void) (*Lnk11)();
220          vs_top=sup;          vs_top=sup;
221          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
222          goto T74;}          goto T74;}
# Line 277  T96:; Line 277  T96:;
277          vs_top=sup;          vs_top=sup;
278  goto T95;  goto T95;
279  T95:;  T95:;
280          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
281          base[1]= CMPcar((V44));          base[1]= CMPcar((V44));
282          base[2]= (V39);          base[2]= (V39);
283          {object V46;          {object V46;
# Line 286  T95:; Line 286  T95:;
286           while(V46!=Cnil)           while(V46!=Cnil)
287           {vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;}           {vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;}
288          vs_base=base+1;}          vs_base=base+1;}
289          (void) (*Lnk8)();          (void) (*Lnk11)();
290          vs_top=sup;          vs_top=sup;
291          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
292          goto T99;}          goto T99;}
# Line 349  T122:; Line 349  T122:;
349          vs_top=sup;          vs_top=sup;
350  goto T121;  goto T121;
351  T121:;  T121:;
352          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
353          base[1]= CMPcar((V54));          base[1]= CMPcar((V54));
354          base[2]= (V50);          base[2]= (V50);
355          {object V56;          {object V56;
# Line 358  T121:; Line 358  T121:;
358           while(V56!=Cnil)           while(V56!=Cnil)
359           {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}           {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}
360          vs_base=base+1;}          vs_base=base+1;}
361          (void) (*Lnk8)();          (void) (*Lnk11)();
362          vs_top=sup;          vs_top=sup;
363          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
364          goto T125;}          goto T125;}
# Line 371  T125:; Line 371  T125:;
371          base[0]=base[0];          base[0]=base[0];
372          return Cnil;}          return Cnil;}
373          }          }
374    /*      function definition for SET-DIFFERENCE-REV      */
375    
376    static void L6()
377    {register object *base=vs_base;
378            register object *sup=base+VM6; VC6
379            vs_check;
380            {object V57;
381            register object V58;
382            register object V59;
383            V57=(base[0]);
384            V58=(base[1]);
385            vs_base=vs_base+2;
386            vs_top[0]=Cnil;
387            {object *p=vs_top;
388             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
389            V59=(base[2]);
390            vs_top=sup;
391            {register object V60;
392            V60= Cnil;
393            {register object V61;
394            V61= (V57);
395    goto T137;
396    T137:;
397            if(((V61))!=Cnil){
398            goto T138;}
399            base[3]= (V60);
400            vs_top=(vs_base=base+3)+1;
401            return;
402    goto T138;
403    T138:;
404            if(!(type_of((V61))==t_cons)){
405            goto T143;}
406            goto T142;
407    goto T143;
408    T143:;
409            base[3]= VV[5];
410            vs_top=(vs_base=base+3)+1;
411            Lerror();
412            vs_top=sup;
413    goto T142;
414    T142:;
415            base[3]=VV[11]->s.s_gfdef;
416            base[4]= CMPcar((V61));
417            base[5]= (V58);
418            base[6]= VV[6];
419            base[7]= Ct;
420            {object V62;
421            V62= (V59);
422             vs_top=base+8;
423             while(V62!=Cnil)
424             {vs_push((V62)->c.c_car);V62=(V62)->c.c_cdr;}
425            vs_base=base+4;}
426            (void) (*Lnk11)();
427            vs_top=sup;
428            if((vs_base[0])!=Cnil){
429            goto T146;}
430            V60= make_cons(CMPcar((V61)),(V60));
431    goto T146;
432    T146:;
433            V61= CMPcdr((V61));
434            goto T137;}}
435            }
436    }
437  /*      local entry for function NSET-DIFFERENCE        */  /*      local entry for function NSET-DIFFERENCE        */
438    
439  static object LI6(V58,V57,va_alist)  static object LI7(V64,V63,va_alist)
440          object V58,V57;          object V64,V63;
441          va_dcl          va_dcl
442  {        {      
443          va_list ap;          va_list ap;
444          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
445          {object V59;          {object V65;
446          register object V60;          register object V66;
447          register object V61;          register object V67;
448          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
449          va_start(ap);          va_start(ap);
450          V59= V58;          V65= V64;
451          V60= V57;          V66= V63;
452          narg= narg - 2;          narg= narg - 2;
453          V62 = list_vector(narg,ap);          V68 = list_vector(narg,ap);
454          V61= V62;          V67= V68;
455          {register object V63;          {register object V69;
456          register object V64;          register object V70;
457          V63= Cnil;          V69= Cnil;
458          V64= Cnil;          V70= Cnil;
459          {register object V65;          {register object V71;
460          V65= (V59);          V71= (V65);
461  goto T138;  goto T161;
462  T138:;  T161:;
463          if(((V65))!=Cnil){          if(((V71))!=Cnil){
464          goto T139;}          goto T162;}
465          if(((V64))==Cnil){          if(((V70))==Cnil){
466          goto T142;}          goto T165;}
467          ((V64))->c.c_cdr = Cnil;          ((V70))->c.c_cdr = Cnil;
468  goto T142;  goto T165;
469  T142:;  T165:;
470          {object V66 = (V63);          {object V72 = (V69);
471          VMR6(V66)}          VMR7(V72)}
472  goto T139;  goto T162;
473  T139:;  T162:;
474          if(!(type_of((V65))==t_cons)){          if(!(type_of((V71))==t_cons)){
475          goto T147;}          goto T170;}
476          goto T146;          goto T169;
477  goto T147;  goto T170;
478  T147:;  T170:;
479          base[0]= VV[5];          base[0]= VV[7];
480          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
481          Lerror();          Lerror();
482          vs_top=sup;          vs_top=sup;
483  goto T146;  goto T169;
484  T146:;  T169:;
485          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
486          base[1]= CMPcar((V65));          base[1]= CMPcar((V71));
487          base[2]= (V60);          base[2]= (V66);
488          {object V67;          {object V73;
489          V67= (V61);          V73= (V67);
490           vs_top=base+3;           vs_top=base+3;
491           while(V67!=Cnil)           while(V73!=Cnil)
492           {vs_push((V67)->c.c_car);V67=(V67)->c.c_cdr;}           {vs_push((V73)->c.c_car);V73=(V73)->c.c_cdr;}
493          vs_base=base+1;}          vs_base=base+1;}
494          (void) (*Lnk8)();          (void) (*Lnk11)();
495          vs_top=sup;          vs_top=sup;
496          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
497          goto T150;}          goto T173;}
498          if(((V64))==Cnil){          if(((V70))==Cnil){
499          goto T158;}          goto T181;}
500          ((V64))->c.c_cdr = (V65);          ((V70))->c.c_cdr = (V71);
501          goto T156;          goto T179;
502  goto T158;  goto T181;
503  T158:;  T181:;
504          V63= (V65);          V69= (V71);
505  goto T156;  goto T179;
506  T156:;  T179:;
507          V64= (V65);          V70= (V71);
508  goto T150;  goto T173;
509  T150:;  T173:;
510          V65= CMPcdr((V65));          V71= CMPcdr((V71));
511          goto T138;}}          goto T161;}}
512          va_end(ap);          va_end(ap);
513          base[0]=base[0];          base[0]=base[0];
514          return Cnil;}          return Cnil;}
515          }          }
516    /*      function definition for NSET-DIFFERENCE-REV     */
517    
518    static void L8()
519    {register object *base=vs_base;
520            register object *sup=base+VM8; VC8
521            vs_check;
522            {object V74;
523            register object V75;
524            register object V76;
525            V74=(base[0]);
526            V75=(base[1]);
527            vs_base=vs_base+2;
528            vs_top[0]=Cnil;
529            {object *p=vs_top;
530             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
531            V76=(base[2]);
532            vs_top=sup;
533            {register object V77;
534            register object V78;
535            V77= Cnil;
536            V78= Cnil;
537            {register object V79;
538            V79= (V74);
539    goto T191;
540    T191:;
541            if(((V79))!=Cnil){
542            goto T192;}
543            if(((V78))==Cnil){
544            goto T195;}
545            ((V78))->c.c_cdr = Cnil;
546    goto T195;
547    T195:;
548            base[3]= (V77);
549            vs_top=(vs_base=base+3)+1;
550            return;
551    goto T192;
552    T192:;
553            if(!(type_of((V79))==t_cons)){
554            goto T200;}
555            goto T199;
556    goto T200;
557    T200:;
558            base[3]= VV[8];
559            vs_top=(vs_base=base+3)+1;
560            Lerror();
561            vs_top=sup;
562    goto T199;
563    T199:;
564            base[3]=VV[11]->s.s_gfdef;
565            base[4]= CMPcar((V79));
566            base[5]= (V75);
567            base[6]= VV[6];
568            base[7]= Ct;
569            {object V80;
570            V80= (V76);
571             vs_top=base+8;
572             while(V80!=Cnil)
573             {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}
574            vs_base=base+4;}
575            (void) (*Lnk11)();
576            vs_top=sup;
577            if((vs_base[0])!=Cnil){
578            goto T203;}
579            if(((V78))==Cnil){
580            goto T213;}
581            ((V78))->c.c_cdr = (V79);
582            goto T211;
583    goto T213;
584    T213:;
585            V77= (V79);
586    goto T211;
587    T211:;
588            V78= (V79);
589    goto T203;
590    T203:;
591            V79= CMPcdr((V79));
592            goto T191;}}
593            }
594    }
595  /*      local entry for function SET-EXCLUSIVE-OR       */  /*      local entry for function SET-EXCLUSIVE-OR       */
596    
597  static object LI7(V69,V68,va_alist)  static object LI9(V82,V81,va_alist)
598          object V69,V68;          object V82,V81;
599          va_dcl          va_dcl
600  {        {      
601          va_list ap;          va_list ap;
602          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
603          {object V70;          {object V83;
604          object V71;          object V84;
605          object V72;          object V85;
606          object V73;          object V86;
607          object V74;          object V87;
608          object V75;          object V88;
609          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
610          va_start(ap);          va_start(ap);
611          V70= V69;          V83= V82;
612          V71= V68;          V84= V81;
613          narg= narg - 2;          narg= narg - 2;
614          V76 = make_list(narg);          V89 = make_list(narg);
615          V72= V76;          V85= V89;
616          {          {
617          parse_key_rest(V76,narg,Vcs +3,(struct key *)&LI7key,ap);          parse_key_rest(V89,narg,Vcs +3,(struct key *)&LI9key,ap);
618          V73=(Vcs[3]);          V86=(Vcs[3]);
619          V74=(Vcs[4]);          V87=(Vcs[4]);
620          V75=(Vcs[5]);          V88=(Vcs[5]);
621          base[0]= (V70);          base[0]= (V83);
622          base[1]= (V71);          base[1]= (V84);
623          {object V78;          {object V91;
624          V78= (V72);          V91= (V85);
625           vs_top=base+2;           vs_top=base+2;
626           while(V78!=Cnil)           while(V91!=Cnil)
627           {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}           {vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;}
628          vs_base=base+0;}          vs_base=base+0;}
629          (void) (*Lnk12)();          (void) (*Lnk15)();
630          vs_top=sup;          vs_top=sup;
631          V77= vs_base[0];          V90= vs_base[0];
632          base[0]= (V71);          base[0]= (V84);
633          base[1]= (V70);          base[1]= (V83);
634          {object V80;          {object V93;
635          V80= (V72);          V93= (V85);
636           vs_top=base+2;           vs_top=base+2;
637           while(V80!=Cnil)           while(V93!=Cnil)
638           {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}           {vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;}
639          vs_base=base+0;}          vs_base=base+0;}
640          (void) (*Lnk12)();          (void) (*Lnk16)();
641          vs_top=sup;          vs_top=sup;
642          V79= vs_base[0];          V92= vs_base[0];
643          {object V81 = nconc(V77,V79);          {object V94 = nconc(V90,V92);
644          VMR7(V81)}          VMR9(V94)}
645          va_end(ap);          va_end(ap);
646          base[0]=base[0];          base[0]=base[0];
647          return Cnil;}          return Cnil;}
648          }}          }}
649  /*      local entry for function NSET-EXCLUSIVE-OR      */  /*      local entry for function NSET-EXCLUSIVE-OR      */
650    
651  static object LI8(V83,V82,va_alist)  static object LI10(V96,V95,va_alist)
652          object V83,V82;          object V96,V95;
653          va_dcl          va_dcl
654  {        {      
655          va_list ap;          va_list ap;
656          int narg = VFUN_NARGS; VMB8 VMS8 VMV8          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
657          {object V84;          {object V97;
658          register object V85;          register object V98;
659          register object V86;          register object V99;
660          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
661          va_start(ap);          va_start(ap);
662          V84= V83;          V97= V96;
663          V85= V82;          V98= V95;
664          narg= narg - 2;          narg= narg - 2;
665          V87 = list_vector(narg,ap);          V100 = list_vector(narg,ap);
666          V86= V87;          V99= V100;
667          {object V88;          {object V101;
668          register object V89;          register object V102;
669          register object V90;          register object V103;
670          register object V91;          register object V104;
671          V88= Cnil;          V101= Cnil;
672          V89= Cnil;          V102= Cnil;
673          V90= Cnil;          V103= Cnil;
674          V91= Cnil;          V104= Cnil;
675          {register object V92;          {register object V105;
676          V92= (V84);          V105= (V97);
677  goto T178;  goto T233;
678  T178:;  T233:;
679          if(((V92))!=Cnil){          if(((V105))!=Cnil){
680          goto T179;}          goto T234;}
681          if(((V91))==Cnil){          if(((V104))==Cnil){
682          goto T182;}          goto T237;}
683          ((V91))->c.c_cdr = Cnil;          ((V104))->c.c_cdr = Cnil;
684  goto T182;  goto T237;
685  T182:;  T237:;
686          if(((V89))==Cnil){          if(((V102))==Cnil){
687          goto T186;}          goto T241;}
688          base[0]= (V85);          base[0]= (V98);
689          base[1]= (V90);          base[1]= (V103);
690          {object V94;          {object V107;
691          V94= (V86);          V107= (V99);
692           vs_top=base+2;           vs_top=base+2;
693           while(V94!=Cnil)           while(V107!=Cnil)
694           {vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;}           {vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;}
695          vs_base=base+0;}          vs_base=base+0;}
696          (void) (*Lnk13)();          (void) (*Lnk17)();
697          vs_top=sup;          vs_top=sup;
698          V93= vs_base[0];          V106= vs_base[0];
699          ((V89))->c.c_cdr = V93;          ((V102))->c.c_cdr = V106;
700          {object V95 = (V88);          {object V108 = (V101);
701          VMR8(V95)}          VMR10(V108)}
702  goto T186;  goto T241;
703  T186:;  T241:;
704          base[0]= (V85);          base[0]= (V98);
705          base[1]= (V90);          base[1]= (V103);
706          {object V96;          {object V109;
707          V96= (V86);          V109= (V99);
708           vs_top=base+2;           vs_top=base+2;
709           while(V96!=Cnil)           while(V109!=Cnil)
710           {vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;}           {vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;}
711          vs_base=base+0;}          vs_base=base+0;}
712          (void) (*Lnk13)();          (void) (*Lnk17)();
713          vs_top=sup;          vs_top=sup;
714          {object V97 = vs_base[0];          {object V110 = vs_base[0];
715          VMR8(V97)}          VMR10(V110)}
716  goto T179;  goto T234;
717  T179:;  T234:;
718          if(!(type_of((V92))==t_cons)){          if(!(type_of((V105))==t_cons)){
719          goto T198;}          goto T253;}
720          goto T197;          goto T252;
721  goto T198;  goto T253;
722  T198:;  T253:;
723          base[0]= VV[6];          base[0]= VV[9];
724          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
725          Lerror();          Lerror();
726          vs_top=sup;          vs_top=sup;
727  goto T197;  goto T252;
728  T197:;  T252:;
729          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
730          base[1]= CMPcar((V92));          base[1]= CMPcar((V105));
731          base[2]= (V85);          base[2]= (V98);
732          {object V98;          {object V111;
733          V98= (V86);          V111= (V99);
734           vs_top=base+3;           vs_top=base+3;
735           while(V98!=Cnil)           while(V111!=Cnil)
736           {vs_push((V98)->c.c_car);V98=(V98)->c.c_cdr;}           {vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;}
737          vs_base=base+1;}          vs_base=base+1;}
738          (void) (*Lnk8)();          (void) (*Lnk11)();
739          vs_top=sup;          vs_top=sup;
740          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
741          goto T203;}          goto T258;}
742          if(((V91))==Cnil){          if(((V104))==Cnil){
743          goto T210;}          goto T265;}
744          ((V91))->c.c_cdr = (V92);          ((V104))->c.c_cdr = (V105);
745          goto T208;          goto T263;
746  goto T210;  goto T265;
747  T210:;  T265:;
748          V90= (V92);          V103= (V105);
749  goto T208;  goto T263;
750  T208:;  T263:;
751          V91= (V92);          V104= (V105);
752          goto T201;          goto T256;
753  goto T203;  goto T258;
754  T203:;  T258:;
755          if(((V89))==Cnil){          if(((V102))==Cnil){
756          goto T216;}          goto T271;}
757          ((V89))->c.c_cdr = (V92);          ((V102))->c.c_cdr = (V105);
758          goto T214;          goto T269;
759  goto T216;  goto T271;
760  T216:;  T271:;
761          V88= (V92);          V101= (V105);
762  goto T214;  goto T269;
763  T214:;  T269:;
764          V89= (V92);          V102= (V105);
765  goto T201;  goto T256;
766  T201:;  T256:;
767          V92= CMPcdr((V92));          V105= CMPcdr((V105));
768          goto T178;}}          goto T233;}}
769          va_end(ap);          va_end(ap);
770          base[0]=base[0];          base[0]=base[0];
771          return Cnil;}          return Cnil;}
772          }          }
773  /*      local entry for function SUBSETP        */  /*      local entry for function SUBSETP        */
774    
775  static object LI9(V100,V99,va_alist)  static object LI11(V113,V112,va_alist)
776          object V100,V99;          object V113,V112;
777          va_dcl          va_dcl
778  {        {      
779          va_list ap;          va_list ap;
780          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
781          {object V101;          {object V114;
782          register object V102;          register object V115;
783          register object V103;          register object V116;
784          object V104;          object V117;
785          object V105;          object V118;
786          object V106;          object V119;
787          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
788          va_start(ap);          va_start(ap);
789          V101= V100;          V114= V113;
790          V102= V99;          V115= V112;
791          narg= narg - 2;          narg= narg - 2;
792          V107 = make_list(narg);          V120 = make_list(narg);
793          V103= V107;          V116= V120;
794          {          {
795          parse_key_rest(V107,narg,Vcs +3,(struct key *)&LI9key,ap);          parse_key_rest(V120,narg,Vcs +3,(struct key *)&LI11key,ap);
796          V104=(Vcs[3]);          V117=(Vcs[3]);
797          V105=(Vcs[4]);          V118=(Vcs[4]);
798          V106=(Vcs[5]);          V119=(Vcs[5]);
799          {register object V108;          {register object V121;
800          V108= (V101);          V121= (V114);
801  goto T224;  goto T279;
802  T224:;  T279:;
803          if(((V108))!=Cnil){          if(((V121))!=Cnil){
804          goto T225;}          goto T280;}
805          {object V109 = Ct;          {object V122 = Ct;
806          VMR9(V109)}          VMR11(V122)}
807  goto T225;  goto T280;
808  T225:;  T280:;
809          if(!(type_of((V108))==t_cons)){          if(!(type_of((V121))==t_cons)){
810          goto T230;}          goto T285;}
811          goto T229;          goto T284;
812  goto T230;  goto T285;
813  T230:;  T285:;
814          base[0]= VV[7];          base[0]= VV[10];
815          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
816          Lerror();          Lerror();
817          vs_top=sup;          vs_top=sup;
818  goto T229;  goto T284;
819  T229:;  T284:;
820          base[0]=VV[8]->s.s_gfdef;          base[0]=VV[11]->s.s_gfdef;
821          base[1]= CMPcar((V108));          base[1]= CMPcar((V121));
822          base[2]= (V102);          base[2]= (V115);
823          {object V110;          {object V123;
824          V110= (V103);          V123= (V116);
825           vs_top=base+3;           vs_top=base+3;
826           while(V110!=Cnil)           while(V123!=Cnil)
827           {vs_push((V110)->c.c_car);V110=(V110)->c.c_cdr;}           {vs_push((V123)->c.c_car);V123=(V123)->c.c_cdr;}
828          vs_base=base+1;}          vs_base=base+1;}
829          (void) (*Lnk8)();          (void) (*Lnk11)();
830          vs_top=sup;          vs_top=sup;
831          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
832          goto T233;}          goto T288;}
833          {object V111 = Cnil;          {object V124 = Cnil;
834          VMR9(V111)}          VMR11(V124)}
835  goto T233;  goto T288;
836  T233:;  T288:;
837          V108= CMPcdr((V108));          V121= CMPcdr((V121));
838          goto T224;}          goto T279;}
839          va_end(ap);          va_end(ap);
840          base[0]=base[0];          base[0]=base[0];
841          return Cnil;}          return Cnil;}
842          }}          }}
843  static void LnkT13(){ call_or_link(VV[13],(void **)&Lnk13);} /* NSET-DIFFERENCE */  static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* NSET-DIFFERENCE-REV */
844  static void LnkT12(){ call_or_link(VV[12],(void **)&Lnk12);} /* SET-DIFFERENCE */  static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SET-DIFFERENCE-REV */
845  static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* MEMBER1 */  static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* SET-DIFFERENCE */
846    static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* MEMBER1 */
847    
848  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
849  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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