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