457 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
458 |
return; |
return; |
459 |
} |
} |
460 |
/* function definition for COMPILE-FILE-PATHNAME */ |
/* local entry for function COMPILE-FILE-PATHNAME */ |
461 |
|
|
462 |
static void L7() |
static object LI7(V63) |
463 |
{register object *base=vs_base; |
|
464 |
register object *sup=base+VM7; VC7 |
object V63; |
465 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{object V62; |
|
|
check_arg(1); |
|
|
V62=(base[0]); |
|
|
vs_top=sup; |
|
466 |
goto TTL; |
goto TTL; |
467 |
TTL:; |
TTL:; |
468 |
base[1]= VV[14]; |
base[0]= VV[14]; |
469 |
base[2]= (V62); |
base[1]= (V63); |
470 |
base[3]= VV[15]; |
base[2]= VV[15]; |
471 |
base[4]= VV[16]; |
base[3]= VV[16]; |
472 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+0)+4; |
473 |
Lmake_pathname(); |
Lmake_pathname(); |
474 |
return; |
vs_top=sup; |
475 |
} |
{object V64 = vs_base[0]; |
476 |
|
VMR7(V64)} |
477 |
|
base[0]=base[0]; |
478 |
|
return Cnil; |
479 |
} |
} |
480 |
/* function definition for CONSTANTLY */ |
/* local entry for function CONSTANTLY */ |
481 |
|
|
482 |
static void L8() |
static object LI9(V66) |
483 |
{register object *base=vs_base; |
|
484 |
register object *sup=base+VM8; VC8 |
object V66; |
485 |
vs_reserve(VM8); |
{ VMB8 VMS8 VMV8 |
486 |
check_arg(1); |
goto TTL; |
487 |
base[0]=MMcons(base[0],Cnil); |
TTL:; |
488 |
vs_top=sup; |
base[0]=MMcons((V66),Cnil); |
489 |
base[1]= |
{object V67 = |
490 |
make_cclosure_new(LC10,Cnil,base[0],Cdata); |
make_cclosure_new(LC12,Cnil,base[0],Cdata); |
491 |
vs_top=(vs_base=base+1)+1; |
VMR8(V67)} |
492 |
return; |
base[0]=base[0]; |
493 |
|
return Cnil; |
494 |
} |
} |
495 |
/* function definition for COMPLEMENT */ |
/* local entry for function COMPLEMENT */ |
496 |
|
|
497 |
static void L9() |
static object LI11(V69) |
498 |
{register object *base=vs_base; |
|
499 |
register object *sup=base+VM9; VC9 |
object V69; |
500 |
vs_reserve(VM9); |
{ VMB9 VMS9 VMV9 |
501 |
check_arg(1); |
goto TTL; |
502 |
base[0]=MMcons(base[0],Cnil); |
TTL:; |
503 |
vs_top=sup; |
base[0]=MMcons((V69),Cnil); |
504 |
base[1]= |
{object V70 = |
505 |
make_cclosure_new(LC11,Cnil,base[0],Cdata); |
make_cclosure_new(LC13,Cnil,base[0],Cdata); |
506 |
vs_top=(vs_base=base+1)+1; |
VMR9(V70)} |
507 |
return; |
base[0]=base[0]; |
508 |
|
return Cnil; |
509 |
} |
} |
510 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
511 |
|
|
512 |
static void LC11(base0) |
static void LC13(base0) |
513 |
register object *base0; |
register object *base0; |
514 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
515 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
516 |
vs_reserve(VM10); |
vs_reserve(VM10); |
517 |
{object V63; |
{object V71; |
518 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
519 |
{object *p=vs_top; |
{object *p=vs_top; |
520 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
521 |
V63=(base[0]); |
V71=(base[0]); |
522 |
vs_top=sup; |
vs_top=sup; |
523 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
524 |
{object V65; |
{object V73; |
525 |
V65= (V63); |
V73= (V71); |
526 |
vs_top=base+2; |
vs_top=base+2; |
527 |
while(!endp(V65)) |
while(!endp(V73)) |
528 |
{vs_push(car(V65));V65=cdr(V65);} |
{vs_push(car(V73));V73=cdr(V73);} |
529 |
vs_base=base+2;} |
vs_base=base+2;} |
530 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
531 |
vs_top=sup; |
vs_top=sup; |
532 |
V64= vs_base[0]; |
V72= vs_base[0]; |
533 |
base[1]= ((V64)==Cnil?Ct:Cnil); |
base[1]= ((V72)==Cnil?Ct:Cnil); |
534 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
535 |
return; |
return; |
536 |
} |
} |
537 |
} |
} |
538 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
539 |
|
|
540 |
static void LC10(base0) |
static void LC12(base0) |
541 |
register object *base0; |
register object *base0; |
542 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
543 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
544 |
vs_reserve(VM11); |
vs_reserve(VM11); |
545 |
{object V66; |
{object V74; |
546 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
547 |
{object *p=vs_top; |
{object *p=vs_top; |
548 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
549 |
V66=(base[0]); |
V74=(base[0]); |
550 |
vs_top=sup; |
vs_top=sup; |
551 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
552 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |