/[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.3 by camm, Fri Jul 12 22:00:49 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "seq.h"  #include "seq.h"
4  init_seq(){do_init(VV);}  void init_seq(){do_init(VV);}
5  /*      local entry for function MAKE-SEQUENCE  */  /*      local entry for function MAKE-SEQUENCE  */
6    
7  static object LI1(V2,V1,va_alist)  static object LI1(V2,V1,va_alist)
# Line 14  static object LI1(V2,V1,va_alist) Line 14  static object LI1(V2,V1,va_alist)
14          register object V4;          register object V4;
15          register object V5;          register object V5;
16          object V6;          object V6;
17            Vcs[0]=Vcs[0];
18            va_start(ap);
19          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
20          V3= V2;          V3= V2;
21          V4= V1;          V4= V1;
22          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
23          {          {
24          parse_key_new(narg,Vcs +2,&LI1key,ap);          parse_key_new(narg,Vcs +2,(struct key *)&LI1key,ap);
25          if(Vcs[2]==0){          if(Vcs[2]==0){
26          V5= Cnil;          V5= Cnil;
27          V6= Cnil;          V6= Cnil;
# Line 43  static object LI1(V2,V1,va_alist) Line 44  static object LI1(V2,V1,va_alist)
44          vs_top=sup;          vs_top=sup;
45          {object V9 = vs_base[0];          {object V9 = vs_base[0];
46          VMR1(V9)}          VMR1(V9)}
47    goto T10;
48  T10:;  T10:;
49          base[0]= (V4);          base[0]= (V4);
50          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 50  T10:; Line 52  T10:;
52          vs_top=sup;          vs_top=sup;
53          {object V10 = vs_base[0];          {object V10 = vs_base[0];
54          VMR1(V10)}          VMR1(V10)}
55    goto T7;
56  T7:;  T7:;
57          if(((V3))==(VV[2])){          if(((V3))==(VV[2])){
58          goto T16;}          goto T16;}
59          if(!(((V3))==(VV[3]))){          if(!(((V3))==(VV[3]))){
60          goto T17;}          goto T17;}
61    goto T16;
62  T16:;  T16:;
63          V7= VV[4];          V7= VV[4];
64          goto T5;          goto T5;
65    goto T17;
66  T17:;  T17:;
67          if(((V3))==(VV[5])){          if(((V3))==(VV[5])){
68          goto T21;}          goto T21;}
69          if(!(((V3))==(VV[6]))){          if(!(((V3))==(VV[6]))){
70          goto T22;}          goto T22;}
71    goto T21;
72  T21:;  T21:;
73          V7= VV[7];          V7= VV[7];
74          goto T5;          goto T5;
75    goto T22;
76  T22:;  T22:;
77          if(((V3))==(VV[8])){          if(((V3))==(VV[8])){
78          goto T26;}          goto T26;}
79          if(!(((V3))==(VV[9]))){          if(!(((V3))==(VV[9]))){
80          goto T27;}          goto T27;}
81    goto T26;
82  T26:;  T26:;
83          V7= Ct;          V7= Ct;
84          goto T5;          goto T5;
85    goto T27;
86  T27:;  T27:;
87          V3= (*(LnkLI13))((V3));          V3= (*(LnkLI13))((V3));
88          if(!((car((V3)))==(VV[0]))){          if(!((car((V3)))==(VV[0]))){
# Line 88  T27:; Line 97  T27:;
97          vs_top=sup;          vs_top=sup;
98          {object V11 = vs_base[0];          {object V11 = vs_base[0];
99          VMR1(V11)}          VMR1(V11)}
100    goto T37;
101  T37:;  T37:;
102          base[0]= (V4);          base[0]= (V4);
103          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 95  T37:; Line 105  T37:;
105          vs_top=sup;          vs_top=sup;
106          {object V12 = vs_base[0];          {object V12 = vs_base[0];
107          VMR1(V12)}          VMR1(V12)}
108    goto T33;
109  T33:;  T33:;
110          if((car((V3)))==(VV[10])){          if((car((V3)))==(VV[10])){
111          goto T43;}          goto T43;}
# Line 105  T33:; Line 116  T33:;
116          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
117          Lerror();          Lerror();
118          vs_top=sup;          vs_top=sup;
119    goto T43;
120  T43:;{object V13;  T43:;{object V13;
121          V13= cadr((V3));          V13= cadr((V3));
122          if(V13==Cnil)goto T50;          if(V13==Cnil)goto T50;
123          V7= V13;          V7= V13;
124          goto T5;          goto T5;
125    goto T50;
126  T50:;}  T50:;}
127          V7= Ct;          V7= Ct;
128    goto T5;
129  T5:;  T5:;
130          V7= (*(LnkLI14))((V7));          V7= (*(LnkLI14))((V7));
131          base[0]= (V7);          base[0]= (V7);
# Line 131  T5:; Line 145  T5:;
145          register long V15;          register long V15;
146          V14= 0;          V14= 0;
147          V15= fix((V4));          V15= fix((V4));
148    goto T69;
149  T69:;  T69:;
150          if(!((V14)>=(V15))){          if(!((V14)>=(V15))){
151          goto T70;}          goto T70;}
152          goto T63;          goto T63;
153    goto T70;
154  T70:;  T70:;
155          (void)(elt_set((V8),V14,(V5)));          (void)(elt_set((V8),V14,(V5)));
156          V14= (V14)+1;          V14= (V14)+1;
157          goto T69;}          goto T69;}
158    goto T63;
159  T63:;  T63:;
160          {object V16 = (V8);          {object V16 = (V8);
161          VMR1(V16)}}}          VMR1(V16)}}
162            va_end(ap);
163            base[0]=base[0];
164            return Cnil;}
165          }}          }}
166  /*      local entry for function CONCATENATE    */  /*      local entry for function CONCATENATE    */
167    
# Line 153  static object LI2(V17,va_alist) Line 173  static object LI2(V17,va_alist)
173          int narg = VFUN_NARGS; VMB2 VMS2 VMV2          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
174          {object V18;          {object V18;
175          object V19;          object V19;
176            Vcs[0]=Vcs[0];
177            va_start(ap);
178          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
179          V18= V17;          V18= V17;
180          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
181          V20 = list_vector(narg,ap);          V20 = list_vector(narg,ap);
182          V19= V20;          V19= V20;
183          {register object V21;          {register object V21;
# Line 169  static object LI2(V17,va_alist) Line 190  static object LI2(V17,va_alist)
190          V25= Cnil;          V25= Cnil;
191          goto T80;}          goto T80;}
192          base[0]=V26=MMcons(Cnil,Cnil);          base[0]=V26=MMcons(Cnil,Cnil);
193    goto T81;
194  T81:;  T81:;
195          base[1]= (V27->c.c_car);          base[1]= (V27->c.c_car);
196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 180  T81:; Line 202  T81:;
202          goto T80;}          goto T80;}
203          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
204          goto T81;}          goto T81;}
205    goto T80;
206  T80:;  T80:;
207           vs_top=base+0;           vs_top=base+0;
208           while(!endp(V25))           while(!endp(V25))
# Line 191  T80:; Line 214  T80:;
214          V21= (VFUN_NARGS=2,(*(LnkLI15))((V18),V24));          V21= (VFUN_NARGS=2,(*(LnkLI15))((V18),V24));
215          V23= 0;          V23= 0;
216          V22= (V19);          V22= (V19);
217    goto T86;
218  T86:;  T86:;
219          if(((V22))!=Cnil){          if(((V22))!=Cnil){
220          goto T87;}          goto T87;}
221          {object V28 = (V21);          {object V28 = (V21);
222          VMR2(V28)}          VMR2(V28)}
223    goto T87;
224  T87:;  T87:;
225          {register long V29;          {register long V29;
226          register long V30;          register long V30;
227          V29= 0;          V29= 0;
228          V30= length(car((V22)));          V30= length(car((V22)));
229    goto T95;
230  T95:;  T95:;
231          if(!((V29)>=(V30))){          if(!((V29)>=(V30))){
232          goto T96;}          goto T96;}
233          goto T91;          goto T91;
234    goto T96;
235  T96:;  T96:;
236          V31= elt(car((V22)),V29);          V31= elt(car((V22)),V29);
237          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));
238          V23= (V23)+(1);          V23= (V23)+(1);
239          V29= (V29)+1;          V29= (V29)+1;
240          goto T95;}          goto T95;}
241    goto T91;
242  T91:;  T91:;
243          V22= cdr((V22));          V22= cdr((V22));
244          goto T86;}}          goto T86;}
245            va_end(ap);
246            base[0]=base[0];
247            return Cnil;}
248          }          }
249  /*      local entry for function MAP    */  /*      local entry for function MAP    */
250    
# Line 227  static object LI3(V34,V33,V32,va_alist) Line 258  static object LI3(V34,V33,V32,va_alist)
258          register object V36;          register object V36;
259          object V37;          object V37;
260          register object V38;          register object V38;
261            Vcs[0]=Vcs[0];
262            va_start(ap);
263          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
264          V35= V34;          V35= V34;
265          V36= V33;          V36= V33;
266          V37= V32;          V37= V32;
267          narg= narg - 3;          narg= narg - 3;
         va_start(ap);  
