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

Diff of /gcl/lsp/seq.c

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

revision 1.10 by camm, Tue Oct 1 04:37:33 2002 UTC revision 1.11 by camm, Thu Oct 3 05:32:38 2002 UTC
# Line 152  T33:; Line 152  T33:;
152          vs_top=sup;          vs_top=sup;
153  goto T61;  goto T61;
154  T61:;  T61:;
155          if(!(type_of(car(caddr((V3))))==t_fixnum)){          {object V13;
156          goto T70;}          V13= caddr((V3));
157          if(equal(car(caddr((V3))),(V4))){          if(!(type_of((V13))==t_cons||((V13))==Cnil)){
158            goto T72;}
159            V13= car((V13));
160    goto T72;
161    T72:;
162            if(type_of((V13))==t_fixnum){
163            goto T76;}
164            V13= (V4);
165    goto T76;
166    T76:;
167            if(equal((V13),(V4))){
168          goto T70;}          goto T70;}
169          base[0]= VV[12];          base[0]= VV[12];
170          base[1]= VV[19];          base[1]= VV[19];
# Line 169  T61:; Line 179  T61:;
179          base[3]= vs_base[0];          base[3]= vs_base[0];
180          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
181          (void) (*Lnk23)();          (void) (*Lnk23)();
182          vs_top=sup;          vs_top=sup;}
183  goto T70;  goto T70;
184  T70:;{object V13;  T70:;{object V14;
185          V13= cadr((V3));          V14= cadr((V3));
186          if(V13==Cnil)goto T83;          if(V14==Cnil)goto T90;
187          V7= V13;          V7= V14;
188          goto T5;          goto T5;
189  goto T83;  goto T90;
190  T83:;}  T90:;}
191          V7= Ct;          V7= Ct;
192  goto T5;  goto T5;
193  T5:;  T5:;
# Line 194  T5:; Line 204  T5:;
204          vs_top=sup;          vs_top=sup;
205          V8= vs_base[0];          V8= vs_base[0];
206          if(((V6))==Cnil){          if(((V6))==Cnil){
         goto T96;}  
         {register long V14;  
         register long V15;  
         V14= 0;  
         V15= fix((V4));  
 goto T102;  
 T102:;  
         if(!((V14)>=(V15))){  
207          goto T103;}          goto T103;}
208          goto T96;          {register long V15;
209            register long V16;
210            V15= 0;
211            V16= fix((V4));
212    goto T109;
213    T109:;
214            if(!((V15)>=(V16))){
215            goto T110;}
216            goto T103;
217    goto T110;
218    T110:;
219            (void)(elt_set((V8),V15,(V5)));
220            V15= (long)(V15)+1;
221            goto T109;}
222  goto T103;  goto T103;
223  T103:;  T103:;
224          (void)(elt_set((V8),V14,(V5)));          {object V17 = (V8);
225          V14= (long)(V14)+1;          VMR1(V17)}}
         goto T102;}  
 goto T96;  
 T96:;  
         {object V16 = (V8);  
         VMR1(V16)}}  
