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) |
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; |
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; |
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]))){ |
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; |
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;} |
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); |
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 |
|
|
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; |
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; |
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)) |
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 |
|
|
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)); |
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; |
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)) |
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; |
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); |
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)) |
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))); |
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; |
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); |
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)) |
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 |
|
|
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)); |
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; |
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)) |
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); |
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); |
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)) |
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 |
|
|
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)); |
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; |
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)) |
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; |
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); |
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)) |
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 |
|
|
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); |
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 |
|
|
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); |
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 |