268          V39 = list_vector(narg,ap);          V39 = list_vector(narg,ap);
269          V38= V39;          V38= V39;
270          V38= make_cons((V37),(V38));          V38= make_cons((V37),(V38));
# Line 244  static object LI3(V34,V33,V32,va_alist) Line 276  static object LI3(V34,V33,V32,va_alist)
276          V41= Cnil;          V41= Cnil;
277          goto T112;}          goto T112;}
278          base[0]=V42=MMcons(Cnil,Cnil);          base[0]=V42=MMcons(Cnil,Cnil);
279    goto T113;
280  T113:;  T113:;
281          base[1]= (V43->c.c_car);          base[1]= (V43->c.c_car);
282          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 255  T113:; Line 288  T113:;
288          goto T112;}          goto T112;}
289          V42=MMcdr(V42)=MMcons(Cnil,Cnil);          V42=MMcdr(V42)=MMcons(Cnil,Cnil);
290          goto T113;}          goto T113;}
291    goto T112;
292  T112:;  T112:;
293           vs_top=base+0;           vs_top=base+0;
294           while(!endp(V41))           while(!endp(V41))
# Line 269  T112:; Line 303  T112:;
303          long V45;          long V45;
304          V44= 0;          V44= 0;
305          V45= fix((V40));          V45= fix((V40));
306    goto T122;
307  T122:;  T122:;
308          if(!((V44)>=(V45))){          if(!((V44)>=(V45))){
309          goto T123;}          goto T123;}
310          {object V46 = Cnil;          {object V46 = Cnil;
311          VMR3(V46)}          VMR3(V46)}
312    goto T123;
313  T123:;  T123:;
314          base[0]= (V36);          base[0]= (V36);
315          {object V47;          {object V47;
# Line 283  T123:; Line 319  T123:;
319          V47= Cnil;          V47= Cnil;
320          goto T129;}          goto T129;}
321          base[1]=V48=MMcons(Cnil,Cnil);          base[1]=V48=MMcons(Cnil,Cnil);
322    goto T130;
323  T130:;  T130:;
324          {register object V50;          {register object V50;
325          V50= (V49->c.c_car);          V50= (V49->c.c_car);
# Line 292  T130:; Line 329  T130:;
329          goto T129;}          goto T129;}
330          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
331          goto T130;}          goto T130;}
332    goto T129;
333  T129:;  T129:;
334           vs_top=base+1;           vs_top=base+1;
335           while(!endp(V47))           while(!endp(V47))
# Line 301  T129:; Line 339  T129:;
339          vs_top=sup;          vs_top=sup;
340          V44= (V44)+1;          V44= (V44)+1;
341          goto T122;}          goto T122;}
342    goto T117;
343  T117:;  T117:;
344          {register object V51;          {register object V51;
345          V51= (VFUN_NARGS=2,(*(LnkLI15))((V35),(V40)));          V51= (VFUN_NARGS=2,(*(LnkLI15))((V35),(V40)));
# Line 308  T117:; Line 347  T117:;
347          long V53;          long V53;
348          V52= 0;          V52= 0;
349          V53= fix((V40));          V53= fix((V40));
350    goto T139;
351  T139:;  T139:;
352          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
353          goto T140;}          goto T140;}
354          {object V54 = (V51);          {object V54 = (V51);
355          VMR3(V54)}          VMR3(V54)}
356    goto T140;
357  T140:;  T140:;
358          base[0]= (V36);          base[0]= (V36);
359          {object V56;          {object V56;
# Line 322  T140:; Line 363  T140:;
363          V56= Cnil;          V56= Cnil;
364          goto T147;}          goto T147;}
365          base[1]=V57=MMcons(Cnil,Cnil);          base[1]=V57=MMcons(Cnil,Cnil);
366    goto T148;
367  T148:;  T148:;
368          {register object V59;          {register object V59;
369          V59= (V58->c.c_car);          V59= (V58->c.c_car);
# Line 331  T148:; Line 373  T148:;
373          goto T147;}          goto T147;}
374          V57=MMcdr(V57)=MMcons(Cnil,Cnil);          V57=MMcdr(V57)=MMcons(Cnil,Cnil);
375          goto T148;}          goto T148;}
376    goto T147;
377  T147:;  T147:;
378           vs_top=base+1;           vs_top=base+1;
379           while(!endp(V56))           while(!endp(V56))
# Line 341  T147:; Line 384  T147:;
384          V55= vs_base[0];          V55= vs_base[0];
385          (void)(elt_set((V51),V52,V55));          (void)(elt_set((V51),V52,V55));
386          V52= (V52)+1;          V52= (V52)+1;
387          goto T139;}}}}          goto T139;}}}
388            va_end(ap);
389            base[0]=base[0];
390            return Cnil;}
391          }          }
392  /*      local entry for function SOME   */  /*      local entry for function SOME   */
393    
# Line 354  static object LI4(V61,V60,va_alist) Line 400  static object LI4(V61,V60,va_alist)
400          {register object V62;          {register object V62;
401          object V63;          object V63;
402          register object V64;          register object V64;
403            Vcs[0]=Vcs[0];
404            va_start(ap);
405          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
406          V62= V61;          V62= V61;
407          V63= V60;          V63= V60;
408          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
409          V65 = list_vector(narg,ap);          V65 = list_vector(narg,ap);
410          V64= V65;          V64= V65;
411          V64= make_cons((V63),(V64));          V64= make_cons((V63),(V64));
# Line 372  static object LI4(V61,V60,va_alist) Line 419  static object LI4(V61,V60,va_alist)
419          V68= Cnil;          V68= Cnil;
420          goto T157;}          goto T157;}
421          base[0]=V69=MMcons(Cnil,Cnil);          base[0]=V69=MMcons(Cnil,Cnil);
422    goto T158;
423  T158:;  T158:;
424          base[1]= (V70->c.c_car);          base[1]= (V70->c.c_car);
425          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 383  T158:; Line 431  T158:;
431          goto T157;}          goto T157;}
432          V69=MMcdr(V69)=MMcons(Cnil,Cnil);          V69=MMcdr(V69)=MMcons(Cnil,Cnil);
433          goto T158;}          goto T158;}
434    goto T157;
435  T157:;  T157:;
436           vs_top=base+0;           vs_top=base+0;
437           while(!endp(V68))           while(!endp(V68))
# Line 391  T157:; Line 440  T157:;
440          Lmin();          Lmin();
441          vs_top=sup;          vs_top=sup;
442          V67= fix(vs_base[0]);          V67= fix(vs_base[0]);
443    goto T162;
444  T162:;  T162:;
445          if(!((V66)>=(V67))){          if(!((V66)>=(V67))){
446          goto T163;}          goto T163;}
447          {object V71 = Cnil;          {object V71 = Cnil;
448          VMR4(V71)}          VMR4(V71)}
449    goto T163;
450  T163:;  T163:;
451          {register object V72;          {register object V72;
452          base[0]= (V62);          base[0]= (V62);
# Line 406  T163:; Line 457  T163:;
457          V73= Cnil;          V73= Cnil;
458          goto T170;}          goto T170;}
459          base[1]=V74=MMcons(Cnil,Cnil);          base[1]=V74=MMcons(Cnil,Cnil);
460    goto T171;
461  T171:;  T171:;
462          {register object V76;          {register object V76;
463          V76= (V75->c.c_car);          V76= (V75->c.c_car);
# Line 415  T171:; Line 467  T171:;
467          goto T170;}          goto T170;}
468          V74=MMcdr(V74)=MMcons(Cnil,Cnil);          V74=MMcdr(V74)=MMcons(Cnil,Cnil);
469          goto T171;}          goto T171;}
470    goto T170;
471  T170:;  T170:;
472           vs_top=base+1;           vs_top=base+1;
473           while(!endp(V73))           while(!endp(V73))
# Line 427  T170:; Line 480  T170:;
480          goto T167;}          goto T167;}
481          {object V77 = (V72);          {object V77 = (V72);
482          VMR4(V77)}}          VMR4(V77)}}
483    goto T167;
484  T167:;  T167:;
485          V66= (V66)+1;          V66= (V66)+1;
486          goto T162;}}          goto T162;}
487            va_end(ap);
488            base[0]=base[0];
489            return Cnil;}
490          }          }
491  /*      local entry for function EVERY  */  /*      local entry for function EVERY  */
492    
# Line 442  static object LI5(V79,V78,va_alist) Line 499  static object LI5(V79,V78,va_alist)
499          {register object V80;          {register object V80;
500          object V81;          object V81;
501          register object V82;          register object V82;
502            Vcs[0]=Vcs[0];
503            va_start(ap);
504          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
505          V80= V79;          V80= V79;
506          V81= V78;          V81= V78;
507          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
508          V83 = list_vector(narg,ap);          V83 = list_vector(narg,ap);
509          V82= V83;          V82= V83;
510          V82= make_cons((V81),(V82));          V82= make_cons((V81),(V82));
# Line 460  static object LI5(V79,V78,va_alist) Line 518  static object LI5(V79,V78,va_alist)
518          V86= Cnil;          V86= Cnil;
519          goto T182;}          goto T182;}
520          base[0]=V87=MMcons(Cnil,Cnil);          base[0]=V87=MMcons(Cnil,Cnil);
521    goto T183;
522  T183:;  T183:;
523          base[1]= (V88->c.c_car);          base[1]= (V88->c.c_car);
524          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 471  T183:; Line 530  T183:;
530          goto T182;}          goto T182;}
531          V87=MMcdr(V87)=MMcons(Cnil,Cnil);          V87=MMcdr(V87)=MMcons(Cnil,Cnil);
532          goto T183;}          goto T183;}
533    goto T182;
534  T182:;  T182:;
535           vs_top=base+0;           vs_top=base+0;
536           while(!endp(V86))           while(!endp(V86))
# Line 479  T182:; Line 539  T182:;
539          Lmin();          Lmin();
540          vs_top=sup;          vs_top=sup;
541          V85= fix(vs_base[0]);          V85= fix(vs_base[0]);
542    goto T187;
543  T187:;  T187:;
544          if(!((V84)>=(V85))){          if(!((V84)>=(V85))){
545          goto T188;}          goto T188;}
546          {object V89 = Ct;          {object V89 = Ct;
547          VMR5(V89)}          VMR5(V89)}
548    goto T188;
549  T188:;  T188:;
550          base[0]= (V80);          base[0]= (V80);
551          {object V90;          {object V90;
# Line 493  T188:; Line 555  T188:;
555          V90= Cnil;          V90= Cnil;
556          goto T196;}          goto T196;}
557          base[1]=V91=MMcons(Cnil,Cnil);          base[1]=V91=MMcons(Cnil,Cnil);
558    goto T197;
559  T197:;  T197:;
560          {register object V93;          {register object V93;
561          V93= (V92->c.c_car);          V93= (V92->c.c_car);
# Line 502  T197:; Line 565  T197:;
565          goto T196;}          goto T196;}
566          V91=MMcdr(V91)=MMcons(Cnil,Cnil);          V91=MMcdr(V91)=MMcons(Cnil,Cnil);
567          goto T197;}          goto T197;}
568    goto T196;
569  T196:;  T196:;
570           vs_top=base+1;           vs_top=base+1;
571           while(!endp(V90))           while(!endp(V90))
# Line 513  T196:; Line 577  T196:;
577          goto T192;}          goto T192;}
578          {object V94 = Cnil;          {object V94 = Cnil;
579          VMR5(V94)}          VMR5(V94)}
580    goto T192;
581  T192:;  T192:;
582          V84= (V84)+1;          V84= (V84)+1;
583          goto T187;}}          goto T187;}
584            va_end(ap);
585            base[0]=base[0];
586            return Cnil;}
587          }          }
588  /*      local entry for function NOTANY */  /*      local entry for function NOTANY */
589    
# Line 528  static object LI6(V96,V95,va_alist) Line 596  static object LI6(V96,V95,va_alist)
596          {object V97;          {object V97;
597          object V98;          object V98;
598          object V99;          object V99;
599            Vcs[0]=Vcs[0];
600            va_start(ap);
601          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
602          V97= V96;          V97= V96;
603          V98= V95;          V98= V95;
604          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
605          V100 = list_vector(narg,ap);          V100 = list_vector(narg,ap);
606          V99= V100;          V99= V100;
607          base[0]= (V97);          base[0]= (V97);
# Line 547  static object LI6(V96,V95,va_alist) Line 616  static object LI6(V96,V95,va_alist)
616          vs_top=sup;          vs_top=sup;
617          V101= vs_base[0];          V101= vs_base[0];
618          {object V103 = ((V101)==Cnil?Ct:Cnil);          {object V103 = ((V101)==Cnil?Ct:Cnil);
619          VMR6(V103)}}          VMR6(V103)}
620            va_end(ap);
621            base[0]=base[0];
622            return Cnil;}
623          }          }
624  /*      local entry for function NOTEVERY       */  /*      local entry for function NOTEVERY       */
625    
# Line 560  static object LI7(V105,V104,va_alist) Line 632  static object LI7(V105,V104,va_alist)
632          {object V106;          {object V106;
633          object V107;          object V107;
634          object V108;          object V108;
635            Vcs[0]=Vcs[0];
636            va_start(ap);
637          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
638          V106= V105;          V106= V105;
639          V107= V104;          V107= V104;
640          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
641          V109 = list_vector(narg,ap);          V109 = list_vector(narg,ap);
642          V108= V109;          V108= V109;
643          base[0]= (V106);          base[0]= (V106);
# Line 579  static object LI7(V105,V104,va_alist) Line 652  static object LI7(V105,V104,va_alist)
652          vs_top=sup;          vs_top=sup;
653          V110= vs_base[0];          V110= vs_base[0];
654          {object V112 = ((V110)==Cnil?Ct:Cnil);          {object V112 = ((V110)==Cnil?Ct:Cnil);
655          VMR7(V112)}}          VMR7(V112)}
656            va_end(ap);
657            base[0]=base[0];
658            return Cnil;}
659          }          }
660  static LnkT17(){ call_or_link(VV[17],&Lnk17);} /* EVERY */  static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* EVERY */
661  static LnkT16(){ call_or_link(VV[16],&Lnk16);} /* SOME */  static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SOME */
662  static object  LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[15],&LnkLI15,ap);} /* MAKE-SEQUENCE */  static object  LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[15],(void **)&LnkLI15,ap);} /* MAKE-SEQUENCE */
663  static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
664  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* NORMALIZE-TYPE */
665    
666  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
667  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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