138 |
base[0]=base[0]; |
base[0]=base[0]; |
139 |
return Cnil; |
return Cnil; |
140 |
} |
} |
141 |
/* local entry for function BAD-SEQ-LIMIT */ |
/* function definition for BAD-SEQ-LIMIT */ |
142 |
|
|
143 |
static object LI5(object V28,object first,...) |
static void L5() |
144 |
{ |
{register object *base=vs_base; |
145 |
va_list ap; |
register object *sup=base+VM5; VC5 |
146 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
vs_reserve(VM5); |
147 |
{object V29; |
{object V28; |
148 |
object V30; |
object V29; |
149 |
va_start(ap,first); |
if(vs_top-vs_base<1) too_few_arguments(); |
150 |
if(narg <1) too_few_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
151 |
V29= V28; |
V28=(base[0]); |
152 |
narg = narg - 1; |
vs_base=vs_base+1; |
153 |
if (narg <= 0) goto T39; |
if(vs_base>=vs_top){vs_top=sup;goto T39;} |
154 |
else { |
V29=(base[1]); |
155 |
V30= first;} |
vs_top=sup; |
156 |
--narg; goto T40; |
goto T40; |
157 |
goto T39; |
goto T39; |
158 |
T39:; |
T39:; |
159 |
V30= Cnil; |
V29= Cnil; |
160 |
goto T40; |
goto T40; |
161 |
T40:; |
T40:; |
162 |
base[0]= VV[8]; |
base[2]= VV[8]; |
163 |
base[1]= VV[9]; |
base[3]= VV[9]; |
164 |
if(((V30))==Cnil){ |
if(((V29))==Cnil){ |
165 |
goto T46;} |
goto T46;} |
166 |
base[2]= list(2,(V29),(V30)); |
base[4]= list(2,(V28),(V29)); |
167 |
goto T44; |
goto T44; |
168 |
goto T46; |
goto T46; |
169 |
T46:; |
T46:; |
170 |
base[2]= (V29); |
base[4]= (V28); |
171 |
goto T44; |
goto T44; |
172 |
T44:; |
T44:; |
173 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+2)+3; |
174 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
175 |
vs_top=sup; |
return; |
|
{object V31 = vs_base[0]; |
|
|
VMR5(V31)} |
|
|
va_end(ap); |
|
|
base[0]=base[0]; |
|
|
return Cnil;} |
|
176 |
} |
} |
177 |
|
} |
178 |
/* local entry for function THE-END */ |
/* local entry for function THE-END */ |
179 |
|
|
180 |
static object LI6(V34,V35) |
static object LI6(V32,V33) |
181 |
|
|
182 |
register object V34;object V35; |
register object V32;object V33; |
183 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
184 |
goto TTL; |
goto TTL; |
185 |
TTL:; |
TTL:; |
186 |
if(!(type_of((V34))==t_fixnum)){ |
if(!(type_of((V32))==t_fixnum)){ |
187 |
goto T49;} |
goto T49;} |
188 |
if(!((fix((V34)))<=((long)length((V35))))){ |
if(!((fix((V32)))<=((long)length((V33))))){ |
189 |
goto T52;} |
goto T52;} |
190 |
goto T51; |
goto T51; |
191 |
goto T52; |
goto T52; |
192 |
T52:; |
T52:; |
193 |
(void)((VFUN_NARGS=1,(*(LnkLI33))((V34)))); |
base[0]= (V32); |
194 |
|
vs_top=(vs_base=base+0)+1; |
195 |
|
(void) (*Lnk33)(); |
196 |
|
vs_top=sup; |
197 |
goto T51; |
goto T51; |
198 |
T51:; |
T51:; |
199 |
{long V36 = fix((V34)); |
{long V34 = fix((V32)); |
200 |
VMR6((object)V36)} |
VMR6((object)V34)} |
201 |
goto T49; |
goto T49; |
202 |
T49:; |
T49:; |
203 |
if(((V34))!=Cnil){ |
if(((V32))!=Cnil){ |
204 |
goto T55;} |
goto T56;} |
205 |
{long V37 = (long)length((V35)); |
{long V35 = (long)length((V33)); |
206 |
VMR6((object)V37)} |
VMR6((object)V35)} |
207 |
goto T55; |
goto T56; |
208 |
T55:; |
T56:; |
209 |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI33))((V34)))); |
base[0]= (V32); |
210 |
VMR6((object)V38)} |
vs_top=(vs_base=base+0)+1; |
211 |
|
(void) (*Lnk33)(); |
212 |
|
vs_top=sup; |
213 |
|
{long V36 = fix(vs_base[0]); |
214 |
|
VMR6((object)V36)} |
215 |
|
base[0]=base[0]; |
216 |
} |
} |
217 |
/* local entry for function THE-START */ |
/* local entry for function THE-START */ |
218 |
|
|
219 |
static object LI7(V40) |
static object LI7(V38) |
220 |
|
|
221 |
register object V40; |
register object V38; |
222 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
223 |
goto TTL; |
goto TTL; |
224 |
TTL:; |
TTL:; |
225 |
if(!(type_of((V40))==t_fixnum)){ |
if(!(type_of((V38))==t_fixnum)){ |
226 |
goto T58;} |
goto T60;} |
227 |
if(!((fix((V40)))>=(0))){ |
if(!((fix((V38)))>=(0))){ |
228 |
goto T61;} |
goto T63;} |
229 |
goto T60; |
goto T62; |
230 |
goto T61; |
goto T63; |
231 |
T61:; |
T63:; |
232 |
(void)((VFUN_NARGS=1,(*(LnkLI33))((V40)))); |
base[0]= (V38); |
233 |
|
vs_top=(vs_base=base+0)+1; |
234 |
|
(void) (*Lnk33)(); |
235 |
|
vs_top=sup; |
236 |
|
goto T62; |
237 |
|
T62:; |
238 |
|
{long V39 = fix((V38)); |
239 |
|
VMR7((object)V39)} |
240 |
goto T60; |
goto T60; |
241 |
T60:; |
T60:; |
242 |
{long V41 = fix((V40)); |
if(((V38))!=Cnil){ |
243 |
|
goto T67;} |
244 |
|
{long V40 = 0; |
245 |
|
VMR7((object)V40)} |
246 |
|
goto T67; |
247 |
|
T67:; |
248 |
|
base[0]= (V38); |
249 |
|
vs_top=(vs_base=base+0)+1; |
250 |
|
(void) (*Lnk33)(); |
251 |
|
vs_top=sup; |
252 |
|
{long V41 = fix(vs_base[0]); |
253 |
VMR7((object)V41)} |
VMR7((object)V41)} |
254 |
goto T58; |
base[0]=base[0]; |
|
T58:; |
|
|
if(((V40))!=Cnil){ |
|
|
goto T64;} |
|
|
{long V42 = 0; |
|
|
VMR7((object)V42)} |
|
|
goto T64; |
|
|
T64:; |
|
|
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI33))((V40)))); |
|
|
VMR7((object)V43)} |
|
255 |
} |
} |
256 |
/* function definition for REDUCE */ |
/* function definition for REDUCE */ |
257 |
|
|
259 |
{register object *base=vs_base; |
{register object *base=vs_base; |
260 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
261 |
vs_reserve(VM8); |
vs_reserve(VM8); |
262 |
{register object V44; |
{register object V42; |
263 |
register object V45; |
register object V43; |
264 |
|
object V44; |
265 |
|
object V45; |
266 |
object V46; |
object V46; |
267 |
object V47; |
object V47; |
268 |
object V48; |
object V48; |
269 |
object V49; |
register object V49; |
|
object V50; |
|
|
register object V51; |
|
270 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
271 |
parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]); |
parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]); |
272 |
V44=(base[0]); |
V42=(base[0]); |
273 |
V45=(base[1]); |
V43=(base[1]); |
274 |
vs_top=sup; |
vs_top=sup; |
275 |
V46=(base[2]); |
V44=(base[2]); |
276 |
V47=(base[3]); |
V45=(base[3]); |
277 |
V48=(base[4]); |
V46=(base[4]); |
278 |
V49=(base[5]); |
V47=(base[5]); |
279 |
V50=(base[10]); |
V48=(base[10]); |
280 |
if(base[11]==Cnil){ |
if(base[11]==Cnil){ |
281 |
V51= symbol_function(VV[35]); |
V49= symbol_function(VV[35]); |
282 |
}else{ |
}else{ |
283 |
V51=(base[6]);} |
V49=(base[6]);} |
284 |
{register long V52; |
{register long V50; |
285 |
if(((V47))==Cnil){ |
if(((V45))==Cnil){ |
|
goto T69;} |
|
|
V52= (long)(*(LnkLI36))((V47)); |
|
|
goto T67; |
|
|
goto T69; |
|
|
T69:; |
|
|
V52= 0; |
|
|
goto T67; |
|
|
T67:; |
|
|
{register long V53; |
|
|
V53= (long)(*(LnkLI37))((V48),(V45)); |
|
|
if(!((V52)<=(V53))){ |
|
286 |
goto T73;} |
goto T73;} |
287 |
goto T72; |
V50= (long)(*(LnkLI36))((V45)); |
288 |
|
goto T71; |
289 |
goto T73; |
goto T73; |
290 |
T73:; |
T73:; |
291 |
V54 = make_fixnum(V52); |
V50= 0; |
292 |
V55 = make_fixnum(V53); |
goto T71; |
293 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V54,V55))); |
T71:; |
294 |
goto T72; |
{register long V51; |
295 |
T72:; |
V51= (long)(*(LnkLI37))((V46),(V43)); |
296 |
if(((V46))!=Cnil){ |
if(!((V50)<=(V51))){ |
297 |
goto T76;} |
goto T77;} |
298 |
if(((V50))!=Cnil){ |
goto T76; |
299 |
goto T78;} |
goto T77; |
300 |
if(!((V52)>=(V53))){ |
T77:; |
301 |
goto T81;} |
base[12]= make_fixnum(V50); |
302 |
|
base[13]= make_fixnum(V51); |
303 |
|
vs_top=(vs_base=base+12)+2; |
304 |
|
(void) (*Lnk33)(); |
305 |
|
vs_top=sup; |
306 |
|
goto T76; |
307 |
|
T76:; |
308 |
|
if(((V44))!=Cnil){ |
309 |
|
goto T82;} |
310 |
|
if(((V48))!=Cnil){ |
311 |
|
goto T84;} |
312 |
|
if(!((V50)>=(V51))){ |
313 |
|
goto T87;} |
314 |
vs_base=vs_top; |
vs_base=vs_top; |
315 |
super_funcall_no_event((V44)); |
super_funcall_no_event((V42)); |
316 |
return; |
return; |
317 |
goto T81; |
goto T87; |
318 |
T81:; |
T87:; |
319 |
V56= elt((V45),V52); |
V52= elt((V43),V50); |
320 |
V49= ( |
V47= ( |
321 |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
(type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)): |
322 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
(fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V52)); |
323 |
V52= (long)(1)+(V52); |
V50= (long)(1)+(V50); |
324 |
goto T78; |
goto T84; |
325 |
T78:; |
T84:; |
326 |
{register object V57; |
{register object V53; |
327 |
V57= (V49); |
V53= (V47); |
328 |
goto T88; |
goto T94; |
329 |
T88:; |
T94:; |
330 |
if(!((V52)>=(V53))){ |
if(!((V50)>=(V51))){ |
331 |
goto T89;} |
goto T95;} |
332 |
base[12]= (V57); |
base[12]= (V53); |
333 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
334 |
return; |
return; |
335 |
goto T89; |
goto T95; |
336 |
T89:; |
T95:; |
337 |
{object V59; |
{object V55; |
338 |
V59= elt((V45),V52); |
V55= elt((V43),V50); |
339 |
V52= (long)(1)+(V52); |
V50= (long)(1)+(V50); |
340 |
base[12]= (V59);} |
base[12]= (V55);} |
341 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
342 |
super_funcall_no_event((V51)); |
super_funcall_no_event((V49)); |
343 |
vs_top=sup; |
vs_top=sup; |
344 |
V58= vs_base[0]; |
V54= vs_base[0]; |
345 |
V57= ( |
V53= ( |
346 |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
(type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)): |
347 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); |
(fcall.fun=((V42)),fcall.argd=2,fcalln))((V53),V54)); |
348 |
goto T88;} |
goto T94;} |
349 |
goto T76; |
goto T82; |
350 |
T76:; |
T82:; |
351 |
if(((V50))!=Cnil){ |
if(((V48))!=Cnil){ |
352 |
goto T101;} |
goto T107;} |
353 |
if(!((V52)>=(V53))){ |
if(!((V50)>=(V51))){ |
354 |
goto T104;} |
goto T110;} |
355 |
vs_base=vs_top; |
vs_base=vs_top; |
356 |
super_funcall_no_event((V44)); |
super_funcall_no_event((V42)); |
357 |
return; |
return; |
358 |
goto T104; |
goto T110; |
359 |
T104:; |
T110:; |
360 |
V53= (long)(V53)+(-1); |
V51= (long)(V51)+(-1); |
361 |
V60= elt((V45),V53); |
V56= elt((V43),V51); |
362 |
V49= ( |
V47= ( |
363 |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
(type_of((V49)) == t_sfun ?(*(((V49))->sfn.sfn_self)): |
364 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); |
(fcall.fun=((V49)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
365 |
goto T101; |
goto T107; |
366 |
T101:; |
T107:; |
367 |
{register object V61; |
{register object V57; |
368 |
V61= (V49); |
V57= (V47); |
369 |
goto T111; |
goto T117; |
370 |
T111:; |
T117:; |
371 |
if(!((V52)>=(V53))){ |
if(!((V50)>=(V51))){ |
372 |
goto T112;} |
goto T118;} |
373 |
base[12]= (V61); |
base[12]= (V57); |
374 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
375 |
return; |
return; |
376 |
goto T112; |
goto T118; |
377 |
T112:; |
T118:; |
378 |
V53= (long)(-1)+(V53); |
V51= (long)(-1)+(V51); |
379 |
base[12]= elt((V45),V53); |
base[12]= elt((V43),V51); |
380 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
381 |
super_funcall_no_event((V51)); |
super_funcall_no_event((V49)); |
382 |
vs_top=sup; |
vs_top=sup; |
383 |
V62= vs_base[0]; |
V58= vs_base[0]; |
384 |
V61= ( |
V57= ( |
385 |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
(type_of((V42)) == t_sfun ?(*(((V42))->sfn.sfn_self)): |
386 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); |
(fcall.fun=((V42)),fcall.argd=2,fcalln))(V58,(V57))); |
387 |
goto T111;}}} |
goto T117;}}} |
388 |
} |
} |
389 |
} |
} |
390 |
/* local entry for function FILL */ |
/* local entry for function FILL */ |
391 |
|
|
392 |
static object LI9(object V64,object V63,object first,...) |
static object LI9(object V60,object V59,object first,...) |
393 |
{ |
{ |
394 |
va_list ap; |
va_list ap; |
395 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
396 |
{register object V65; |
{register object V61; |
397 |
register object V66; |
register object V62; |
398 |
object V67; |
object V63; |
399 |
object V68; |
object V64; |
400 |
va_start(ap,first); |
va_start(ap,first); |
401 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
402 |
V65= V64; |
V61= V60; |
403 |
V66= V63; |
V62= V59; |
404 |
narg= narg - 2; |
narg= narg - 2; |
405 |
{ |
{ |
406 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI9key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI9key,first,ap); |
407 |
V67=(Vcs[2]); |
V63=(Vcs[2]); |
408 |
V68=(Vcs[3]); |
V64=(Vcs[3]); |
409 |
{long V69; |
{long V65; |
410 |
if(((V67))==Cnil){ |
if(((V63))==Cnil){ |
411 |
goto T125;} |
goto T131;} |
412 |
V69= (long)(*(LnkLI36))((V67)); |
V65= (long)(*(LnkLI36))((V63)); |
413 |
goto T123; |
goto T129; |
414 |
goto T125; |
goto T131; |
415 |
T125:; |
T131:; |
416 |
V69= 0; |
V65= 0; |
|
goto T123; |
|
|
T123:; |
|
|
{register long V70; |
|
|
V70= (long)(*(LnkLI37))((V68),(V65)); |
|
|
if(!((V69)<=(V70))){ |
|
|
goto T129;} |
|
|
goto T128; |
|
417 |
goto T129; |
goto T129; |
418 |
T129:; |
T129:; |
419 |
V71 = make_fixnum(V69); |
{register long V66; |
420 |
V72 = make_fixnum(V70); |
V66= (long)(*(LnkLI37))((V64),(V61)); |
421 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V71,V72))); |
if(!((V65)<=(V66))){ |
422 |
goto T128; |
goto T135;} |
423 |
T128:; |
goto T134; |
424 |
{register long V73; |
goto T135; |
425 |
V73= V69; |
T135:; |
426 |
goto T133; |
base[0]= make_fixnum(V65); |
427 |
T133:; |
base[1]= make_fixnum(V66); |
428 |
if(!((V73)>=(V70))){ |
vs_top=(vs_base=base+0)+2; |
429 |
goto T134;} |
(void) (*Lnk33)(); |
430 |
{object V74 = (V65); |
vs_top=sup; |
|
VMR9(V74)} |
|
431 |
goto T134; |
goto T134; |
432 |
T134:; |
T134:; |
433 |
(void)(elt_set((V65),V73,(V66))); |
{register long V67; |
434 |
V73= (long)(1)+(V73); |
V67= V65; |
435 |
goto T133;}}} |
goto T141; |
436 |
|
T141:; |
437 |
|
if(!((V67)>=(V66))){ |
438 |
|
goto T142;} |
439 |
|
{object V68 = (V61); |
440 |
|
VMR9(V68)} |
441 |
|
goto T142; |
442 |
|
T142:; |
443 |
|
(void)(elt_set((V61),V67,(V62))); |
444 |
|
V67= (long)(1)+(V67); |
445 |
|
goto T141;}}} |
446 |
va_end(ap); |
va_end(ap); |
447 |
|
base[0]=base[0]; |
448 |
return Cnil;} |
return Cnil;} |
449 |
}} |
}} |
450 |
/* local entry for function REPLACE */ |
/* local entry for function REPLACE */ |
451 |
|
|
452 |
static object LI10(object V76,object V75,object first,...) |
static object LI10(object V70,object V69,object first,...) |
453 |
{ |
{ |
454 |
va_list ap; |
va_list ap; |
455 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
456 |
{register object V77; |
{register object V71; |
457 |
object V78; |
object V72; |
458 |
object V79; |
object V73; |
459 |
object V80; |
object V74; |
460 |
object V81; |
object V75; |
461 |
object V82; |
object V76; |
462 |
va_start(ap,first); |
va_start(ap,first); |
463 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
464 |
V77= V76; |
V71= V70; |
465 |
V78= V75; |
V72= V69; |
466 |
narg= narg - 2; |
narg= narg - 2; |
467 |
{ |
{ |
468 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap); |
469 |
V79=(Vcs[2]); |
V73=(Vcs[2]); |
470 |
V80=(Vcs[3]); |
V74=(Vcs[3]); |
471 |
V81=(Vcs[4]); |
V75=(Vcs[4]); |
472 |
V82=(Vcs[5]); |
V76=(Vcs[5]); |
473 |
{long V83; |
{long V77; |
474 |
if(((V79))==Cnil){ |
if(((V73))==Cnil){ |
|
goto T144;} |
|
|
V83= (long)(*(LnkLI36))((V79)); |
|
|
goto T142; |
|
|
goto T144; |
|
|
T144:; |
|
|
V83= 0; |
|
|
goto T142; |
|
|
T142:; |
|
|
{long V84; |
|
|
V84= (long)(*(LnkLI37))((V80),(V77)); |
|
|
if(!((V83)<=(V84))){ |
|
|
goto T148;} |
|
|
goto T147; |
|
|
goto T148; |
|
|
T148:; |
|
|
V85 = make_fixnum(V83); |
|
|
V86 = make_fixnum(V84); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V85,V86))); |
|
|
goto T147; |
|
|
T147:; |
|
|
{long V87; |
|
|
if(((V81))==Cnil){ |
|
475 |
goto T152;} |
goto T152;} |
476 |
V87= (long)(*(LnkLI36))((V81)); |
V77= (long)(*(LnkLI36))((V73)); |
477 |
goto T150; |
goto T150; |
478 |
goto T152; |
goto T152; |
479 |
T152:; |
T152:; |
480 |
V87= 0; |
V77= 0; |
481 |
goto T150; |
goto T150; |
482 |
T150:; |
T150:; |
483 |
{long V88; |
{long V78; |
484 |
V88= (long)(*(LnkLI37))((V82),(V78)); |
V78= (long)(*(LnkLI37))((V74),(V71)); |
485 |
if(!((V87)<=(V88))){ |
if(!((V77)<=(V78))){ |
486 |
goto T156;} |
goto T156;} |
487 |
goto T155; |
goto T155; |
488 |
goto T156; |
goto T156; |
489 |
T156:; |
T156:; |
490 |
V89 = make_fixnum(V87); |
base[0]= make_fixnum(V77); |
491 |
V90 = make_fixnum(V88); |
base[1]= make_fixnum(V78); |
492 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V89,V90))); |
vs_top=(vs_base=base+0)+2; |
493 |
|
(void) (*Lnk33)(); |
494 |
|
vs_top=sup; |
495 |
goto T155; |
goto T155; |
496 |
T155:; |
T155:; |
497 |
if(!(((V77))==((V78)))){ |
{long V79; |
498 |
goto T159;} |
if(((V75))==Cnil){ |
499 |
if(!((V83)>(V87))){ |
goto T162;} |
500 |
goto T159;} |
V79= (long)(*(LnkLI36))((V75)); |
501 |
{register long V91; |
goto T160; |
502 |
long V92; |
goto T162; |
503 |
register long V93; |
T162:; |
504 |
register long V94; |
V79= 0; |
505 |
V91= 0; |
goto T160; |
506 |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
T160:; |
507 |
|
{long V80; |
508 |
|
V80= (long)(*(LnkLI37))((V76),(V72)); |
509 |
|
if(!((V79)<=(V80))){ |
510 |
goto T166;} |
goto T166;} |
511 |
V92= (long)(V84)-(V83); |
goto T165; |
|
goto T164; |
|
512 |
goto T166; |
goto T166; |
513 |
T166:; |
T166:; |
514 |
V92= (long)(V88)-(V87); |
base[0]= make_fixnum(V79); |
515 |
goto T164; |
base[1]= make_fixnum(V80); |
516 |
T164:; |
vs_top=(vs_base=base+0)+2; |
517 |
V93= (long)(V83)+((long)(-1)+(V92)); |
(void) (*Lnk33)(); |
518 |
V94= (long)(V87)+((long)(-1)+(V92)); |
vs_top=sup; |
519 |
|
goto T165; |
520 |
|
T165:; |
521 |
|
if(!(((V71))==((V72)))){ |
522 |
|
goto T171;} |
523 |
|
if(!((V77)>(V79))){ |
524 |
|
goto T171;} |
525 |
|
{register long V81; |
526 |
|
long V82; |
527 |
|
register long V83; |
528 |
|
register long V84; |
529 |
|
V81= 0; |
530 |
|
if(!(((long)(V78)-(V77))<((long)(V80)-(V79)))){ |
531 |
|
goto T178;} |
532 |
|
V82= (long)(V78)-(V77); |
533 |
|
goto T176; |
534 |
|
goto T178; |
535 |
|
T178:; |
536 |
|
V82= (long)(V80)-(V79); |
537 |
|
goto T176; |
538 |
|
T176:; |
539 |
|
V83= (long)(V77)+((long)(-1)+(V82)); |
540 |
|
V84= (long)(V79)+((long)(-1)+(V82)); |
541 |
|
goto T183; |
542 |
|
T183:; |
543 |
|
if(!((V81)>=(V82))){ |
544 |
|
goto T184;} |
545 |
|
{object V85 = (V71); |
546 |
|
VMR10(V85)} |
547 |
|
goto T184; |
548 |
|
T184:; |
549 |
|
V86= elt((V72),V84); |
550 |
|
(void)(elt_set((V71),V83,/* INLINE-ARGS */V86)); |
551 |
|
V81= (long)(1)+(V81); |
552 |
|
V83= (long)(-1)+(V83); |
553 |
|
V84= (long)(-1)+(V84); |
554 |
|
goto T183;} |
555 |
goto T171; |
goto T171; |
556 |
T171:; |
T171:; |
557 |
if(!((V91)>=(V92))){ |
{register long V87; |
558 |
goto T172;} |
long V88; |
559 |
{object V95 = (V77); |
register long V89; |
560 |
VMR10(V95)} |
register long V90; |
561 |
goto T172; |
V87= 0; |
562 |
T172:; |
if(!(((long)(V78)-(V77))<((long)(V80)-(V79)))){ |
563 |
V96= elt((V78),V94); |
goto T199;} |
564 |
(void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); |
V88= (long)(V78)-(V77); |
565 |
V91= (long)(1)+(V91); |
goto T197; |
566 |
V93= (long)(-1)+(V93); |
goto T199; |
567 |
V94= (long)(-1)+(V94); |
T199:; |
568 |
goto T171;} |
V88= (long)(V80)-(V79); |
569 |
goto T159; |
goto T197; |
570 |
T159:; |
T197:; |
571 |
{register long V97; |
V89= V77; |
572 |
long V98; |
V90= V79; |
573 |
register long V99; |
goto T204; |
574 |
register long V100; |
T204:; |
575 |
V97= 0; |
if(!((V87)>=(V88))){ |
576 |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
goto T205;} |
577 |
goto T187;} |
{object V91 = (V71); |
578 |
V98= (long)(V84)-(V83); |
VMR10(V91)} |
579 |
goto T185; |
goto T205; |
580 |
goto T187; |
T205:; |
581 |
T187:; |
V92= elt((V72),V90); |
582 |
V98= (long)(V88)-(V87); |
(void)(elt_set((V71),V89,/* INLINE-ARGS */V92)); |
583 |
goto T185; |
V87= (long)(1)+(V87); |
584 |
T185:; |
V89= (long)(1)+(V89); |
585 |
V99= V83; |
V90= (long)(1)+(V90); |
586 |
V100= V87; |
goto T204;}}}}} |
|
goto T192; |
|
|
T192:; |
|
|
if(!((V97)>=(V98))){ |
|
|
goto T193;} |
|
|
{object V101 = (V77); |
|
|
VMR10(V101)} |
|
|
goto T193; |
|
|
T193:; |
|
|
V102= elt((V78),V100); |
|
|
(void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); |
|
|
V97= (long)(1)+(V97); |
|
|
V99= (long)(1)+(V99); |
|
|
V100= (long)(1)+(V100); |
|
|
goto T192;}}}}} |
|
587 |
va_end(ap); |
va_end(ap); |
588 |
|
base[0]=base[0]; |
589 |
return Cnil;} |
return Cnil;} |
590 |
}} |
}} |
591 |
/* local entry for function REMOVE */ |
/* local entry for function REMOVE */ |
592 |
|
|
593 |
static object LI11(object V104,object V103,object first,...) |
static object LI11(object V94,object V93,object first,...) |
594 |
{ |
{ |
595 |
va_list ap; |
va_list ap; |
596 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
597 |
{object V105; |
{object V95; |
598 |
object V106; |
object V96; |
599 |
object V107; |
object V97; |
600 |
object V108; |
object V98; |
601 |
object V109; |
object V99; |
602 |
object V110; |
object V100; |
603 |
object V111; |
object V101; |
604 |
object V112; |
object V102; |
605 |
object V113; |
object V103; |
606 |
va_start(ap,first); |
va_start(ap,first); |
607 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
608 |
V105= V104; |
V95= V94; |
609 |
V106= V103; |
V96= V93; |
610 |
narg= narg - 2; |
narg= narg - 2; |
611 |
{ |
{ |
612 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap); |
613 |
V107=(Vcs[2]); |
V97=(Vcs[2]); |
614 |
V108=(Vcs[3]); |
V98=(Vcs[3]); |
615 |
V109=(Vcs[4]); |
V99=(Vcs[4]); |
616 |
V110=(Vcs[5]); |
V100=(Vcs[5]); |
617 |
V111=(Vcs[6]); |
V101=(Vcs[6]); |
618 |
V112=(Vcs[7]); |
V102=(Vcs[7]); |
619 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
620 |
V113= symbol_function(VV[35]); |
V103= symbol_function(VV[35]); |
621 |
}else{ |
}else{ |
622 |
V113=(Vcs[8]);} |
V103=(Vcs[8]);} |
623 |
if(!(((V113))==(Cnil))){ |
if(!(((V103))==(Cnil))){ |
624 |
goto T204;} |
goto T216;} |
625 |
V113= symbol_function(VV[35]); |
V103= symbol_function(VV[35]); |
|
goto T204; |
|
|
T204:; |
|
|
{long V114; |
|
|
if(((V110))==Cnil){ |
|
|
goto T210;} |
|
|
V114= (long)(*(LnkLI36))((V110)); |
|
|
goto T208; |
|
|
goto T210; |
|
|
T210:; |
|
|
V114= 0; |
|
|
goto T208; |
|
|
T208:; |
|
|
{long V115; |
|
|
V115= (long)(*(LnkLI37))((V111),(V106)); |
|
|
if(!((V114)<=(V115))){ |
|
|
goto T214;} |
|
|
goto T213; |
|
|
goto T214; |
|
|
T214:; |
|
|
V116 = make_fixnum(V114); |
|
|
V117 = make_fixnum(V115); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V116,V117))); |
|
|
goto T213; |
|
|
T213:; |
|
|
{IDECL(GEN V118,V118space,V118alloc); |
|
|
if(((V112))!=Cnil){ |
|
|
goto T218;} |
|
|
ISETQ_FIX(V118,V118alloc,2147483647); |
|
|
goto T216; |
|
|
goto T218; |
|
|
T218:;SETQ_IO(V118,V118alloc,(V112)); |
|
626 |
goto T216; |
goto T216; |
627 |
T216:; |
T216:; |
628 |
if((V108)==Cnil){ |
{long V104; |
629 |
goto T221;} |
if(((V100))==Cnil){ |
630 |
if((V109)==Cnil){ |
goto T222;} |
631 |
goto T221;} |
V104= (long)(*(LnkLI36))((V100)); |
632 |
(void)((*(LnkLI42))()); |
goto T220; |
633 |
goto T221; |
goto T222; |
634 |
T221:; |
T222:; |
635 |
if(((V107))!=Cnil){ |
V104= 0; |
636 |
goto T223;} |
goto T220; |
637 |
if(!(type_of((V106))==t_cons||((V106))==Cnil)){ |
T220:; |
638 |
|
{long V105; |
639 |
|
V105= (long)(*(LnkLI37))((V101),(V96)); |
640 |
|
if(!((V104)<=(V105))){ |
641 |
goto T226;} |
goto T226;} |
642 |
{register object V119; |
goto T225; |
643 |
register object V120; |
goto T226; |
644 |
V119= (V106); |
T226:; |
645 |
V120= Cnil; |
base[0]= make_fixnum(V104); |
646 |
{register long V121; |
base[1]= make_fixnum(V105); |
647 |
V121= 0; |
vs_top=(vs_base=base+0)+2; |
648 |
goto T231; |
(void) (*Lnk33)(); |
649 |
T231:; |
vs_top=sup; |
650 |
if(!((V121)>=(V114))){ |
goto T225; |
651 |
|
T225:; |
652 |
|
{IDECL(GEN V106,V106space,V106alloc); |
653 |
|
if(((V102))!=Cnil){ |
654 |
goto T232;} |
goto T232;} |
655 |
goto T228; |
ISETQ_FIX(V106,V106alloc,2147483647); |
656 |
|
goto T230; |
657 |
goto T232; |
goto T232; |
658 |
T232:; |
T232:;SETQ_IO(V106,V106alloc,(V102)); |
659 |
{register object V122; |
goto T230; |
660 |
V122= car((V119)); |
T230:; |
661 |
V120= make_cons((V122),(V120));} |
if((V98)==Cnil){ |
662 |
{register object V123; |
goto T235;} |
663 |
V123= car((V119)); |
if((V99)==Cnil){ |
664 |
V119= cdr((V119));} |
goto T235;} |
665 |
V121= (long)(1)+(V121); |
(void)((*(LnkLI42))()); |
666 |
goto T231;} |
goto T235; |
667 |
goto T228; |
T235:; |
668 |
T228:; |
if(((V97))!=Cnil){ |
669 |
{register long V124; |
goto T237;} |
670 |
register long V125; |
if(!(type_of((V96))==t_cons||((V96))==Cnil)){ |
671 |
V124= V114; |
goto T240;} |
672 |
V125= 0; |
{register object V107; |
673 |
goto T249; |
register object V108; |
674 |
T249:; |
V107= (V96); |
675 |
if((V124)>=(V115)){ |
V108= Cnil; |
676 |
goto T251;} |
{register long V109; |
677 |
V126 = make_fixnum(V125); |
V109= 0; |
678 |
V127 = make_integer(V118); |
goto T245; |
679 |
if(number_compare(V126,V127)>=0){ |
T245:; |
680 |
goto T251;} |
if(!((V109)>=(V104))){ |
681 |
if(!(endp_prop((V119)))){ |
goto T246;} |
682 |
goto T250;} |
goto T242; |
683 |
goto T251; |
goto T246; |
684 |
T251:; |
T246:; |
685 |
base[0]= (V120); |
{register object V110; |
686 |
base[1]= (V119); |
V110= car((V107)); |
687 |
|
V108= make_cons((V110),(V108));} |
688 |
|
{register object V111; |
689 |
|
V111= car((V107)); |
690 |
|
V107= cdr((V107));} |
691 |
|
V109= (long)(1)+(V109); |
692 |
|
goto T245;} |
693 |
|
goto T242; |
694 |
|
T242:; |
695 |
|
{register long V112; |
696 |
|
register long V113; |
697 |
|
V112= V104; |
698 |
|
V113= 0; |
699 |
|
goto T263; |
700 |
|
T263:; |
701 |
|
if((V112)>=(V105)){ |
702 |
|
goto T265;} |
703 |
|
V114 = make_fixnum(V113); |
704 |
|
V115 = make_integer(V106); |
705 |
|
if(number_compare(V114,V115)>=0){ |
706 |
|
goto T265;} |
707 |
|
if(!(endp_prop((V107)))){ |
708 |
|
goto T264;} |
709 |
|
goto T265; |
710 |
|
T265:; |
711 |
|
base[0]= (V108); |
712 |
|
base[1]= (V107); |
713 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
714 |
Lreconc(); |
Lreconc(); |
715 |
vs_top=sup; |
vs_top=sup; |
716 |
{object V128 = vs_base[0]; |
{object V116 = vs_base[0]; |
717 |
VMR11(V128)} |
VMR11(V116)} |
718 |
goto T250; |
goto T264; |
719 |
T250:; |
T264:; |
720 |
base[0]= car((V119)); |
base[0]= car((V107)); |
721 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
722 |
super_funcall_no_event((V113)); |
super_funcall_no_event((V103)); |
723 |
vs_top=sup; |
vs_top=sup; |
724 |
V129= vs_base[0]; |
V117= vs_base[0]; |
725 |
if(((*(LnkLI43))((V108),(V109),(V105),V129))==Cnil){ |
if(((*(LnkLI43))((V98),(V99),(V95),V117))==Cnil){ |
726 |
goto T262;} |
goto T276;} |
727 |
V125= (long)(1)+(V125); |
V113= (long)(1)+(V113); |
728 |
{register object V130; |
{register object V118; |
729 |
V130= car((V119)); |
V118= car((V107)); |
730 |
V119= cdr((V119)); |
V107= cdr((V107)); |
731 |
goto T260;} |
goto T274;} |
732 |
goto T262; |
goto T276; |
733 |
T262:; |
T276:; |
734 |
{register object V131; |
{register object V119; |
735 |
V131= car((V119)); |
V119= car((V107)); |
736 |
V120= make_cons((V131),(V120));} |
V108= make_cons((V119),(V108));} |
737 |
{register object V132; |
{register object V120; |
738 |
V132= car((V119)); |
V120= car((V107)); |
739 |
V119= cdr((V119));} |
V107= cdr((V107));} |
740 |
goto T260; |
goto T274; |
741 |
T260:; |
T274:; |
742 |
V124= (long)(1)+(V124); |
V112= (long)(1)+(V112); |
743 |
goto T249;}} |
goto T263;}} |
744 |
goto T226; |
goto T240; |
745 |
T226:; |
T240:; |
746 |
V133 = make_fixnum(V114); |
V121 = make_fixnum(V104); |
747 |
V134 = make_fixnum(V115); |
V122 = make_fixnum(V105); |
748 |
V135 = make_integer(V118); |
V123 = make_integer(V106); |
749 |
{object V136 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V133,VV[15],V134,VV[16],V135,VV[17],(V113))); |
{object V124 = (VFUN_NARGS=16,(*(LnkLI44))((V95),(V96),VV[11],(V97),VV[12],(V98),VV[13],(V99),VV[14],V121,VV[15],V122,VV[16],V123,VV[17],(V103))); |
750 |
VMR11(V136)} |
VMR11(V124)} |
751 |
goto T223; |
goto T237; |
752 |
T223:; |
T237:; |
753 |
V137 = make_fixnum(V114); |
V125 = make_fixnum(V104); |
754 |
V138 = make_fixnum(V115); |
V126 = make_fixnum(V105); |
755 |
V139 = make_integer(V118); |
V127 = make_integer(V106); |
756 |
{object V140 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V137,VV[15],V138,VV[16],V139,VV[17],(V113))); |
{object V128 = (VFUN_NARGS=16,(*(LnkLI44))((V95),(V96),VV[11],(V97),VV[12],(V98),VV[13],(V99),VV[14],V125,VV[15],V126,VV[16],V127,VV[17],(V103))); |
757 |
VMR11(V140)}}}} |
VMR11(V128)}}}} |
758 |
va_end(ap); |
va_end(ap); |
759 |
base[0]=base[0]; |
base[0]=base[0]; |
760 |
return Cnil;} |
return Cnil;} |
761 |
}} |
}} |
762 |
/* local entry for function REMOVE-IF */ |
/* local entry for function REMOVE-IF */ |
763 |
|
|
764 |
static object LI12(object V142,object V141,object first,...) |
static object LI12(object V130,object V129,object first,...) |
765 |
{ |
{ |
766 |
va_list ap; |
va_list ap; |
767 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
768 |
{object V143; |
{object V131; |
769 |
object V144; |
object V132; |
770 |
object V145; |
object V133; |
771 |
object V146; |
object V134; |
772 |
object V147; |
object V135; |
773 |
object V148; |
object V136; |
774 |
object V149; |
object V137; |
775 |
va_start(ap,first); |
va_start(ap,first); |
776 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
777 |
V143= V142; |
V131= V130; |
778 |
V144= V141; |
V132= V129; |
779 |
narg= narg - 2; |
narg= narg - 2; |
780 |
{ |
{ |
781 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap); |
782 |
V145=(Vcs[2]); |
V133=(Vcs[2]); |
783 |
V146=(Vcs[3]); |
V134=(Vcs[3]); |
784 |
V147=(Vcs[4]); |
V135=(Vcs[4]); |
785 |
V148=(Vcs[5]); |
V136=(Vcs[5]); |
786 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
787 |
V149= symbol_function(VV[35]); |
V137= symbol_function(VV[35]); |
788 |
}else{ |
}else{ |
789 |
V149=(Vcs[6]);} |
V137=(Vcs[6]);} |
790 |
if(!(((V149))==(Cnil))){ |
if(!(((V137))==(Cnil))){ |
791 |
goto T281;} |
goto T295;} |
792 |
V149= symbol_function(VV[35]); |
V137= symbol_function(VV[35]); |
793 |
goto T281; |
goto T295; |
794 |
T281:; |
T295:; |
795 |
V150= symbol_function(VV[46]); |
V138= symbol_function(VV[46]); |
796 |
{object V151 = (VFUN_NARGS=14,(*(LnkLI45))((V143),(V144),VV[11],(V145),VV[12],V150,VV[14],(V146),VV[15],(V147),VV[16],(V148),VV[17],(V149))); |
{object V139 = (VFUN_NARGS=14,(*(LnkLI45))((V131),(V132),VV[11],(V133),VV[12],V138,VV[14],(V134),VV[15],(V135),VV[16],(V136),VV[17],(V137))); |
797 |
VMR12(V151)} |
VMR12(V139)} |
798 |
va_end(ap); |
va_end(ap); |
799 |
return Cnil;} |
return Cnil;} |
800 |
}} |
}} |
801 |
/* local entry for function REMOVE-IF-NOT */ |
/* local entry for function REMOVE-IF-NOT */ |
802 |
|
|
803 |
static object LI13(object V153,object V152,object first,...) |
static object LI13(object V141,object V140,object first,...) |
804 |
{ |
{ |
805 |
va_list ap; |
va_list ap; |
806 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
807 |
{object V154; |
{object V142; |
808 |
object V155; |
object V143; |
809 |
object V156; |
object V144; |
810 |
object V157; |
object V145; |
811 |
object V158; |
object V146; |
812 |
object V159; |
object V147; |
813 |
object V160; |
object V148; |
814 |
va_start(ap,first); |
va_start(ap,first); |
815 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
816 |
V154= V153; |
V142= V141; |
817 |
V155= V152; |
V143= V140; |
818 |
narg= narg - 2; |
narg= narg - 2; |
819 |
{ |
{ |
820 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI13key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI13key,first,ap); |
821 |
V156=(Vcs[2]); |
V144=(Vcs[2]); |
822 |
V157=(Vcs[3]); |
V145=(Vcs[3]); |
823 |
V158=(Vcs[4]); |
V146=(Vcs[4]); |
824 |
V159=(Vcs[5]); |
V147=(Vcs[5]); |
825 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
826 |
V160= symbol_function(VV[35]); |
V148= symbol_function(VV[35]); |
827 |
}else{ |
}else{ |
828 |
V160=(Vcs[6]);} |
V148=(Vcs[6]);} |
829 |
if(!(((V160))==(Cnil))){ |
if(!(((V148))==(Cnil))){ |
830 |
goto T287;} |
goto T301;} |
831 |
V160= symbol_function(VV[35]); |
V148= symbol_function(VV[35]); |
832 |
goto T287; |
goto T301; |
833 |
T287:; |
T301:; |
834 |
V161= symbol_function(VV[46]); |
V149= symbol_function(VV[46]); |
835 |
{object V162 = (VFUN_NARGS=14,(*(LnkLI45))((V154),(V155),VV[11],(V156),VV[13],V161,VV[14],(V157),VV[15],(V158),VV[16],(V159),VV[17],(V160))); |
{object V150 = (VFUN_NARGS=14,(*(LnkLI45))((V142),(V143),VV[11],(V144),VV[13],V149,VV[14],(V145),VV[15],(V146),VV[16],(V147),VV[17],(V148))); |
836 |
VMR13(V162)} |
VMR13(V150)} |
837 |
va_end(ap); |
va_end(ap); |
838 |
return Cnil;} |
return Cnil;} |
839 |
}} |
}} |
840 |
/* local entry for function DELETE */ |
/* local entry for function DELETE */ |
841 |
|
|
842 |
static object LI14(object V164,object V163,object first,...) |
static object LI14(object V152,object V151,object first,...) |
843 |
{ |
{ |
844 |
va_list ap; |
va_list ap; |
845 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
846 |
{object V165; |
{object V153; |
847 |
register object V166; |
register object V154; |
848 |
object V167; |
object V155; |
849 |
object V168; |
object V156; |
850 |
object V169; |
object V157; |
851 |
object V170; |
object V158; |
852 |
object V171; |
object V159; |
853 |
object V172; |
object V160; |
854 |
object V173; |
object V161; |
855 |
va_start(ap,first); |
va_start(ap,first); |
856 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
857 |
V165= V164; |
V153= V152; |
858 |
V166= V163; |
V154= V151; |
859 |
narg= narg - 2; |
narg= narg - 2; |
860 |
{ |
{ |
861 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI14key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI14key,first,ap); |
862 |
V167=(Vcs[2]); |
V155=(Vcs[2]); |
863 |
V168=(Vcs[3]); |
V156=(Vcs[3]); |
864 |
V169=(Vcs[4]); |
V157=(Vcs[4]); |
865 |
V170=(Vcs[5]); |
V158=(Vcs[5]); |
866 |
V171=(Vcs[6]); |
V159=(Vcs[6]); |
867 |
V172=(Vcs[7]); |
V160=(Vcs[7]); |
868 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
869 |
V173= symbol_function(VV[35]); |
V161= symbol_function(VV[35]); |
870 |
}else{ |
}else{ |
871 |
V173=(Vcs[8]);} |
V161=(Vcs[8]);} |
872 |
{long V174; |
{long V162; |
873 |
V174= (long)length((V166)); |
V162= (long)length((V154)); |
874 |
if(!(((V173))==(Cnil))){ |
if(!(((V161))==(Cnil))){ |
|
goto T294;} |
|
|
V173= symbol_function(VV[35]); |
|
|
goto T294; |
|
|
T294:; |
|
|
{register long V175; |
|
|
if(((V170))==Cnil){ |
|
|
goto T300;} |
|
|
V175= (long)(*(LnkLI36))((V170)); |
|
|
goto T298; |
|
|
goto T300; |
|
|
T300:; |
|
|
V175= 0; |
|
|
goto T298; |
|
|
T298:; |
|
|
{long V176; |
|
|
V176= (long)(*(LnkLI37))((V171),(V166)); |
|
|
if(!((V175)<=(V176))){ |
|
|
goto T304;} |
|
|
goto T303; |
|
|
goto T304; |
|
|
T304:; |
|
|
V177 = make_fixnum(V175); |
|
|
V178 = make_fixnum(V176); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V177,V178))); |
|
|
goto T303; |
|
|
T303:; |
|
|
{IDECL(register GEN V179,V179space,V179alloc); |
|
|
if(((V172))!=Cnil){ |
|
875 |
goto T308;} |
goto T308;} |
876 |
ISETQ_FIX(V179,V179alloc,2147483647); |
V161= symbol_function(VV[35]); |
|
goto T306; |
|
877 |
goto T308; |
goto T308; |
878 |
T308:;SETQ_IO(V179,V179alloc,(V172)); |
T308:; |
879 |
goto T306; |
{register long V163; |
880 |
T306:; |
if(((V158))==Cnil){ |
881 |
if((V168)==Cnil){ |
goto T314;} |
882 |
goto T311;} |
V163= (long)(*(LnkLI36))((V158)); |
883 |
if((V169)==Cnil){ |
goto T312; |
884 |
goto T311;} |
goto T314; |
885 |
(void)((*(LnkLI42))()); |
T314:; |
886 |
goto T311; |
V163= 0; |
887 |
T311:; |
goto T312; |
888 |
if(((V167))!=Cnil){ |
T312:; |
889 |
goto T313;} |
{long V164; |
890 |
if(!(type_of((V166))==t_cons||((V166))==Cnil)){ |
V164= (long)(*(LnkLI37))((V159),(V154)); |
891 |
goto T316;} |
if(!((V163)<=(V164))){ |
892 |
{object V180; |
goto T318;} |
893 |
register object V181; |
goto T317; |
894 |
V180= make_cons(Cnil,(V166)); |
goto T318; |
895 |
V181= (V180); |
T318:; |
896 |
{long V182; |
base[0]= make_fixnum(V163); |
897 |
V182= 0; |
base[1]= make_fixnum(V164); |
898 |
goto T323; |
vs_top=(vs_base=base+0)+2; |
899 |
T323:; |
(void) (*Lnk33)(); |
900 |
if(!((V182)>=(V175))){ |
vs_top=sup; |
901 |
|
goto T317; |
902 |
|
T317:; |
903 |
|
{IDECL(register GEN V165,V165space,V165alloc); |
904 |
|
if(((V160))!=Cnil){ |
905 |
goto T324;} |
goto T324;} |
906 |
goto T320; |
ISETQ_FIX(V165,V165alloc,2147483647); |
907 |
|
goto T322; |
908 |
goto T324; |
goto T324; |
909 |
T324:; |
T324:;SETQ_IO(V165,V165alloc,(V160)); |
910 |
{object V183; |
goto T322; |
911 |
V183= car((V181)); |
T322:; |
912 |
V181= cdr((V181));} |
if((V156)==Cnil){ |
913 |
V182= (long)(1)+(V182); |
goto T327;} |
914 |
goto T323;} |
if((V157)==Cnil){ |
915 |
goto T320; |
goto T327;} |
916 |
T320:; |
(void)((*(LnkLI42))()); |
917 |
{long V184; |
goto T327; |
918 |
long V185; |
T327:; |
919 |
V184= V175; |
if(((V155))!=Cnil){ |
920 |
V185= 0; |
goto T329;} |
921 |
goto T338; |
if(!(type_of((V154))==t_cons||((V154))==Cnil)){ |
922 |
T338:; |
goto T332;} |
923 |
if((V184)>=(V176)){ |
{object V166; |
924 |
goto T340;} |
register object V167; |
925 |
V186 = make_fixnum(V185); |
V166= make_cons(Cnil,(V154)); |
926 |
V187 = make_integer(V179); |
V167= (V166); |
927 |
if(number_compare(V186,V187)>=0){ |
{long V168; |
928 |
|
V168= 0; |
929 |
|
goto T339; |
930 |
|
T339:; |
931 |
|
if(!((V168)>=(V163))){ |
932 |
goto T340;} |
goto T340;} |
933 |
if(!(endp_prop(cdr((V181))))){ |
goto T336; |
|
goto T339;} |
|
934 |
goto T340; |
goto T340; |
935 |
T340:; |
T340:; |
936 |
{object V188 = cdr((V180)); |
{object V169; |
937 |
VMR14(V188)} |
V169= car((V167)); |
938 |
goto T339; |
V167= cdr((V167));} |
939 |
T339:; |
V168= (long)(1)+(V168); |
940 |
base[1]= cadr((V181)); |
goto T339;} |
941 |
|
goto T336; |
942 |
|
T336:; |
943 |
|
{long V170; |
944 |
|
long V171; |
945 |
|
V170= V163; |
946 |
|
V171= 0; |
947 |
|
goto T354; |
948 |
|
T354:; |
949 |
|
if((V170)>=(V164)){ |
950 |
|
goto T356;} |
951 |
|
V172 = make_fixnum(V171); |
952 |
|
V173 = make_integer(V165); |
953 |
|
if(number_compare(V172,V173)>=0){ |
954 |
|
goto T356;} |
955 |
|
if(!(endp_prop(cdr((V167))))){ |
956 |
|
goto T355;} |
957 |
|
goto T356; |
958 |
|
T356:; |
959 |
|
{object V174 = cdr((V166)); |
960 |
|
VMR14(V174)} |
961 |
|
goto T355; |
962 |
|
T355:; |
963 |
|
base[1]= cadr((V167)); |
964 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
965 |
super_funcall_no_event((V173)); |
super_funcall_no_event((V161)); |
966 |
vs_top=sup; |
vs_top=sup; |
967 |
V189= vs_base[0]; |
V175= vs_base[0]; |
968 |
if(((*(LnkLI43))((V168),(V169),(V165),V189))==Cnil){ |
if(((*(LnkLI43))((V156),(V157),(V153),V175))==Cnil){ |
969 |
goto T349;} |
goto T365;} |
970 |
V185= (long)(1)+(V185); |
V171= (long)(1)+(V171); |
971 |
if(type_of((V181))!=t_cons)FEwrong_type_argument(Scons,(V181)); |
if(type_of((V167))!=t_cons)FEwrong_type_argument(Scons,(V167)); |
972 |
((V181))->c.c_cdr = cddr((V181)); |
((V167))->c.c_cdr = cddr((V167)); |
973 |
goto T347; |
goto T363; |
974 |
goto T349; |
goto T365; |
975 |
T349:; |
T365:; |
976 |
V181= cdr((V181)); |
V167= cdr((V167)); |
977 |
goto T347; |
goto T363; |
978 |
T347:; |
T363:; |
979 |
V184= (long)(1)+(V184); |
V170= (long)(1)+(V170); |
980 |
goto T338;}} |
goto T354;}} |
981 |
goto T316; |
goto T332; |
982 |
T316:; |
T332:; |
983 |
{long V190; |
{long V176; |
984 |
V191 = make_fixnum(V175); |
V177 = make_fixnum(V163); |
985 |
V192 = make_fixnum(V176); |
V178 = make_fixnum(V164); |
986 |
V193 = make_integer(V179); |
V179 = make_integer(V165); |
987 |
V190= fix((VFUN_NARGS=16,(*(LnkLI47))((V165),(V166),VV[11],(V167),VV[12],(V168),VV[13],(V169),VV[14],V191,VV[15],V192,VV[16],V193,VV[17],(V173)))); |
V176= fix((VFUN_NARGS=16,(*(LnkLI47))((V153),(V154),VV[11],(V155),VV[12],(V156),VV[13],(V157),VV[14],V177,VV[15],V178,VV[16],V179,VV[17],(V161)))); |
988 |
V194 = make_fixnum(V190); |
V180 = make_fixnum(V176); |
989 |
V195 = make_integer(V179); |
V181 = make_integer(V165); |
990 |
if(!(number_compare(V194,V195)<0)){ |
if(!(number_compare(V180,V181)<0)){ |
991 |
goto T360;}ISETQ_FIX(V179,V179alloc,V190); |
goto T376;}ISETQ_FIX(V165,V165alloc,V176); |
992 |
goto T360; |
goto T376; |
993 |
T360:; |
T376:; |
994 |
V196 = make_integer(V179); |
V182 = make_integer(V165); |
995 |
if(!(number_compare(V196,small_fixnum(0))<0)){ |
if(!(number_compare(V182,small_fixnum(0))<0)){ |
|
goto T364;} |
|
|
ISETQ_FIX(V179,V179alloc,0); |
|
|
goto T364; |
|
|
T364:; |
|
|
{object V197; |
|
|
register long V198; |
|
|
long V199; |
|
|
long V200; |
|
|
V201= (*(LnkLI49))((V166)); |
|
|
V202 = fix(make_integer(V179)); |
|
|
V203 = make_fixnum((long)(V174)-(V202)); |
|
|
V197= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V201,V203)); |
|
|
V198= 0; |
|
|
V199= 0; |
|
|
V200= 0; |
|
|
goto T373; |
|
|
T373:; |
|
|
if(!((V198)>=(V174))){ |
|
|
goto T374;} |
|
|
{object V204 = (V197); |
|
|
VMR14(V204)} |
|
|
goto T374; |
|
|
T374:; |
|
|
if(!((V175)<=(V198))){ |
|
|
goto T380;} |
|
|
if(!((V198)<(V176))){ |
|
|
goto T380;} |
|
|
V205 = make_fixnum(V200); |
|
|
V206 = make_integer(V179); |
|
|
if(!(number_compare(V205,V206)<0)){ |
|
|
goto T380;} |
|
|
base[0]= elt((V166),V198); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V173)); |
|
|
vs_top=sup; |
|
|
V207= vs_base[0]; |
|
|
if(((*(LnkLI43))((V168),(V169),(V165),V207))==Cnil){ |
|
996 |
goto T380;} |
goto T380;} |
997 |
V200= (long)(1)+(V200); |
ISETQ_FIX(V165,V165alloc,0); |
|
goto T378; |
|
998 |
goto T380; |
goto T380; |
999 |
T380:; |
T380:; |
1000 |
V208= elt((V166),V198); |
{object V183; |
1001 |
(void)(elt_set((V197),V199,/* INLINE-ARGS */V208)); |
register long V184; |
1002 |
V199= (long)(1)+(V199); |
long V185; |
1003 |
goto T378; |
long V186; |
1004 |
T378:; |
V187= (*(LnkLI49))((V154)); |
1005 |
V198= (long)(1)+(V198); |
V188 = fix(make_integer(V165)); |
1006 |
goto T373;}} |
V189 = make_fixnum((long)(V162)-(V188)); |
1007 |
goto T313; |
V183= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V187,V189)); |
1008 |
T313:; |
V184= 0; |
1009 |
{long V209; |
V185= 0; |
1010 |
V210 = make_fixnum(V175); |
V186= 0; |
1011 |
V211 = make_fixnum(V176); |
goto T389; |
1012 |
V212 = make_integer(V179); |
T389:; |
1013 |
V209= fix((VFUN_NARGS=16,(*(LnkLI47))((V165),(V166),VV[11],(V167),VV[12],(V168),VV[13],(V169),VV[14],V210,VV[15],V211,VV[16],V212,VV[17],(V173)))); |
if(!((V184)>=(V162))){ |
1014 |
V213 = make_fixnum(V209); |
goto T390;} |
1015 |
V214 = make_integer(V179); |
{object V190 = (V183); |
1016 |
if(!(number_compare(V213,V214)<0)){ |
VMR14(V190)} |
1017 |
goto T397;}ISETQ_FIX(V179,V179alloc,V209); |
goto T390; |
1018 |
goto T397; |
T390:; |
1019 |
T397:; |
if(!((V163)<=(V184))){ |
1020 |
V215 = make_integer(V179); |
goto T396;} |
1021 |
if(!(number_compare(V215,small_fixnum(0))<0)){ |
if(!((V184)<(V164))){ |
1022 |
goto T401;} |
goto T396;} |
1023 |
ISETQ_FIX(V179,V179alloc,0); |
V191 = make_fixnum(V186); |
1024 |
goto T401; |
V192 = make_integer(V165); |
1025 |
T401:; |
if(!(number_compare(V191,V192)<0)){ |
1026 |
{object V216; |
goto T396;} |
1027 |
register long V217; |
base[0]= elt((V154),V184); |
1028 |
long V218; |
vs_top=(vs_base=base+0)+1; |
1029 |
long V219; |
super_funcall_no_event((V161)); |
1030 |
V220= (*(LnkLI49))((V166)); |
vs_top=sup; |
1031 |
V221 = fix(make_integer(V179)); |
V193= vs_base[0]; |
1032 |
V222 = make_fixnum((long)(V174)-(V221)); |
if(((*(LnkLI43))((V156),(V157),(V153),V193))==Cnil){ |
1033 |
V216= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V220,V222)); |
goto T396;} |
1034 |
V217= (long)(-1)+(V174); |
V186= (long)(1)+(V186); |
1035 |
V223 = fix(make_integer(V179)); |
goto T394; |
1036 |
V218= (long)(-1)+((long)(V174)-(V223)); |
goto T396; |
1037 |
V219= 0; |
T396:; |
1038 |
goto T410; |
V194= elt((V154),V184); |
1039 |
T410:; |
(void)(elt_set((V183),V185,/* INLINE-ARGS */V194)); |
1040 |
if(!((V217)<(0))){ |
V185= (long)(1)+(V185); |
1041 |
goto T411;} |
goto T394; |
1042 |
{object V224 = (V216); |
T394:; |
1043 |
VMR14(V224)} |
V184= (long)(1)+(V184); |
1044 |
goto T411; |
goto T389;}} |
1045 |
T411:; |
goto T329; |
1046 |
if(!((V175)<=(V217))){ |
T329:; |
1047 |
goto T417;} |
{long V195; |
1048 |
if(!((V217)<(V176))){ |
V196 = make_fixnum(V163); |
1049 |
goto T417;} |
V197 = make_fixnum(V164); |
1050 |
V225 = make_fixnum(V219); |
V198 = make_integer(V165); |
1051 |
V226 = make_integer(V179); |
V195= fix((VFUN_NARGS=16,(*(LnkLI47))((V153),(V154),VV[11],(V155),VV[12],(V156),VV[13],(V157),VV[14],V196,VV[15],V197,VV[16],V198,VV[17],(V161)))); |
1052 |
if(!(number_compare(V225,V226)<0)){ |
V199 = make_fixnum(V195); |
1053 |
goto T417;} |
V200 = make_integer(V165); |
1054 |
base[0]= elt((V166),V217); |
if(!(number_compare(V199,V200)<0)){ |
1055 |
vs_top=(vs_base=base+0)+1; |
goto T413;}ISETQ_FIX(V165,V165alloc,V195); |
1056 |
super_funcall_no_event((V173)); |
goto T413; |
1057 |
vs_top=sup; |
T413:; |
1058 |
V227= vs_base[0]; |
V201 = make_integer(V165); |
1059 |
if(((*(LnkLI43))((V168),(V169),(V165),V227))==Cnil){ |
if(!(number_compare(V201,small_fixnum(0))<0)){ |
1060 |
goto T417;} |
goto T417;} |
1061 |
V219= (long)(1)+(V219); |
ISETQ_FIX(V165,V165alloc,0); |
|
goto T415; |
|
1062 |
goto T417; |
goto T417; |
1063 |
T417:; |
T417:; |
1064 |
V228= elt((V166),V217); |
{object V202; |
1065 |
(void)(elt_set((V216),V218,/* INLINE-ARGS */V228)); |
register long V203; |
1066 |
V218= (long)(-1)+(V218); |
long V204; |
1067 |
goto T415; |
long V205; |
1068 |
T415:; |
V206= (*(LnkLI49))((V154)); |
1069 |
V217= (long)(-1)+(V217); |
V207 = fix(make_integer(V165)); |
1070 |
goto T410;}}}}}} |
V208 = make_fixnum((long)(V162)-(V207)); |
1071 |
|
V202= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V206,V208)); |
1072 |
|
V203= (long)(-1)+(V162); |
1073 |
|
V209 = fix(make_integer(V165)); |
1074 |
|
V204= (long)(-1)+((long)(V162)-(V209)); |
1075 |
|
V205= 0; |
1076 |
|
goto T426; |
1077 |
|
T426:; |
1078 |
|
if(!((V203)<(0))){ |
1079 |
|
goto T427;} |
1080 |
|
{object V210 = (V202); |
1081 |
|
VMR14(V210)} |
1082 |
|
goto T427; |
1083 |
|
T427:; |
1084 |
|
if(!((V163)<=(V203))){ |
1085 |
|
goto T433;} |
1086 |
|
if(!((V203)<(V164))){ |
1087 |
|
goto T433;} |
1088 |
|
V211 = make_fixnum(V205); |
1089 |
|
V212 = make_integer(V165); |
1090 |
|
if(!(number_compare(V211,V212)<0)){ |
1091 |
|
goto T433;} |
1092 |
|
base[0]= elt((V154),V203); |
1093 |
|
vs_top=(vs_base=base+0)+1; |
1094 |
|
super_funcall_no_event((V161)); |
1095 |
|
vs_top=sup; |
1096 |
|
V213= vs_base[0]; |
1097 |
|
if(((*(LnkLI43))((V156),(V157),(V153),V213))==Cnil){ |
1098 |
|
goto T433;} |
1099 |
|
V205= (long)(1)+(V205); |
1100 |
|
goto T431; |
1101 |
|
goto T433; |
1102 |
|
T433:; |
1103 |
|
V214= elt((V154),V203); |
1104 |
|
(void)(elt_set((V202),V204,/* INLINE-ARGS */V214)); |
1105 |
|
V204= (long)(-1)+(V204); |
1106 |
|
goto T431; |
1107 |
|
T431:; |
1108 |
|
V203= (long)(-1)+(V203); |
1109 |
|
goto T426;}}}}}} |
1110 |
va_end(ap); |
va_end(ap); |
1111 |
base[0]=base[0]; |
base[0]=base[0]; |
1112 |
return Cnil;} |
return Cnil;} |
1113 |
}} |
}} |
1114 |
/* local entry for function DELETE-IF */ |
/* local entry for function DELETE-IF */ |
1115 |
|
|
1116 |
static object LI15(object V230,object V229,object first,...) |
static object LI15(object V216,object V215,object first,...) |
1117 |
{ |
{ |
1118 |
va_list ap; |
va_list ap; |
1119 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
1120 |
{object V231; |
{object V217; |
1121 |
object V232; |
object V218; |
1122 |
object V233; |
object V219; |
1123 |
object V234; |
object V220; |
1124 |
object V235; |
object V221; |
1125 |
object V236; |
object V222; |
1126 |
object V237; |
object V223; |
1127 |
va_start(ap,first); |
va_start(ap,first); |
1128 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1129 |
V231= V230; |
V217= V216; |
1130 |
V232= V229; |
V218= V215; |
1131 |
narg= narg - 2; |
narg= narg - 2; |
1132 |
{ |
{ |
1133 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI15key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI15key,first,ap); |
1134 |
V233=(Vcs[2]); |
V219=(Vcs[2]); |
1135 |
V234=(Vcs[3]); |
V220=(Vcs[3]); |
1136 |
V235=(Vcs[4]); |
V221=(Vcs[4]); |
1137 |
V236=(Vcs[5]); |
V222=(Vcs[5]); |
1138 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1139 |
V237= symbol_function(VV[35]); |
V223= symbol_function(VV[35]); |
1140 |
}else{ |
}else{ |
1141 |
V237=(Vcs[6]);} |
V223=(Vcs[6]);} |
1142 |
if(!(((V237))==(Cnil))){ |
if(!(((V223))==(Cnil))){ |
1143 |
goto T434;} |
goto T450;} |
1144 |
V237= symbol_function(VV[35]); |
V223= symbol_function(VV[35]); |
1145 |
goto T434; |
goto T450; |
1146 |
T434:; |
T450:; |
1147 |
V238= symbol_function(VV[46]); |
V224= symbol_function(VV[46]); |
1148 |
{object V239 = (VFUN_NARGS=14,(*(LnkLI44))((V231),(V232),VV[11],(V233),VV[12],V238,VV[14],(V234),VV[15],(V235),VV[16],(V236),VV[17],(V237))); |
{object V225 = (VFUN_NARGS=14,(*(LnkLI44))((V217),(V218),VV[11],(V219),VV[12],V224,VV[14],(V220),VV[15],(V221),VV[16],(V222),VV[17],(V223))); |
1149 |
VMR15(V239)} |
VMR15(V225)} |
1150 |
va_end(ap); |
va_end(ap); |
1151 |
return Cnil;} |
return Cnil;} |
1152 |
}} |
}} |
1153 |
/* local entry for function DELETE-IF-NOT */ |
/* local entry for function DELETE-IF-NOT */ |
1154 |
|
|
1155 |
static object LI16(object V241,object V240,object first,...) |
static object LI16(object V227,object V226,object first,...) |
1156 |
{ |
{ |
1157 |
va_list ap; |
va_list ap; |
1158 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1159 |
{object V242; |
{object V228; |
1160 |
object V243; |
object V229; |
1161 |
object V244; |
object V230; |
1162 |
object V245; |
object V231; |
1163 |
object V246; |
object V232; |
1164 |
object V247; |
object V233; |
1165 |
object V248; |
object V234; |
1166 |
va_start(ap,first); |
va_start(ap,first); |
1167 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1168 |
V242= V241; |
V228= V227; |
1169 |
V243= V240; |
V229= V226; |
1170 |
narg= narg - 2; |
narg= narg - 2; |
1171 |
{ |
{ |
1172 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI16key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI16key,first,ap); |
1173 |
V244=(Vcs[2]); |
V230=(Vcs[2]); |
1174 |
V245=(Vcs[3]); |
V231=(Vcs[3]); |
1175 |
V246=(Vcs[4]); |
V232=(Vcs[4]); |
1176 |
V247=(Vcs[5]); |
V233=(Vcs[5]); |
1177 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1178 |
V248= symbol_function(VV[35]); |
V234= symbol_function(VV[35]); |
1179 |
}else{ |
}else{ |
1180 |
V248=(Vcs[6]);} |
V234=(Vcs[6]);} |
1181 |
if(!(((V248))==(Cnil))){ |
if(!(((V234))==(Cnil))){ |
1182 |
goto T440;} |
goto T456;} |
1183 |
V248= symbol_function(VV[35]); |
V234= symbol_function(VV[35]); |
1184 |
goto T440; |
goto T456; |
1185 |
T440:; |
T456:; |
1186 |
V249= symbol_function(VV[46]); |
V235= symbol_function(VV[46]); |
1187 |
{object V250 = (VFUN_NARGS=14,(*(LnkLI44))((V242),(V243),VV[11],(V244),VV[13],V249,VV[14],(V245),VV[15],(V246),VV[16],(V247),VV[17],(V248))); |
{object V236 = (VFUN_NARGS=14,(*(LnkLI44))((V228),(V229),VV[11],(V230),VV[13],V235,VV[14],(V231),VV[15],(V232),VV[16],(V233),VV[17],(V234))); |
1188 |
VMR16(V250)} |
VMR16(V236)} |
1189 |
va_end(ap); |
va_end(ap); |
1190 |
return Cnil;} |
return Cnil;} |
1191 |
}} |
}} |
1192 |
/* local entry for function COUNT */ |
/* local entry for function COUNT */ |
1193 |
|
|
1194 |
static object LI17(object V252,object V251,object first,...) |
static object LI17(object V238,object V237,object first,...) |
1195 |
{ |
{ |
1196 |
va_list ap; |
va_list ap; |
1197 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
1198 |
{object V253; |
{object V239; |
1199 |
register object V254; |
register object V240; |
1200 |
object V255; |
object V241; |
1201 |
register object V256; |
register object V242; |
1202 |
register object V257; |
register object V243; |
1203 |
object V258; |
object V244; |
1204 |
object V259; |
object V245; |
1205 |
register object V260; |
register object V246; |
1206 |
va_start(ap,first); |
va_start(ap,first); |
1207 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1208 |
V253= V252; |
V239= V238; |
1209 |
V254= V251; |
V240= V237; |
1210 |
narg= narg - 2; |
narg= narg - 2; |
1211 |
{ |
{ |
1212 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI17key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI17key,first,ap); |
1213 |
V255=(Vcs[2]); |
V241=(Vcs[2]); |
1214 |
V256=(Vcs[3]); |
V242=(Vcs[3]); |
1215 |
V257=(Vcs[4]); |
V243=(Vcs[4]); |
1216 |
V258=(Vcs[5]); |
V244=(Vcs[5]); |
1217 |
V259=(Vcs[6]); |
V245=(Vcs[6]); |
1218 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1219 |
V260= symbol_function(VV[35]); |
V246= symbol_function(VV[35]); |
1220 |
}else{ |
}else{ |
1221 |
V260=(Vcs[7]);} |
V246=(Vcs[7]);} |
1222 |
if(!(((V260))==(Cnil))){ |
if(!(((V246))==(Cnil))){ |
1223 |
goto T446;} |
goto T462;} |
1224 |
V260= symbol_function(VV[35]); |
V246= symbol_function(VV[35]); |
1225 |
goto T446; |
goto T462; |
1226 |
T446:; |
T462:; |
1227 |
{long V261; |
{long V247; |
1228 |
if(((V258))==Cnil){ |
if(((V244))==Cnil){ |
1229 |
goto T452;} |
goto T468;} |
1230 |
V261= (long)(*(LnkLI36))((V258)); |
V247= (long)(*(LnkLI36))((V244)); |
1231 |
goto T450; |
goto T466; |
1232 |
goto T452; |
goto T468; |
1233 |
T452:; |
T468:; |
1234 |
V261= 0; |
V247= 0; |
|
goto T450; |
|
|
T450:; |
|
|
{long V262; |
|
|
V262= (long)(*(LnkLI37))((V259),(V254)); |
|
|
if(!((V261)<=(V262))){ |
|
|
goto T456;} |
|
|
goto T455; |
|
|
goto T456; |
|
|
T456:; |
|
|
V263 = make_fixnum(V261); |
|
|
V264 = make_fixnum(V262); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V263,V264))); |
|
|
goto T455; |
|
|
T455:; |
|
|
if((V256)==Cnil){ |
|
|
goto T458;} |
|
|
if((V257)==Cnil){ |
|
|
goto T458;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T458; |
|
|
T458:; |
|
|
if(((V255))!=Cnil){ |
|
|
goto T460;} |
|
|
{register long V265; |
|
|
register long V266; |
|
|
V265= V261; |
|
|
V266= 0; |
|
|
goto T465; |
|
|
T465:; |
|
|
if(!((V265)>=(V262))){ |
|
|
goto T466;} |
|
|
{object V267 = make_fixnum(V266); |
|
|
VMR17(V267)} |
|
1235 |
goto T466; |
goto T466; |
1236 |
T466:; |
T466:; |
1237 |
base[0]= elt((V254),V265); |
{long V248; |
1238 |
vs_top=(vs_base=base+0)+1; |
V248= (long)(*(LnkLI37))((V245),(V240)); |
1239 |
super_funcall_no_event((V260)); |
if(!((V247)<=(V248))){ |
1240 |
|
goto T472;} |
1241 |
|
goto T471; |
1242 |
|
goto T472; |
1243 |
|
T472:; |
1244 |
|
base[0]= make_fixnum(V247); |
1245 |
|
base[1]= make_fixnum(V248); |
1246 |
|
vs_top=(vs_base=base+0)+2; |
1247 |
|
(void) (*Lnk33)(); |
1248 |
vs_top=sup; |
vs_top=sup; |
1249 |
V268= vs_base[0]; |
goto T471; |
1250 |
if(((*(LnkLI43))((V256),(V257),(V253),V268))==Cnil){ |
T471:; |
1251 |
goto T470;} |
if((V242)==Cnil){ |
1252 |
V266= (long)(1)+(V266); |
goto T476;} |
1253 |
goto T470; |
if((V243)==Cnil){ |
1254 |
T470:; |
goto T476;} |
1255 |
V265= (long)(1)+(V265); |
(void)((*(LnkLI42))()); |
1256 |
goto T465;} |
goto T476; |
1257 |
goto T460; |
T476:; |
1258 |
T460:; |
if(((V241))!=Cnil){ |
1259 |
{register long V269; |
goto T478;} |
1260 |
register long V270; |
{register long V249; |
1261 |
V269= (long)(-1)+(V262); |
register long V250; |
1262 |
V270= 0; |
V249= V247; |
1263 |
goto T482; |
V250= 0; |
|
T482:; |
|
|
if(!((V269)<(V261))){ |
|
|
goto T483;} |
|
|
{object V271 = make_fixnum(V270); |
|
|
VMR17(V271)} |
|
1264 |
goto T483; |
goto T483; |
1265 |
T483:; |
T483:; |
1266 |
base[0]= elt((V254),V269); |
if(!((V249)>=(V248))){ |
1267 |
vs_top=(vs_base=base+0)+1; |
goto T484;} |
1268 |
super_funcall_no_event((V260)); |
{object V251 = make_fixnum(V250); |
1269 |
vs_top=sup; |
VMR17(V251)} |
1270 |
V272= vs_base[0]; |
goto T484; |
1271 |
if(((*(LnkLI43))((V256),(V257),(V253),V272))==Cnil){ |
T484:; |
1272 |
goto T487;} |
base[0]= elt((V240),V249); |
1273 |
V270= (long)(1)+(V270); |
vs_top=(vs_base=base+0)+1; |
1274 |
goto T487; |
super_funcall_no_event((V246)); |
1275 |
T487:; |
vs_top=sup; |
1276 |
V269= (long)(-1)+(V269); |
V252= vs_base[0]; |
1277 |
goto T482;}}} |
if(((*(LnkLI43))((V242),(V243),(V239),V252))==Cnil){ |
1278 |
|
goto T488;} |
1279 |
|
V250= (long)(1)+(V250); |
1280 |
|
goto T488; |
1281 |
|
T488:; |
1282 |
|
V249= (long)(1)+(V249); |
1283 |
|
goto T483;} |
1284 |
|
goto T478; |
1285 |
|
T478:; |
1286 |
|
{register long V253; |
1287 |
|
register long V254; |
1288 |
|
V253= (long)(-1)+(V248); |
1289 |
|
V254= 0; |
1290 |
|
goto T500; |
1291 |
|
T500:; |
1292 |
|
if(!((V253)<(V247))){ |
1293 |
|
goto T501;} |
1294 |
|
{object V255 = make_fixnum(V254); |
1295 |
|
VMR17(V255)} |
1296 |
|
goto T501; |
1297 |
|
T501:; |
1298 |
|
base[0]= elt((V240),V253); |
1299 |
|
vs_top=(vs_base=base+0)+1; |
1300 |
|
super_funcall_no_event((V246)); |
1301 |
|
vs_top=sup; |
1302 |
|
V256= vs_base[0]; |
1303 |
|
if(((*(LnkLI43))((V242),(V243),(V239),V256))==Cnil){ |
1304 |
|
goto T505;} |
1305 |
|
V254= (long)(1)+(V254); |
1306 |
|
goto T505; |
1307 |
|
T505:; |
1308 |
|
V253= (long)(-1)+(V253); |
1309 |
|
goto T500;}}} |
1310 |
va_end(ap); |
va_end(ap); |
1311 |
base[0]=base[0]; |
base[0]=base[0]; |
1312 |
return Cnil;} |
return Cnil;} |
1313 |
}} |
}} |
1314 |
/* local entry for function COUNT-IF */ |
/* local entry for function COUNT-IF */ |
1315 |
|
|
1316 |
static object LI18(object V274,object V273,object first,...) |
static object LI18(object V258,object V257,object first,...) |
1317 |
{ |
{ |
1318 |
va_list ap; |
va_list ap; |
1319 |
int narg = VFUN_NARGS; VMB18 VMS18 VMV18 |
int narg = VFUN_NARGS; VMB18 VMS18 VMV18 |
1320 |
{object V275; |
{object V259; |
1321 |
object V276; |
object V260; |
1322 |
object V277; |
object V261; |
1323 |
object V278; |
object V262; |
1324 |
object V279; |
object V263; |
1325 |
object V280; |
object V264; |
1326 |
va_start(ap,first); |
va_start(ap,first); |
1327 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1328 |
V275= V274; |
V259= V258; |
1329 |
V276= V273; |
V260= V257; |
1330 |
narg= narg - 2; |
narg= narg - 2; |
1331 |
{ |
{ |
1332 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI18key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI18key,first,ap); |
1333 |
V277=(Vcs[2]); |
V261=(Vcs[2]); |
1334 |
V278=(Vcs[3]); |
V262=(Vcs[3]); |
1335 |
V279=(Vcs[4]); |
V263=(Vcs[4]); |
1336 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1337 |
V280= symbol_function(VV[35]); |
V264= symbol_function(VV[35]); |
1338 |
}else{ |
}else{ |
1339 |
V280=(Vcs[5]);} |
V264=(Vcs[5]);} |
1340 |
if(!(((V280))==(Cnil))){ |
if(!(((V264))==(Cnil))){ |
1341 |
goto T497;} |
goto T515;} |
1342 |
V280= symbol_function(VV[35]); |
V264= symbol_function(VV[35]); |
1343 |
goto T497; |
goto T515; |
1344 |
T497:; |
T515:; |
1345 |
V281= symbol_function(VV[46]); |
V265= symbol_function(VV[46]); |
1346 |
{object V282 = (VFUN_NARGS=12,(*(LnkLI50))((V275),(V276),VV[11],(V277),VV[12],V281,VV[14],(V278),VV[15],(V279),VV[17],(V280))); |
{object V266 = (VFUN_NARGS=12,(*(LnkLI50))((V259),(V260),VV[11],(V261),VV[12],V265,VV[14],(V262),VV[15],(V263),VV[17],(V264))); |
1347 |
VMR18(V282)} |
VMR18(V266)} |
1348 |
va_end(ap); |
va_end(ap); |
1349 |
return Cnil;} |
return Cnil;} |
1350 |
}} |
}} |
1351 |
/* local entry for function COUNT-IF-NOT */ |
/* local entry for function COUNT-IF-NOT */ |
1352 |
|
|
1353 |
static object LI19(object V284,object V283,object first,...) |
static object LI19(object V268,object V267,object first,...) |
1354 |
{ |
{ |
1355 |
va_list ap; |
va_list ap; |
1356 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
1357 |
{object V285; |
{object V269; |
1358 |
object V286; |
object V270; |
1359 |
object V287; |
object V271; |
1360 |
object V288; |
object V272; |
1361 |
object V289; |
object V273; |
1362 |
object V290; |
object V274; |
1363 |
va_start(ap,first); |
va_start(ap,first); |
1364 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1365 |
V285= V284; |
V269= V268; |
1366 |
V286= V283; |
V270= V267; |
1367 |
narg= narg - 2; |
narg= narg - 2; |
1368 |
{ |
{ |
1369 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI19key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI19key,first,ap); |
1370 |
V287=(Vcs[2]); |
V271=(Vcs[2]); |
1371 |
V288=(Vcs[3]); |
V272=(Vcs[3]); |
1372 |
V289=(Vcs[4]); |
V273=(Vcs[4]); |
1373 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1374 |
V290= symbol_function(VV[35]); |
V274= symbol_function(VV[35]); |
1375 |
}else{ |
}else{ |
1376 |
V290=(Vcs[5]);} |
V274=(Vcs[5]);} |
1377 |
if(!(((V290))==(Cnil))){ |
if(!(((V274))==(Cnil))){ |
1378 |
goto T503;} |
goto T521;} |
1379 |
V290= symbol_function(VV[35]); |
V274= symbol_function(VV[35]); |
1380 |
goto T503; |
goto T521; |
1381 |
T503:; |
T521:; |
1382 |
V291= symbol_function(VV[46]); |
V275= symbol_function(VV[46]); |
1383 |
{object V292 = (VFUN_NARGS=12,(*(LnkLI50))((V285),(V286),VV[11],(V287),VV[13],V291,VV[14],(V288),VV[15],(V289),VV[17],(V290))); |
{object V276 = (VFUN_NARGS=12,(*(LnkLI50))((V269),(V270),VV[11],(V271),VV[13],V275,VV[14],(V272),VV[15],(V273),VV[17],(V274))); |
1384 |
VMR19(V292)} |
VMR19(V276)} |
1385 |
va_end(ap); |
va_end(ap); |
1386 |
return Cnil;} |
return Cnil;} |
1387 |
}} |
}} |
1388 |
/* local entry for function INTERNAL-COUNT */ |
/* local entry for function INTERNAL-COUNT */ |
1389 |
|
|
1390 |
static object LI20(object V294,object V293,object first,...) |
static object LI20(object V278,object V277,object first,...) |
1391 |
{ |
{ |
1392 |
va_list ap; |
va_list ap; |
1393 |
int narg = VFUN_NARGS; VMB20 VMS20 VMV20 |
int narg = VFUN_NARGS; VMB20 VMS20 VMV20 |
1394 |
{object V295; |
{object V279; |
1395 |
register object V296; |
register object V280; |
1396 |
object V297; |
object V281; |
1397 |
register object V298; |
register object V282; |
1398 |
register object V299; |
register object V283; |
1399 |
object V300; |
object V284; |
1400 |
object V301; |
object V285; |
1401 |
object V302; |
object V286; |
1402 |
register object V303; |
register object V287; |
1403 |
va_start(ap,first); |
va_start(ap,first); |
1404 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1405 |
V295= V294; |
V279= V278; |
1406 |
V296= V293; |
V280= V277; |
1407 |
narg= narg - 2; |
narg= narg - 2; |
1408 |
{ |
{ |
1409 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI20key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI20key,first,ap); |
1410 |
V297=(Vcs[2]); |
V281=(Vcs[2]); |
1411 |
V298=(Vcs[3]); |
V282=(Vcs[3]); |
1412 |
V299=(Vcs[4]); |
V283=(Vcs[4]); |
1413 |
V300=(Vcs[5]); |
V284=(Vcs[5]); |
1414 |
V301=(Vcs[6]); |
V285=(Vcs[6]); |
1415 |
V302=(Vcs[7]); |
V286=(Vcs[7]); |
1416 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
1417 |
V303= symbol_function(VV[35]); |
V287= symbol_function(VV[35]); |
1418 |
}else{ |
}else{ |
1419 |
V303=(Vcs[8]);} |
V287=(Vcs[8]);} |
1420 |
if(!(((V303))==(Cnil))){ |
if(!(((V287))==(Cnil))){ |
1421 |
goto T509;} |
goto T527;} |
1422 |
V303= symbol_function(VV[35]); |
V287= symbol_function(VV[35]); |
1423 |
goto T509; |
goto T527; |
1424 |
T509:; |
T527:; |
1425 |
{long V304; |
{long V288; |
1426 |
if(((V300))==Cnil){ |
if(((V284))==Cnil){ |
1427 |
goto T515;} |
goto T533;} |
1428 |
V304= (long)(*(LnkLI36))((V300)); |
V288= (long)(*(LnkLI36))((V284)); |
1429 |
goto T513; |
goto T531; |
|
goto T515; |
|
|
T515:; |
|
|
V304= 0; |
|
|
goto T513; |
|
|
T513:; |
|
|
{long V305; |
|
|
V305= (long)(*(LnkLI37))((V301),(V296)); |
|
|
if(!((V304)<=(V305))){ |
|
|
goto T519;} |
|
|
goto T518; |
|
|
goto T519; |
|
|
T519:; |
|
|
V306 = make_fixnum(V304); |
|
|
V307 = make_fixnum(V305); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V306,V307))); |
|
|
goto T518; |
|
|
T518:; |
|
|
{IDECL(GEN V308,V308space,V308alloc); |
|
|
if(((V302))!=Cnil){ |
|
|
goto T523;} |
|
|
ISETQ_FIX(V308,V308alloc,2147483647); |
|
|
goto T521; |
|
|
goto T523; |
|
|
T523:;SETQ_IO(V308,V308alloc,(V302)); |
|
|
goto T521; |
|
|
T521:; |
|
|
if((V298)==Cnil){ |
|
|
goto T526;} |
|
|
if((V299)==Cnil){ |
|
|
goto T526;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T526; |
|
|
T526:; |
|
|
if(((V297))!=Cnil){ |
|
|
goto T528;} |
|
|
{register long V309; |
|
|
register long V310; |
|
|
V309= V304; |
|
|
V310= 0; |
|
1430 |
goto T533; |
goto T533; |
1431 |
T533:; |
T533:; |
1432 |
if(!((V309)>=(V305))){ |
V288= 0; |
1433 |
goto T534;} |
goto T531; |
1434 |
{object V311 = make_fixnum(V310); |
T531:; |
1435 |
VMR20(V311)} |
{long V289; |
1436 |
goto T534; |
V289= (long)(*(LnkLI37))((V285),(V280)); |
1437 |
T534:; |
if(!((V288)<=(V289))){ |
1438 |
V312 = make_fixnum(V310); |
goto T537;} |
1439 |
V313 = make_integer(V308); |
goto T536; |
1440 |
if(!(number_compare(V312,V313)<0)){ |
goto T537; |
1441 |
goto T538;} |
T537:; |
1442 |
base[0]= elt((V296),V309); |
base[0]= make_fixnum(V288); |
1443 |
vs_top=(vs_base=base+0)+1; |
base[1]= make_fixnum(V289); |
1444 |
super_funcall_no_event((V303)); |
vs_top=(vs_base=base+0)+2; |
1445 |
vs_top=sup; |
(void) (*Lnk33)(); |
1446 |
V314= vs_base[0]; |
vs_top=sup; |
1447 |
if(((*(LnkLI43))((V298),(V299),(V295),V314))==Cnil){ |
goto T536; |
1448 |
goto T538;} |
T536:; |
1449 |
V310= (long)(1)+(V310); |
{IDECL(GEN V290,V290space,V290alloc); |
1450 |
goto T538; |
if(((V286))!=Cnil){ |
1451 |
T538:; |
goto T543;} |
1452 |
V309= (long)(1)+(V309); |
ISETQ_FIX(V290,V290alloc,2147483647); |
1453 |
goto T533;} |
goto T541; |
1454 |
goto T528; |
goto T543; |
1455 |
T528:; |
T543:;SETQ_IO(V290,V290alloc,(V286)); |
1456 |
{register long V315; |
goto T541; |
1457 |
register long V316; |
T541:; |
1458 |
V315= (long)(-1)+(V305); |
if((V282)==Cnil){ |
1459 |
V316= 0; |
goto T546;} |
1460 |
goto T552; |
if((V283)==Cnil){ |
1461 |
T552:; |
goto T546;} |
1462 |
if(!((V315)<(V304))){ |
(void)((*(LnkLI42))()); |
1463 |
goto T553;} |
goto T546; |
1464 |
{object V317 = make_fixnum(V316); |
T546:; |
1465 |
VMR20(V317)} |
if(((V281))!=Cnil){ |
1466 |
|
goto T548;} |
1467 |
|
{register long V291; |
1468 |
|
register long V292; |
1469 |
|
V291= V288; |
1470 |
|
V292= 0; |
1471 |
goto T553; |
goto T553; |
1472 |
T553:; |
T553:; |
1473 |
V318 = make_fixnum(V316); |
if(!((V291)>=(V289))){ |
1474 |
V319 = make_integer(V308); |
goto T554;} |
1475 |
if(!(number_compare(V318,V319)<0)){ |
{object V293 = make_fixnum(V292); |
1476 |
goto T557;} |
VMR20(V293)} |
1477 |
base[0]= elt((V296),V315); |
goto T554; |
1478 |
vs_top=(vs_base=base+0)+1; |
T554:; |
1479 |
super_funcall_no_event((V303)); |
V294 = make_fixnum(V292); |
1480 |
vs_top=sup; |
V295 = make_integer(V290); |
1481 |
V320= vs_base[0]; |
if(!(number_compare(V294,V295)<0)){ |
1482 |
if(((*(LnkLI43))((V298),(V299),(V295),V320))==Cnil){ |
goto T558;} |
1483 |
goto T557;} |
base[0]= elt((V280),V291); |
1484 |
V316= (long)(1)+(V316); |
vs_top=(vs_base=base+0)+1; |
1485 |
goto T557; |
super_funcall_no_event((V287)); |
1486 |
T557:; |
vs_top=sup; |
1487 |
V315= (long)(-1)+(V315); |
V296= vs_base[0]; |
1488 |
goto T552;}}}} |
if(((*(LnkLI43))((V282),(V283),(V279),V296))==Cnil){ |
1489 |
|
goto T558;} |
1490 |
|
V292= (long)(1)+(V292); |
1491 |
|
goto T558; |
1492 |
|
T558:; |
1493 |
|
V291= (long)(1)+(V291); |
1494 |
|
goto T553;} |
1495 |
|
goto T548; |
1496 |
|
T548:; |
1497 |
|
{register long V297; |
1498 |
|
register long V298; |
1499 |
|
V297= (long)(-1)+(V289); |
1500 |
|
V298= 0; |
1501 |
|
goto T572; |
1502 |
|
T572:; |
1503 |
|
if(!((V297)<(V288))){ |
1504 |
|
goto T573;} |
1505 |
|
{object V299 = make_fixnum(V298); |
1506 |
|
VMR20(V299)} |
1507 |
|
goto T573; |
1508 |
|
T573:; |
1509 |
|
V300 = make_fixnum(V298); |
1510 |
|
V301 = make_integer(V290); |
1511 |
|
if(!(number_compare(V300,V301)<0)){ |
1512 |
|
goto T577;} |
1513 |
|
base[0]= elt((V280),V297); |
1514 |
|
vs_top=(vs_base=base+0)+1; |
1515 |
|
super_funcall_no_event((V287)); |
1516 |
|
vs_top=sup; |
1517 |
|
V302= vs_base[0]; |
1518 |
|
if(((*(LnkLI43))((V282),(V283),(V279),V302))==Cnil){ |
1519 |
|
goto T577;} |
1520 |
|
V298= (long)(1)+(V298); |
1521 |
|
goto T577; |
1522 |
|
T577:; |
1523 |
|
V297= (long)(-1)+(V297); |
1524 |
|
goto T572;}}}} |
1525 |
va_end(ap); |
va_end(ap); |
1526 |
base[0]=base[0]; |
base[0]=base[0]; |
1527 |
return Cnil;} |
return Cnil;} |
1528 |
}} |
}} |
1529 |
/* local entry for function INTERNAL-COUNT-IF */ |
/* local entry for function INTERNAL-COUNT-IF */ |
1530 |
|
|
1531 |
static object LI21(object V322,object V321,object first,...) |
static object LI21(object V304,object V303,object first,...) |
1532 |
{ |
{ |
1533 |
va_list ap; |
va_list ap; |
1534 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
1535 |
{object V323; |
{object V305; |
1536 |
object V324; |
object V306; |
1537 |
object V325; |
object V307; |
1538 |
object V326; |
object V308; |
1539 |
object V327; |
object V309; |
1540 |
object V328; |
object V310; |
1541 |
object V329; |
object V311; |
1542 |
va_start(ap,first); |
va_start(ap,first); |
1543 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1544 |
V323= V322; |
V305= V304; |
1545 |
V324= V321; |
V306= V303; |
1546 |
narg= narg - 2; |
narg= narg - 2; |
1547 |
{ |
{ |
1548 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI21key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI21key,first,ap); |
1549 |
V325=(Vcs[2]); |
V307=(Vcs[2]); |
1550 |
V326=(Vcs[3]); |
V308=(Vcs[3]); |
1551 |
V327=(Vcs[4]); |
V309=(Vcs[4]); |
1552 |
V328=(Vcs[5]); |
V310=(Vcs[5]); |
1553 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1554 |
V329= symbol_function(VV[35]); |
V311= symbol_function(VV[35]); |
1555 |
}else{ |
}else{ |
1556 |
V329=(Vcs[6]);} |
V311=(Vcs[6]);} |
1557 |
if(!(((V329))==(Cnil))){ |
if(!(((V311))==(Cnil))){ |
1558 |
goto T569;} |
goto T589;} |
1559 |
V329= symbol_function(VV[35]); |
V311= symbol_function(VV[35]); |
1560 |
goto T569; |
goto T589; |
1561 |
T569:; |
T589:; |
1562 |
V330= symbol_function(VV[46]); |
V312= symbol_function(VV[46]); |
1563 |
{object V331 = (VFUN_NARGS=14,(*(LnkLI47))((V323),(V324),VV[11],(V325),VV[12],V330,VV[14],(V326),VV[15],(V327),VV[16],(V328),VV[17],(V329))); |
{object V313 = (VFUN_NARGS=14,(*(LnkLI47))((V305),(V306),VV[11],(V307),VV[12],V312,VV[14],(V308),VV[15],(V309),VV[16],(V310),VV[17],(V311))); |
1564 |
VMR21(V331)} |
VMR21(V313)} |
1565 |
va_end(ap); |
va_end(ap); |
1566 |
return Cnil;} |
return Cnil;} |
1567 |
}} |
}} |
1568 |
/* local entry for function INTERNAL-COUNT-IF-NOT */ |
/* local entry for function INTERNAL-COUNT-IF-NOT */ |
1569 |
|
|
1570 |
static object LI22(object V333,object V332,object first,...) |
static object LI22(object V315,object V314,object first,...) |
1571 |
{ |
{ |
1572 |
va_list ap; |
va_list ap; |
1573 |
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
1574 |
{object V334; |
{object V316; |
1575 |
object V335; |
object V317; |
1576 |
object V336; |
object V318; |
1577 |
object V337; |
object V319; |
1578 |
object V338; |
object V320; |
1579 |
object V339; |
object V321; |
1580 |
object V340; |
object V322; |
1581 |
va_start(ap,first); |
va_start(ap,first); |
1582 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1583 |
V334= V333; |
V316= V315; |
1584 |
V335= V332; |
V317= V314; |
1585 |
narg= narg - 2; |
narg= narg - 2; |
1586 |
{ |
{ |
1587 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI22key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI22key,first,ap); |
1588 |
V336=(Vcs[2]); |
V318=(Vcs[2]); |
1589 |
V337=(Vcs[3]); |
V319=(Vcs[3]); |
1590 |
V338=(Vcs[4]); |
V320=(Vcs[4]); |
1591 |
V339=(Vcs[5]); |
V321=(Vcs[5]); |
1592 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1593 |
V340= symbol_function(VV[35]); |
V322= symbol_function(VV[35]); |
1594 |
}else{ |
}else{ |
1595 |
V340=(Vcs[6]);} |
V322=(Vcs[6]);} |
1596 |
if(!(((V340))==(Cnil))){ |
if(!(((V322))==(Cnil))){ |
1597 |
goto T575;} |
goto T595;} |
1598 |
V340= symbol_function(VV[35]); |
V322= symbol_function(VV[35]); |
1599 |
goto T575; |
goto T595; |
1600 |
T575:; |
T595:; |
1601 |
V341= symbol_function(VV[46]); |
V323= symbol_function(VV[46]); |
1602 |
{object V342 = (VFUN_NARGS=14,(*(LnkLI47))((V334),(V335),VV[11],(V336),VV[13],V341,VV[14],(V337),VV[15],(V338),VV[16],(V339),VV[17],(V340))); |
{object V324 = (VFUN_NARGS=14,(*(LnkLI47))((V316),(V317),VV[11],(V318),VV[13],V323,VV[14],(V319),VV[15],(V320),VV[16],(V321),VV[17],(V322))); |
1603 |
VMR22(V342)} |
VMR22(V324)} |
1604 |
va_end(ap); |
va_end(ap); |
1605 |
return Cnil;} |
return Cnil;} |
1606 |
}} |
}} |
1607 |
/* local entry for function SUBSTITUTE */ |
/* local entry for function SUBSTITUTE */ |
1608 |
|
|
1609 |
static object LI23(object V345,object V344,object V343,object first,...) |
static object LI23(object V327,object V326,object V325,object first,...) |
1610 |
{ |
{ |
1611 |
va_list ap; |
va_list ap; |
1612 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
1613 |
{object V346; |
{object V328; |
1614 |
object V347; |
object V329; |
1615 |
register object V348; |
register object V330; |
1616 |
object V349; |
object V331; |
1617 |
object V350; |
object V332; |
1618 |
object V351; |
object V333; |
1619 |
object V352; |
object V334; |
1620 |
object V353; |
object V335; |
1621 |
object V354; |
object V336; |
1622 |
object V355; |
object V337; |
1623 |
va_start(ap,first); |
va_start(ap,first); |
1624 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1625 |
V346= V345; |
V328= V327; |
1626 |
V347= V344; |
V329= V326; |
1627 |
V348= V343; |
V330= V325; |
1628 |
narg= narg - 3; |
narg= narg - 3; |
1629 |
{ |
{ |
1630 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI23key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI23key,first,ap); |
1631 |
V349=(Vcs[3]); |
V331=(Vcs[3]); |
1632 |
V350=(Vcs[4]); |
V332=(Vcs[4]); |
1633 |
V351=(Vcs[5]); |
V333=(Vcs[5]); |
1634 |
V352=(Vcs[6]); |
V334=(Vcs[6]); |
1635 |
V353=(Vcs[7]); |
V335=(Vcs[7]); |
1636 |
V354=(Vcs[8]); |
V336=(Vcs[8]); |
1637 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1638 |
V355= symbol_function(VV[35]); |
V337= symbol_function(VV[35]); |
1639 |
}else{ |
}else{ |
1640 |
V355=(Vcs[9]);} |
V337=(Vcs[9]);} |
1641 |
{long V356; |
{long V338; |
1642 |
V356= (long)length((V348)); |
V338= (long)length((V330)); |
1643 |
if(!(((V355))==(Cnil))){ |
if(!(((V337))==(Cnil))){ |
1644 |
goto T582;} |
goto T602;} |
1645 |
V355= symbol_function(VV[35]); |
V337= symbol_function(VV[35]); |
1646 |
goto T582; |
goto T602; |
1647 |
T582:; |
T602:; |
1648 |
{long V357; |
{long V339; |
1649 |
if(((V352))==Cnil){ |
if(((V334))==Cnil){ |
|
goto T588;} |
|
|
V357= (long)(*(LnkLI36))((V352)); |
|
|
goto T586; |
|
|
goto T588; |
|
|
T588:; |
|
|
V357= 0; |
|
|
goto T586; |
|
|
T586:; |
|
|
{long V358; |
|
|
V358= (long)(*(LnkLI37))((V353),(V348)); |
|
|
if(!((V357)<=(V358))){ |
|
|
goto T592;} |
|
|
goto T591; |
|
|
goto T592; |
|
|
T592:; |
|
|
V359 = make_fixnum(V357); |
|
|
V360 = make_fixnum(V358); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V359,V360))); |
|
|
goto T591; |
|
|
T591:; |
|
|
{IDECL(GEN V361,V361space,V361alloc); |
|
|
if(((V354))!=Cnil){ |
|
|
goto T596;} |
|
|
ISETQ_FIX(V361,V361alloc,2147483647); |
|
|
goto T594; |
|
|
goto T596; |
|
|
T596:;SETQ_IO(V361,V361alloc,(V354)); |
|
|
goto T594; |
|
|
T594:; |
|
|
if((V350)==Cnil){ |
|
|
goto T599;} |
|
|
if((V351)==Cnil){ |
|
|
goto T599;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T599; |
|
|
T599:; |
|
|
if(((V349))!=Cnil){ |
|
|
goto T601;} |
|
|
{register object V362; |
|
|
register long V363; |
|
|
register long V364; |
|
|
V365= (*(LnkLI49))((V348)); |
|
|
V366 = make_fixnum(V356); |
|
|
V362= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V365,V366)); |
|
|
V363= 0; |
|
|
V364= 0; |
|
|
goto T607; |
|
|
T607:; |
|
|
if(!((V363)>=(V356))){ |
|
1650 |
goto T608;} |
goto T608;} |
1651 |
{object V367 = (V362); |
V339= (long)(*(LnkLI36))((V334)); |
1652 |
VMR23(V367)} |
goto T606; |
1653 |
goto T608; |
goto T608; |
1654 |
T608:; |
T608:; |
1655 |
if(!((V357)<=(V363))){ |
V339= 0; |
1656 |
goto T614;} |
goto T606; |
1657 |
if(!((V363)<(V358))){ |
T606:; |
1658 |
goto T614;} |
{long V340; |
1659 |
V368 = make_fixnum(V364); |
V340= (long)(*(LnkLI37))((V335),(V330)); |
1660 |
V369 = make_integer(V361); |
if(!((V339)<=(V340))){ |
1661 |
if(!(number_compare(V368,V369)<0)){ |
goto T612;} |
1662 |
goto T614;} |
goto T611; |
|
base[0]= elt((V348),V363); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V355)); |
|
|
vs_top=sup; |
|
|
V370= vs_base[0]; |
|
|
if(((*(LnkLI43))((V350),(V351),(V347),V370))==Cnil){ |
|
|
goto T614;} |
|
|
(void)(elt_set((V362),V363,(V346))); |
|
|
V364= (long)(1)+(V364); |
|
|
goto T612; |
|
|
goto T614; |
|
|
T614:; |
|
|
V371= elt((V348),V363); |
|
|
(void)(elt_set((V362),V363,/* INLINE-ARGS */V371)); |
|
1663 |
goto T612; |
goto T612; |
1664 |
T612:; |
T612:; |
1665 |
V363= (long)(1)+(V363); |
base[0]= make_fixnum(V339); |
1666 |
goto T607;} |
base[1]= make_fixnum(V340); |
1667 |
goto T601; |
vs_top=(vs_base=base+0)+2; |
1668 |
T601:; |
(void) (*Lnk33)(); |
1669 |
{register object V372; |
vs_top=sup; |
1670 |
register long V373; |
goto T611; |
1671 |
register long V374; |
T611:; |
1672 |
V375= (*(LnkLI49))((V348)); |
{IDECL(GEN V341,V341space,V341alloc); |
1673 |
V376 = make_fixnum(V356); |
if(((V336))!=Cnil){ |
1674 |
V372= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V375,V376)); |
goto T618;} |
1675 |
V373= (long)(-1)+(V356); |
ISETQ_FIX(V341,V341alloc,2147483647); |
1676 |
V374= 0; |
goto T616; |
1677 |
goto T633; |
goto T618; |
1678 |
T633:; |
T618:;SETQ_IO(V341,V341alloc,(V336)); |
1679 |
if(!((V373)<(0))){ |
goto T616; |
1680 |
goto T634;} |
T616:; |
1681 |
{object V377 = (V372); |
if((V332)==Cnil){ |
1682 |
VMR23(V377)} |
goto T621;} |
1683 |
|
if((V333)==Cnil){ |
1684 |
|
goto T621;} |
1685 |
|
(void)((*(LnkLI42))()); |
1686 |
|
goto T621; |
1687 |
|
T621:; |
1688 |
|
if(((V331))!=Cnil){ |
1689 |
|
goto T623;} |
1690 |
|
{register object V342; |
1691 |
|
register long V343; |
1692 |
|
register long V344; |
1693 |
|
V345= (*(LnkLI49))((V330)); |
1694 |
|
V346 = make_fixnum(V338); |
1695 |
|
V342= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V345,V346)); |
1696 |
|
V343= 0; |
1697 |
|
V344= 0; |
1698 |
|
goto T629; |
1699 |
|
T629:; |
1700 |
|
if(!((V343)>=(V338))){ |
1701 |
|
goto T630;} |
1702 |
|
{object V347 = (V342); |
1703 |
|
VMR23(V347)} |
1704 |
|
goto T630; |
1705 |
|
T630:; |
1706 |
|
if(!((V339)<=(V343))){ |
1707 |
|
goto T636;} |
1708 |
|
if(!((V343)<(V340))){ |
1709 |
|
goto T636;} |
1710 |
|
V348 = make_fixnum(V344); |
1711 |
|
V349 = make_integer(V341); |
1712 |
|
if(!(number_compare(V348,V349)<0)){ |
1713 |
|
goto T636;} |
1714 |
|
base[0]= elt((V330),V343); |
1715 |
|
vs_top=(vs_base=base+0)+1; |
1716 |
|
super_funcall_no_event((V337)); |
1717 |
|
vs_top=sup; |
1718 |
|
V350= vs_base[0]; |
1719 |
|
if(((*(LnkLI43))((V332),(V333),(V329),V350))==Cnil){ |
1720 |
|
goto T636;} |
1721 |
|
(void)(elt_set((V342),V343,(V328))); |
1722 |
|
V344= (long)(1)+(V344); |
1723 |
|
goto T634; |
1724 |
|
goto T636; |
1725 |
|
T636:; |
1726 |
|
V351= elt((V330),V343); |
1727 |
|
(void)(elt_set((V342),V343,/* INLINE-ARGS */V351)); |
1728 |
goto T634; |
goto T634; |
1729 |
T634:; |
T634:; |
1730 |
if(!((V357)<=(V373))){ |
V343= (long)(1)+(V343); |
1731 |
goto T640;} |
goto T629;} |
1732 |
if(!((V373)<(V358))){ |
goto T623; |
1733 |
goto T640;} |
T623:; |
1734 |
V378 = make_fixnum(V374); |
{register object V352; |
1735 |
V379 = make_integer(V361); |
register long V353; |
1736 |
if(!(number_compare(V378,V379)<0)){ |
register long V354; |
1737 |
goto T640;} |
V355= (*(LnkLI49))((V330)); |
1738 |
base[0]= elt((V348),V373); |
V356 = make_fixnum(V338); |
1739 |
vs_top=(vs_base=base+0)+1; |
V352= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V355,V356)); |
1740 |
super_funcall_no_event((V355)); |
V353= (long)(-1)+(V338); |
1741 |
vs_top=sup; |
V354= 0; |
1742 |
V380= vs_base[0]; |
goto T655; |
1743 |
if(((*(LnkLI43))((V350),(V351),(V347),V380))==Cnil){ |
T655:; |
1744 |
goto T640;} |
if(!((V353)<(0))){ |
1745 |
(void)(elt_set((V372),V373,(V346))); |
goto T656;} |
1746 |
V374= (long)(1)+(V374); |
{object V357 = (V352); |
1747 |
goto T638; |
VMR23(V357)} |
1748 |
goto T640; |
goto T656; |
1749 |
T640:; |
T656:; |
1750 |
V381= elt((V348),V373); |
if(!((V339)<=(V353))){ |
1751 |
(void)(elt_set((V372),V373,/* INLINE-ARGS */V381)); |
goto T662;} |
1752 |
goto T638; |
if(!((V353)<(V340))){ |
1753 |
T638:; |
goto T662;} |
1754 |
V373= (long)(-1)+(V373); |
V358 = make_fixnum(V354); |
1755 |
goto T633;}}}}} |
V359 = make_integer(V341); |
1756 |
|
if(!(number_compare(V358,V359)<0)){ |
1757 |
|
goto T662;} |
1758 |
|
base[0]= elt((V330),V353); |
1759 |
|
vs_top=(vs_base=base+0)+1; |
1760 |
|
super_funcall_no_event((V337)); |
1761 |
|
vs_top=sup; |
1762 |
|
V360= vs_base[0]; |
1763 |
|
if(((*(LnkLI43))((V332),(V333),(V329),V360))==Cnil){ |
1764 |
|
goto T662;} |
1765 |
|
(void)(elt_set((V352),V353,(V328))); |
1766 |
|
V354= (long)(1)+(V354); |
1767 |
|
goto T660; |
1768 |
|
goto T662; |
1769 |
|
T662:; |
1770 |
|
V361= elt((V330),V353); |
1771 |
|
(void)(elt_set((V352),V353,/* INLINE-ARGS */V361)); |
1772 |
|
goto T660; |
1773 |
|
T660:; |
1774 |
|
V353= (long)(-1)+(V353); |
1775 |
|
goto T655;}}}}} |
1776 |
va_end(ap); |
va_end(ap); |
1777 |
base[0]=base[0]; |
base[0]=base[0]; |
1778 |
return Cnil;} |
return Cnil;} |
1779 |
}} |
}} |
1780 |
/* local entry for function SUBSTITUTE-IF */ |
/* local entry for function SUBSTITUTE-IF */ |
1781 |
|
|
1782 |
static object LI24(object V384,object V383,object V382,object first,...) |
static object LI24(object V364,object V363,object V362,object first,...) |
1783 |
{ |
{ |
1784 |
va_list ap; |
va_list ap; |
1785 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1786 |
{object V385; |
{object V365; |
1787 |
object V386; |
object V366; |
1788 |
object V387; |
object V367; |
1789 |
object V388; |
object V368; |
1790 |
object V389; |
object V369; |
1791 |
object V390; |
object V370; |
1792 |
object V391; |
object V371; |
1793 |
object V392; |
object V372; |
1794 |
va_start(ap,first); |
va_start(ap,first); |
1795 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1796 |
V385= V384; |
V365= V364; |
1797 |
V386= V383; |
V366= V363; |
1798 |
V387= V382; |
V367= V362; |
1799 |
narg= narg - 3; |
narg= narg - 3; |
1800 |
{ |
{ |
1801 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI24key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI24key,first,ap); |
1802 |
V388=(Vcs[3]); |
V368=(Vcs[3]); |
1803 |
V389=(Vcs[4]); |
V369=(Vcs[4]); |
1804 |
V390=(Vcs[5]); |
V370=(Vcs[5]); |
1805 |
V391=(Vcs[6]); |
V371=(Vcs[6]); |
1806 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1807 |
V392= symbol_function(VV[35]); |
V372= symbol_function(VV[35]); |
1808 |
}else{ |
}else{ |
1809 |
V392=(Vcs[7]);} |
V372=(Vcs[7]);} |
1810 |
if(!(((V392))==(Cnil))){ |
if(!(((V372))==(Cnil))){ |
1811 |
goto T656;} |
goto T678;} |
1812 |
V392= symbol_function(VV[35]); |
V372= symbol_function(VV[35]); |
1813 |
goto T656; |
goto T678; |
1814 |
T656:; |
T678:; |
1815 |
V393= symbol_function(VV[46]); |
V373= symbol_function(VV[46]); |
1816 |
{object V394 = (VFUN_NARGS=15,(*(LnkLI51))((V385),(V386),(V387),VV[11],(V388),VV[12],V393,VV[14],(V389),VV[15],(V390),VV[16],(V391),VV[17],(V392))); |
{object V374 = (VFUN_NARGS=15,(*(LnkLI51))((V365),(V366),(V367),VV[11],(V368),VV[12],V373,VV[14],(V369),VV[15],(V370),VV[16],(V371),VV[17],(V372))); |
1817 |
VMR24(V394)} |
VMR24(V374)} |
1818 |
va_end(ap); |
va_end(ap); |
1819 |
return Cnil;} |
return Cnil;} |
1820 |
}} |
}} |
1821 |
/* local entry for function SUBSTITUTE-IF-NOT */ |
/* local entry for function SUBSTITUTE-IF-NOT */ |
1822 |
|
|
1823 |
static object LI25(object V397,object V396,object V395,object first,...) |
static object LI25(object V377,object V376,object V375,object first,...) |
1824 |
{ |
{ |
1825 |
va_list ap; |
va_list ap; |
1826 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1827 |
{object V398; |
{object V378; |
1828 |
object V399; |
object V379; |
1829 |
object V400; |
object V380; |
1830 |
object V401; |
object V381; |
1831 |
object V402; |
object V382; |
1832 |
object V403; |
object V383; |
1833 |
object V404; |
object V384; |
1834 |
object V405; |
object V385; |
1835 |
va_start(ap,first); |
va_start(ap,first); |
1836 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1837 |
V398= V397; |
V378= V377; |
1838 |
V399= V396; |
V379= V376; |
1839 |
V400= V395; |
V380= V375; |
1840 |
narg= narg - 3; |
narg= narg - 3; |
1841 |
{ |
{ |
1842 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI25key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI25key,first,ap); |
1843 |
V401=(Vcs[3]); |
V381=(Vcs[3]); |
1844 |
V402=(Vcs[4]); |
V382=(Vcs[4]); |
1845 |
V403=(Vcs[5]); |
V383=(Vcs[5]); |
1846 |
V404=(Vcs[6]); |
V384=(Vcs[6]); |
1847 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1848 |
V405= symbol_function(VV[35]); |
V385= symbol_function(VV[35]); |
1849 |
}else{ |
}else{ |
1850 |
V405=(Vcs[7]);} |
V385=(Vcs[7]);} |
1851 |
if(!(((V405))==(Cnil))){ |
if(!(((V385))==(Cnil))){ |
1852 |
goto T662;} |
goto T684;} |
1853 |
V405= symbol_function(VV[35]); |
V385= symbol_function(VV[35]); |
1854 |
goto T662; |
goto T684; |
1855 |
T662:; |
T684:; |
1856 |
V406= symbol_function(VV[46]); |
V386= symbol_function(VV[46]); |
1857 |
{object V407 = (VFUN_NARGS=15,(*(LnkLI51))((V398),(V399),(V400),VV[11],(V401),VV[13],V406,VV[14],(V402),VV[15],(V403),VV[16],(V404),VV[17],(V405))); |
{object V387 = (VFUN_NARGS=15,(*(LnkLI51))((V378),(V379),(V380),VV[11],(V381),VV[13],V386,VV[14],(V382),VV[15],(V383),VV[16],(V384),VV[17],(V385))); |
1858 |
VMR25(V407)} |
VMR25(V387)} |
1859 |
va_end(ap); |
va_end(ap); |
1860 |
return Cnil;} |
return Cnil;} |
1861 |
}} |
}} |
1862 |
/* local entry for function NSUBSTITUTE */ |
/* local entry for function NSUBSTITUTE */ |
1863 |
|
|
1864 |
static object LI26(object V410,object V409,object V408,object first,...) |
static object LI26(object V390,object V389,object V388,object first,...) |
1865 |
{ |
{ |
1866 |
va_list ap; |
va_list ap; |
1867 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1868 |
{object V411; |
{object V391; |
1869 |
object V412; |
object V392; |
1870 |
register object V413; |
register object V393; |
1871 |
object V414; |
object V394; |
1872 |
object V415; |
object V395; |
1873 |
object V416; |
object V396; |
1874 |
object V417; |
object V397; |
1875 |
object V418; |
object V398; |
1876 |
object V419; |
object V399; |
1877 |
register object V420; |
register object V400; |
1878 |
va_start(ap,first); |
va_start(ap,first); |
1879 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1880 |
V411= V410; |
V391= V390; |
1881 |
V412= V409; |
V392= V389; |
1882 |
V413= V408; |
V393= V388; |
1883 |
narg= narg - 3; |
narg= narg - 3; |
1884 |
{ |
{ |
1885 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap); |
1886 |
V414=(Vcs[3]); |
V394=(Vcs[3]); |
1887 |
V415=(Vcs[4]); |
V395=(Vcs[4]); |
1888 |
V416=(Vcs[5]); |
V396=(Vcs[5]); |
1889 |
V417=(Vcs[6]); |
V397=(Vcs[6]); |
1890 |
V418=(Vcs[7]); |
V398=(Vcs[7]); |
1891 |
V419=(Vcs[8]); |
V399=(Vcs[8]); |
1892 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1893 |
V420= symbol_function(VV[35]); |
V400= symbol_function(VV[35]); |
1894 |
}else{ |
}else{ |
1895 |
V420=(Vcs[9]);} |
V400=(Vcs[9]);} |
1896 |
if(!(((V420))==(Cnil))){ |
if(!(((V400))==(Cnil))){ |
1897 |
goto T668;} |
goto T690;} |
1898 |
V420= symbol_function(VV[35]); |
V400= symbol_function(VV[35]); |
1899 |
goto T668; |
goto T690; |
1900 |
T668:; |
T690:; |
1901 |
{long V421; |
{long V401; |
1902 |
if(((V417))==Cnil){ |
if(((V397))==Cnil){ |
1903 |
goto T674;} |
goto T696;} |
1904 |
V421= (long)(*(LnkLI36))((V417)); |
V401= (long)(*(LnkLI36))((V397)); |
1905 |
goto T672; |
goto T694; |
1906 |
goto T674; |
goto T696; |
1907 |
T674:; |
T696:; |
1908 |
V421= 0; |
V401= 0; |
1909 |
goto T672; |
goto T694; |
1910 |
T672:; |
T694:; |
1911 |
{long V422; |
{long V402; |
1912 |
V422= (long)(*(LnkLI37))((V418),(V413)); |
V402= (long)(*(LnkLI37))((V398),(V393)); |
1913 |
if(!((V421)<=(V422))){ |
if(!((V401)<=(V402))){ |
1914 |
goto T678;} |
goto T700;} |
1915 |
goto T677; |
goto T699; |
1916 |
goto T678; |
goto T700; |
1917 |
T678:; |
T700:; |
1918 |
V423 = make_fixnum(V421); |
base[0]= make_fixnum(V401); |
1919 |
V424 = make_fixnum(V422); |
base[1]= make_fixnum(V402); |
1920 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V423,V424))); |
vs_top=(vs_base=base+0)+2; |
1921 |
goto T677; |
(void) (*Lnk33)(); |
|
T677:; |
|
|
{IDECL(GEN V425,V425space,V425alloc); |
|
|
if(((V419))!=Cnil){ |
|
|
goto T682;} |
|
|
ISETQ_FIX(V425,V425alloc,2147483647); |
|
|
goto T680; |
|
|
goto T682; |
|
|
T682:;SETQ_IO(V425,V425alloc,(V419)); |
|
|
goto T680; |
|
|
T680:; |
|
|
if((V415)==Cnil){ |
|
|
goto T685;} |
|
|
if((V416)==Cnil){ |
|
|
goto T685;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T685; |
|
|
T685:; |
|
|
if(((V414))!=Cnil){ |
|
|
goto T687;} |
|
|
{register long V426; |
|
|
register long V427; |
|
|
V426= V421; |
|
|
V427= 0; |
|
|
goto T692; |
|
|
T692:; |
|
|
if(!((V426)>=(V422))){ |
|
|
goto T693;} |
|
|
{object V428 = (V413); |
|
|
VMR26(V428)} |
|
|
goto T693; |
|
|
T693:; |
|
|
V429 = make_fixnum(V427); |
|
|
V430 = make_integer(V425); |
|
|
if(!(number_compare(V429,V430)<0)){ |
|
|
goto T697;} |
|
|
base[0]= elt((V413),V426); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V420)); |
|
|
vs_top=sup; |
|
|
V431= vs_base[0]; |
|
|
if(((*(LnkLI43))((V415),(V416),(V412),V431))==Cnil){ |
|
|
goto T697;} |
|
|
(void)(elt_set((V413),V426,(V411))); |
|
|
V427= (long)(1)+(V427); |
|
|
goto T697; |
|
|
T697:; |
|
|
V426= (long)(1)+(V426); |
|
|
goto T692;} |
|
|
goto T687; |
|
|
T687:; |
|
|
{register long V432; |
|
|
register long V433; |
|
|
V432= (long)(-1)+(V422); |
|
|
V433= 0; |
|
|
goto T712; |
|
|
T712:; |
|
|
if(!((V432)<(V421))){ |
|
|
goto T713;} |
|
|
{object V434 = (V413); |
|
|
VMR26(V434)} |
|
|
goto T713; |
|
|
T713:; |
|
|
V435 = make_fixnum(V433); |
|
|
V436 = make_integer(V425); |
|
|
if(!(number_compare(V435,V436)<0)){ |
|
|
goto T717;} |
|
|
base[0]= elt((V413),V432); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V420)); |
|
1922 |
vs_top=sup; |
vs_top=sup; |
1923 |
V437= vs_base[0]; |
goto T699; |
1924 |
if(((*(LnkLI43))((V415),(V416),(V412),V437))==Cnil){ |
T699:; |
1925 |
|
{IDECL(GEN V403,V403space,V403alloc); |
1926 |
|
if(((V399))!=Cnil){ |
1927 |
|
goto T706;} |
1928 |
|
ISETQ_FIX(V403,V403alloc,2147483647); |
1929 |
|
goto T704; |
1930 |
|
goto T706; |
1931 |
|
T706:;SETQ_IO(V403,V403alloc,(V399)); |
1932 |
|
goto T704; |
1933 |
|
T704:; |
1934 |
|
if((V395)==Cnil){ |
1935 |
|
goto T709;} |
1936 |
|
if((V396)==Cnil){ |
1937 |
|
goto T709;} |
1938 |
|
(void)((*(LnkLI42))()); |
1939 |
|
goto T709; |
1940 |
|
T709:; |
1941 |
|
if(((V394))!=Cnil){ |
1942 |
|
goto T711;} |
1943 |
|
{register long V404; |
1944 |
|
register long V405; |
1945 |
|
V404= V401; |
1946 |
|
V405= 0; |
1947 |
|
goto T716; |
1948 |
|
T716:; |
1949 |
|
if(!((V404)>=(V402))){ |
1950 |
goto T717;} |
goto T717;} |
1951 |
(void)(elt_set((V413),V432,(V411))); |
{object V406 = (V393); |
1952 |
V433= (long)(1)+(V433); |
VMR26(V406)} |
1953 |
goto T717; |
goto T717; |
1954 |
T717:; |
T717:; |
1955 |
V432= (long)(-1)+(V432); |
V407 = make_fixnum(V405); |
1956 |
goto T712;}}}} |
V408 = make_integer(V403); |
1957 |
|
if(!(number_compare(V407,V408)<0)){ |
1958 |
|
goto T721;} |
1959 |
|
base[0]= elt((V393),V404); |
1960 |
|
vs_top=(vs_base=base+0)+1; |
1961 |
|
super_funcall_no_event((V400)); |
1962 |
|
vs_top=sup; |
1963 |
|
V409= vs_base[0]; |
1964 |
|
if(((*(LnkLI43))((V395),(V396),(V392),V409))==Cnil){ |
1965 |
|
goto T721;} |
1966 |
|
(void)(elt_set((V393),V404,(V391))); |
1967 |
|
V405= (long)(1)+(V405); |
1968 |
|
goto T721; |
1969 |
|
T721:; |
1970 |
|
V404= (long)(1)+(V404); |
1971 |
|
goto T716;} |
1972 |
|
goto T711; |
1973 |
|
T711:; |
1974 |
|
{register long V410; |
1975 |
|
register long V411; |
1976 |
|
V410= (long)(-1)+(V402); |
1977 |
|
V411= 0; |
1978 |
|
goto T736; |
1979 |
|
T736:; |
1980 |
|
if(!((V410)<(V401))){ |
1981 |
|
goto T737;} |
1982 |
|
{object V412 = (V393); |
1983 |
|
VMR26(V412)} |
1984 |
|
goto T737; |
1985 |
|
T737:; |
1986 |
|
V413 = make_fixnum(V411); |
1987 |
|
V414 = make_integer(V403); |
1988 |
|
if(!(number_compare(V413,V414)<0)){ |
1989 |
|
goto T741;} |
1990 |
|
base[0]= elt((V393),V410); |
1991 |
|
vs_top=(vs_base=base+0)+1; |
1992 |
|
super_funcall_no_event((V400)); |
1993 |
|
vs_top=sup; |
1994 |
|
V415= vs_base[0]; |
1995 |
|
if(((*(LnkLI43))((V395),(V396),(V392),V415))==Cnil){ |
1996 |
|
goto T741;} |
1997 |
|
(void)(elt_set((V393),V410,(V391))); |
1998 |
|
V411= (long)(1)+(V411); |
1999 |
|
goto T741; |
2000 |
|
T741:; |
2001 |
|
V410= (long)(-1)+(V410); |
2002 |
|
goto T736;}}}} |
2003 |
va_end(ap); |
va_end(ap); |
2004 |
base[0]=base[0]; |
base[0]=base[0]; |
2005 |
return Cnil;} |
return Cnil;} |
2006 |
}} |
}} |
2007 |
/* local entry for function NSUBSTITUTE-IF */ |
/* local entry for function NSUBSTITUTE-IF */ |
2008 |
|
|
2009 |
static object LI27(object V440,object V439,object V438,object first,...) |
static object LI27(object V418,object V417,object V416,object first,...) |
2010 |
{ |
{ |
2011 |
va_list ap; |
va_list ap; |
2012 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
2013 |
{object V441; |
{object V419; |
2014 |
object V442; |
object V420; |
2015 |
object V443; |
object V421; |
2016 |
object V444; |
object V422; |
2017 |
object V445; |
object V423; |
2018 |
object V446; |
object V424; |
2019 |
object V447; |
object V425; |
2020 |
object V448; |
object V426; |
2021 |
va_start(ap,first); |
va_start(ap,first); |
2022 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2023 |
V441= V440; |
V419= V418; |
2024 |
V442= V439; |
V420= V417; |
2025 |
V443= V438; |
V421= V416; |
2026 |
narg= narg - 3; |
narg= narg - 3; |
2027 |
{ |
{ |
2028 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI27key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI27key,first,ap); |
2029 |
V444=(Vcs[3]); |
V422=(Vcs[3]); |
2030 |
V445=(Vcs[4]); |
V423=(Vcs[4]); |
2031 |
V446=(Vcs[5]); |
V424=(Vcs[5]); |
2032 |
V447=(Vcs[6]); |
V425=(Vcs[6]); |
2033 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2034 |
V448= symbol_function(VV[35]); |
V426= symbol_function(VV[35]); |
2035 |
}else{ |
}else{ |
2036 |
V448=(Vcs[7]);} |
V426=(Vcs[7]);} |
2037 |
if(!(((V448))==(Cnil))){ |
if(!(((V426))==(Cnil))){ |
2038 |
goto T730;} |
goto T754;} |
2039 |
V448= symbol_function(VV[35]); |
V426= symbol_function(VV[35]); |
2040 |
goto T730; |
goto T754; |
2041 |
T730:; |
T754:; |
2042 |
V449= symbol_function(VV[46]); |
V427= symbol_function(VV[46]); |
2043 |
{object V450 = (VFUN_NARGS=15,(*(LnkLI52))((V441),(V442),(V443),VV[11],(V444),VV[12],V449,VV[14],(V445),VV[15],(V446),VV[16],(V447),VV[17],(V448))); |
{object V428 = (VFUN_NARGS=15,(*(LnkLI52))((V419),(V420),(V421),VV[11],(V422),VV[12],V427,VV[14],(V423),VV[15],(V424),VV[16],(V425),VV[17],(V426))); |
2044 |
VMR27(V450)} |
VMR27(V428)} |
2045 |
va_end(ap); |
va_end(ap); |
2046 |
return Cnil;} |
return Cnil;} |
2047 |
}} |
}} |
2048 |
/* local entry for function NSUBSTITUTE-IF-NOT */ |
/* local entry for function NSUBSTITUTE-IF-NOT */ |
2049 |
|
|
2050 |
static object LI28(object V453,object V452,object V451,object first,...) |
static object LI28(object V431,object V430,object V429,object first,...) |
2051 |
{ |
{ |
2052 |
va_list ap; |
va_list ap; |
2053 |
int narg = VFUN_NARGS; VMB28 VMS28 VMV28 |
int narg = VFUN_NARGS; VMB28 VMS28 VMV28 |
2054 |
{object V454; |
{object V432; |
2055 |
object V455; |
object V433; |
2056 |
object V456; |
object V434; |
2057 |
object V457; |
object V435; |
2058 |
object V458; |
object V436; |
2059 |
object V459; |
object V437; |
2060 |
object V460; |
object V438; |
2061 |
object V461; |
object V439; |
2062 |
va_start(ap,first); |
va_start(ap,first); |
2063 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2064 |
V454= V453; |
V432= V431; |
2065 |
V455= V452; |
V433= V430; |
2066 |
V456= V451; |
V434= V429; |
2067 |
narg= narg - 3; |
narg= narg - 3; |
2068 |
{ |
{ |
2069 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI28key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI28key,first,ap); |
2070 |
V457=(Vcs[3]); |
V435=(Vcs[3]); |
2071 |
V458=(Vcs[4]); |
V436=(Vcs[4]); |
2072 |
V459=(Vcs[5]); |
V437=(Vcs[5]); |
2073 |
V460=(Vcs[6]); |
V438=(Vcs[6]); |
2074 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2075 |
V461= symbol_function(VV[35]); |
V439= symbol_function(VV[35]); |
2076 |
}else{ |
}else{ |
2077 |
V461=(Vcs[7]);} |
V439=(Vcs[7]);} |
2078 |
if(!(((V461))==(Cnil))){ |
if(!(((V439))==(Cnil))){ |
2079 |
goto T736;} |
goto T760;} |
2080 |
V461= symbol_function(VV[35]); |
V439= symbol_function(VV[35]); |
2081 |
goto T736; |
goto T760; |
2082 |
T736:; |
T760:; |
2083 |
V462= symbol_function(VV[46]); |
V440= symbol_function(VV[46]); |
2084 |
{object V463 = (VFUN_NARGS=15,(*(LnkLI52))((V454),(V455),(V456),VV[11],(V457),VV[13],V462,VV[14],(V458),VV[15],(V459),VV[16],(V460),VV[17],(V461))); |
{object V441 = (VFUN_NARGS=15,(*(LnkLI52))((V432),(V433),(V434),VV[11],(V435),VV[13],V440,VV[14],(V436),VV[15],(V437),VV[16],(V438),VV[17],(V439))); |
2085 |
VMR28(V463)} |
VMR28(V441)} |
2086 |
va_end(ap); |
va_end(ap); |
2087 |
return Cnil;} |
return Cnil;} |
2088 |
}} |
}} |
2089 |
/* local entry for function FIND */ |
/* local entry for function FIND */ |
2090 |
|
|
2091 |
static object LI29(object V465,object V464,object first,...) |
static object LI29(object V443,object V442,object first,...) |
2092 |
{ |
{ |
2093 |
va_list ap; |
va_list ap; |
2094 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
2095 |
{object V466; |
{object V444; |
2096 |
register object V467; |
register object V445; |
2097 |
object V468; |
object V446; |
2098 |
register object V469; |
register object V447; |
2099 |
register object V470; |
register object V448; |
2100 |
object V471; |
object V449; |
2101 |
object V472; |
object V450; |
2102 |
register object V473; |
register object V451; |
2103 |
va_start(ap,first); |
va_start(ap,first); |
2104 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2105 |
V466= V465; |
V444= V443; |
2106 |
V467= V464; |
V445= V442; |
2107 |
narg= narg - 2; |
narg= narg - 2; |
2108 |
{ |
{ |
2109 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI29key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI29key,first,ap); |
2110 |
V468=(Vcs[2]); |
V446=(Vcs[2]); |
2111 |
V469=(Vcs[3]); |
V447=(Vcs[3]); |
2112 |
V470=(Vcs[4]); |
V448=(Vcs[4]); |
2113 |
V471=(Vcs[5]); |
V449=(Vcs[5]); |
2114 |
V472=(Vcs[6]); |
V450=(Vcs[6]); |
2115 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2116 |
V473= symbol_function(VV[35]); |
V451= symbol_function(VV[35]); |
2117 |
}else{ |
}else{ |
2118 |
V473=(Vcs[7]);} |
V451=(Vcs[7]);} |
2119 |
if(!(((V473))==(Cnil))){ |
if(!(((V451))==(Cnil))){ |
2120 |
goto T742;} |
goto T766;} |
2121 |
V473= symbol_function(VV[35]); |
V451= symbol_function(VV[35]); |
2122 |
goto T742; |
goto T766; |
2123 |
T742:; |
T766:; |
2124 |
{long V474; |
{long V452; |
2125 |
if(((V471))==Cnil){ |
if(((V449))==Cnil){ |
2126 |
goto T748;} |
goto T772;} |
2127 |
V474= (long)(*(LnkLI36))((V471)); |
V452= (long)(*(LnkLI36))((V449)); |
2128 |
goto T746; |
goto T770; |
2129 |
goto T748; |
goto T772; |
2130 |
T748:; |
T772:; |
2131 |
V474= 0; |
V452= 0; |
2132 |
goto T746; |
goto T770; |
2133 |
T746:; |
T770:; |
2134 |
{long V475; |
{long V453; |
2135 |
V475= (long)(*(LnkLI37))((V472),(V467)); |
V453= (long)(*(LnkLI37))((V450),(V445)); |
2136 |
if(!((V474)<=(V475))){ |
if(!((V452)<=(V453))){ |
|
goto T752;} |
|
|
goto T751; |
|
|
goto T752; |
|
|
T752:; |
|
|
V476 = make_fixnum(V474); |
|
|
V477 = make_fixnum(V475); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V476,V477))); |
|
|
goto T751; |
|
|
T751:; |
|
|
if((V469)==Cnil){ |
|
|
goto T754;} |
|
|
if((V470)==Cnil){ |
|
|
goto T754;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T754; |
|
|
T754:; |
|
|
if(((V468))!=Cnil){ |
|
|
goto T756;} |
|
|
{register long V478; |
|
|
V478= V474; |
|
|
goto T760; |
|
|
T760:; |
|
|
if(!((V478)>=(V475))){ |
|
|
goto T761;} |
|
|
{object V479 = Cnil; |
|
|
VMR29(V479)} |
|
|
goto T761; |
|
|
T761:; |
|
|
base[0]= elt((V467),V478); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V473)); |
|
|
vs_top=sup; |
|
|
V480= vs_base[0]; |
|
|
if(((*(LnkLI43))((V469),(V470),(V466),V480))==Cnil){ |
|
|
goto T765;} |
|
|
{object V481 = elt((V467),V478); |
|
|
VMR29(V481)} |
|
|
goto T765; |
|
|
T765:; |
|
|
V478= (long)(1)+(V478); |
|
|
goto T760;} |
|
|
goto T756; |
|
|
T756:; |
|
|
{register long V482; |
|
|
V482= (long)(-1)+(V475); |
|
|
goto T775; |
|
|
T775:; |
|
|
if(!((V482)<(V474))){ |
|
2137 |
goto T776;} |
goto T776;} |
2138 |
{object V483 = Cnil; |
goto T775; |
|
VMR29(V483)} |
|
2139 |
goto T776; |
goto T776; |
2140 |
T776:; |
T776:; |
2141 |
base[0]= elt((V467),V482); |
base[0]= make_fixnum(V452); |
2142 |
vs_top=(vs_base=base+0)+1; |
base[1]= make_fixnum(V453); |
2143 |
super_funcall_no_event((V473)); |
vs_top=(vs_base=base+0)+2; |
2144 |
|
(void) (*Lnk33)(); |
2145 |
vs_top=sup; |
vs_top=sup; |
2146 |
V484= vs_base[0]; |
goto T775; |
2147 |
if(((*(LnkLI43))((V469),(V470),(V466),V484))==Cnil){ |
T775:; |
2148 |
|
if((V447)==Cnil){ |
2149 |
|
goto T780;} |
2150 |
|
if((V448)==Cnil){ |
2151 |
goto T780;} |
goto T780;} |
2152 |
{object V485 = elt((V467),V482); |
(void)((*(LnkLI42))()); |
|
VMR29(V485)} |
|
2153 |
goto T780; |
goto T780; |
2154 |
T780:; |
T780:; |
2155 |
V482= (long)(-1)+(V482); |
if(((V446))!=Cnil){ |
2156 |
goto T775;}}} |
goto T782;} |
2157 |
|
{register long V454; |
2158 |
|
V454= V452; |
2159 |
|
goto T786; |
2160 |
|
T786:; |
2161 |
|
if(!((V454)>=(V453))){ |
2162 |
|
goto T787;} |
2163 |
|
{object V455 = Cnil; |
2164 |
|
VMR29(V455)} |
2165 |
|
goto T787; |
2166 |
|
T787:; |
2167 |
|
base[0]= elt((V445),V454); |
2168 |
|
vs_top=(vs_base=base+0)+1; |
2169 |
|
super_funcall_no_event((V451)); |
2170 |
|
vs_top=sup; |
2171 |
|
V456= vs_base[0]; |
2172 |
|
if(((*(LnkLI43))((V447),(V448),(V444),V456))==Cnil){ |
2173 |
|
goto T791;} |
2174 |
|
{object V457 = elt((V445),V454); |
2175 |
|
VMR29(V457)} |
2176 |
|
goto T791; |
2177 |
|
T791:; |
2178 |
|
V454= (long)(1)+(V454); |
2179 |
|
goto T786;} |
2180 |
|
goto T782; |
2181 |
|
T782:; |
2182 |
|
{register long V458; |
2183 |
|
V458= (long)(-1)+(V453); |
2184 |
|
goto T801; |
2185 |
|
T801:; |
2186 |
|
if(!((V458)<(V452))){ |
2187 |
|
goto T802;} |
2188 |
|
{object V459 = Cnil; |
2189 |
|
VMR29(V459)} |
2190 |
|
goto T802; |
2191 |
|
T802:; |
2192 |
|
base[0]= elt((V445),V458); |
2193 |
|
vs_top=(vs_base=base+0)+1; |
2194 |
|
super_funcall_no_event((V451)); |
2195 |
|
vs_top=sup; |
2196 |
|
V460= vs_base[0]; |
2197 |
|
if(((*(LnkLI43))((V447),(V448),(V444),V460))==Cnil){ |
2198 |
|
goto T806;} |
2199 |
|
{object V461 = elt((V445),V458); |
2200 |
|
VMR29(V461)} |
2201 |
|
goto T806; |
2202 |
|
T806:; |
2203 |
|
V458= (long)(-1)+(V458); |
2204 |
|
goto T801;}}} |
2205 |
va_end(ap); |
va_end(ap); |
2206 |
base[0]=base[0]; |
base[0]=base[0]; |
2207 |
return Cnil;} |
return Cnil;} |
2208 |
}} |
}} |
2209 |
/* local entry for function FIND-IF */ |
/* local entry for function FIND-IF */ |
2210 |
|
|
2211 |
static object LI30(object V487,object V486,object first,...) |
static object LI30(object V463,object V462,object first,...) |
2212 |
{ |
{ |
2213 |
va_list ap; |
va_list ap; |
2214 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
2215 |
{object V488; |
{object V464; |
2216 |
object V489; |
object V465; |
2217 |
object V490; |
object V466; |
2218 |
object V491; |
object V467; |
2219 |
object V492; |
object V468; |
2220 |
object V493; |
object V469; |
2221 |
va_start(ap,first); |
va_start(ap,first); |
2222 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2223 |
V488= V487; |
V464= V463; |
2224 |
V489= V486; |
V465= V462; |
2225 |
narg= narg - 2; |
narg= narg - 2; |
2226 |
{ |
{ |
2227 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI30key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI30key,first,ap); |
2228 |
V490=(Vcs[2]); |
V466=(Vcs[2]); |
2229 |
V491=(Vcs[3]); |
V467=(Vcs[3]); |
2230 |
V492=(Vcs[4]); |
V468=(Vcs[4]); |
2231 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2232 |
V493= symbol_function(VV[35]); |
V469= symbol_function(VV[35]); |
2233 |
}else{ |
}else{ |
2234 |
V493=(Vcs[5]);} |
V469=(Vcs[5]);} |
2235 |
if(!(((V493))==(Cnil))){ |
if(!(((V469))==(Cnil))){ |
2236 |
goto T789;} |
goto T815;} |
2237 |
V493= symbol_function(VV[35]); |
V469= symbol_function(VV[35]); |
2238 |
goto T789; |
goto T815; |
2239 |
T789:; |
T815:; |
2240 |
V494= symbol_function(VV[46]); |
V470= symbol_function(VV[46]); |
2241 |
{object V495 = (VFUN_NARGS=12,(*(LnkLI53))((V488),(V489),VV[11],(V490),VV[12],V494,VV[14],(V491),VV[15],(V492),VV[17],(V493))); |
{object V471 = (VFUN_NARGS=12,(*(LnkLI53))((V464),(V465),VV[11],(V466),VV[12],V470,VV[14],(V467),VV[15],(V468),VV[17],(V469))); |
2242 |
VMR30(V495)} |
VMR30(V471)} |
2243 |
va_end(ap); |
va_end(ap); |
2244 |
return Cnil;} |
return Cnil;} |
2245 |
}} |
}} |
2246 |
/* local entry for function FIND-IF-NOT */ |
/* local entry for function FIND-IF-NOT */ |
2247 |
|
|
2248 |
static object LI31(object V497,object V496,object first,...) |
static object LI31(object V473,object V472,object first,...) |
2249 |
{ |
{ |
2250 |
va_list ap; |
va_list ap; |
2251 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
2252 |
{object V498; |
{object V474; |
2253 |
object V499; |
object V475; |
2254 |
object V500; |
object V476; |
2255 |
object V501; |
object V477; |
2256 |
object V502; |
object V478; |
2257 |
object V503; |
object V479; |
2258 |
va_start(ap,first); |
va_start(ap,first); |
2259 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2260 |
V498= V497; |
V474= V473; |
2261 |
V499= V496; |
V475= V472; |
2262 |
narg= narg - 2; |
narg= narg - 2; |
2263 |
{ |
{ |
2264 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI31key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI31key,first,ap); |
2265 |
V500=(Vcs[2]); |
V476=(Vcs[2]); |
2266 |
V501=(Vcs[3]); |
V477=(Vcs[3]); |
2267 |
V502=(Vcs[4]); |
V478=(Vcs[4]); |
2268 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2269 |
V503= symbol_function(VV[35]); |
V479= symbol_function(VV[35]); |
2270 |
}else{ |
}else{ |
2271 |
V503=(Vcs[5]);} |
V479=(Vcs[5]);} |
2272 |
if(!(((V503))==(Cnil))){ |
if(!(((V479))==(Cnil))){ |
2273 |
goto T795;} |
goto T821;} |
2274 |
V503= symbol_function(VV[35]); |
V479= symbol_function(VV[35]); |
2275 |
goto T795; |
goto T821; |
2276 |
T795:; |
T821:; |
2277 |
V504= symbol_function(VV[46]); |
V480= symbol_function(VV[46]); |
2278 |
{object V505 = (VFUN_NARGS=12,(*(LnkLI53))((V498),(V499),VV[11],(V500),VV[13],V504,VV[14],(V501),VV[15],(V502),VV[17],(V503))); |
{object V481 = (VFUN_NARGS=12,(*(LnkLI53))((V474),(V475),VV[11],(V476),VV[13],V480,VV[14],(V477),VV[15],(V478),VV[17],(V479))); |
2279 |
VMR31(V505)} |
VMR31(V481)} |
2280 |
va_end(ap); |
va_end(ap); |
2281 |
return Cnil;} |
return Cnil;} |
2282 |
}} |
}} |
2283 |
/* local entry for function POSITION */ |
/* local entry for function POSITION */ |
2284 |
|
|
2285 |
static object LI32(object V507,object V506,object first,...) |
static object LI32(object V483,object V482,object first,...) |
2286 |
{ |
{ |
2287 |
va_list ap; |
va_list ap; |
2288 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
2289 |
{object V508; |
{object V484; |
2290 |
register object V509; |
register object V485; |
2291 |
object V510; |
object V486; |
2292 |
register object V511; |
register object V487; |
2293 |
register object V512; |
register object V488; |
2294 |
object V513; |
object V489; |
2295 |
object V514; |
object V490; |
2296 |
register object V515; |
register object V491; |
2297 |
va_start(ap,first); |
va_start(ap,first); |
2298 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2299 |
V508= V507; |
V484= V483; |
2300 |
V509= V506; |
V485= V482; |
2301 |
narg= narg - 2; |
narg= narg - 2; |
2302 |
{ |
{ |
2303 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI32key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI32key,first,ap); |
2304 |
V510=(Vcs[2]); |
V486=(Vcs[2]); |
2305 |
V511=(Vcs[3]); |
V487=(Vcs[3]); |
2306 |
V512=(Vcs[4]); |
V488=(Vcs[4]); |
2307 |
V513=(Vcs[5]); |
V489=(Vcs[5]); |
2308 |
V514=(Vcs[6]); |
V490=(Vcs[6]); |
2309 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2310 |
V515= symbol_function(VV[35]); |
V491= symbol_function(VV[35]); |
2311 |
}else{ |
}else{ |
2312 |
V515=(Vcs[7]);} |
V491=(Vcs[7]);} |
2313 |
if(!(((V515))==(Cnil))){ |
if(!(((V491))==(Cnil))){ |
2314 |
goto T801;} |
goto T827;} |
2315 |
V515= symbol_function(VV[35]); |
V491= symbol_function(VV[35]); |
2316 |
goto T801; |
goto T827; |
2317 |
T801:; |
T827:; |
2318 |
{long V516; |
{long V492; |
2319 |
if(((V513))==Cnil){ |
if(((V489))==Cnil){ |
2320 |
goto T807;} |
goto T833;} |
2321 |
V516= (long)(*(LnkLI36))((V513)); |
V492= (long)(*(LnkLI36))((V489)); |
2322 |
goto T805; |
goto T831; |
2323 |
goto T807; |
goto T833; |
2324 |
T807:; |
T833:; |
2325 |
V516= 0; |
V492= 0; |
2326 |
goto T805; |
goto T831; |
2327 |
T805:; |
T831:; |
2328 |
{long V517; |
{long V493; |
2329 |
V517= (long)(*(LnkLI37))((V514),(V509)); |
V493= (long)(*(LnkLI37))((V490),(V485)); |
2330 |
if(!((V516)<=(V517))){ |
if(!((V492)<=(V493))){ |
2331 |
goto T811;} |
goto T837;} |
2332 |
goto T810; |
goto T836; |
2333 |
goto T811; |
goto T837; |
2334 |
T811:; |
T837:; |
2335 |
V518 = make_fixnum(V516); |
base[0]= make_fixnum(V492); |
2336 |
V519 = make_fixnum(V517); |
base[1]= make_fixnum(V493); |
2337 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V518,V519))); |
vs_top=(vs_base=base+0)+2; |
2338 |
goto T810; |
(void) (*Lnk33)(); |
2339 |
T810:; |
vs_top=sup; |
2340 |
if((V511)==Cnil){ |
goto T836; |
2341 |
goto T813;} |
T836:; |
2342 |
if((V512)==Cnil){ |
if((V487)==Cnil){ |
2343 |
goto T813;} |
goto T841;} |
2344 |
|
if((V488)==Cnil){ |
2345 |
|
goto T841;} |
2346 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
2347 |
goto T813; |
goto T841; |
2348 |
T813:; |
T841:; |
2349 |
if(((V510))!=Cnil){ |
if(((V486))!=Cnil){ |
2350 |
goto T815;} |
goto T843;} |
2351 |
{register long V520; |
{register long V494; |
2352 |
V520= V516; |
V494= V492; |
2353 |
goto T819; |
goto T847; |
2354 |
T819:; |
T847:; |
2355 |
if(!((V520)>=(V517))){ |
if(!((V494)>=(V493))){ |
2356 |
goto T820;} |
goto T848;} |
2357 |
{object V521 = Cnil; |
{object V495 = Cnil; |
2358 |
VMR32(V521)} |
VMR32(V495)} |
2359 |
goto T820; |
goto T848; |
2360 |
T820:; |
T848:; |
2361 |
base[0]= elt((V509),V520); |
base[0]= elt((V485),V494); |
2362 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2363 |
super_funcall_no_event((V515)); |
super_funcall_no_event((V491)); |
2364 |
vs_top=sup; |
vs_top=sup; |
2365 |
V522= vs_base[0]; |
V496= vs_base[0]; |
2366 |
if(((*(LnkLI43))((V511),(V512),(V508),V522))==Cnil){ |
if(((*(LnkLI43))((V487),(V488),(V484),V496))==Cnil){ |
2367 |
goto T824;} |
goto T852;} |
2368 |
{object V523 = make_fixnum(V520); |
{object V497 = make_fixnum(V494); |
2369 |
VMR32(V523)} |
VMR32(V497)} |
2370 |
goto T824; |
goto T852; |
2371 |
T824:; |
T852:; |
2372 |
V520= (long)(1)+(V520); |
V494= (long)(1)+(V494); |
2373 |
goto T819;} |
goto T847;} |
2374 |
goto T815; |
goto T843; |
2375 |
T815:; |
T843:; |
2376 |
{register long V524; |
{register long V498; |
2377 |
V524= (long)(-1)+(V517); |
V498= (long)(-1)+(V493); |
2378 |
goto T834; |
goto T862; |
2379 |
T834:; |
T862:; |
2380 |
if(!((V524)<(V516))){ |
if(!((V498)<(V492))){ |
2381 |
goto T835;} |
goto T863;} |
2382 |
{object V525 = Cnil; |
{object V499 = Cnil; |
2383 |
VMR32(V525)} |
VMR32(V499)} |
2384 |
goto T835; |
goto T863; |
2385 |
T835:; |
T863:; |
2386 |
base[0]= elt((V509),V524); |
base[0]= elt((V485),V498); |
2387 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2388 |
super_funcall_no_event((V515)); |
super_funcall_no_event((V491)); |
2389 |
vs_top=sup; |
vs_top=sup; |
2390 |
V526= vs_base[0]; |
V500= vs_base[0]; |
2391 |
if(((*(LnkLI43))((V511),(V512),(V508),V526))==Cnil){ |
if(((*(LnkLI43))((V487),(V488),(V484),V500))==Cnil){ |
2392 |
goto T839;} |
goto T867;} |
2393 |
{object V527 = make_fixnum(V524); |
{object V501 = make_fixnum(V498); |
2394 |
VMR32(V527)} |
VMR32(V501)} |
2395 |
goto T839; |
goto T867; |
2396 |
T839:; |
T867:; |
2397 |
V524= (long)(-1)+(V524); |
V498= (long)(-1)+(V498); |
2398 |
goto T834;}}} |
goto T862;}}} |
2399 |
va_end(ap); |
va_end(ap); |
2400 |
base[0]=base[0]; |
base[0]=base[0]; |
2401 |
return Cnil;} |
return Cnil;} |
2402 |
}} |
}} |
2403 |
/* local entry for function POSITION-IF */ |
/* local entry for function POSITION-IF */ |
2404 |
|
|
2405 |
static object LI33(object V529,object V528,object first,...) |
static object LI33(object V503,object V502,object first,...) |
2406 |
{ |
{ |
2407 |
va_list ap; |
va_list ap; |
2408 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
2409 |
{object V530; |
{object V504; |
2410 |
object V531; |
object V505; |
2411 |
object V532; |
object V506; |
2412 |
object V533; |
object V507; |
2413 |
object V534; |
object V508; |
2414 |
object V535; |
object V509; |
2415 |
va_start(ap,first); |
va_start(ap,first); |
2416 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2417 |
V530= V529; |
V504= V503; |
2418 |
V531= V528; |
V505= V502; |
2419 |
narg= narg - 2; |
narg= narg - 2; |
2420 |
{ |
{ |
2421 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI33key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI33key,first,ap); |
2422 |
V532=(Vcs[2]); |
V506=(Vcs[2]); |
2423 |
V533=(Vcs[3]); |
V507=(Vcs[3]); |
2424 |
V534=(Vcs[4]); |
V508=(Vcs[4]); |
2425 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2426 |
V535= symbol_function(VV[35]); |
V509= symbol_function(VV[35]); |
2427 |
}else{ |
}else{ |
2428 |
V535=(Vcs[5]);} |
V509=(Vcs[5]);} |
2429 |
if(!(((V535))==(Cnil))){ |
if(!(((V509))==(Cnil))){ |
2430 |
goto T848;} |
goto T876;} |
2431 |
V535= symbol_function(VV[35]); |
V509= symbol_function(VV[35]); |
2432 |
goto T848; |
goto T876; |
2433 |
T848:; |
T876:; |
2434 |
V536= symbol_function(VV[46]); |
V510= symbol_function(VV[46]); |
2435 |
{object V537 = (VFUN_NARGS=12,(*(LnkLI54))((V530),(V531),VV[11],(V532),VV[12],V536,VV[14],(V533),VV[15],(V534),VV[17],(V535))); |
{object V511 = (VFUN_NARGS=12,(*(LnkLI54))((V504),(V505),VV[11],(V506),VV[12],V510,VV[14],(V507),VV[15],(V508),VV[17],(V509))); |
2436 |
VMR33(V537)} |
VMR33(V511)} |
2437 |
va_end(ap); |
va_end(ap); |
2438 |
return Cnil;} |
return Cnil;} |
2439 |
}} |
}} |
2440 |
/* local entry for function POSITION-IF-NOT */ |
/* local entry for function POSITION-IF-NOT */ |
2441 |
|
|
2442 |
static object LI34(object V539,object V538,object first,...) |
static object LI34(object V513,object V512,object first,...) |
2443 |
{ |
{ |
2444 |
va_list ap; |
va_list ap; |
2445 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
2446 |
{object V540; |
{object V514; |
2447 |
object V541; |
object V515; |
2448 |
object V542; |
object V516; |
2449 |
object V543; |
object V517; |
2450 |
object V544; |
object V518; |
2451 |
object V545; |
object V519; |
2452 |
va_start(ap,first); |
va_start(ap,first); |
2453 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2454 |
V540= V539; |
V514= V513; |
2455 |
V541= V538; |
V515= V512; |
2456 |
narg= narg - 2; |
narg= narg - 2; |
2457 |
{ |
{ |
2458 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI34key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI34key,first,ap); |
2459 |
V542=(Vcs[2]); |
V516=(Vcs[2]); |
2460 |
V543=(Vcs[3]); |
V517=(Vcs[3]); |
2461 |
V544=(Vcs[4]); |
V518=(Vcs[4]); |
2462 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2463 |
V545= symbol_function(VV[35]); |
V519= symbol_function(VV[35]); |
2464 |
}else{ |
}else{ |
2465 |
V545=(Vcs[5]);} |
V519=(Vcs[5]);} |
2466 |
if(!(((V545))==(Cnil))){ |
if(!(((V519))==(Cnil))){ |
2467 |
goto T854;} |
goto T882;} |
2468 |
V545= symbol_function(VV[35]); |
V519= symbol_function(VV[35]); |
2469 |
goto T854; |
goto T882; |
2470 |
T854:; |
T882:; |
2471 |
V546= symbol_function(VV[46]); |
V520= symbol_function(VV[46]); |
2472 |
{object V547 = (VFUN_NARGS=12,(*(LnkLI54))((V540),(V541),VV[11],(V542),VV[13],V546,VV[14],(V543),VV[15],(V544),VV[17],(V545))); |
{object V521 = (VFUN_NARGS=12,(*(LnkLI54))((V514),(V515),VV[11],(V516),VV[13],V520,VV[14],(V517),VV[15],(V518),VV[17],(V519))); |
2473 |
VMR34(V547)} |
VMR34(V521)} |
2474 |
va_end(ap); |
va_end(ap); |
2475 |
return Cnil;} |
return Cnil;} |
2476 |
}} |
}} |
2477 |
/* local entry for function REMOVE-DUPLICATES */ |
/* local entry for function REMOVE-DUPLICATES */ |
2478 |
|
|
2479 |
static object LI35(object V548,object first,...) |
static object LI35(object V522,object first,...) |
2480 |
{ |
{ |
2481 |
va_list ap; |
va_list ap; |
2482 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
2483 |
{register object V549; |
{register object V523; |
2484 |
object V550; |
object V524; |
2485 |
register object V551; |
register object V525; |
2486 |
register object V552; |
register object V526; |
2487 |
object V553; |
object V527; |
2488 |
object V554; |
object V528; |
2489 |
register object V555; |
register object V529; |
2490 |
va_start(ap,first); |
va_start(ap,first); |
2491 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2492 |
V549= V548; |
V523= V522; |
2493 |
narg= narg - 1; |
narg= narg - 1; |
2494 |
{ |
{ |
2495 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI35key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI35key,first,ap); |
2496 |
V550=(Vcs[1]); |
V524=(Vcs[1]); |
2497 |
V551=(Vcs[2]); |
V525=(Vcs[2]); |
2498 |
V552=(Vcs[3]); |
V526=(Vcs[3]); |
2499 |
V553=(Vcs[4]); |
V527=(Vcs[4]); |
2500 |
V554=(Vcs[5]); |
V528=(Vcs[5]); |
2501 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2502 |
V555= symbol_function(VV[35]); |
V529= symbol_function(VV[35]); |
2503 |
}else{ |
}else{ |
2504 |
V555=(Vcs[6]);} |
V529=(Vcs[6]);} |
2505 |
if((V551)==Cnil){ |
if((V525)==Cnil){ |
2506 |
goto T860;} |
goto T888;} |
2507 |
if((V552)==Cnil){ |
if((V526)==Cnil){ |
2508 |
goto T860;} |
goto T888;} |
2509 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
2510 |
goto T860; |
goto T888; |
2511 |
T860:; |
T888:; |
2512 |
if(!(type_of((V549))==t_cons||((V549))==Cnil)){ |
if(!(type_of((V523))==t_cons||((V523))==Cnil)){ |
2513 |
goto T861;} |
goto T889;} |
2514 |
if(((V550))!=Cnil){ |
if(((V524))!=Cnil){ |
2515 |
goto T861;} |
goto T889;} |
2516 |
if(((V553))!=Cnil){ |
if(((V527))!=Cnil){ |
2517 |
goto T861;} |
goto T889;} |
2518 |
if(((V554))!=Cnil){ |
if(((V528))!=Cnil){ |
2519 |
goto T861;} |
goto T889;} |
2520 |
if(!(endp_prop((V549)))){ |
if(!(endp_prop((V523)))){ |
2521 |
goto T870;} |
goto T898;} |
2522 |
{object V556 = Cnil; |
{object V530 = Cnil; |
2523 |
VMR35(V556)} |
VMR35(V530)} |
2524 |
goto T870; |
goto T898; |
2525 |
T870:; |
T898:; |
2526 |
{register object V557; |
{register object V531; |
2527 |
register object V558; |
register object V532; |
2528 |
V557= (V549); |
V531= (V523); |
2529 |
V558= Cnil; |
V532= Cnil; |
2530 |
goto T874; |
goto T902; |
2531 |
T874:; |
T902:; |
2532 |
if(!(endp_prop(cdr((V557))))){ |
if(!(endp_prop(cdr((V531))))){ |
2533 |
goto T875;} |
goto T903;} |
2534 |
base[0]= (V558); |
base[0]= (V532); |
2535 |
base[1]= (V557); |
base[1]= (V531); |
2536 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2537 |
Lreconc(); |
Lreconc(); |
2538 |
vs_top=sup; |
vs_top=sup; |
2539 |
{object V559 = vs_base[0]; |
{object V533 = vs_base[0]; |
2540 |
VMR35(V559)} |
VMR35(V533)} |
2541 |
goto T875; |
goto T903; |
2542 |
T875:; |
T903:; |
2543 |
base[0]= car((V557)); |
base[0]= car((V531)); |
2544 |
base[1]= cdr((V557)); |
base[1]= cdr((V531)); |
2545 |
base[2]= VV[12]; |
base[2]= VV[12]; |
2546 |
base[3]= (V551); |
base[3]= (V525); |
2547 |
base[4]= VV[13]; |
base[4]= VV[13]; |
2548 |
base[5]= (V552); |
base[5]= (V526); |
2549 |
base[6]= VV[17]; |
base[6]= VV[17]; |
2550 |
base[7]= (V555); |
base[7]= (V529); |
2551 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2552 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
2553 |
vs_top=sup; |
vs_top=sup; |
2554 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2555 |
goto T881;} |
goto T909;} |
2556 |
V558= make_cons(car((V557)),(V558)); |
V532= make_cons(car((V531)),(V532)); |
2557 |
goto T881; |
goto T909; |
2558 |
T881:; |
T909:; |
2559 |
V557= cdr((V557)); |
V531= cdr((V531)); |
2560 |
goto T874;} |
goto T902;} |
2561 |
goto T861; |
goto T889; |
2562 |
T861:; |
T889:; |
2563 |
{object V560 = (VFUN_NARGS=13,(*(LnkLI56))((V549),VV[11],(V550),VV[12],(V551),VV[13],(V552),VV[14],(V553),VV[15],(V554),VV[17],(V555))); |
{object V534 = (VFUN_NARGS=13,(*(LnkLI56))((V523),VV[11],(V524),VV[12],(V525),VV[13],(V526),VV[14],(V527),VV[15],(V528),VV[17],(V529))); |
2564 |
VMR35(V560)} |
VMR35(V534)} |
2565 |
va_end(ap); |
va_end(ap); |
2566 |
base[0]=base[0]; |
base[0]=base[0]; |
2567 |
return Cnil;} |
return Cnil;} |
2568 |
}} |
}} |
2569 |
/* local entry for function DELETE-DUPLICATES */ |
/* local entry for function DELETE-DUPLICATES */ |
2570 |
|
|
2571 |
static object LI36(object V561,object first,...) |
static object LI36(object V535,object first,...) |
2572 |
{ |
{ |
2573 |
va_list ap; |
va_list ap; |
2574 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
2575 |
{register object V562; |
{register object V536; |
2576 |
object V563; |
object V537; |
2577 |
object V564; |
object V538; |
2578 |
object V565; |
object V539; |
2579 |
object V566; |
object V540; |
2580 |
object V567; |
object V541; |
2581 |
register object V568; |
register object V542; |
2582 |
va_start(ap,first); |
va_start(ap,first); |
2583 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2584 |
V562= V561; |
V536= V535; |
2585 |
narg= narg - 1; |
narg= narg - 1; |
2586 |
{ |
{ |
2587 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
2588 |
V563=(Vcs[1]); |
V537=(Vcs[1]); |
2589 |
V564=(Vcs[2]); |
V538=(Vcs[2]); |
2590 |
V565=(Vcs[3]); |
V539=(Vcs[3]); |
2591 |
V566=(Vcs[4]); |
V540=(Vcs[4]); |
2592 |
V567=(Vcs[5]); |
V541=(Vcs[5]); |
2593 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2594 |
V568= symbol_function(VV[35]); |
V542= symbol_function(VV[35]); |
2595 |
}else{ |
}else{ |
2596 |
V568=(Vcs[6]);} |
V542=(Vcs[6]);} |
2597 |
{long V569; |
{long V543; |
2598 |
V569= (long)length((V562)); |
V543= (long)length((V536)); |
2599 |
if((V564)==Cnil){ |
if((V538)==Cnil){ |
2600 |
goto T898;} |
goto T926;} |
2601 |
if((V565)==Cnil){ |
if((V539)==Cnil){ |
2602 |
goto T898;} |
goto T926;} |
2603 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
2604 |
goto T898; |
goto T926; |
2605 |
T898:; |
T926:; |
2606 |
if(!(type_of((V562))==t_cons||((V562))==Cnil)){ |
if(!(type_of((V536))==t_cons||((V536))==Cnil)){ |
2607 |
goto T899;} |
goto T927;} |
2608 |
if(((V563))!=Cnil){ |
if(((V537))!=Cnil){ |
2609 |
goto T899;} |
goto T927;} |
2610 |
if(((V566))!=Cnil){ |
if(((V540))!=Cnil){ |
2611 |
goto T899;} |
goto T927;} |
2612 |
if(((V567))!=Cnil){ |
if(((V541))!=Cnil){ |
2613 |
goto T899;} |
goto T927;} |
2614 |
if(!(endp_prop((V562)))){ |
if(!(endp_prop((V536)))){ |
2615 |
goto T908;} |
goto T936;} |
2616 |
{object V570 = Cnil; |
{object V544 = Cnil; |
2617 |
VMR36(V570)} |
VMR36(V544)} |
2618 |
goto T908; |
goto T936; |
2619 |
T908:; |
T936:; |
2620 |
{register object V571; |
{register object V545; |
2621 |
V571= (V562); |
V545= (V536); |
2622 |
goto T912; |
goto T940; |
2623 |
T912:; |
T940:; |
2624 |
if(!(endp_prop(cdr((V571))))){ |
if(!(endp_prop(cdr((V545))))){ |
2625 |
goto T913;} |
goto T941;} |
2626 |
{object V572 = (V562); |
{object V546 = (V536); |
2627 |
VMR36(V572)} |
VMR36(V546)} |
2628 |
goto T913; |
goto T941; |
2629 |
T913:; |
T941:; |
2630 |
base[0]= car((V571)); |
base[0]= car((V545)); |
2631 |
base[1]= cdr((V571)); |
base[1]= cdr((V545)); |
2632 |
base[2]= VV[12]; |
base[2]= VV[12]; |
2633 |
base[3]= (V564); |
base[3]= (V538); |
2634 |
base[4]= VV[13]; |
base[4]= VV[13]; |
2635 |
base[5]= (V565); |
base[5]= (V539); |
2636 |
base[6]= VV[17]; |
base[6]= VV[17]; |
2637 |
base[7]= (V568); |
base[7]= (V542); |
2638 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2639 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
2640 |
vs_top=sup; |
vs_top=sup; |
2641 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2642 |
goto T919;} |
goto T947;} |
2643 |
if(type_of((V571))!=t_cons)FEwrong_type_argument(Scons,(V571)); |
if(type_of((V545))!=t_cons)FEwrong_type_argument(Scons,(V545)); |
2644 |
((V571))->c.c_car = cadr((V571)); |
((V545))->c.c_car = cadr((V545)); |
2645 |
if(type_of((V571))!=t_cons)FEwrong_type_argument(Scons,(V571)); |
if(type_of((V545))!=t_cons)FEwrong_type_argument(Scons,(V545)); |
2646 |
((V571))->c.c_cdr = cddr((V571)); |
((V545))->c.c_cdr = cddr((V545)); |
2647 |
goto T917; |
goto T945; |
|
goto T919; |
|
|
T919:; |
|
|
V571= cdr((V571)); |
|
|
goto T917; |
|
|
T917:; |
|
|
goto T912;} |
|
|
goto T899; |
|
|
T899:; |
|
|
{register long V573; |
|
|
if(((V566))==Cnil){ |
|
|
goto T935;} |
|
|
V573= (long)(*(LnkLI36))((V566)); |
|
|
goto T933; |
|
|
goto T935; |
|
|
T935:; |
|
|
V573= 0; |
|
|
goto T933; |
|
|
T933:; |
|
|
{register long V574; |
|
|
V574= (long)(*(LnkLI37))((V567),(V562)); |
|
|
if(!((V573)<=(V574))){ |
|
|
goto T939;} |
|
|
goto T938; |
|
|
goto T939; |
|
|
T939:; |
|
|
V575 = make_fixnum(V573); |
|
|
V576 = make_fixnum(V574); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V575,V576))); |
|
|
goto T938; |
|
|
T938:; |
|
|
if(((V563))!=Cnil){ |
|
|
goto T942;} |
|
|
{long V577; |
|
|
long V578; |
|
|
V577= 0; |
|
|
V578= V573; |
|
2648 |
goto T947; |
goto T947; |
2649 |
T947:; |
T947:; |
2650 |
if(!((V578)>=(V574))){ |
V545= cdr((V545)); |
2651 |
goto T948;} |
goto T945; |
2652 |
{object V579; |
T945:; |
2653 |
register long V580; |
goto T940;} |
2654 |
long V581; |
goto T927; |
2655 |
V582= (*(LnkLI49))((V562)); |
T927:; |
2656 |
V583 = make_fixnum((long)(V569)-(V577)); |
{register long V547; |
2657 |
V579= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V582,V583)); |
if(((V540))==Cnil){ |
2658 |
V580= 0; |
goto T963;} |
2659 |
V581= 0; |
V547= (long)(*(LnkLI36))((V540)); |
|
goto T955; |
|
|
T955:; |
|
|
if(!((V580)>=(V569))){ |
|
|
goto T956;} |
|
|
{object V584 = (V579); |
|
|
VMR36(V584)} |
|
|
goto T956; |
|
|
T956:; |
|
|
{object V585; |
|
|
if((V573)<=(V580)){ |
|
|
goto T962;} |
|
|
V585= Cnil; |
|
|
goto T961; |
|
|
goto T962; |
|
|
T962:; |
|
|
if((V580)<(V574)){ |
|
|
goto T964;} |
|
|
V585= Cnil; |
|
2660 |
goto T961; |
goto T961; |
2661 |
goto T964; |
goto T963; |
2662 |
T964:; |
T963:; |
2663 |
base[0]= elt((V562),V580); |
V547= 0; |
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V568)); |
|
|
vs_top=sup; |
|
|
V586= vs_base[0]; |
|
|
V587 = make_fixnum((long)(1)+(V580)); |
|
|
V588 = make_fixnum(V574); |
|
|
V585= (VFUN_NARGS=12,(*(LnkLI54))(V586,(V562),VV[12],(V564),VV[13],(V565),VV[14],V587,VV[15],V588,VV[17],(V568))); |
|
2664 |
goto T961; |
goto T961; |
2665 |
T961:; |
T961:; |
2666 |
if(((V585))==Cnil){ |
{register long V548; |
2667 |
goto T969;} |
V548= (long)(*(LnkLI37))((V541),(V536)); |
2668 |
goto T960; |
if(!((V547)<=(V548))){ |
2669 |
goto T969; |
goto T967;} |
2670 |
T969:; |
goto T966; |
2671 |
V589= elt((V562),V580); |
goto T967; |
2672 |
(void)(elt_set((V579),V581,/* INLINE-ARGS */V589)); |
T967:; |
2673 |
V581= (long)(1)+(V581);} |
base[0]= make_fixnum(V547); |
2674 |
goto T960; |
base[1]= make_fixnum(V548); |
2675 |
T960:; |
vs_top=(vs_base=base+0)+2; |
2676 |
V580= (long)(1)+(V580); |
(void) (*Lnk33)(); |
2677 |
goto T955;} |
vs_top=sup; |
2678 |
goto T948; |
goto T966; |
2679 |
T948:; |
T966:; |
2680 |
base[0]= elt((V562),V578); |
if(((V537))!=Cnil){ |
2681 |
vs_top=(vs_base=base+0)+1; |
goto T972;} |
2682 |
super_funcall_no_event((V568)); |
{long V549; |
2683 |
vs_top=sup; |
long V550; |
2684 |
V590= vs_base[0]; |
V549= 0; |
2685 |
V591 = make_fixnum((long)(1)+(V578)); |
V550= V547; |
|
V592 = make_fixnum(V574); |
|
|
if(((VFUN_NARGS=12,(*(LnkLI54))(V590,(V562),VV[12],(V564),VV[13],(V565),VV[14],V591,VV[15],V592,VV[17],(V568))))==Cnil){ |
|
|
goto T977;} |
|
|
V577= (long)(1)+(V577); |
|
2686 |
goto T977; |
goto T977; |
2687 |
T977:; |
T977:; |
2688 |
V578= (long)(1)+(V578); |
if(!((V550)>=(V548))){ |
2689 |
goto T947;} |
goto T978;} |
2690 |
goto T942; |
{object V551; |
2691 |
T942:; |
register long V552; |
2692 |
{long V593; |
long V553; |
2693 |
long V594; |
V554= (*(LnkLI49))((V536)); |
2694 |
V593= 0; |
V555 = make_fixnum((long)(V543)-(V549)); |
2695 |
V594= (long)(-1)+(V574); |
V551= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V554,V555)); |
2696 |
goto T989; |
V552= 0; |
2697 |
T989:; |
V553= 0; |
2698 |
if(!((V594)<(V573))){ |
goto T985; |
2699 |
goto T990;} |
T985:; |
2700 |
{object V595; |
if(!((V552)>=(V543))){ |
2701 |
register long V596; |
goto T986;} |
2702 |
long V597; |
{object V556 = (V551); |
2703 |
V598= (*(LnkLI49))((V562)); |
VMR36(V556)} |
2704 |
V599 = make_fixnum((long)(V569)-(V593)); |
goto T986; |
2705 |
V595= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V598,V599)); |
T986:; |
2706 |
V596= (long)(-1)+(V569); |
{object V557; |
2707 |
V597= (long)((long)(-1)+(V569))-(V593); |
if((V547)<=(V552)){ |
2708 |
goto T997; |
goto T992;} |
2709 |
T997:; |
V557= Cnil; |
2710 |
if(!((V596)<(0))){ |
goto T991; |
2711 |
goto T998;} |
goto T992; |
2712 |
{object V600 = (V595); |
T992:; |
2713 |
VMR36(V600)} |
if((V552)<(V548)){ |
2714 |
goto T998; |
goto T994;} |
2715 |
T998:; |
V557= Cnil; |
2716 |
{object V601; |
goto T991; |
2717 |
if((V573)<=(V596)){ |
goto T994; |
2718 |
goto T1004;} |
T994:; |
2719 |
V601= Cnil; |
base[0]= elt((V536),V552); |
2720 |
goto T1003; |
vs_top=(vs_base=base+0)+1; |
2721 |
goto T1004; |
super_funcall_no_event((V542)); |
2722 |
T1004:; |
vs_top=sup; |
2723 |
if((V596)<(V574)){ |
V558= vs_base[0]; |
2724 |
goto T1006;} |
V559 = make_fixnum((long)(1)+(V552)); |
2725 |
V601= Cnil; |
V560 = make_fixnum(V548); |
2726 |
goto T1003; |
V557= (VFUN_NARGS=12,(*(LnkLI54))(V558,(V536),VV[12],(V538),VV[13],(V539),VV[14],V559,VV[15],V560,VV[17],(V542))); |
2727 |
goto T1006; |
goto T991; |
2728 |
T1006:; |
T991:; |
2729 |
base[0]= elt((V562),V596); |
if(((V557))==Cnil){ |
2730 |
vs_top=(vs_base=base+0)+1; |
goto T999;} |
2731 |
super_funcall_no_event((V568)); |
goto T990; |
2732 |
vs_top=sup; |
goto T999; |
2733 |
V602= vs_base[0]; |
T999:; |
2734 |
V603 = make_fixnum(V573); |
V561= elt((V536),V552); |
2735 |
V604 = make_fixnum(V596); |
(void)(elt_set((V551),V553,/* INLINE-ARGS */V561)); |
2736 |
V601= (VFUN_NARGS=14,(*(LnkLI54))(V602,(V562),VV[11],Ct,VV[12],(V564),VV[13],(V565),VV[14],V603,VV[15],V604,VV[17],(V568))); |
V553= (long)(1)+(V553);} |
|
goto T1003; |
|
|
T1003:; |
|
|
if(((V601))==Cnil){ |
|
|
goto T1011;} |
|
|
goto T1002; |
|
|
goto T1011; |
|
|
T1011:; |
|
|
V605= elt((V562),V596); |
|
|
(void)(elt_set((V595),V597,/* INLINE-ARGS */V605)); |
|
|
V597= (long)(-1)+(V597);} |
|
|
goto T1002; |
|
|
T1002:; |
|
|
V596= (long)(-1)+(V596); |
|
|
goto T997;} |
|
2737 |
goto T990; |
goto T990; |
2738 |
T990:; |
T990:; |
2739 |
base[0]= elt((V562),V594); |
V552= (long)(1)+(V552); |
2740 |
vs_top=(vs_base=base+0)+1; |
goto T985;} |
2741 |
super_funcall_no_event((V568)); |
goto T978; |
2742 |
vs_top=sup; |
T978:; |
2743 |
V606= vs_base[0]; |
base[0]= elt((V536),V550); |
2744 |
V607 = make_fixnum(V573); |
vs_top=(vs_base=base+0)+1; |
2745 |
V608 = make_fixnum(V594); |
super_funcall_no_event((V542)); |
2746 |
if(((VFUN_NARGS=14,(*(LnkLI54))(V606,(V562),VV[11],Ct,VV[12],(V564),VV[13],(V565),VV[14],V607,VV[15],V608,VV[17],(V568))))==Cnil){ |
vs_top=sup; |
2747 |
goto T1019;} |
V562= vs_base[0]; |
2748 |
V593= (long)(1)+(V593); |
V563 = make_fixnum((long)(1)+(V550)); |
2749 |
|
V564 = make_fixnum(V548); |
2750 |
|
if(((VFUN_NARGS=12,(*(LnkLI54))(V562,(V536),VV[12],(V538),VV[13],(V539),VV[14],V563,VV[15],V564,VV[17],(V542))))==Cnil){ |
2751 |
|
goto T1007;} |
2752 |
|
V549= (long)(1)+(V549); |
2753 |
|
goto T1007; |
2754 |
|
T1007:; |
2755 |
|
V550= (long)(1)+(V550); |
2756 |
|
goto T977;} |
2757 |
|
goto T972; |
2758 |
|
T972:; |
2759 |
|
{long V565; |
2760 |
|
long V566; |
2761 |
|
V565= 0; |
2762 |
|
V566= (long)(-1)+(V548); |
2763 |
goto T1019; |
goto T1019; |
2764 |
T1019:; |
T1019:; |
2765 |
V594= (long)(-1)+(V594); |
if(!((V566)<(V547))){ |
2766 |
goto T989;}}}} |
goto T1020;} |
2767 |
|
{object V567; |
2768 |
|
register long V568; |
2769 |
|
long V569; |
2770 |
|
V570= (*(LnkLI49))((V536)); |
2771 |
|
V571 = make_fixnum((long)(V543)-(V565)); |
2772 |
|
V567= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V570,V571)); |
2773 |
|
V568= (long)(-1)+(V543); |
2774 |
|
V569= (long)((long)(-1)+(V543))-(V565); |
2775 |
|
goto T1027; |
2776 |
|
T1027:; |
2777 |
|
if(!((V568)<(0))){ |
2778 |
|
goto T1028;} |
2779 |
|
{object V572 = (V567); |
2780 |
|
VMR36(V572)} |
2781 |
|
goto T1028; |
2782 |
|
T1028:; |
2783 |
|
{object V573; |
2784 |
|
if((V547)<=(V568)){ |
2785 |
|
goto T1034;} |
2786 |
|
V573= Cnil; |
2787 |
|
goto T1033; |
2788 |
|
goto T1034; |
2789 |
|
T1034:; |
2790 |
|
if((V568)<(V548)){ |
2791 |
|
goto T1036;} |
2792 |
|
V573= Cnil; |
2793 |
|
goto T1033; |
2794 |
|
goto T1036; |
2795 |
|
T1036:; |
2796 |
|
base[0]= elt((V536),V568); |
2797 |
|
vs_top=(vs_base=base+0)+1; |
2798 |
|
super_funcall_no_event((V542)); |
2799 |
|
vs_top=sup; |
2800 |
|
V574= vs_base[0]; |
2801 |
|
V575 = make_fixnum(V547); |
2802 |
|
V576 = make_fixnum(V568); |
2803 |
|
V573= (VFUN_NARGS=14,(*(LnkLI54))(V574,(V536),VV[11],Ct,VV[12],(V538),VV[13],(V539),VV[14],V575,VV[15],V576,VV[17],(V542))); |
2804 |
|
goto T1033; |
2805 |
|
T1033:; |
2806 |
|
if(((V573))==Cnil){ |
2807 |
|
goto T1041;} |
2808 |
|
goto T1032; |
2809 |
|
goto T1041; |
2810 |
|
T1041:; |
2811 |
|
V577= elt((V536),V568); |
2812 |
|
(void)(elt_set((V567),V569,/* INLINE-ARGS */V577)); |
2813 |
|
V569= (long)(-1)+(V569);} |
2814 |
|
goto T1032; |
2815 |
|
T1032:; |
2816 |
|
V568= (long)(-1)+(V568); |
2817 |
|
goto T1027;} |
2818 |
|
goto T1020; |
2819 |
|
T1020:; |
2820 |
|
base[0]= elt((V536),V566); |
2821 |
|
vs_top=(vs_base=base+0)+1; |
2822 |
|
super_funcall_no_event((V542)); |
2823 |
|
vs_top=sup; |
2824 |
|
V578= vs_base[0]; |
2825 |
|
V579 = make_fixnum(V547); |
2826 |
|
V580 = make_fixnum(V566); |
2827 |
|
if(((VFUN_NARGS=14,(*(LnkLI54))(V578,(V536),VV[11],Ct,VV[12],(V538),VV[13],(V539),VV[14],V579,VV[15],V580,VV[17],(V542))))==Cnil){ |
2828 |
|
goto T1049;} |
2829 |
|
V565= (long)(1)+(V565); |
2830 |
|
goto T1049; |
2831 |
|
T1049:; |
2832 |
|
V566= (long)(-1)+(V566); |
2833 |
|
goto T1019;}}}} |
2834 |
va_end(ap); |
va_end(ap); |
2835 |
base[0]=base[0]; |
base[0]=base[0]; |
2836 |
return Cnil;} |
return Cnil;} |
2837 |
}} |
}} |
2838 |
/* local entry for function MISMATCH */ |
/* local entry for function MISMATCH */ |
2839 |
|
|
2840 |
static object LI37(object V610,object V609,object first,...) |
static object LI37(object V582,object V581,object first,...) |
2841 |
{ |
{ |
2842 |
va_list ap; |
va_list ap; |
2843 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
2844 |
{object V611; |
{object V583; |
2845 |
object V612; |
object V584; |
2846 |
object V613; |
object V585; |
2847 |
object V614; |
object V586; |
2848 |
object V615; |
object V587; |
2849 |
register object V616; |
register object V588; |
2850 |
object V617; |
object V589; |
2851 |
object V618; |
object V590; |
2852 |
object V619; |
object V591; |
2853 |
object V620; |
object V592; |
2854 |
va_start(ap,first); |
va_start(ap,first); |
2855 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2856 |
V611= V610; |
V583= V582; |
2857 |
V612= V609; |
V584= V581; |
2858 |
narg= narg - 2; |
narg= narg - 2; |
2859 |
{ |
{ |
2860 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI37key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI37key,first,ap); |
2861 |
V613=(Vcs[2]); |
V585=(Vcs[2]); |
2862 |
V614=(Vcs[3]); |
V586=(Vcs[3]); |
2863 |
V615=(Vcs[4]); |
V587=(Vcs[4]); |
2864 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2865 |
V616= symbol_function(VV[35]); |
V588= symbol_function(VV[35]); |
2866 |
}else{ |
}else{ |
2867 |
V616=(Vcs[5]);} |
V588=(Vcs[5]);} |
2868 |
V617=(Vcs[6]); |
V589=(Vcs[6]); |
2869 |
V618=(Vcs[7]); |
V590=(Vcs[7]); |
2870 |
V619=(Vcs[8]); |
V591=(Vcs[8]); |
2871 |
V620=(Vcs[9]); |
V592=(Vcs[9]); |
2872 |
if((V614)==Cnil){ |
if((V586)==Cnil){ |
|
goto T1029;} |
|
|
if((V615)==Cnil){ |
|
|
goto T1029;} |
|
|
(void)((*(LnkLI42))()); |
|
|
goto T1029; |
|
|
T1029:; |
|
|
{register long V621; |
|
|
if(((V617))==Cnil){ |
|
|
goto T1032;} |
|
|
V621= (long)(*(LnkLI36))((V617)); |
|
|
goto T1030; |
|
|
goto T1032; |
|
|
T1032:; |
|
|
V621= 0; |
|
|
goto T1030; |
|
|
T1030:; |
|
|
{register long V622; |
|
|
V622= (long)(*(LnkLI37))((V619),(V611)); |
|
|
if(!((V621)<=(V622))){ |
|
|
goto T1036;} |
|
|
goto T1035; |
|
|
goto T1036; |
|
|
T1036:; |
|
|
V623 = make_fixnum(V621); |
|
|
V624 = make_fixnum(V622); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V623,V624))); |
|
|
goto T1035; |
|
|
T1035:; |
|
|
{register long V625; |
|
|
if(((V618))==Cnil){ |
|
|
goto T1040;} |
|
|
V625= (long)(*(LnkLI36))((V618)); |
|
|
goto T1038; |
|
|
goto T1040; |
|
|
T1040:; |
|
|
V625= 0; |
|
|
goto T1038; |
|
|
T1038:; |
|
|
{register long V626; |
|
|
V626= (long)(*(LnkLI37))((V620),(V612)); |
|
|
if(!((V625)<=(V626))){ |
|
|
goto T1044;} |
|
|
goto T1043; |
|
|
goto T1044; |
|
|
T1044:; |
|
|
V627 = make_fixnum(V625); |
|
|
V628 = make_fixnum(V626); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V627,V628))); |
|
|
goto T1043; |
|
|
T1043:; |
|
|
if(((V613))!=Cnil){ |
|
|
goto T1047;} |
|
|
{register long V629; |
|
|
register long V630; |
|
|
V629= V621; |
|
|
V630= V625; |
|
|
goto T1052; |
|
|
T1052:; |
|
|
if((V629)>=(V622)){ |
|
|
goto T1054;} |
|
|
if(!((V630)>=(V626))){ |
|
|
goto T1053;} |
|
|
goto T1054; |
|
|
T1054:; |
|
|
if(!((V629)>=(V622))){ |
|
2873 |
goto T1059;} |
goto T1059;} |
2874 |
if(!((V630)>=(V626))){ |
if((V587)==Cnil){ |
2875 |
goto T1059;} |
goto T1059;} |
2876 |
{object V631 = Cnil; |
(void)((*(LnkLI42))()); |
|
VMR37(V631)} |
|
2877 |
goto T1059; |
goto T1059; |
2878 |
T1059:; |
T1059:; |
2879 |
{object V632 = make_fixnum(V629); |
{register long V593; |
2880 |
VMR37(V632)} |
if(((V589))==Cnil){ |
2881 |
goto T1053; |
goto T1062;} |
2882 |
T1053:; |
V593= (long)(*(LnkLI36))((V589)); |
2883 |
base[0]= elt((V611),V629); |
goto T1060; |
2884 |
vs_top=(vs_base=base+0)+1; |
goto T1062; |
2885 |
super_funcall_no_event((V616)); |
T1062:; |
2886 |
vs_top=sup; |
V593= 0; |
2887 |
V633= vs_base[0]; |
goto T1060; |
2888 |
base[0]= elt((V612),V630); |
T1060:; |
2889 |
vs_top=(vs_base=base+0)+1; |
{register long V594; |
2890 |
super_funcall_no_event((V616)); |
V594= (long)(*(LnkLI37))((V591),(V583)); |
2891 |
vs_top=sup; |
if(!((V593)<=(V594))){ |
2892 |
V634= vs_base[0]; |
goto T1066;} |
2893 |
if(((*(LnkLI43))((V614),(V615),V633,V634))!=Cnil){ |
goto T1065; |
2894 |
goto T1064;} |
goto T1066; |
2895 |
{object V635 = make_fixnum(V629); |
T1066:; |
2896 |
VMR37(V635)} |
base[0]= make_fixnum(V593); |
2897 |
goto T1064; |
base[1]= make_fixnum(V594); |
2898 |
T1064:; |
vs_top=(vs_base=base+0)+2; |
2899 |
V629= (long)(1)+(V629); |
(void) (*Lnk33)(); |
2900 |
V630= (long)(1)+(V630); |
vs_top=sup; |
2901 |
goto T1052;} |
goto T1065; |
2902 |
goto T1047; |
T1065:; |
2903 |
T1047:; |
{register long V595; |
2904 |
{register long V636; |
if(((V590))==Cnil){ |
2905 |
register long V637; |
goto T1072;} |
2906 |
V636= (long)(-1)+(V622); |
V595= (long)(*(LnkLI36))((V590)); |
2907 |
V637= (long)(-1)+(V626); |
goto T1070; |
2908 |
goto T1078; |
goto T1072; |
2909 |
T1078:; |
T1072:; |
2910 |
if((V636)<(V621)){ |
V595= 0; |
2911 |
goto T1080;} |
goto T1070; |
2912 |
if(!((V637)<(V625))){ |
T1070:; |
2913 |
goto T1079;} |
{register long V596; |
2914 |
goto T1080; |
V596= (long)(*(LnkLI37))((V592),(V584)); |
2915 |
T1080:; |
if(!((V595)<=(V596))){ |
2916 |
if(!((V636)<(V621))){ |
goto T1076;} |
2917 |
goto T1085;} |
goto T1075; |
2918 |
if(!((V637)<(V625))){ |
goto T1076; |
2919 |
goto T1085;} |
T1076:; |
2920 |
{object V638 = Cnil; |
base[0]= make_fixnum(V595); |
2921 |
VMR37(V638)} |
base[1]= make_fixnum(V596); |
2922 |
goto T1085; |
vs_top=(vs_base=base+0)+2; |
2923 |
T1085:; |
(void) (*Lnk33)(); |
2924 |
{object V639 = make_fixnum((long)(1)+(V636)); |
vs_top=sup; |
2925 |
VMR37(V639)} |
goto T1075; |
2926 |
goto T1079; |
T1075:; |
2927 |
T1079:; |
if(((V585))!=Cnil){ |
2928 |
base[0]= elt((V611),V636); |
goto T1081;} |
2929 |
vs_top=(vs_base=base+0)+1; |
{register long V597; |
2930 |
super_funcall_no_event((V616)); |
register long V598; |
2931 |
vs_top=sup; |
V597= V593; |
2932 |
V640= vs_base[0]; |
V598= V595; |
2933 |
base[0]= elt((V612),V637); |
goto T1086; |
2934 |
vs_top=(vs_base=base+0)+1; |
T1086:; |
2935 |
super_funcall_no_event((V616)); |
if((V597)>=(V594)){ |
2936 |
vs_top=sup; |
goto T1088;} |
2937 |
V641= vs_base[0]; |
if(!((V598)>=(V596))){ |
2938 |
if(((*(LnkLI43))((V614),(V615),V640,V641))!=Cnil){ |
goto T1087;} |
2939 |
goto T1090;} |
goto T1088; |
2940 |
{object V642 = make_fixnum((long)(1)+(V636)); |
T1088:; |
2941 |
VMR37(V642)} |
if(!((V597)>=(V594))){ |
2942 |
goto T1090; |
goto T1093;} |
2943 |
T1090:; |
if(!((V598)>=(V596))){ |
2944 |
V636= (long)(-1)+(V636); |
goto T1093;} |
2945 |
V637= (long)(-1)+(V637); |
{object V599 = Cnil; |
2946 |
goto T1078;}}}}} |
VMR37(V599)} |
2947 |
|
goto T1093; |
2948 |
|
T1093:; |
2949 |
|
{object V600 = make_fixnum(V597); |
2950 |
|
VMR37(V600)} |
2951 |
|
goto T1087; |
2952 |
|
T1087:; |
2953 |
|
base[0]= elt((V583),V597); |
2954 |
|
vs_top=(vs_base=base+0)+1; |
2955 |
|
super_funcall_no_event((V588)); |
2956 |
|
vs_top=sup; |
2957 |
|
V601= vs_base[0]; |
2958 |
|
base[0]= elt((V584),V598); |
2959 |
|
vs_top=(vs_base=base+0)+1; |
2960 |
|
super_funcall_no_event((V588)); |
2961 |
|
vs_top=sup; |
2962 |
|
V602= vs_base[0]; |
2963 |
|
if(((*(LnkLI43))((V586),(V587),V601,V602))!=Cnil){ |
2964 |
|
goto T1098;} |
2965 |
|
{object V603 = make_fixnum(V597); |
2966 |
|
VMR37(V603)} |
2967 |
|
goto T1098; |
2968 |
|
T1098:; |
2969 |
|
V597= (long)(1)+(V597); |
2970 |
|
V598= (long)(1)+(V598); |
2971 |
|
goto T1086;} |
2972 |
|
goto T1081; |
2973 |
|
T1081:; |
2974 |
|
{register long V604; |
2975 |
|
register long V605; |
2976 |
|
V604= (long)(-1)+(V594); |
2977 |
|
V605= (long)(-1)+(V596); |
2978 |
|
goto T1112; |
2979 |
|
T1112:; |
2980 |
|
if((V604)<(V593)){ |
2981 |
|
goto T1114;} |
2982 |
|
if(!((V605)<(V595))){ |
2983 |
|
goto T1113;} |
2984 |
|
goto T1114; |
2985 |
|
T1114:; |
2986 |
|
if(!((V604)<(V593))){ |
2987 |
|
goto T1119;} |
2988 |
|
if(!((V605)<(V595))){ |
2989 |
|
goto T1119;} |
2990 |
|
{object V606 = Cnil; |
2991 |
|
VMR37(V606)} |
2992 |
|
goto T1119; |
2993 |
|
T1119:; |
2994 |
|
{object V607 = make_fixnum((long)(1)+(V604)); |
2995 |
|
VMR37(V607)} |
2996 |
|
goto T1113; |
2997 |
|
T1113:; |
2998 |
|
base[0]= elt((V583),V604); |
2999 |
|
vs_top=(vs_base=base+0)+1; |
3000 |
|
super_funcall_no_event((V588)); |
3001 |
|
vs_top=sup; |
3002 |
|
V608= vs_base[0]; |
3003 |
|
base[0]= elt((V584),V605); |
3004 |
|
vs_top=(vs_base=base+0)+1; |
3005 |
|
super_funcall_no_event((V588)); |
3006 |
|
vs_top=sup; |
3007 |
|
V609= vs_base[0]; |
3008 |
|
if(((*(LnkLI43))((V586),(V587),V608,V609))!=Cnil){ |
3009 |
|
goto T1124;} |
3010 |
|
{object V610 = make_fixnum((long)(1)+(V604)); |
3011 |
|
VMR37(V610)} |
3012 |
|
goto T1124; |
3013 |
|
T1124:; |
3014 |
|
V604= (long)(-1)+(V604); |
3015 |
|
V605= (long)(-1)+(V605); |
3016 |
|
goto T1112;}}}}} |
3017 |
va_end(ap); |
va_end(ap); |
3018 |
base[0]=base[0]; |
base[0]=base[0]; |
3019 |
return Cnil;} |
return Cnil;} |
3020 |
}} |
}} |
3021 |
/* local entry for function SEARCH */ |
/* local entry for function SEARCH */ |
3022 |
|
|
3023 |
static object LI38(object V644,object V643,object first,...) |
static object LI38(object V612,object V611,object first,...) |
3024 |
{ |
{ |
3025 |
va_list ap; |
va_list ap; |
3026 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
3027 |
{object V645; |
{object V613; |
3028 |
object V646; |
object V614; |
3029 |
object V647; |
object V615; |
3030 |
object V648; |
object V616; |
3031 |
object V649; |
object V617; |
3032 |
register object V650; |
register object V618; |
3033 |
object V651; |
object V619; |
3034 |
object V652; |
object V620; |
3035 |
object V653; |
object V621; |
3036 |
object V654; |
object V622; |
3037 |
va_start(ap,first); |
va_start(ap,first); |
3038 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3039 |
V645= V644; |
V613= V612; |
3040 |
V646= V643; |
V614= V611; |
3041 |
narg= narg - 2; |
narg= narg - 2; |
3042 |
{ |
{ |
3043 |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI38key,first,ap); |
parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI38key,first,ap); |
3044 |
V647=(Vcs[2]); |
V615=(Vcs[2]); |
3045 |
V648=(Vcs[3]); |
V616=(Vcs[3]); |
3046 |
V649=(Vcs[4]); |
V617=(Vcs[4]); |
3047 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
3048 |
V650= symbol_function(VV[35]); |
V618= symbol_function(VV[35]); |
3049 |
}else{ |
}else{ |
3050 |
V650=(Vcs[5]);} |
V618=(Vcs[5]);} |
3051 |
V651=(Vcs[6]); |
V619=(Vcs[6]); |
3052 |
V652=(Vcs[7]); |
V620=(Vcs[7]); |
3053 |
V653=(Vcs[8]); |
V621=(Vcs[8]); |
3054 |
V654=(Vcs[9]); |
V622=(Vcs[9]); |
3055 |
if((V648)==Cnil){ |
if((V616)==Cnil){ |
3056 |
goto T1102;} |
goto T1136;} |
3057 |
if((V649)==Cnil){ |
if((V617)==Cnil){ |
3058 |
goto T1102;} |
goto T1136;} |
3059 |
(void)((*(LnkLI42))()); |
(void)((*(LnkLI42))()); |
3060 |
goto T1102; |
goto T1136; |
3061 |
T1102:; |
T1136:; |
3062 |
{long V655; |
{long V623; |
3063 |
if(((V651))==Cnil){ |
if(((V619))==Cnil){ |
3064 |
goto T1105;} |
goto T1139;} |
3065 |
V655= (long)(*(LnkLI36))((V651)); |
V623= (long)(*(LnkLI36))((V619)); |
3066 |
goto T1103; |
goto T1137; |
3067 |
goto T1105; |
goto T1139; |
3068 |
T1105:; |
T1139:; |
3069 |
V655= 0; |
V623= 0; |
|
goto T1103; |
|
|
T1103:; |
|
|
{long V656; |
|
|
V656= (long)(*(LnkLI37))((V653),(V645)); |
|
|
if(!((V655)<=(V656))){ |
|
|
goto T1109;} |
|
|
goto T1108; |
|
|
goto T1109; |
|
|
T1109:; |
|
|
V657 = make_fixnum(V655); |
|
|
V658 = make_fixnum(V656); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V657,V658))); |
|
|
goto T1108; |
|
|
T1108:; |
|
|
{register long V659; |
|
|
if(((V652))==Cnil){ |
|
|
goto T1113;} |
|
|
V659= (long)(*(LnkLI36))((V652)); |
|
|
goto T1111; |
|
|
goto T1113; |
|
|
T1113:; |
|
|
V659= 0; |
|
|
goto T1111; |
|
|
T1111:; |
|
|
{long V660; |
|
|
V660= (long)(*(LnkLI37))((V654),(V646)); |
|
|
if(!((V659)<=(V660))){ |
|
|
goto T1117;} |
|
|
goto T1116; |
|
|
goto T1117; |
|
|
T1117:; |
|
|
V661 = make_fixnum(V659); |
|
|
V662 = make_fixnum(V660); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(V661,V662))); |
|
|
goto T1116; |
|
|
T1116:; |
|
|
if(((V647))!=Cnil){ |
|
|
goto T1120;} |
|
|
goto T1123; |
|
|
T1123:; |
|
|
{register long V663; |
|
|
register long V664; |
|
|
V663= V655; |
|
|
V664= V659; |
|
|
goto T1129; |
|
|
T1129:; |
|
|
if(!((V663)>=(V656))){ |
|
|
goto T1130;} |
|
|
{object V665 = make_fixnum(V659); |
|
|
VMR38(V665)} |
|
|
goto T1130; |
|
|
T1130:; |
|
|
if(!((V664)>=(V660))){ |
|
|
goto T1134;} |
|
|
{object V666 = Cnil; |
|
|
VMR38(V666)} |
|
|
goto T1134; |
|
|
T1134:; |
|
|
base[0]= elt((V645),V663); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V650)); |
|
|
vs_top=sup; |
|
|
V667= vs_base[0]; |
|
|
base[0]= elt((V646),V664); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V650)); |
|
|
vs_top=sup; |
|
|
V668= vs_base[0]; |
|
|
if(((*(LnkLI43))((V648),(V649),V667,V668))!=Cnil){ |
|
|
goto T1137;} |
|
|
goto T1125; |
|
3070 |
goto T1137; |
goto T1137; |
3071 |
T1137:; |
T1137:; |
3072 |
V663= (long)(1)+(V663); |
{long V624; |
3073 |
V664= (long)(1)+(V664); |
V624= (long)(*(LnkLI37))((V621),(V613)); |
3074 |
goto T1129;} |
if(!((V623)<=(V624))){ |
3075 |
goto T1125; |
goto T1143;} |
3076 |
T1125:; |
goto T1142; |
3077 |
V659= (long)(1)+(V659); |
goto T1143; |
3078 |
goto T1123; |
T1143:; |
3079 |
goto T1120; |
base[0]= make_fixnum(V623); |
3080 |
T1120:; |
base[1]= make_fixnum(V624); |
3081 |
goto T1151; |
vs_top=(vs_base=base+0)+2; |
3082 |
T1151:; |
(void) (*Lnk33)(); |
3083 |
{register long V669; |
vs_top=sup; |
3084 |
register long V670; |
goto T1142; |
3085 |
V669= (long)(-1)+(V656); |
T1142:; |
3086 |
V670= (long)(-1)+(V660); |
{register long V625; |
3087 |
goto T1157; |
if(((V620))==Cnil){ |
3088 |
T1157:; |
goto T1149;} |
3089 |
if(!((V669)<(V655))){ |
V625= (long)(*(LnkLI36))((V620)); |
3090 |
|
goto T1147; |
3091 |
|
goto T1149; |
3092 |
|
T1149:; |
3093 |
|
V625= 0; |
3094 |
|
goto T1147; |
3095 |
|
T1147:; |
3096 |
|
{long V626; |
3097 |
|
V626= (long)(*(LnkLI37))((V622),(V614)); |
3098 |
|
if(!((V625)<=(V626))){ |
3099 |
|
goto T1153;} |
3100 |
|
goto T1152; |
3101 |
|
goto T1153; |
3102 |
|
T1153:; |
3103 |
|
base[0]= make_fixnum(V625); |
3104 |
|
base[1]= make_fixnum(V626); |
3105 |
|
vs_top=(vs_base=base+0)+2; |
3106 |
|
(void) (*Lnk33)(); |
3107 |
|
vs_top=sup; |
3108 |
|
goto T1152; |
3109 |
|
T1152:; |
3110 |
|
if(((V615))!=Cnil){ |
3111 |
goto T1158;} |
goto T1158;} |
3112 |
{object V671 = make_fixnum((long)(1)+(V670)); |
goto T1161; |
3113 |
VMR38(V671)} |
T1161:; |
3114 |
|
{register long V627; |
3115 |
|
register long V628; |
3116 |
|
V627= V623; |
3117 |
|
V628= V625; |
3118 |
|
goto T1167; |
3119 |
|
T1167:; |
3120 |
|
if(!((V627)>=(V624))){ |
3121 |
|
goto T1168;} |
3122 |
|
{object V629 = make_fixnum(V625); |
3123 |
|
VMR38(V629)} |
3124 |
|
goto T1168; |
3125 |
|
T1168:; |
3126 |
|
if(!((V628)>=(V626))){ |
3127 |
|
goto T1172;} |
3128 |
|
{object V630 = Cnil; |
3129 |
|
VMR38(V630)} |
3130 |
|
goto T1172; |
3131 |
|
T1172:; |
3132 |
|
base[0]= elt((V613),V627); |
3133 |
|
vs_top=(vs_base=base+0)+1; |
3134 |
|
super_funcall_no_event((V618)); |
3135 |
|
vs_top=sup; |
3136 |
|
V631= vs_base[0]; |
3137 |
|
base[0]= elt((V614),V628); |
3138 |
|
vs_top=(vs_base=base+0)+1; |
3139 |
|
super_funcall_no_event((V618)); |
3140 |
|
vs_top=sup; |
3141 |
|
V632= vs_base[0]; |
3142 |
|
if(((*(LnkLI43))((V616),(V617),V631,V632))!=Cnil){ |
3143 |
|
goto T1175;} |
3144 |
|
goto T1163; |
3145 |
|
goto T1175; |
3146 |
|
T1175:; |
3147 |
|
V627= (long)(1)+(V627); |
3148 |
|
V628= (long)(1)+(V628); |
3149 |
|
goto T1167;} |
3150 |
|
goto T1163; |
3151 |
|
T1163:; |
3152 |
|
V625= (long)(1)+(V625); |
3153 |
|
goto T1161; |
3154 |
goto T1158; |
goto T1158; |
3155 |
T1158:; |
T1158:; |
3156 |
if(!((V670)<(V659))){ |
goto T1189; |
3157 |
goto T1162;} |
T1189:; |
3158 |
{object V672 = Cnil; |
{register long V633; |
3159 |
VMR38(V672)} |
register long V634; |
3160 |
goto T1162; |
V633= (long)(-1)+(V624); |
3161 |
T1162:; |
V634= (long)(-1)+(V626); |
3162 |
base[0]= elt((V645),V669); |
goto T1195; |
3163 |
vs_top=(vs_base=base+0)+1; |
T1195:; |
3164 |
super_funcall_no_event((V650)); |
if(!((V633)<(V623))){ |
3165 |
vs_top=sup; |
goto T1196;} |
3166 |
V673= vs_base[0]; |
{object V635 = make_fixnum((long)(1)+(V634)); |
3167 |
base[0]= elt((V646),V670); |
VMR38(V635)} |
3168 |
vs_top=(vs_base=base+0)+1; |
goto T1196; |
3169 |
super_funcall_no_event((V650)); |
T1196:; |
3170 |
vs_top=sup; |
if(!((V634)<(V625))){ |
3171 |
V674= vs_base[0]; |
goto T1200;} |
3172 |
if(((*(LnkLI43))((V648),(V649),V673,V674))!=Cnil){ |
{object V636 = Cnil; |
3173 |
goto T1165;} |
VMR38(V636)} |
3174 |
goto T1153; |
goto T1200; |
3175 |
goto T1165; |
T1200:; |
3176 |
T1165:; |
base[0]= elt((V613),V633); |
3177 |
V669= (long)(-1)+(V669); |
vs_top=(vs_base=base+0)+1; |
3178 |
V670= (long)(-1)+(V670); |
super_funcall_no_event((V618)); |
3179 |
goto T1157;} |
vs_top=sup; |
3180 |
goto T1153; |
V637= vs_base[0]; |
3181 |
T1153:; |
base[0]= elt((V614),V634); |
3182 |
V660= (long)(-1)+(V660); |
vs_top=(vs_base=base+0)+1; |
3183 |
goto T1151;}}}} |
super_funcall_no_event((V618)); |
3184 |
|
vs_top=sup; |
3185 |
|
V638= vs_base[0]; |
3186 |
|
if(((*(LnkLI43))((V616),(V617),V637,V638))!=Cnil){ |
3187 |
|
goto T1203;} |
3188 |
|
goto T1191; |
3189 |
|
goto T1203; |
3190 |
|
T1203:; |
3191 |
|
V633= (long)(-1)+(V633); |
3192 |
|
V634= (long)(-1)+(V634); |
3193 |
|
goto T1195;} |
3194 |
|
goto T1191; |
3195 |
|
T1191:; |
3196 |
|
V626= (long)(-1)+(V626); |
3197 |
|
goto T1189;}}}} |
3198 |
va_end(ap); |
va_end(ap); |
3199 |
base[0]=base[0]; |
base[0]=base[0]; |
3200 |
return Cnil;} |
return Cnil;} |
3205 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3206 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
3207 |
vs_reserve(VM39); |
vs_reserve(VM39); |
3208 |
{register object V675; |
{register object V639; |
3209 |
object V676; |
object V640; |
3210 |
object V677; |
object V641; |
3211 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3212 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
3213 |
V675=(base[0]); |
V639=(base[0]); |
3214 |
V676=(base[1]); |
V640=(base[1]); |
3215 |
vs_top=sup; |
vs_top=sup; |
3216 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3217 |
V677= symbol_function(VV[35]); |
V641= symbol_function(VV[35]); |
3218 |
}else{ |
}else{ |
3219 |
V677=(base[2]);} |
V641=(base[2]);} |
3220 |
if(!(type_of((V675))==t_cons||((V675))==Cnil)){ |
if(!(type_of((V639))==t_cons||((V639))==Cnil)){ |
3221 |
goto T1180;} |
goto T1218;} |
3222 |
base[4]= (V675); |
base[4]= (V639); |
3223 |
base[5]= (V676); |
base[5]= (V640); |
3224 |
base[6]= (V677); |
base[6]= (V641); |
3225 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3226 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
3227 |
return; |
return; |
3228 |
goto T1180; |
goto T1218; |
3229 |
T1180:; |
T1218:; |
3230 |
base[4]= (*(LnkLI58))((V675),0,(long)length((V675)),(V676),(V677)); |
base[4]= (*(LnkLI58))((V639),0,(long)length((V639)),(V640),(V641)); |
3231 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3232 |
return; |
return; |
3233 |
} |
} |
3238 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3239 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
3240 |
vs_reserve(VM40); |
vs_reserve(VM40); |
3241 |
{object V678; |
{object V642; |
3242 |
check_arg(3); |
check_arg(3); |
3243 |
V678=(base[0]); |
V642=(base[0]); |
3244 |
vs_top=sup; |
vs_top=sup; |
3245 |
goto TTL; |
goto TTL; |
3246 |
TTL:; |
TTL:; |
3247 |
base[3]= (V678); |
base[3]= (V642); |
3248 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3249 |
L41(base); |
L41(base); |
3250 |
return; |
return; |
3252 |
} |
} |
3253 |
/* local entry for function QUICK-SORT */ |
/* local entry for function QUICK-SORT */ |
3254 |
|
|
3255 |
static object LI42(V684,V685,V686,V687,V688) |
static object LI42(V648,V649,V650,V651,V652) |
3256 |
|
|
3257 |
register object V684;long V685;long V686;register object V687;register object V688; |
register object V648;long V649;long V650;register object V651;register object V652; |
3258 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
3259 |
goto TTL; |
goto TTL; |
3260 |
TTL:; |
TTL:; |
3261 |
if(!((V686)<=((long)(1)+(V685)))){ |
if(!((V650)<=((long)(1)+(V649)))){ |
3262 |
goto T1187;} |
goto T1225;} |
3263 |
{object V689 = (V684); |
{object V653 = (V648); |
3264 |
VMR41(V689)} |
VMR41(V653)} |
3265 |
goto T1187; |
goto T1225; |
3266 |
T1187:; |
T1225:; |
3267 |
{register long V690; |
{register long V654; |
3268 |
register long V691; |
register long V655; |
3269 |
object V692; |
object V656; |
3270 |
register object V693; |
register object V657; |
3271 |
V690= V685; |
V654= V649; |
3272 |
V691= V686; |
V655= V650; |
3273 |
V692= elt((V684),V685); |
V656= elt((V648),V649); |
3274 |
V693= ( |
V657= ( |
3275 |
(type_of((V688)) == t_sfun ?(*(((V688))->sfn.sfn_self)): |
(type_of((V652)) == t_sfun ?(*(((V652))->sfn.sfn_self)): |
3276 |
(fcall.fun=((V688)),fcall.argd=1,fcalln))((V692))); |
(fcall.fun=((V652)),fcall.argd=1,fcalln))((V656))); |
3277 |
goto T1195; |
goto T1233; |
3278 |
T1195:; |
T1233:; |
3279 |
goto T1199; |
goto T1237; |
3280 |
T1199:; |
T1237:; |
3281 |
V691= (long)(-1)+(V691); |
V655= (long)(-1)+(V655); |
3282 |
if((V690)<(V691)){ |
if((V654)<(V655)){ |
3283 |
goto T1203;} |
goto T1241;} |
3284 |
goto T1193; |
goto T1231; |
3285 |
goto T1203; |
goto T1241; |
3286 |
T1203:; |
T1241:; |
3287 |
base[3]= elt((V684),V691); |
base[3]= elt((V648),V655); |
3288 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3289 |
super_funcall_no_event((V688)); |
super_funcall_no_event((V652)); |
3290 |
vs_top=sup; |
vs_top=sup; |
3291 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3292 |
base[3]= (V693); |
base[3]= (V657); |
3293 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3294 |
super_funcall_no_event((V687)); |
super_funcall_no_event((V651)); |
3295 |
vs_top=sup; |
vs_top=sup; |
3296 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3297 |
goto T1200;} |
goto T1238;} |
3298 |
goto T1197; |
goto T1235; |
3299 |
goto T1200; |
goto T1238; |
3300 |
T1200:; |
T1238:; |
3301 |
goto T1199; |
goto T1237; |
3302 |
goto T1197; |
goto T1235; |
3303 |
T1197:; |
T1235:; |
3304 |
goto T1214; |
goto T1252; |
3305 |
T1214:; |
T1252:; |
3306 |
V690= (long)(1)+(V690); |
V654= (long)(1)+(V654); |
3307 |
if((V690)<(V691)){ |
if((V654)<(V655)){ |
3308 |
goto T1218;} |
goto T1256;} |
3309 |
goto T1193; |
goto T1231; |
3310 |
goto T1218; |
goto T1256; |
3311 |
T1218:; |
T1256:; |
3312 |
base[3]= elt((V684),V690); |
base[3]= elt((V648),V654); |
3313 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3314 |
super_funcall_no_event((V688)); |
super_funcall_no_event((V652)); |
3315 |
vs_top=sup; |
vs_top=sup; |
3316 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3317 |
base[3]= (V693); |
base[3]= (V657); |
3318 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3319 |
super_funcall_no_event((V687)); |
super_funcall_no_event((V651)); |
3320 |
vs_top=sup; |
vs_top=sup; |
3321 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3322 |
goto T1215;} |
goto T1253;} |
3323 |
goto T1212; |
goto T1250; |
3324 |
goto T1215; |
goto T1253; |
3325 |
T1215:; |
T1253:; |
3326 |
goto T1214; |
goto T1252; |
3327 |
goto T1212; |
goto T1250; |
3328 |
T1212:; |
T1250:; |
3329 |
{object V694; |
{object V658; |
3330 |
V694= elt((V684),V690); |
V658= elt((V648),V654); |
3331 |
V695= elt((V684),V691); |
V659= elt((V648),V655); |
3332 |
(void)(elt_set((V684),V690,/* INLINE-ARGS */V695)); |
(void)(elt_set((V648),V654,/* INLINE-ARGS */V659)); |
3333 |
(void)(elt_set((V684),V691,(V694)));} |
(void)(elt_set((V648),V655,(V658)));} |
3334 |
goto T1195; |
goto T1233; |
3335 |
goto T1193; |
goto T1231; |
3336 |
T1193:; |
T1231:; |
3337 |
V696= elt((V684),V690); |
V660= elt((V648),V654); |
3338 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V696)); |
(void)(elt_set((V648),V649,/* INLINE-ARGS */V660)); |
3339 |
(void)(elt_set((V684),V690,(V692))); |
(void)(elt_set((V648),V654,(V656))); |
3340 |
(void)((*(LnkLI58))((V684),V685,V690,(V687),(V688))); |
(void)((*(LnkLI58))((V648),V649,V654,(V651),(V652))); |
3341 |
V685= (long)(1)+(V690); |
V649= (long)(1)+(V654); |
3342 |
goto TTL;} |
goto TTL;} |
3343 |
base[0]=base[0]; |
base[0]=base[0]; |
3344 |
return Cnil; |
return Cnil; |
3349 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3350 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
3351 |
vs_reserve(VM42); |
vs_reserve(VM42); |
3352 |
{register object V697; |
{register object V661; |
3353 |
object V698; |
object V662; |
3354 |
object V699; |
object V663; |
3355 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3356 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
3357 |
V697=(base[0]); |
V661=(base[0]); |
3358 |
V698=(base[1]); |
V662=(base[1]); |
3359 |
vs_top=sup; |
vs_top=sup; |
3360 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3361 |
V699= symbol_function(VV[35]); |
V663= symbol_function(VV[35]); |
3362 |
}else{ |
}else{ |
3363 |
V699=(base[2]);} |
V663=(base[2]);} |
3364 |
if(!(type_of((V697))==t_cons||((V697))==Cnil)){ |
if(!(type_of((V661))==t_cons||((V661))==Cnil)){ |
3365 |
goto T1241;} |
goto T1279;} |
3366 |
base[4]= (V697); |
base[4]= (V661); |
3367 |
base[5]= (V698); |
base[5]= (V662); |
3368 |
base[6]= (V699); |
base[6]= (V663); |
3369 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3370 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
3371 |
return; |
return; |
3372 |
goto T1241; |
goto T1279; |
3373 |
T1241:; |
T1279:; |
3374 |
if(type_of((V697))==t_string){ |
if(type_of((V661))==t_string){ |
3375 |
goto T1246;} |
goto T1284;} |
3376 |
if(!((type_of((V697))==t_bitvector))){ |
if(!((type_of((V661))==t_bitvector))){ |
3377 |
goto T1247;} |
goto T1285;} |
3378 |
goto T1246; |
goto T1284; |
3379 |
T1246:; |
T1284:; |
3380 |
base[4]= (V697); |
base[4]= (V661); |
3381 |
base[5]= (V698); |
base[5]= (V662); |
3382 |
base[6]= VV[17]; |
base[6]= VV[17]; |
3383 |
base[7]= (V699); |
base[7]= (V663); |
3384 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3385 |
(void) (*Lnk59)(); |
(void) (*Lnk59)(); |
3386 |
return; |
return; |
3387 |
goto T1247; |
goto T1285; |
3388 |
T1247:; |
T1285:; |
3389 |
base[4]= (*(LnkLI60))((V697),VV[0]); |
base[4]= (*(LnkLI60))((V661),VV[0]); |
3390 |
base[5]= (V698); |
base[5]= (V662); |
3391 |
base[6]= (V699); |
base[6]= (V663); |
3392 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3393 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
3394 |
vs_top=sup; |
vs_top=sup; |
3395 |
V700= vs_base[0]; |
V664= vs_base[0]; |
3396 |
V701= (*(LnkLI49))((V697)); |
V665= (*(LnkLI49))((V661)); |
3397 |
base[4]= (*(LnkLI60))(V700,/* INLINE-ARGS */V701); |
base[4]= (*(LnkLI60))(V664,/* INLINE-ARGS */V665); |
3398 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3399 |
return; |
return; |
3400 |
} |
} |
3401 |
} |
} |
3402 |
/* local entry for function MERGE */ |
/* local entry for function MERGE */ |
3403 |
|
|
3404 |
static object LI44(object V705,object V704,object V703,object V702,object first,...) |
static object LI44(object V669,object V668,object V667,object V666,object first,...) |
3405 |
{ |
{ |
3406 |
va_list ap; |
va_list ap; |
3407 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
3408 |
{object V706; |
{object V670; |
3409 |
register object V707; |
register object V671; |
3410 |
object V708; |
object V672; |
3411 |
object V709; |
object V673; |
3412 |
register object V710; |
register object V674; |
3413 |
va_start(ap,first); |
va_start(ap,first); |
3414 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
3415 |
V706= V705; |
V670= V669; |
3416 |
V707= V704; |
V671= V668; |
3417 |
V708= V703; |
V672= V667; |
3418 |
V709= V702; |
V673= V666; |
3419 |
narg= narg - 4; |
narg= narg - 4; |
3420 |
{ |
{ |
3421 |
parse_key_new_new(narg,Vcs +4,(struct key *)(void *)&LI44key,first,ap); |
parse_key_new_new(narg,Vcs +4,(struct key *)(void *)&LI44key,first,ap); |
3422 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
3423 |
V710= symbol_function(VV[35]); |
V674= symbol_function(VV[35]); |
3424 |
}else{ |
}else{ |
3425 |
V710=(Vcs[4]);} |
V674=(Vcs[4]);} |
3426 |
{long V711; |
{long V675; |
3427 |
long V712; |
long V676; |
3428 |
V711= (long)length((V707)); |
V675= (long)length((V671)); |
3429 |
V712= (long)length((V708)); |
V676= (long)length((V672)); |
3430 |
if(!(equal((V710),Cnil))){ |
if(!(equal((V674),Cnil))){ |
3431 |
goto T1262;} |
goto T1300;} |
3432 |
V710= symbol_function(VV[35]); |
V674= symbol_function(VV[35]); |
3433 |
goto T1262; |
goto T1300; |
3434 |
T1262:; |
T1300:; |
3435 |
{register object V713; |
{register object V677; |
3436 |
register long V714; |
register long V678; |
3437 |
register long V715; |
register long V679; |
3438 |
register long V716; |
register long V680; |
3439 |
V717 = make_fixnum((long)(V711)+(V712)); |
V681 = make_fixnum((long)(V675)+(V676)); |
3440 |
V713= (VFUN_NARGS=2,(*(LnkLI48))((V706),V717)); |
V677= (VFUN_NARGS=2,(*(LnkLI48))((V670),V681)); |
3441 |
V714= 0; |
V678= 0; |
3442 |
V715= 0; |
V679= 0; |
3443 |
V716= 0; |
V680= 0; |
3444 |
goto T1271; |
goto T1309; |
3445 |
T1271:; |
T1309:; |
3446 |
if(!((V715)==(V711))){ |
if(!((V679)==(V675))){ |
3447 |
goto T1272;} |
goto T1310;} |
3448 |
if(!((V716)==(V712))){ |
if(!((V680)==(V676))){ |
3449 |
goto T1272;} |
goto T1310;} |
3450 |
{object V718 = (V713); |
{object V682 = (V677); |
3451 |
VMR43(V718)} |
VMR43(V682)} |
3452 |
goto T1272; |
goto T1310; |
3453 |
T1272:; |
T1310:; |
3454 |
if(!((V715)<(V711))){ |
if(!((V679)<(V675))){ |
3455 |
goto T1280;} |
goto T1318;} |
3456 |
if(!((V716)<(V712))){ |
if(!((V680)<(V676))){ |
3457 |
goto T1280;} |
goto T1318;} |
3458 |
base[1]= elt((V707),V715); |
base[1]= elt((V671),V679); |
3459 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3460 |
super_funcall_no_event((V710)); |
super_funcall_no_event((V674)); |
3461 |
vs_top=sup; |
vs_top=sup; |
3462 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3463 |
base[2]= elt((V708),V716); |
base[2]= elt((V672),V680); |
3464 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3465 |
super_funcall_no_event((V710)); |
super_funcall_no_event((V674)); |
3466 |
vs_top=sup; |
vs_top=sup; |
3467 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3468 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3469 |
super_funcall_no_event((V709)); |
super_funcall_no_event((V673)); |
3470 |
vs_top=sup; |
vs_top=sup; |
3471 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3472 |
goto T1285;} |
goto T1323;} |
3473 |
V719= elt((V707),V715); |
V683= elt((V671),V679); |
3474 |
(void)(elt_set((V713),V714,/* INLINE-ARGS */V719)); |
(void)(elt_set((V677),V678,/* INLINE-ARGS */V683)); |
3475 |
V715= (long)(1)+(V715); |
V679= (long)(1)+(V679); |
3476 |
goto T1278; |
goto T1316; |
3477 |
goto T1285; |
goto T1323; |
3478 |
T1285:; |
T1323:; |
3479 |
base[1]= elt((V708),V716); |
base[1]= elt((V672),V680); |
3480 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3481 |
super_funcall_no_event((V710)); |
super_funcall_no_event((V674)); |
3482 |
vs_top=sup; |
vs_top=sup; |
3483 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3484 |
base[2]= elt((V707),V715); |
base[2]= elt((V671),V679); |
3485 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3486 |
super_funcall_no_event((V710)); |
super_funcall_no_event((V674)); |
3487 |
vs_top=sup; |
vs_top=sup; |
3488 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3489 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3490 |
super_funcall_no_event((V709)); |
super_funcall_no_event((V673)); |
3491 |
vs_top=sup; |
vs_top=sup; |
3492 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3493 |
goto T1294;} |
goto T1332;} |
3494 |
V720= elt((V708),V716); |
V684= elt((V672),V680); |
3495 |
(void)(elt_set((V713),V714,/* INLINE-ARGS */V720)); |
(void)(elt_set((V677),V678,/* INLINE-ARGS */V684)); |
3496 |
V716= (long)(1)+(V716); |
V680= (long)(1)+(V680); |
3497 |
goto T1278; |
goto T1316; |
3498 |
goto T1294; |
goto T1332; |
3499 |
T1294:; |
T1332:; |
3500 |
V721= elt((V707),V715); |
V685= elt((V671),V679); |
3501 |
(void)(elt_set((V713),V714,/* INLINE-ARGS */V721)); |
(void)(elt_set((V677),V678,/* INLINE-ARGS */V685)); |
3502 |
V715= (long)(1)+(V715); |
V679= (long)(1)+(V679); |
3503 |
goto T1278; |
goto T1316; |
3504 |
goto T1280; |
goto T1318; |
3505 |
T1280:; |
T1318:; |
3506 |
if(!((V715)<(V711))){ |
if(!((V679)<(V675))){ |
3507 |
goto T1305;} |
goto T1343;} |
3508 |
V722= elt((V707),V715); |
V686= elt((V671),V679); |
3509 |
(void)(elt_set((V713),V714,/* INLINE-ARGS */V722)); |
(void)(elt_set((V677),V678,/* INLINE-ARGS */V686)); |
3510 |
V715= (long)(1)+(V715); |
V679= (long)(1)+(V679); |
3511 |
goto T1278; |
goto T1316; |
3512 |
goto T1305; |
goto T1343; |
3513 |
T1305:; |
T1343:; |
3514 |
V723= elt((V708),V716); |
V687= elt((V672),V680); |
3515 |
(void)(elt_set((V713),V714,/* INLINE-ARGS */V723)); |
(void)(elt_set((V677),V678,/* INLINE-ARGS */V687)); |
3516 |
V716= (long)(1)+(V716); |
V680= (long)(1)+(V680); |
3517 |
goto T1278; |
goto T1316; |
3518 |
T1278:; |
T1316:; |
3519 |
V714= (long)(1)+(V714); |
V678= (long)(1)+(V678); |
3520 |
goto T1271;}} |
goto T1309;}} |
3521 |
va_end(ap); |
va_end(ap); |
3522 |
base[0]=base[0]; |
base[0]=base[0]; |
3523 |
return Cnil;} |
return Cnil;} |
3524 |
}} |
}} |
3525 |
/* function definition for MAP-INTO */ |
/* local entry for function MAP-INTO */ |
3526 |
|
|
3527 |
static void L45() |
static object LI45(object V689,object V688,object first,...) |
3528 |
{register object *base=vs_base; |
{ |
3529 |
register object *sup=base+VM44; VC44 |
va_list ap; |
3530 |
vs_reserve(VM44); |
int narg = VFUN_NARGS; VMB44 VMS44 VMV44 |
3531 |
{register object V724; |
{register object V690; |
3532 |
register object V725; |
register object V691; |
3533 |
register object V726; |
register object V692; |
3534 |
if(vs_top-vs_base<2) too_few_arguments(); |
va_start(ap,first); |
3535 |
V724=(base[0]); |
if(narg <2) too_few_arguments(); |
3536 |
V725=(base[1]); |
V690= V689; |
3537 |
vs_base=vs_base+2; |
V691= V688; |
3538 |
vs_top[0]=Cnil; |
narg= narg - 2; |
3539 |
{object *p=vs_top; |
V693 = list_vector_new(narg,first,ap); |
3540 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
V692= V693; |
3541 |
V726=(base[2]); |
{object V694; |
3542 |
vs_top=sup; |
base[2]= (V690); |
3543 |
{object V727; |
vs_top=(vs_base=base+2)+1; |
|
base[5]= (V724); |
|
|
vs_top=(vs_base=base+5)+1; |
|
3544 |
Ltype_of(); |
Ltype_of(); |
3545 |
vs_top=sup; |
vs_top=sup; |
3546 |
base[4]= vs_base[0]; |
base[1]= vs_base[0]; |
3547 |
base[5]= VV[18]; |
base[2]= VV[18]; |
3548 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+1)+2; |
3549 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
3550 |
vs_top=sup; |
vs_top=sup; |
3551 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3552 |
goto T1317;} |
goto T1355;} |
3553 |
base[4]= (V724); |
base[1]= (V690); |
3554 |
base[5]= small_fixnum(0); |
base[2]= small_fixnum(0); |
3555 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+1)+2; |
3556 |
Larray_dimension(); |
Larray_dimension(); |
3557 |
vs_top=sup; |
vs_top=sup; |
3558 |
base[3]= vs_base[0]; |
base[0]= vs_base[0]; |
3559 |
goto T1315; |
goto T1353; |
3560 |
goto T1317; |
goto T1355; |
3561 |
T1317:; |
T1355:; |
3562 |
base[3]= make_fixnum((long)length((V724))); |
base[0]= make_fixnum((long)length((V690))); |
3563 |
goto T1315; |
goto T1353; |
3564 |
T1315:; |
T1353:; |
3565 |
{object V728; |
{object V695; |
3566 |
{object V729; |
{object V696; |
3567 |
object V730= (V726); |
object V697= (V692); |
3568 |
if(endp(V730)){ |
if(endp(V697)){ |
3569 |
V728= Cnil; |
V695= Cnil; |
3570 |
goto T1324;} |
goto T1362;} |
3571 |
base[4]=V729=MMcons(Cnil,Cnil); |
base[1]=V696=MMcons(Cnil,Cnil); |
3572 |
goto T1325; |
goto T1363; |
3573 |
T1325:; |
T1363:; |
3574 |
base[5]= (V730->c.c_car); |
base[2]= (V697->c.c_car); |
3575 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+2)+1; |
3576 |
Llength(); |
Llength(); |
3577 |
vs_top=sup; |
vs_top=sup; |
3578 |
(V729->c.c_car)= vs_base[0]; |
(V696->c.c_car)= vs_base[0]; |
3579 |
V730=MMcdr(V730); |
V697=MMcdr(V697); |
3580 |
if(endp(V730)){ |
if(endp(V697)){ |
3581 |
V728= base[4]; |
V695= base[1]; |
3582 |
goto T1324;} |
goto T1362;} |
3583 |
V729=MMcdr(V729)=MMcons(Cnil,Cnil); |
V696=MMcdr(V696)=MMcons(Cnil,Cnil); |
3584 |
goto T1325;} |
goto T1363;} |
3585 |
goto T1324; |
goto T1362; |
3586 |
T1324:; |
T1362:; |
3587 |
vs_top=base+4; |
vs_top=base+1; |
3588 |
while(!endp(V728)) |
while(!endp(V695)) |
3589 |
{vs_push(car(V728));V728=cdr(V728);} |
{vs_push(car(V695));V695=cdr(V695);} |
3590 |
vs_base=base+3;} |
vs_base=base+0;} |
3591 |
Lmin(); |
Lmin(); |
3592 |
vs_top=sup; |
vs_top=sup; |
3593 |
V727= vs_base[0]; |
V694= vs_base[0]; |
3594 |
base[4]= (V724); |
base[1]= (V690); |
3595 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+1)+1; |
3596 |
Ltype_of(); |
Ltype_of(); |
3597 |
vs_top=sup; |
vs_top=sup; |
3598 |
base[3]= vs_base[0]; |
base[0]= vs_base[0]; |
3599 |
base[4]= VV[18]; |
base[1]= VV[18]; |
3600 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+0)+2; |
3601 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
3602 |
vs_top=sup; |
vs_top=sup; |
3603 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3604 |
goto T1328;} |
goto T1366;} |
3605 |
base[3]= (V724); |
base[0]= (V690); |
3606 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+0)+1; |
3607 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
3608 |
vs_top=sup; |
vs_top=sup; |
3609 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3610 |
goto T1328;} |
goto T1366;} |
3611 |
base[3]= (V724); |
base[0]= (V690); |
3612 |
base[4]= (V727); |
base[1]= (V694); |
3613 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+0)+2; |
3614 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
3615 |
vs_top=sup; |
vs_top=sup; |
3616 |
goto T1328; |
goto T1366; |
3617 |
T1328:; |
T1366:; |
3618 |
{register object V731; |
{register object V698; |
3619 |
register object V732; |
register object V699; |
3620 |
V731= (V727); |
V698= (V694); |
3621 |
V732= small_fixnum(0); |
V699= small_fixnum(0); |
3622 |
goto T1342; |
goto T1380; |
3623 |
T1342:; |
T1380:; |
3624 |
if(!(number_compare((V732),(V731))>=0)){ |
if(!(number_compare((V699),(V698))>=0)){ |
3625 |
goto T1343;} |
goto T1381;} |
3626 |
base[3]= (V724); |
{object V700 = (V690); |
3627 |
vs_top=(vs_base=base+3)+1; |
VMR44(V700)} |
3628 |
return; |
goto T1381; |
3629 |
goto T1343; |
T1381:; |
3630 |
T1343:; |
base[0]= (V691); |
3631 |
base[3]= (V725); |
{object V702; |
3632 |
{object V734; |
{object V703; |
3633 |
{object V735; |
object V704= (V692); |
3634 |
object V736= (V726); |
if(endp(V704)){ |
3635 |
if(endp(V736)){ |
V702= Cnil; |
3636 |
V734= Cnil; |
goto T1388;} |
3637 |
goto T1350;} |
base[1]=V703=MMcons(Cnil,Cnil); |
3638 |
base[4]=V735=MMcons(Cnil,Cnil); |
goto T1389; |
3639 |
goto T1351; |
T1389:; |
3640 |
T1351:; |
{register object V705; |
3641 |
{register object V737; |
V705= (V704->c.c_car); |
3642 |
V737= (V736->c.c_car); |
(V703->c.c_car)= elt((V705),fixint((V699)));} |
3643 |
(V735->c.c_car)= elt((V737),fixint((V732)));} |
V704=MMcdr(V704); |
3644 |
V736=MMcdr(V736); |
if(endp(V704)){ |
3645 |
if(endp(V736)){ |
V702= base[1]; |
3646 |
V734= base[4]; |
goto T1388;} |
3647 |
goto T1350;} |
V703=MMcdr(V703)=MMcons(Cnil,Cnil); |
3648 |
V735=MMcdr(V735)=MMcons(Cnil,Cnil); |
goto T1389;} |
3649 |
goto T1351;} |
goto T1388; |
3650 |
goto T1350; |
T1388:; |
3651 |
T1350:; |
vs_top=base+1; |
3652 |
vs_top=base+4; |
while(!endp(V702)) |
3653 |
while(!endp(V734)) |
{vs_push(car(V702));V702=cdr(V702);} |
3654 |
{vs_push(car(V734));V734=cdr(V734);} |
vs_base=base+1;} |
3655 |
vs_base=base+4;} |
super_funcall_no_event(base[0]); |
3656 |
super_funcall_no_event(base[3]); |
vs_top=sup; |
3657 |
vs_top=sup; |
V701= vs_base[0]; |
3658 |
V733= vs_base[0]; |
(void)(elt_set((V690),fixint((V699)),V701)); |
3659 |
(void)(elt_set((V724),fixint((V732)),V733)); |
V699= one_plus((V699)); |
3660 |
V732= one_plus((V732)); |
goto T1380;}} |
3661 |
goto T1342;}} |
va_end(ap); |
3662 |
|
base[0]=base[0]; |
3663 |
|
return Cnil;} |
3664 |
} |
} |
|
} |
|
3665 |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
3666 |
|
|
3667 |
static void L46() |
static void L46() |
3670 |
vs_reserve(VM45); |
vs_reserve(VM45); |
3671 |
check_arg(2); |
check_arg(2); |
3672 |
vs_top=sup; |
vs_top=sup; |
3673 |
{object V738=base[0]->c.c_cdr; |
{object V706=base[0]->c.c_cdr; |
3674 |
if(endp(V738))invalid_macro_call(); |
if(endp(V706))invalid_macro_call(); |
3675 |
{object V739= (V738->c.c_car); |
{object V707= (V706->c.c_car); |
3676 |
if(endp(V739))invalid_macro_call(); |
if(endp(V707))invalid_macro_call(); |
3677 |
base[2]= (V739->c.c_car); |
base[2]= (V707->c.c_car); |
3678 |
V739=V739->c.c_cdr; |
V707=V707->c.c_cdr; |
3679 |
if(endp(V739))invalid_macro_call(); |
if(endp(V707))invalid_macro_call(); |
3680 |
base[3]= (V739->c.c_car); |
base[3]= (V707->c.c_car); |
3681 |
V739=V739->c.c_cdr; |
V707=V707->c.c_cdr; |
3682 |
if(!endp(V739))invalid_macro_call();} |
if(!endp(V707))invalid_macro_call();} |
3683 |
V738=V738->c.c_cdr; |
V706=V706->c.c_cdr; |
3684 |
base[4]= V738;} |
base[4]= V706;} |
3685 |
{object V740; |
{object V708; |
3686 |
object V741; |
object V709; |
3687 |
vs_base=vs_top; |
vs_base=vs_top; |
3688 |
Lgensym(); |
Lgensym(); |
3689 |
vs_top=sup; |
vs_top=sup; |
3690 |
V740= vs_base[0]; |
V708= vs_base[0]; |
3691 |
base[5]= VV[19]; |
base[5]= VV[19]; |
3692 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3693 |
Lgensym(); |
Lgensym(); |
3694 |
vs_top=sup; |
vs_top=sup; |
3695 |
V741= vs_base[0]; |
V709= vs_base[0]; |
3696 |
V742= list(2,(V740),base[3]); |
V710= list(2,(V708),base[3]); |
3697 |
V743= list(2,/* INLINE-ARGS */V742,list(2,(V741),small_fixnum(0))); |
V711= list(2,/* INLINE-ARGS */V710,list(2,(V709),small_fixnum(0))); |
3698 |
V744= list(2,VV[25],(V740)); |
V712= list(2,VV[25],(V708)); |
3699 |
V745= list(4,VV[0],VV[24],/* INLINE-ARGS */V744,list(2,VV[25],(V741))); |
V713= list(4,VV[0],VV[24],/* INLINE-ARGS */V712,list(2,VV[25],(V709))); |
3700 |
V746= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V745,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V741)),VV[29]),VV[30]),VV[31]))); |
V714= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V713,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V709)),VV[29]),VV[30]),VV[31]))); |
3701 |
base[5]= list(3,VV[20],/* INLINE-ARGS */V743,listA(3,VV[21],make_cons(/* INLINE-ARGS */V746,Cnil),base[4])); |
base[5]= list(3,VV[20],/* INLINE-ARGS */V711,listA(3,VV[21],make_cons(/* INLINE-ARGS */V714,Cnil),base[4])); |
3702 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3703 |
return;} |
return;} |
3704 |
} |
} |
3709 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3710 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3711 |
vs_reserve(VM46); |
vs_reserve(VM46); |
3712 |
{object V747; |
{object V715; |
3713 |
check_arg(1); |
check_arg(1); |
3714 |
V747=(base[0]); |
V715=(base[0]); |
3715 |
vs_top=sup; |
vs_top=sup; |
3716 |
goto TTL; |
goto TTL; |
3717 |
TTL:; |
TTL:; |
3718 |
{long V748; |
{long V716; |
3719 |
register object V749; |
register object V717; |
3720 |
register object V750; |
register object V718; |
3721 |
object V751; |
object V719; |
3722 |
register object V752; |
register object V720; |
3723 |
register object V753; |
register object V721; |
3724 |
register object V754; |
register object V722; |
3725 |
V748= 0; |
V716= 0; |
3726 |
V749= Cnil; |
V717= Cnil; |
3727 |
V750= Cnil; |
V718= Cnil; |
3728 |
V751= Cnil; |
V719= Cnil; |
3729 |
V752= Cnil; |
V720= Cnil; |
3730 |
V753= Cnil; |
V721= Cnil; |
3731 |
V754= Cnil; |
V722= Cnil; |
3732 |
V748= (long)length((V747)); |
V716= (long)length((V715)); |
3733 |
if(!((V748)<(2))){ |
if(!((V716)<(2))){ |
3734 |
goto T1368;} |
goto T1406;} |
3735 |
base[1]= (V747); |
base[1]= (V715); |
3736 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3737 |
return; |
return; |
3738 |
goto T1368; |
goto T1406; |
3739 |
T1368:; |
T1406:; |
3740 |
if(!((V748)==(2))){ |
if(!((V716)==(2))){ |
3741 |
goto T1366;} |
goto T1404;} |
3742 |
V753= ( |
V721= ( |
3743 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3744 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V747)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V715)))); |
3745 |
V754= ( |
V722= ( |
3746 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3747 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V747)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V715)))); |
3748 |
base[1]= (V753); |
base[1]= (V721); |
3749 |
base[2]= (V754); |
base[2]= (V722); |
3750 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3751 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3752 |
vs_top=sup; |
vs_top=sup; |
3753 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3754 |
goto T1377;} |
goto T1415;} |
3755 |
base[1]= (V747); |
base[1]= (V715); |
3756 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3757 |
return; |
return; |
3758 |
goto T1377; |
goto T1415; |
3759 |
T1377:; |
T1415:; |
3760 |
base[1]= (V754); |
base[1]= (V722); |
3761 |
base[2]= (V753); |
base[2]= (V721); |
3762 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3763 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3764 |
vs_top=sup; |
vs_top=sup; |
3765 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3766 |
goto T1382;} |
goto T1420;} |
3767 |
base[1]= nreverse((V747)); |
base[1]= nreverse((V715)); |
3768 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3769 |
return; |
return; |
3770 |
goto T1382; |
goto T1420; |
3771 |
T1382:; |
T1420:; |
3772 |
base[1]= (V747); |
base[1]= (V715); |
3773 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3774 |
return; |
return; |
3775 |
goto T1366; |
goto T1404; |
3776 |
T1366:; |
T1404:; |
3777 |
V748= (long)(V748>=0&&(2)>0?(V748)/(2):ifloor(V748,2)); |
V716= (long)(V716>=0&&(2)>0?(V716)/(2):ifloor(V716,2)); |
3778 |
{long V755; |
{long V723; |
3779 |
register object V756; |
register object V724; |
3780 |
V755= 1; |
V723= 1; |
3781 |
V756= (V747); |
V724= (V715); |
3782 |
goto T1391; |
goto T1429; |
3783 |
T1391:; |
T1429:; |
3784 |
if(!((V755)>=(V748))){ |
if(!((V723)>=(V716))){ |
3785 |
goto T1392;} |
goto T1430;} |
3786 |
V749= (V747); |
V717= (V715); |
3787 |
V750= cdr((V756)); |
V718= cdr((V724)); |
3788 |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
if(type_of((V724))!=t_cons)FEwrong_type_argument(Scons,(V724)); |
3789 |
((V756))->c.c_cdr = Cnil; |
((V724))->c.c_cdr = Cnil; |
3790 |
goto T1388; |
goto T1426; |
3791 |
goto T1392; |
goto T1430; |
3792 |
T1392:; |
T1430:; |
3793 |
V755= (long)(1)+(V755); |
V723= (long)(1)+(V723); |
3794 |
V756= cdr((V756)); |
V724= cdr((V724)); |
3795 |
goto T1391;} |
goto T1429;} |
3796 |
goto T1388; |
goto T1426; |
3797 |
T1388:; |
T1426:; |
3798 |
base[1]= (V749); |
base[1]= (V717); |
3799 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3800 |
L41(base0); |
L41(base0); |
3801 |
vs_top=sup; |
vs_top=sup; |
3802 |
V749= vs_base[0]; |
V717= vs_base[0]; |
3803 |
base[1]= (V750); |
base[1]= (V718); |
3804 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3805 |
L41(base0); |
L41(base0); |
3806 |
vs_top=sup; |
vs_top=sup; |
3807 |
V750= vs_base[0]; |
V718= vs_base[0]; |
3808 |
if(!(endp_prop((V749)))){ |
if(!(endp_prop((V717)))){ |
3809 |
goto T1412;} |
goto T1450;} |
3810 |
base[1]= (V750); |
base[1]= (V718); |
3811 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3812 |
return; |
return; |
3813 |
goto T1412; |
goto T1450; |
3814 |
T1412:; |
T1450:; |
3815 |
if(!(endp_prop((V750)))){ |
if(!(endp_prop((V718)))){ |
3816 |
goto T1410;} |
goto T1448;} |
3817 |
base[1]= (V749); |
base[1]= (V717); |
3818 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3819 |
return; |
return; |
3820 |
goto T1410; |
goto T1448; |
3821 |
T1410:; |
T1448:; |
3822 |
V751= make_cons(Cnil,Cnil); |
V719= make_cons(Cnil,Cnil); |
3823 |
V752= (V751); |
V720= (V719); |
3824 |
V753= ( |
V721= ( |
3825 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3826 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V717)))); |
3827 |
V754= ( |
V722= ( |
3828 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3829 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); |
3830 |
goto T1361; |
goto T1399; |
3831 |
T1361:; |
T1399:; |
3832 |
base[1]= (V753); |
base[1]= (V721); |
3833 |
base[2]= (V754); |
base[2]= (V722); |
3834 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3835 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3836 |
vs_top=sup; |
vs_top=sup; |
3837 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3838 |
goto T1424;} |
goto T1462;} |
3839 |
goto T1362; |
goto T1400; |
3840 |
goto T1424; |
goto T1462; |
3841 |
T1424:; |
T1462:; |
3842 |
base[1]= (V754); |
base[1]= (V722); |
3843 |
base[2]= (V753); |
base[2]= (V721); |
3844 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3845 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3846 |
vs_top=sup; |
vs_top=sup; |
3847 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3848 |
goto T1429;} |
goto T1467;} |
3849 |
goto T1363; |
goto T1401; |
3850 |
goto T1429; |
goto T1467; |
3851 |
T1429:; |
T1467:; |
3852 |
goto T1362; |
goto T1400; |
3853 |
goto T1362; |
goto T1400; |
3854 |
T1362:; |
T1400:; |
3855 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720)); |
3856 |
((V752))->c.c_cdr = (V749); |
((V720))->c.c_cdr = (V717); |
3857 |
V752= cdr((V752)); |
V720= cdr((V720)); |
3858 |
V749= cdr((V749)); |
V717= cdr((V717)); |
3859 |
if(!(endp_prop((V749)))){ |
if(!(endp_prop((V717)))){ |
3860 |
goto T1438;} |
goto T1476;} |
3861 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720)); |
3862 |
((V752))->c.c_cdr = (V750); |
((V720))->c.c_cdr = (V718); |
3863 |
base[1]= cdr((V751)); |
base[1]= cdr((V719)); |
3864 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3865 |
return; |
return; |
3866 |
goto T1438; |
goto T1476; |
3867 |
T1438:; |
T1476:; |
3868 |
V753= ( |
V721= ( |
3869 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3870 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V717)))); |
3871 |
goto T1361; |
goto T1399; |
3872 |
goto T1363; |
goto T1401; |
3873 |
T1363:; |
T1401:; |
3874 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720)); |
3875 |
((V752))->c.c_cdr = (V750); |
((V720))->c.c_cdr = (V718); |
3876 |
V752= cdr((V752)); |
V720= cdr((V720)); |
3877 |
V750= cdr((V750)); |
V718= cdr((V718)); |
3878 |
if(!(endp_prop((V750)))){ |
if(!(endp_prop((V718)))){ |
3879 |
goto T1449;} |
goto T1487;} |
3880 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V720))!=t_cons)FEwrong_type_argument(Scons,(V720)); |
3881 |
((V752))->c.c_cdr = (V749); |
((V720))->c.c_cdr = (V717); |
3882 |
base[1]= cdr((V751)); |
base[1]= cdr((V719)); |
3883 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3884 |
return; |
return; |
3885 |
goto T1449; |
goto T1487; |
3886 |
T1449:; |
T1487:; |
3887 |
V754= ( |
V722= ( |
3888 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3889 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); |
3890 |
goto T1361;} |
goto T1399;} |
3891 |
} |
} |
3892 |
} |
} |
3893 |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ARRAY-HAS-FILL-POINTER-P */ |
3912 |
static object LnkTLI42(){return call_proc0(VV[42],(void **)(void *)&LnkLI42);} /* TEST-ERROR */ |
static object LnkTLI42(){return call_proc0(VV[42],(void **)(void *)&LnkLI42);} /* TEST-ERROR */ |
3913 |
static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,258,first,ap);va_end(ap);return V1;} /* THE-END */ |
static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,258,first,ap);va_end(ap);return V1;} /* THE-END */ |
3914 |
static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,257,first,ap);va_end(ap);return V1;} /* THE-START */ |
static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,257,first,ap);va_end(ap);return V1;} /* THE-START */ |
3915 |
static object LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)(void *)&LnkLI33,first,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */ |
static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* BAD-SEQ-LIMIT */ |
3916 |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* SPECIFIC-ERROR */ |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* SPECIFIC-ERROR */ |
3917 |
|
|
3918 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |