1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_arraylib.h" |
4 |
|
void init_gcl_arraylib(){do_init(VV);} |
5 |
|
/* local entry for function BEST-ARRAY-ELEMENT-TYPE */ |
6 |
|
|
7 |
|
static object LI1(V2) |
8 |
|
|
9 |
|
register object V2; |
10 |
|
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
|
TTL:; |
13 |
|
if(eql(Ct,(V2))){ |
14 |
|
goto T1;} |
15 |
|
if(((V2))!=Cnil){ |
16 |
|
goto T2;} |
17 |
|
goto T1; |
18 |
|
T1:; |
19 |
|
{object V3 = Ct; |
20 |
|
VMR1(V3)} |
21 |
|
goto T2; |
22 |
|
T2:; |
23 |
|
{register object x= (V2),V4= VV[0]; |
24 |
|
while(!endp(V4)) |
25 |
|
if(x==(V4->c.c_car)){ |
26 |
|
goto T8; |
27 |
|
}else V4=V4->c.c_cdr; |
28 |
|
goto T7;} |
29 |
|
goto T8; |
30 |
|
T8:; |
31 |
|
{object V5 = (V2); |
32 |
|
VMR1(V5)} |
33 |
|
goto T7; |
34 |
|
T7:; |
35 |
|
base[0]= (V2); |
36 |
|
base[1]= VV[1]; |
37 |
|
vs_top=(vs_base=base+0)+2; |
38 |
|
(void) (*Lnk18)(); |
39 |
|
vs_top=sup; |
40 |
|
if((vs_base[0])==Cnil){ |
41 |
|
goto T10;} |
42 |
|
{register object V6; |
43 |
|
register object V7; |
44 |
|
V6= VV[2]; |
45 |
|
V7= car((V6)); |
46 |
|
goto T17; |
47 |
|
T17:; |
48 |
|
if(!(endp_prop((V6)))){ |
49 |
|
goto T18;} |
50 |
|
{object V8 = VV[1]; |
51 |
|
VMR1(V8)} |
52 |
|
goto T18; |
53 |
|
T18:; |
54 |
|
base[1]= (V2); |
55 |
|
base[2]= (V7); |
56 |
|
vs_top=(vs_base=base+1)+2; |
57 |
|
(void) (*Lnk18)(); |
58 |
|
vs_top=sup; |
59 |
|
if((vs_base[0])==Cnil){ |
60 |
|
goto T22;} |
61 |
|
{object V9 = (V7); |
62 |
|
VMR1(V9)} |
63 |
|
goto T22; |
64 |
|
T22:; |
65 |
|
V6= cdr((V6)); |
66 |
|
V7= car((V6)); |
67 |
|
goto T17;} |
68 |
|
goto T10; |
69 |
|
T10:; |
70 |
|
if(!(eql((V2),VV[3]))){ |
71 |
|
goto T33;} |
72 |
|
{object V10 = VV[4]; |
73 |
|
VMR1(V10)} |
74 |
|
goto T33; |
75 |
|
T33:;{object V11; |
76 |
|
{register object V12; |
77 |
|
register object V13; |
78 |
|
V12= VV[5]; |
79 |
|
V13= car((V12)); |
80 |
|
goto T40; |
81 |
|
T40:; |
82 |
|
if(!(endp_prop((V12)))){ |
83 |
|
goto T41;} |
84 |
|
V11= Cnil; |
85 |
|
goto T36; |
86 |
|
goto T41; |
87 |
|
T41:; |
88 |
|
base[1]= (V2); |
89 |
|
base[2]= (V13); |
90 |
|
vs_top=(vs_base=base+1)+2; |
91 |
|
(void) (*Lnk18)(); |
92 |
|
vs_top=sup; |
93 |
|
if((vs_base[0])==Cnil){ |
94 |
|
goto T45;} |
95 |
|
V11= (V13); |
96 |
|
goto T36; |
97 |
|
goto T45; |
98 |
|
T45:; |
99 |
|
V12= cdr((V12)); |
100 |
|
V13= car((V12)); |
101 |
|
goto T40;} |
102 |
|
goto T36; |
103 |
|
T36:; |
104 |
|
if(V11==Cnil)goto T35; |
105 |
|
{object V14 = V11; |
106 |
|
VMR1(V14)} |
107 |
|
goto T35; |
108 |
|
T35:;} |
109 |
|
{object V15 = Ct; |
110 |
|
VMR1(V15)} |
111 |
|
base[0]=base[0]; |
112 |
|
return Cnil; |
113 |
|
} |
114 |
|
/* function definition for UPGRADED-ARRAY-ELEMENT-TYPE */ |
115 |
|
|
116 |
|
static void L2() |
117 |
|
{register object *base=vs_base; |
118 |
|
register object *sup=base+VM2; VC2 |
119 |
|
vs_reserve(VM2); |
120 |
|
{object V16; |
121 |
|
object V17; |
122 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
123 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
124 |
|
V16=(base[0]); |
125 |
|
vs_base=vs_base+1; |
126 |
|
if(vs_base>=vs_top){vs_top=sup;goto T55;} |
127 |
|
V17=(base[1]); |
128 |
|
vs_top=sup; |
129 |
|
goto T56; |
130 |
|
goto T55; |
131 |
|
T55:; |
132 |
|
V17= Cnil; |
133 |
|
goto T56; |
134 |
|
T56:; |
135 |
|
base[2]= (*(LnkLI19))((V16)); |
136 |
|
vs_top=(vs_base=base+2)+1; |
137 |
|
return; |
138 |
|
} |
139 |
|
} |
140 |
|
/* local entry for function MAKE-ARRAY */ |
141 |
|
|
142 |
|
static object LI3(object V18,object first,...) |
143 |
|
{ |
144 |
|
va_list ap; |
145 |
|
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
146 |
|
{register object V19; |
147 |
|
object V20; |
148 |
|
object V21; |
149 |
|
register object V22; |
150 |
|
object V23; |
151 |
|
object V24; |
152 |
|
object V25; |
153 |
|
object V26; |
154 |
|
object V27; |
155 |
|
object V28; |
156 |
|
va_start(ap,first); |
157 |
|
if(narg <1) too_few_arguments(); |
158 |
|
V19= V18; |
159 |
|
narg= narg - 1; |
160 |
|
{ |
161 |
|
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap); |
162 |
|
if(Vcs[1]==0){ |
163 |
|
V20= Ct; |
164 |
|
}else{ |
165 |
|
V20=(Vcs[1]);} |
166 |
|
V21=(Vcs[2]); |
167 |
|
if(Vcs[3]==0){ |
168 |
|
V22= Cnil; |
169 |
|
V23= Cnil; |
170 |
|
}else{ |
171 |
|
V22=(Vcs[3]); |
172 |
|
V23= Ct;} |
173 |
|
V24=(Vcs[4]); |
174 |
|
V25=(Vcs[5]); |
175 |
|
V26=(Vcs[6]); |
176 |
|
V27=(Vcs[7]); |
177 |
|
V28=(Vcs[8]); |
178 |
|
if(!(type_of((V19))==t_fixnum||type_of((V19))==t_bignum)){ |
179 |
|
goto T60;} |
180 |
|
V19= make_cons((V19),Cnil); |
181 |
|
goto T60; |
182 |
|
T60:; |
183 |
|
V20= (*(LnkLI19))((V20)); |
184 |
|
if(!(((long)length((V19)))==(1))){ |
185 |
|
goto T67;} |
186 |
|
{register object V29; |
187 |
|
base[0]= (V20); |
188 |
|
base[1]= car((V19)); |
189 |
|
base[2]= (V24); |
190 |
|
base[3]= (V25); |
191 |
|
base[4]= (V26); |
192 |
|
base[5]= (V27); |
193 |
|
base[6]= (V28); |
194 |
|
base[7]= (V21); |
195 |
|
vs_top=(vs_base=base+0)+8; |
196 |
|
siLmake_vector(); |
197 |
|
vs_top=sup; |
198 |
|
V29= vs_base[0]; |
199 |
|
if(((V23))==Cnil){ |
200 |
|
goto T78;} |
201 |
|
{long V30; |
202 |
|
register long V31; |
203 |
|
V30= fix(car((V19))); |
204 |
|
V31= 0; |
205 |
|
goto T84; |
206 |
|
T84:; |
207 |
|
if(!((V31)>=(V30))){ |
208 |
|
goto T85;} |
209 |
|
goto T78; |
210 |
|
goto T85; |
211 |
|
T85:; |
212 |
|
V32= elt((V22),V31); |
213 |
|
(void)(aset1((V29),V31,/* INLINE-ARGS */V32)); |
214 |
|
V31= (long)(V31)+1; |
215 |
|
goto T84;} |
216 |
|
goto T78; |
217 |
|
T78:; |
218 |
|
{object V33 = (V29); |
219 |
|
VMR3(V33)}} |
220 |
|
goto T67; |
221 |
|
T67:; |
222 |
|
{register object V34; |
223 |
|
base[1]= (V20); |
224 |
|
vs_top=(vs_base=base+1)+1; |
225 |
|
(void) (*Lnk23)(); |
226 |
|
vs_top=sup; |
227 |
|
base[0]= vs_base[0]; |
228 |
|
base[1]= (V28); |
229 |
|
base[2]= (V21); |
230 |
|
base[3]= (V26); |
231 |
|
base[4]= (V27); |
232 |
|
base[5]= (V19); |
233 |
|
vs_top=(vs_base=base+0)+6; |
234 |
|
(void) (*Lnk24)(); |
235 |
|
vs_top=sup; |
236 |
|
V34= vs_base[0]; |
237 |
|
if(((V25))==Cnil){ |
238 |
|
goto T101;} |
239 |
|
base[0]= VV[6]; |
240 |
|
vs_top=(vs_base=base+0)+1; |
241 |
|
Lerror(); |
242 |
|
vs_top=sup; |
243 |
|
goto T101; |
244 |
|
T101:; |
245 |
|
{register object x= small_fixnum(0),V35= (V19); |
246 |
|
while(!endp(V35)) |
247 |
|
if(eql(x,V35->c.c_car)){ |
248 |
|
goto T105; |
249 |
|
}else V35=V35->c.c_cdr;} |
250 |
|
if(((V23))==Cnil){ |
251 |
|
goto T105;} |
252 |
|
{register object V36; |
253 |
|
base[0]= make_fixnum((long)length((V19))); |
254 |
|
base[1]= VV[7]; |
255 |
|
base[2]= small_fixnum(0); |
256 |
|
vs_top=(vs_base=base+0)+3; |
257 |
|
Lmake_list(); |
258 |
|
vs_top=sup; |
259 |
|
V36= vs_base[0]; |
260 |
|
goto T115; |
261 |
|
T115:; |
262 |
|
base[0]= (V34); |
263 |
|
base[1]= (*(LnkLI25))((V22),(V36)); |
264 |
|
base[2]= (V36); |
265 |
|
vs_top=(vs_base=base+0)+3; |
266 |
|
(void) (*Lnk26)(); |
267 |
|
vs_top=sup; |
268 |
|
if(((*(LnkLI27))((V36),(V19)))==Cnil){ |
269 |
|
goto T122;} |
270 |
|
goto T105; |
271 |
|
goto T122; |
272 |
|
T122:; |
273 |
|
goto T115;} |
274 |
|
goto T105; |
275 |
|
T105:; |
276 |
|
{object V37 = (V34); |
277 |
|
VMR3(V37)}} |
278 |
|
va_end(ap); |
279 |
|
base[0]=base[0]; |
280 |
|
return Cnil;} |
281 |
|
}} |
282 |
|
/* local entry for function INCREMENT-CURSOR */ |
283 |
|
|
284 |
|
static object LI4(V40,V41) |
285 |
|
|
286 |
|
register object V40;object V41; |
287 |
|
{ VMB4 VMS4 VMV4 |
288 |
|
goto TTL; |
289 |
|
TTL:; |
290 |
|
if(((V40))!=Cnil){ |
291 |
|
goto T128;} |
292 |
|
{object V42 = Ct; |
293 |
|
VMR4(V42)} |
294 |
|
goto T128; |
295 |
|
T128:; |
296 |
|
{object V43; |
297 |
|
V43= (*(LnkLI27))(cdr((V40)),cdr((V41))); |
298 |
|
if(((V43))==Cnil){ |
299 |
|
goto T132;} |
300 |
|
if(!(((long)(fix(car((V40))))+1)>=(fix(car((V41)))))){ |
301 |
|
goto T135;} |
302 |
|
if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40)); |
303 |
|
((V40))->c.c_car = small_fixnum(0); |
304 |
|
{object V44 = Ct; |
305 |
|
VMR4(V44)} |
306 |
|
goto T135; |
307 |
|
T135:; |
308 |
|
V45 = make_fixnum((long)(fix(car((V40))))+1); |
309 |
|
if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40)); |
310 |
|
((V40))->c.c_car = V45; |
311 |
|
{object V46 = Cnil; |
312 |
|
VMR4(V46)} |
313 |
|
goto T132; |
314 |
|
T132:; |
315 |
|
{object V47 = Cnil; |
316 |
|
VMR4(V47)}} |
317 |
|
return Cnil; |
318 |
|
} |
319 |
|
/* local entry for function SEQUENCE-CURSOR */ |
320 |
|
|
321 |
|
static object LI5(V50,V51) |
322 |
|
|
323 |
|
object V50;object V51; |
324 |
|
{ VMB5 VMS5 VMV5 |
325 |
|
goto TTL; |
326 |
|
TTL:; |
327 |
|
if(((V51))!=Cnil){ |
328 |
|
goto T140;} |
329 |
|
{object V52 = (V50); |
330 |
|
VMR5(V52)} |
331 |
|
goto T140; |
332 |
|
T140:; |
333 |
|
V50= elt((V50),fix(car((V51)))); |
334 |
|
V51= cdr((V51)); |
335 |
|
goto TTL; |
336 |
|
return Cnil; |
337 |
|
} |
338 |
|
/* local entry for function VECTOR */ |
339 |
|
|
340 |
|
static object LI6(object first,...) |
341 |
|
{ |
342 |
|
va_list ap; |
343 |
|
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
344 |
|
{object V53; |
345 |
|
va_start(ap,first); |
346 |
|
narg= narg - 0; |
347 |
|
V54 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap)); |
348 |
|
V53= V54; |
349 |
|
{object V55; |
350 |
|
V56 = make_fixnum((long)length((V53))); |
351 |
|
V55= make_cons(V56,Cnil); |
352 |
|
{object V57 = (VFUN_NARGS=5,(*(LnkLI28))((V55),VV[8],Ct,VV[9],(V53))); |
353 |
|
VMR6(V57)}} |
354 |
|
va_end(ap); |
355 |
|
base[0]=base[0]; |
356 |
|
return Cnil;} |
357 |
|
} |
358 |
|
/* local entry for function ARRAY-DIMENSIONS */ |
359 |
|
|
360 |
|
static object LI7(V59) |
361 |
|
|
362 |
|
register object V59; |
363 |
|
{ VMB7 VMS7 VMV7 |
364 |
|
goto TTL; |
365 |
|
TTL:; |
366 |
|
{register object V60; |
367 |
|
register object V61; |
368 |
|
base[0]= (V59); |
369 |
|
vs_top=(vs_base=base+0)+1; |
370 |
|
Larray_rank(); |
371 |
|
vs_top=sup; |
372 |
|
V60= vs_base[0]; |
373 |
|
V61= Cnil; |
374 |
|
goto T149; |
375 |
|
T149:; |
376 |
|
if(!(number_compare((V60),small_fixnum(0))==0)){ |
377 |
|
goto T150;} |
378 |
|
{object V62 = (V61); |
379 |
|
VMR7(V62)} |
380 |
|
goto T150; |
381 |
|
T150:; |
382 |
|
V60= one_minus((V60)); |
383 |
|
base[0]= (V59); |
384 |
|
base[1]= (V60); |
385 |
|
vs_top=(vs_base=base+0)+2; |
386 |
|
Larray_dimension(); |
387 |
|
vs_top=sup; |
388 |
|
V63= vs_base[0]; |
389 |
|
V61= make_cons(V63,(V61)); |
390 |
|
goto T149;} |
391 |
|
base[0]=base[0]; |
392 |
|
return Cnil; |
393 |
|
} |
394 |
|
/* local entry for function ARRAY-IN-BOUNDS-P */ |
395 |
|
|
396 |
|
static object LI8(object V64,object first,...) |
397 |
|
{ |
398 |
|
va_list ap; |
399 |
|
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
400 |
|
{register object V65; |
401 |
|
object V66; |
402 |
|
va_start(ap,first); |
403 |
|
if(narg <1) too_few_arguments(); |
404 |
|
V65= V64; |
405 |
|
narg= narg - 1; |
406 |
|
V67 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap)); |
407 |
|
V66= V67; |
408 |
|
{register object V68; |
409 |
|
base[1]= (V65); |
410 |
|
vs_top=(vs_base=base+1)+1; |
411 |
|
Larray_rank(); |
412 |
|
vs_top=sup; |
413 |
|
V68= vs_base[0]; |
414 |
|
V69 = make_fixnum((long)length((V66))); |
415 |
|
if(!(number_compare((V68),V69)!=0)){ |
416 |
|
goto T165;} |
417 |
|
base[1]= VV[10]; |
418 |
|
base[2]= (V68); |
419 |
|
base[3]= make_fixnum((long)length((V66))); |
420 |
|
vs_top=(vs_base=base+1)+3; |
421 |
|
Lerror(); |
422 |
|
vs_top=sup; |
423 |
|
goto T165; |
424 |
|
T165:; |
425 |
|
{register object V70; |
426 |
|
register object V71; |
427 |
|
V70= small_fixnum(0); |
428 |
|
V71= (V66); |
429 |
|
goto T172; |
430 |
|
T172:; |
431 |
|
if(!(number_compare((V70),(V68))>=0)){ |
432 |
|
goto T173;} |
433 |
|
{object V72 = Ct; |
434 |
|
VMR8(V72)} |
435 |
|
goto T173; |
436 |
|
T173:; |
437 |
|
if(number_compare(car((V71)),small_fixnum(0))<0){ |
438 |
|
goto T178;} |
439 |
|
V73= car((V71)); |
440 |
|
base[1]= (V65); |
441 |
|
base[2]= (V70); |
442 |
|
vs_top=(vs_base=base+1)+2; |
443 |
|
Larray_dimension(); |
444 |
|
vs_top=sup; |
445 |
|
V74= vs_base[0]; |
446 |
|
if(!(number_compare(/* INLINE-ARGS */V73,V74)>=0)){ |
447 |
|
goto T177;} |
448 |
|
goto T178; |
449 |
|
T178:; |
450 |
|
{object V75 = Cnil; |
451 |
|
VMR8(V75)} |
452 |
|
goto T177; |
453 |
|
T177:; |
454 |
|
V70= one_plus((V70)); |
455 |
|
V71= cdr((V71)); |
456 |
|
goto T172;}} |
457 |
|
va_end(ap); |
458 |
|
base[0]=base[0]; |
459 |
|
return Cnil;} |
460 |
|
} |
461 |
|
/* local entry for function ARRAY-ROW-MAJOR-INDEX */ |
462 |
|
|
463 |
|
static object LI9(object V76,object first,...) |
464 |
|
{ |
465 |
|
va_list ap; |
466 |
|
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
467 |
|
{register object V77; |
468 |
|
object V78; |
469 |
|
va_start(ap,first); |
470 |
|
if(narg <1) too_few_arguments(); |
471 |
|
V77= V76; |
472 |
|
narg= narg - 1; |
473 |
|
V79 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap)); |
474 |
|
V78= V79; |
475 |
|
{register object V80; |
476 |
|
register object V81; |
477 |
|
register object V82; |
478 |
|
V80= small_fixnum(0); |
479 |
|
V81= small_fixnum(0); |
480 |
|
V82= (V78); |
481 |
|
goto T190; |
482 |
|
T190:; |
483 |
|
if(((V82))!=Cnil){ |
484 |
|
goto T191;} |
485 |
|
{object V83 = (V81); |
486 |
|
VMR9(V83)} |
487 |
|
goto T191; |
488 |
|
T191:; |
489 |
|
{object V84; |
490 |
|
V84= one_plus((V80)); |
491 |
|
base[0]= (V77); |
492 |
|
base[1]= (V80); |
493 |
|
vs_top=(vs_base=base+0)+2; |
494 |
|
Larray_dimension(); |
495 |
|
vs_top=sup; |
496 |
|
V85= vs_base[0]; |
497 |
|
V86= number_times((V81),V85); |
498 |
|
V81= number_plus(/* INLINE-ARGS */V86,car((V82))); |
499 |
|
V82= cdr((V82)); |
500 |
|
V80= (V84);} |
501 |
|
goto T190;} |
502 |
|
va_end(ap); |
503 |
|
base[0]=base[0]; |
504 |
|
return Cnil;} |
505 |
|
} |
506 |
|
/* local entry for function BIT */ |
507 |
|
|
508 |
|
static object LI10(object V87,object first,...) |
509 |
|
{ |
510 |
|
va_list ap; |
511 |
|
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
512 |
|
{object V88; |
513 |
|
object V89; |
514 |
|
va_start(ap,first); |
515 |
|
if(narg <1) too_few_arguments(); |
516 |
|
V88= V87; |
517 |
|
narg= narg - 1; |
518 |
|
V90 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap)); |
519 |
|
V89= V90; |
520 |
|
base[0]= (V88); |
521 |
|
{object V91; |
522 |
|
V91= (V89); |
523 |
|
vs_top=base+1; |
524 |
|
while(!endp(V91)) |
525 |
|
{vs_push(car(V91));V91=cdr(V91);} |
526 |
|
vs_base=base+0;} |
527 |
|
Laref(); |
528 |
|
vs_top=sup; |
529 |
|
{object V92 = vs_base[0]; |
530 |
|
VMR10(V92)} |
531 |
|
va_end(ap); |
532 |
|
base[0]=base[0]; |
533 |
|
return Cnil;} |
534 |
|
} |
535 |
|
/* local entry for function SBIT */ |
536 |
|
|
537 |
|
static object LI11(object V93,object first,...) |
538 |
|
{ |
539 |
|
va_list ap; |
540 |
|
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
541 |
|
{object V94; |
542 |
|
object V95; |
543 |
|
va_start(ap,first); |
544 |
|
if(narg <1) too_few_arguments(); |
545 |
|
V94= V93; |
546 |
|
narg= narg - 1; |
547 |
|
V96 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap)); |
548 |
|
V95= V96; |
549 |
|
base[0]= (V94); |
550 |
|
{object V97; |
551 |
|
V97= (V95); |
552 |
|
vs_top=base+1; |
553 |
|
while(!endp(V97)) |
554 |
|
{vs_push(car(V97));V97=cdr(V97);} |
555 |
|
vs_base=base+0;} |
556 |
|
Laref(); |
557 |
|
vs_top=sup; |
558 |
|
{object V98 = vs_base[0]; |
559 |
|
VMR11(V98)} |
560 |
|
va_end(ap); |
561 |
|
base[0]=base[0]; |
562 |
|
return Cnil;} |
563 |
|
} |
564 |
|
/* local entry for function BIT-AND */ |
565 |
|
|
566 |
|
static object LI12(object V100,object V99,object first,...) |
567 |
|
{ |
568 |
|
va_list ap; |
569 |
|
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
570 |
|
{object V101; |
571 |
|
object V102; |
572 |
|
object V103; |
573 |
|
va_start(ap,first); |
574 |
|
if(narg <2) too_few_arguments(); |
575 |
|
V101= V100; |
576 |
|
V102= V99; |
577 |
|
narg = narg - 2; |
578 |
|
if (narg <= 0) goto T207; |
579 |
|
else { |
580 |
|
V103= first;} |
581 |
|
--narg; goto T208; |
582 |
|
goto T207; |
583 |
|
T207:; |
584 |
|
V103= Cnil; |
585 |
|
goto T208; |
586 |
|
T208:; |
587 |
|
base[0]= small_fixnum(1); |
588 |
|
base[1]= (V101); |
589 |
|
base[2]= (V102); |
590 |
|
base[3]= (V103); |
591 |
|
vs_top=(vs_base=base+0)+4; |
592 |
|
siLbit_array_op(); |
593 |
|
vs_top=sup; |
594 |
|
{object V104 = vs_base[0]; |
595 |
|
VMR12(V104)} |
596 |
|
va_end(ap); |
597 |
|
base[0]=base[0]; |
598 |
|
return Cnil;} |
599 |
|
} |
600 |
|
/* local entry for function BIT-IOR */ |
601 |
|
|
602 |
|
static object LI13(object V106,object V105,object first,...) |
603 |
|
{ |
604 |
|
va_list ap; |
605 |
|
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
606 |
|
{object V107; |
607 |
|
object V108; |
608 |
|
object V109; |
609 |
|
va_start(ap,first); |
610 |
|
if(narg <2) too_few_arguments(); |
611 |
|
V107= V106; |
612 |
|
V108= V105; |
613 |
|
narg = narg - 2; |
614 |
|
if (narg <= 0) goto T214; |
615 |
|
else { |
616 |
|
V109= first;} |
617 |
|
--narg; goto T215; |
618 |
|
goto T214; |
619 |
|
T214:; |
620 |
|
V109= Cnil; |
621 |
|
goto T215; |
622 |
|
T215:; |
623 |
|
base[0]= small_fixnum(7); |
624 |
|
base[1]= (V107); |
625 |
|
base[2]= (V108); |
626 |
|
base[3]= (V109); |
627 |
|
vs_top=(vs_base=base+0)+4; |
628 |
|
siLbit_array_op(); |
629 |
|
vs_top=sup; |
630 |
|
{object V110 = vs_base[0]; |
631 |
|
VMR13(V110)} |
632 |
|
va_end(ap); |
633 |
|
base[0]=base[0]; |
634 |
|
return Cnil;} |
635 |
|
} |
636 |
|
/* local entry for function BIT-XOR */ |
637 |
|
|
638 |
|
static object LI14(object V112,object V111,object first,...) |
639 |
|
{ |
640 |
|
va_list ap; |
641 |
|
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
642 |
|
{object V113; |
643 |
|
object V114; |
644 |
|
object V115; |
645 |
|
va_start(ap,first); |
646 |
|
if(narg <2) too_few_arguments(); |
647 |
|
V113= V112; |
648 |
|
V114= V111; |
649 |
|
narg = narg - 2; |
650 |
|
if (narg <= 0) goto T221; |
651 |
|
else { |
652 |
|
V115= first;} |
653 |
|
--narg; goto T222; |
654 |
|
goto T221; |
655 |
|
T221:; |
656 |
|
V115= Cnil; |
657 |
|
goto T222; |
658 |
|
T222:; |
659 |
|
base[0]= small_fixnum(6); |
660 |
|
base[1]= (V113); |
661 |
|
base[2]= (V114); |
662 |
|
base[3]= (V115); |
663 |
|
vs_top=(vs_base=base+0)+4; |
664 |
|
siLbit_array_op(); |
665 |
|
vs_top=sup; |
666 |
|
{object V116 = vs_base[0]; |
667 |
|
VMR14(V116)} |
668 |
|
va_end(ap); |
669 |
|
base[0]=base[0]; |
670 |
|
return Cnil;} |
671 |
|
} |
672 |
|
/* local entry for function BIT-EQV */ |
673 |
|
|
674 |
|
static object LI15(object V118,object V117,object first,...) |
675 |
|
{ |
676 |
|
va_list ap; |
677 |
|
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
678 |
|
{object V119; |
679 |
|
object V120; |
680 |
|
object V121; |
681 |
|
va_start(ap,first); |
682 |
|
if(narg <2) too_few_arguments(); |
683 |
|
V119= V118; |
684 |
|
V120= V117; |
685 |
|
narg = narg - 2; |
686 |
|
if (narg <= 0) goto T228; |
687 |
|
else { |
688 |
|
V121= first;} |
689 |
|
--narg; goto T229; |
690 |
|
goto T228; |
691 |
|
T228:; |
692 |
|
V121= Cnil; |
693 |
|
goto T229; |
694 |
|
T229:; |
695 |
|
base[0]= small_fixnum(9); |
696 |
|
base[1]= (V119); |
697 |
|
base[2]= (V120); |
698 |
|
base[3]= (V121); |
699 |
|
vs_top=(vs_base=base+0)+4; |
700 |
|
siLbit_array_op(); |
701 |
|
vs_top=sup; |
702 |
|
{object V122 = vs_base[0]; |
703 |
|
VMR15(V122)} |
704 |
|
va_end(ap); |
705 |
|
base[0]=base[0]; |
706 |
|
return Cnil;} |
707 |
|
} |
708 |
|
/* local entry for function BIT-NAND */ |
709 |
|
|
710 |
|
static object LI16(object V124,object V123,object first,...) |
711 |
|
{ |
712 |
|
va_list ap; |
713 |
|
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
714 |
|
{object V125; |
715 |
|
object V126; |
716 |
|
object V127; |
717 |
|
va_start(ap,first); |
718 |
|
if(narg <2) too_few_arguments(); |
719 |
|
V125= V124; |
720 |
|
V126= V123; |
721 |
|
narg = narg - 2; |
722 |
|
if (narg <= 0) goto T235; |
723 |
|
else { |
724 |
|
V127= first;} |
725 |
|
--narg; goto T236; |
726 |
|
goto T235; |
727 |
|
T235:; |
728 |
|
V127= Cnil; |
729 |
|
goto T236; |
730 |
|
T236:; |
731 |
|
base[0]= small_fixnum(14); |
732 |
|
base[1]= (V125); |
733 |
|
base[2]= (V126); |
734 |
|
base[3]= (V127); |
735 |
|
vs_top=(vs_base=base+0)+4; |
736 |
|
siLbit_array_op(); |
737 |
|
vs_top=sup; |
738 |
|
{object V128 = vs_base[0]; |
739 |
|
VMR16(V128)} |
740 |
|
va_end(ap); |
741 |
|
base[0]=base[0]; |
742 |
|
return Cnil;} |
743 |
|
} |
744 |
|
/* local entry for function BIT-NOR */ |
745 |
|
|
746 |
|
static object LI17(object V130,object V129,object first,...) |
747 |
|
{ |
748 |
|
va_list ap; |
749 |
|
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
750 |
|
{object V131; |
751 |
|
object V132; |
752 |
|
object V133; |
753 |
|
va_start(ap,first); |
754 |
|
if(narg <2) too_few_arguments(); |
755 |
|
V131= V130; |
756 |
|
V132= V129; |
757 |
|
narg = narg - 2; |
758 |
|
if (narg <= 0) goto T242; |
759 |
|
else { |
760 |
|
V133= first;} |
761 |
|
--narg; goto T243; |
762 |
|
goto T242; |
763 |
|
T242:; |
764 |
|
V133= Cnil; |
765 |
|
goto T243; |
766 |
|
T243:; |
767 |
|
base[0]= small_fixnum(8); |
768 |
|
base[1]= (V131); |
769 |
|
base[2]= (V132); |
770 |
|
base[3]= (V133); |
771 |
|
vs_top=(vs_base=base+0)+4; |
772 |
|
siLbit_array_op(); |
773 |
|
vs_top=sup; |
774 |
|
{object V134 = vs_base[0]; |
775 |
|
VMR17(V134)} |
776 |
|
va_end(ap); |
777 |
|
base[0]=base[0]; |
778 |
|
return Cnil;} |
779 |
|
} |
780 |
|
/* local entry for function BIT-ANDC1 */ |
781 |
|
|
782 |
|
static object LI18(object V136,object V135,object first,...) |
783 |
|
{ |
784 |
|
va_list ap; |
785 |
|
int narg = VFUN_NARGS; VMB18 VMS18 VMV18 |
786 |
|
{object V137; |
787 |
|
object V138; |
788 |
|
object V139; |
789 |
|
va_start(ap,first); |
790 |
|
if(narg <2) too_few_arguments(); |
791 |
|
V137= V136; |
792 |
|
V138= V135; |
793 |
|
narg = narg - 2; |
794 |
|
if (narg <= 0) goto T249; |
795 |
|
else { |
796 |
|
V139= first;} |
797 |
|
--narg; goto T250; |
798 |
|
goto T249; |
799 |
|
T249:; |
800 |
|
V139= Cnil; |
801 |
|
goto T250; |
802 |
|
T250:; |
803 |
|
base[0]= small_fixnum(4); |
804 |
|
base[1]= (V137); |
805 |
|
base[2]= (V138); |
806 |
|
base[3]= (V139); |
807 |
|
vs_top=(vs_base=base+0)+4; |
808 |
|
siLbit_array_op(); |
809 |
|
vs_top=sup; |
810 |
|
{object V140 = vs_base[0]; |
811 |
|
VMR18(V140)} |
812 |
|
va_end(ap); |
813 |
|
base[0]=base[0]; |
814 |
|
return Cnil;} |
815 |
|
} |
816 |
|
/* local entry for function BIT-ANDC2 */ |
817 |
|
|
818 |
|
static object LI19(object V142,object V141,object first,...) |
819 |
|
{ |
820 |
|
va_list ap; |
821 |
|
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
822 |
|
{object V143; |
823 |
|
object V144; |
824 |
|
object V145; |
825 |
|
va_start(ap,first); |
826 |
|
if(narg <2) too_few_arguments(); |
827 |
|
V143= V142; |
828 |
|
V144= V141; |
829 |
|
narg = narg - 2; |
830 |
|
if (narg <= 0) goto T256; |
831 |
|
else { |
832 |
|
V145= first;} |
833 |
|
--narg; goto T257; |
834 |
|
goto T256; |
835 |
|
T256:; |
836 |
|
V145= Cnil; |
837 |
|
goto T257; |
838 |
|
T257:; |
839 |
|
base[0]= small_fixnum(2); |
840 |
|
base[1]= (V143); |
841 |
|
base[2]= (V144); |
842 |
|
base[3]= (V145); |
843 |
|
vs_top=(vs_base=base+0)+4; |
844 |
|
siLbit_array_op(); |
845 |
|
vs_top=sup; |
846 |
|
{object V146 = vs_base[0]; |
847 |
|
VMR19(V146)} |
848 |
|
va_end(ap); |
849 |
|
base[0]=base[0]; |
850 |
|
return Cnil;} |
851 |
|
} |
852 |
|
/* local entry for function BIT-ORC1 */ |
853 |
|
|
854 |
|
static object LI20(object V148,object V147,object first,...) |
855 |
|
{ |
856 |
|
va_list ap; |
857 |
|
int narg = VFUN_NARGS; VMB20 VMS20 VMV20 |
858 |
|
{object V149; |
859 |
|
object V150; |
860 |
|
object V151; |
861 |
|
va_start(ap,first); |
862 |
|
if(narg <2) too_few_arguments(); |
863 |
|
V149= V148; |
864 |
|
V150= V147; |
865 |
|
narg = narg - 2; |
866 |
|
if (narg <= 0) goto T263; |
867 |
|
else { |
868 |
|
V151= first;} |
869 |
|
--narg; goto T264; |
870 |
|
goto T263; |
871 |
|
T263:; |
872 |
|
V151= Cnil; |
873 |
|
goto T264; |
874 |
|
T264:; |
875 |
|
base[0]= small_fixnum(13); |
876 |
|
base[1]= (V149); |
877 |
|
base[2]= (V150); |
878 |
|
base[3]= (V151); |
879 |
|
vs_top=(vs_base=base+0)+4; |
880 |
|
siLbit_array_op(); |
881 |
|
vs_top=sup; |
882 |
|
{object V152 = vs_base[0]; |
883 |
|
VMR20(V152)} |
884 |
|
va_end(ap); |
885 |
|
base[0]=base[0]; |
886 |
|
return Cnil;} |
887 |
|
} |
888 |
|
/* local entry for function BIT-ORC2 */ |
889 |
|
|
890 |
|
static object LI21(object V154,object V153,object first,...) |
891 |
|
{ |
892 |
|
va_list ap; |
893 |
|
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
894 |
|
{object V155; |
895 |
|
object V156; |
896 |
|
object V157; |
897 |
|
va_start(ap,first); |
898 |
|
if(narg <2) too_few_arguments(); |
899 |
|
V155= V154; |
900 |
|
V156= V153; |
901 |
|
narg = narg - 2; |
902 |
|
if (narg <= 0) goto T270; |
903 |
|
else { |
904 |
|
V157= first;} |
905 |
|
--narg; goto T271; |
906 |
|
goto T270; |
907 |
|
T270:; |
908 |
|
V157= Cnil; |
909 |
|
goto T271; |
910 |
|
T271:; |
911 |
|
base[0]= small_fixnum(11); |
912 |
|
base[1]= (V155); |
913 |
|
base[2]= (V156); |
914 |
|
base[3]= (V157); |
915 |
|
vs_top=(vs_base=base+0)+4; |
916 |
|
siLbit_array_op(); |
917 |
|
vs_top=sup; |
918 |
|
{object V158 = vs_base[0]; |
919 |
|
VMR21(V158)} |
920 |
|
va_end(ap); |
921 |
|
base[0]=base[0]; |
922 |
|
return Cnil;} |
923 |
|
} |
924 |
|
/* local entry for function BIT-NOT */ |
925 |
|
|
926 |
|
static object LI22(object V159,object first,...) |
927 |
|
{ |
928 |
|
va_list ap; |
929 |
|
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
930 |
|
{object V160; |
931 |
|
object V161; |
932 |
|
va_start(ap,first); |
933 |
|
if(narg <1) too_few_arguments(); |
934 |
|
V160= V159; |
935 |
|
narg = narg - 1; |
936 |
|
if (narg <= 0) goto T277; |
937 |
|
else { |
938 |
|
V161= first;} |
939 |
|
--narg; goto T278; |
940 |
|
goto T277; |
941 |
|
T277:; |
942 |
|
V161= Cnil; |
943 |
|
goto T278; |
944 |
|
T278:; |
945 |
|
base[0]= small_fixnum(12); |
946 |
|
base[1]= (V160); |
947 |
|
base[2]= (V160); |
948 |
|
base[3]= (V161); |
949 |
|
vs_top=(vs_base=base+0)+4; |
950 |
|
siLbit_array_op(); |
951 |
|
vs_top=sup; |
952 |
|
{object V162 = vs_base[0]; |
953 |
|
VMR22(V162)} |
954 |
|
va_end(ap); |
955 |
|
base[0]=base[0]; |
956 |
|
return Cnil;} |
957 |
|
} |
958 |
|
/* local entry for function VECTOR-PUSH */ |
959 |
|
|
960 |
|
static object LI23(V165,V166) |
961 |
|
|
962 |
|
object V165;register object V166; |
963 |
|
{ VMB23 VMS23 VMV23 |
964 |
|
goto TTL; |
965 |
|
TTL:; |
966 |
|
{register long V167; |
967 |
|
base[0]= (V166); |
968 |
|
vs_top=(vs_base=base+0)+1; |
969 |
|
Lfill_pointer(); |
970 |
|
vs_top=sup; |
971 |
|
V167= fix(vs_base[0]); |
972 |
|
base[0]= (V166); |
973 |
|
base[1]= small_fixnum(0); |
974 |
|
vs_top=(vs_base=base+0)+2; |
975 |
|
Larray_dimension(); |
976 |
|
vs_top=sup; |
977 |
|
V168= vs_base[0]; |
978 |
|
if(!((V167)<(fix(V168)))){ |
979 |
|
goto T287;} |
980 |
|
(void)(aset1((V166),V167,(V165))); |
981 |
|
base[0]= (V166); |
982 |
|
base[1]= make_fixnum((long)(V167)+1); |
983 |
|
vs_top=(vs_base=base+0)+2; |
984 |
|
siLfill_pointer_set(); |
985 |
|
vs_top=sup; |
986 |
|
{object V169 = make_fixnum(V167); |
987 |
|
VMR23(V169)} |
988 |
|
goto T287; |
989 |
|
T287:; |
990 |
|
{object V170 = Cnil; |
991 |
|
VMR23(V170)}} |
992 |
|
base[0]=base[0]; |
993 |
|
return Cnil; |
994 |
|
} |
995 |
|
/* local entry for function VECTOR-PUSH-EXTEND */ |
996 |
|
|
997 |
|
static object LI24(object V172,object V171,object first,...) |
998 |
|
{ |
999 |
|
va_list ap; |
1000 |
|
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1001 |
|
{object V173; |
1002 |
|
register object V174; |
1003 |
|
object V175; |
1004 |
|
va_start(ap,first); |
1005 |
|
if(narg <2) too_few_arguments(); |
1006 |
|
V173= V172; |
1007 |
|
V174= V171; |
1008 |
|
narg = narg - 2; |
1009 |
|
if (narg <= 0) goto T296; |
1010 |
|
else { |
1011 |
|
V175= first;} |
1012 |
|
--narg; goto T297; |
1013 |
|
goto T296; |
1014 |
|
T296:; |
1015 |
|
V175= Cnil; |
1016 |
|
goto T297; |
1017 |
|
T297:; |
1018 |
|
{register long V176; |
1019 |
|
base[0]= (V174); |
1020 |
|
vs_top=(vs_base=base+0)+1; |
1021 |
|
Lfill_pointer(); |
1022 |
|
vs_top=sup; |
1023 |
|
V176= fix(vs_base[0]); |
1024 |
|
base[0]= (V174); |
1025 |
|
base[1]= small_fixnum(0); |
1026 |
|
vs_top=(vs_base=base+0)+2; |
1027 |
|
Larray_dimension(); |
1028 |
|
vs_top=sup; |
1029 |
|
V177= vs_base[0]; |
1030 |
|
if(!((V176)<(fix(V177)))){ |
1031 |
|
goto T302;} |
1032 |
|
(void)(aset1((V174),V176,(V173))); |
1033 |
|
base[0]= (V174); |
1034 |
|
base[1]= make_fixnum((long)(V176)+1); |
1035 |
|
vs_top=(vs_base=base+0)+2; |
1036 |
|
siLfill_pointer_set(); |
1037 |
|
vs_top=sup; |
1038 |
|
{object V178 = make_fixnum(V176); |
1039 |
|
VMR24(V178)} |
1040 |
|
goto T302; |
1041 |
|
T302:; |
1042 |
|
base[0]= (V174); |
1043 |
|
base[1]= small_fixnum(0); |
1044 |
|
vs_top=(vs_base=base+0)+2; |
1045 |
|
Larray_dimension(); |
1046 |
|
vs_top=sup; |
1047 |
|
V179= vs_base[0]; |
1048 |
|
if((V175)!=Cnil){ |
1049 |
|
V180= (V175); |
1050 |
|
goto T315;} |
1051 |
|
base[0]= (V174); |
1052 |
|
base[1]= small_fixnum(0); |
1053 |
|
vs_top=(vs_base=base+0)+2; |
1054 |
|
Larray_dimension(); |
1055 |
|
vs_top=sup; |
1056 |
|
V181= vs_base[0]; |
1057 |
|
if(!((fix(V181))>(0))){ |
1058 |
|
goto T317;} |
1059 |
|
base[0]= (V174); |
1060 |
|
base[1]= small_fixnum(0); |
1061 |
|
vs_top=(vs_base=base+0)+2; |
1062 |
|
Larray_dimension(); |
1063 |
|
vs_top=sup; |
1064 |
|
V180= vs_base[0]; |
1065 |
|
goto T315; |
1066 |
|
goto T317; |
1067 |
|
T317:; |
1068 |
|
V180= small_fixnum(5); |
1069 |
|
goto T315; |
1070 |
|
T315:; |
1071 |
|
V182= number_plus(V179,V180); |
1072 |
|
V183= make_cons(/* INLINE-ARGS */V182,Cnil); |
1073 |
|
base[0]= (V174); |
1074 |
|
vs_top=(vs_base=base+0)+1; |
1075 |
|
Larray_element_type(); |
1076 |
|
vs_top=sup; |
1077 |
|
V184= vs_base[0]; |
1078 |
|
V185 = make_fixnum(V176); |
1079 |
|
(void)((VFUN_NARGS=6,(*(LnkLI29))((V174),/* INLINE-ARGS */V183,VV[8],V184,VV[11],V185))); |
1080 |
|
(void)(aset1((V174),V176,(V173))); |
1081 |
|
base[0]= (V174); |
1082 |
|
base[1]= make_fixnum((long)(V176)+1); |
1083 |
|
vs_top=(vs_base=base+0)+2; |
1084 |
|
siLfill_pointer_set(); |
1085 |
|
vs_top=sup; |
1086 |
|
{object V186 = make_fixnum(V176); |
1087 |
|
VMR24(V186)}} |
1088 |
|
va_end(ap); |
1089 |
|
base[0]=base[0]; |
1090 |
|
return Cnil;} |
1091 |
|
} |
1092 |
|
/* local entry for function VECTOR-POP */ |
1093 |
|
|
1094 |
|
static object LI25(V188) |
1095 |
|
|
1096 |
|
register object V188; |
1097 |
|
{ VMB25 VMS25 VMV25 |
1098 |
|
goto TTL; |
1099 |
|
TTL:; |
1100 |
|
{long V189; |
1101 |
|
base[0]= (V188); |
1102 |
|
vs_top=(vs_base=base+0)+1; |
1103 |
|
Lfill_pointer(); |
1104 |
|
vs_top=sup; |
1105 |
|
V189= fix(vs_base[0]); |
1106 |
|
if(!((V189)==(0))){ |
1107 |
|
goto T332;} |
1108 |
|
base[0]= VV[12]; |
1109 |
|
base[1]= (V188); |
1110 |
|
vs_top=(vs_base=base+0)+2; |
1111 |
|
Lerror(); |
1112 |
|
vs_top=sup; |
1113 |
|
goto T332; |
1114 |
|
T332:; |
1115 |
|
base[0]= (V188); |
1116 |
|
base[1]= make_fixnum((long)(V189)-1); |
1117 |
|
vs_top=(vs_base=base+0)+2; |
1118 |
|
siLfill_pointer_set(); |
1119 |
|
vs_top=sup; |
1120 |
|
{object V190 = aref1((V188),(long)(V189)-1); |
1121 |
|
VMR25(V190)}} |
1122 |
|
base[0]=base[0]; |
1123 |
|
return Cnil; |
1124 |
|
} |
1125 |
|
/* local entry for function ADJUST-ARRAY */ |
1126 |
|
|
1127 |
|
static object LI26(object V192,object V191,object first,...) |
1128 |
|
{ |
1129 |
|
va_list ap; |
1130 |
|
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1131 |
|
{register object V193; |
1132 |
|
register object V194; |
1133 |
|
register object V195; |
1134 |
|
object V196; |
1135 |
|
object V197; |
1136 |
|
object V198; |
1137 |
|
object V199; |
1138 |
|
object V200; |
1139 |
|
object V201; |
1140 |
|
object V202; |
1141 |
|
va_start(ap,first); |
1142 |
|
if(narg <2) too_few_arguments(); |
1143 |
|
V193= V192; |
1144 |
|
V194= V191; |
1145 |
|
narg= narg - 2; |
1146 |
|
V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg)); |
1147 |
|
V195= V203; |
1148 |
|
{ |
1149 |
|
parse_key_rest_new(V203,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap); |
1150 |
|
V196=(Vcs[3]); |
1151 |
|
V197=(Vcs[4]); |
1152 |
|
V198=(Vcs[5]); |
1153 |
|
V199=(Vcs[6]); |
1154 |
|
V200=(Vcs[7]); |
1155 |
|
V201=(Vcs[8]); |
1156 |
|
V202=(Vcs[9]); |
1157 |
|
{register object V204; |
1158 |
|
V204= Cnil; |
1159 |
|
if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){ |
1160 |
|
goto T341;} |
1161 |
|
V194= make_cons((V194),Cnil); |
1162 |
|
goto T341; |
1163 |
|
T341:; |
1164 |
|
{register object x= VV[11],V205= (V195); |
1165 |
|
while(!endp(V205)) |
1166 |
|
if(eql(x,V205->c.c_car)){ |
1167 |
|
V204= V205; |
1168 |
|
goto T349; |
1169 |
|
}else V205=V205->c.c_cdr; |
1170 |
|
V204= Cnil;} |
1171 |
|
goto T349; |
1172 |
|
T349:; |
1173 |
|
if(((V204))==Cnil){ |
1174 |
|
goto T347;} |
1175 |
|
base[0]= (V193); |
1176 |
|
vs_top=(vs_base=base+0)+1; |
1177 |
|
(void) (*Lnk30)(); |
1178 |
|
vs_top=sup; |
1179 |
|
if((vs_base[0])!=Cnil){ |
1180 |
|
goto T345;} |
1181 |
|
base[0]= VV[13]; |
1182 |
|
vs_top=(vs_base=base+0)+1; |
1183 |
|
Lerror(); |
1184 |
|
vs_top=sup; |
1185 |
|
goto T345; |
1186 |
|
goto T347; |
1187 |
|
T347:; |
1188 |
|
base[0]= (V193); |
1189 |
|
vs_top=(vs_base=base+0)+1; |
1190 |
|
(void) (*Lnk30)(); |
1191 |
|
vs_top=sup; |
1192 |
|
if((vs_base[0])==Cnil){ |
1193 |
|
goto T345;} |
1194 |
|
{object V206; |
1195 |
|
base[1]= (V193); |
1196 |
|
vs_top=(vs_base=base+1)+1; |
1197 |
|
Lfill_pointer(); |
1198 |
|
vs_top=sup; |
1199 |
|
V206= vs_base[0]; |
1200 |
|
V195= ON_STACK_CONS((V206),(V195));} |
1201 |
|
V195= ON_STACK_CONS(VV[11],(V195)); |
1202 |
|
goto T345; |
1203 |
|
T345:; |
1204 |
|
base[0]= (V193); |
1205 |
|
vs_top=(vs_base=base+0)+1; |
1206 |
|
Larray_element_type(); |
1207 |
|
vs_top=sup; |
1208 |
|
V196= vs_base[0]; |
1209 |
|
if(((V196))==(Ct)){ |
1210 |
|
goto T365;} |
1211 |
|
V195= ON_STACK_CONS(V196,(V195)); |
1212 |
|
V195= ON_STACK_CONS(VV[8],(V195)); |
1213 |
|
goto T365; |
1214 |
|
T365:; |
1215 |
|
{register object x= VV[14],V210= (V195); |
1216 |
|
while(!endp(V210)) |
1217 |
|
if(eql(x,V210->c.c_car)){ |
1218 |
|
goto T371; |
1219 |
|
}else V210=V210->c.c_cdr;} |
1220 |
|
{object V211; |
1221 |
|
base[1]= (V193); |
1222 |
|
vs_top=(vs_base=base+1)+1; |
1223 |
|
(void) (*Lnk31)(); |
1224 |
|
vs_top=sup; |
1225 |
|
V211= vs_base[0]; |
1226 |
|
V195= ON_STACK_CONS((V211),(V195));} |
1227 |
|
V195= ON_STACK_CONS(VV[14],(V195)); |
1228 |
|
goto T371; |
1229 |
|
T371:; |
1230 |
|
{register object V213; |
1231 |
|
base[0]= (V194); |
1232 |
|
base[1]= VV[15]; |
1233 |
|
base[2]= Ct; |
1234 |
|
{object V214; |
1235 |
|
V214= (V195); |
1236 |
|
vs_top=base+3; |
1237 |
|
while(!endp(V214)) |
1238 |
|
{vs_push(car(V214));V214=cdr(V214);} |
1239 |
|
vs_base=base+0;} |
1240 |
|
(void) (*Lnk28)(); |
1241 |
|
vs_top=sup; |
1242 |
|
V213= vs_base[0]; |
1243 |
|
if((cdr((V194)))==Cnil){ |
1244 |
|
goto T385;} |
1245 |
|
V215= cdr((V194)); |
1246 |
|
V216= (*(LnkLI32))((V193)); |
1247 |
|
if(!(equal(/* INLINE-ARGS */V215,cdr(/* INLINE-ARGS */V216)))){ |
1248 |
|
goto T386;} |
1249 |
|
if(!(((V196))==(VV[16]))){ |
1250 |
|
goto T385;} |
1251 |
|
base[0]= (V194); |
1252 |
|
vs_top=(vs_base=base+0)+1; |
1253 |
|
Llast(); |
1254 |
|
vs_top=sup; |
1255 |
|
V217= vs_base[0]; |
1256 |
|
{int V218= fix(car(V217)); |
1257 |
|
if(!((0)==((long)(V218>=0&&(8)>0?(V218)%(8):imod(V218,8))))){ |
1258 |
|
goto T386;}} |
1259 |
|
goto T385; |
1260 |
|
T385:; |
1261 |
|
base[0]= (V193); |
1262 |
|
base[1]= (V213); |
1263 |
|
base[2]= small_fixnum(0); |
1264 |
|
base[3]= small_fixnum(0); |
1265 |
|
base[5]= (V213); |
1266 |
|
vs_top=(vs_base=base+5)+1; |
1267 |
|
(void) (*Lnk33)(); |
1268 |
|
vs_top=sup; |
1269 |
|
V219= vs_base[0]; |
1270 |
|
base[5]= (V193); |
1271 |
|
vs_top=(vs_base=base+5)+1; |
1272 |
|
(void) (*Lnk33)(); |
1273 |
|
vs_top=sup; |
1274 |
|
V220= vs_base[0]; |
1275 |
|
base[4]= (number_compare(V219,V220)<=0?(V219):V220); |
1276 |
|
vs_top=(vs_base=base+0)+5; |
1277 |
|
(void) (*Lnk34)(); |
1278 |
|
vs_top=sup; |
1279 |
|
goto T384; |
1280 |
|
goto T386; |
1281 |
|
T386:; |
1282 |
|
{register object V221; |
1283 |
|
base[0]= make_fixnum((long)length((V194))); |
1284 |
|
base[1]= VV[7]; |
1285 |
|
base[2]= small_fixnum(0); |
1286 |
|
vs_top=(vs_base=base+0)+3; |
1287 |
|
Lmake_list(); |
1288 |
|
vs_top=sup; |
1289 |
|
V221= vs_base[0]; |
1290 |
|
goto T410; |
1291 |
|
T410:; |
1292 |
|
base[0]= (V193); |
1293 |
|
{object V222; |
1294 |
|
V222= (V221); |
1295 |
|
vs_top=base+1; |
1296 |
|
while(!endp(V222)) |
1297 |
|
{vs_push(car(V222));V222=cdr(V222);} |
1298 |
|
vs_base=base+0;} |
1299 |
|
(void) (*Lnk35)(); |
1300 |
|
vs_top=sup; |
1301 |
|
if((vs_base[0])==Cnil){ |
1302 |
|
goto T413;} |
1303 |
|
base[0]= (V213); |
1304 |
|
base[2]= (V193); |
1305 |
|
{object V223; |
1306 |
|
V223= (V221); |
1307 |
|
vs_top=base+3; |
1308 |
|
while(!endp(V223)) |
1309 |
|
{vs_push(car(V223));V223=cdr(V223);} |
1310 |
|
vs_base=base+2;} |
1311 |
|
Laref(); |
1312 |
|
vs_top=sup; |
1313 |
|
base[1]= vs_base[0]; |
1314 |
|
base[2]= (V221); |
1315 |
|
vs_top=(vs_base=base+0)+3; |
1316 |
|
(void) (*Lnk26)(); |
1317 |
|
vs_top=sup; |
1318 |
|
goto T413; |
1319 |
|
T413:; |
1320 |
|
if(((*(LnkLI27))((V221),(V194)))==Cnil){ |
1321 |
|
goto T423;} |
1322 |
|
goto T384; |
1323 |
|
goto T423; |
1324 |
|
T423:; |
1325 |
|
goto T410;} |
1326 |
|
goto T384; |
1327 |
|
T384:; |
1328 |
|
base[0]= (V193); |
1329 |
|
base[1]= (V213); |
1330 |
|
vs_top=(vs_base=base+0)+2; |
1331 |
|
siLreplace_array(); |
1332 |
|
vs_top=sup; |
1333 |
|
V204= cadr((V204)); |
1334 |
|
if(((V204))==Cnil){ |
1335 |
|
goto T433;} |
1336 |
|
if(!(eql(Ct,(V204)))){ |
1337 |
|
goto T437;} |
1338 |
|
base[0]= (V193); |
1339 |
|
base[2]= (V193); |
1340 |
|
vs_top=(vs_base=base+2)+1; |
1341 |
|
(void) (*Lnk33)(); |
1342 |
|
vs_top=sup; |
1343 |
|
base[1]= vs_base[0]; |
1344 |
|
vs_top=(vs_base=base+0)+2; |
1345 |
|
siLfill_pointer_set(); |
1346 |
|
vs_top=sup; |
1347 |
|
goto T433; |
1348 |
|
goto T437; |
1349 |
|
T437:; |
1350 |
|
if(!(type_of((V204))==t_fixnum)){ |
1351 |
|
goto T443;} |
1352 |
|
base[0]= (V193); |
1353 |
|
base[1]= (V204); |
1354 |
|
vs_top=(vs_base=base+0)+2; |
1355 |
|
siLfill_pointer_set(); |
1356 |
|
vs_top=sup; |
1357 |
|
goto T433; |
1358 |
|
goto T443; |
1359 |
|
T443:; |
1360 |
|
base[0]= VV[17]; |
1361 |
|
base[1]= (V204); |
1362 |
|
vs_top=(vs_base=base+0)+2; |
1363 |
|
Lerror(); |
1364 |
|
vs_top=sup; |
1365 |
|
goto T433; |
1366 |
|
T433:; |
1367 |
|
{object V224 = (V193); |
1368 |
|
VMR26(V224)}}} |
1369 |
|
va_end(ap); |
1370 |
|
base[0]=base[0]; |
1371 |
|
return Cnil;} |
1372 |
|
}} |
1373 |
|
static void LnkT35(){ call_or_link(VV[35],(void **)(void *)&Lnk35);} /* ARRAY-IN-BOUNDS-P */ |
1374 |
|
static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* COPY-ARRAY-PORTION */ |
1375 |
|
static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* ARRAY-TOTAL-SIZE */ |
1376 |
|
static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
1377 |
|
static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* MAKE-ARRAY */ |
1378 |
|
static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* STATICP */ |
1379 |
|
static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */ |
1380 |
|
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
1381 |
|
static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
1382 |
|
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */ |
1383 |
|
static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* ASET-BY-CURSOR */ |
1384 |
|
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */ |
1385 |
|
static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-ARRAY1 */ |
1386 |
|
static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* GET-AELTTYPE */ |
1387 |
|
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
1388 |
|
static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* SUBTYPEP */ |
1389 |
|
|
1390 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1391 |
|
SYSTEM_SPECIAL_INIT |
1392 |
|
#endif |
1393 |
|
|