226          va_end(ap);          va_end(ap);
227          base[0]=base[0];          base[0]=base[0];
228          return Cnil;}          return Cnil;}
229          }}          }}
230  /*      local entry for function CONCATENATE    */  /*      local entry for function CONCATENATE    */
231    
232  static object LI2(V17,va_alist)  static object LI2(V18,va_alist)
233          object V17;          object V18;
234          va_dcl          va_dcl
235  {        {      
236          va_list ap;          va_list ap;
237          int narg = VFUN_NARGS; VMB2 VMS2 VMV2          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
238          {object V18;          {object V19;
239          object V19;          object V20;
240          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
241          va_start(ap);          va_start(ap);
242          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
243          V18= V17;          V19= V18;
244          narg= narg - 1;          narg= narg - 1;
245          V20 = list_vector(narg,ap);          V21 = list_vector(narg,ap);
246          V19= V20;          V20= V21;
247          {register object V21;          {register object V22;
248          register object V22;          register object V23;
249          register long V23;          register long V24;
         {object V25;  
250          {object V26;          {object V26;
251          object V27= (V19);          {object V27;
252          if(endp(V27)){          object V28= (V20);
253          V25= Cnil;          if(endp(V28)){
254          goto T113;}          V26= Cnil;
255          base[0]=V26=MMcons(Cnil,Cnil);          goto T120;}
256  goto T114;          base[0]=V27=MMcons(Cnil,Cnil);
257  T114:;  goto T121;
258          base[1]= (V27->c.c_car);  T121:;
259            base[1]= (V28->c.c_car);
260          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
261          Llength();          Llength();
262          vs_top=sup;          vs_top=sup;
263          (V26->c.c_car)= vs_base[0];          (V27->c.c_car)= vs_base[0];
264          V27=MMcdr(V27);          V28=MMcdr(V28);
265          if(endp(V27)){          if(endp(V28)){
266          V25= base[0];          V26= base[0];
267          goto T113;}          goto T120;}
268          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V27=MMcdr(V27)=MMcons(Cnil,Cnil);
269          goto T114;}          goto T121;}
270  goto T113;  goto T120;
271  T113:;  T120:;
272           vs_top=base+0;           vs_top=base+0;
273           while(!endp(V25))           while(!endp(V26))
274           {vs_push(car(V25));V25=cdr(V25);}           {vs_push(car(V26));V26=cdr(V26);}
275          vs_base=base+0;}          vs_base=base+0;}
276          Lplus();          Lplus();
277          vs_top=sup;          vs_top=sup;
278          V24= vs_base[0];          V25= vs_base[0];
279          V21= (VFUN_NARGS=2,(*(LnkLI25))((V18),V24));          V22= (VFUN_NARGS=2,(*(LnkLI25))((V19),V25));
280          V23= 0;          V24= 0;
281          V22= (V19);          V23= (V20);
282  goto T119;  goto T126;
283  T119:;  T126:;
284          if(((V22))!=Cnil){          if(((V23))!=Cnil){
285          goto T120;}          goto T127;}
286          {object V28 = (V21);          {object V29 = (V22);
287          VMR2(V28)}          VMR2(V29)}
288  goto T120;  goto T127;
289  T120:;  T127:;
290          {register long V29;          {register long V30;
291          register long V30;          register long V31;
292          V29= 0;          V30= 0;
293          V30= (long)length(car((V22)));          V31= (long)length(car((V23)));
294  goto T128;  goto T135;
295  T128:;  T135:;
296          if(!((V29)>=(V30))){          if(!((V30)>=(V31))){
297          goto T129;}          goto T136;}
298          goto T124;          goto T131;
299  goto T129;  goto T136;
300  T129:;  T136:;
301          V31= elt(car((V22)),V29);          V32= elt(car((V23)),V30);
302          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));          (void)(elt_set((V22),V24,/* INLINE-ARGS */V32));
303          V23= (long)(V23)+(1);          V24= (long)(V24)+(1);
304          V29= (long)(V29)+1;          V30= (long)(V30)+1;
305          goto T128;}          goto T135;}
306  goto T124;  goto T131;
307  T124:;  T131:;
308          V22= cdr((V22));          V23= cdr((V23));
309          goto T119;}          goto T126;}
310          va_end(ap);          va_end(ap);
311          base[0]=base[0];          base[0]=base[0];
312          return Cnil;}          return Cnil;}
313          }          }
314  /*      local entry for function MAP    */  /*      local entry for function MAP    */
315    
316  static object LI3(V34,V33,V32,va_alist)  static object LI3(V35,V34,V33,va_alist)
317          object V34,V33,V32;          object V35,V34,V33;
318          va_dcl          va_dcl
319  {        {      
320          va_list ap;          va_list ap;
321          int narg = VFUN_NARGS; VMB3 VMS3 VMV3          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
322          {object V35;          {object V36;
323          register object V36;          register object V37;
324          object V37;          object V38;
325          register object V38;          register object V39;
326          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
327          va_start(ap);          va_start(ap);
328          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
329          V35= V34;          V36= V35;
330          V36= V33;          V37= V34;
331          V37= V32;          V38= V33;
332          narg= narg - 3;          narg= narg - 3;
333          V39 = list_vector(narg,ap);          V40 = list_vector(narg,ap);
334          V38= V39;          V39= V40;
335          V38= make_cons((V37),(V38));          V39= make_cons((V38),(V39));
         {object V40;  
336          {object V41;          {object V41;
337          {object V42;          {object V42;
338          object V43= (V38);          {object V43;
339          if(endp(V43)){          object V44= (V39);
340          V41= Cnil;          if(endp(V44)){
341          goto T145;}          V42= Cnil;
342          base[0]=V42=MMcons(Cnil,Cnil);          goto T152;}
343  goto T146;          base[0]=V43=MMcons(Cnil,Cnil);
344  T146:;  goto T153;
345          base[1]= (V43->c.c_car);  T153:;
346            base[1]= (V44->c.c_car);
347          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
348          Llength();          Llength();
349          vs_top=sup;          vs_top=sup;
350          (V42->c.c_car)= vs_base[0];          (V43->c.c_car)= vs_base[0];
351          V43=MMcdr(V43);          V44=MMcdr(V44);
352          if(endp(V43)){          if(endp(V44)){
353          V41= base[0];          V42= base[0];
354          goto T145;}          goto T152;}
355          V42=MMcdr(V42)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
356          goto T146;}          goto T153;}
357  goto T145;  goto T152;
358  T145:;  T152:;
359           vs_top=base+0;           vs_top=base+0;
360           while(!endp(V41))           while(!endp(V42))
361           {vs_push(car(V41));V41=cdr(V41);}           {vs_push(car(V42));V42=cdr(V42);}
362          vs_base=base+0;}          vs_base=base+0;}
363          Lmin();          Lmin();
364          vs_top=sup;          vs_top=sup;
365          V40= vs_base[0];          V41= vs_base[0];
366          if(((V35))!=Cnil){          if(((V36))!=Cnil){
367          goto T150;}          goto T157;}
368          {register long V44;          {register long V45;
369          long V45;          long V46;
370          V44= 0;          V45= 0;
371          V45= fix((V40));          V46= fix((V41));
 goto T155;  
 T155:;  
         if(!((V44)>=(V45))){  
         goto T156;}  
         {object V46 = Cnil;  
         VMR3(V46)}  
 goto T156;  
 T156:;  
         base[0]= (V36);  
         {object V47;  
         {object V48;  
         object V49= (V38);  
         if(endp(V49)){  
         V47= Cnil;  
         goto T162;}  
         base[1]=V48=MMcons(Cnil,Cnil);  
 goto T163;  
 T163:;  
         {register object V50;  
         V50= (V49->c.c_car);  
         (V48->c.c_car)= elt((V50),V44);}  
         V49=MMcdr(V49);  
         if(endp(V49)){  
         V47= base[1];  
         goto T162;}  
         V48=MMcdr(V48)=MMcons(Cnil,Cnil);  
         goto T163;}  
372  goto T162;  goto T162;
373  T162:;  T162:;
374            if(!((V45)>=(V46))){
375            goto T163;}
376            {object V47 = Cnil;
377            VMR3(V47)}
378    goto T163;
379    T163:;
380            base[0]= (V37);
381            {object V48;
382            {object V49;
383            object V50= (V39);
384            if(endp(V50)){
385            V48= Cnil;
386            goto T169;}
387            base[1]=V49=MMcons(Cnil,Cnil);
388    goto T170;
389    T170:;
390            {register object V51;
391            V51= (V50->c.c_car);
392            (V49->c.c_car)= elt((V51),V45);}
393            V50=MMcdr(V50);
394            if(endp(V50)){
395            V48= base[1];
396            goto T169;}
397            V49=MMcdr(V49)=MMcons(Cnil,Cnil);
398            goto T170;}
399    goto T169;
400    T169:;
401           vs_top=base+1;           vs_top=base+1;
402           while(!endp(V47))           while(!endp(V48))
403           {vs_push(car(V47));V47=cdr(V47);}           {vs_push(car(V48));V48=cdr(V48);}
404          vs_base=base+1;}          vs_base=base+1;}
405          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
406          vs_top=sup;          vs_top=sup;
407          V44= (long)(V44)+1;          V45= (long)(V45)+1;
408          goto T155;}          goto T162;}
409  goto T150;  goto T157;
410  T150:;  T157:;
411          {register object V51;          {register object V52;
412          V51= (VFUN_NARGS=2,(*(LnkLI25))((V35),(V40)));          V52= (VFUN_NARGS=2,(*(LnkLI25))((V36),(V41)));
413          {register long V52;          {register long V53;
414          long V53;          long V54;
415          V52= 0;          V53= 0;
416          V53= fix((V40));          V54= fix((V41));
417  goto T172;  goto T179;
418  T172:;  T179:;
419          if(!((V52)>=(V53))){          if(!((V53)>=(V54))){
         goto T173;}  
         {object V54 = (V51);  
         VMR3(V54)}  
 goto T173;  
 T173:;  
         base[0]= (V36);  
         {object V56;  
         {object V57;  
         object V58= (V38);  
         if(endp(V58)){  
         V56= Cnil;  
         goto T180;}  
         base[1]=V57=MMcons(Cnil,Cnil);  
 goto T181;  
 T181:;  
         {register object V59;  
         V59= (V58->c.c_car);  
         (V57->c.c_car)= elt((V59),V52);}  
         V58=MMcdr(V58);  
         if(endp(V58)){  
         V56= base[1];  
420          goto T180;}          goto T180;}
421          V57=MMcdr(V57)=MMcons(Cnil,Cnil);          {object V55 = (V52);
422          goto T181;}          VMR3(V55)}
423  goto T180;  goto T180;
424  T180:;  T180:;
425            base[0]= (V37);
426            {object V57;
427            {object V58;
428            object V59= (V39);
429            if(endp(V59)){
430            V57= Cnil;
431            goto T187;}
432            base[1]=V58=MMcons(Cnil,Cnil);
433    goto T188;
434    T188:;
435            {register object V60;
436            V60= (V59->c.c_car);
437            (V58->c.c_car)= elt((V60),V53);}
438            V59=MMcdr(V59);
439            if(endp(V59)){
440            V57= base[1];
441            goto T187;}
442            V58=MMcdr(V58)=MMcons(Cnil,Cnil);
443            goto T188;}
444    goto T187;
445    T187:;
446           vs_top=base+1;           vs_top=base+1;
447           while(!endp(V56))           while(!endp(V57))
448           {vs_push(car(V56));V56=cdr(V56);}           {vs_push(car(V57));V57=cdr(V57);}
449          vs_base=base+1;}          vs_base=base+1;}
450          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
451          vs_top=sup;          vs_top=sup;
452          V55= vs_base[0];          V56= vs_base[0];
453          (void)(elt_set((V51),V52,V55));          (void)(elt_set((V52),V53,V56));
454          V52= (long)(V52)+1;          V53= (long)(V53)+1;
455          goto T172;}}}          goto T179;}}}
456          va_end(ap);          va_end(ap);
457          base[0]=base[0];          base[0]=base[0];
458          return Cnil;}          return Cnil;}
459          }          }
460  /*      local entry for function SOME   */  /*      local entry for function SOME   */
461    
462  static object LI4(V61,V60,va_alist)  static object LI4(V62,V61,va_alist)
463          object V61,V60;          object V62,V61;
464          va_dcl          va_dcl
465  {        {      
466          va_list ap;          va_list ap;
467          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
468          {register object V62;          {register object V63;
469          object V63;          object V64;
470          register object V64;          register object V65;
471          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
472          va_start(ap);          va_start(ap);
473          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
474          V62= V61;          V63= V62;
475          V63= V60;          V64= V61;
476          narg= narg - 2;          narg= narg - 2;
477          V65 = list_vector(narg,ap);          V66 = list_vector(narg,ap);
478          V64= V65;          V65= V66;
479          V64= make_cons((V63),(V64));          V65= make_cons((V64),(V65));
480          {register long V66;          {register long V67;
481          register long V67;          register long V68;
482          V66= 0;          V67= 0;
         {object V68;  
483          {object V69;          {object V69;
484          object V70= (V64);          {object V70;
485          if(endp(V70)){          object V71= (V65);
486          V68= Cnil;          if(endp(V71)){
487          goto T190;}          V69= Cnil;
488          base[0]=V69=MMcons(Cnil,Cnil);          goto T197;}
489  goto T191;          base[0]=V70=MMcons(Cnil,Cnil);
490  T191:;  goto T198;
491          base[1]= (V70->c.c_car);  T198:;
492            base[1]= (V71->c.c_car);
493          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
494          Llength();          Llength();
495          vs_top=sup;          vs_top=sup;
496          (V69->c.c_car)= vs_base[0];          (V70->c.c_car)= vs_base[0];
497          V70=MMcdr(V70);          V71=MMcdr(V71);
498          if(endp(V70)){          if(endp(V71)){
499          V68= base[0];          V69= base[0];
500          goto T190;}          goto T197;}
501          V69=MMcdr(V69)=MMcons(Cnil,Cnil);          V70=MMcdr(V70)=MMcons(Cnil,Cnil);
502          goto T191;}          goto T198;}
503  goto T190;  goto T197;
504  T190:;  T197:;
505           vs_top=base+0;           vs_top=base+0;
506           while(!endp(V68))           while(!endp(V69))
507           {vs_push(car(V68));V68=cdr(V68);}           {vs_push(car(V69));V69=cdr(V69);}
508          vs_base=base+0;}          vs_base=base+0;}
509          Lmin();          Lmin();
510          vs_top=sup;          vs_top=sup;
511          V67= fix(vs_base[0]);          V68= fix(vs_base[0]);
512  goto T195;  goto T202;
513  T195:;  T202:;
514          if(!((V66)>=(V67))){          if(!((V67)>=(V68))){
         goto T196;}  
         {object V71 = Cnil;  
         VMR4(V71)}  
 goto T196;  
 T196:;  
         {register object V72;  
         base[0]= (V62);  
         {object V73;  
         {object V74;  
         object V75= (V64);  
         if(endp(V75)){  
         V73= Cnil;  
         goto T203;}  
         base[1]=V74=MMcons(Cnil,Cnil);  
 goto T204;  
 T204:;  
         {register object V76;  
         V76= (V75->c.c_car);  
         (V74->c.c_car)= elt((V76),V66);}  
         V75=MMcdr(V75);  
         if(endp(V75)){  
         V73= base[1];  
515          goto T203;}          goto T203;}
516          V74=MMcdr(V74)=MMcons(Cnil,Cnil);          {object V72 = Cnil;
517          goto T204;}          VMR4(V72)}
518  goto T203;  goto T203;
519  T203:;  T203:;
520            {register object V73;
521            base[0]= (V63);
522            {object V74;
523            {object V75;
524            object V76= (V65);
525            if(endp(V76)){
526            V74= Cnil;
527            goto T210;}
528            base[1]=V75=MMcons(Cnil,Cnil);
529    goto T211;
530    T211:;
531            {register object V77;
532            V77= (V76->c.c_car);
533            (V75->c.c_car)= elt((V77),V67);}
534            V76=MMcdr(V76);
535            if(endp(V76)){
536            V74= base[1];
537            goto T210;}
538            V75=MMcdr(V75)=MMcons(Cnil,Cnil);
539            goto T211;}
540    goto T210;
541    T210:;
542           vs_top=base+1;           vs_top=base+1;
543           while(!endp(V73))           while(!endp(V74))
544           {vs_push(car(V73));V73=cdr(V73);}           {vs_push(car(V74));V74=cdr(V74);}
545          vs_base=base+1;}          vs_base=base+1;}
546          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
547          vs_top=sup;          vs_top=sup;
548          V72= vs_base[0];          V73= vs_base[0];
549          if(((V72))==Cnil){          if(((V73))==Cnil){
550          goto T200;}          goto T207;}
551          {object V77 = (V72);          {object V78 = (V73);
552          VMR4(V77)}}          VMR4(V78)}}
553  goto T200;  goto T207;
554  T200:;  T207:;
555          V66= (long)(V66)+1;          V67= (long)(V67)+1;
556          goto T195;}          goto T202;}
557          va_end(ap);          va_end(ap);
558          base[0]=base[0];          base[0]=base[0];
559          return Cnil;}          return Cnil;}
560          }          }
561  /*      local entry for function EVERY  */  /*      local entry for function EVERY  */
562    
563  static object LI5(V79,V78,va_alist)  static object LI5(V80,V79,va_alist)
564          object V79,V78;          object V80,V79;
565          va_dcl          va_dcl
566  {        {      
567          va_list ap;          va_list ap;
568          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
569          {register object V80;          {register object V81;
570          object V81;          object V82;
571          register object V82;          register object V83;
572          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
573          va_start(ap);          va_start(ap);
574          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
575          V80= V79;          V81= V80;
576          V81= V78;          V82= V79;
577          narg= narg - 2;          narg= narg - 2;
578          V83 = list_vector(narg,ap);          V84 = list_vector(narg,ap);
579          V82= V83;          V83= V84;
580          V82= make_cons((V81),(V82));          V83= make_cons((V82),(V83));
581          {register long V84;          {register long V85;
582          register long V85;          register long V86;
583          V84= 0;          V85= 0;
         {object V86;  
584          {object V87;          {object V87;
585          object V88= (V82);          {object V88;
586          if(endp(V88)){          object V89= (V83);
587          V86= Cnil;          if(endp(V89)){
588          goto T215;}          V87= Cnil;
589          base[0]=V87=MMcons(Cnil,Cnil);          goto T222;}
590  goto T216;          base[0]=V88=MMcons(Cnil,Cnil);
591  T216:;  goto T223;
592          base[1]= (V88->c.c_car);  T223:;
593            base[1]= (V89->c.c_car);
594          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
595          Llength();          Llength();
596          vs_top=sup;          vs_top=sup;
597          (V87->c.c_car)= vs_base[0];          (V88->c.c_car)= vs_base[0];
598          V88=MMcdr(V88);          V89=MMcdr(V89);
599          if(endp(V88)){          if(endp(V89)){
600          V86= base[0];          V87= base[0];
601          goto T215;}          goto T222;}
602          V87=MMcdr(V87)=MMcons(Cnil,Cnil);          V88=MMcdr(V88)=MMcons(Cnil,Cnil);
603          goto T216;}          goto T223;}
604  goto T215;  goto T222;
605  T215:;  T222:;
606           vs_top=base+0;           vs_top=base+0;
607           while(!endp(V86))           while(!endp(V87))
608           {vs_push(car(V86));V86=cdr(V86);}           {vs_push(car(V87));V87=cdr(V87);}
609          vs_base=base+0;}          vs_base=base+0;}
610          Lmin();          Lmin();
611          vs_top=sup;          vs_top=sup;
612          V85= fix(vs_base[0]);          V86= fix(vs_base[0]);
613  goto T220;  goto T227;
614  T220:;  T227:;
615          if(!((V84)>=(V85))){          if(!((V85)>=(V86))){
616          goto T221;}          goto T228;}
617          {object V89 = Ct;          {object V90 = Ct;
618          VMR5(V89)}          VMR5(V90)}
619  goto T221;  goto T228;
620  T221:;  T228:;
621          base[0]= (V80);          base[0]= (V81);
         {object V90;  
622          {object V91;          {object V91;
623          object V92= (V82);          {object V92;
624          if(endp(V92)){          object V93= (V83);
625          V90= Cnil;          if(endp(V93)){
626          goto T229;}          V91= Cnil;
627          base[1]=V91=MMcons(Cnil,Cnil);          goto T236;}
628  goto T230;          base[1]=V92=MMcons(Cnil,Cnil);
629  T230:;  goto T237;
630          {register object V93;  T237:;
631          V93= (V92->c.c_car);          {register object V94;
632          (V91->c.c_car)= elt((V93),V84);}          V94= (V93->c.c_car);
633          V92=MMcdr(V92);          (V92->c.c_car)= elt((V94),V85);}
634          if(endp(V92)){          V93=MMcdr(V93);
635          V90= base[1];          if(endp(V93)){
636          goto T229;}          V91= base[1];
637          V91=MMcdr(V91)=MMcons(Cnil,Cnil);          goto T236;}
638          goto T230;}          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
639  goto T229;          goto T237;}
640  T229:;  goto T236;
641    T236:;
642           vs_top=base+1;           vs_top=base+1;
643           while(!endp(V90))           while(!endp(V91))
644           {vs_push(car(V90));V90=cdr(V90);}           {vs_push(car(V91));V91=cdr(V91);}
645          vs_base=base+1;}          vs_base=base+1;}
646          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
647          vs_top=sup;          vs_top=sup;
648          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
649          goto T225;}          goto T232;}
650          {object V94 = Cnil;          {object V95 = Cnil;
651          VMR5(V94)}          VMR5(V95)}
652  goto T225;  goto T232;
653  T225:;  T232:;
654          V84= (long)(V84)+1;          V85= (long)(V85)+1;
655          goto T220;}          goto T227;}
656          va_end(ap);          va_end(ap);
657          base[0]=base[0];          base[0]=base[0];
658          return Cnil;}          return Cnil;}
659          }          }
660  /*      local entry for function NOTANY */  /*      local entry for function NOTANY */
661    
662  static object LI6(V96,V95,va_alist)  static object LI6(V97,V96,va_alist)
663          object V96,V95;          object V97,V96;
664          va_dcl          va_dcl
665  {        {      
666          va_list ap;          va_list ap;
667          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
668          {object V97;          {object V98;
         object V98;  
669          object V99;          object V99;
670            object V100;
671          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
672          va_start(ap);          va_start(ap);
673          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
674          V97= V96;          V98= V97;
675          V98= V95;          V99= V96;
676          narg= narg - 2;          narg= narg - 2;
677          V100 = list_vector(narg,ap);          V101 = list_vector(narg,ap);
678          V99= V100;          V100= V101;
679          base[0]= (V97);          base[0]= (V98);
680          base[1]= (V98);          base[1]= (V99);
681          {object V102;          {object V103;
682          V102= (V99);          V103= (V100);
683           vs_top=base+2;           vs_top=base+2;
684           while(!endp(V102))           while(!endp(V103))
685           {vs_push(car(V102));V102=cdr(V102);}           {vs_push(car(V103));V103=cdr(V103);}
686          vs_base=base+0;}          vs_base=base+0;}
687          (void) (*Lnk26)();          (void) (*Lnk26)();
688          vs_top=sup;          vs_top=sup;
689          V101= vs_base[0];          V102= vs_base[0];
690          {object V103 = ((V101)==Cnil?Ct:Cnil);          {object V104 = ((V102)==Cnil?Ct:Cnil);
691          VMR6(V103)}          VMR6(V104)}
692          va_end(ap);          va_end(ap);
693          base[0]=base[0];          base[0]=base[0];
694          return Cnil;}          return Cnil;}
695          }          }
696  /*      local entry for function NOTEVERY       */  /*      local entry for function NOTEVERY       */
697    
698  static object LI7(V105,V104,va_alist)  static object LI7(V106,V105,va_alist)
699          object V105,V104;          object V106,V105;
700          va_dcl          va_dcl
701  {        {      
702          va_list ap;          va_list ap;
703          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
704          {object V106;          {object V107;
         object V107;  
705          object V108;          object V108;
706            object V109;
707          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
708          va_start(ap);          va_start(ap);
709          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
710          V106= V105;          V107= V106;
711          V107= V104;          V108= V105;
712          narg= narg - 2;          narg= narg - 2;
713          V109 = list_vector(narg,ap);          V110 = list_vector(narg,ap);
714          V108= V109;          V109= V110;
715          base[0]= (V106);          base[0]= (V107);
716          base[1]= (V107);          base[1]= (V108);
717          {object V111;          {object V112;
718          V111= (V108);          V112= (V109);
719           vs_top=base+2;           vs_top=base+2;
720           while(!endp(V111))           while(!endp(V112))
721           {vs_push(car(V111));V111=cdr(V111);}           {vs_push(car(V112));V112=cdr(V112);}
722          vs_base=base+0;}          vs_base=base+0;}
723          (void) (*Lnk27)();          (void) (*Lnk27)();
724          vs_top=sup;          vs_top=sup;
725          V110= vs_base[0];          V111= vs_base[0];
726          {object V112 = ((V110)==Cnil?Ct:Cnil);          {object V113 = ((V111)==Cnil?Ct:Cnil);
727          VMR7(V112)}          VMR7(V113)}
728          va_end(ap);          va_end(ap);
729          base[0]=base[0];          base[0]=base[0];
730          return Cnil;}          return Cnil;}

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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