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