1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "arraylib.h" |
#include "arraylib.h" |
4 |
init_arraylib(){do_init(VV);} |
void init_arraylib(){do_init(VV);} |
5 |
/* local entry for function BEST-ARRAY-ELEMENT-TYPE */ |
/* local entry for function BEST-ARRAY-ELEMENT-TYPE */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
register object V2; |
register object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
if(eql(Ct,(V2))){ |
if(eql(Ct,(V2))){ |
14 |
goto T1;} |
goto T1;} |
15 |
if(((V2))!=Cnil){ |
if(((V2))!=Cnil){ |
16 |
goto T2;} |
goto T2;} |
17 |
|
goto T1; |
18 |
T1:; |
T1:; |
19 |
{object V3 = Ct; |
{object V3 = Ct; |
20 |
VMR1(V3)} |
VMR1(V3)} |
21 |
|
goto T2; |
22 |
T2:; |
T2:; |
23 |
{register object x= (V2),V4= VV[0]; |
{register object x= (V2),V4= VV[0]; |
24 |
while(!endp(V4)) |
while(!endp(V4)) |
26 |
goto T8; |
goto T8; |
27 |
}else V4=V4->c.c_cdr; |
}else V4=V4->c.c_cdr; |
28 |
goto T7;} |
goto T7;} |
29 |
|
goto T8; |
30 |
T8:; |
T8:; |
31 |
{object V5 = (V2); |
{object V5 = (V2); |
32 |
VMR1(V5)} |
VMR1(V5)} |
33 |
|
goto T7; |
34 |
T7:; |
T7:; |
35 |
base[0]= (V2); |
base[0]= (V2); |
36 |
base[1]= VV[1]; |
base[1]= VV[1]; |
43 |
register object V7; |
register object V7; |
44 |
V6= VV[2]; |
V6= VV[2]; |
45 |
V7= car((V6)); |
V7= car((V6)); |
46 |
|
goto T17; |
47 |
T17:; |
T17:; |
48 |
if(!(endp((V6)))){ |
if(!(endp((V6)))){ |
49 |
goto T18;} |
goto T18;} |
50 |
{object V8 = VV[1]; |
{object V8 = VV[1]; |
51 |
VMR1(V8)} |
VMR1(V8)} |
52 |
|
goto T18; |
53 |
T18:; |
T18:; |
54 |
base[1]= (V2); |
base[1]= (V2); |
55 |
base[2]= (V7); |
base[2]= (V7); |
60 |
goto T22;} |
goto T22;} |
61 |
{object V9 = (V7); |
{object V9 = (V7); |
62 |
VMR1(V9)} |
VMR1(V9)} |
63 |
|
goto T22; |
64 |
T22:; |
T22:; |
65 |
V6= cdr((V6)); |
V6= cdr((V6)); |
66 |
V7= car((V6)); |
V7= car((V6)); |
67 |
goto T17;} |
goto T17;} |
68 |
|
goto T10; |
69 |
T10:; |
T10:; |
70 |
if(!(eql((V2),VV[3]))){ |
if(!(eql((V2),VV[3]))){ |
71 |
goto T33;} |
goto T33;} |
72 |
{object V10 = VV[4]; |
{object V10 = VV[4]; |
73 |
VMR1(V10)} |
VMR1(V10)} |
74 |
|
goto T33; |
75 |
T33:;{object V11; |
T33:;{object V11; |
76 |
{register object V12; |
{register object V12; |
77 |
register object V13; |
register object V13; |
78 |
V12= VV[5]; |
V12= VV[5]; |
79 |
V13= car((V12)); |
V13= car((V12)); |
80 |
|
goto T40; |
81 |
T40:; |
T40:; |
82 |
if(!(endp((V12)))){ |
if(!(endp((V12)))){ |
83 |
goto T41;} |
goto T41;} |
84 |
V11= Cnil; |
V11= Cnil; |
85 |
goto T36; |
goto T36; |
86 |
|
goto T41; |
87 |
T41:; |
T41:; |
88 |
base[1]= (V2); |
base[1]= (V2); |
89 |
base[2]= (V13); |
base[2]= (V13); |
94 |
goto T45;} |
goto T45;} |
95 |
V11= (V13); |
V11= (V13); |
96 |
goto T36; |
goto T36; |
97 |
|
goto T45; |
98 |
T45:; |
T45:; |
99 |
V12= cdr((V12)); |
V12= cdr((V12)); |
100 |
V13= car((V12)); |
V13= car((V12)); |
101 |
goto T40;} |
goto T40;} |
102 |
|
goto T36; |
103 |
T36:; |
T36:; |
104 |
if(V11==Cnil)goto T35; |
if(V11==Cnil)goto T35; |
105 |
{object V14 = V11; |
{object V14 = V11; |
106 |
VMR1(V14)} |
VMR1(V14)} |
107 |
|
goto T35; |
108 |
T35:;} |
T35:;} |
109 |
{object V15 = Ct; |
{object V15 = Ct; |
110 |
VMR1(V15)} |
VMR1(V15)} |
111 |
|
base[0]=base[0]; |
112 |
|
return Cnil; |
113 |
} |
} |
114 |
/* local entry for function MAKE-ARRAY */ |
/* local entry for function MAKE-ARRAY */ |
115 |
|
|
129 |
object V24; |
object V24; |
130 |
object V25; |
object V25; |
131 |
object V26; |
object V26; |
132 |
|
Vcs[0]=Vcs[0]; |
133 |
|
va_start(ap); |
134 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
135 |
V17= V16; |
V17= V16; |
136 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
137 |
{ |
{ |
138 |
parse_key_new(narg,Vcs +1,&LI2key,ap); |
parse_key_new(narg,Vcs +1,(struct key *)&LI2key,ap); |
139 |
if(Vcs[1]==0){ |
if(Vcs[1]==0){ |
140 |
V18= Ct; |
V18= Ct; |
141 |
}else{ |
}else{ |
155 |
if(!(type_of((V17))==t_fixnum||type_of((V17))==t_bignum)){ |
if(!(type_of((V17))==t_fixnum||type_of((V17))==t_bignum)){ |
156 |
goto T57;} |
goto T57;} |
157 |
V17= make_cons((V17),Cnil); |
V17= make_cons((V17),Cnil); |
158 |
|
goto T57; |
159 |
T57:; |
T57:; |
160 |
V18= (*(LnkLI22))((V18)); |
V18= (*(LnkLI22))((V18)); |
161 |
if(!((length((V17)))==(1))){ |
if(!((length((V17)))==(1))){ |
179 |
register long V29; |
register long V29; |
180 |
V28= fix(car((V17))); |
V28= fix(car((V17))); |
181 |
V29= 0; |
V29= 0; |
182 |
|
goto T81; |
183 |
T81:; |
T81:; |
184 |
if(!((V29)>=(V28))){ |
if(!((V29)>=(V28))){ |
185 |
goto T82;} |
goto T82;} |
186 |
goto T75; |
goto T75; |
187 |
|
goto T82; |
188 |
T82:; |
T82:; |
189 |
V30= elt((V20),V29); |
V30= elt((V20),V29); |
190 |
(void)(aset1((V27),V29,/* INLINE-ARGS */V30)); |
(void)(aset1((V27),V29,/* INLINE-ARGS */V30)); |
191 |
V29= (V29)+1; |
V29= (V29)+1; |
192 |
goto T81;} |
goto T81;} |
193 |
|
goto T75; |
194 |
T75:; |
T75:; |
195 |
{object V31 = (V27); |
{object V31 = (V27); |
196 |
VMR2(V31)}} |
VMR2(V31)}} |
197 |
|
goto T64; |
198 |
T64:; |
T64:; |
199 |
{register object V32; |
{register object V32; |
200 |
base[1]= (V18); |
base[1]= (V18); |
217 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
218 |
Lerror(); |
Lerror(); |
219 |
vs_top=sup; |
vs_top=sup; |
220 |
|
goto T98; |
221 |
T98:; |
T98:; |
222 |
{register object x= small_fixnum(0),V33= (V17); |
{register object x= small_fixnum(0),V33= (V17); |
223 |
while(!endp(V33)) |
while(!endp(V33)) |
234 |
Lmake_list(); |
Lmake_list(); |
235 |
vs_top=sup; |
vs_top=sup; |
236 |
V34= vs_base[0]; |
V34= vs_base[0]; |
237 |
|
goto T112; |
238 |
T112:; |
T112:; |
239 |
base[0]= (V32); |
base[0]= (V32); |
240 |
base[1]= (*(LnkLI25))((V20),(V34)); |
base[1]= (*(LnkLI25))((V20),(V34)); |
245 |
if(((*(LnkLI27))((V34),(V17)))==Cnil){ |
if(((*(LnkLI27))((V34),(V17)))==Cnil){ |
246 |
goto T119;} |
goto T119;} |
247 |
goto T102; |
goto T102; |
248 |
|
goto T119; |
249 |
T119:; |
T119:; |
250 |
goto T112;} |
goto T112;} |
251 |
|
goto T102; |
252 |
T102:; |
T102:; |
253 |
{object V35 = (V32); |
{object V35 = (V32); |
254 |
VMR2(V35)}}} |
VMR2(V35)}} |
255 |
|
va_end(ap); |
256 |
|
base[0]=base[0]; |
257 |
|
return Cnil;} |
258 |
}} |
}} |
259 |
/* local entry for function INCREMENT-CURSOR */ |
/* local entry for function INCREMENT-CURSOR */ |
260 |
|
|
262 |
|
|
263 |
register object V38;object V39; |
register object V38;object V39; |
264 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
265 |
|
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
if(((V38))!=Cnil){ |
if(((V38))!=Cnil){ |
268 |
goto T125;} |
goto T125;} |
269 |
{object V40 = Ct; |
{object V40 = Ct; |
270 |
VMR3(V40)} |
VMR3(V40)} |
271 |
|
goto T125; |
272 |
T125:; |
T125:; |
273 |
{object V41; |
{object V41; |
274 |
V41= (*(LnkLI27))(cdr((V38)),cdr((V39))); |
V41= (*(LnkLI27))(cdr((V38)),cdr((V39))); |
280 |
((V38))->c.c_car = small_fixnum(0); |
((V38))->c.c_car = small_fixnum(0); |
281 |
{object V42 = Ct; |
{object V42 = Ct; |
282 |
VMR3(V42)} |
VMR3(V42)} |
283 |
|
goto T132; |
284 |
T132:; |
T132:; |
285 |
V43 = make_fixnum((fix(car((V38))))+1); |
V43 = make_fixnum((fix(car((V38))))+1); |
286 |
if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38)); |
if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38)); |
287 |
((V38))->c.c_car = V43; |
((V38))->c.c_car = V43; |
288 |
{object V44 = Cnil; |
{object V44 = Cnil; |
289 |
VMR3(V44)} |
VMR3(V44)} |
290 |
|
goto T129; |
291 |
T129:; |
T129:; |
292 |
{object V45 = Cnil; |
{object V45 = Cnil; |
293 |
VMR3(V45)}} |
VMR3(V45)}} |
294 |
|
return Cnil; |
295 |
} |
} |
296 |
/* local entry for function SEQUENCE-CURSOR */ |
/* local entry for function SEQUENCE-CURSOR */ |
297 |
|
|
299 |
|
|
300 |
object V48;object V49; |
object V48;object V49; |
301 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
302 |
|
goto TTL; |
303 |
TTL:; |
TTL:; |
304 |
if(((V49))!=Cnil){ |
if(((V49))!=Cnil){ |
305 |
goto T137;} |
goto T137;} |
306 |
{object V50 = (V48); |
{object V50 = (V48); |
307 |
VMR4(V50)} |
VMR4(V50)} |
308 |
|
goto T137; |
309 |
T137:; |
T137:; |
310 |
V48= elt((V48),fix(car((V49)))); |
V48= elt((V48),fix(car((V49)))); |
311 |
V49= cdr((V49)); |
V49= cdr((V49)); |
312 |
goto TTL; |
goto TTL; |
313 |
|
return Cnil; |
314 |
} |
} |
315 |
/* local entry for function VECTOR */ |
/* local entry for function VECTOR */ |
316 |
|
|
320 |
va_list ap; |
va_list ap; |
321 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
322 |
{object V51; |
{object V51; |
323 |
narg= narg - 0; |
Vcs[0]=Vcs[0]; |
324 |
va_start(ap); |
va_start(ap); |
325 |
|
narg= narg - 0; |
326 |
V52 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
V52 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
327 |
V51= V52; |
V51= V52; |
328 |
{object V53; |
{object V53; |
329 |
V54 = make_fixnum(length((V51))); |
V54 = make_fixnum(length((V51))); |
330 |
V53= make_cons(V54,Cnil); |
V53= make_cons(V54,Cnil); |
331 |
{object V55 = (VFUN_NARGS=5,(*(LnkLI28))((V53),VV[8],Ct,VV[9],(V51))); |
{object V55 = (VFUN_NARGS=5,(*(LnkLI28))((V53),VV[8],Ct,VV[9],(V51))); |
332 |
VMR5(V55)}}} |
VMR5(V55)}} |
333 |
|
va_end(ap); |
334 |
|
base[0]=base[0]; |
335 |
|
return Cnil;} |
336 |
} |
} |
337 |
/* local entry for function ARRAY-DIMENSIONS */ |
/* local entry for function ARRAY-DIMENSIONS */ |
338 |
|
|
340 |
|
|
341 |
register object V57; |
register object V57; |
342 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
343 |
|
goto TTL; |
344 |
TTL:; |
TTL:; |
345 |
{register object V58; |
{register object V58; |
346 |
register object V59; |
register object V59; |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
V58= vs_base[0]; |
V58= vs_base[0]; |
352 |
V59= Cnil; |
V59= Cnil; |
353 |
|
goto T146; |
354 |
T146:; |
T146:; |
355 |
if(!(number_compare((V58),small_fixnum(0))==0)){ |
if(!(number_compare((V58),small_fixnum(0))==0)){ |
356 |
goto T147;} |
goto T147;} |
357 |
{object V60 = (V59); |
{object V60 = (V59); |
358 |
VMR6(V60)} |
VMR6(V60)} |
359 |
|
goto T147; |
360 |
T147:; |
T147:; |
361 |
V58= one_minus((V58)); |
V58= one_minus((V58)); |
362 |
base[0]= (V57); |
base[0]= (V57); |
367 |
V61= vs_base[0]; |
V61= vs_base[0]; |
368 |
V59= make_cons(V61,(V59)); |
V59= make_cons(V61,(V59)); |
369 |
goto T146;} |
goto T146;} |
370 |
|
base[0]=base[0]; |
371 |
|
return Cnil; |
372 |
} |
} |
373 |
/* local entry for function ARRAY-IN-BOUNDS-P */ |
/* local entry for function ARRAY-IN-BOUNDS-P */ |
374 |
|
|
380 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
381 |
{register object V63; |
{register object V63; |
382 |
object V64; |
object V64; |
383 |
|
Vcs[0]=Vcs[0]; |
384 |
|
va_start(ap); |
385 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
386 |
V63= V62; |
V63= V62; |
387 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
388 |
V65 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
V65 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
389 |
V64= V65; |
V64= V65; |
390 |
{register object V66; |
{register object V66; |
402 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
403 |
Lerror(); |
Lerror(); |
404 |
vs_top=sup; |
vs_top=sup; |
405 |
|
goto T162; |
406 |
T162:; |
T162:; |
407 |
{register object V68; |
{register object V68; |
408 |
register object V69; |
register object V69; |
409 |
V68= small_fixnum(0); |
V68= small_fixnum(0); |
410 |
V69= (V64); |
V69= (V64); |
411 |
|
goto T169; |
412 |
T169:; |
T169:; |
413 |
if(!(number_compare((V68),(V66))>=0)){ |
if(!(number_compare((V68),(V66))>=0)){ |
414 |
goto T170;} |
goto T170;} |
415 |
{object V70 = Ct; |
{object V70 = Ct; |
416 |
VMR7(V70)} |
VMR7(V70)} |
417 |
|
goto T170; |
418 |
T170:; |
T170:; |
419 |
if(number_compare(car((V69)),small_fixnum(0))<0){ |
if(number_compare(car((V69)),small_fixnum(0))<0){ |
420 |
goto T175;} |
goto T175;} |
427 |
V72= vs_base[0]; |
V72= vs_base[0]; |
428 |
if(!(number_compare(/* INLINE-ARGS */V71,V72)>=0)){ |
if(!(number_compare(/* INLINE-ARGS */V71,V72)>=0)){ |
429 |
goto T174;} |
goto T174;} |
430 |
|
goto T175; |
431 |
T175:; |
T175:; |
432 |
{object V73 = Cnil; |
{object V73 = Cnil; |
433 |
VMR7(V73)} |
VMR7(V73)} |
434 |
|
goto T174; |
435 |
T174:; |
T174:; |
436 |
V68= one_plus((V68)); |
V68= one_plus((V68)); |
437 |
V69= cdr((V69)); |
V69= cdr((V69)); |
438 |
goto T169;}}} |
goto T169;}} |
439 |
|
va_end(ap); |
440 |
|
base[0]=base[0]; |
441 |
|
return Cnil;} |
442 |
} |
} |
443 |
/* local entry for function ARRAY-ROW-MAJOR-INDEX */ |
/* local entry for function ARRAY-ROW-MAJOR-INDEX */ |
444 |
|
|
450 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
451 |
{register object V75; |
{register object V75; |
452 |
object V76; |
object V76; |
453 |
|
Vcs[0]=Vcs[0]; |
454 |
|
va_start(ap); |
455 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
456 |
V75= V74; |
V75= V74; |
457 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
458 |
V77 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
V77 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
459 |
V76= V77; |
V76= V77; |
460 |
{register object V78; |
{register object V78; |
463 |
V78= small_fixnum(0); |
V78= small_fixnum(0); |
464 |
V79= small_fixnum(0); |
V79= small_fixnum(0); |
465 |
V80= (V76); |
V80= (V76); |
466 |
|
goto T187; |
467 |
T187:; |
T187:; |
468 |
if(((V80))!=Cnil){ |
if(((V80))!=Cnil){ |
469 |
goto T188;} |
goto T188;} |
470 |
{object V81 = (V79); |
{object V81 = (V79); |
471 |
VMR8(V81)} |
VMR8(V81)} |
472 |
|
goto T188; |
473 |
T188:; |
T188:; |
474 |
{object V82; |
{object V82; |
475 |
V82= one_plus((V78)); |
V82= one_plus((V78)); |
483 |
V79= number_plus(/* INLINE-ARGS */V84,car((V80))); |
V79= number_plus(/* INLINE-ARGS */V84,car((V80))); |
484 |
V80= cdr((V80)); |
V80= cdr((V80)); |
485 |
V78= (V82);} |
V78= (V82);} |
486 |
goto T187;}} |
goto T187;} |
487 |
|
va_end(ap); |
488 |
|
base[0]=base[0]; |
489 |
|
return Cnil;} |
490 |
} |
} |
491 |
/* local entry for function BIT */ |
/* local entry for function BIT */ |
492 |
|
|
498 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
499 |
{object V86; |
{object V86; |
500 |
object V87; |
object V87; |
501 |
|
Vcs[0]=Vcs[0]; |
502 |
|
va_start(ap); |
503 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
504 |
V86= V85; |
V86= V85; |
505 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
506 |
V88 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
V88 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
507 |
V87= V88; |
V87= V88; |
508 |
base[0]= (V86); |
base[0]= (V86); |
515 |
Laref(); |
Laref(); |
516 |
vs_top=sup; |
vs_top=sup; |
517 |
{object V90 = vs_base[0]; |
{object V90 = vs_base[0]; |
518 |
VMR9(V90)}} |
VMR9(V90)} |
519 |
|
va_end(ap); |
520 |
|
base[0]=base[0]; |
521 |
|
return Cnil;} |
522 |
} |
} |
523 |
/* local entry for function SBIT */ |
/* local entry for function SBIT */ |
524 |
|
|
530 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
531 |
{object V92; |
{object V92; |
532 |
object V93; |
object V93; |
533 |
|
Vcs[0]=Vcs[0]; |
534 |
|
va_start(ap); |
535 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
536 |
V92= V91; |
V92= V91; |
537 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
538 |
V94 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
V94 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap)); |
539 |
V93= V94; |
V93= V94; |
540 |
base[0]= (V92); |
base[0]= (V92); |
547 |
Laref(); |
Laref(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
{object V96 = vs_base[0]; |
{object V96 = vs_base[0]; |
550 |
VMR10(V96)}} |
VMR10(V96)} |
551 |
|
va_end(ap); |
552 |
|
base[0]=base[0]; |
553 |
|
return Cnil;} |
554 |
} |
} |
555 |
/* local entry for function BIT-AND */ |
/* local entry for function BIT-AND */ |
556 |
|
|
563 |
{object V99; |
{object V99; |
564 |
object V100; |
object V100; |
565 |
object V101; |
object V101; |
566 |
|
Vcs[0]=Vcs[0]; |
567 |
|
va_start(ap); |
568 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
569 |
V99= V98; |
V99= V98; |
570 |
V100= V97; |
V100= V97; |
571 |
narg = narg - 2; |
narg = narg - 2; |
572 |
if (narg <= 0) goto T204; |
if (narg <= 0) goto T204; |
573 |
else { |
else { |
|
va_start(ap); |
|
574 |
V101= va_arg(ap,object);} |
V101= va_arg(ap,object);} |
575 |
--narg; goto T205; |
--narg; goto T205; |
576 |
|
goto T204; |
577 |
T204:; |
T204:; |
578 |
V101= Cnil; |
V101= Cnil; |
579 |
|
goto T205; |
580 |
T205:; |
T205:; |
581 |
base[0]= small_fixnum(1); |
base[0]= small_fixnum(1); |
582 |
base[1]= (V99); |
base[1]= (V99); |
586 |
siLbit_array_op(); |
siLbit_array_op(); |
587 |
vs_top=sup; |
vs_top=sup; |
588 |
{object V102 = vs_base[0]; |
{object V102 = vs_base[0]; |
589 |
VMR11(V102)}} |
VMR11(V102)} |
590 |
|
va_end(ap); |
591 |
|
base[0]=base[0]; |
592 |
|
return Cnil;} |
593 |
} |
} |
594 |
/* local entry for function BIT-IOR */ |
/* local entry for function BIT-IOR */ |
595 |
|
|
602 |
{object V105; |
{object V105; |
603 |
object V106; |
object V106; |
604 |
object V107; |
object V107; |
605 |
|
Vcs[0]=Vcs[0]; |
606 |
|
va_start(ap); |
607 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
608 |
V105= V104; |
V105= V104; |
609 |
V106= V103; |
V106= V103; |
610 |
narg = narg - 2; |
narg = narg - 2; |
611 |
if (narg <= 0) goto T211; |
if (narg <= 0) goto T211; |
612 |
else { |
else { |
|
va_start(ap); |
|
613 |
V107= va_arg(ap,object);} |
V107= va_arg(ap,object);} |
614 |
--narg; goto T212; |
--narg; goto T212; |
615 |
|
goto T211; |
616 |
T211:; |
T211:; |
617 |
V107= Cnil; |
V107= Cnil; |
618 |
|
goto T212; |
619 |
T212:; |
T212:; |
620 |
base[0]= small_fixnum(7); |
base[0]= small_fixnum(7); |
621 |
base[1]= (V105); |
base[1]= (V105); |
625 |
siLbit_array_op(); |
siLbit_array_op(); |
626 |
vs_top=sup; |
vs_top=sup; |
627 |
{object V108 = vs_base[0]; |
{object V108 = vs_base[0]; |
628 |
VMR12(V108)}} |
VMR12(V108)} |
629 |
|
va_end(ap); |
630 |
|
base[0]=base[0]; |
631 |
|
return Cnil;} |
632 |
} |
} |
633 |
/* local entry for function BIT-XOR */ |
/* local entry for function BIT-XOR */ |
634 |
|
|
641 |
{object V111; |
{object V111; |
642 |
object V112; |
object V112; |
643 |
object V113; |
object V113; |
644 |
|
Vcs[0]=Vcs[0]; |
645 |
|
va_start(ap); |
646 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
647 |
V111= V110; |
V111= V110; |
648 |
V112= V109; |
V112= V109; |
649 |
narg = narg - 2; |
narg = narg - 2; |
650 |
if (narg <= 0) goto T218; |
if (narg <= 0) goto T218; |
651 |
else { |
else { |
|
va_start(ap); |
|
652 |
V113= va_arg(ap,object);} |
V113= va_arg(ap,object);} |
653 |
--narg; goto T219; |
--narg; goto T219; |
654 |
|
goto T218; |
655 |
T218:; |
T218:; |
656 |
V113= Cnil; |
V113= Cnil; |
657 |
|
goto T219; |
658 |
T219:; |
T219:; |
659 |
base[0]= small_fixnum(6); |
base[0]= small_fixnum(6); |
660 |
base[1]= (V111); |
base[1]= (V111); |
664 |
siLbit_array_op(); |
siLbit_array_op(); |
665 |
vs_top=sup; |
vs_top=sup; |
666 |
{object V114 = vs_base[0]; |
{object V114 = vs_base[0]; |
667 |
VMR13(V114)}} |
VMR13(V114)} |
668 |
|
va_end(ap); |
669 |
|
base[0]=base[0]; |
670 |
|
return Cnil;} |
671 |
} |
} |
672 |
/* local entry for function BIT-EQV */ |
/* local entry for function BIT-EQV */ |
673 |
|
|
680 |
{object V117; |
{object V117; |
681 |
object V118; |
object V118; |
682 |
object V119; |
object V119; |
683 |
|
Vcs[0]=Vcs[0]; |
684 |
|
va_start(ap); |
685 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
686 |
V117= V116; |
V117= V116; |
687 |
V118= V115; |
V118= V115; |
688 |
narg = narg - 2; |
narg = narg - 2; |
689 |
if (narg <= 0) goto T225; |
if (narg <= 0) goto T225; |
690 |
else { |
else { |
|
va_start(ap); |
|
691 |
V119= va_arg(ap,object);} |
V119= va_arg(ap,object);} |
692 |
--narg; goto T226; |
--narg; goto T226; |
693 |
|
goto T225; |
694 |
T225:; |
T225:; |
695 |
V119= Cnil; |
V119= Cnil; |
696 |
|
goto T226; |
697 |
T226:; |
T226:; |
698 |
base[0]= small_fixnum(9); |
base[0]= small_fixnum(9); |
699 |
base[1]= (V117); |
base[1]= (V117); |
703 |
siLbit_array_op(); |
siLbit_array_op(); |
704 |
vs_top=sup; |
vs_top=sup; |
705 |
{object V120 = vs_base[0]; |
{object V120 = vs_base[0]; |
706 |
VMR14(V120)}} |
VMR14(V120)} |
707 |
|
va_end(ap); |
708 |
|
base[0]=base[0]; |
709 |
|
return Cnil;} |
710 |
} |
} |
711 |
/* local entry for function BIT-NAND */ |
/* local entry for function BIT-NAND */ |
712 |
|
|
719 |
{object V123; |
{object V123; |
720 |
object V124; |
object V124; |
721 |
object V125; |
object V125; |
722 |
|
Vcs[0]=Vcs[0]; |
723 |
|
va_start(ap); |
724 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
725 |
V123= V122; |
V123= V122; |
726 |
V124= V121; |
V124= V121; |
727 |
narg = narg - 2; |
narg = narg - 2; |
728 |
if (narg <= 0) goto T232; |
if (narg <= 0) goto T232; |
729 |
else { |
else { |
|
va_start(ap); |
|
730 |
V125= va_arg(ap,object);} |
V125= va_arg(ap,object);} |
731 |
--narg; goto T233; |
--narg; goto T233; |
732 |
|
goto T232; |
733 |
T232:; |
T232:; |
734 |
V125= Cnil; |
V125= Cnil; |
735 |
|
goto T233; |
736 |
T233:; |
T233:; |
737 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
738 |
base[1]= (V123); |
base[1]= (V123); |
742 |
siLbit_array_op(); |
siLbit_array_op(); |
743 |
vs_top=sup; |
vs_top=sup; |
744 |
{object V126 = vs_base[0]; |
{object V126 = vs_base[0]; |
745 |
VMR15(V126)}} |
VMR15(V126)} |
746 |
|
va_end(ap); |
747 |
|
base[0]=base[0]; |
748 |
|
return Cnil;} |
749 |
} |
} |
750 |
/* local entry for function BIT-NOR */ |
/* local entry for function BIT-NOR */ |
751 |
|
|
758 |
{object V129; |
{object V129; |
759 |
object V130; |
object V130; |
760 |
object V131; |
object V131; |
761 |
|
Vcs[0]=Vcs[0]; |
762 |
|
va_start(ap); |
763 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
764 |
V129= V128; |
V129= V128; |
765 |
V130= V127; |
V130= V127; |
766 |
narg = narg - 2; |
narg = narg - 2; |
767 |
if (narg <= 0) goto T239; |
if (narg <= 0) goto T239; |
768 |
else { |
else { |
|
va_start(ap); |
|
769 |
V131= va_arg(ap,object);} |
V131= va_arg(ap,object);} |
770 |
--narg; goto T240; |
--narg; goto T240; |
771 |
|
goto T239; |
772 |
T239:; |
T239:; |
773 |
V131= Cnil; |
V131= Cnil; |
774 |
|
goto T240; |
775 |
T240:; |
T240:; |
776 |
base[0]= small_fixnum(8); |
base[0]= small_fixnum(8); |
777 |
base[1]= (V129); |
base[1]= (V129); |
781 |
siLbit_array_op(); |
siLbit_array_op(); |
782 |
vs_top=sup; |
vs_top=sup; |
783 |
{object V132 = vs_base[0]; |
{object V132 = vs_base[0]; |
784 |
VMR16(V132)}} |
VMR16(V132)} |
785 |
|
va_end(ap); |
786 |
|
base[0]=base[0]; |
787 |
|
return Cnil;} |
788 |
} |
} |
789 |
/* local entry for function BIT-ANDC1 */ |
/* local entry for function BIT-ANDC1 */ |
790 |
|
|
797 |
{object V135; |
{object V135; |
798 |
object V136; |
object V136; |
799 |
object V137; |
object V137; |
800 |
|
Vcs[0]=Vcs[0]; |
801 |
|
va_start(ap); |
802 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
803 |
V135= V134; |
V135= V134; |
804 |
V136= V133; |
V136= V133; |
805 |
narg = narg - 2; |
narg = narg - 2; |
806 |
if (narg <= 0) goto T246; |
if (narg <= 0) goto T246; |
807 |
else { |
else { |
|
va_start(ap); |
|
808 |
V137= va_arg(ap,object);} |
V137= va_arg(ap,object);} |
809 |
--narg; goto T247; |
--narg; goto T247; |
810 |
|
goto T246; |
811 |
T246:; |
T246:; |
812 |
V137= Cnil; |
V137= Cnil; |
813 |
|
goto T247; |
814 |
T247:; |
T247:; |
815 |
base[0]= small_fixnum(4); |
base[0]= small_fixnum(4); |
816 |
base[1]= (V135); |
base[1]= (V135); |
820 |
siLbit_array_op(); |
siLbit_array_op(); |
821 |
vs_top=sup; |
vs_top=sup; |
822 |
{object V138 = vs_base[0]; |
{object V138 = vs_base[0]; |
823 |
VMR17(V138)}} |
VMR17(V138)} |
824 |
|
va_end(ap); |
825 |
|
base[0]=base[0]; |
826 |
|
return Cnil;} |
827 |
} |
} |
828 |
/* local entry for function BIT-ANDC2 */ |
/* local entry for function BIT-ANDC2 */ |
829 |
|
|
836 |
{object V141; |
{object V141; |
837 |
object V142; |
object V142; |
838 |
object V143; |
object V143; |
839 |
|
Vcs[0]=Vcs[0]; |
840 |
|
va_start(ap); |
841 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
842 |
V141= V140; |
V141= V140; |
843 |
V142= V139; |
V142= V139; |
844 |
narg = narg - 2; |
narg = narg - 2; |
845 |
if (narg <= 0) goto T253; |
if (narg <= 0) goto T253; |
846 |
else { |
else { |
|
va_start(ap); |
|
847 |
V143= va_arg(ap,object);} |
V143= va_arg(ap,object);} |
848 |
--narg; goto T254; |
--narg; goto T254; |
849 |
|
goto T253; |
850 |
T253:; |
T253:; |
851 |
V143= Cnil; |
V143= Cnil; |
852 |
|
goto T254; |
853 |
T254:; |
T254:; |
854 |
base[0]= small_fixnum(2); |
base[0]= small_fixnum(2); |
855 |
base[1]= (V141); |
base[1]= (V141); |
859 |
siLbit_array_op(); |
siLbit_array_op(); |
860 |
vs_top=sup; |
vs_top=sup; |
861 |
{object V144 = vs_base[0]; |
{object V144 = vs_base[0]; |
862 |
VMR18(V144)}} |
VMR18(V144)} |
863 |
|
va_end(ap); |
864 |
|
base[0]=base[0]; |
865 |
|
return Cnil;} |
866 |
} |
} |
867 |
/* local entry for function BIT-ORC1 */ |
/* local entry for function BIT-ORC1 */ |
868 |
|
|
875 |
{object V147; |
{object V147; |
876 |
object V148; |
object V148; |
877 |
object V149; |
object V149; |
878 |
|
Vcs[0]=Vcs[0]; |
879 |
|
va_start(ap); |
880 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
881 |
V147= V146; |
V147= V146; |
882 |
V148= V145; |
V148= V145; |
883 |
narg = narg - 2; |
narg = narg - 2; |
884 |
if (narg <= 0) goto T260; |
if (narg <= 0) goto T260; |
885 |
else { |
else { |
|
va_start(ap); |
|
886 |
V149= va_arg(ap,object);} |
V149= va_arg(ap,object);} |
887 |
--narg; goto T261; |
--narg; goto T261; |
888 |
|
goto T260; |
889 |
T260:; |
T260:; |
890 |
V149= Cnil; |
V149= Cnil; |
891 |
|
goto T261; |
892 |
T261:; |
T261:; |
893 |
base[0]= small_fixnum(13); |
base[0]= small_fixnum(13); |
894 |
base[1]= (V147); |
base[1]= (V147); |
898 |
siLbit_array_op(); |
siLbit_array_op(); |
899 |
vs_top=sup; |
vs_top=sup; |
900 |
{object V150 = vs_base[0]; |
{object V150 = vs_base[0]; |
901 |
VMR19(V150)}} |
VMR19(V150)} |
902 |
|
va_end(ap); |
903 |
|
base[0]=base[0]; |
904 |
|
return Cnil;} |
905 |
} |
} |
906 |
/* local entry for function BIT-ORC2 */ |
/* local entry for function BIT-ORC2 */ |
907 |
|
|
914 |
{object V153; |
{object V153; |
915 |
object V154; |
object V154; |
916 |
object V155; |
object V155; |
917 |
|
Vcs[0]=Vcs[0]; |
918 |
|
va_start(ap); |
919 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
920 |
V153= V152; |
V153= V152; |
921 |
V154= V151; |
V154= V151; |
922 |
narg = narg - 2; |
narg = narg - 2; |
923 |
if (narg <= 0) goto T267; |
if (narg <= 0) goto T267; |
924 |
else { |
else { |
|
va_start(ap); |
|
925 |
V155= va_arg(ap,object);} |
V155= va_arg(ap,object);} |
926 |
--narg; goto T268; |
--narg; goto T268; |
927 |
|
goto T267; |
928 |
T267:; |
T267:; |
929 |
V155= Cnil; |
V155= Cnil; |
930 |
|
goto T268; |
931 |
T268:; |
T268:; |
932 |
base[0]= small_fixnum(11); |
base[0]= small_fixnum(11); |
933 |
base[1]= (V153); |
base[1]= (V153); |
937 |
siLbit_array_op(); |
siLbit_array_op(); |
938 |
vs_top=sup; |
vs_top=sup; |
939 |
{object V156 = vs_base[0]; |
{object V156 = vs_base[0]; |
940 |
VMR20(V156)}} |
VMR20(V156)} |
941 |
|
va_end(ap); |
942 |
|
base[0]=base[0]; |
943 |
|
return Cnil;} |
944 |
} |
} |
945 |
/* local entry for function BIT-NOT */ |
/* local entry for function BIT-NOT */ |
946 |
|
|
952 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
953 |
{object V158; |
{object V158; |
954 |
object V159; |
object V159; |
955 |
|
Vcs[0]=Vcs[0]; |
956 |
|
va_start(ap); |
957 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
958 |
V158= V157; |
V158= V157; |
959 |
narg = narg - 1; |
narg = narg - 1; |
960 |
if (narg <= 0) goto T274; |
if (narg <= 0) goto T274; |
961 |
else { |
else { |
|
va_start(ap); |
|
962 |
V159= va_arg(ap,object);} |
V159= va_arg(ap,object);} |
963 |
--narg; goto T275; |
--narg; goto T275; |
964 |
|
goto T274; |
965 |
T274:; |
T274:; |
966 |
V159= Cnil; |
V159= Cnil; |
967 |
|
goto T275; |
968 |
T275:; |
T275:; |
969 |
base[0]= small_fixnum(12); |
base[0]= small_fixnum(12); |
970 |
base[1]= (V158); |
base[1]= (V158); |
974 |
siLbit_array_op(); |
siLbit_array_op(); |
975 |
vs_top=sup; |
vs_top=sup; |
976 |
{object V160 = vs_base[0]; |
{object V160 = vs_base[0]; |
977 |
VMR21(V160)}} |
VMR21(V160)} |
978 |
|
va_end(ap); |
979 |
|
base[0]=base[0]; |
980 |
|
return Cnil;} |
981 |
} |
} |
982 |
/* local entry for function VECTOR-PUSH */ |
/* local entry for function VECTOR-PUSH */ |
983 |
|
|
985 |
|
|
986 |
object V163;register object V164; |
object V163;register object V164; |
987 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
988 |
|
goto TTL; |
989 |
TTL:; |
TTL:; |
990 |
{register long V165; |
{register long V165; |
991 |
base[0]= (V164); |
base[0]= (V164); |
1009 |
vs_top=sup; |
vs_top=sup; |
1010 |
{object V167 = make_fixnum(V165); |
{object V167 = make_fixnum(V165); |
1011 |
VMR22(V167)} |
VMR22(V167)} |
1012 |
|
goto T284; |
1013 |
T284:; |
T284:; |
1014 |
{object V168 = Cnil; |
{object V168 = Cnil; |
1015 |
VMR22(V168)}} |
VMR22(V168)}} |
1016 |
|
base[0]=base[0]; |
1017 |
|
return Cnil; |
1018 |
} |
} |
1019 |
/* local entry for function VECTOR-PUSH-EXTEND */ |
/* local entry for function VECTOR-PUSH-EXTEND */ |
1020 |
|
|
1027 |
{object V171; |
{object V171; |
1028 |
register object V172; |
register object V172; |
1029 |
object V173; |
object V173; |
1030 |
|
Vcs[0]=Vcs[0]; |
1031 |
|
va_start(ap); |
1032 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1033 |
V171= V170; |
V171= V170; |
1034 |
V172= V169; |
V172= V169; |
1035 |
narg = narg - 2; |
narg = narg - 2; |
1036 |
if (narg <= 0) goto T293; |
if (narg <= 0) goto T293; |
1037 |
else { |
else { |
|
va_start(ap); |
|
1038 |
V173= va_arg(ap,object);} |
V173= va_arg(ap,object);} |
1039 |
--narg; goto T294; |
--narg; goto T294; |
1040 |
|
goto T293; |
1041 |
T293:; |
T293:; |
1042 |
V173= Cnil; |
V173= Cnil; |
1043 |
|
goto T294; |
1044 |
T294:; |
T294:; |
1045 |
{register long V174; |
{register long V174; |
1046 |
base[0]= (V172); |
base[0]= (V172); |
1064 |
vs_top=sup; |
vs_top=sup; |
1065 |
{object V176 = make_fixnum(V174); |
{object V176 = make_fixnum(V174); |
1066 |
VMR23(V176)} |
VMR23(V176)} |
1067 |
|
goto T299; |
1068 |
T299:; |
T299:; |
1069 |
base[0]= (V172); |
base[0]= (V172); |
1070 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
1090 |
vs_top=sup; |
vs_top=sup; |
1091 |
V178= vs_base[0]; |
V178= vs_base[0]; |
1092 |
goto T312; |
goto T312; |
1093 |
|
goto T314; |
1094 |
T314:; |
T314:; |
1095 |
V178= small_fixnum(5); |
V178= small_fixnum(5); |
1096 |
|
goto T312; |
1097 |
T312:; |
T312:; |
1098 |
V180= number_plus(V177,V178); |
V180= number_plus(V177,V178); |
1099 |
V181= make_cons(/* INLINE-ARGS */V180,Cnil); |
V181= make_cons(/* INLINE-ARGS */V180,Cnil); |
1111 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
1112 |
vs_top=sup; |
vs_top=sup; |
1113 |
{object V184 = make_fixnum(V174); |
{object V184 = make_fixnum(V174); |
1114 |
VMR23(V184)}}} |
VMR23(V184)}} |
1115 |
|
va_end(ap); |
1116 |
|
base[0]=base[0]; |
1117 |
|
return Cnil;} |
1118 |
} |
} |
1119 |
/* local entry for function VECTOR-POP */ |
/* local entry for function VECTOR-POP */ |
1120 |
|
|
1122 |
|
|
1123 |
register object V186; |
register object V186; |
1124 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1125 |
|
goto TTL; |
1126 |
TTL:; |
TTL:; |
1127 |
{long V187; |
{long V187; |
1128 |
base[0]= (V186); |
base[0]= (V186); |
1137 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1138 |
Lerror(); |
Lerror(); |
1139 |
vs_top=sup; |
vs_top=sup; |
1140 |
|
goto T329; |
1141 |
T329:; |
T329:; |
1142 |
base[0]= (V186); |
base[0]= (V186); |
1143 |
base[1]= make_fixnum((V187)-1); |
base[1]= make_fixnum((V187)-1); |
1146 |
vs_top=sup; |
vs_top=sup; |
1147 |
{object V188 = aref1((V186),(V187)-1); |
{object V188 = aref1((V186),(V187)-1); |
1148 |
VMR24(V188)}} |
VMR24(V188)}} |
1149 |
|
base[0]=base[0]; |
1150 |
|
return Cnil; |
1151 |
} |
} |
1152 |
/* local entry for function ADJUST-ARRAY */ |
/* local entry for function ADJUST-ARRAY */ |
1153 |
|
|
1167 |
object V198; |
object V198; |
1168 |
object V199; |
object V199; |
1169 |
object V200; |
object V200; |
1170 |
|
Vcs[0]=Vcs[0]; |
1171 |
|
va_start(ap); |
1172 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1173 |
V191= V190; |
V191= V190; |
1174 |
V192= V189; |
V192= V189; |
1175 |
narg= narg - 2; |
narg= narg - 2; |
|
va_start(ap); |
|
1176 |
V201 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg)); |
V201 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg)); |
1177 |
V193= V201; |
V193= V201; |
1178 |
{ |
{ |
1179 |
parse_key_rest(V201,narg,Vcs +3,&LI25key,ap); |
parse_key_rest(V201,narg,Vcs +3,(struct key *)&LI25key,ap); |
1180 |
V194=(Vcs[3]); |
V194=(Vcs[3]); |
1181 |
V195=(Vcs[4]); |
V195=(Vcs[4]); |
1182 |
V196=(Vcs[5]); |
V196=(Vcs[5]); |
1189 |
if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){ |
if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){ |
1190 |
goto T338;} |
goto T338;} |
1191 |
V192= make_cons((V192),Cnil); |
V192= make_cons((V192),Cnil); |
1192 |
|
goto T338; |
1193 |
T338:; |
T338:; |
1194 |
{register object x= VV[11],V203= (V193); |
{register object x= VV[11],V203= (V193); |
1195 |
while(!endp(V203)) |
while(!endp(V203)) |
1198 |
goto T346; |
goto T346; |
1199 |
}else V203=V203->c.c_cdr; |
}else V203=V203->c.c_cdr; |
1200 |
V202= Cnil;} |
V202= Cnil;} |
1201 |
|
goto T346; |
1202 |
T346:; |
T346:; |
1203 |
if(((V202))==Cnil){ |
if(((V202))==Cnil){ |
1204 |
goto T344;} |
goto T344;} |
1213 |
Lerror(); |
Lerror(); |
1214 |
vs_top=sup; |
vs_top=sup; |
1215 |
goto T342; |
goto T342; |
1216 |
|
goto T344; |
1217 |
T344:; |
T344:; |
1218 |
base[0]= (V191); |
base[0]= (V191); |
1219 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1228 |
V204= vs_base[0]; |
V204= vs_base[0]; |
1229 |
V193= ON_STACK_CONS(V204,(V193)); |
V193= ON_STACK_CONS(V204,(V193)); |
1230 |
V193= ON_STACK_CONS(VV[11],(V193)); |
V193= ON_STACK_CONS(VV[11],(V193)); |
1231 |
|
goto T342; |
1232 |
T342:; |
T342:; |
1233 |
base[0]= (V191); |
base[0]= (V191); |
1234 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1239 |
goto T362;} |
goto T362;} |
1240 |
V193= ON_STACK_CONS((V194),(V193)); |
V193= ON_STACK_CONS((V194),(V193)); |
1241 |
V193= ON_STACK_CONS(VV[8],(V193)); |
V193= ON_STACK_CONS(VV[8],(V193)); |
1242 |
|
goto T362; |
1243 |
T362:; |
T362:; |
1244 |
{register object x= VV[14],V205= (V193); |
{register object x= VV[14],V205= (V193); |
1245 |
while(!endp(V205)) |
while(!endp(V205)) |
1253 |
V206= vs_base[0]; |
V206= vs_base[0]; |
1254 |
V193= ON_STACK_CONS(V206,(V193)); |
V193= ON_STACK_CONS(V206,(V193)); |
1255 |
V193= ON_STACK_CONS(VV[14],(V193)); |
V193= ON_STACK_CONS(VV[14],(V193)); |
1256 |
|
goto T368; |
1257 |
T368:; |
T368:; |
1258 |
{register object V207; |
{register object V207; |
1259 |
base[0]= (V192); |
base[0]= (V192); |
1284 |
{int V212= fix(car(V211)); |
{int V212= fix(car(V211)); |
1285 |
if(!((0)==((V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){ |
if(!((0)==((V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){ |
1286 |
goto T383;}} |
goto T383;}} |
1287 |
|
goto T382; |
1288 |
T382:; |
T382:; |
1289 |
base[0]= (V191); |
base[0]= (V191); |
1290 |
base[1]= (V207); |
base[1]= (V207); |
1305 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
1306 |
vs_top=sup; |
vs_top=sup; |
1307 |
goto T381; |
goto T381; |
1308 |
|
goto T383; |
1309 |
T383:; |
T383:; |
1310 |
{register object V215; |
{register object V215; |
1311 |
base[0]= make_fixnum(length((V192))); |
base[0]= make_fixnum(length((V192))); |
1315 |
Lmake_list(); |
Lmake_list(); |
1316 |
vs_top=sup; |
vs_top=sup; |
1317 |
V215= vs_base[0]; |
V215= vs_base[0]; |
1318 |
|
goto T407; |
1319 |
T407:; |
T407:; |
1320 |
base[0]= (V191); |
base[0]= (V191); |
1321 |
{object V216; |
{object V216; |
1343 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1344 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
1345 |
vs_top=sup; |
vs_top=sup; |
1346 |
|
goto T410; |
1347 |
T410:; |
T410:; |
1348 |
if(((*(LnkLI27))((V215),(V192)))==Cnil){ |
if(((*(LnkLI27))((V215),(V192)))==Cnil){ |
1349 |
goto T420;} |
goto T420;} |
1350 |
goto T381; |
goto T381; |
1351 |
|
goto T420; |
1352 |
T420:; |
T420:; |
1353 |
goto T407;} |
goto T407;} |
1354 |
|
goto T381; |
1355 |
T381:; |
T381:; |
1356 |
base[0]= (V191); |
base[0]= (V191); |
1357 |
base[1]= (V207); |
base[1]= (V207); |
1373 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
1374 |
vs_top=sup; |
vs_top=sup; |
1375 |
goto T430; |
goto T430; |
1376 |
|
goto T434; |
1377 |
T434:; |
T434:; |
1378 |
if(!(type_of((V202))==t_fixnum)){ |
if(!(type_of((V202))==t_fixnum)){ |
1379 |
goto T440;} |
goto T440;} |
1383 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
1384 |
vs_top=sup; |
vs_top=sup; |
1385 |
goto T430; |
goto T430; |
1386 |
|
goto T440; |
1387 |
T440:; |
T440:; |
1388 |
base[0]= VV[17]; |
base[0]= VV[17]; |
1389 |
base[1]= (V202); |
base[1]= (V202); |
1390 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1391 |
Lerror(); |
Lerror(); |
1392 |
vs_top=sup; |
vs_top=sup; |
1393 |
|
goto T430; |
1394 |
T430:; |
T430:; |
1395 |
{object V218 = (V191); |
{object V218 = (V191); |
1396 |
VMR25(V218)}}}} |
VMR25(V218)}}} |
1397 |
|
va_end(ap); |
1398 |
|
base[0]=base[0]; |
1399 |
|
return Cnil;} |
1400 |
}} |
}} |
1401 |
static LnkT35(){ call_or_link(VV[35],&Lnk35);} /* ARRAY-IN-BOUNDS-P */ |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* ARRAY-IN-BOUNDS-P */ |
1402 |
static LnkT34(){ call_or_link(VV[34],&Lnk34);} /* COPY-ARRAY-PORTION */ |
static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* COPY-ARRAY-PORTION */ |
1403 |
static LnkT33(){ call_or_link(VV[33],&Lnk33);} /* ARRAY-TOTAL-SIZE */ |
static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* ARRAY-TOTAL-SIZE */ |
1404 |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,1,ap);} /* ARRAY-DIMENSIONS */ |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,1,ap);} /* ARRAY-DIMENSIONS */ |
1405 |
static LnkT28(){ call_or_link(VV[28],&Lnk28);} /* MAKE-ARRAY */ |
static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* MAKE-ARRAY */ |
1406 |
static LnkT31(){ call_or_link(VV[31],&Lnk31);} /* STATICP */ |
static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* STATICP */ |
1407 |
static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */ |
1408 |
static object LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],&LnkLI29,ap);} /* ADJUST-ARRAY */ |
static object LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],(void **)&LnkLI29,ap);} /* ADJUST-ARRAY */ |
1409 |
static object LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[28],&LnkLI28,ap);} /* MAKE-ARRAY */ |
static object LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[28],(void **)&LnkLI28,ap);} /* MAKE-ARRAY */ |
1410 |
static object LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,2,ap);} /* INCREMENT-CURSOR */ |
static object LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],(void **)&LnkLI27,2,ap);} /* INCREMENT-CURSOR */ |
1411 |
static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* ASET-BY-CURSOR */ |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* ASET-BY-CURSOR */ |
1412 |
static object LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,2,ap);} /* SEQUENCE-CURSOR */ |
static object LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],(void **)&LnkLI25,2,ap);} /* SEQUENCE-CURSOR */ |
1413 |
static LnkT24(){ call_or_link(VV[24],&Lnk24);} /* MAKE-ARRAY1 */ |
static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* MAKE-ARRAY1 */ |
1414 |
static LnkT23(){ call_or_link(VV[23],&Lnk23);} /* GET-AELTTYPE */ |
static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* GET-AELTTYPE */ |
1415 |
static object LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],&LnkLI22,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],(void **)&LnkLI22,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
1416 |
static LnkT18(){ call_or_link(VV[18],&Lnk18);} /* SUBTYPEP */ |
static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* SUBTYPEP */ |
1417 |
|
|
1418 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1419 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |