2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_restart.h" |
#include "clcs_restart.h" |
4 |
void init_clcs_restart(){do_init(VV);} |
void init_clcs_restart(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2186 */ |
/* local entry for function progn 'compile2191 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2198 */ |
/* local entry for function progn 'compile2203 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
41 |
base[0]=base[0]; |
base[0]=base[0]; |
42 |
return Cnil; |
return Cnil; |
43 |
} |
} |
44 |
/* local entry for function progn 'compile2211 */ |
/* local entry for function progn 'compile2216 */ |
45 |
|
|
46 |
static object LI3() |
static object LI3() |
47 |
|
|
52 |
VMR3(V3)} |
VMR3(V3)} |
53 |
return Cnil; |
return Cnil; |
54 |
} |
} |
55 |
/* local entry for function progn 'compile2227 */ |
/* local entry for function progn 'compile2232 */ |
56 |
|
|
57 |
static object LI4() |
static object LI4() |
58 |
|
|
68 |
base[0]=base[0]; |
base[0]=base[0]; |
69 |
return Cnil; |
return Cnil; |
70 |
} |
} |
71 |
/* local entry for function progn 'compile2239 */ |
/* local entry for function progn 'compile2244 */ |
72 |
|
|
73 |
static object LI5() |
static object LI5() |
74 |
|
|
87 |
VMR5(V5)} |
VMR5(V5)} |
88 |
return Cnil; |
return Cnil; |
89 |
} |
} |
90 |
/* local entry for function progn 'compile2252 */ |
/* local entry for function progn 'compile2257 */ |
91 |
|
|
92 |
static object LI6() |
static object LI6() |
93 |
|
|
276 |
goto T58;} |
goto T58;} |
277 |
goto T57; |
goto T57; |
278 |
T57:; |
T57:; |
279 |
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5])); |
V40 = base[5]; |
280 |
|
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,V40)); |
281 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
282 |
return;}}} |
return;}}} |
283 |
} |
} |
284 |
/* local entry for function progn 'compile2353 */ |
/* local entry for function progn 'compile2358 */ |
285 |
|
|
286 |
static object LI10() |
static object LI10() |
287 |
|
|
292 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
293 |
(void) (*Lnk69)(); |
(void) (*Lnk69)(); |
294 |
vs_top=sup; |
vs_top=sup; |
295 |
{object V40 = Cnil; |
{object V41 = Cnil; |
296 |
VMR10(V40)} |
VMR10(V41)} |
297 |
base[0]=base[0]; |
base[0]=base[0]; |
298 |
return Cnil; |
return Cnil; |
299 |
} |
} |
300 |
/* local entry for function progn 'compile2365 */ |
/* local entry for function progn 'compile2370 */ |
301 |
|
|
302 |
static object LI11() |
static object LI11() |
303 |
|
|
312 |
(VV[10]->s.s_dbind)= Cnil; |
(VV[10]->s.s_dbind)= Cnil; |
313 |
goto T62; |
goto T62; |
314 |
T62:; |
T62:; |
315 |
{object V41 = Cnil; |
{object V42 = Cnil; |
316 |
VMR11(V41)} |
VMR11(V42)} |
317 |
return Cnil; |
return Cnil; |
318 |
} |
} |
319 |
/* local entry for function progn 'compile2378 */ |
/* local entry for function progn 'compile2383 */ |
320 |
|
|
321 |
static object LI12() |
static object LI12() |
322 |
|
|
323 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
324 |
goto TTL; |
goto TTL; |
325 |
TTL:; |
TTL:; |
326 |
{object V42 = Cnil; |
{object V43 = Cnil; |
327 |
VMR12(V42)} |
VMR12(V43)} |
328 |
return Cnil; |
return Cnil; |
329 |
} |
} |
330 |
/* local entry for function COMPUTE-RESTARTS */ |
/* local entry for function COMPUTE-RESTARTS */ |
333 |
{ |
{ |
334 |
va_list ap; |
va_list ap; |
335 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
336 |
{object V43; |
{object V44; |
337 |
va_start(ap,first); |
va_start(ap,first); |
338 |
narg = narg - 0; |
narg = narg - 0; |
339 |
if (narg <= 0) goto T67; |
if (narg <= 0) goto T67; |
340 |
else { |
else { |
341 |
V43= first;} |
V44= first;} |
342 |
--narg; goto T68; |
--narg; goto T68; |
343 |
goto T67; |
goto T67; |
344 |
T67:; |
T67:; |
345 |
V43= Cnil; |
V44= Cnil; |
346 |
goto T68; |
goto T68; |
347 |
T68:; |
T68:; |
348 |
base[1]= (VV[10]->s.s_dbind); |
base[1]= (VV[10]->s.s_dbind); |
349 |
{object V45; |
{object V46; |
350 |
object V46= base[1]; |
object V47= base[1]; |
351 |
if(V46==Cnil){ |
if(V47==Cnil){ |
352 |
V44= Cnil; |
V45= Cnil; |
353 |
goto T70;} |
goto T70;} |
354 |
base[0]=V45=MMcons(Cnil,Cnil); |
base[0]=V46=MMcons(Cnil,Cnil); |
355 |
goto T71; |
goto T71; |
356 |
T71:; |
T71:; |
357 |
base[2]= (V46->c.c_car); |
base[2]= (V47->c.c_car); |
358 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
359 |
Lcopy_list(); |
Lcopy_list(); |
360 |
vs_top=sup; |
vs_top=sup; |
361 |
(V45->c.c_cdr)= vs_base[0]; |
(V46->c.c_cdr)= vs_base[0]; |
362 |
while(MMcdr(V45)!=Cnil)V45=MMcdr(V45); |
while(MMcdr(V46)!=Cnil)V46=MMcdr(V46); |
363 |
if((V46=MMcdr(V46))==Cnil){ |
if((V47=MMcdr(V47))==Cnil){ |
364 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
365 |
V44= base[0]; |
V45= base[0]; |
366 |
goto T70;} |
goto T70;} |
367 |
goto T71;} |
goto T71;} |
368 |
goto T70; |
goto T70; |
369 |
T70:; |
T70:; |
370 |
V47= (*(LnkLI71))(); |
V48= (*(LnkLI71))(); |
371 |
{object V48 = nconc(V44,/* INLINE-ARGS */V47); |
{object V49 = nconc(V45,/* INLINE-ARGS */V48); |
372 |
VMR13(V48)} |
VMR13(V49)} |
373 |
va_end(ap); |
va_end(ap); |
374 |
base[0]=base[0]; |
base[0]=base[0]; |
375 |
return Cnil;} |
return Cnil;} |
380 |
{register object *base=vs_base; |
{register object *base=vs_base; |
381 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
382 |
vs_check; |
vs_check; |
383 |
{object V49; |
{object V50; |
|
object V50; |
|
384 |
object V51; |
object V51; |
385 |
V49=(base[0]); |
object V52; |
386 |
V50=(base[1]); |
V50=(base[0]); |
387 |
V51=(base[2]); |
V51=(base[1]); |
388 |
|
V52=(base[2]); |
389 |
vs_top=sup; |
vs_top=sup; |
390 |
goto TTL; |
goto TTL; |
391 |
TTL:; |
TTL:; |
392 |
if(((VV[11]->s.s_dbind))==Cnil){ |
if(((VV[11]->s.s_dbind))==Cnil){ |
393 |
goto T75;} |
goto T75;} |
394 |
base[3]= (V50); |
base[3]= (V51); |
395 |
base[4]= VV[12]; |
base[4]= VV[12]; |
396 |
base[6]= (V49); |
base[6]= (V50); |
397 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
398 |
Ltype_of(); |
Ltype_of(); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
401 |
base[6]= (*(LnkLI72))((V49)); |
base[6]= (*(LnkLI72))((V50)); |
402 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
403 |
Lformat(); |
Lformat(); |
404 |
return; |
return; |
405 |
goto T75; |
goto T75; |
406 |
T75:; |
T75:; |
407 |
base[3]= (V49); |
base[3]= (V50); |
408 |
base[4]= (V50); |
base[4]= (V51); |
409 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
410 |
(void) (*Lnk73)(); |
(void) (*Lnk73)(); |
411 |
return; |
return; |
412 |
} |
} |
413 |
} |
} |
414 |
/* local entry for function progn 'compile2418 */ |
/* local entry for function progn 'compile2423 */ |
415 |
|
|
416 |
static object LI15() |
static object LI15() |
417 |
|
|
435 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
436 |
(void) (*Lnk74)(); |
(void) (*Lnk74)(); |
437 |
vs_top=sup; |
vs_top=sup; |
438 |
{object V52 = Cnil; |
{object V53 = Cnil; |
439 |
VMR15(V52)} |
VMR15(V53)} |
440 |
base[0]=base[0]; |
base[0]=base[0]; |
441 |
return Cnil; |
return Cnil; |
442 |
} |
} |
446 |
{ |
{ |
447 |
va_list ap; |
va_list ap; |
448 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
449 |
{object V53; |
{object V54; |
|
object V54; |
|
450 |
object V55; |
object V55; |
451 |
object V56; |
object V56; |
452 |
|
object V57; |
453 |
va_start(ap,first); |
va_start(ap,first); |
454 |
narg= narg - 0; |
narg= narg - 0; |
455 |
{ |
{ |
456 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap); |
457 |
V53=(Vcs[0]); |
V54=(Vcs[0]); |
458 |
V54=(Vcs[1]); |
V55=(Vcs[1]); |
459 |
V55=(Vcs[2]); |
V56=(Vcs[2]); |
460 |
V56=(Vcs[3]); |
V57=(Vcs[3]); |
461 |
base[0]= VV[13]; |
base[0]= VV[13]; |
462 |
base[1]= (V53); |
base[1]= (V54); |
463 |
base[2]= (V54); |
base[2]= (V55); |
464 |
base[3]= (V55); |
base[3]= (V56); |
465 |
base[4]= (V56); |
base[4]= (V57); |
466 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
467 |
siLmake_structure(); |
siLmake_structure(); |
468 |
vs_top=sup; |
vs_top=sup; |
469 |
{object V57 = vs_base[0]; |
{object V58 = vs_base[0]; |
470 |
VMR16(V57)} |
VMR16(V58)} |
471 |
va_end(ap); |
va_end(ap); |
472 |
base[0]=base[0]; |
base[0]=base[0]; |
473 |
return Cnil;} |
return Cnil;} |
474 |
}} |
}} |
475 |
/* local entry for function progn 'compile2438 */ |
/* local entry for function progn 'compile2443 */ |
476 |
|
|
477 |
static object LI17() |
static object LI17() |
478 |
|
|
479 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
480 |
goto TTL; |
goto TTL; |
481 |
TTL:; |
TTL:; |
482 |
{object V58 = Cnil; |
{object V59 = Cnil; |
483 |
VMR17(V58)} |
VMR17(V59)} |
484 |
return Cnil; |
return Cnil; |
485 |
} |
} |
486 |
/* local entry for function progn 'compile2454 */ |
/* local entry for function progn 'compile2459 */ |
487 |
|
|
488 |
static object LI18() |
static object LI18() |
489 |
|
|
494 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
495 |
(void) (*Lnk69)(); |
(void) (*Lnk69)(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
{object V59 = Cnil; |
{object V60 = Cnil; |
498 |
VMR18(V59)} |
VMR18(V60)} |
499 |
base[0]=base[0]; |
base[0]=base[0]; |
500 |
return Cnil; |
return Cnil; |
501 |
} |
} |
502 |
/* local entry for function progn 'compile2466 */ |
/* local entry for function progn 'compile2471 */ |
503 |
|
|
504 |
static object LI19() |
static object LI19() |
505 |
|
|
514 |
(VV[20]->s.s_dbind)= Cnil; |
(VV[20]->s.s_dbind)= Cnil; |
515 |
goto T107; |
goto T107; |
516 |
T107:; |
T107:; |
517 |
{object V60 = Cnil; |
{object V61 = Cnil; |
518 |
VMR19(V60)} |
VMR19(V61)} |
519 |
return Cnil; |
return Cnil; |
520 |
} |
} |
521 |
/* local entry for function progn 'compile2479 */ |
/* local entry for function progn 'compile2484 */ |
522 |
|
|
523 |
static object LI20() |
static object LI20() |
524 |
|
|
525 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
526 |
goto TTL; |
goto TTL; |
527 |
TTL:; |
TTL:; |
528 |
{object V61 = Cnil; |
{object V62 = Cnil; |
529 |
VMR20(V61)} |
VMR20(V62)} |
530 |
return Cnil; |
return Cnil; |
531 |
} |
} |
532 |
/* local entry for function MAKE-KCL-TOP-RESTART */ |
/* local entry for function MAKE-KCL-TOP-RESTART */ |
533 |
|
|
534 |
static object LI22(V63) |
static object LI22(V64) |
535 |
|
|
536 |
object V63; |
object V64; |
537 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
538 |
goto TTL; |
goto TTL; |
539 |
TTL:; |
TTL:; |
540 |
base[0]=MMcons((V63),Cnil); |
base[0]=MMcons((V64),Cnil); |
|
V64= |
|
|
make_cclosure_new(LC38,Cnil,base[0],Cdata); |
|
541 |
V65= |
V65= |
542 |
|
make_cclosure_new(LC38,Cnil,base[0],Cdata); |
543 |
|
V66= |
544 |
make_cclosure_new(LC39,Cnil,base[0],Cdata); |
make_cclosure_new(LC39,Cnil,base[0],Cdata); |
545 |
{object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil)); |
{object V67 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V65,VV[24],V66,VV[34],Cnil)); |
546 |
VMR21(V66)} |
VMR21(V67)} |
547 |
base[0]=base[0]; |
base[0]=base[0]; |
548 |
return Cnil; |
return Cnil; |
549 |
} |
} |
550 |
/* local entry for function FIND-KCL-TOP-RESTART */ |
/* local entry for function FIND-KCL-TOP-RESTART */ |
551 |
|
|
552 |
static object LI23(V68) |
static object LI23(V69) |
553 |
|
|
554 |
object V68; |
object V69; |
555 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
556 |
goto TTL; |
goto TTL; |
557 |
TTL:;{object V70; |
TTL:;{object V71; |
558 |
{register object x= (V68),V71= (VV[20]->s.s_dbind); |
{register object x= (V69),V72= (VV[20]->s.s_dbind); |
559 |
while(V71!=Cnil) |
while(V72!=Cnil) |
560 |
if(eql(x,V71->c.c_car->c.c_car) &&V71->c.c_car != Cnil){ |
if(eql(x,V72->c.c_car->c.c_car) &&V72->c.c_car != Cnil){ |
561 |
V70= (V71->c.c_car); |
V71= (V72->c.c_car); |
562 |
goto T116; |
goto T116; |
563 |
}else V71=V71->c.c_cdr; |
}else V72=V72->c.c_cdr; |
564 |
V70= Cnil;} |
V71= Cnil;} |
565 |
goto T116; |
goto T116; |
566 |
T116:; |
T116:; |
567 |
if(V70==Cnil)goto T115; |
if(V71==Cnil)goto T115; |
568 |
V69= V70; |
V70= V71; |
569 |
goto T114; |
goto T114; |
570 |
goto T115; |
goto T115; |
571 |
T115:;} |
T115:;} |
572 |
{object V73; |
{object V74; |
573 |
V74= (*(LnkLI75))((V68)); |
V75 = (V69); |
574 |
V73= make_cons((V68),/* INLINE-ARGS */V74); |
V76= (*(LnkLI75))((V69)); |
575 |
(VV[20]->s.s_dbind)= make_cons((V73),(VV[20]->s.s_dbind)); |
V74= make_cons(V75,/* INLINE-ARGS */V76); |
576 |
V72= (VV[20]->s.s_dbind);} |
(VV[20]->s.s_dbind)= make_cons((V74),(VV[20]->s.s_dbind)); |
577 |
V69= CMPcar(V72); |
V73= (VV[20]->s.s_dbind);} |
578 |
|
V70= CMPcar(V73); |
579 |
goto T114; |
goto T114; |
580 |
T114:; |
T114:; |
581 |
{object V75 = CMPcdr(V69); |
{object V77 = CMPcdr(V70); |
582 |
VMR22(V75)} |
VMR22(V77)} |
583 |
base[0]=base[0]; |
base[0]=base[0]; |
584 |
return Cnil; |
return Cnil; |
585 |
} |
} |
590 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
591 |
goto TTL; |
goto TTL; |
592 |
TTL:; |
TTL:; |
593 |
{object V76; |
{object V78; |
594 |
object V77; |
object V79; |
595 |
object V78; |
object V80; |
596 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
597 |
{object V79; |
{object V81; |
598 |
object V80= base[4]; |
object V82= base[4]; |
599 |
if(V80==Cnil){ |
if(V82==Cnil){ |
600 |
V76= Cnil; |
V78= Cnil; |
601 |
goto T120;} |
goto T120;} |
602 |
base[3]=V79=MMcons(Cnil,Cnil); |
base[3]=V81=MMcons(Cnil,Cnil); |
603 |
goto T121; |
goto T121; |
604 |
T121:; |
T121:; |
605 |
if((CMPcdr((V80->c.c_car)))==Cnil){ |
if((CMPcdr((V82->c.c_car)))==Cnil){ |
606 |
goto T124;} |
goto T124;} |
607 |
(V79->c.c_cdr)= make_cons(CMPcdr((V80->c.c_car)),Cnil); |
(V81->c.c_cdr)= make_cons(CMPcdr((V82->c.c_car)),Cnil); |
608 |
goto T122; |
goto T122; |
609 |
goto T124; |
goto T124; |
610 |
T124:; |
T124:; |
611 |
(V79->c.c_cdr)= Cnil; |
(V81->c.c_cdr)= Cnil; |
612 |
goto T122; |
goto T122; |
613 |
T122:; |
T122:; |
614 |
while(MMcdr(V79)!=Cnil)V79=MMcdr(V79); |
while(MMcdr(V81)!=Cnil)V81=MMcdr(V81); |
615 |
if((V80=MMcdr(V80))==Cnil){ |
if((V82=MMcdr(V82))==Cnil){ |
616 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
617 |
V76= base[3]; |
V78= base[3]; |
618 |
goto T120;} |
goto T120;} |
619 |
goto T121;} |
goto T121;} |
620 |
goto T120; |
goto T120; |
621 |
T120:; |
T120:; |
622 |
if(((VV[25]->s.s_dbind))==Cnil){ |
if(((VV[25]->s.s_dbind))==Cnil){ |
623 |
goto T128;} |
goto T128;} |
624 |
V77= make_cons((VV[25]->s.s_dbind),(V76)); |
V79= make_cons((VV[25]->s.s_dbind),(V78)); |
625 |
goto T126; |
goto T126; |
626 |
goto T128; |
goto T128; |
627 |
T128:; |
T128:; |
628 |
V77= (V76); |
V79= (V78); |
629 |
goto T126; |
goto T126; |
630 |
T126:; |
T126:; |
631 |
{object V82; |
{object V84; |
632 |
object V83= (V77); |
object V85= (V79); |
633 |
if(V83==Cnil){ |
if(V85==Cnil){ |
634 |
V78= Cnil; |
V80= Cnil; |
635 |
goto T130;} |
goto T130;} |
636 |
base[3]=V82=MMcons(Cnil,Cnil); |
base[3]=V84=MMcons(Cnil,Cnil); |
637 |
goto T131; |
goto T131; |
638 |
T131:; |
T131:; |
639 |
(V82->c.c_car)= (*(LnkLI76))((V83->c.c_car)); |
(V84->c.c_car)= (*(LnkLI76))((V85->c.c_car)); |
640 |
if((V83=MMcdr(V83))==Cnil){ |
if((V85=MMcdr(V85))==Cnil){ |
641 |
V78= base[3]; |
V80= base[3]; |
642 |
goto T130;} |
goto T130;} |
643 |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
644 |
goto T131;} |
goto T131;} |
645 |
goto T130; |
goto T130; |
646 |
T130:; |
T130:; |
647 |
{object V84; |
{object V86; |
648 |
object V85= (V77); |
object V87= (V79); |
649 |
object V86= (V78); |
object V88= (V80); |
650 |
if(V85==Cnil||V86==Cnil){ |
if(V87==Cnil||V88==Cnil){ |
651 |
(VV[20]->s.s_dbind)= Cnil; |
(VV[20]->s.s_dbind)= Cnil; |
652 |
goto T134;} |
goto T134;} |
653 |
base[3]=V84=MMcons(Cnil,Cnil); |
base[3]=V86=MMcons(Cnil,Cnil); |
654 |
goto T135; |
goto T135; |
655 |
T135:; |
T135:; |
656 |
(V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car)); |
(V86->c.c_car)= make_cons((V87->c.c_car),(V88->c.c_car)); |
657 |
if((V85=MMcdr(V85))==Cnil||(V86=MMcdr(V86))==Cnil){ |
if((V87=MMcdr(V87))==Cnil||(V88=MMcdr(V88))==Cnil){ |
658 |
(VV[20]->s.s_dbind)= base[3]; |
(VV[20]->s.s_dbind)= base[3]; |
659 |
goto T134;} |
goto T134;} |
660 |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
V86=MMcdr(V86)=MMcons(Cnil,Cnil); |
661 |
goto T135;} |
goto T135;} |
662 |
goto T134; |
goto T134; |
663 |
T134:; |
T134:; |
664 |
{object V87 = (V78); |
{object V89 = (V80); |
665 |
VMR23(V87)}} |
VMR23(V89)}} |
666 |
base[0]=base[0]; |
base[0]=base[0]; |
667 |
return Cnil; |
return Cnil; |
668 |
} |
} |
672 |
{register object *base=vs_base; |
{register object *base=vs_base; |
673 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
674 |
vs_check; |
vs_check; |
675 |
{object V88; |
{object V90; |
676 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
677 |
V88=(base[1]); |
V90=(base[1]); |
678 |
vs_top=sup; |
vs_top=sup; |
679 |
{object V89; |
{object V91; |
680 |
V89= STREF(object,(base[0]->c.c_car),8); |
V91= STREF(object,(base[0]->c.c_car),8); |
681 |
if(((V89))==Cnil){ |
if(((V91))==Cnil){ |
682 |
goto T140;} |
goto T140;} |
683 |
base[2]= (V89); |
base[2]= (V91); |
684 |
goto T137; |
goto T137; |
685 |
goto T140; |
goto T140; |
686 |
T140:; |
T140:; |
690 |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
691 |
goto T137; |
goto T137; |
692 |
T137:; |
T137:; |
693 |
base[3]= (V88); |
base[3]= (V90); |
694 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
695 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
696 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
706 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
707 |
vs_check; |
vs_check; |
708 |
vs_top=sup; |
vs_top=sup; |
709 |
{object V90=base[0]->c.c_cdr; |
{object V92=base[0]->c.c_cdr; |
710 |
base[2]= (V90->c.c_car); |
base[2]= (V92->c.c_car); |
711 |
V90=V90->c.c_cdr; |
V92=V92->c.c_cdr; |
712 |
base[3]= V90;} |
base[3]= V92;} |
713 |
{object V92; |
{object V94; |
714 |
object V93= base[2]; |
object V95= base[2]; |
715 |
if(V93==Cnil){ |
if(V95==Cnil){ |
716 |
V91= Cnil; |
V93= Cnil; |
717 |
goto T144;} |
goto T144;} |
718 |
base[4]=V92=MMcons(Cnil,Cnil); |
base[4]=V94=MMcons(Cnil,Cnil); |
719 |
goto T145; |
goto T145; |
720 |
T145:; |
T145:; |
721 |
(V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V93->c.c_car))),VV[23],CMPcadr((V93->c.c_car)),CMPcddr((V93->c.c_car))); |
(V94->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V95->c.c_car))),VV[23],CMPcadr((V95->c.c_car)),CMPcddr((V95->c.c_car))); |
722 |
if((V93=MMcdr(V93))==Cnil){ |
if((V95=MMcdr(V95))==Cnil){ |
723 |
V91= base[4]; |
V93= base[4]; |
724 |
goto T144;} |
goto T144;} |
725 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
V94=MMcdr(V94)=MMcons(Cnil,Cnil); |
726 |
goto T145;} |
goto T145;} |
727 |
goto T144; |
goto T144; |
728 |
T144:; |
T144:; |
729 |
V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10])); |
V97= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V93),VV[10])); |
730 |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]); |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V97,Cnil),base[3]); |
731 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
732 |
return; |
return; |
733 |
} |
} |
734 |
/* local entry for function FIND-RESTART */ |
/* local entry for function FIND-RESTART */ |
735 |
|
|
736 |
static object LI27(object V96,object first,...) |
static object LI27(object V98,object first,...) |
737 |
{ |
{ |
738 |
va_list ap; |
va_list ap; |
739 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
740 |
{register object V97; |
{register object V99; |
741 |
object V98; |
object V100; |
742 |
va_start(ap,first); |
va_start(ap,first); |
743 |
V97= V96; |
V99= V98; |
744 |
narg = narg - 1; |
narg = narg - 1; |
745 |
if (narg <= 0) goto T147; |
if (narg <= 0) goto T147; |
746 |
else { |
else { |
747 |
V98= first;} |
V100= first;} |
748 |
--narg; goto T148; |
--narg; goto T148; |
749 |
goto T147; |
goto T147; |
750 |
T147:; |
T147:; |
751 |
V98= Cnil; |
V100= Cnil; |
752 |
goto T148; |
goto T148; |
753 |
T148:; |
T148:; |
754 |
{register object V99; |
{register object V101; |
755 |
object V100; |
object V102; |
756 |
V99= (VV[10]->s.s_dbind); |
V101= (VV[10]->s.s_dbind); |
757 |
V100= CMPcar((V99)); |
V102= CMPcar((V101)); |
758 |
goto T154; |
goto T154; |
759 |
T154:; |
T154:; |
760 |
if(!(((V99))==Cnil)){ |
if(!(((V101))==Cnil)){ |
761 |
goto T155;} |
goto T155;} |
762 |
goto T150; |
goto T150; |
763 |
goto T155; |
goto T155; |
764 |
T155:; |
T155:; |
765 |
{register object V101; |
{register object V103; |
766 |
register object V102; |
register object V104; |
767 |
V101= (V100); |
V103= (V102); |
768 |
V102= CMPcar((V101)); |
V104= CMPcar((V103)); |
769 |
goto T163; |
goto T163; |
770 |
T163:; |
T163:; |
771 |
if(!(((V101))==Cnil)){ |
if(!(((V103))==Cnil)){ |
772 |
goto T164;} |
goto T164;} |
773 |
goto T159; |
goto T159; |
774 |
goto T164; |
goto T164; |
775 |
T164:; |
T164:; |
776 |
if(((V102))==((V97))){ |
if(((V104))==((V99))){ |
777 |
goto T169;} |
goto T169;} |
778 |
if(!((STREF(object,(V102),0))==((V97)))){ |
if(!((STREF(object,(V104),0))==((V99)))){ |
779 |
goto T168;} |
goto T168;} |
780 |
goto T169; |
goto T169; |
781 |
T169:; |
T169:; |
782 |
{object V103 = (V102); |
{object V105 = (V104); |
783 |
VMR26(V103)} |
VMR26(V105)} |
784 |
goto T168; |
goto T168; |
785 |
T168:; |
T168:; |
786 |
V101= CMPcdr((V101)); |
V103= CMPcdr((V103)); |
787 |
V102= CMPcar((V101)); |
V104= CMPcar((V103)); |
788 |
goto T163;} |
goto T163;} |
789 |
goto T159; |
goto T159; |
790 |
T159:; |
T159:; |
791 |
V99= CMPcdr((V99)); |
V101= CMPcdr((V101)); |
792 |
V100= CMPcar((V99)); |
V102= CMPcar((V101)); |
793 |
goto T154;} |
goto T154;} |
794 |
goto T150; |
goto T150; |
795 |
T150:; |
T150:; |
796 |
{object V104; |
{object V106; |
797 |
V104= (*(LnkLI71))(); |
V106= (*(LnkLI71))(); |
798 |
{register object V105; |
{register object V107; |
799 |
register object V106; |
register object V108; |
800 |
V105= (V104); |
V107= (V106); |
801 |
V106= CMPcar((V105)); |
V108= CMPcar((V107)); |
802 |
goto T187; |
goto T187; |
803 |
T187:; |
T187:; |
804 |
if(!(((V105))==Cnil)){ |
if(!(((V107))==Cnil)){ |
805 |
goto T188;} |
goto T188;} |
806 |
{object V107 = Cnil; |
{object V109 = Cnil; |
807 |
VMR26(V107)} |
VMR26(V109)} |
808 |
goto T188; |
goto T188; |
809 |
T188:; |
T188:; |
810 |
if(((V106))==((V97))){ |
if(((V108))==((V99))){ |
811 |
goto T193;} |
goto T193;} |
812 |
if(!((STREF(object,(V106),0))==((V97)))){ |
if(!((STREF(object,(V108),0))==((V99)))){ |
813 |
goto T192;} |
goto T192;} |
814 |
goto T193; |
goto T193; |
815 |
T193:; |
T193:; |
816 |
{object V108 = (V106); |
{object V110 = (V108); |
817 |
VMR26(V108)} |
VMR26(V110)} |
818 |
goto T192; |
goto T192; |
819 |
T192:; |
T192:; |
820 |
V105= CMPcdr((V105)); |
V107= CMPcdr((V107)); |
821 |
V106= CMPcar((V105)); |
V108= CMPcar((V107)); |
822 |
goto T187;}} |
goto T187;}} |
823 |
va_end(ap); |
va_end(ap); |
824 |
base[0]=base[0]; |
base[0]=base[0]; |
830 |
{register object *base=vs_base; |
{register object *base=vs_base; |
831 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
832 |
vs_check; |
vs_check; |
833 |
{object V109; |
{object V111; |
834 |
object V110; |
object V112; |
835 |
V109=(base[0]); |
V111=(base[0]); |
836 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
837 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
838 |
{object *p=vs_top; |
{object *p=vs_top; |
839 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
840 |
V110=(base[1]); |
V112=(base[1]); |
841 |
vs_top=sup; |
vs_top=sup; |
842 |
{object V111;{object V112; |
{object V113;{object V114; |
843 |
V112= (VFUN_NARGS=1,(*(LnkLI77))((V109))); |
V114= (VFUN_NARGS=1,(*(LnkLI77))((V111))); |
844 |
if(V112==Cnil)goto T203; |
if(V114==Cnil)goto T203; |
845 |
V111= V112; |
V113= V114; |
846 |
goto T202; |
goto T202; |
847 |
goto T203; |
goto T203; |
848 |
T203:;} |
T203:;} |
849 |
base[2]= VV[40]; |
base[2]= VV[40]; |
850 |
base[3]= (V109); |
base[3]= (V111); |
851 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
852 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
853 |
vs_top=sup; |
vs_top=sup; |
854 |
V111= vs_base[0]; |
V113= vs_base[0]; |
855 |
goto T202; |
goto T202; |
856 |
T202:; |
T202:; |
857 |
base[2]= STREF(object,(V111),4); |
base[2]= STREF(object,(V113),4); |
858 |
{object V113; |
{object V115; |
859 |
V113= (V110); |
V115= (V112); |
860 |
vs_top=base+3; |
vs_top=base+3; |
861 |
while(V113!=Cnil) |
while(V115!=Cnil) |
862 |
{vs_push((V113)->c.c_car);V113=(V113)->c.c_cdr;} |
{vs_push((V115)->c.c_car);V115=(V115)->c.c_cdr;} |
863 |
vs_base=base+3;} |
vs_base=base+3;} |
864 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
865 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
874 |
{register object *base=vs_base; |
{register object *base=vs_base; |
875 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
876 |
vs_check; |
vs_check; |
877 |
{object V114; |
{object V116; |
878 |
V114=(base[0]); |
V116=(base[0]); |
879 |
vs_top=sup; |
vs_top=sup; |
880 |
goto TTL; |
goto TTL; |
881 |
TTL:; |
TTL:; |
882 |
{object V115;{object V116; |
{object V117;{object V118; |
883 |
V116= (VFUN_NARGS=1,(*(LnkLI77))((V114))); |
V118= (VFUN_NARGS=1,(*(LnkLI77))((V116))); |
884 |
if(V116==Cnil)goto T210; |
if(V118==Cnil)goto T210; |
885 |
V115= V116; |
V117= V118; |
886 |
goto T209; |
goto T209; |
887 |
goto T210; |
goto T210; |
888 |
T210:;} |
T210:;} |
889 |
base[1]= VV[41]; |
base[1]= VV[41]; |
890 |
base[2]= (V114); |
base[2]= (V116); |
891 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
892 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
893 |
vs_top=sup; |
vs_top=sup; |
894 |
V115= vs_base[0]; |
V117= vs_base[0]; |
895 |
goto T209; |
goto T209; |
896 |
T209:; |
T209:; |
897 |
base[1]= STREF(object,(V115),4); |
base[1]= STREF(object,(V117),4); |
898 |
{object V117; |
{object V119; |
899 |
{object V118; |
{object V120; |
900 |
V118= STREF(object,(V115),12); |
V120= STREF(object,(V117),12); |
901 |
if(((V118))==Cnil){ |
if(((V120))==Cnil){ |
902 |
goto T218;} |
goto T218;} |
903 |
vs_base=vs_top; |
vs_base=vs_top; |
904 |
{object _funobj = (V118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
905 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
906 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
907 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
908 |
vs_top=sup; |
vs_top=sup; |
909 |
V117= vs_base[0]; |
V119= vs_base[0]; |
910 |
goto T215; |
goto T215; |
911 |
goto T218; |
goto T218; |
912 |
T218:; |
T218:; |
913 |
V117= Cnil;} |
V119= Cnil;} |
914 |
goto T215; |
goto T215; |
915 |
T215:; |
T215:; |
916 |
vs_top=base+2; |
vs_top=base+2; |
917 |
while(V117!=Cnil) |
while(V119!=Cnil) |
918 |
{vs_push((V117)->c.c_car);V117=(V117)->c.c_cdr;} |
{vs_push((V119)->c.c_car);V119=(V119)->c.c_cdr;} |
919 |
vs_base=base+2;} |
vs_base=base+2;} |
920 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
921 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
931 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
932 |
vs_check; |
vs_check; |
933 |
vs_top=sup; |
vs_top=sup; |
934 |
{object V119=base[0]->c.c_cdr; |
{object V121=base[0]->c.c_cdr; |
935 |
base[2]= (V119->c.c_car); |
base[2]= (V121->c.c_car); |
936 |
V119=V119->c.c_cdr; |
V121=V121->c.c_cdr; |
937 |
base[3]= V119;} |
base[3]= V121;} |
938 |
{object V120; |
{object V122; |
939 |
object V121; |
object V123; |
940 |
object V122; |
object V124; |
941 |
vs_base=vs_top; |
vs_base=vs_top; |
942 |
Lgensym(); |
Lgensym(); |
943 |
vs_top=sup; |
vs_top=sup; |
944 |
V120= vs_base[0]; |
V122= vs_base[0]; |
945 |
vs_base=vs_top; |
vs_base=vs_top; |
946 |
Lgensym(); |
Lgensym(); |
947 |
vs_top=sup; |
vs_top=sup; |
948 |
V121= vs_base[0]; |
V123= vs_base[0]; |
949 |
{object V123; |
{object V125; |
950 |
object V124= base[3]; |
object V126= base[3]; |
951 |
if(V124==Cnil){ |
if(V126==Cnil){ |
952 |
V122= Cnil; |
V124= Cnil; |
953 |
goto T222;} |
goto T222;} |
954 |
base[4]=V123=MMcons(Cnil,Cnil); |
base[4]=V125=MMcons(Cnil,Cnil); |
955 |
goto T223; |
goto T223; |
956 |
T223:; |
T223:; |
957 |
{object V126; |
{object V128; |
958 |
object V127; |
object V129; |
959 |
base[5]= CMPcddr((V124->c.c_car)); |
base[5]= CMPcddr((V126->c.c_car)); |
960 |
base[6]= VV[42]; |
base[6]= VV[42]; |
961 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
962 |
(void) (*Lnk6)(); |
(void) (*Lnk6)(); |
963 |
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
964 |
V126= vs_base[0]; |
V128= vs_base[0]; |
965 |
vs_base++; |
vs_base++; |
966 |
if(vs_base>=vs_top){vs_top=sup;goto T229;} |
if(vs_base>=vs_top){vs_top=sup;goto T229;} |
967 |
V127= vs_base[0]; |
V129= vs_base[0]; |
968 |
vs_top=sup; |
vs_top=sup; |
969 |
goto T230; |
goto T230; |
970 |
goto T228; |
goto T228; |
971 |
T228:; |
T228:; |
972 |
V126= Cnil; |
V128= Cnil; |
973 |
goto T229; |
goto T229; |
974 |
T229:; |
T229:; |
975 |
V127= Cnil; |
V129= Cnil; |
976 |
goto T230; |
goto T230; |
977 |
T230:; |
T230:; |
978 |
{object V128; |
{object V130; |
979 |
object V129; |
object V131; |
980 |
base[5]= (V126); |
base[5]= (V128); |
981 |
base[6]= VV[43]; |
base[6]= VV[43]; |
982 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
983 |
Lgetf(); |
Lgetf(); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
V128= vs_base[0]; |
V130= vs_base[0]; |
986 |
base[5]= (V126); |
base[5]= (V128); |
987 |
base[6]= VV[44]; |
base[6]= VV[44]; |
988 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
989 |
Lgetf(); |
Lgetf(); |
990 |
vs_top=sup; |
vs_top=sup; |
991 |
V129= vs_base[0]; |
V131= vs_base[0]; |
992 |
V130= CMPcar((V124->c.c_car)); |
V132= CMPcar((V126->c.c_car)); |
993 |
vs_base=vs_top; |
vs_base=vs_top; |
994 |
Lgensym(); |
Lgensym(); |
995 |
vs_top=sup; |
vs_top=sup; |
996 |
V131= vs_base[0]; |
V133= vs_base[0]; |
997 |
base[5]= VV[43]; |
base[5]= VV[43]; |
998 |
base[6]= (V128); |
base[6]= (V130); |
999 |
base[7]= VV[44]; |
base[7]= VV[44]; |
1000 |
base[8]= (V129); |
base[8]= (V131); |
1001 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1002 |
L31(base); |
L31(base); |
1003 |
vs_top=sup; |
vs_top=sup; |
1004 |
V132= vs_base[0]; |
V134= vs_base[0]; |
1005 |
(V123->c.c_car)= list(5,/* INLINE-ARGS */V130,V131,V132,CMPcadr((V124->c.c_car)),(V127));}} |
V135 = (V129); |
1006 |
if((V124=MMcdr(V124))==Cnil){ |
(V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,CMPcadr((V126->c.c_car)),V135);}} |
1007 |
V122= base[4]; |
if((V126=MMcdr(V126))==Cnil){ |
1008 |
|
V124= base[4]; |
1009 |
goto T222;} |
goto T222;} |
1010 |
V123=MMcdr(V123)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
1011 |
goto T223;} |
goto T223;} |
1012 |
goto T222; |
goto T222; |
1013 |
T222:; |
T222:; |
1014 |
V133= list(2,(V121),Cnil); |
V136= list(2,(V123),Cnil); |
1015 |
V134= make_cons(/* INLINE-ARGS */V133,Cnil); |
V137= make_cons(/* INLINE-ARGS */V136,Cnil); |
1016 |
{object V136; |
{object V139; |
1017 |
object V137= (V122); |
object V140= (V124); |
1018 |
if(V137==Cnil){ |
if(V140==Cnil){ |
1019 |
V135= Cnil; |
V138= Cnil; |
1020 |
goto T243;} |
goto T243;} |
1021 |
base[4]=V136=MMcons(Cnil,Cnil); |
base[4]=V139=MMcons(Cnil,Cnil); |
1022 |
goto T244; |
goto T244; |
1023 |
T244:; |
T244:; |
1024 |
{object V139; |
{object V142; |
1025 |
object V140; |
object V143; |
1026 |
object V141; |
object V144; |
1027 |
V139= CMPcar((V137->c.c_car)); |
V142= CMPcar((V140->c.c_car)); |
1028 |
V140= CMPcadr((V137->c.c_car)); |
V143= CMPcadr((V140->c.c_car)); |
1029 |
V141= CMPcaddr((V137->c.c_car)); |
V144= CMPcaddr((V140->c.c_car)); |
1030 |
V142= list(3,VV[51],(V121),VV[52]); |
V145= list(3,VV[51],(V123),VV[52]); |
1031 |
(V136->c.c_car)= listA(3,(V139),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V142,list(2,VV[53],(V140)))),(V141));} |
(V139->c.c_car)= listA(3,(V142),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V145,list(2,VV[53],(V143)))),(V144));} |
1032 |
if((V137=MMcdr(V137))==Cnil){ |
if((V140=MMcdr(V140))==Cnil){ |
1033 |
V135= base[4]; |
V138= base[4]; |
1034 |
goto T243;} |
goto T243;} |
1035 |
V136=MMcdr(V136)=MMcons(Cnil,Cnil); |
V139=MMcdr(V139)=MMcons(Cnil,Cnil); |
1036 |
goto T244;} |
goto T244;} |
1037 |
goto T243; |
goto T243; |
1038 |
T243:; |
T243:; |
1039 |
V143= list(3,VV[47],V135,list(3,VV[54],(V120),base[2])); |
V146= list(3,VV[47],V138,list(3,VV[54],(V122),base[2])); |
1040 |
{object V145; |
{object V148; |
1041 |
object V146= (V122); |
object V149= (V124); |
1042 |
if(V146==Cnil){ |
if(V149==Cnil){ |
1043 |
V144= Cnil; |
V147= Cnil; |
1044 |
goto T249;} |
goto T249;} |
1045 |
base[4]=V145=MMcons(Cnil,Cnil); |
base[4]=V148=MMcons(Cnil,Cnil); |
1046 |
goto T250; |
goto T250; |
1047 |
T250:; |
T250:; |
1048 |
{object V148; |
{object V151; |
1049 |
object V149; |
object V152; |
1050 |
object V150; |
object V153; |
1051 |
V148= CMPcadr((V146->c.c_car)); |
V151= CMPcadr((V149->c.c_car)); |
1052 |
V149= CMPcadddr((V146->c.c_car)); |
V152= CMPcadddr((V149->c.c_car)); |
1053 |
V150= CMPcar(CMPcddddr((V146->c.c_car))); |
V153= CMPcar(CMPcddddr((V149->c.c_car))); |
1054 |
(V145->c.c_cdr)= list(2,(V148),list(3,VV[54],(V120),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V149),(V150))),(V121))));} |
(V148->c.c_cdr)= list(2,(V151),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V152),(V153))),(V123))));} |
1055 |
while(MMcdr(V145)!=Cnil)V145=MMcdr(V145); |
while(MMcdr(V148)!=Cnil)V148=MMcdr(V148); |
1056 |
if((V146=MMcdr(V146))==Cnil){ |
if((V149=MMcdr(V149))==Cnil){ |
1057 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
1058 |
V144= base[4]; |
V147= base[4]; |
1059 |
goto T249;} |
goto T249;} |
1060 |
goto T250;} |
goto T250;} |
1061 |
goto T249; |
goto T249; |
1062 |
T249:; |
T249:; |
1063 |
base[4]= list(3,VV[45],(V120),list(3,VV[8],/* INLINE-ARGS */V134,listA(3,VV[46],/* INLINE-ARGS */V143,V144))); |
base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V137,listA(3,VV[46],/* INLINE-ARGS */V146,V147))); |
1064 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1065 |
return;} |
return;} |
1066 |
} |
} |
1071 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1072 |
vs_check; |
vs_check; |
1073 |
vs_top=sup; |
vs_top=sup; |
1074 |
{object V151=base[0]->c.c_cdr; |
{object V154=base[0]->c.c_cdr; |
1075 |
{object V152= (V151->c.c_car); |
{object V155= (V154->c.c_car); |
1076 |
base[2]= (V152->c.c_car); |
base[2]= (V155->c.c_car); |
1077 |
V152=V152->c.c_cdr; |
V155=V155->c.c_cdr; |
1078 |
base[3]= (V152->c.c_car); |
base[3]= (V155->c.c_car); |
1079 |
V152=V152->c.c_cdr; |
V155=V155->c.c_cdr; |
1080 |
base[4]= V152;} |
base[4]= V155;} |
1081 |
V151=V151->c.c_cdr; |
V154=V154->c.c_cdr; |
1082 |
base[5]= V151;} |
base[5]= V154;} |
1083 |
V153= make_cons(VV[60],base[5]); |
V156= make_cons(VV[60],base[5]); |
1084 |
base[6]= list(3,VV[59],/* INLINE-ARGS */V153,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
base[6]= list(3,VV[59],/* INLINE-ARGS */V156,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
1085 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1086 |
return; |
return; |
1087 |
} |
} |
1137 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1138 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1139 |
vs_check; |
vs_check; |
1140 |
{object V154; |
{object V157; |
1141 |
V154=(base[0]); |
V157=(base[0]); |
1142 |
vs_top=sup; |
vs_top=sup; |
1143 |
goto TTL; |
goto TTL; |
1144 |
TTL:; |
TTL:; |
1145 |
base[1]= VV[67]; |
base[1]= VV[67]; |
1146 |
base[2]= (V154); |
base[2]= (V157); |
1147 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1148 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1149 |
return; |
return; |
1155 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1156 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1157 |
vs_check; |
vs_check; |
1158 |
{object V155; |
{object V158; |
1159 |
V155=(base[0]); |
V158=(base[0]); |
1160 |
vs_top=sup; |
vs_top=sup; |
1161 |
goto TTL; |
goto TTL; |
1162 |
TTL:; |
TTL:; |
1163 |
base[1]= VV[68]; |
base[1]= VV[68]; |
1164 |
base[2]= (V155); |
base[2]= (V158); |
1165 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1166 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1167 |
return; |
return; |
1174 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1175 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
1176 |
vs_check; |
vs_check; |
1177 |
{register object V156; |
{register object V159; |
1178 |
object V157; |
object V160; |
1179 |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
1180 |
vs_top=sup; |
vs_top=sup; |
1181 |
V156=(base[0]); |
V159=(base[0]); |
1182 |
V157=(base[1]); |
V160=(base[1]); |
1183 |
{register object V158; |
{register object V161; |
1184 |
V158= Cnil; |
V161= Cnil; |
1185 |
if(((V156))==Cnil){ |
if(((V159))==Cnil){ |
1186 |
goto T264;} |
goto T264;} |
1187 |
if(!(type_of((V156))==t_string)){ |
if(!(type_of((V159))==t_string)){ |
1188 |
goto T270;} |
goto T270;} |
1189 |
V159= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V156),VV[58]))); |
V162= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V159),VV[58]))); |
1190 |
goto T268; |
goto T268; |
1191 |
goto T270; |
goto T270; |
1192 |
T270:; |
T270:; |
1193 |
V159= list(2,VV[48],(V156)); |
V162= list(2,VV[48],(V159)); |
1194 |
goto T268; |
goto T268; |
1195 |
T268:; |
T268:; |
1196 |
V158= listA(3,V159,VV[24],(V158)); |
V163 = (V161); |
1197 |
|
V161= listA(3,V162,VV[24],V163); |
1198 |
goto T264; |
goto T264; |
1199 |
T264:; |
T264:; |
1200 |
if(((V157))==Cnil){ |
if(((V160))==Cnil){ |
1201 |
goto T272;} |
goto T272;} |
1202 |
V158= listA(3,list(2,VV[48],(V157)),VV[34],(V158)); |
V161= listA(3,list(2,VV[48],(V160)),VV[34],(V161)); |
1203 |
goto T272; |
goto T272; |
1204 |
T272:; |
T272:; |
1205 |
base[4]= nreverse((V158)); |
base[4]= nreverse((V161)); |
1206 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1207 |
return;} |
return;} |
1208 |
} |
} |
1214 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1215 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
1216 |
vs_check; |
vs_check; |
1217 |
{object V160; |
{object V164; |
1218 |
V160=(base[0]); |
V164=(base[0]); |
1219 |
vs_top=sup; |
vs_top=sup; |
1220 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
1221 |
goto T277;} |
goto T277;} |
1222 |
base[1]= (V160); |
base[1]= (V164); |
1223 |
base[2]= VV[35]; |
base[2]= VV[35]; |
1224 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
1225 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1227 |
return; |
return; |
1228 |
goto T277; |
goto T277; |
1229 |
T277:; |
T277:; |
1230 |
base[1]= (V160); |
base[1]= (V164); |
1231 |
base[2]= VV[36]; |
base[2]= VV[36]; |
1232 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1233 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1242 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1243 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1244 |
vs_check; |
vs_check; |
1245 |
{object V161; |
{object V165; |
1246 |
V161=(base[0]); |
V165=(base[0]); |
1247 |
vs_top=sup; |
vs_top=sup; |
1248 |
{object V162; |
{object V166; |
1249 |
if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){ |
if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){ |
1250 |
goto T287;} |
goto T287;} |
1251 |
V162= (VV[26]->s.s_dbind); |
V166= (VV[26]->s.s_dbind); |
1252 |
goto T285; |
goto T285; |
1253 |
goto T287; |
goto T287; |
1254 |
T287:;{object V164; |
T287:;{object V168; |
1255 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1256 |
base[2]= (VV[27]->s.s_dbind); |
base[2]= (VV[27]->s.s_dbind); |
1257 |
base[3]= VV[28]; |
base[3]= VV[28]; |
1259 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1260 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
1261 |
vs_top=sup; |
vs_top=sup; |
1262 |
V164= vs_base[0]; |
V168= vs_base[0]; |
1263 |
if(V164==Cnil)goto T290; |
if(V168==Cnil)goto T290; |
1264 |
V163= V164; |
V167= V168; |
1265 |
goto T289; |
goto T289; |
1266 |
goto T290; |
goto T290; |
1267 |
T290:;} |
T290:;} |
1268 |
V163= VV[29]; |
V167= VV[29]; |
1269 |
goto T289; |
goto T289; |
1270 |
T289:; |
T289:; |
1271 |
V162= CMPcar(V163); |
V166= CMPcar(V167); |
1272 |
goto T285; |
goto T285; |
1273 |
T285:; |
T285:; |
1274 |
if(!(((V162))==(VV[30]))){ |
if(!(((V166))==(VV[30]))){ |
1275 |
goto T297;} |
goto T297;} |
1276 |
base[1]= (V161); |
base[1]= (V165); |
1277 |
base[2]= VV[31]; |
base[2]= VV[31]; |
1278 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1279 |
Lformat(); |
Lformat(); |
1280 |
return; |
return; |
1281 |
goto T297; |
goto T297; |
1282 |
T297:; |
T297:; |
1283 |
if(((V162))!=Cnil){ |
if(((V166))!=Cnil){ |
1284 |
goto T302;} |
goto T302;} |
1285 |
base[1]= (V161); |
base[1]= (V165); |
1286 |
base[2]= VV[32]; |
base[2]= VV[32]; |
1287 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1288 |
Lformat(); |
Lformat(); |
1289 |
return; |
return; |
1290 |
goto T302; |
goto T302; |
1291 |
T302:; |
T302:; |
1292 |
base[1]= (V161); |
base[1]= (V165); |
1293 |
base[2]= VV[33]; |
base[2]= VV[33]; |
1294 |
base[3]= CMPmake_fixnum((long)length((V162))); |
base[3]= CMPmake_fixnum((long)length((V166))); |
1295 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1296 |
Lformat(); |
Lformat(); |
1297 |
return;} |
return;} |
1306 |
vs_check; |
vs_check; |
1307 |
vs_top=sup; |
vs_top=sup; |
1308 |
{frame_ptr fr; |
{frame_ptr fr; |
1309 |
V165= make_cons((base0[0]->c.c_car),Cnil); |
V169= make_cons((base0[0]->c.c_car),Cnil); |
1310 |
base[0]= CMPcar(/* INLINE-ARGS */V165); |
base[0]= CMPcar(/* INLINE-ARGS */V169); |
1311 |
fr=frs_sch_catch(base[0]); |
fr=frs_sch_catch(base[0]); |
1312 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
1313 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |