481 |
return; |
return; |
482 |
} |
} |
483 |
} |
} |
484 |
|
/* function definition for CONSTANTLY */ |
485 |
|
|
486 |
|
static void L8() |
487 |
|
{register object *base=vs_base; |
488 |
|
register object *sup=base+VM8; VC8 |
489 |
|
vs_reserve(VM8); |
490 |
|
check_arg(1); |
491 |
|
base[0]=MMcons(base[0],Cnil); |
492 |
|
vs_top=sup; |
493 |
|
base[1]= |
494 |
|
make_cclosure_new(LC10,Cnil,base[0],Cdata); |
495 |
|
vs_top=(vs_base=base+1)+1; |
496 |
|
return; |
497 |
|
} |
498 |
|
/* function definition for COMPLEMENT */ |
499 |
|
|
500 |
|
static void L9() |
501 |
|
{register object *base=vs_base; |
502 |
|
register object *sup=base+VM9; VC9 |
503 |
|
vs_reserve(VM9); |
504 |
|
check_arg(1); |
505 |
|
base[0]=MMcons(base[0],Cnil); |
506 |
|
vs_top=sup; |
507 |
|
base[1]= |
508 |
|
make_cclosure_new(LC11,Cnil,base[0],Cdata); |
509 |
|
vs_top=(vs_base=base+1)+1; |
510 |
|
return; |
511 |
|
} |
512 |
|
/* local function CLOSURE */ |
513 |
|
|
514 |
|
static void LC11(base0) |
515 |
|
register object *base0; |
516 |
|
{ register object *base=vs_base; |
517 |
|
register object *sup=base+VM10; VC10 |
518 |
|
vs_reserve(VM10); |
519 |
|
{object V63; |
520 |
|
vs_top[0]=Cnil; |
521 |
|
{object *p=vs_top; |
522 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
523 |
|
V63=(base[0]); |
524 |
|
vs_top=sup; |
525 |
|
base[1]= (base0[0]->c.c_car); |
526 |
|
{object V65; |
527 |
|
V65= (V63); |
528 |
|
vs_top=base+2; |
529 |
|
while(!endp(V65)) |
530 |
|
{vs_push(car(V65));V65=cdr(V65);} |
531 |
|
vs_base=base+2;} |
532 |
|
super_funcall_no_event(base[1]); |
533 |
|
vs_top=sup; |
534 |
|
V64= vs_base[0]; |
535 |
|
base[1]= ((V64)==Cnil?Ct:Cnil); |
536 |
|
vs_top=(vs_base=base+1)+1; |
537 |
|
return; |
538 |
|
} |
539 |
|
} |
540 |
|
/* local function CLOSURE */ |
541 |
|
|
542 |
|
static void LC10(base0) |
543 |
|
register object *base0; |
544 |
|
{ register object *base=vs_base; |
545 |
|
register object *sup=base+VM11; VC11 |
546 |
|
vs_reserve(VM11); |
547 |
|
{object V66; |
548 |
|
vs_top[0]=Cnil; |
549 |
|
{object *p=vs_top; |
550 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
551 |
|
V66=(base[0]); |
552 |
|
vs_top=sup; |
553 |
|
base[1]= (base0[0]->c.c_car); |
554 |
|
vs_top=(vs_base=base+1)+1; |
555 |
|
return; |
556 |
|
} |
557 |
|
} |
558 |
static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* GET-DECODED-TIME */ |
static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* GET-DECODED-TIME */ |
559 |
static object LnkTLI18(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[18],(void **)&LnkLI18,1,ap);va_end(ap);return V1;} /* LEAP-YEAR-P */ |
static object LnkTLI18(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[18],(void **)&LnkLI18,1,ap);va_end(ap);return V1;} /* LEAP-YEAR-P */ |
560 |
static object LnkTLI17(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[17],(void **)&LnkLI17,1,ap);va_end(ap);return V1;} /* NUMBER-OF-DAYS-FROM-1900 */ |
static object LnkTLI17(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[17],(void **)&LnkLI17,1,ap);va_end(ap);return V1;} /* NUMBER-OF-DAYS-FROM-1900 */ |