163 |
goto T40; |
goto T40; |
164 |
T40:; |
T40:; |
165 |
base[0]= VV[8]; |
base[0]= VV[8]; |
166 |
|
base[1]= VV[9]; |
167 |
if(((V30))==Cnil){ |
if(((V30))==Cnil){ |
168 |
goto T45;} |
goto T46;} |
169 |
base[1]= list(2,(V29),(V30)); |
base[2]= list(2,(V29),(V30)); |
170 |
goto T43; |
goto T44; |
171 |
goto T45; |
goto T46; |
172 |
T45:; |
T46:; |
173 |
base[1]= (V29); |
base[2]= (V29); |
174 |
goto T43; |
goto T44; |
175 |
T43:; |
T44:; |
176 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+3; |
177 |
Lerror(); |
(void) (*Lnk32)(); |
178 |
vs_top=sup; |
vs_top=sup; |
179 |
{object V31 = vs_base[0]; |
{object V31 = vs_base[0]; |
180 |
VMR5(V31)} |
VMR5(V31)} |
191 |
goto TTL; |
goto TTL; |
192 |
TTL:; |
TTL:; |
193 |
if(!(type_of((V34))==t_fixnum)){ |
if(!(type_of((V34))==t_fixnum)){ |
194 |
goto T48;} |
goto T49;} |
195 |
if(!((fix((V34)))<=((long)length((V35))))){ |
if(!((fix((V34)))<=((long)length((V35))))){ |
196 |
goto T51;} |
goto T52;} |
197 |
goto T50; |
goto T51; |
198 |
|
goto T52; |
199 |
|
T52:; |
200 |
|
(void)((VFUN_NARGS=1,(*(LnkLI33))((V34)))); |
201 |
goto T51; |
goto T51; |
202 |
T51:; |
T51:; |
|
(void)((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
|
|
goto T50; |
|
|
T50:; |
|
203 |
{long V36 = fix((V34)); |
{long V36 = fix((V34)); |
204 |
VMR6((object)V36)} |
VMR6((object)V36)} |
205 |
goto T48; |
goto T49; |
206 |
T48:; |
T49:; |
207 |
if(((V34))!=Cnil){ |
if(((V34))!=Cnil){ |
208 |
goto T54;} |
goto T55;} |
209 |
{long V37 = (long)length((V35)); |
{long V37 = (long)length((V35)); |
210 |
VMR6((object)V37)} |
VMR6((object)V37)} |
211 |
goto T54; |
goto T55; |
212 |
T54:; |
T55:; |
213 |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI31))((V34)))); |
{long V38 = fix((VFUN_NARGS=1,(*(LnkLI33))((V34)))); |
214 |
VMR6((object)V38)} |
VMR6((object)V38)} |
215 |
} |
} |
216 |
/* local entry for function THE-START */ |
/* local entry for function THE-START */ |
222 |
goto TTL; |
goto TTL; |
223 |
TTL:; |
TTL:; |
224 |
if(!(type_of((V40))==t_fixnum)){ |
if(!(type_of((V40))==t_fixnum)){ |
225 |
goto T57;} |
goto T58;} |
226 |
if(!((fix((V40)))>=(0))){ |
if(!((fix((V40)))>=(0))){ |
227 |
goto T60;} |
goto T61;} |
228 |
goto T59; |
goto T60; |
229 |
|
goto T61; |
230 |
|
T61:; |
231 |
|
(void)((VFUN_NARGS=1,(*(LnkLI33))((V40)))); |
232 |
goto T60; |
goto T60; |
233 |
T60:; |
T60:; |
|
(void)((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
|
|
goto T59; |
|
|
T59:; |
|
234 |
{long V41 = fix((V40)); |
{long V41 = fix((V40)); |
235 |
VMR7((object)V41)} |
VMR7((object)V41)} |
236 |
goto T57; |
goto T58; |
237 |
T57:; |
T58:; |
238 |
if(((V40))!=Cnil){ |
if(((V40))!=Cnil){ |
239 |
goto T63;} |
goto T64;} |
240 |
{long V42 = 0; |
{long V42 = 0; |
241 |
VMR7((object)V42)} |
VMR7((object)V42)} |
242 |
goto T63; |
goto T64; |
243 |
T63:; |
T64:; |
244 |
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI31))((V40)))); |
{long V43 = fix((VFUN_NARGS=1,(*(LnkLI33))((V40)))); |
245 |
VMR7((object)V43)} |
VMR7((object)V43)} |
246 |
} |
} |
247 |
/* function definition for REDUCE */ |
/* function definition for REDUCE */ |
259 |
object V50; |
object V50; |
260 |
register object V51; |
register object V51; |
261 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
262 |
parse_key(vs_base+2,FALSE,FALSE,5,VV[10],VV[13],VV[14],VV[32],VV[16]); |
parse_key(vs_base+2,FALSE,FALSE,5,VV[11],VV[14],VV[15],VV[34],VV[17]); |
263 |
V44=(base[0]); |
V44=(base[0]); |
264 |
V45=(base[1]); |
V45=(base[1]); |
265 |
vs_top=sup; |
vs_top=sup; |
269 |
V49=(base[5]); |
V49=(base[5]); |
270 |
V50=(base[10]); |
V50=(base[10]); |
271 |
if(base[11]==Cnil){ |
if(base[11]==Cnil){ |
272 |
V51= symbol_function(VV[33]); |
V51= symbol_function(VV[35]); |
273 |
}else{ |
}else{ |
274 |
V51=(base[6]);} |
V51=(base[6]);} |
275 |
{register long V52; |
{register long V52; |
276 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
277 |
goto T68;} |
goto T69;} |
278 |
V52= (long)(*(LnkLI34))((V47)); |
V52= (long)(*(LnkLI36))((V47)); |
279 |
goto T66; |
goto T67; |
280 |
goto T68; |
goto T69; |
281 |
T68:; |
T69:; |
282 |
V52= 0; |
V52= 0; |
283 |
goto T66; |
goto T67; |
284 |
T66:; |
T67:; |
285 |
{register long V53; |
{register long V53; |
286 |
V53= (long)(*(LnkLI35))((V48),(V45)); |
V53= (long)(*(LnkLI37))((V48),(V45)); |
287 |
if(!((V52)<=(V53))){ |
if(!((V52)<=(V53))){ |
288 |
goto T72;} |
goto T73;} |
289 |
goto T71; |
goto T72; |
290 |
goto T72; |
goto T73; |
291 |
T72:; |
T73:; |
292 |
V54 = make_fixnum(V52); |
V54 = make_fixnum(V52); |
293 |
V55 = make_fixnum(V53); |
V55 = make_fixnum(V53); |
294 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V54,V55))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V54,V55))); |
295 |
goto T71; |
goto T72; |
296 |
T71:; |
T72:; |
297 |
if(((V46))!=Cnil){ |
if(((V46))!=Cnil){ |
298 |
goto T75;} |
goto T76;} |
299 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
300 |
goto T77;} |
goto T78;} |
301 |
if(!((V52)>=(V53))){ |
if(!((V52)>=(V53))){ |
302 |
goto T80;} |
goto T81;} |
303 |
vs_base=vs_top; |
vs_base=vs_top; |
304 |
super_funcall_no_event((V44)); |
super_funcall_no_event((V44)); |
305 |
return; |
return; |
306 |
goto T80; |
goto T81; |
307 |
T80:; |
T81:; |
308 |
V56= elt((V45),V52); |
V56= elt((V45),V52); |
309 |
V49= ( |
V49= ( |
310 |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
311 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V56)); |
312 |
V52= (long)(1)+(V52); |
V52= (long)(1)+(V52); |
313 |
goto T77; |
goto T78; |
314 |
T77:; |
T78:; |
315 |
{register object V57; |
{register object V57; |
316 |
V57= (V49); |
V57= (V49); |
317 |
goto T87; |
goto T88; |
318 |
T87:; |
T88:; |
319 |
if(!((V52)>=(V53))){ |
if(!((V52)>=(V53))){ |
320 |
goto T88;} |
goto T89;} |
321 |
base[12]= (V57); |
base[12]= (V57); |
322 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
323 |
return; |
return; |
324 |
goto T88; |
goto T89; |
325 |
T88:; |
T89:; |
326 |
{object V59; |
{object V59; |
327 |
V59= elt((V45),V52); |
V59= elt((V45),V52); |
328 |
V52= (long)(1)+(V52); |
V52= (long)(1)+(V52); |
334 |
V57= ( |
V57= ( |
335 |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
336 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); |
(fcall.fun=((V44)),fcall.argd=2,fcalln))((V57),V58)); |
337 |
goto T87;} |
goto T88;} |
338 |
goto T75; |
goto T76; |
339 |
T75:; |
T76:; |
340 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
341 |
goto T100;} |
goto T101;} |
342 |
if(!((V52)>=(V53))){ |
if(!((V52)>=(V53))){ |
343 |
goto T103;} |
goto T104;} |
344 |
vs_base=vs_top; |
vs_base=vs_top; |
345 |
super_funcall_no_event((V44)); |
super_funcall_no_event((V44)); |
346 |
return; |
return; |
347 |
goto T103; |
goto T104; |
348 |
T103:; |
T104:; |
349 |
V53= (long)(V53)+(-1); |
V53= (long)(V53)+(-1); |
350 |
V60= elt((V45),V53); |
V60= elt((V45),V53); |
351 |
V49= ( |
V49= ( |
352 |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
(type_of((V51)) == t_sfun ?(*(((V51))->sfn.sfn_self)): |
353 |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); |
(fcall.fun=((V51)),fcall.argd=1,fcalln))(/* INLINE-ARGS */V60)); |
354 |
goto T100; |
goto T101; |
355 |
T100:; |
T101:; |
356 |
{register object V61; |
{register object V61; |
357 |
V61= (V49); |
V61= (V49); |
358 |
goto T110; |
goto T111; |
359 |
T110:; |
T111:; |
360 |
if(!((V52)>=(V53))){ |
if(!((V52)>=(V53))){ |
361 |
goto T111;} |
goto T112;} |
362 |
base[12]= (V61); |
base[12]= (V61); |
363 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
364 |
return; |
return; |
365 |
goto T111; |
goto T112; |
366 |
T111:; |
T112:; |
367 |
V53= (long)(-1)+(V53); |
V53= (long)(-1)+(V53); |
368 |
base[12]= elt((V45),V53); |
base[12]= elt((V45),V53); |
369 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
373 |
V61= ( |
V61= ( |
374 |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
(type_of((V44)) == t_sfun ?(*(((V44))->sfn.sfn_self)): |
375 |
(fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); |
(fcall.fun=((V44)),fcall.argd=2,fcalln))(V62,(V61))); |
376 |
goto T110;}}} |
goto T111;}}} |
377 |
} |
} |
378 |
} |
} |
379 |
/* local entry for function FILL */ |
/* local entry for function FILL */ |
400 |
V68=(Vcs[3]); |
V68=(Vcs[3]); |
401 |
{long V69; |
{long V69; |
402 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
403 |
goto T124;} |
goto T125;} |
404 |
V69= (long)(*(LnkLI34))((V67)); |
V69= (long)(*(LnkLI36))((V67)); |
405 |
goto T122; |
goto T123; |
406 |
goto T124; |
goto T125; |
407 |
T124:; |
T125:; |
408 |
V69= 0; |
V69= 0; |
409 |
goto T122; |
goto T123; |
410 |
T122:; |
T123:; |
411 |
{register long V70; |
{register long V70; |
412 |
V70= (long)(*(LnkLI35))((V68),(V65)); |
V70= (long)(*(LnkLI37))((V68),(V65)); |
413 |
if(!((V69)<=(V70))){ |
if(!((V69)<=(V70))){ |
414 |
goto T128;} |
goto T129;} |
415 |
goto T127; |
goto T128; |
416 |
goto T128; |
goto T129; |
417 |
T128:; |
T129:; |
418 |
V71 = make_fixnum(V69); |
V71 = make_fixnum(V69); |
419 |
V72 = make_fixnum(V70); |
V72 = make_fixnum(V70); |
420 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V71,V72))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V71,V72))); |
421 |
goto T127; |
goto T128; |
422 |
T127:; |
T128:; |
423 |
{register long V73; |
{register long V73; |
424 |
V73= V69; |
V73= V69; |
425 |
goto T132; |
goto T133; |
426 |
T132:; |
T133:; |
427 |
if(!((V73)>=(V70))){ |
if(!((V73)>=(V70))){ |
428 |
goto T133;} |
goto T134;} |
429 |
{object V74 = (V65); |
{object V74 = (V65); |
430 |
VMR9(V74)} |
VMR9(V74)} |
431 |
goto T133; |
goto T134; |
432 |
T133:; |
T134:; |
433 |
(void)(elt_set((V65),V73,(V66))); |
(void)(elt_set((V65),V73,(V66))); |
434 |
V73= (long)(1)+(V73); |
V73= (long)(1)+(V73); |
435 |
goto T132;}}} |
goto T133;}}} |
436 |
va_end(ap); |
va_end(ap); |
437 |
return Cnil;} |
return Cnil;} |
438 |
}} |
}} |
464 |
V82=(Vcs[5]); |
V82=(Vcs[5]); |
465 |
{long V83; |
{long V83; |
466 |
if(((V79))==Cnil){ |
if(((V79))==Cnil){ |
467 |
goto T143;} |
goto T144;} |
468 |
V83= (long)(*(LnkLI34))((V79)); |
V83= (long)(*(LnkLI36))((V79)); |
469 |
goto T141; |
goto T142; |
470 |
goto T143; |
goto T144; |
471 |
T143:; |
T144:; |
472 |
V83= 0; |
V83= 0; |
473 |
goto T141; |
goto T142; |
474 |
T141:; |
T142:; |
475 |
{long V84; |
{long V84; |
476 |
V84= (long)(*(LnkLI35))((V80),(V77)); |
V84= (long)(*(LnkLI37))((V80),(V77)); |
477 |
if(!((V83)<=(V84))){ |
if(!((V83)<=(V84))){ |
478 |
goto T147;} |
goto T148;} |
479 |
goto T146; |
goto T147; |
480 |
goto T147; |
goto T148; |
481 |
T147:; |
T148:; |
482 |
V85 = make_fixnum(V83); |
V85 = make_fixnum(V83); |
483 |
V86 = make_fixnum(V84); |
V86 = make_fixnum(V84); |
484 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V85,V86))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V85,V86))); |
485 |
goto T146; |
goto T147; |
486 |
T146:; |
T147:; |
487 |
{long V87; |
{long V87; |
488 |
if(((V81))==Cnil){ |
if(((V81))==Cnil){ |
489 |
goto T151;} |
goto T152;} |
490 |
V87= (long)(*(LnkLI34))((V81)); |
V87= (long)(*(LnkLI36))((V81)); |
491 |
goto T149; |
goto T150; |
492 |
goto T151; |
goto T152; |
493 |
T151:; |
T152:; |
494 |
V87= 0; |
V87= 0; |
495 |
goto T149; |
goto T150; |
496 |
T149:; |
T150:; |
497 |
{long V88; |
{long V88; |
498 |
V88= (long)(*(LnkLI35))((V82),(V78)); |
V88= (long)(*(LnkLI37))((V82),(V78)); |
499 |
if(!((V87)<=(V88))){ |
if(!((V87)<=(V88))){ |
500 |
goto T155;} |
goto T156;} |
501 |
goto T154; |
goto T155; |
502 |
goto T155; |
goto T156; |
503 |
T155:; |
T156:; |
504 |
V89 = make_fixnum(V87); |
V89 = make_fixnum(V87); |
505 |
V90 = make_fixnum(V88); |
V90 = make_fixnum(V88); |
506 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V89,V90))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V89,V90))); |
507 |
goto T154; |
goto T155; |
508 |
T154:; |
T155:; |
509 |
if(!(((V77))==((V78)))){ |
if(!(((V77))==((V78)))){ |
510 |
goto T158;} |
goto T159;} |
511 |
if(!((V83)>(V87))){ |
if(!((V83)>(V87))){ |
512 |
goto T158;} |
goto T159;} |
513 |
{register long V91; |
{register long V91; |
514 |
long V92; |
long V92; |
515 |
register long V93; |
register long V93; |
516 |
register long V94; |
register long V94; |
517 |
V91= 0; |
V91= 0; |
518 |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
519 |
goto T165;} |
goto T166;} |
520 |
V92= (long)(V84)-(V83); |
V92= (long)(V84)-(V83); |
521 |
goto T163; |
goto T164; |
522 |
goto T165; |
goto T166; |
523 |
T165:; |
T166:; |
524 |
V92= (long)(V88)-(V87); |
V92= (long)(V88)-(V87); |
525 |
goto T163; |
goto T164; |
526 |
T163:; |
T164:; |
527 |
V93= (long)(V83)+((long)(-1)+(V92)); |
V93= (long)(V83)+((long)(-1)+(V92)); |
528 |
V94= (long)(V87)+((long)(-1)+(V92)); |
V94= (long)(V87)+((long)(-1)+(V92)); |
529 |
goto T170; |
goto T171; |
530 |
T170:; |
T171:; |
531 |
if(!((V91)>=(V92))){ |
if(!((V91)>=(V92))){ |
532 |
goto T171;} |
goto T172;} |
533 |
{object V95 = (V77); |
{object V95 = (V77); |
534 |
VMR10(V95)} |
VMR10(V95)} |
535 |
goto T171; |
goto T172; |
536 |
T171:; |
T172:; |
537 |
V96= elt((V78),V94); |
V96= elt((V78),V94); |
538 |
(void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); |
(void)(elt_set((V77),V93,/* INLINE-ARGS */V96)); |
539 |
V91= (long)(1)+(V91); |
V91= (long)(1)+(V91); |
540 |
V93= (long)(-1)+(V93); |
V93= (long)(-1)+(V93); |
541 |
V94= (long)(-1)+(V94); |
V94= (long)(-1)+(V94); |
542 |
goto T170;} |
goto T171;} |
543 |
goto T158; |
goto T159; |
544 |
T158:; |
T159:; |
545 |
{register long V97; |
{register long V97; |
546 |
long V98; |
long V98; |
547 |
register long V99; |
register long V99; |
548 |
register long V100; |
register long V100; |
549 |
V97= 0; |
V97= 0; |
550 |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
if(!(((long)(V84)-(V83))<((long)(V88)-(V87)))){ |
551 |
goto T186;} |
goto T187;} |
552 |
V98= (long)(V84)-(V83); |
V98= (long)(V84)-(V83); |
553 |
goto T184; |
goto T185; |
554 |
goto T186; |
goto T187; |
555 |
T186:; |
T187:; |
556 |
V98= (long)(V88)-(V87); |
V98= (long)(V88)-(V87); |
557 |
goto T184; |
goto T185; |
558 |
T184:; |
T185:; |
559 |
V99= V83; |
V99= V83; |
560 |
V100= V87; |
V100= V87; |
561 |
goto T191; |
goto T192; |
562 |
T191:; |
T192:; |
563 |
if(!((V97)>=(V98))){ |
if(!((V97)>=(V98))){ |
564 |
goto T192;} |
goto T193;} |
565 |
{object V101 = (V77); |
{object V101 = (V77); |
566 |
VMR10(V101)} |
VMR10(V101)} |
567 |
goto T192; |
goto T193; |
568 |
T192:; |
T193:; |
569 |
V102= elt((V78),V100); |
V102= elt((V78),V100); |
570 |
(void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); |
(void)(elt_set((V77),V99,/* INLINE-ARGS */V102)); |
571 |
V97= (long)(1)+(V97); |
V97= (long)(1)+(V97); |
572 |
V99= (long)(1)+(V99); |
V99= (long)(1)+(V99); |
573 |
V100= (long)(1)+(V100); |
V100= (long)(1)+(V100); |
574 |
goto T191;}}}}} |
goto T192;}}}}} |
575 |
va_end(ap); |
va_end(ap); |
576 |
return Cnil;} |
return Cnil;} |
577 |
}} |
}} |
607 |
V111=(Vcs[6]); |
V111=(Vcs[6]); |
608 |
V112=(Vcs[7]); |
V112=(Vcs[7]); |
609 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
610 |
V113= symbol_function(VV[33]); |
V113= symbol_function(VV[35]); |
611 |
}else{ |
}else{ |
612 |
V113=(Vcs[8]);} |
V113=(Vcs[8]);} |
613 |
if(!(((V113))==(Cnil))){ |
if(!(((V113))==(Cnil))){ |
614 |
goto T203;} |
goto T204;} |
615 |
V113= symbol_function(VV[33]); |
V113= symbol_function(VV[35]); |
616 |
goto T203; |
goto T204; |
617 |
T203:; |
T204:; |
618 |
{long V114; |
{long V114; |
619 |
if(((V110))==Cnil){ |
if(((V110))==Cnil){ |
620 |
goto T209;} |
goto T210;} |
621 |
V114= (long)(*(LnkLI34))((V110)); |
V114= (long)(*(LnkLI36))((V110)); |
622 |
goto T207; |
goto T208; |
623 |
goto T209; |
goto T210; |
624 |
T209:; |
T210:; |
625 |
V114= 0; |
V114= 0; |
626 |
goto T207; |
goto T208; |
627 |
T207:; |
T208:; |
628 |
{long V115; |
{long V115; |
629 |
V115= (long)(*(LnkLI35))((V111),(V106)); |
V115= (long)(*(LnkLI37))((V111),(V106)); |
630 |
if(!((V114)<=(V115))){ |
if(!((V114)<=(V115))){ |
631 |
goto T213;} |
goto T214;} |
632 |
goto T212; |
goto T213; |
633 |
goto T213; |
goto T214; |
634 |
T213:; |
T214:; |
635 |
V116 = make_fixnum(V114); |
V116 = make_fixnum(V114); |
636 |
V117 = make_fixnum(V115); |
V117 = make_fixnum(V115); |
637 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V116,V117))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V116,V117))); |
638 |
goto T212; |
goto T213; |
639 |
T212:; |
T213:; |
640 |
{long V118; |
{long V118; |
641 |
if(((V112))!=Cnil){ |
if(((V112))!=Cnil){ |
642 |
goto T217;} |
goto T218;} |
643 |
V118= 2147483647; |
V118= 2147483647; |
644 |
goto T215; |
goto T216; |
645 |
goto T217; |
goto T218; |
646 |
T217:; |
T218:; |
647 |
V118= fix((V112)); |
V118= fix((V112)); |
648 |
goto T215; |
goto T216; |
649 |
T215:; |
T216:; |
650 |
if((V108)==Cnil){ |
if((V108)==Cnil){ |
651 |
goto T220;} |
goto T221;} |
652 |
if((V109)==Cnil){ |
if((V109)==Cnil){ |
653 |
goto T220;} |
goto T221;} |
654 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
655 |
goto T220; |
goto T221; |
656 |
T220:; |
T221:; |
657 |
if(((V107))!=Cnil){ |
if(((V107))!=Cnil){ |
658 |
goto T222;} |
goto T223;} |
659 |
if(!(type_of((V106))==t_cons||((V106))==Cnil)){ |
if(!(type_of((V106))==t_cons||((V106))==Cnil)){ |
660 |
goto T225;} |
goto T226;} |
661 |
{register object V119; |
{register object V119; |
662 |
register object V120; |
register object V120; |
663 |
V119= (V106); |
V119= (V106); |
664 |
V120= Cnil; |
V120= Cnil; |
665 |
{register long V121; |
{register long V121; |
666 |
V121= 0; |
V121= 0; |
|
goto T230; |
|
|
T230:; |
|
|
if(!((V121)>=(V114))){ |
|
|
goto T231;} |
|
|
goto T227; |
|
667 |
goto T231; |
goto T231; |
668 |
T231:; |
T231:; |
669 |
|
if(!((V121)>=(V114))){ |
670 |
|
goto T232;} |
671 |
|
goto T228; |
672 |
|
goto T232; |
673 |
|
T232:; |
674 |
{register object V122; |
{register object V122; |
675 |
V122= car((V119)); |
V122= car((V119)); |
676 |
V120= make_cons((V122),(V120));} |
V120= make_cons((V122),(V120));} |
678 |
V123= car((V119)); |
V123= car((V119)); |
679 |
V119= cdr((V119));} |
V119= cdr((V119));} |
680 |
V121= (long)(1)+(V121); |
V121= (long)(1)+(V121); |
681 |
goto T230;} |
goto T231;} |
682 |
goto T227; |
goto T228; |
683 |
T227:; |
T228:; |
684 |
{register long V124; |
{register long V124; |
685 |
register long V125; |
register long V125; |
686 |
V124= V114; |
V124= V114; |
687 |
V125= 0; |
V125= 0; |
688 |
goto T248; |
goto T249; |
689 |
T248:; |
T249:; |
690 |
if((V124)>=(V115)){ |
if((V124)>=(V115)){ |
691 |
goto T250;} |
goto T251;} |
692 |
if((V125)>=(V118)){ |
if((V125)>=(V118)){ |
693 |
goto T250;} |
goto T251;} |
694 |
if(!(endp_prop((V119)))){ |
if(!(endp_prop((V119)))){ |
695 |
goto T249;} |
goto T250;} |
696 |
goto T250; |
goto T251; |
697 |
T250:; |
T251:; |
698 |
base[0]= (V120); |
base[0]= (V120); |
699 |
base[1]= (V119); |
base[1]= (V119); |
700 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
702 |
vs_top=sup; |
vs_top=sup; |
703 |
{object V126 = vs_base[0]; |
{object V126 = vs_base[0]; |
704 |
VMR11(V126)} |
VMR11(V126)} |
705 |
goto T249; |
goto T250; |
706 |
T249:; |
T250:; |
707 |
base[0]= car((V119)); |
base[0]= car((V119)); |
708 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
709 |
super_funcall_no_event((V113)); |
super_funcall_no_event((V113)); |
710 |
vs_top=sup; |
vs_top=sup; |
711 |
V127= vs_base[0]; |
V127= vs_base[0]; |
712 |
if(((*(LnkLI41))((V108),(V109),(V105),V127))==Cnil){ |
if(((*(LnkLI43))((V108),(V109),(V105),V127))==Cnil){ |
713 |
goto T261;} |
goto T262;} |
714 |
V125= (long)(1)+(V125); |
V125= (long)(1)+(V125); |
715 |
{register object V128; |
{register object V128; |
716 |
V128= car((V119)); |
V128= car((V119)); |
717 |
V119= cdr((V119)); |
V119= cdr((V119)); |
718 |
goto T259;} |
goto T260;} |
719 |
goto T261; |
goto T262; |
720 |
T261:; |
T262:; |
721 |
{register object V129; |
{register object V129; |
722 |
V129= car((V119)); |
V129= car((V119)); |
723 |
V120= make_cons((V129),(V120));} |
V120= make_cons((V129),(V120));} |
724 |
{register object V130; |
{register object V130; |
725 |
V130= car((V119)); |
V130= car((V119)); |
726 |
V119= cdr((V119));} |
V119= cdr((V119));} |
727 |
goto T259; |
goto T260; |
728 |
T259:; |
T260:; |
729 |
V124= (long)(1)+(V124); |
V124= (long)(1)+(V124); |
730 |
goto T248;}} |
goto T249;}} |
731 |
goto T225; |
goto T226; |
732 |
T225:; |
T226:; |
733 |
V131 = make_fixnum(V114); |
V131 = make_fixnum(V114); |
734 |
V132 = make_fixnum(V115); |
V132 = make_fixnum(V115); |
735 |
V133 = make_fixnum(V118); |
V133 = make_fixnum(V118); |
736 |
{object V134 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V131,VV[14],V132,VV[15],V133,VV[16],(V113))); |
{object V134 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V131,VV[15],V132,VV[16],V133,VV[17],(V113))); |
737 |
VMR11(V134)} |
VMR11(V134)} |
738 |
goto T222; |
goto T223; |
739 |
T222:; |
T223:; |
740 |
V135 = make_fixnum(V114); |
V135 = make_fixnum(V114); |
741 |
V136 = make_fixnum(V115); |
V136 = make_fixnum(V115); |
742 |
V137 = make_fixnum(V118); |
V137 = make_fixnum(V118); |
743 |
{object V138 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V135,VV[14],V136,VV[15],V137,VV[16],(V113))); |
{object V138 = (VFUN_NARGS=16,(*(LnkLI44))((V105),(V106),VV[11],(V107),VV[12],(V108),VV[13],(V109),VV[14],V135,VV[15],V136,VV[16],V137,VV[17],(V113))); |
744 |
VMR11(V138)}}}} |
VMR11(V138)}}}} |
745 |
va_end(ap); |
va_end(ap); |
746 |
base[0]=base[0]; |
base[0]=base[0]; |
774 |
V145=(Vcs[4]); |
V145=(Vcs[4]); |
775 |
V146=(Vcs[5]); |
V146=(Vcs[5]); |
776 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
777 |
V147= symbol_function(VV[33]); |
V147= symbol_function(VV[35]); |
778 |
}else{ |
}else{ |
779 |
V147=(Vcs[6]);} |
V147=(Vcs[6]);} |
780 |
if(!(((V147))==(Cnil))){ |
if(!(((V147))==(Cnil))){ |
781 |
goto T280;} |
goto T281;} |
782 |
V147= symbol_function(VV[33]); |
V147= symbol_function(VV[35]); |
783 |
goto T280; |
goto T281; |
784 |
T280:; |
T281:; |
785 |
V148= symbol_function(VV[44]); |
V148= symbol_function(VV[46]); |
786 |
{object V149 = (VFUN_NARGS=14,(*(LnkLI43))((V141),(V142),VV[10],(V143),VV[11],V148,VV[13],(V144),VV[14],(V145),VV[15],(V146),VV[16],(V147))); |
{object V149 = (VFUN_NARGS=14,(*(LnkLI45))((V141),(V142),VV[11],(V143),VV[12],V148,VV[14],(V144),VV[15],(V145),VV[16],(V146),VV[17],(V147))); |
787 |
VMR12(V149)} |
VMR12(V149)} |
788 |
va_end(ap); |
va_end(ap); |
789 |
return Cnil;} |
return Cnil;} |
816 |
V156=(Vcs[4]); |
V156=(Vcs[4]); |
817 |
V157=(Vcs[5]); |
V157=(Vcs[5]); |
818 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
819 |
V158= symbol_function(VV[33]); |
V158= symbol_function(VV[35]); |
820 |
}else{ |
}else{ |
821 |
V158=(Vcs[6]);} |
V158=(Vcs[6]);} |
822 |
if(!(((V158))==(Cnil))){ |
if(!(((V158))==(Cnil))){ |
823 |
goto T286;} |
goto T287;} |
824 |
V158= symbol_function(VV[33]); |
V158= symbol_function(VV[35]); |
825 |
goto T286; |
goto T287; |
826 |
T286:; |
T287:; |
827 |
V159= symbol_function(VV[44]); |
V159= symbol_function(VV[46]); |
828 |
{object V160 = (VFUN_NARGS=14,(*(LnkLI43))((V152),(V153),VV[10],(V154),VV[12],V159,VV[13],(V155),VV[14],(V156),VV[15],(V157),VV[16],(V158))); |
{object V160 = (VFUN_NARGS=14,(*(LnkLI45))((V152),(V153),VV[11],(V154),VV[13],V159,VV[14],(V155),VV[15],(V156),VV[16],(V157),VV[17],(V158))); |
829 |
VMR13(V160)} |
VMR13(V160)} |
830 |
va_end(ap); |
va_end(ap); |
831 |
return Cnil;} |
return Cnil;} |
862 |
V169=(Vcs[6]); |
V169=(Vcs[6]); |
863 |
V170=(Vcs[7]); |
V170=(Vcs[7]); |
864 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
865 |
V171= symbol_function(VV[33]); |
V171= symbol_function(VV[35]); |
866 |
}else{ |
}else{ |
867 |
V171=(Vcs[8]);} |
V171=(Vcs[8]);} |
868 |
{long V172; |
{long V172; |
869 |
V172= (long)length((V164)); |
V172= (long)length((V164)); |
870 |
if(!(((V171))==(Cnil))){ |
if(!(((V171))==(Cnil))){ |
871 |
goto T293;} |
goto T294;} |
872 |
V171= symbol_function(VV[33]); |
V171= symbol_function(VV[35]); |
873 |
goto T293; |
goto T294; |
874 |
T293:; |
T294:; |
875 |
{register long V173; |
{register long V173; |
876 |
if(((V168))==Cnil){ |
if(((V168))==Cnil){ |
877 |
goto T299;} |
goto T300;} |
878 |
V173= (long)(*(LnkLI34))((V168)); |
V173= (long)(*(LnkLI36))((V168)); |
879 |
goto T297; |
goto T298; |
880 |
goto T299; |
goto T300; |
881 |
T299:; |
T300:; |
882 |
V173= 0; |
V173= 0; |
883 |
goto T297; |
goto T298; |
884 |
T297:; |
T298:; |
885 |
{long V174; |
{long V174; |
886 |
V174= (long)(*(LnkLI35))((V169),(V164)); |
V174= (long)(*(LnkLI37))((V169),(V164)); |
887 |
if(!((V173)<=(V174))){ |
if(!((V173)<=(V174))){ |
888 |
goto T303;} |
goto T304;} |
889 |
goto T302; |
goto T303; |
890 |
goto T303; |
goto T304; |
891 |
T303:; |
T304:; |
892 |
V175 = make_fixnum(V173); |
V175 = make_fixnum(V173); |
893 |
V176 = make_fixnum(V174); |
V176 = make_fixnum(V174); |
894 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V175,V176))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V175,V176))); |
895 |
goto T302; |
goto T303; |
896 |
T302:; |
T303:; |
897 |
{register long V177; |
{register long V177; |
898 |
if(((V170))!=Cnil){ |
if(((V170))!=Cnil){ |
899 |
goto T307;} |
goto T308;} |
900 |
V177= 2147483647; |
V177= 2147483647; |
901 |
goto T305; |
goto T306; |
902 |
goto T307; |
goto T308; |
903 |
T307:; |
T308:; |
904 |
V177= fix((V170)); |
V177= fix((V170)); |
905 |
goto T305; |
goto T306; |
906 |
T305:; |
T306:; |
907 |
if((V166)==Cnil){ |
if((V166)==Cnil){ |
908 |
goto T310;} |
goto T311;} |
909 |
if((V167)==Cnil){ |
if((V167)==Cnil){ |
910 |
goto T310;} |
goto T311;} |
911 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
912 |
goto T310; |
goto T311; |
913 |
T310:; |
T311:; |
914 |
if(((V165))!=Cnil){ |
if(((V165))!=Cnil){ |
915 |
goto T312;} |
goto T313;} |
916 |
if(!(type_of((V164))==t_cons||((V164))==Cnil)){ |
if(!(type_of((V164))==t_cons||((V164))==Cnil)){ |
917 |
goto T315;} |
goto T316;} |
918 |
{object V178; |
{object V178; |
919 |
register object V179; |
register object V179; |
920 |
V178= make_cons(Cnil,(V164)); |
V178= make_cons(Cnil,(V164)); |
921 |
V179= (V178); |
V179= (V178); |
922 |
{long V180; |
{long V180; |
923 |
V180= 0; |
V180= 0; |
|
goto T322; |
|
|
T322:; |
|
|
if(!((V180)>=(V173))){ |
|
|
goto T323;} |
|
|
goto T319; |
|
924 |
goto T323; |
goto T323; |
925 |
T323:; |
T323:; |
926 |
|
if(!((V180)>=(V173))){ |
927 |
|
goto T324;} |
928 |
|
goto T320; |
929 |
|
goto T324; |
930 |
|
T324:; |
931 |
{object V181; |
{object V181; |
932 |
V181= car((V179)); |
V181= car((V179)); |
933 |
V179= cdr((V179));} |
V179= cdr((V179));} |
934 |
V180= (long)(1)+(V180); |
V180= (long)(1)+(V180); |
935 |
goto T322;} |
goto T323;} |
936 |
goto T319; |
goto T320; |
937 |
T319:; |
T320:; |
938 |
{long V182; |
{long V182; |
939 |
long V183; |
long V183; |
940 |
V182= V173; |
V182= V173; |
941 |
V183= 0; |
V183= 0; |
942 |
goto T337; |
goto T338; |
943 |
T337:; |
T338:; |
944 |
if((V182)>=(V174)){ |
if((V182)>=(V174)){ |
945 |
goto T339;} |
goto T340;} |
946 |
if((V183)>=(V177)){ |
if((V183)>=(V177)){ |
947 |
goto T339;} |
goto T340;} |
948 |
if(!(endp_prop(cdr((V179))))){ |
if(!(endp_prop(cdr((V179))))){ |
949 |
goto T338;} |
goto T339;} |
950 |
goto T339; |
goto T340; |
951 |
T339:; |
T340:; |
952 |
{object V184 = cdr((V178)); |
{object V184 = cdr((V178)); |
953 |
VMR14(V184)} |
VMR14(V184)} |
954 |
goto T338; |
goto T339; |
955 |
T338:; |
T339:; |
956 |
base[1]= cadr((V179)); |
base[1]= cadr((V179)); |
957 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
958 |
super_funcall_no_event((V171)); |
super_funcall_no_event((V171)); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
V185= vs_base[0]; |
V185= vs_base[0]; |
961 |
if(((*(LnkLI41))((V166),(V167),(V163),V185))==Cnil){ |
if(((*(LnkLI43))((V166),(V167),(V163),V185))==Cnil){ |
962 |
goto T348;} |
goto T349;} |
963 |
V183= (long)(1)+(V183); |
V183= (long)(1)+(V183); |
964 |
if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); |
if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); |
965 |
((V179))->c.c_cdr = cddr((V179)); |
((V179))->c.c_cdr = cddr((V179)); |
966 |
goto T346; |
goto T347; |
967 |
goto T348; |
goto T349; |
968 |
T348:; |
T349:; |
969 |
V179= cdr((V179)); |
V179= cdr((V179)); |
970 |
goto T346; |
goto T347; |
971 |
T346:; |
T347:; |
972 |
V182= (long)(1)+(V182); |
V182= (long)(1)+(V182); |
973 |
goto T337;}} |
goto T338;}} |
974 |
goto T315; |
goto T316; |
975 |
T315:; |
T316:; |
976 |
{long V186; |
{long V186; |
977 |
V187 = make_fixnum(V173); |
V187 = make_fixnum(V173); |
978 |
V188 = make_fixnum(V174); |
V188 = make_fixnum(V174); |
979 |
V189 = make_fixnum(V177); |
V189 = make_fixnum(V177); |
980 |
V186= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V187,VV[14],V188,VV[15],V189,VV[16],(V171)))); |
V186= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V187,VV[15],V188,VV[16],V189,VV[17],(V171)))); |
981 |
if(!((V186)<(V177))){ |
if(!((V186)<(V177))){ |
982 |
goto T359;} |
goto T360;} |
983 |
V177= V186; |
V177= V186; |
984 |
goto T359; |
goto T360; |
985 |
T359:; |
T360:; |
986 |
{object V190; |
{object V190; |
987 |
register long V191; |
register long V191; |
988 |
long V192; |
long V192; |
989 |
long V193; |
long V193; |
990 |
V194= (*(LnkLI47))((V164)); |
V194= (*(LnkLI49))((V164)); |
991 |
V195 = make_fixnum((long)(V172)-(V177)); |
V195 = make_fixnum((long)(V172)-(V177)); |
992 |
V190= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V194,V195)); |
V190= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V194,V195)); |
993 |
V191= 0; |
V191= 0; |
994 |
V192= 0; |
V192= 0; |
995 |
V193= 0; |
V193= 0; |
996 |
goto T368; |
goto T369; |
997 |
T368:; |
T369:; |
998 |
if(!((V191)>=(V172))){ |
if(!((V191)>=(V172))){ |
999 |
goto T369;} |
goto T370;} |
1000 |
{object V196 = (V190); |
{object V196 = (V190); |
1001 |
VMR14(V196)} |
VMR14(V196)} |
1002 |
goto T369; |
goto T370; |
1003 |
T369:; |
T370:; |
1004 |
if(!((V173)<=(V191))){ |
if(!((V173)<=(V191))){ |
1005 |
goto T375;} |
goto T376;} |
1006 |
if(!((V191)<(V174))){ |
if(!((V191)<(V174))){ |
1007 |
goto T375;} |
goto T376;} |
1008 |
if(!((V193)<(V177))){ |
if(!((V193)<(V177))){ |
1009 |
goto T375;} |
goto T376;} |
1010 |
base[0]= elt((V164),V191); |
base[0]= elt((V164),V191); |
1011 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1012 |
super_funcall_no_event((V171)); |
super_funcall_no_event((V171)); |
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
V197= vs_base[0]; |
V197= vs_base[0]; |
1015 |
if(((*(LnkLI41))((V166),(V167),(V163),V197))==Cnil){ |
if(((*(LnkLI43))((V166),(V167),(V163),V197))==Cnil){ |
1016 |
goto T375;} |
goto T376;} |
1017 |
V193= (long)(1)+(V193); |
V193= (long)(1)+(V193); |
1018 |
goto T373; |
goto T374; |
1019 |
goto T375; |
goto T376; |
1020 |
T375:; |
T376:; |
1021 |
V198= elt((V164),V191); |
V198= elt((V164),V191); |
1022 |
(void)(elt_set((V190),V192,/* INLINE-ARGS */V198)); |
(void)(elt_set((V190),V192,/* INLINE-ARGS */V198)); |
1023 |
V192= (long)(1)+(V192); |
V192= (long)(1)+(V192); |
1024 |
goto T373; |
goto T374; |
1025 |
T373:; |
T374:; |
1026 |
V191= (long)(1)+(V191); |
V191= (long)(1)+(V191); |
1027 |
goto T368;}} |
goto T369;}} |
1028 |
goto T312; |
goto T313; |
1029 |
T312:; |
T313:; |
1030 |
{long V199; |
{long V199; |
1031 |
V200 = make_fixnum(V173); |
V200 = make_fixnum(V173); |
1032 |
V201 = make_fixnum(V174); |
V201 = make_fixnum(V174); |
1033 |
V202 = make_fixnum(V177); |
V202 = make_fixnum(V177); |
1034 |
V199= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V200,VV[14],V201,VV[15],V202,VV[16],(V171)))); |
V199= fix((VFUN_NARGS=16,(*(LnkLI47))((V163),(V164),VV[11],(V165),VV[12],(V166),VV[13],(V167),VV[14],V200,VV[15],V201,VV[16],V202,VV[17],(V171)))); |
1035 |
if(!((V199)<(V177))){ |
if(!((V199)<(V177))){ |
1036 |
goto T392;} |
goto T393;} |
1037 |
V177= V199; |
V177= V199; |
1038 |
goto T392; |
goto T393; |
1039 |
T392:; |
T393:; |
1040 |
{object V203; |
{object V203; |
1041 |
register long V204; |
register long V204; |
1042 |
long V205; |
long V205; |
1043 |
long V206; |
long V206; |
1044 |
V207= (*(LnkLI47))((V164)); |
V207= (*(LnkLI49))((V164)); |
1045 |
V208 = make_fixnum((long)(V172)-(V177)); |
V208 = make_fixnum((long)(V172)-(V177)); |
1046 |
V203= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V207,V208)); |
V203= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V207,V208)); |
1047 |
V204= (long)(-1)+(V172); |
V204= (long)(-1)+(V172); |
1048 |
V205= (long)(-1)+((long)(V172)-(V177)); |
V205= (long)(-1)+((long)(V172)-(V177)); |
1049 |
V206= 0; |
V206= 0; |
1050 |
goto T401; |
goto T402; |
1051 |
T401:; |
T402:; |
1052 |
if(!((V204)<(0))){ |
if(!((V204)<(0))){ |
1053 |
goto T402;} |
goto T403;} |
1054 |
{object V209 = (V203); |
{object V209 = (V203); |
1055 |
VMR14(V209)} |
VMR14(V209)} |
1056 |
goto T402; |
goto T403; |
1057 |
T402:; |
T403:; |
1058 |
if(!((V173)<=(V204))){ |
if(!((V173)<=(V204))){ |
1059 |
goto T408;} |
goto T409;} |
1060 |
if(!((V204)<(V174))){ |
if(!((V204)<(V174))){ |
1061 |
goto T408;} |
goto T409;} |
1062 |
if(!((V206)<(V177))){ |
if(!((V206)<(V177))){ |
1063 |
goto T408;} |
goto T409;} |
1064 |
base[0]= elt((V164),V204); |
base[0]= elt((V164),V204); |
1065 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1066 |
super_funcall_no_event((V171)); |
super_funcall_no_event((V171)); |
1067 |
vs_top=sup; |
vs_top=sup; |
1068 |
V210= vs_base[0]; |
V210= vs_base[0]; |
1069 |
if(((*(LnkLI41))((V166),(V167),(V163),V210))==Cnil){ |
if(((*(LnkLI43))((V166),(V167),(V163),V210))==Cnil){ |
1070 |
goto T408;} |
goto T409;} |
1071 |
V206= (long)(1)+(V206); |
V206= (long)(1)+(V206); |
1072 |
goto T406; |
goto T407; |
1073 |
goto T408; |
goto T409; |
1074 |
T408:; |
T409:; |
1075 |
V211= elt((V164),V204); |
V211= elt((V164),V204); |
1076 |
(void)(elt_set((V203),V205,/* INLINE-ARGS */V211)); |
(void)(elt_set((V203),V205,/* INLINE-ARGS */V211)); |
1077 |
V205= (long)(-1)+(V205); |
V205= (long)(-1)+(V205); |
1078 |
goto T406; |
goto T407; |
1079 |
T406:; |
T407:; |
1080 |
V204= (long)(-1)+(V204); |
V204= (long)(-1)+(V204); |
1081 |
goto T401;}}}}}} |
goto T402;}}}}}} |
1082 |
va_end(ap); |
va_end(ap); |
1083 |
base[0]=base[0]; |
base[0]=base[0]; |
1084 |
return Cnil;} |
return Cnil;} |
1111 |
V218=(Vcs[4]); |
V218=(Vcs[4]); |
1112 |
V219=(Vcs[5]); |
V219=(Vcs[5]); |
1113 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1114 |
V220= symbol_function(VV[33]); |
V220= symbol_function(VV[35]); |
1115 |
}else{ |
}else{ |
1116 |
V220=(Vcs[6]);} |
V220=(Vcs[6]);} |
1117 |
if(!(((V220))==(Cnil))){ |
if(!(((V220))==(Cnil))){ |
1118 |
goto T425;} |
goto T426;} |
1119 |
V220= symbol_function(VV[33]); |
V220= symbol_function(VV[35]); |
1120 |
goto T425; |
goto T426; |
1121 |
T425:; |
T426:; |
1122 |
V221= symbol_function(VV[44]); |
V221= symbol_function(VV[46]); |
1123 |
{object V222 = (VFUN_NARGS=14,(*(LnkLI42))((V214),(V215),VV[10],(V216),VV[11],V221,VV[13],(V217),VV[14],(V218),VV[15],(V219),VV[16],(V220))); |
{object V222 = (VFUN_NARGS=14,(*(LnkLI44))((V214),(V215),VV[11],(V216),VV[12],V221,VV[14],(V217),VV[15],(V218),VV[16],(V219),VV[17],(V220))); |
1124 |
VMR15(V222)} |
VMR15(V222)} |
1125 |
va_end(ap); |
va_end(ap); |
1126 |
return Cnil;} |
return Cnil;} |
1153 |
V229=(Vcs[4]); |
V229=(Vcs[4]); |
1154 |
V230=(Vcs[5]); |
V230=(Vcs[5]); |
1155 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1156 |
V231= symbol_function(VV[33]); |
V231= symbol_function(VV[35]); |
1157 |
}else{ |
}else{ |
1158 |
V231=(Vcs[6]);} |
V231=(Vcs[6]);} |
1159 |
if(!(((V231))==(Cnil))){ |
if(!(((V231))==(Cnil))){ |
1160 |
goto T431;} |
goto T432;} |
1161 |
V231= symbol_function(VV[33]); |
V231= symbol_function(VV[35]); |
1162 |
goto T431; |
goto T432; |
1163 |
T431:; |
T432:; |
1164 |
V232= symbol_function(VV[44]); |
V232= symbol_function(VV[46]); |
1165 |
{object V233 = (VFUN_NARGS=14,(*(LnkLI42))((V225),(V226),VV[10],(V227),VV[12],V232,VV[13],(V228),VV[14],(V229),VV[15],(V230),VV[16],(V231))); |
{object V233 = (VFUN_NARGS=14,(*(LnkLI44))((V225),(V226),VV[11],(V227),VV[13],V232,VV[14],(V228),VV[15],(V229),VV[16],(V230),VV[17],(V231))); |
1166 |
VMR16(V233)} |
VMR16(V233)} |
1167 |
va_end(ap); |
va_end(ap); |
1168 |
return Cnil;} |
return Cnil;} |
1197 |
V241=(Vcs[5]); |
V241=(Vcs[5]); |
1198 |
V242=(Vcs[6]); |
V242=(Vcs[6]); |
1199 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1200 |
V243= symbol_function(VV[33]); |
V243= symbol_function(VV[35]); |
1201 |
}else{ |
}else{ |
1202 |
V243=(Vcs[7]);} |
V243=(Vcs[7]);} |
1203 |
if(!(((V243))==(Cnil))){ |
if(!(((V243))==(Cnil))){ |
1204 |
goto T437;} |
goto T438;} |
1205 |
V243= symbol_function(VV[33]); |
V243= symbol_function(VV[35]); |
1206 |
goto T437; |
goto T438; |
1207 |
T437:; |
T438:; |
1208 |
{long V244; |
{long V244; |
1209 |
if(((V241))==Cnil){ |
if(((V241))==Cnil){ |
1210 |
goto T443;} |
goto T444;} |
1211 |
V244= (long)(*(LnkLI34))((V241)); |
V244= (long)(*(LnkLI36))((V241)); |
1212 |
goto T441; |
goto T442; |
1213 |
goto T443; |
goto T444; |
1214 |
T443:; |
T444:; |
1215 |
V244= 0; |
V244= 0; |
1216 |
goto T441; |
goto T442; |
1217 |
T441:; |
T442:; |
1218 |
{long V245; |
{long V245; |
1219 |
V245= (long)(*(LnkLI35))((V242),(V237)); |
V245= (long)(*(LnkLI37))((V242),(V237)); |
1220 |
if(!((V244)<=(V245))){ |
if(!((V244)<=(V245))){ |
1221 |
goto T447;} |
goto T448;} |
1222 |
goto T446; |
goto T447; |
1223 |
goto T447; |
goto T448; |
1224 |
T447:; |
T448:; |
1225 |
V246 = make_fixnum(V244); |
V246 = make_fixnum(V244); |
1226 |
V247 = make_fixnum(V245); |
V247 = make_fixnum(V245); |
1227 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V246,V247))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V246,V247))); |
1228 |
goto T446; |
goto T447; |
1229 |
T446:; |
T447:; |
1230 |
if((V239)==Cnil){ |
if((V239)==Cnil){ |
1231 |
goto T449;} |
goto T450;} |
1232 |
if((V240)==Cnil){ |
if((V240)==Cnil){ |
1233 |
goto T449;} |
goto T450;} |
1234 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
1235 |
goto T449; |
goto T450; |
1236 |
T449:; |
T450:; |
1237 |
if(((V238))!=Cnil){ |
if(((V238))!=Cnil){ |
1238 |
goto T451;} |
goto T452;} |
1239 |
{register long V248; |
{register long V248; |
1240 |
register long V249; |
register long V249; |
1241 |
V248= V244; |
V248= V244; |
1242 |
V249= 0; |
V249= 0; |
1243 |
goto T456; |
goto T457; |
1244 |
T456:; |
T457:; |
1245 |
if(!((V248)>=(V245))){ |
if(!((V248)>=(V245))){ |
1246 |
goto T457;} |
goto T458;} |
1247 |
{object V250 = make_fixnum(V249); |
{object V250 = make_fixnum(V249); |
1248 |
VMR17(V250)} |
VMR17(V250)} |
1249 |
goto T457; |
goto T458; |
1250 |
T457:; |
T458:; |
1251 |
base[0]= elt((V237),V248); |
base[0]= elt((V237),V248); |
1252 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1253 |
super_funcall_no_event((V243)); |
super_funcall_no_event((V243)); |
1254 |
vs_top=sup; |
vs_top=sup; |
1255 |
V251= vs_base[0]; |
V251= vs_base[0]; |
1256 |
if(((*(LnkLI41))((V239),(V240),(V236),V251))==Cnil){ |
if(((*(LnkLI43))((V239),(V240),(V236),V251))==Cnil){ |
1257 |
goto T461;} |
goto T462;} |
1258 |
V249= (long)(1)+(V249); |
V249= (long)(1)+(V249); |
1259 |
goto T461; |
goto T462; |
1260 |
T461:; |
T462:; |
1261 |
V248= (long)(1)+(V248); |
V248= (long)(1)+(V248); |
1262 |
goto T456;} |
goto T457;} |
1263 |
goto T451; |
goto T452; |
1264 |
T451:; |
T452:; |
1265 |
{register long V252; |
{register long V252; |
1266 |
register long V253; |
register long V253; |
1267 |
V252= (long)(-1)+(V245); |
V252= (long)(-1)+(V245); |
1268 |
V253= 0; |
V253= 0; |
1269 |
goto T473; |
goto T474; |
1270 |
T473:; |
T474:; |
1271 |
if(!((V252)<(V244))){ |
if(!((V252)<(V244))){ |
1272 |
goto T474;} |
goto T475;} |
1273 |
{object V254 = make_fixnum(V253); |
{object V254 = make_fixnum(V253); |
1274 |
VMR17(V254)} |
VMR17(V254)} |
1275 |
goto T474; |
goto T475; |
1276 |
T474:; |
T475:; |
1277 |
base[0]= elt((V237),V252); |
base[0]= elt((V237),V252); |
1278 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1279 |
super_funcall_no_event((V243)); |
super_funcall_no_event((V243)); |
1280 |
vs_top=sup; |
vs_top=sup; |
1281 |
V255= vs_base[0]; |
V255= vs_base[0]; |
1282 |
if(((*(LnkLI41))((V239),(V240),(V236),V255))==Cnil){ |
if(((*(LnkLI43))((V239),(V240),(V236),V255))==Cnil){ |
1283 |
goto T478;} |
goto T479;} |
1284 |
V253= (long)(1)+(V253); |
V253= (long)(1)+(V253); |
1285 |
goto T478; |
goto T479; |
1286 |
T478:; |
T479:; |
1287 |
V252= (long)(-1)+(V252); |
V252= (long)(-1)+(V252); |
1288 |
goto T473;}}} |
goto T474;}}} |
1289 |
va_end(ap); |
va_end(ap); |
1290 |
base[0]=base[0]; |
base[0]=base[0]; |
1291 |
return Cnil;} |
return Cnil;} |
1316 |
V261=(Vcs[3]); |
V261=(Vcs[3]); |
1317 |
V262=(Vcs[4]); |
V262=(Vcs[4]); |
1318 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1319 |
V263= symbol_function(VV[33]); |
V263= symbol_function(VV[35]); |
1320 |
}else{ |
}else{ |
1321 |
V263=(Vcs[5]);} |
V263=(Vcs[5]);} |
1322 |
if(!(((V263))==(Cnil))){ |
if(!(((V263))==(Cnil))){ |
1323 |
goto T488;} |
goto T489;} |
1324 |
V263= symbol_function(VV[33]); |
V263= symbol_function(VV[35]); |
1325 |
goto T488; |
goto T489; |
1326 |
T488:; |
T489:; |
1327 |
V264= symbol_function(VV[44]); |
V264= symbol_function(VV[46]); |
1328 |
{object V265 = (VFUN_NARGS=12,(*(LnkLI48))((V258),(V259),VV[10],(V260),VV[11],V264,VV[13],(V261),VV[14],(V262),VV[16],(V263))); |
{object V265 = (VFUN_NARGS=12,(*(LnkLI50))((V258),(V259),VV[11],(V260),VV[12],V264,VV[14],(V261),VV[15],(V262),VV[17],(V263))); |
1329 |
VMR18(V265)} |
VMR18(V265)} |
1330 |
va_end(ap); |
va_end(ap); |
1331 |
return Cnil;} |
return Cnil;} |
1356 |
V271=(Vcs[3]); |
V271=(Vcs[3]); |
1357 |
V272=(Vcs[4]); |
V272=(Vcs[4]); |
1358 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1359 |
V273= symbol_function(VV[33]); |
V273= symbol_function(VV[35]); |
1360 |
}else{ |
}else{ |
1361 |
V273=(Vcs[5]);} |
V273=(Vcs[5]);} |
1362 |
if(!(((V273))==(Cnil))){ |
if(!(((V273))==(Cnil))){ |
1363 |
goto T494;} |
goto T495;} |
1364 |
V273= symbol_function(VV[33]); |
V273= symbol_function(VV[35]); |
1365 |
goto T494; |
goto T495; |
1366 |
T494:; |
T495:; |
1367 |
V274= symbol_function(VV[44]); |
V274= symbol_function(VV[46]); |
1368 |
{object V275 = (VFUN_NARGS=12,(*(LnkLI48))((V268),(V269),VV[10],(V270),VV[12],V274,VV[13],(V271),VV[14],(V272),VV[16],(V273))); |
{object V275 = (VFUN_NARGS=12,(*(LnkLI50))((V268),(V269),VV[11],(V270),VV[13],V274,VV[14],(V271),VV[15],(V272),VV[17],(V273))); |
1369 |
VMR19(V275)} |
VMR19(V275)} |
1370 |
va_end(ap); |
va_end(ap); |
1371 |
return Cnil;} |
return Cnil;} |
1402 |
V284=(Vcs[6]); |
V284=(Vcs[6]); |
1403 |
V285=(Vcs[7]); |
V285=(Vcs[7]); |
1404 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
1405 |
V286= symbol_function(VV[33]); |
V286= symbol_function(VV[35]); |
1406 |
}else{ |
}else{ |
1407 |
V286=(Vcs[8]);} |
V286=(Vcs[8]);} |
1408 |
if(!(((V286))==(Cnil))){ |
if(!(((V286))==(Cnil))){ |
1409 |
goto T500;} |
goto T501;} |
1410 |
V286= symbol_function(VV[33]); |
V286= symbol_function(VV[35]); |
1411 |
goto T500; |
goto T501; |
1412 |
T500:; |
T501:; |
1413 |
{long V287; |
{long V287; |
1414 |
if(((V283))==Cnil){ |
if(((V283))==Cnil){ |
1415 |
goto T506;} |
goto T507;} |
1416 |
V287= (long)(*(LnkLI34))((V283)); |
V287= (long)(*(LnkLI36))((V283)); |
1417 |
goto T504; |
goto T505; |
1418 |
goto T506; |
goto T507; |
1419 |
T506:; |
T507:; |
1420 |
V287= 0; |
V287= 0; |
1421 |
goto T504; |
goto T505; |
1422 |
T504:; |
T505:; |
1423 |
{long V288; |
{long V288; |
1424 |
V288= (long)(*(LnkLI35))((V284),(V279)); |
V288= (long)(*(LnkLI37))((V284),(V279)); |
1425 |
if(!((V287)<=(V288))){ |
if(!((V287)<=(V288))){ |
1426 |
goto T510;} |
goto T511;} |
1427 |
goto T509; |
goto T510; |
1428 |
goto T510; |
goto T511; |
1429 |
T510:; |
T511:; |
1430 |
V289 = make_fixnum(V287); |
V289 = make_fixnum(V287); |
1431 |
V290 = make_fixnum(V288); |
V290 = make_fixnum(V288); |
1432 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V289,V290))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V289,V290))); |
1433 |
goto T509; |
goto T510; |
1434 |
T509:; |
T510:; |
1435 |
{long V291; |
{long V291; |
1436 |
if(((V285))!=Cnil){ |
if(((V285))!=Cnil){ |
1437 |
goto T514;} |
goto T515;} |
1438 |
V291= 2147483647; |
V291= 2147483647; |
1439 |
goto T512; |
goto T513; |
1440 |
goto T514; |
goto T515; |
1441 |
T514:; |
T515:; |
1442 |
V291= fix((V285)); |
V291= fix((V285)); |
1443 |
goto T512; |
goto T513; |
1444 |
T512:; |
T513:; |
1445 |
if((V281)==Cnil){ |
if((V281)==Cnil){ |
1446 |
goto T517;} |
goto T518;} |
1447 |
if((V282)==Cnil){ |
if((V282)==Cnil){ |
1448 |
goto T517;} |
goto T518;} |
1449 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
1450 |
goto T517; |
goto T518; |
1451 |
T517:; |
T518:; |
1452 |
if(((V280))!=Cnil){ |
if(((V280))!=Cnil){ |
1453 |
goto T519;} |
goto T520;} |
1454 |
{register long V292; |
{register long V292; |
1455 |
register long V293; |
register long V293; |
1456 |
V292= V287; |
V292= V287; |
1457 |
V293= 0; |
V293= 0; |
1458 |
goto T524; |
goto T525; |
1459 |
T524:; |
T525:; |
1460 |
if(!((V292)>=(V288))){ |
if(!((V292)>=(V288))){ |
1461 |
goto T525;} |
goto T526;} |
1462 |
{object V294 = make_fixnum(V293); |
{object V294 = make_fixnum(V293); |
1463 |
VMR20(V294)} |
VMR20(V294)} |
1464 |
goto T525; |
goto T526; |
1465 |
T525:; |
T526:; |
1466 |
if(!((V293)<(V291))){ |
if(!((V293)<(V291))){ |
1467 |
goto T529;} |
goto T530;} |
1468 |
base[0]= elt((V279),V292); |
base[0]= elt((V279),V292); |
1469 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1470 |
super_funcall_no_event((V286)); |
super_funcall_no_event((V286)); |
1471 |
vs_top=sup; |
vs_top=sup; |
1472 |
V295= vs_base[0]; |
V295= vs_base[0]; |
1473 |
if(((*(LnkLI41))((V281),(V282),(V278),V295))==Cnil){ |
if(((*(LnkLI43))((V281),(V282),(V278),V295))==Cnil){ |
1474 |
goto T529;} |
goto T530;} |
1475 |
V293= (long)(1)+(V293); |
V293= (long)(1)+(V293); |
1476 |
goto T529; |
goto T530; |
1477 |
T529:; |
T530:; |
1478 |
V292= (long)(1)+(V292); |
V292= (long)(1)+(V292); |
1479 |
goto T524;} |
goto T525;} |
1480 |
goto T519; |
goto T520; |
1481 |
T519:; |
T520:; |
1482 |
{register long V296; |
{register long V296; |
1483 |
register long V297; |
register long V297; |
1484 |
V296= (long)(-1)+(V288); |
V296= (long)(-1)+(V288); |
1485 |
V297= 0; |
V297= 0; |
1486 |
goto T543; |
goto T544; |
1487 |
T543:; |
T544:; |
1488 |
if(!((V296)<(V287))){ |
if(!((V296)<(V287))){ |
1489 |
goto T544;} |
goto T545;} |
1490 |
{object V298 = make_fixnum(V297); |
{object V298 = make_fixnum(V297); |
1491 |
VMR20(V298)} |
VMR20(V298)} |
1492 |
goto T544; |
goto T545; |
1493 |
T544:; |
T545:; |
1494 |
if(!((V297)<(V291))){ |
if(!((V297)<(V291))){ |
1495 |
goto T548;} |
goto T549;} |
1496 |
base[0]= elt((V279),V296); |
base[0]= elt((V279),V296); |
1497 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1498 |
super_funcall_no_event((V286)); |
super_funcall_no_event((V286)); |
1499 |
vs_top=sup; |
vs_top=sup; |
1500 |
V299= vs_base[0]; |
V299= vs_base[0]; |
1501 |
if(((*(LnkLI41))((V281),(V282),(V278),V299))==Cnil){ |
if(((*(LnkLI43))((V281),(V282),(V278),V299))==Cnil){ |
1502 |
goto T548;} |
goto T549;} |
1503 |
V297= (long)(1)+(V297); |
V297= (long)(1)+(V297); |
1504 |
goto T548; |
goto T549; |
1505 |
T548:; |
T549:; |
1506 |
V296= (long)(-1)+(V296); |
V296= (long)(-1)+(V296); |
1507 |
goto T543;}}}} |
goto T544;}}}} |
1508 |
va_end(ap); |
va_end(ap); |
1509 |
base[0]=base[0]; |
base[0]=base[0]; |
1510 |
return Cnil;} |
return Cnil;} |
1537 |
V306=(Vcs[4]); |
V306=(Vcs[4]); |
1538 |
V307=(Vcs[5]); |
V307=(Vcs[5]); |
1539 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1540 |
V308= symbol_function(VV[33]); |
V308= symbol_function(VV[35]); |
1541 |
}else{ |
}else{ |
1542 |
V308=(Vcs[6]);} |
V308=(Vcs[6]);} |
1543 |
if(!(((V308))==(Cnil))){ |
if(!(((V308))==(Cnil))){ |
1544 |
goto T560;} |
goto T561;} |
1545 |
V308= symbol_function(VV[33]); |
V308= symbol_function(VV[35]); |
1546 |
goto T560; |
goto T561; |
1547 |
T560:; |
T561:; |
1548 |
V309= symbol_function(VV[44]); |
V309= symbol_function(VV[46]); |
1549 |
{object V310 = (VFUN_NARGS=14,(*(LnkLI45))((V302),(V303),VV[10],(V304),VV[11],V309,VV[13],(V305),VV[14],(V306),VV[15],(V307),VV[16],(V308))); |
{object V310 = (VFUN_NARGS=14,(*(LnkLI47))((V302),(V303),VV[11],(V304),VV[12],V309,VV[14],(V305),VV[15],(V306),VV[16],(V307),VV[17],(V308))); |
1550 |
VMR21(V310)} |
VMR21(V310)} |
1551 |
va_end(ap); |
va_end(ap); |
1552 |
return Cnil;} |
return Cnil;} |
1579 |
V317=(Vcs[4]); |
V317=(Vcs[4]); |
1580 |
V318=(Vcs[5]); |
V318=(Vcs[5]); |
1581 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1582 |
V319= symbol_function(VV[33]); |
V319= symbol_function(VV[35]); |
1583 |
}else{ |
}else{ |
1584 |
V319=(Vcs[6]);} |
V319=(Vcs[6]);} |
1585 |
if(!(((V319))==(Cnil))){ |
if(!(((V319))==(Cnil))){ |
1586 |
goto T566;} |
goto T567;} |
1587 |
V319= symbol_function(VV[33]); |
V319= symbol_function(VV[35]); |
1588 |
goto T566; |
goto T567; |
1589 |
T566:; |
T567:; |
1590 |
V320= symbol_function(VV[44]); |
V320= symbol_function(VV[46]); |
1591 |
{object V321 = (VFUN_NARGS=14,(*(LnkLI45))((V313),(V314),VV[10],(V315),VV[12],V320,VV[13],(V316),VV[14],(V317),VV[15],(V318),VV[16],(V319))); |
{object V321 = (VFUN_NARGS=14,(*(LnkLI47))((V313),(V314),VV[11],(V315),VV[13],V320,VV[14],(V316),VV[15],(V317),VV[16],(V318),VV[17],(V319))); |
1592 |
VMR22(V321)} |
VMR22(V321)} |
1593 |
va_end(ap); |
va_end(ap); |
1594 |
return Cnil;} |
return Cnil;} |
1627 |
V332=(Vcs[7]); |
V332=(Vcs[7]); |
1628 |
V333=(Vcs[8]); |
V333=(Vcs[8]); |
1629 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1630 |
V334= symbol_function(VV[33]); |
V334= symbol_function(VV[35]); |
1631 |
}else{ |
}else{ |
1632 |
V334=(Vcs[9]);} |
V334=(Vcs[9]);} |
1633 |
{long V335; |
{long V335; |
1634 |
V335= (long)length((V327)); |
V335= (long)length((V327)); |
1635 |
if(!(((V334))==(Cnil))){ |
if(!(((V334))==(Cnil))){ |
1636 |
goto T573;} |
goto T574;} |
1637 |
V334= symbol_function(VV[33]); |
V334= symbol_function(VV[35]); |
1638 |
goto T573; |
goto T574; |
1639 |
T573:; |
T574:; |
1640 |
{long V336; |
{long V336; |
1641 |
if(((V331))==Cnil){ |
if(((V331))==Cnil){ |
1642 |
goto T579;} |
goto T580;} |
1643 |
V336= (long)(*(LnkLI34))((V331)); |
V336= (long)(*(LnkLI36))((V331)); |
1644 |
goto T577; |
goto T578; |
1645 |
goto T579; |
goto T580; |
1646 |
T579:; |
T580:; |
1647 |
V336= 0; |
V336= 0; |
1648 |
goto T577; |
goto T578; |
1649 |
T577:; |
T578:; |
1650 |
{long V337; |
{long V337; |
1651 |
V337= (long)(*(LnkLI35))((V332),(V327)); |
V337= (long)(*(LnkLI37))((V332),(V327)); |
1652 |
if(!((V336)<=(V337))){ |
if(!((V336)<=(V337))){ |
1653 |
goto T583;} |
goto T584;} |
1654 |
goto T582; |
goto T583; |
1655 |
goto T583; |
goto T584; |
1656 |
T583:; |
T584:; |
1657 |
V338 = make_fixnum(V336); |
V338 = make_fixnum(V336); |
1658 |
V339 = make_fixnum(V337); |
V339 = make_fixnum(V337); |
1659 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V338,V339))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V338,V339))); |
1660 |
goto T582; |
goto T583; |
1661 |
T582:; |
T583:; |
1662 |
{long V340; |
{long V340; |
1663 |
if(((V333))!=Cnil){ |
if(((V333))!=Cnil){ |
1664 |
goto T587;} |
goto T588;} |
1665 |
V340= 2147483647; |
V340= 2147483647; |
1666 |
goto T585; |
goto T586; |
1667 |
goto T587; |
goto T588; |
1668 |
T587:; |
T588:; |
1669 |
V340= fix((V333)); |
V340= fix((V333)); |
1670 |
goto T585; |
goto T586; |
1671 |
T585:; |
T586:; |
1672 |
if((V329)==Cnil){ |
if((V329)==Cnil){ |
1673 |
goto T590;} |
goto T591;} |
1674 |
if((V330)==Cnil){ |
if((V330)==Cnil){ |
1675 |
goto T590;} |
goto T591;} |
1676 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
1677 |
goto T590; |
goto T591; |
1678 |
T590:; |
T591:; |
1679 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
1680 |
goto T592;} |
goto T593;} |
1681 |
{register object V341; |
{register object V341; |
1682 |
register long V342; |
register long V342; |
1683 |
register long V343; |
register long V343; |
1684 |
V344= (*(LnkLI47))((V327)); |
V344= (*(LnkLI49))((V327)); |
1685 |
V345 = make_fixnum(V335); |
V345 = make_fixnum(V335); |
1686 |
V341= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V344,V345)); |
V341= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V344,V345)); |
1687 |
V342= 0; |
V342= 0; |
1688 |
V343= 0; |
V343= 0; |
1689 |
goto T598; |
goto T599; |
1690 |
T598:; |
T599:; |
1691 |
if(!((V342)>=(V335))){ |
if(!((V342)>=(V335))){ |
1692 |
goto T599;} |
goto T600;} |
1693 |
{object V346 = (V341); |
{object V346 = (V341); |
1694 |
VMR23(V346)} |
VMR23(V346)} |
1695 |
goto T599; |
goto T600; |
1696 |
T599:; |
T600:; |
1697 |
if(!((V336)<=(V342))){ |
if(!((V336)<=(V342))){ |
1698 |
goto T605;} |
goto T606;} |
1699 |
if(!((V342)<(V337))){ |
if(!((V342)<(V337))){ |
1700 |
goto T605;} |
goto T606;} |
1701 |
if(!((V343)<(V340))){ |
if(!((V343)<(V340))){ |
1702 |
goto T605;} |
goto T606;} |
1703 |
base[0]= elt((V327),V342); |
base[0]= elt((V327),V342); |
1704 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1705 |
super_funcall_no_event((V334)); |
super_funcall_no_event((V334)); |
1706 |
vs_top=sup; |
vs_top=sup; |
1707 |
V347= vs_base[0]; |
V347= vs_base[0]; |
1708 |
if(((*(LnkLI41))((V329),(V330),(V326),V347))==Cnil){ |
if(((*(LnkLI43))((V329),(V330),(V326),V347))==Cnil){ |
1709 |
goto T605;} |
goto T606;} |
1710 |
(void)(elt_set((V341),V342,(V325))); |
(void)(elt_set((V341),V342,(V325))); |
1711 |
V343= (long)(1)+(V343); |
V343= (long)(1)+(V343); |
1712 |
goto T603; |
goto T604; |
1713 |
goto T605; |
goto T606; |
1714 |
T605:; |
T606:; |
1715 |
V348= elt((V327),V342); |
V348= elt((V327),V342); |
1716 |
(void)(elt_set((V341),V342,/* INLINE-ARGS */V348)); |
(void)(elt_set((V341),V342,/* INLINE-ARGS */V348)); |
1717 |
goto T603; |
goto T604; |
1718 |
T603:; |
T604:; |
1719 |
V342= (long)(1)+(V342); |
V342= (long)(1)+(V342); |
1720 |
goto T598;} |
goto T599;} |
1721 |
goto T592; |
goto T593; |
1722 |
T592:; |
T593:; |
1723 |
{register object V349; |
{register object V349; |
1724 |
register long V350; |
register long V350; |
1725 |
register long V351; |
register long V351; |
1726 |
V352= (*(LnkLI47))((V327)); |
V352= (*(LnkLI49))((V327)); |
1727 |
V353 = make_fixnum(V335); |
V353 = make_fixnum(V335); |
1728 |
V349= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V352,V353)); |
V349= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V352,V353)); |
1729 |
V350= (long)(-1)+(V335); |
V350= (long)(-1)+(V335); |
1730 |
V351= 0; |
V351= 0; |
1731 |
goto T624; |
goto T625; |
1732 |
T624:; |
T625:; |
1733 |
if(!((V350)<(0))){ |
if(!((V350)<(0))){ |
1734 |
goto T625;} |
goto T626;} |
1735 |
{object V354 = (V349); |
{object V354 = (V349); |
1736 |
VMR23(V354)} |
VMR23(V354)} |
1737 |
goto T625; |
goto T626; |
1738 |
T625:; |
T626:; |
1739 |
if(!((V336)<=(V350))){ |
if(!((V336)<=(V350))){ |
1740 |
goto T631;} |
goto T632;} |
1741 |
if(!((V350)<(V337))){ |
if(!((V350)<(V337))){ |
1742 |
goto T631;} |
goto T632;} |
1743 |
if(!((V351)<(V340))){ |
if(!((V351)<(V340))){ |
1744 |
goto T631;} |
goto T632;} |
1745 |
base[0]= elt((V327),V350); |
base[0]= elt((V327),V350); |
1746 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1747 |
super_funcall_no_event((V334)); |
super_funcall_no_event((V334)); |
1748 |
vs_top=sup; |
vs_top=sup; |
1749 |
V355= vs_base[0]; |
V355= vs_base[0]; |
1750 |
if(((*(LnkLI41))((V329),(V330),(V326),V355))==Cnil){ |
if(((*(LnkLI43))((V329),(V330),(V326),V355))==Cnil){ |
1751 |
goto T631;} |
goto T632;} |
1752 |
(void)(elt_set((V349),V350,(V325))); |
(void)(elt_set((V349),V350,(V325))); |
1753 |
V351= (long)(1)+(V351); |
V351= (long)(1)+(V351); |
1754 |
goto T629; |
goto T630; |
1755 |
goto T631; |
goto T632; |
1756 |
T631:; |
T632:; |
1757 |
V356= elt((V327),V350); |
V356= elt((V327),V350); |
1758 |
(void)(elt_set((V349),V350,/* INLINE-ARGS */V356)); |
(void)(elt_set((V349),V350,/* INLINE-ARGS */V356)); |
1759 |
goto T629; |
goto T630; |
1760 |
T629:; |
T630:; |
1761 |
V350= (long)(-1)+(V350); |
V350= (long)(-1)+(V350); |
1762 |
goto T624;}}}}} |
goto T625;}}}}} |
1763 |
va_end(ap); |
va_end(ap); |
1764 |
base[0]=base[0]; |
base[0]=base[0]; |
1765 |
return Cnil;} |
return Cnil;} |
1794 |
V365=(Vcs[5]); |
V365=(Vcs[5]); |
1795 |
V366=(Vcs[6]); |
V366=(Vcs[6]); |
1796 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1797 |
V367= symbol_function(VV[33]); |
V367= symbol_function(VV[35]); |
1798 |
}else{ |
}else{ |
1799 |
V367=(Vcs[7]);} |
V367=(Vcs[7]);} |
1800 |
if(!(((V367))==(Cnil))){ |
if(!(((V367))==(Cnil))){ |
1801 |
goto T647;} |
goto T648;} |
1802 |
V367= symbol_function(VV[33]); |
V367= symbol_function(VV[35]); |
1803 |
goto T647; |
goto T648; |
1804 |
T647:; |
T648:; |
1805 |
V368= symbol_function(VV[44]); |
V368= symbol_function(VV[46]); |
1806 |
{object V369 = (VFUN_NARGS=15,(*(LnkLI49))((V360),(V361),(V362),VV[10],(V363),VV[11],V368,VV[13],(V364),VV[14],(V365),VV[15],(V366),VV[16],(V367))); |
{object V369 = (VFUN_NARGS=15,(*(LnkLI51))((V360),(V361),(V362),VV[11],(V363),VV[12],V368,VV[14],(V364),VV[15],(V365),VV[16],(V366),VV[17],(V367))); |
1807 |
VMR24(V369)} |
VMR24(V369)} |
1808 |
va_end(ap); |
va_end(ap); |
1809 |
return Cnil;} |
return Cnil;} |
1838 |
V378=(Vcs[5]); |
V378=(Vcs[5]); |
1839 |
V379=(Vcs[6]); |
V379=(Vcs[6]); |
1840 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1841 |
V380= symbol_function(VV[33]); |
V380= symbol_function(VV[35]); |
1842 |
}else{ |
}else{ |
1843 |
V380=(Vcs[7]);} |
V380=(Vcs[7]);} |
1844 |
if(!(((V380))==(Cnil))){ |
if(!(((V380))==(Cnil))){ |
1845 |
goto T653;} |
goto T654;} |
1846 |
V380= symbol_function(VV[33]); |
V380= symbol_function(VV[35]); |
1847 |
goto T653; |
goto T654; |
1848 |
T653:; |
T654:; |
1849 |
V381= symbol_function(VV[44]); |
V381= symbol_function(VV[46]); |
1850 |
{object V382 = (VFUN_NARGS=15,(*(LnkLI49))((V373),(V374),(V375),VV[10],(V376),VV[12],V381,VV[13],(V377),VV[14],(V378),VV[15],(V379),VV[16],(V380))); |
{object V382 = (VFUN_NARGS=15,(*(LnkLI51))((V373),(V374),(V375),VV[11],(V376),VV[13],V381,VV[14],(V377),VV[15],(V378),VV[16],(V379),VV[17],(V380))); |
1851 |
VMR25(V382)} |
VMR25(V382)} |
1852 |
va_end(ap); |
va_end(ap); |
1853 |
return Cnil;} |
return Cnil;} |
1886 |
V393=(Vcs[7]); |
V393=(Vcs[7]); |
1887 |
V394=(Vcs[8]); |
V394=(Vcs[8]); |
1888 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1889 |
V395= symbol_function(VV[33]); |
V395= symbol_function(VV[35]); |
1890 |
}else{ |
}else{ |
1891 |
V395=(Vcs[9]);} |
V395=(Vcs[9]);} |
1892 |
if(!(((V395))==(Cnil))){ |
if(!(((V395))==(Cnil))){ |
1893 |
goto T659;} |
goto T660;} |
1894 |
V395= symbol_function(VV[33]); |
V395= symbol_function(VV[35]); |
1895 |
goto T659; |
goto T660; |
1896 |
T659:; |
T660:; |
1897 |
{long V396; |
{long V396; |
1898 |
if(((V392))==Cnil){ |
if(((V392))==Cnil){ |
1899 |
goto T665;} |
goto T666;} |
1900 |
V396= (long)(*(LnkLI34))((V392)); |
V396= (long)(*(LnkLI36))((V392)); |
1901 |
goto T663; |
goto T664; |
1902 |
goto T665; |
goto T666; |
1903 |
T665:; |
T666:; |
1904 |
V396= 0; |
V396= 0; |
1905 |
goto T663; |
goto T664; |
1906 |
T663:; |
T664:; |
1907 |
{long V397; |
{long V397; |
1908 |
V397= (long)(*(LnkLI35))((V393),(V388)); |
V397= (long)(*(LnkLI37))((V393),(V388)); |
1909 |
if(!((V396)<=(V397))){ |
if(!((V396)<=(V397))){ |
1910 |
goto T669;} |
goto T670;} |
1911 |
goto T668; |
goto T669; |
1912 |
goto T669; |
goto T670; |
1913 |
T669:; |
T670:; |
1914 |
V398 = make_fixnum(V396); |
V398 = make_fixnum(V396); |
1915 |
V399 = make_fixnum(V397); |
V399 = make_fixnum(V397); |
1916 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V398,V399))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V398,V399))); |
1917 |
goto T668; |
goto T669; |
1918 |
T668:; |
T669:; |
1919 |
{long V400; |
{long V400; |
1920 |
if(((V394))!=Cnil){ |
if(((V394))!=Cnil){ |
1921 |
goto T673;} |
goto T674;} |
1922 |
V400= 2147483647; |
V400= 2147483647; |
1923 |
goto T671; |
goto T672; |
1924 |
goto T673; |
goto T674; |
1925 |
T673:; |
T674:; |
1926 |
V400= fix((V394)); |
V400= fix((V394)); |
1927 |
goto T671; |
goto T672; |
1928 |
T671:; |
T672:; |
1929 |
if((V390)==Cnil){ |
if((V390)==Cnil){ |
1930 |
goto T676;} |
goto T677;} |
1931 |
if((V391)==Cnil){ |
if((V391)==Cnil){ |
1932 |
goto T676;} |
goto T677;} |
1933 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
1934 |
goto T676; |
goto T677; |
1935 |
T676:; |
T677:; |
1936 |
if(((V389))!=Cnil){ |
if(((V389))!=Cnil){ |
1937 |
goto T678;} |
goto T679;} |
1938 |
{register long V401; |
{register long V401; |
1939 |
register long V402; |
register long V402; |
1940 |
V401= V396; |
V401= V396; |
1941 |
V402= 0; |
V402= 0; |
1942 |
goto T683; |
goto T684; |
1943 |
T683:; |
T684:; |
1944 |
if(!((V401)>=(V397))){ |
if(!((V401)>=(V397))){ |
1945 |
goto T684;} |
goto T685;} |
1946 |
{object V403 = (V388); |
{object V403 = (V388); |
1947 |
VMR26(V403)} |
VMR26(V403)} |
1948 |
goto T684; |
goto T685; |
1949 |
T684:; |
T685:; |
1950 |
if(!((V402)<(V400))){ |
if(!((V402)<(V400))){ |
1951 |
goto T688;} |
goto T689;} |
1952 |
base[0]= elt((V388),V401); |
base[0]= elt((V388),V401); |
1953 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1954 |
super_funcall_no_event((V395)); |
super_funcall_no_event((V395)); |
1955 |
vs_top=sup; |
vs_top=sup; |
1956 |
V404= vs_base[0]; |
V404= vs_base[0]; |
1957 |
if(((*(LnkLI41))((V390),(V391),(V387),V404))==Cnil){ |
if(((*(LnkLI43))((V390),(V391),(V387),V404))==Cnil){ |
1958 |
goto T688;} |
goto T689;} |
1959 |
(void)(elt_set((V388),V401,(V386))); |
(void)(elt_set((V388),V401,(V386))); |
1960 |
V402= (long)(1)+(V402); |
V402= (long)(1)+(V402); |
1961 |
goto T688; |
goto T689; |
1962 |
T688:; |
T689:; |
1963 |
V401= (long)(1)+(V401); |
V401= (long)(1)+(V401); |
1964 |
goto T683;} |
goto T684;} |
1965 |
goto T678; |
goto T679; |
1966 |
T678:; |
T679:; |
1967 |
{register long V405; |
{register long V405; |
1968 |
register long V406; |
register long V406; |
1969 |
V405= (long)(-1)+(V397); |
V405= (long)(-1)+(V397); |
1970 |
V406= 0; |
V406= 0; |
1971 |
goto T703; |
goto T704; |
1972 |
T703:; |
T704:; |
1973 |
if(!((V405)<(V396))){ |
if(!((V405)<(V396))){ |
1974 |
goto T704;} |
goto T705;} |
1975 |
{object V407 = (V388); |
{object V407 = (V388); |
1976 |
VMR26(V407)} |
VMR26(V407)} |
1977 |
goto T704; |
goto T705; |
1978 |
T704:; |
T705:; |
1979 |
if(!((V406)<(V400))){ |
if(!((V406)<(V400))){ |
1980 |
goto T708;} |
goto T709;} |
1981 |
base[0]= elt((V388),V405); |
base[0]= elt((V388),V405); |
1982 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1983 |
super_funcall_no_event((V395)); |
super_funcall_no_event((V395)); |
1984 |
vs_top=sup; |
vs_top=sup; |
1985 |
V408= vs_base[0]; |
V408= vs_base[0]; |
1986 |
if(((*(LnkLI41))((V390),(V391),(V387),V408))==Cnil){ |
if(((*(LnkLI43))((V390),(V391),(V387),V408))==Cnil){ |
1987 |
goto T708;} |
goto T709;} |
1988 |
(void)(elt_set((V388),V405,(V386))); |
(void)(elt_set((V388),V405,(V386))); |
1989 |
V406= (long)(1)+(V406); |
V406= (long)(1)+(V406); |
1990 |
goto T708; |
goto T709; |
1991 |
T708:; |
T709:; |
1992 |
V405= (long)(-1)+(V405); |
V405= (long)(-1)+(V405); |
1993 |
goto T703;}}}} |
goto T704;}}}} |
1994 |
va_end(ap); |
va_end(ap); |
1995 |
base[0]=base[0]; |
base[0]=base[0]; |
1996 |
return Cnil;} |
return Cnil;} |
2025 |
V417=(Vcs[5]); |
V417=(Vcs[5]); |
2026 |
V418=(Vcs[6]); |
V418=(Vcs[6]); |
2027 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2028 |
V419= symbol_function(VV[33]); |
V419= symbol_function(VV[35]); |
2029 |
}else{ |
}else{ |
2030 |
V419=(Vcs[7]);} |
V419=(Vcs[7]);} |
2031 |
if(!(((V419))==(Cnil))){ |
if(!(((V419))==(Cnil))){ |
2032 |
goto T721;} |
goto T722;} |
2033 |
V419= symbol_function(VV[33]); |
V419= symbol_function(VV[35]); |
2034 |
goto T721; |
goto T722; |
2035 |
T721:; |
T722:; |
2036 |
V420= symbol_function(VV[44]); |
V420= symbol_function(VV[46]); |
2037 |
{object V421 = (VFUN_NARGS=15,(*(LnkLI50))((V412),(V413),(V414),VV[10],(V415),VV[11],V420,VV[13],(V416),VV[14],(V417),VV[15],(V418),VV[16],(V419))); |
{object V421 = (VFUN_NARGS=15,(*(LnkLI52))((V412),(V413),(V414),VV[11],(V415),VV[12],V420,VV[14],(V416),VV[15],(V417),VV[16],(V418),VV[17],(V419))); |
2038 |
VMR27(V421)} |
VMR27(V421)} |
2039 |
va_end(ap); |
va_end(ap); |
2040 |
return Cnil;} |
return Cnil;} |
2069 |
V430=(Vcs[5]); |
V430=(Vcs[5]); |
2070 |
V431=(Vcs[6]); |
V431=(Vcs[6]); |
2071 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2072 |
V432= symbol_function(VV[33]); |
V432= symbol_function(VV[35]); |
2073 |
}else{ |
}else{ |
2074 |
V432=(Vcs[7]);} |
V432=(Vcs[7]);} |
2075 |
if(!(((V432))==(Cnil))){ |
if(!(((V432))==(Cnil))){ |
2076 |
goto T727;} |
goto T728;} |
2077 |
V432= symbol_function(VV[33]); |
V432= symbol_function(VV[35]); |
2078 |
goto T727; |
goto T728; |
2079 |
T727:; |
T728:; |
2080 |
V433= symbol_function(VV[44]); |
V433= symbol_function(VV[46]); |
2081 |
{object V434 = (VFUN_NARGS=15,(*(LnkLI50))((V425),(V426),(V427),VV[10],(V428),VV[12],V433,VV[13],(V429),VV[14],(V430),VV[15],(V431),VV[16],(V432))); |
{object V434 = (VFUN_NARGS=15,(*(LnkLI52))((V425),(V426),(V427),VV[11],(V428),VV[13],V433,VV[14],(V429),VV[15],(V430),VV[16],(V431),VV[17],(V432))); |
2082 |
VMR28(V434)} |
VMR28(V434)} |
2083 |
va_end(ap); |
va_end(ap); |
2084 |
return Cnil;} |
return Cnil;} |
2113 |
V442=(Vcs[5]); |
V442=(Vcs[5]); |
2114 |
V443=(Vcs[6]); |
V443=(Vcs[6]); |
2115 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2116 |
V444= symbol_function(VV[33]); |
V444= symbol_function(VV[35]); |
2117 |
}else{ |
}else{ |
2118 |
V444=(Vcs[7]);} |
V444=(Vcs[7]);} |
2119 |
if(!(((V444))==(Cnil))){ |
if(!(((V444))==(Cnil))){ |
2120 |
goto T733;} |
goto T734;} |
2121 |
V444= symbol_function(VV[33]); |
V444= symbol_function(VV[35]); |
2122 |
goto T733; |
goto T734; |
2123 |
T733:; |
T734:; |
2124 |
{long V445; |
{long V445; |
2125 |
if(((V442))==Cnil){ |
if(((V442))==Cnil){ |
2126 |
goto T739;} |
goto T740;} |
2127 |
V445= (long)(*(LnkLI34))((V442)); |
V445= (long)(*(LnkLI36))((V442)); |
2128 |
goto T737; |
goto T738; |
2129 |
goto T739; |
goto T740; |
2130 |
T739:; |
T740:; |
2131 |
V445= 0; |
V445= 0; |
2132 |
goto T737; |
goto T738; |
2133 |
T737:; |
T738:; |
2134 |
{long V446; |
{long V446; |
2135 |
V446= (long)(*(LnkLI35))((V443),(V438)); |
V446= (long)(*(LnkLI37))((V443),(V438)); |
2136 |
if(!((V445)<=(V446))){ |
if(!((V445)<=(V446))){ |
2137 |
goto T743;} |
goto T744;} |
2138 |
goto T742; |
goto T743; |
2139 |
goto T743; |
goto T744; |
2140 |
T743:; |
T744:; |
2141 |
V447 = make_fixnum(V445); |
V447 = make_fixnum(V445); |
2142 |
V448 = make_fixnum(V446); |
V448 = make_fixnum(V446); |
2143 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V447,V448))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V447,V448))); |
2144 |
goto T742; |
goto T743; |
2145 |
T742:; |
T743:; |
2146 |
if((V440)==Cnil){ |
if((V440)==Cnil){ |
2147 |
goto T745;} |
goto T746;} |
2148 |
if((V441)==Cnil){ |
if((V441)==Cnil){ |
2149 |
goto T745;} |
goto T746;} |
2150 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
2151 |
goto T745; |
goto T746; |
2152 |
T745:; |
T746:; |
2153 |
if(((V439))!=Cnil){ |
if(((V439))!=Cnil){ |
2154 |
goto T747;} |
goto T748;} |
2155 |
{register long V449; |
{register long V449; |
2156 |
V449= V445; |
V449= V445; |
2157 |
goto T751; |
goto T752; |
2158 |
T751:; |
T752:; |
2159 |
if(!((V449)>=(V446))){ |
if(!((V449)>=(V446))){ |
2160 |
goto T752;} |
goto T753;} |
2161 |
{object V450 = Cnil; |
{object V450 = Cnil; |
2162 |
VMR29(V450)} |
VMR29(V450)} |
2163 |
goto T752; |
goto T753; |
2164 |
T752:; |
T753:; |
2165 |
base[0]= elt((V438),V449); |
base[0]= elt((V438),V449); |
2166 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2167 |
super_funcall_no_event((V444)); |
super_funcall_no_event((V444)); |
2168 |
vs_top=sup; |
vs_top=sup; |
2169 |
V451= vs_base[0]; |
V451= vs_base[0]; |
2170 |
if(((*(LnkLI41))((V440),(V441),(V437),V451))==Cnil){ |
if(((*(LnkLI43))((V440),(V441),(V437),V451))==Cnil){ |
2171 |
goto T756;} |
goto T757;} |
2172 |
{object V452 = elt((V438),V449); |
{object V452 = elt((V438),V449); |
2173 |
VMR29(V452)} |
VMR29(V452)} |
2174 |
goto T756; |
goto T757; |
2175 |
T756:; |
T757:; |
2176 |
V449= (long)(1)+(V449); |
V449= (long)(1)+(V449); |
2177 |
goto T751;} |
goto T752;} |
2178 |
goto T747; |
goto T748; |
2179 |
T747:; |
T748:; |
2180 |
{register long V453; |
{register long V453; |
2181 |
V453= (long)(-1)+(V446); |
V453= (long)(-1)+(V446); |
2182 |
goto T766; |
goto T767; |
2183 |
T766:; |
T767:; |
2184 |
if(!((V453)<(V445))){ |
if(!((V453)<(V445))){ |
2185 |
goto T767;} |
goto T768;} |
2186 |
{object V454 = Cnil; |
{object V454 = Cnil; |
2187 |
VMR29(V454)} |
VMR29(V454)} |
2188 |
goto T767; |
goto T768; |
2189 |
T767:; |
T768:; |
2190 |
base[0]= elt((V438),V453); |
base[0]= elt((V438),V453); |
2191 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2192 |
super_funcall_no_event((V444)); |
super_funcall_no_event((V444)); |
2193 |
vs_top=sup; |
vs_top=sup; |
2194 |
V455= vs_base[0]; |
V455= vs_base[0]; |
2195 |
if(((*(LnkLI41))((V440),(V441),(V437),V455))==Cnil){ |
if(((*(LnkLI43))((V440),(V441),(V437),V455))==Cnil){ |
2196 |
goto T771;} |
goto T772;} |
2197 |
{object V456 = elt((V438),V453); |
{object V456 = elt((V438),V453); |
2198 |
VMR29(V456)} |
VMR29(V456)} |
2199 |
goto T771; |
goto T772; |
2200 |
T771:; |
T772:; |
2201 |
V453= (long)(-1)+(V453); |
V453= (long)(-1)+(V453); |
2202 |
goto T766;}}} |
goto T767;}}} |
2203 |
va_end(ap); |
va_end(ap); |
2204 |
base[0]=base[0]; |
base[0]=base[0]; |
2205 |
return Cnil;} |
return Cnil;} |
2230 |
V462=(Vcs[3]); |
V462=(Vcs[3]); |
2231 |
V463=(Vcs[4]); |
V463=(Vcs[4]); |
2232 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2233 |
V464= symbol_function(VV[33]); |
V464= symbol_function(VV[35]); |
2234 |
}else{ |
}else{ |
2235 |
V464=(Vcs[5]);} |
V464=(Vcs[5]);} |
2236 |
if(!(((V464))==(Cnil))){ |
if(!(((V464))==(Cnil))){ |
2237 |
goto T780;} |
goto T781;} |
2238 |
V464= symbol_function(VV[33]); |
V464= symbol_function(VV[35]); |
2239 |
goto T780; |
goto T781; |
2240 |
T780:; |
T781:; |
2241 |
V465= symbol_function(VV[44]); |
V465= symbol_function(VV[46]); |
2242 |
{object V466 = (VFUN_NARGS=12,(*(LnkLI51))((V459),(V460),VV[10],(V461),VV[11],V465,VV[13],(V462),VV[14],(V463),VV[16],(V464))); |
{object V466 = (VFUN_NARGS=12,(*(LnkLI53))((V459),(V460),VV[11],(V461),VV[12],V465,VV[14],(V462),VV[15],(V463),VV[17],(V464))); |
2243 |
VMR30(V466)} |
VMR30(V466)} |
2244 |
va_end(ap); |
va_end(ap); |
2245 |
return Cnil;} |
return Cnil;} |
2270 |
V472=(Vcs[3]); |
V472=(Vcs[3]); |
2271 |
V473=(Vcs[4]); |
V473=(Vcs[4]); |
2272 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2273 |
V474= symbol_function(VV[33]); |
V474= symbol_function(VV[35]); |
2274 |
}else{ |
}else{ |
2275 |
V474=(Vcs[5]);} |
V474=(Vcs[5]);} |
2276 |
if(!(((V474))==(Cnil))){ |
if(!(((V474))==(Cnil))){ |
2277 |
goto T786;} |
goto T787;} |
2278 |
V474= symbol_function(VV[33]); |
V474= symbol_function(VV[35]); |
2279 |
goto T786; |
goto T787; |
2280 |
T786:; |
T787:; |
2281 |
V475= symbol_function(VV[44]); |
V475= symbol_function(VV[46]); |
2282 |
{object V476 = (VFUN_NARGS=12,(*(LnkLI51))((V469),(V470),VV[10],(V471),VV[12],V475,VV[13],(V472),VV[14],(V473),VV[16],(V474))); |
{object V476 = (VFUN_NARGS=12,(*(LnkLI53))((V469),(V470),VV[11],(V471),VV[13],V475,VV[14],(V472),VV[15],(V473),VV[17],(V474))); |
2283 |
VMR31(V476)} |
VMR31(V476)} |
2284 |
va_end(ap); |
va_end(ap); |
2285 |
return Cnil;} |
return Cnil;} |
2314 |
V484=(Vcs[5]); |
V484=(Vcs[5]); |
2315 |
V485=(Vcs[6]); |
V485=(Vcs[6]); |
2316 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2317 |
V486= symbol_function(VV[33]); |
V486= symbol_function(VV[35]); |
2318 |
}else{ |
}else{ |
2319 |
V486=(Vcs[7]);} |
V486=(Vcs[7]);} |
2320 |
if(!(((V486))==(Cnil))){ |
if(!(((V486))==(Cnil))){ |
2321 |
goto T792;} |
goto T793;} |
2322 |
V486= symbol_function(VV[33]); |
V486= symbol_function(VV[35]); |
2323 |
goto T792; |
goto T793; |
2324 |
T792:; |
T793:; |
2325 |
{long V487; |
{long V487; |
2326 |
if(((V484))==Cnil){ |
if(((V484))==Cnil){ |
2327 |
goto T798;} |
goto T799;} |
2328 |
V487= (long)(*(LnkLI34))((V484)); |
V487= (long)(*(LnkLI36))((V484)); |
2329 |
goto T796; |
goto T797; |
2330 |
goto T798; |
goto T799; |
2331 |
T798:; |
T799:; |
2332 |
V487= 0; |
V487= 0; |
2333 |
goto T796; |
goto T797; |
2334 |
T796:; |
T797:; |
2335 |
{long V488; |
{long V488; |
2336 |
V488= (long)(*(LnkLI35))((V485),(V480)); |
V488= (long)(*(LnkLI37))((V485),(V480)); |
2337 |
if(!((V487)<=(V488))){ |
if(!((V487)<=(V488))){ |
2338 |
goto T802;} |
goto T803;} |
2339 |
goto T801; |
goto T802; |
2340 |
goto T802; |
goto T803; |
2341 |
T802:; |
T803:; |
2342 |
V489 = make_fixnum(V487); |
V489 = make_fixnum(V487); |
2343 |
V490 = make_fixnum(V488); |
V490 = make_fixnum(V488); |
2344 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V489,V490))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V489,V490))); |
2345 |
goto T801; |
goto T802; |
2346 |
T801:; |
T802:; |
2347 |
if((V482)==Cnil){ |
if((V482)==Cnil){ |
2348 |
goto T804;} |
goto T805;} |
2349 |
if((V483)==Cnil){ |
if((V483)==Cnil){ |
2350 |
goto T804;} |
goto T805;} |
2351 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
2352 |
goto T804; |
goto T805; |
2353 |
T804:; |
T805:; |
2354 |
if(((V481))!=Cnil){ |
if(((V481))!=Cnil){ |
2355 |
goto T806;} |
goto T807;} |
2356 |
{register long V491; |
{register long V491; |
2357 |
V491= V487; |
V491= V487; |
2358 |
goto T810; |
goto T811; |
2359 |
T810:; |
T811:; |
2360 |
if(!((V491)>=(V488))){ |
if(!((V491)>=(V488))){ |
2361 |
goto T811;} |
goto T812;} |
2362 |
{object V492 = Cnil; |
{object V492 = Cnil; |
2363 |
VMR32(V492)} |
VMR32(V492)} |
2364 |
goto T811; |
goto T812; |
2365 |
T811:; |
T812:; |
2366 |
base[0]= elt((V480),V491); |
base[0]= elt((V480),V491); |
2367 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2368 |
super_funcall_no_event((V486)); |
super_funcall_no_event((V486)); |
2369 |
vs_top=sup; |
vs_top=sup; |
2370 |
V493= vs_base[0]; |
V493= vs_base[0]; |
2371 |
if(((*(LnkLI41))((V482),(V483),(V479),V493))==Cnil){ |
if(((*(LnkLI43))((V482),(V483),(V479),V493))==Cnil){ |
2372 |
goto T815;} |
goto T816;} |
2373 |
{object V494 = make_fixnum(V491); |
{object V494 = make_fixnum(V491); |
2374 |
VMR32(V494)} |
VMR32(V494)} |
2375 |
goto T815; |
goto T816; |
2376 |
T815:; |
T816:; |
2377 |
V491= (long)(1)+(V491); |
V491= (long)(1)+(V491); |
2378 |
goto T810;} |
goto T811;} |
2379 |
goto T806; |
goto T807; |
2380 |
T806:; |
T807:; |
2381 |
{register long V495; |
{register long V495; |
2382 |
V495= (long)(-1)+(V488); |
V495= (long)(-1)+(V488); |
2383 |
goto T825; |
goto T826; |
2384 |
T825:; |
T826:; |
2385 |
if(!((V495)<(V487))){ |
if(!((V495)<(V487))){ |
2386 |
goto T826;} |
goto T827;} |
2387 |
{object V496 = Cnil; |
{object V496 = Cnil; |
2388 |
VMR32(V496)} |
VMR32(V496)} |
2389 |
goto T826; |
goto T827; |
2390 |
T826:; |
T827:; |
2391 |
base[0]= elt((V480),V495); |
base[0]= elt((V480),V495); |
2392 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2393 |
super_funcall_no_event((V486)); |
super_funcall_no_event((V486)); |
2394 |
vs_top=sup; |
vs_top=sup; |
2395 |
V497= vs_base[0]; |
V497= vs_base[0]; |
2396 |
if(((*(LnkLI41))((V482),(V483),(V479),V497))==Cnil){ |
if(((*(LnkLI43))((V482),(V483),(V479),V497))==Cnil){ |
2397 |
goto T830;} |
goto T831;} |
2398 |
{object V498 = make_fixnum(V495); |
{object V498 = make_fixnum(V495); |
2399 |
VMR32(V498)} |
VMR32(V498)} |
2400 |
goto T830; |
goto T831; |
2401 |
T830:; |
T831:; |
2402 |
V495= (long)(-1)+(V495); |
V495= (long)(-1)+(V495); |
2403 |
goto T825;}}} |
goto T826;}}} |
2404 |
va_end(ap); |
va_end(ap); |
2405 |
base[0]=base[0]; |
base[0]=base[0]; |
2406 |
return Cnil;} |
return Cnil;} |
2431 |
V504=(Vcs[3]); |
V504=(Vcs[3]); |
2432 |
V505=(Vcs[4]); |
V505=(Vcs[4]); |
2433 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2434 |
V506= symbol_function(VV[33]); |
V506= symbol_function(VV[35]); |
2435 |
}else{ |
}else{ |
2436 |
V506=(Vcs[5]);} |
V506=(Vcs[5]);} |
2437 |
if(!(((V506))==(Cnil))){ |
if(!(((V506))==(Cnil))){ |
2438 |
goto T839;} |
goto T840;} |
2439 |
V506= symbol_function(VV[33]); |
V506= symbol_function(VV[35]); |
2440 |
goto T839; |
goto T840; |
2441 |
T839:; |
T840:; |
2442 |
V507= symbol_function(VV[44]); |
V507= symbol_function(VV[46]); |
2443 |
{object V508 = (VFUN_NARGS=12,(*(LnkLI52))((V501),(V502),VV[10],(V503),VV[11],V507,VV[13],(V504),VV[14],(V505),VV[16],(V506))); |
{object V508 = (VFUN_NARGS=12,(*(LnkLI54))((V501),(V502),VV[11],(V503),VV[12],V507,VV[14],(V504),VV[15],(V505),VV[17],(V506))); |
2444 |
VMR33(V508)} |
VMR33(V508)} |
2445 |
va_end(ap); |
va_end(ap); |
2446 |
return Cnil;} |
return Cnil;} |
2471 |
V514=(Vcs[3]); |
V514=(Vcs[3]); |
2472 |
V515=(Vcs[4]); |
V515=(Vcs[4]); |
2473 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2474 |
V516= symbol_function(VV[33]); |
V516= symbol_function(VV[35]); |
2475 |
}else{ |
}else{ |
2476 |
V516=(Vcs[5]);} |
V516=(Vcs[5]);} |
2477 |
if(!(((V516))==(Cnil))){ |
if(!(((V516))==(Cnil))){ |
2478 |
goto T845;} |
goto T846;} |
2479 |
V516= symbol_function(VV[33]); |
V516= symbol_function(VV[35]); |
2480 |
goto T845; |
goto T846; |
2481 |
T845:; |
T846:; |
2482 |
V517= symbol_function(VV[44]); |
V517= symbol_function(VV[46]); |
2483 |
{object V518 = (VFUN_NARGS=12,(*(LnkLI52))((V511),(V512),VV[10],(V513),VV[12],V517,VV[13],(V514),VV[14],(V515),VV[16],(V516))); |
{object V518 = (VFUN_NARGS=12,(*(LnkLI54))((V511),(V512),VV[11],(V513),VV[13],V517,VV[14],(V514),VV[15],(V515),VV[17],(V516))); |
2484 |
VMR34(V518)} |
VMR34(V518)} |
2485 |
va_end(ap); |
va_end(ap); |
2486 |
return Cnil;} |
return Cnil;} |
2513 |
V524=(Vcs[4]); |
V524=(Vcs[4]); |
2514 |
V525=(Vcs[5]); |
V525=(Vcs[5]); |
2515 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2516 |
V526= symbol_function(VV[33]); |
V526= symbol_function(VV[35]); |
2517 |
}else{ |
}else{ |
2518 |
V526=(Vcs[6]);} |
V526=(Vcs[6]);} |
2519 |
if((V522)==Cnil){ |
if((V522)==Cnil){ |
2520 |
goto T851;} |
goto T852;} |
2521 |
if((V523)==Cnil){ |
if((V523)==Cnil){ |
|
goto T851;} |
|
|
(void)((*(LnkLI40))()); |
|
|
goto T851; |
|
|
T851:; |
|
|
if(!(type_of((V520))==t_cons||((V520))==Cnil)){ |
|
2522 |
goto T852;} |
goto T852;} |
2523 |
|
(void)((*(LnkLI42))()); |
2524 |
|
goto T852; |
2525 |
|
T852:; |
2526 |
|
if(!(type_of((V520))==t_cons||((V520))==Cnil)){ |
2527 |
|
goto T853;} |
2528 |
if(((V521))!=Cnil){ |
if(((V521))!=Cnil){ |
2529 |
goto T852;} |
goto T853;} |
2530 |
if(((V524))!=Cnil){ |
if(((V524))!=Cnil){ |
2531 |
goto T852;} |
goto T853;} |
2532 |
if(((V525))!=Cnil){ |
if(((V525))!=Cnil){ |
2533 |
goto T852;} |
goto T853;} |
2534 |
if(!(endp_prop((V520)))){ |
if(!(endp_prop((V520)))){ |
2535 |
goto T861;} |
goto T862;} |
2536 |
{object V527 = Cnil; |
{object V527 = Cnil; |
2537 |
VMR35(V527)} |
VMR35(V527)} |
2538 |
goto T861; |
goto T862; |
2539 |
T861:; |
T862:; |
2540 |
{register object V528; |
{register object V528; |
2541 |
register object V529; |
register object V529; |
2542 |
V528= (V520); |
V528= (V520); |
2543 |
V529= Cnil; |
V529= Cnil; |
2544 |
goto T865; |
goto T866; |
2545 |
T865:; |
T866:; |
2546 |
if(!(endp_prop(cdr((V528))))){ |
if(!(endp_prop(cdr((V528))))){ |
2547 |
goto T866;} |
goto T867;} |
2548 |
base[0]= (V529); |
base[0]= (V529); |
2549 |
base[1]= (V528); |
base[1]= (V528); |
2550 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2552 |
vs_top=sup; |
vs_top=sup; |
2553 |
{object V530 = vs_base[0]; |
{object V530 = vs_base[0]; |
2554 |
VMR35(V530)} |
VMR35(V530)} |
2555 |
goto T866; |
goto T867; |
2556 |
T866:; |
T867:; |
2557 |
base[0]= car((V528)); |
base[0]= car((V528)); |
2558 |
base[1]= cdr((V528)); |
base[1]= cdr((V528)); |
2559 |
base[2]= VV[11]; |
base[2]= VV[12]; |
2560 |
base[3]= (V522); |
base[3]= (V522); |
2561 |
base[4]= VV[12]; |
base[4]= VV[13]; |
2562 |
base[5]= (V523); |
base[5]= (V523); |
2563 |
base[6]= VV[16]; |
base[6]= VV[17]; |
2564 |
base[7]= (V526); |
base[7]= (V526); |
2565 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2566 |
(void) (*Lnk53)(); |
(void) (*Lnk55)(); |
2567 |
vs_top=sup; |
vs_top=sup; |
2568 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2569 |
goto T872;} |
goto T873;} |
2570 |
V529= make_cons(car((V528)),(V529)); |
V529= make_cons(car((V528)),(V529)); |
2571 |
goto T872; |
goto T873; |
2572 |
T872:; |
T873:; |
2573 |
V528= cdr((V528)); |
V528= cdr((V528)); |
2574 |
goto T865;} |
goto T866;} |
2575 |
goto T852; |
goto T853; |
2576 |
T852:; |
T853:; |
2577 |
{object V531 = (VFUN_NARGS=13,(*(LnkLI54))((V520),VV[10],(V521),VV[11],(V522),VV[12],(V523),VV[13],(V524),VV[14],(V525),VV[16],(V526))); |
{object V531 = (VFUN_NARGS=13,(*(LnkLI56))((V520),VV[11],(V521),VV[12],(V522),VV[13],(V523),VV[14],(V524),VV[15],(V525),VV[17],(V526))); |
2578 |
VMR35(V531)} |
VMR35(V531)} |
2579 |
va_end(ap); |
va_end(ap); |
2580 |
base[0]=base[0]; |
base[0]=base[0]; |
2608 |
V537=(Vcs[4]); |
V537=(Vcs[4]); |
2609 |
V538=(Vcs[5]); |
V538=(Vcs[5]); |
2610 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2611 |
V539= symbol_function(VV[33]); |
V539= symbol_function(VV[35]); |
2612 |
}else{ |
}else{ |
2613 |
V539=(Vcs[6]);} |
V539=(Vcs[6]);} |
2614 |
{long V540; |
{long V540; |
2615 |
V540= (long)length((V533)); |
V540= (long)length((V533)); |
2616 |
if((V535)==Cnil){ |
if((V535)==Cnil){ |
2617 |
goto T889;} |
goto T890;} |
2618 |
if((V536)==Cnil){ |
if((V536)==Cnil){ |
|
goto T889;} |
|
|
(void)((*(LnkLI40))()); |
|
|
goto T889; |
|
|
T889:; |
|
|
if(!(type_of((V533))==t_cons||((V533))==Cnil)){ |
|
2619 |
goto T890;} |
goto T890;} |
2620 |
|
(void)((*(LnkLI42))()); |
2621 |
|
goto T890; |
2622 |
|
T890:; |
2623 |
|
if(!(type_of((V533))==t_cons||((V533))==Cnil)){ |
2624 |
|
goto T891;} |
2625 |
if(((V534))!=Cnil){ |
if(((V534))!=Cnil){ |
2626 |
goto T890;} |
goto T891;} |
2627 |
if(((V537))!=Cnil){ |
if(((V537))!=Cnil){ |
2628 |
goto T890;} |
goto T891;} |
2629 |
if(((V538))!=Cnil){ |
if(((V538))!=Cnil){ |
2630 |
goto T890;} |
goto T891;} |
2631 |
if(!(endp_prop((V533)))){ |
if(!(endp_prop((V533)))){ |
2632 |
goto T899;} |
goto T900;} |
2633 |
{object V541 = Cnil; |
{object V541 = Cnil; |
2634 |
VMR36(V541)} |
VMR36(V541)} |
2635 |
goto T899; |
goto T900; |
2636 |
T899:; |
T900:; |
2637 |
{register object V542; |
{register object V542; |
2638 |
V542= (V533); |
V542= (V533); |
2639 |
goto T903; |
goto T904; |
2640 |
T903:; |
T904:; |
2641 |
if(!(endp_prop(cdr((V542))))){ |
if(!(endp_prop(cdr((V542))))){ |
2642 |
goto T904;} |
goto T905;} |
2643 |
{object V543 = (V533); |
{object V543 = (V533); |
2644 |
VMR36(V543)} |
VMR36(V543)} |
2645 |
goto T904; |
goto T905; |
2646 |
T904:; |
T905:; |
2647 |
base[0]= car((V542)); |
base[0]= car((V542)); |
2648 |
base[1]= cdr((V542)); |
base[1]= cdr((V542)); |
2649 |
base[2]= VV[11]; |
base[2]= VV[12]; |
2650 |
base[3]= (V535); |
base[3]= (V535); |
2651 |
base[4]= VV[12]; |
base[4]= VV[13]; |
2652 |
base[5]= (V536); |
base[5]= (V536); |
2653 |
base[6]= VV[16]; |
base[6]= VV[17]; |
2654 |
base[7]= (V539); |
base[7]= (V539); |
2655 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2656 |
(void) (*Lnk53)(); |
(void) (*Lnk55)(); |
2657 |
vs_top=sup; |
vs_top=sup; |
2658 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2659 |
goto T910;} |
goto T911;} |
2660 |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
2661 |
((V542))->c.c_car = cadr((V542)); |
((V542))->c.c_car = cadr((V542)); |
2662 |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
2663 |
((V542))->c.c_cdr = cddr((V542)); |
((V542))->c.c_cdr = cddr((V542)); |
2664 |
goto T908; |
goto T909; |
2665 |
goto T910; |
goto T911; |
2666 |
T910:; |
T911:; |
2667 |
V542= cdr((V542)); |
V542= cdr((V542)); |
2668 |
goto T908; |
goto T909; |
2669 |
T908:; |
T909:; |
2670 |
goto T903;} |
goto T904;} |
2671 |
goto T890; |
goto T891; |
2672 |
T890:; |
T891:; |
2673 |
{register long V544; |
{register long V544; |
2674 |
if(((V537))==Cnil){ |
if(((V537))==Cnil){ |
2675 |
goto T926;} |
goto T927;} |
2676 |
V544= (long)(*(LnkLI34))((V537)); |
V544= (long)(*(LnkLI36))((V537)); |
2677 |
goto T924; |
goto T925; |
2678 |
goto T926; |
goto T927; |
2679 |
T926:; |
T927:; |
2680 |
V544= 0; |
V544= 0; |
2681 |
goto T924; |
goto T925; |
2682 |
T924:; |
T925:; |
2683 |
{register long V545; |
{register long V545; |
2684 |
V545= (long)(*(LnkLI35))((V538),(V533)); |
V545= (long)(*(LnkLI37))((V538),(V533)); |
2685 |
if(!((V544)<=(V545))){ |
if(!((V544)<=(V545))){ |
2686 |
goto T930;} |
goto T931;} |
2687 |
goto T929; |
goto T930; |
2688 |
goto T930; |
goto T931; |
2689 |
T930:; |
T931:; |
2690 |
V546 = make_fixnum(V544); |
V546 = make_fixnum(V544); |
2691 |
V547 = make_fixnum(V545); |
V547 = make_fixnum(V545); |
2692 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V546,V547))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V546,V547))); |
2693 |
goto T929; |
goto T930; |
2694 |
T929:; |
T930:; |
2695 |
if(((V534))!=Cnil){ |
if(((V534))!=Cnil){ |
2696 |
goto T933;} |
goto T934;} |
2697 |
{long V548; |
{long V548; |
2698 |
long V549; |
long V549; |
2699 |
V548= 0; |
V548= 0; |
2700 |
V549= V544; |
V549= V544; |
2701 |
goto T938; |
goto T939; |
2702 |
T938:; |
T939:; |
2703 |
if(!((V549)>=(V545))){ |
if(!((V549)>=(V545))){ |
2704 |
goto T939;} |
goto T940;} |
2705 |
{object V550; |
{object V550; |
2706 |
register long V551; |
register long V551; |
2707 |
long V552; |
long V552; |
2708 |
V553= (*(LnkLI47))((V533)); |
V553= (*(LnkLI49))((V533)); |
2709 |
V554 = make_fixnum((long)(V540)-(V548)); |
V554 = make_fixnum((long)(V540)-(V548)); |
2710 |
V550= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V553,V554)); |
V550= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V553,V554)); |
2711 |
V551= 0; |
V551= 0; |
2712 |
V552= 0; |
V552= 0; |
2713 |
goto T946; |
goto T947; |
2714 |
T946:; |
T947:; |
2715 |
if(!((V551)>=(V540))){ |
if(!((V551)>=(V540))){ |
2716 |
goto T947;} |
goto T948;} |
2717 |
{object V555 = (V550); |
{object V555 = (V550); |
2718 |
VMR36(V555)} |
VMR36(V555)} |
2719 |
goto T947; |
goto T948; |
2720 |
T947:; |
T948:; |
2721 |
{object V556; |
{object V556; |
2722 |
if((V544)<=(V551)){ |
if((V544)<=(V551)){ |
2723 |
goto T953;} |
goto T954;} |
2724 |
V556= Cnil; |
V556= Cnil; |
2725 |
goto T952; |
goto T953; |
2726 |
goto T953; |
goto T954; |
2727 |
T953:; |
T954:; |
2728 |
if((V551)<(V545)){ |
if((V551)<(V545)){ |
2729 |
goto T955;} |
goto T956;} |
2730 |
V556= Cnil; |
V556= Cnil; |
2731 |
goto T952; |
goto T953; |
2732 |
goto T955; |
goto T956; |
2733 |
T955:; |
T956:; |
2734 |
base[0]= elt((V533),V551); |
base[0]= elt((V533),V551); |
2735 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2736 |
super_funcall_no_event((V539)); |
super_funcall_no_event((V539)); |
2738 |
V557= vs_base[0]; |
V557= vs_base[0]; |
2739 |
V558 = make_fixnum((long)(1)+(V551)); |
V558 = make_fixnum((long)(1)+(V551)); |
2740 |
V559 = make_fixnum(V545); |
V559 = make_fixnum(V545); |
2741 |
V556= (VFUN_NARGS=12,(*(LnkLI52))(V557,(V533),VV[11],(V535),VV[12],(V536),VV[13],V558,VV[14],V559,VV[16],(V539))); |
V556= (VFUN_NARGS=12,(*(LnkLI54))(V557,(V533),VV[12],(V535),VV[13],(V536),VV[14],V558,VV[15],V559,VV[17],(V539))); |
2742 |
goto T952; |
goto T953; |
2743 |
T952:; |
T953:; |
2744 |
if(((V556))==Cnil){ |
if(((V556))==Cnil){ |
2745 |
goto T960;} |
goto T961;} |
2746 |
goto T951; |
goto T952; |
2747 |
goto T960; |
goto T961; |
2748 |
T960:; |
T961:; |
2749 |
V560= elt((V533),V551); |
V560= elt((V533),V551); |
2750 |
(void)(elt_set((V550),V552,/* INLINE-ARGS */V560)); |
(void)(elt_set((V550),V552,/* INLINE-ARGS */V560)); |
2751 |
V552= (long)(1)+(V552);} |
V552= (long)(1)+(V552);} |
2752 |
goto T951; |
goto T952; |
2753 |
T951:; |
T952:; |
2754 |
V551= (long)(1)+(V551); |
V551= (long)(1)+(V551); |
2755 |
goto T946;} |
goto T947;} |
2756 |
goto T939; |
goto T940; |
2757 |
T939:; |
T940:; |
2758 |
base[0]= elt((V533),V549); |
base[0]= elt((V533),V549); |
2759 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2760 |
super_funcall_no_event((V539)); |
super_funcall_no_event((V539)); |
2762 |
V561= vs_base[0]; |
V561= vs_base[0]; |
2763 |
V562 = make_fixnum((long)(1)+(V549)); |
V562 = make_fixnum((long)(1)+(V549)); |
2764 |
V563 = make_fixnum(V545); |
V563 = make_fixnum(V545); |
2765 |
if(((VFUN_NARGS=12,(*(LnkLI52))(V561,(V533),VV[11],(V535),VV[12],(V536),VV[13],V562,VV[14],V563,VV[16],(V539))))==Cnil){ |
if(((VFUN_NARGS=12,(*(LnkLI54))(V561,(V533),VV[12],(V535),VV[13],(V536),VV[14],V562,VV[15],V563,VV[17],(V539))))==Cnil){ |
2766 |
goto T968;} |
goto T969;} |
2767 |
V548= (long)(1)+(V548); |
V548= (long)(1)+(V548); |
2768 |
goto T968; |
goto T969; |
2769 |
T968:; |
T969:; |
2770 |
V549= (long)(1)+(V549); |
V549= (long)(1)+(V549); |
2771 |
goto T938;} |
goto T939;} |
2772 |
goto T933; |
goto T934; |
2773 |
T933:; |
T934:; |
2774 |
{long V564; |
{long V564; |
2775 |
long V565; |
long V565; |
2776 |
V564= 0; |
V564= 0; |
2777 |
V565= (long)(-1)+(V545); |
V565= (long)(-1)+(V545); |
2778 |
goto T980; |
goto T981; |
2779 |
T980:; |
T981:; |
2780 |
if(!((V565)<(V544))){ |
if(!((V565)<(V544))){ |
2781 |
goto T981;} |
goto T982;} |
2782 |
{object V566; |
{object V566; |
2783 |
register long V567; |
register long V567; |
2784 |
long V568; |
long V568; |
2785 |
V569= (*(LnkLI47))((V533)); |
V569= (*(LnkLI49))((V533)); |
2786 |
V570 = make_fixnum((long)(V540)-(V564)); |
V570 = make_fixnum((long)(V540)-(V564)); |
2787 |
V566= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V569,V570)); |
V566= (VFUN_NARGS=2,(*(LnkLI48))(/* INLINE-ARGS */V569,V570)); |
2788 |
V567= (long)(-1)+(V540); |
V567= (long)(-1)+(V540); |
2789 |
V568= (long)((long)(-1)+(V540))-(V564); |
V568= (long)((long)(-1)+(V540))-(V564); |
2790 |
goto T988; |
goto T989; |
2791 |
T988:; |
T989:; |
2792 |
if(!((V567)<(0))){ |
if(!((V567)<(0))){ |
2793 |
goto T989;} |
goto T990;} |
2794 |
{object V571 = (V566); |
{object V571 = (V566); |
2795 |
VMR36(V571)} |
VMR36(V571)} |
2796 |
goto T989; |
goto T990; |
2797 |
T989:; |
T990:; |
2798 |
{object V572; |
{object V572; |
2799 |
if((V544)<=(V567)){ |
if((V544)<=(V567)){ |
2800 |
goto T995;} |
goto T996;} |
2801 |
V572= Cnil; |
V572= Cnil; |
2802 |
goto T994; |
goto T995; |
2803 |
goto T995; |
goto T996; |
2804 |
T995:; |
T996:; |
2805 |
if((V567)<(V545)){ |
if((V567)<(V545)){ |
2806 |
goto T997;} |
goto T998;} |
2807 |
V572= Cnil; |
V572= Cnil; |
2808 |
goto T994; |
goto T995; |
2809 |
goto T997; |
goto T998; |
2810 |
T997:; |
T998:; |
2811 |
base[0]= elt((V533),V567); |
base[0]= elt((V533),V567); |
2812 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2813 |
super_funcall_no_event((V539)); |
super_funcall_no_event((V539)); |
2815 |
V573= vs_base[0]; |
V573= vs_base[0]; |
2816 |
V574 = make_fixnum(V544); |
V574 = make_fixnum(V544); |
2817 |
V575 = make_fixnum(V567); |
V575 = make_fixnum(V567); |
2818 |
V572= (VFUN_NARGS=14,(*(LnkLI52))(V573,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V574,VV[14],V575,VV[16],(V539))); |
V572= (VFUN_NARGS=14,(*(LnkLI54))(V573,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V574,VV[15],V575,VV[17],(V539))); |
2819 |
goto T994; |
goto T995; |
2820 |
T994:; |
T995:; |
2821 |
if(((V572))==Cnil){ |
if(((V572))==Cnil){ |
2822 |
goto T1002;} |
goto T1003;} |
2823 |
goto T993; |
goto T994; |
2824 |
goto T1002; |
goto T1003; |
2825 |
T1002:; |
T1003:; |
2826 |
V576= elt((V533),V567); |
V576= elt((V533),V567); |
2827 |
(void)(elt_set((V566),V568,/* INLINE-ARGS */V576)); |
(void)(elt_set((V566),V568,/* INLINE-ARGS */V576)); |
2828 |
V568= (long)(-1)+(V568);} |
V568= (long)(-1)+(V568);} |
2829 |
goto T993; |
goto T994; |
2830 |
T993:; |
T994:; |
2831 |
V567= (long)(-1)+(V567); |
V567= (long)(-1)+(V567); |
2832 |
goto T988;} |
goto T989;} |
2833 |
goto T981; |
goto T982; |
2834 |
T981:; |
T982:; |
2835 |
base[0]= elt((V533),V565); |
base[0]= elt((V533),V565); |
2836 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2837 |
super_funcall_no_event((V539)); |
super_funcall_no_event((V539)); |
2839 |
V577= vs_base[0]; |
V577= vs_base[0]; |
2840 |
V578 = make_fixnum(V544); |
V578 = make_fixnum(V544); |
2841 |
V579 = make_fixnum(V565); |
V579 = make_fixnum(V565); |
2842 |
if(((VFUN_NARGS=14,(*(LnkLI52))(V577,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V578,VV[14],V579,VV[16],(V539))))==Cnil){ |
if(((VFUN_NARGS=14,(*(LnkLI54))(V577,(V533),VV[11],Ct,VV[12],(V535),VV[13],(V536),VV[14],V578,VV[15],V579,VV[17],(V539))))==Cnil){ |
2843 |
goto T1010;} |
goto T1011;} |
2844 |
V564= (long)(1)+(V564); |
V564= (long)(1)+(V564); |
2845 |
goto T1010; |
goto T1011; |
2846 |
T1010:; |
T1011:; |
2847 |
V565= (long)(-1)+(V565); |
V565= (long)(-1)+(V565); |
2848 |
goto T980;}}}} |
goto T981;}}}} |
2849 |
va_end(ap); |
va_end(ap); |
2850 |
base[0]=base[0]; |
base[0]=base[0]; |
2851 |
return Cnil;} |
return Cnil;} |
2880 |
V585=(Vcs[3]); |
V585=(Vcs[3]); |
2881 |
V586=(Vcs[4]); |
V586=(Vcs[4]); |
2882 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2883 |
V587= symbol_function(VV[33]); |
V587= symbol_function(VV[35]); |
2884 |
}else{ |
}else{ |
2885 |
V587=(Vcs[5]);} |
V587=(Vcs[5]);} |
2886 |
V588=(Vcs[6]); |
V588=(Vcs[6]); |
2888 |
V590=(Vcs[8]); |
V590=(Vcs[8]); |
2889 |
V591=(Vcs[9]); |
V591=(Vcs[9]); |
2890 |
if((V585)==Cnil){ |
if((V585)==Cnil){ |
2891 |
goto T1020;} |
goto T1021;} |
2892 |
if((V586)==Cnil){ |
if((V586)==Cnil){ |
2893 |
goto T1020;} |
goto T1021;} |
2894 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
2895 |
goto T1020; |
goto T1021; |
2896 |
T1020:; |
T1021:; |
2897 |
{register long V592; |
{register long V592; |
2898 |
if(((V588))==Cnil){ |
if(((V588))==Cnil){ |
2899 |
goto T1023;} |
goto T1024;} |
2900 |
V592= (long)(*(LnkLI34))((V588)); |
V592= (long)(*(LnkLI36))((V588)); |
2901 |
goto T1021; |
goto T1022; |
2902 |
goto T1023; |
goto T1024; |
2903 |
T1023:; |
T1024:; |
2904 |
V592= 0; |
V592= 0; |
2905 |
goto T1021; |
goto T1022; |
2906 |
T1021:; |
T1022:; |
2907 |
{register long V593; |
{register long V593; |
2908 |
V593= (long)(*(LnkLI35))((V590),(V582)); |
V593= (long)(*(LnkLI37))((V590),(V582)); |
2909 |
if(!((V592)<=(V593))){ |
if(!((V592)<=(V593))){ |
2910 |
goto T1027;} |
goto T1028;} |
2911 |
goto T1026; |
goto T1027; |
2912 |
goto T1027; |
goto T1028; |
2913 |
T1027:; |
T1028:; |
2914 |
V594 = make_fixnum(V592); |
V594 = make_fixnum(V592); |
2915 |
V595 = make_fixnum(V593); |
V595 = make_fixnum(V593); |
2916 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V594,V595))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V594,V595))); |
2917 |
goto T1026; |
goto T1027; |
2918 |
T1026:; |
T1027:; |
2919 |
{register long V596; |
{register long V596; |
2920 |
if(((V589))==Cnil){ |
if(((V589))==Cnil){ |
2921 |
goto T1031;} |
goto T1032;} |
2922 |
V596= (long)(*(LnkLI34))((V589)); |
V596= (long)(*(LnkLI36))((V589)); |
2923 |
goto T1029; |
goto T1030; |
2924 |
goto T1031; |
goto T1032; |
2925 |
T1031:; |
T1032:; |
2926 |
V596= 0; |
V596= 0; |
2927 |
goto T1029; |
goto T1030; |
2928 |
T1029:; |
T1030:; |
2929 |
{register long V597; |
{register long V597; |
2930 |
V597= (long)(*(LnkLI35))((V591),(V583)); |
V597= (long)(*(LnkLI37))((V591),(V583)); |
2931 |
if(!((V596)<=(V597))){ |
if(!((V596)<=(V597))){ |
2932 |
goto T1035;} |
goto T1036;} |
2933 |
goto T1034; |
goto T1035; |
2934 |
goto T1035; |
goto T1036; |
2935 |
T1035:; |
T1036:; |
2936 |
V598 = make_fixnum(V596); |
V598 = make_fixnum(V596); |
2937 |
V599 = make_fixnum(V597); |
V599 = make_fixnum(V597); |
2938 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V598,V599))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V598,V599))); |
2939 |
goto T1034; |
goto T1035; |
2940 |
T1034:; |
T1035:; |
2941 |
if(((V584))!=Cnil){ |
if(((V584))!=Cnil){ |
2942 |
goto T1038;} |
goto T1039;} |
2943 |
{register long V600; |
{register long V600; |
2944 |
register long V601; |
register long V601; |
2945 |
V600= V592; |
V600= V592; |
2946 |
V601= V596; |
V601= V596; |
2947 |
goto T1043; |
goto T1044; |
2948 |
T1043:; |
T1044:; |
2949 |
if((V600)>=(V593)){ |
if((V600)>=(V593)){ |
2950 |
goto T1045;} |
goto T1046;} |
2951 |
if(!((V601)>=(V597))){ |
if(!((V601)>=(V597))){ |
2952 |
goto T1044;} |
goto T1045;} |
2953 |
goto T1045; |
goto T1046; |
2954 |
T1045:; |
T1046:; |
2955 |
if(!((V600)>=(V593))){ |
if(!((V600)>=(V593))){ |
2956 |
goto T1050;} |
goto T1051;} |
2957 |
if(!((V601)>=(V597))){ |
if(!((V601)>=(V597))){ |
2958 |
goto T1050;} |
goto T1051;} |
2959 |
{object V602 = Cnil; |
{object V602 = Cnil; |
2960 |
VMR37(V602)} |
VMR37(V602)} |
2961 |
goto T1050; |
goto T1051; |
2962 |
T1050:; |
T1051:; |
2963 |
{object V603 = make_fixnum(V600); |
{object V603 = make_fixnum(V600); |
2964 |
VMR37(V603)} |
VMR37(V603)} |
2965 |
goto T1044; |
goto T1045; |
2966 |
T1044:; |
T1045:; |
2967 |
base[0]= elt((V582),V600); |
base[0]= elt((V582),V600); |
2968 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2969 |
super_funcall_no_event((V587)); |
super_funcall_no_event((V587)); |
2974 |
super_funcall_no_event((V587)); |
super_funcall_no_event((V587)); |
2975 |
vs_top=sup; |
vs_top=sup; |
2976 |
V605= vs_base[0]; |
V605= vs_base[0]; |
2977 |
if(((*(LnkLI41))((V585),(V586),V604,V605))!=Cnil){ |
if(((*(LnkLI43))((V585),(V586),V604,V605))!=Cnil){ |
2978 |
goto T1055;} |
goto T1056;} |
2979 |
{object V606 = make_fixnum(V600); |
{object V606 = make_fixnum(V600); |
2980 |
VMR37(V606)} |
VMR37(V606)} |
2981 |
goto T1055; |
goto T1056; |
2982 |
T1055:; |
T1056:; |
2983 |
V600= (long)(1)+(V600); |
V600= (long)(1)+(V600); |
2984 |
V601= (long)(1)+(V601); |
V601= (long)(1)+(V601); |
2985 |
goto T1043;} |
goto T1044;} |
2986 |
goto T1038; |
goto T1039; |
2987 |
T1038:; |
T1039:; |
2988 |
{register long V607; |
{register long V607; |
2989 |
register long V608; |
register long V608; |
2990 |
V607= (long)(-1)+(V593); |
V607= (long)(-1)+(V593); |
2991 |
V608= (long)(-1)+(V597); |
V608= (long)(-1)+(V597); |
2992 |
goto T1069; |
goto T1070; |
2993 |
T1069:; |
T1070:; |
2994 |
if((V607)<(V592)){ |
if((V607)<(V592)){ |
2995 |
goto T1071;} |
goto T1072;} |
2996 |
if(!((V608)<(V596))){ |
if(!((V608)<(V596))){ |
2997 |
goto T1070;} |
goto T1071;} |
2998 |
goto T1071; |
goto T1072; |
2999 |
T1071:; |
T1072:; |
3000 |
if(!((V607)<(V592))){ |
if(!((V607)<(V592))){ |
3001 |
goto T1076;} |
goto T1077;} |
3002 |
if(!((V608)<(V596))){ |
if(!((V608)<(V596))){ |
3003 |
goto T1076;} |
goto T1077;} |
3004 |
{object V609 = Cnil; |
{object V609 = Cnil; |
3005 |
VMR37(V609)} |
VMR37(V609)} |
3006 |
goto T1076; |
goto T1077; |
3007 |
T1076:; |
T1077:; |
3008 |
{object V610 = make_fixnum((long)(1)+(V607)); |
{object V610 = make_fixnum((long)(1)+(V607)); |
3009 |
VMR37(V610)} |
VMR37(V610)} |
3010 |
goto T1070; |
goto T1071; |
3011 |
T1070:; |
T1071:; |
3012 |
base[0]= elt((V582),V607); |
base[0]= elt((V582),V607); |
3013 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3014 |
super_funcall_no_event((V587)); |
super_funcall_no_event((V587)); |
3019 |
super_funcall_no_event((V587)); |
super_funcall_no_event((V587)); |
3020 |
vs_top=sup; |
vs_top=sup; |
3021 |
V612= vs_base[0]; |
V612= vs_base[0]; |
3022 |
if(((*(LnkLI41))((V585),(V586),V611,V612))!=Cnil){ |
if(((*(LnkLI43))((V585),(V586),V611,V612))!=Cnil){ |
3023 |
goto T1081;} |
goto T1082;} |
3024 |
{object V613 = make_fixnum((long)(1)+(V607)); |
{object V613 = make_fixnum((long)(1)+(V607)); |
3025 |
VMR37(V613)} |
VMR37(V613)} |
3026 |
goto T1081; |
goto T1082; |
3027 |
T1081:; |
T1082:; |
3028 |
V607= (long)(-1)+(V607); |
V607= (long)(-1)+(V607); |
3029 |
V608= (long)(-1)+(V608); |
V608= (long)(-1)+(V608); |
3030 |
goto T1069;}}}}} |
goto T1070;}}}}} |
3031 |
va_end(ap); |
va_end(ap); |
3032 |
base[0]=base[0]; |
base[0]=base[0]; |
3033 |
return Cnil;} |
return Cnil;} |
3062 |
V619=(Vcs[3]); |
V619=(Vcs[3]); |
3063 |
V620=(Vcs[4]); |
V620=(Vcs[4]); |
3064 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
3065 |
V621= symbol_function(VV[33]); |
V621= symbol_function(VV[35]); |
3066 |
}else{ |
}else{ |
3067 |
V621=(Vcs[5]);} |
V621=(Vcs[5]);} |
3068 |
V622=(Vcs[6]); |
V622=(Vcs[6]); |
3070 |
V624=(Vcs[8]); |
V624=(Vcs[8]); |
3071 |
V625=(Vcs[9]); |
V625=(Vcs[9]); |
3072 |
if((V619)==Cnil){ |
if((V619)==Cnil){ |
3073 |
goto T1093;} |
goto T1094;} |
3074 |
if((V620)==Cnil){ |
if((V620)==Cnil){ |
3075 |
goto T1093;} |
goto T1094;} |
3076 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI42))()); |
3077 |
goto T1093; |
goto T1094; |
3078 |
T1093:; |
T1094:; |
3079 |
{long V626; |
{long V626; |
3080 |
if(((V622))==Cnil){ |
if(((V622))==Cnil){ |
3081 |
goto T1096;} |
goto T1097;} |
3082 |
V626= (long)(*(LnkLI34))((V622)); |
V626= (long)(*(LnkLI36))((V622)); |
3083 |
goto T1094; |
goto T1095; |
3084 |
goto T1096; |
goto T1097; |
3085 |
T1096:; |
T1097:; |
3086 |
V626= 0; |
V626= 0; |
3087 |
goto T1094; |
goto T1095; |
3088 |
T1094:; |
T1095:; |
3089 |
{long V627; |
{long V627; |
3090 |
V627= (long)(*(LnkLI35))((V624),(V616)); |
V627= (long)(*(LnkLI37))((V624),(V616)); |
3091 |
if(!((V626)<=(V627))){ |
if(!((V626)<=(V627))){ |
3092 |
goto T1100;} |
goto T1101;} |
3093 |
goto T1099; |
goto T1100; |
3094 |
goto T1100; |
goto T1101; |
3095 |
T1100:; |
T1101:; |
3096 |
V628 = make_fixnum(V626); |
V628 = make_fixnum(V626); |
3097 |
V629 = make_fixnum(V627); |
V629 = make_fixnum(V627); |
3098 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V628,V629))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V628,V629))); |
3099 |
goto T1099; |
goto T1100; |
3100 |
T1099:; |
T1100:; |
3101 |
{register long V630; |
{register long V630; |
3102 |
if(((V623))==Cnil){ |
if(((V623))==Cnil){ |
3103 |
goto T1104;} |
goto T1105;} |
3104 |
V630= (long)(*(LnkLI34))((V623)); |
V630= (long)(*(LnkLI36))((V623)); |
3105 |
goto T1102; |
goto T1103; |
3106 |
goto T1104; |
goto T1105; |
3107 |
T1104:; |
T1105:; |
3108 |
V630= 0; |
V630= 0; |
3109 |
goto T1102; |
goto T1103; |
3110 |
T1102:; |
T1103:; |
3111 |
{long V631; |
{long V631; |
3112 |
V631= (long)(*(LnkLI35))((V625),(V617)); |
V631= (long)(*(LnkLI37))((V625),(V617)); |
3113 |
if(!((V630)<=(V631))){ |
if(!((V630)<=(V631))){ |
3114 |
goto T1108;} |
goto T1109;} |
3115 |
goto T1107; |
goto T1108; |
3116 |
goto T1108; |
goto T1109; |
3117 |
T1108:; |
T1109:; |
3118 |
V632 = make_fixnum(V630); |
V632 = make_fixnum(V630); |
3119 |
V633 = make_fixnum(V631); |
V633 = make_fixnum(V631); |
3120 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V632,V633))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(V632,V633))); |
3121 |
goto T1107; |
goto T1108; |
3122 |
T1107:; |
T1108:; |
3123 |
if(((V618))!=Cnil){ |
if(((V618))!=Cnil){ |
3124 |
goto T1111;} |
goto T1112;} |
3125 |
goto T1114; |
goto T1115; |
3126 |
T1114:; |
T1115:; |
3127 |
{register long V634; |
{register long V634; |
3128 |
register long V635; |
register long V635; |
3129 |
V634= V626; |
V634= V626; |
3130 |
V635= V630; |
V635= V630; |
3131 |
goto T1120; |
goto T1121; |
3132 |
T1120:; |
T1121:; |
3133 |
if(!((V634)>=(V627))){ |
if(!((V634)>=(V627))){ |
3134 |
goto T1121;} |
goto T1122;} |
3135 |
{object V636 = make_fixnum(V630); |
{object V636 = make_fixnum(V630); |
3136 |
VMR38(V636)} |
VMR38(V636)} |
3137 |
goto T1121; |
goto T1122; |
3138 |
T1121:; |
T1122:; |
3139 |
if(!((V635)>=(V631))){ |
if(!((V635)>=(V631))){ |
3140 |
goto T1125;} |
goto T1126;} |
3141 |
{object V637 = Cnil; |
{object V637 = Cnil; |
3142 |
VMR38(V637)} |
VMR38(V637)} |
3143 |
goto T1125; |
goto T1126; |
3144 |
T1125:; |
T1126:; |
3145 |
base[0]= elt((V616),V634); |
base[0]= elt((V616),V634); |
3146 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3147 |
super_funcall_no_event((V621)); |
super_funcall_no_event((V621)); |
3152 |
super_funcall_no_event((V621)); |
super_funcall_no_event((V621)); |
3153 |
vs_top=sup; |
vs_top=sup; |
3154 |
V639= vs_base[0]; |
V639= vs_base[0]; |
3155 |
if(((*(LnkLI41))((V619),(V620),V638,V639))!=Cnil){ |
if(((*(LnkLI43))((V619),(V620),V638,V639))!=Cnil){ |
3156 |
goto T1128;} |
goto T1129;} |
3157 |
goto T1116; |
goto T1117; |
3158 |
goto T1128; |
goto T1129; |
3159 |
T1128:; |
T1129:; |
3160 |
V634= (long)(1)+(V634); |
V634= (long)(1)+(V634); |
3161 |
V635= (long)(1)+(V635); |
V635= (long)(1)+(V635); |
3162 |
goto T1120;} |
goto T1121;} |
3163 |
goto T1116; |
goto T1117; |
3164 |
T1116:; |
T1117:; |
3165 |
V630= (long)(1)+(V630); |
V630= (long)(1)+(V630); |
3166 |
goto T1114; |
goto T1115; |
3167 |
goto T1111; |
goto T1112; |
3168 |
T1111:; |
T1112:; |
3169 |
goto T1142; |
goto T1143; |
3170 |
T1142:; |
T1143:; |
3171 |
{register long V640; |
{register long V640; |
3172 |
register long V641; |
register long V641; |
3173 |
V640= (long)(-1)+(V627); |
V640= (long)(-1)+(V627); |
3174 |
V641= (long)(-1)+(V631); |
V641= (long)(-1)+(V631); |
3175 |
goto T1148; |
goto T1149; |
3176 |
T1148:; |
T1149:; |
3177 |
if(!((V640)<(V626))){ |
if(!((V640)<(V626))){ |
3178 |
goto T1149;} |
goto T1150;} |
3179 |
{object V642 = make_fixnum((long)(1)+(V641)); |
{object V642 = make_fixnum((long)(1)+(V641)); |
3180 |
VMR38(V642)} |
VMR38(V642)} |
3181 |
goto T1149; |
goto T1150; |
3182 |
T1149:; |
T1150:; |
3183 |
if(!((V641)<(V630))){ |
if(!((V641)<(V630))){ |
3184 |
goto T1153;} |
goto T1154;} |
3185 |
{object V643 = Cnil; |
{object V643 = Cnil; |
3186 |
VMR38(V643)} |
VMR38(V643)} |
3187 |
goto T1153; |
goto T1154; |
3188 |
T1153:; |
T1154:; |
3189 |
base[0]= elt((V616),V640); |
base[0]= elt((V616),V640); |
3190 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3191 |
super_funcall_no_event((V621)); |
super_funcall_no_event((V621)); |
3196 |
super_funcall_no_event((V621)); |
super_funcall_no_event((V621)); |
3197 |
vs_top=sup; |
vs_top=sup; |
3198 |
V645= vs_base[0]; |
V645= vs_base[0]; |
3199 |
if(((*(LnkLI41))((V619),(V620),V644,V645))!=Cnil){ |
if(((*(LnkLI43))((V619),(V620),V644,V645))!=Cnil){ |
3200 |
goto T1156;} |
goto T1157;} |
3201 |
goto T1144; |
goto T1145; |
3202 |
goto T1156; |
goto T1157; |
3203 |
T1156:; |
T1157:; |
3204 |
V640= (long)(-1)+(V640); |
V640= (long)(-1)+(V640); |
3205 |
V641= (long)(-1)+(V641); |
V641= (long)(-1)+(V641); |
3206 |
goto T1148;} |
goto T1149;} |
3207 |
goto T1144; |
goto T1145; |
3208 |
T1144:; |
T1145:; |
3209 |
V631= (long)(-1)+(V631); |
V631= (long)(-1)+(V631); |
3210 |
goto T1142;}}}} |
goto T1143;}}}} |
3211 |
va_end(ap); |
va_end(ap); |
3212 |
base[0]=base[0]; |
base[0]=base[0]; |
3213 |
return Cnil;} |
return Cnil;} |
3222 |
object V647; |
object V647; |
3223 |
object V648; |
object V648; |
3224 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3225 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
3226 |
V646=(base[0]); |
V646=(base[0]); |
3227 |
V647=(base[1]); |
V647=(base[1]); |
3228 |
vs_top=sup; |
vs_top=sup; |
3229 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3230 |
V648= symbol_function(VV[33]); |
V648= symbol_function(VV[35]); |
3231 |
}else{ |
}else{ |
3232 |
V648=(base[2]);} |
V648=(base[2]);} |
3233 |
if(!(type_of((V646))==t_cons||((V646))==Cnil)){ |
if(!(type_of((V646))==t_cons||((V646))==Cnil)){ |
3234 |
goto T1171;} |
goto T1172;} |
3235 |
base[4]= (V646); |
base[4]= (V646); |
3236 |
base[5]= (V647); |
base[5]= (V647); |
3237 |
base[6]= (V648); |
base[6]= (V648); |
3238 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3239 |
(void) (*Lnk55)(); |
(void) (*Lnk57)(); |
3240 |
return; |
return; |
3241 |
goto T1171; |
goto T1172; |
3242 |
T1171:; |
T1172:; |
3243 |
base[4]= (*(LnkLI56))((V646),0,(long)length((V646)),(V647),(V648)); |
base[4]= (*(LnkLI58))((V646),0,(long)length((V646)),(V647),(V648)); |
3244 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3245 |
return; |
return; |
3246 |
} |
} |
3272 |
goto TTL; |
goto TTL; |
3273 |
TTL:; |
TTL:; |
3274 |
if(!((V657)<=((long)(1)+(V656)))){ |
if(!((V657)<=((long)(1)+(V656)))){ |
3275 |
goto T1178;} |
goto T1179;} |
3276 |
{object V660 = (V655); |
{object V660 = (V655); |
3277 |
VMR41(V660)} |
VMR41(V660)} |
3278 |
goto T1178; |
goto T1179; |
3279 |
T1178:; |
T1179:; |
3280 |
{register long V661; |
{register long V661; |
3281 |
register long V662; |
register long V662; |
3282 |
object V663; |
object V663; |
3287 |
V664= ( |
V664= ( |
3288 |
(type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)): |
(type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)): |
3289 |
(fcall.fun=((V659)),fcall.argd=1,fcalln))((V663))); |
(fcall.fun=((V659)),fcall.argd=1,fcalln))((V663))); |
3290 |
goto T1186; |
goto T1187; |
3291 |
T1186:; |
T1187:; |
3292 |
goto T1190; |
goto T1191; |
3293 |
T1190:; |
T1191:; |
3294 |
V662= (long)(-1)+(V662); |
V662= (long)(-1)+(V662); |
3295 |
if((V661)<(V662)){ |
if((V661)<(V662)){ |
3296 |
goto T1194;} |
goto T1195;} |
3297 |
goto T1184; |
goto T1185; |
3298 |
goto T1194; |
goto T1195; |
3299 |
T1194:; |
T1195:; |
3300 |
base[3]= elt((V655),V662); |
base[3]= elt((V655),V662); |
3301 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3302 |
super_funcall_no_event((V659)); |
super_funcall_no_event((V659)); |
3307 |
super_funcall_no_event((V658)); |
super_funcall_no_event((V658)); |
3308 |
vs_top=sup; |
vs_top=sup; |
3309 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3310 |
goto T1191;} |
goto T1192;} |
3311 |
goto T1188; |
goto T1189; |
3312 |
goto T1191; |
goto T1192; |
3313 |
T1191:; |
T1192:; |
3314 |
goto T1190; |
goto T1191; |
3315 |
goto T1188; |
goto T1189; |
3316 |
T1188:; |
T1189:; |
3317 |
goto T1205; |
goto T1206; |
3318 |
T1205:; |
T1206:; |
3319 |
V661= (long)(1)+(V661); |
V661= (long)(1)+(V661); |
3320 |
if((V661)<(V662)){ |
if((V661)<(V662)){ |
3321 |
goto T1209;} |
goto T1210;} |
3322 |
goto T1184; |
goto T1185; |
3323 |
goto T1209; |
goto T1210; |
3324 |
T1209:; |
T1210:; |
3325 |
base[3]= elt((V655),V661); |
base[3]= elt((V655),V661); |
3326 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3327 |
super_funcall_no_event((V659)); |
super_funcall_no_event((V659)); |
3332 |
super_funcall_no_event((V658)); |
super_funcall_no_event((V658)); |
3333 |
vs_top=sup; |
vs_top=sup; |
3334 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3335 |
goto T1206;} |
goto T1207;} |
3336 |
goto T1203; |
goto T1204; |
3337 |
goto T1206; |
goto T1207; |
3338 |
T1206:; |
T1207:; |
3339 |
goto T1205; |
goto T1206; |
3340 |
goto T1203; |
goto T1204; |
3341 |
T1203:; |
T1204:; |
3342 |
{object V665; |
{object V665; |
3343 |
V665= elt((V655),V661); |
V665= elt((V655),V661); |
3344 |
V666= elt((V655),V662); |
V666= elt((V655),V662); |
3345 |
(void)(elt_set((V655),V661,/* INLINE-ARGS */V666)); |
(void)(elt_set((V655),V661,/* INLINE-ARGS */V666)); |
3346 |
(void)(elt_set((V655),V662,(V665)));} |
(void)(elt_set((V655),V662,(V665)));} |
3347 |
goto T1186; |
goto T1187; |
3348 |
goto T1184; |
goto T1185; |
3349 |
T1184:; |
T1185:; |
3350 |
V667= elt((V655),V661); |
V667= elt((V655),V661); |
3351 |
(void)(elt_set((V655),V656,/* INLINE-ARGS */V667)); |
(void)(elt_set((V655),V656,/* INLINE-ARGS */V667)); |
3352 |
(void)(elt_set((V655),V661,(V663))); |
(void)(elt_set((V655),V661,(V663))); |
3353 |
(void)((*(LnkLI56))((V655),V656,V661,(V658),(V659))); |
(void)((*(LnkLI58))((V655),V656,V661,(V658),(V659))); |
3354 |
V656= (long)(1)+(V661); |
V656= (long)(1)+(V661); |
3355 |
goto TTL;} |
goto TTL;} |
3356 |
base[0]=base[0]; |
base[0]=base[0]; |
3366 |
object V669; |
object V669; |
3367 |
object V670; |
object V670; |
3368 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3369 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[17]); |
3370 |
V668=(base[0]); |
V668=(base[0]); |
3371 |
V669=(base[1]); |
V669=(base[1]); |
3372 |
vs_top=sup; |
vs_top=sup; |
3373 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3374 |
V670= symbol_function(VV[33]); |
V670= symbol_function(VV[35]); |
3375 |
}else{ |
}else{ |
3376 |
V670=(base[2]);} |
V670=(base[2]);} |
3377 |
if(!(type_of((V668))==t_cons||((V668))==Cnil)){ |
if(!(type_of((V668))==t_cons||((V668))==Cnil)){ |
3378 |
goto T1232;} |
goto T1233;} |
3379 |
base[4]= (V668); |
base[4]= (V668); |
3380 |
base[5]= (V669); |
base[5]= (V669); |
3381 |
base[6]= (V670); |
base[6]= (V670); |
3382 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3383 |
(void) (*Lnk55)(); |
(void) (*Lnk57)(); |
3384 |
return; |
return; |
3385 |
goto T1232; |
goto T1233; |
3386 |
T1232:; |
T1233:; |
3387 |
if(type_of((V668))==t_string){ |
if(type_of((V668))==t_string){ |
|
goto T1237;} |
|
|
if(!((type_of((V668))==t_bitvector))){ |
|
3388 |
goto T1238;} |
goto T1238;} |
3389 |
goto T1237; |
if(!((type_of((V668))==t_bitvector))){ |
3390 |
T1237:; |
goto T1239;} |
3391 |
|
goto T1238; |
3392 |
|
T1238:; |
3393 |
base[4]= (V668); |
base[4]= (V668); |
3394 |
base[5]= (V669); |
base[5]= (V669); |
3395 |
base[6]= VV[16]; |
base[6]= VV[17]; |
3396 |
base[7]= (V670); |
base[7]= (V670); |
3397 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3398 |
(void) (*Lnk57)(); |
(void) (*Lnk59)(); |
3399 |
return; |
return; |
3400 |
goto T1238; |
goto T1239; |
3401 |
T1238:; |
T1239:; |
3402 |
base[4]= (*(LnkLI58))((V668),VV[0]); |
base[4]= (*(LnkLI60))((V668),VV[0]); |
3403 |
base[5]= (V669); |
base[5]= (V669); |
3404 |
base[6]= (V670); |
base[6]= (V670); |
3405 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3406 |
(void) (*Lnk55)(); |
(void) (*Lnk57)(); |
3407 |
vs_top=sup; |
vs_top=sup; |
3408 |
V671= vs_base[0]; |
V671= vs_base[0]; |
3409 |
V672= (*(LnkLI47))((V668)); |
V672= (*(LnkLI49))((V668)); |
3410 |
base[4]= (*(LnkLI58))(V671,/* INLINE-ARGS */V672); |
base[4]= (*(LnkLI60))(V671,/* INLINE-ARGS */V672); |
3411 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3412 |
return; |
return; |
3413 |
} |
} |
3436 |
{ |
{ |
3437 |
parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap); |
parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap); |
3438 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
3439 |
V681= symbol_function(VV[33]); |
V681= symbol_function(VV[35]); |
3440 |
}else{ |
}else{ |
3441 |
V681=(Vcs[4]);} |
V681=(Vcs[4]);} |
3442 |
{long V682; |
{long V682; |
3444 |
V682= (long)length((V678)); |
V682= (long)length((V678)); |
3445 |
V683= (long)length((V679)); |
V683= (long)length((V679)); |
3446 |
if(!(equal((V681),Cnil))){ |
if(!(equal((V681),Cnil))){ |
3447 |
goto T1253;} |
goto T1254;} |
3448 |
V681= symbol_function(VV[33]); |
V681= symbol_function(VV[35]); |
3449 |
goto T1253; |
goto T1254; |
3450 |
T1253:; |
T1254:; |
3451 |
{register object V684; |
{register object V684; |
3452 |
register long V685; |
register long V685; |
3453 |
register long V686; |
register long V686; |
3454 |
register long V687; |
register long V687; |
3455 |
V688 = make_fixnum((long)(V682)+(V683)); |
V688 = make_fixnum((long)(V682)+(V683)); |
3456 |
V684= (VFUN_NARGS=2,(*(LnkLI46))((V677),V688)); |
V684= (VFUN_NARGS=2,(*(LnkLI48))((V677),V688)); |
3457 |
V685= 0; |
V685= 0; |
3458 |
V686= 0; |
V686= 0; |
3459 |
V687= 0; |
V687= 0; |
3460 |
goto T1262; |
goto T1263; |
3461 |
T1262:; |
T1263:; |
3462 |
if(!((V686)==(V682))){ |
if(!((V686)==(V682))){ |
3463 |
goto T1263;} |
goto T1264;} |
3464 |
if(!((V687)==(V683))){ |
if(!((V687)==(V683))){ |
3465 |
goto T1263;} |
goto T1264;} |
3466 |
{object V689 = (V684); |
{object V689 = (V684); |
3467 |
VMR43(V689)} |
VMR43(V689)} |
3468 |
goto T1263; |
goto T1264; |
3469 |
T1263:; |
T1264:; |
3470 |
if(!((V686)<(V682))){ |
if(!((V686)<(V682))){ |
3471 |
goto T1271;} |
goto T1272;} |
3472 |
if(!((V687)<(V683))){ |
if(!((V687)<(V683))){ |
3473 |
goto T1271;} |
goto T1272;} |
3474 |
base[1]= elt((V678),V686); |
base[1]= elt((V678),V686); |
3475 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3476 |
super_funcall_no_event((V681)); |
super_funcall_no_event((V681)); |
3485 |
super_funcall_no_event((V680)); |
super_funcall_no_event((V680)); |
3486 |
vs_top=sup; |
vs_top=sup; |
3487 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3488 |
goto T1276;} |
goto T1277;} |
3489 |
V690= elt((V678),V686); |
V690= elt((V678),V686); |
3490 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V690)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V690)); |
3491 |
V686= (long)(1)+(V686); |
V686= (long)(1)+(V686); |
3492 |
goto T1269; |
goto T1270; |
3493 |
goto T1276; |
goto T1277; |
3494 |
T1276:; |
T1277:; |
3495 |
base[1]= elt((V679),V687); |
base[1]= elt((V679),V687); |
3496 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3497 |
super_funcall_no_event((V681)); |
super_funcall_no_event((V681)); |
3506 |
super_funcall_no_event((V680)); |
super_funcall_no_event((V680)); |
3507 |
vs_top=sup; |
vs_top=sup; |
3508 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3509 |
goto T1285;} |
goto T1286;} |
3510 |
V691= elt((V679),V687); |
V691= elt((V679),V687); |
3511 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V691)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V691)); |
3512 |
V687= (long)(1)+(V687); |
V687= (long)(1)+(V687); |
3513 |
goto T1269; |
goto T1270; |
3514 |
goto T1285; |
goto T1286; |
3515 |
T1285:; |
T1286:; |
3516 |
V692= elt((V678),V686); |
V692= elt((V678),V686); |
3517 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V692)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V692)); |
3518 |
V686= (long)(1)+(V686); |
V686= (long)(1)+(V686); |
3519 |
goto T1269; |
goto T1270; |
3520 |
goto T1271; |
goto T1272; |
3521 |
T1271:; |
T1272:; |
3522 |
if(!((V686)<(V682))){ |
if(!((V686)<(V682))){ |
3523 |
goto T1296;} |
goto T1297;} |
3524 |
V693= elt((V678),V686); |
V693= elt((V678),V686); |
3525 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V693)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V693)); |
3526 |
V686= (long)(1)+(V686); |
V686= (long)(1)+(V686); |
3527 |
goto T1269; |
goto T1270; |
3528 |
goto T1296; |
goto T1297; |
3529 |
T1296:; |
T1297:; |
3530 |
V694= elt((V679),V687); |
V694= elt((V679),V687); |
3531 |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V694)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V694)); |
3532 |
V687= (long)(1)+(V687); |
V687= (long)(1)+(V687); |
3533 |
goto T1269; |
goto T1270; |
3534 |
T1269:; |
T1270:; |
3535 |
V685= (long)(1)+(V685); |
V685= (long)(1)+(V685); |
3536 |
goto T1262;}} |
goto T1263;}} |
3537 |
va_end(ap); |
va_end(ap); |
3538 |
base[0]=base[0]; |
base[0]=base[0]; |
3539 |
return Cnil;} |
return Cnil;} |
3562 |
Ltype_of(); |
Ltype_of(); |
3563 |
vs_top=sup; |
vs_top=sup; |
3564 |
V700= vs_base[0]; |
V700= vs_base[0]; |
3565 |
if(!((VV[17])==(V700))){ |
if(!((VV[18])==(V700))){ |
3566 |
goto T1308;} |
goto T1309;} |
3567 |
base[4]= (V695); |
base[4]= (V695); |
3568 |
base[5]= small_fixnum(0); |
base[5]= small_fixnum(0); |
3569 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3570 |
Larray_dimension(); |
Larray_dimension(); |
3571 |
vs_top=sup; |
vs_top=sup; |
3572 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3573 |
goto T1306; |
goto T1307; |
3574 |
goto T1308; |
goto T1309; |
3575 |
T1308:; |
T1309:; |
3576 |
base[3]= make_fixnum((long)length((V695))); |
base[3]= make_fixnum((long)length((V695))); |
3577 |
goto T1306; |
goto T1307; |
3578 |
T1306:; |
T1307:; |
3579 |
{object V699; |
{object V699; |
3580 |
{object V701; |
{object V701; |
3581 |
object V702= (V697); |
object V702= (V697); |
3582 |
if(endp(V702)){ |
if(endp(V702)){ |
3583 |
V699= Cnil; |
V699= Cnil; |
3584 |
goto T1314;} |
goto T1315;} |
3585 |
base[4]=V701=MMcons(Cnil,Cnil); |
base[4]=V701=MMcons(Cnil,Cnil); |
3586 |
goto T1315; |
goto T1316; |
3587 |
T1315:; |
T1316:; |
3588 |
base[5]= (V702->c.c_car); |
base[5]= (V702->c.c_car); |
3589 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3590 |
Llength(); |
Llength(); |
3593 |
V702=MMcdr(V702); |
V702=MMcdr(V702); |
3594 |
if(endp(V702)){ |
if(endp(V702)){ |
3595 |
V699= base[4]; |
V699= base[4]; |
|
goto T1314;} |
|
|
V701=MMcdr(V701)=MMcons(Cnil,Cnil); |
|
3596 |
goto T1315;} |
goto T1315;} |
3597 |
goto T1314; |
V701=MMcdr(V701)=MMcons(Cnil,Cnil); |
3598 |
T1314:; |
goto T1316;} |
3599 |
|
goto T1315; |
3600 |
|
T1315:; |
3601 |
vs_top=base+4; |
vs_top=base+4; |
3602 |
while(!endp(V699)) |
while(!endp(V699)) |
3603 |
{vs_push(car(V699));V699=cdr(V699);} |
{vs_push(car(V699));V699=cdr(V699);} |
3610 |
Ltype_of(); |
Ltype_of(); |
3611 |
vs_top=sup; |
vs_top=sup; |
3612 |
V703= vs_base[0]; |
V703= vs_base[0]; |
3613 |
if(!((VV[17])==(V703))){ |
if(!((VV[18])==(V703))){ |
3614 |
goto T1318;} |
goto T1319;} |
3615 |
base[3]= (V695); |
base[3]= (V695); |
3616 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3617 |
(void) (*Lnk59)(); |
(void) (*Lnk61)(); |
3618 |
vs_top=sup; |
vs_top=sup; |
3619 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3620 |
goto T1318;} |
goto T1319;} |
3621 |
base[3]= (V695); |
base[3]= (V695); |
3622 |
base[4]= (V698); |
base[4]= (V698); |
3623 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3624 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
3625 |
vs_top=sup; |
vs_top=sup; |
3626 |
goto T1318; |
goto T1319; |
3627 |
T1318:; |
T1319:; |
3628 |
{register object V704; |
{register object V704; |
3629 |
register object V705; |
register object V705; |
3630 |
V704= (V698); |
V704= (V698); |
3631 |
V705= small_fixnum(0); |
V705= small_fixnum(0); |
3632 |
goto T1331; |
goto T1332; |
3633 |
T1331:; |
T1332:; |
3634 |
if(!(number_compare((V705),(V704))>=0)){ |
if(!(number_compare((V705),(V704))>=0)){ |
3635 |
goto T1332;} |
goto T1333;} |
3636 |
base[3]= (V695); |
base[3]= (V695); |
3637 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3638 |
return; |
return; |
3639 |
goto T1332; |
goto T1333; |
3640 |
T1332:; |
T1333:; |
3641 |
base[3]= (V696); |
base[3]= (V696); |
3642 |
{object V707; |
{object V707; |
3643 |
{object V708; |
{object V708; |
3644 |
object V709= (V697); |
object V709= (V697); |
3645 |
if(endp(V709)){ |
if(endp(V709)){ |
3646 |
V707= Cnil; |
V707= Cnil; |
3647 |
goto T1339;} |
goto T1340;} |
3648 |
base[4]=V708=MMcons(Cnil,Cnil); |
base[4]=V708=MMcons(Cnil,Cnil); |
3649 |
goto T1340; |
goto T1341; |
3650 |
T1340:; |
T1341:; |
3651 |
{register object V710; |
{register object V710; |
3652 |
V710= (V709->c.c_car); |
V710= (V709->c.c_car); |
3653 |
(V708->c.c_car)= elt((V710),fixint((V705)));} |
(V708->c.c_car)= elt((V710),fixint((V705)));} |
3654 |
V709=MMcdr(V709); |
V709=MMcdr(V709); |
3655 |
if(endp(V709)){ |
if(endp(V709)){ |
3656 |
V707= base[4]; |
V707= base[4]; |
|
goto T1339;} |
|
|
V708=MMcdr(V708)=MMcons(Cnil,Cnil); |
|
3657 |
goto T1340;} |
goto T1340;} |
3658 |
goto T1339; |
V708=MMcdr(V708)=MMcons(Cnil,Cnil); |
3659 |
T1339:; |
goto T1341;} |
3660 |
|
goto T1340; |
3661 |
|
T1340:; |
3662 |
vs_top=base+4; |
vs_top=base+4; |
3663 |
while(!endp(V707)) |
while(!endp(V707)) |
3664 |
{vs_push(car(V707));V707=cdr(V707);} |
{vs_push(car(V707));V707=cdr(V707);} |
3668 |
V706= vs_base[0]; |
V706= vs_base[0]; |
3669 |
(void)(elt_set((V695),fixint((V705)),V706)); |
(void)(elt_set((V695),fixint((V705)),V706)); |
3670 |
V705= one_plus((V705)); |
V705= one_plus((V705)); |
3671 |
goto T1331;}} |
goto T1332;}} |
3672 |
} |
} |
3673 |
} |
} |
3674 |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
3697 |
Lgensym(); |
Lgensym(); |
3698 |
vs_top=sup; |
vs_top=sup; |
3699 |
V713= vs_base[0]; |
V713= vs_base[0]; |
3700 |
base[5]= VV[18]; |
base[5]= VV[19]; |
3701 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3702 |
Lgensym(); |
Lgensym(); |
3703 |
vs_top=sup; |
vs_top=sup; |
3704 |
V714= vs_base[0]; |
V714= vs_base[0]; |
3705 |
V715= list(2,(V713),base[3]); |
V715= list(2,(V713),base[3]); |
3706 |
V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0))); |
V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0))); |
3707 |
V717= list(2,VV[24],(V713)); |
V717= list(2,VV[25],(V713)); |
3708 |
V718= list(4,VV[0],VV[23],/* INLINE-ARGS */V717,list(2,VV[24],(V714))); |
V718= list(4,VV[0],VV[24],/* INLINE-ARGS */V717,list(2,VV[25],(V714))); |
3709 |
V719= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V718,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V714)),VV[28]),VV[29]),VV[30]))); |
V719= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V718,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V714)),VV[29]),VV[30]),VV[31]))); |
3710 |
base[5]= list(3,VV[19],/* INLINE-ARGS */V716,listA(3,VV[20],make_cons(/* INLINE-ARGS */V719,Cnil),base[4])); |
base[5]= list(3,VV[20],/* INLINE-ARGS */V716,listA(3,VV[21],make_cons(/* INLINE-ARGS */V719,Cnil),base[4])); |
3711 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3712 |
return;} |
return;} |
3713 |
} |
} |
3740 |
V727= Cnil; |
V727= Cnil; |
3741 |
V721= (long)length((V720)); |
V721= (long)length((V720)); |
3742 |
if(!((V721)<(2))){ |
if(!((V721)<(2))){ |
3743 |
goto T1357;} |
goto T1358;} |
3744 |
base[1]= (V720); |
base[1]= (V720); |
3745 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3746 |
return; |
return; |
3747 |
goto T1357; |
goto T1358; |
3748 |
T1357:; |
T1358:; |
3749 |
if(!((V721)==(2))){ |
if(!((V721)==(2))){ |
3750 |
goto T1355;} |
goto T1356;} |
3751 |
V726= ( |
V726= ( |
3752 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3753 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
3760 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3761 |
vs_top=sup; |
vs_top=sup; |
3762 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3763 |
goto T1366;} |
goto T1367;} |
3764 |
base[1]= (V720); |
base[1]= (V720); |
3765 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3766 |
return; |
return; |
3767 |
goto T1366; |
goto T1367; |
3768 |
T1366:; |
T1367:; |
3769 |
base[1]= (V727); |
base[1]= (V727); |
3770 |
base[2]= (V726); |
base[2]= (V726); |
3771 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3772 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3773 |
vs_top=sup; |
vs_top=sup; |
3774 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3775 |
goto T1371;} |
goto T1372;} |
3776 |
base[1]= nreverse((V720)); |
base[1]= nreverse((V720)); |
3777 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3778 |
return; |
return; |
3779 |
goto T1371; |
goto T1372; |
3780 |
T1371:; |
T1372:; |
3781 |
base[1]= (V720); |
base[1]= (V720); |
3782 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3783 |
return; |
return; |
3784 |
goto T1355; |
goto T1356; |
3785 |
T1355:; |
T1356:; |
3786 |
V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2)); |
V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2)); |
3787 |
{long V728; |
{long V728; |
3788 |
register object V729; |
register object V729; |
3789 |
V728= 1; |
V728= 1; |
3790 |
V729= (V720); |
V729= (V720); |
3791 |
goto T1380; |
goto T1381; |
3792 |
T1380:; |
T1381:; |
3793 |
if(!((V728)>=(V721))){ |
if(!((V728)>=(V721))){ |
3794 |
goto T1381;} |
goto T1382;} |
3795 |
V722= (V720); |
V722= (V720); |
3796 |
V723= cdr((V729)); |
V723= cdr((V729)); |
3797 |
if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729)); |
if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729)); |
3798 |
((V729))->c.c_cdr = Cnil; |
((V729))->c.c_cdr = Cnil; |
3799 |
goto T1377; |
goto T1378; |
3800 |
goto T1381; |
goto T1382; |
3801 |
T1381:; |
T1382:; |
3802 |
V728= (long)(1)+(V728); |
V728= (long)(1)+(V728); |
3803 |
V729= cdr((V729)); |
V729= cdr((V729)); |
3804 |
goto T1380;} |
goto T1381;} |
3805 |
goto T1377; |
goto T1378; |
3806 |
T1377:; |
T1378:; |
3807 |
base[1]= (V722); |
base[1]= (V722); |
3808 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3809 |
L41(base0); |
L41(base0); |
3815 |
vs_top=sup; |
vs_top=sup; |
3816 |
V723= vs_base[0]; |
V723= vs_base[0]; |
3817 |
if(!(endp_prop((V722)))){ |
if(!(endp_prop((V722)))){ |
3818 |
goto T1401;} |
goto T1402;} |
3819 |
base[1]= (V723); |
base[1]= (V723); |
3820 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3821 |
return; |
return; |
3822 |
goto T1401; |
goto T1402; |
3823 |
T1401:; |
T1402:; |
3824 |
if(!(endp_prop((V723)))){ |
if(!(endp_prop((V723)))){ |
3825 |
goto T1399;} |
goto T1400;} |
3826 |
base[1]= (V722); |
base[1]= (V722); |
3827 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3828 |
return; |
return; |
3829 |
goto T1399; |
goto T1400; |
3830 |
T1399:; |
T1400:; |
3831 |
V724= make_cons(Cnil,Cnil); |
V724= make_cons(Cnil,Cnil); |
3832 |
V725= (V724); |
V725= (V724); |
3833 |
V726= ( |
V726= ( |
3836 |
V727= ( |
V727= ( |
3837 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3838 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
3839 |
goto T1350; |
goto T1351; |
3840 |
T1350:; |
T1351:; |
3841 |
base[1]= (V726); |
base[1]= (V726); |
3842 |
base[2]= (V727); |
base[2]= (V727); |
3843 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3844 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3845 |
vs_top=sup; |
vs_top=sup; |
3846 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3847 |
goto T1413;} |
goto T1414;} |
3848 |
goto T1351; |
goto T1352; |
3849 |
goto T1413; |
goto T1414; |
3850 |
T1413:; |
T1414:; |
3851 |
base[1]= (V727); |
base[1]= (V727); |
3852 |
base[2]= (V726); |
base[2]= (V726); |
3853 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3854 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3855 |
vs_top=sup; |
vs_top=sup; |
3856 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3857 |
goto T1418;} |
goto T1419;} |
3858 |
|
goto T1353; |
3859 |
|
goto T1419; |
3860 |
|
T1419:; |
3861 |
goto T1352; |
goto T1352; |
3862 |
goto T1418; |
goto T1352; |
3863 |
T1418:; |
T1352:; |
|
goto T1351; |
|
|
goto T1351; |
|
|
T1351:; |
|
3864 |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3865 |
((V725))->c.c_cdr = (V722); |
((V725))->c.c_cdr = (V722); |
3866 |
V725= cdr((V725)); |
V725= cdr((V725)); |
3867 |
V722= cdr((V722)); |
V722= cdr((V722)); |
3868 |
if(!(endp_prop((V722)))){ |
if(!(endp_prop((V722)))){ |
3869 |
goto T1427;} |
goto T1428;} |
3870 |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3871 |
((V725))->c.c_cdr = (V723); |
((V725))->c.c_cdr = (V723); |
3872 |
base[1]= cdr((V724)); |
base[1]= cdr((V724)); |
3873 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3874 |
return; |
return; |
3875 |
goto T1427; |
goto T1428; |
3876 |
T1427:; |
T1428:; |
3877 |
V726= ( |
V726= ( |
3878 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3879 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722)))); |
3880 |
goto T1350; |
goto T1351; |
3881 |
goto T1352; |
goto T1353; |
3882 |
T1352:; |
T1353:; |
3883 |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3884 |
((V725))->c.c_cdr = (V723); |
((V725))->c.c_cdr = (V723); |
3885 |
V725= cdr((V725)); |
V725= cdr((V725)); |
3886 |
V723= cdr((V723)); |
V723= cdr((V723)); |
3887 |
if(!(endp_prop((V723)))){ |
if(!(endp_prop((V723)))){ |
3888 |
goto T1438;} |
goto T1439;} |
3889 |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3890 |
((V725))->c.c_cdr = (V722); |
((V725))->c.c_cdr = (V722); |
3891 |
base[1]= cdr((V724)); |
base[1]= cdr((V724)); |
3892 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3893 |
return; |
return; |
3894 |
goto T1438; |
goto T1439; |
3895 |
T1438:; |
T1439:; |
3896 |
V727= ( |
V727= ( |
3897 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3898 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
3899 |
goto T1350;} |
goto T1351;} |
3900 |
} |
} |
3901 |
} |
} |
3902 |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* ARRAY-HAS-FILL-POINTER-P */ |
3903 |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,2,ap);va_end(ap);return V1;} /* COERCE */ |
3904 |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* SORT */ |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* SORT */ |
3905 |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */ |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,81925,ap);va_end(ap);return V1;} /* QUICK-SORT */ |
3906 |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* LIST-MERGE-SORT */ |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* LIST-MERGE-SORT */ |
3907 |
static object LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[54],(void **)&LnkLI54,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* DELETE-DUPLICATES */ |
3908 |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* MEMBER1 */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MEMBER1 */ |
3909 |
static object LnkTLI52(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[52],(void **)&LnkLI52,ap);va_end(ap);return V1;} /* POSITION */ |
static object LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[54],(void **)&LnkLI54,ap);va_end(ap);return V1;} /* POSITION */ |
3910 |
static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[51],(void **)&LnkLI51,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* FIND */ |
3911 |
static object LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* NSUBSTITUTE */ |
static object LnkTLI52(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[52],(void **)&LnkLI52,ap);va_end(ap);return V1;} /* NSUBSTITUTE */ |
3912 |
static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[49],(void **)&LnkLI49,ap);va_end(ap);return V1;} /* SUBSTITUTE */ |
static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[51],(void **)&LnkLI51,ap);va_end(ap);return V1;} /* SUBSTITUTE */ |
3913 |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* COUNT */ |
static object LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* COUNT */ |
3914 |
static object LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[47],(void **)&LnkLI47,1,ap);va_end(ap);return V1;} /* SEQTYPE */ |
static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,1,ap);va_end(ap);return V1;} /* SEQTYPE */ |
3915 |
static object LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[46],(void **)&LnkLI46,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
3916 |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */ |
static object LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* INTERNAL-COUNT */ |
3917 |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[43],(void **)&LnkLI43,ap);va_end(ap);return V1;} /* REMOVE */ |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* REMOVE */ |
3918 |
static object LnkTLI42(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[42],(void **)&LnkLI42,ap);va_end(ap);return V1;} /* DELETE */ |
static object LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[44],(void **)&LnkLI44,ap);va_end(ap);return V1;} /* DELETE */ |
3919 |
static object LnkTLI41(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[41],(void **)&LnkLI41,4,ap);va_end(ap);return V1;} /* CALL-TEST */ |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,4,ap);va_end(ap);return V1;} /* CALL-TEST */ |
3920 |
static object LnkTLI40(){return call_proc0(VV[40],(void **)&LnkLI40);} /* TEST-ERROR */ |
static object LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* TEST-ERROR */ |
3921 |
static object LnkTLI35(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[35],(void **)&LnkLI35,258,ap);va_end(ap);return V1;} /* THE-END */ |
static object LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,258,ap);va_end(ap);return V1;} /* THE-END */ |
3922 |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,257,ap);va_end(ap);return V1;} /* THE-START */ |
static object LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,257,ap);va_end(ap);return V1;} /* THE-START */ |
3923 |
static object LnkTLI31(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[31],(void **)&LnkLI31,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */ |
static object LnkTLI33(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[33],(void **)&LnkLI33,ap);va_end(ap);return V1;} /* BAD-SEQ-LIMIT */ |
3924 |
|
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* SPECIFIC-ERROR */ |
3925 |
|
|
3926 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3927 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |