460 |
export(Ct, common_lisp_package); |
export(Ct, common_lisp_package); |
461 |
#endif |
#endif |
462 |
|
|
463 |
sLquote = make_ordinary("QUOTE"); |
/* sLquote = make_ordinary("QUOTE"); */ |
464 |
sLfunction = make_ordinary("FUNCTION"); |
/* sLfunction = make_ordinary("FUNCTION"); */ |
465 |
sLlambda = make_ordinary("LAMBDA"); |
sLlambda = make_ordinary("LAMBDA"); |
466 |
sLlambda_block = make_ordinary("LAMBDA-BLOCK"); |
sLlambda_block = make_ordinary("LAMBDA-BLOCK"); |
467 |
sLlambda_closure = make_ordinary("LAMBDA-CLOSURE"); |
sLlambda_closure = make_ordinary("LAMBDA-CLOSURE"); |
541 |
gcl_init_links(); |
gcl_init_links(); |
542 |
|
|
543 |
gcl_init_fat_string(); |
gcl_init_fat_string(); |
544 |
|
gcl_init_sfasl(); |
545 |
#ifdef CMAC |
#ifdef CMAC |
546 |
gcl_init_cmac(); |
gcl_init_cmac(); |
547 |
#endif |
#endif |
634 |
|
|
635 |
DEFUN_NEW("QUIT",object,fLquit,LISP |
DEFUN_NEW("QUIT",object,fLquit,LISP |
636 |
,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") |
,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") |
637 |
{ return fLbye(exitc); } |
{ return FFN(fLbye)(exitc); } |
638 |
|
|
639 |
/* DEFUN_NEW("EXIT",object,fLexit,LISP */ |
/* DEFUN_NEW("EXIT",object,fLexit,LISP */ |
640 |
/* ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") */ |
/* ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") */ |
649 |
/* } */ |
/* } */ |
650 |
|
|
651 |
static void |
static void |
652 |
siLargc(void) { |
FFN(siLargc)(void) { |
653 |
check_arg(0); |
check_arg(0); |
654 |
vs_push(make_fixnum(ARGC)); |
vs_push(make_fixnum(ARGC)); |
655 |
} |
} |
656 |
|
|
657 |
static void |
static void |
658 |
siLargv(void) { |
FFN(siLargv)(void) { |
659 |
int i=0; |
int i=0; |
660 |
|
|
661 |
check_arg(1); |
check_arg(1); |
669 |
|
|
670 |
#ifdef UNIX |
#ifdef UNIX |
671 |
static void |
static void |
672 |
siLgetenv(void) { |
FFN(siLgetenv)(void) { |
673 |
|
|
674 |
char name[256]; |
char name[256]; |
675 |
int i; |
int i; |
699 |
object *vs_marker; |
object *vs_marker; |
700 |
|
|
701 |
static void |
static void |
702 |
siLmark_vs(void) { |
FFN(siLmark_vs)(void) { |
703 |
check_arg(0); |
check_arg(0); |
704 |
vs_marker = vs_base; |
vs_marker = vs_base; |
705 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
706 |
} |
} |
707 |
|
|
708 |
static void |
static void |
709 |
siLcheck_vs(void) { |
FFN(siLcheck_vs)(void) { |
710 |
check_arg(0); |
check_arg(0); |
711 |
if (vs_base != vs_marker) |
if (vs_base != vs_marker) |
712 |
FEerror("Value stack is flawed.", 0); |
FEerror("Value stack is flawed.", 0); |
714 |
} |
} |
715 |
|
|
716 |
static object |
static object |
717 |
siLcatch_fatal(int i) { |
FFN(siLcatch_fatal)(int i) { |
718 |
catch_fatal=i; |
catch_fatal=i; |
719 |
return Cnil; |
return Cnil; |
720 |
} |
} |
729 |
#endif |
#endif |
730 |
} |
} |
731 |
|
|
732 |
void |
LFD(siLreset_stack_limits)(void) |
|
siLreset_stack_limits(void) |
|
733 |
{ |
{ |
734 |
int i=0; |
int i=0; |
735 |
|
|
795 |
|
|
796 |
DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,""); |
DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,""); |
797 |
|
|
798 |
void |
LFD(siLinit_system)(void) { |
|
siLinit_system(void) { |
|
799 |
check_arg(0); |
check_arg(0); |
800 |
gcl_init_system(sSAno_initA); |
gcl_init_system(sSAno_initA); |
801 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
802 |
} |
} |
803 |
|
|
804 |
static void |
static void |
805 |
siLuser_init(void) { |
FFN(siLuser_init)(void) { |
806 |
check_arg(0); |
check_arg(0); |
807 |
sLApackageA->s.s_dbind = user_package; |
sLApackageA->s.s_dbind = user_package; |
808 |
user_init(); |
user_init(); |
810 |
} |
} |
811 |
|
|
812 |
static void |
static void |
813 |
siLaddress(void) { |
FFN(siLaddress)(void) { |
814 |
check_arg(1); |
check_arg(1); |
815 |
vs_base[0] = make_fixnum((long)vs_base[0]); |
vs_base[0] = make_fixnum((long)vs_base[0]); |
816 |
} |
} |
817 |
|
|
818 |
static void |
static void |
819 |
siLnani(void) { |
FFN(siLnani)(void) { |
820 |
check_arg(1); |
check_arg(1); |
821 |
vs_base[0] = (object)fixint(vs_base[0]); |
vs_base[0] = (object)fixint(vs_base[0]); |
822 |
} |
} |
823 |
|
|
824 |
static void |
static void |
825 |
siLinitialization_failure(void) { |
FFN(siLinitialization_failure)(void) { |
826 |
check_arg(0); |
check_arg(0); |
827 |
printf("lisp initialization failed\n"); |
printf("lisp initialization failed\n"); |
828 |
exit(0); |
exit(0); |
844 |
|
|
845 |
|
|
846 |
static void |
static void |
847 |
siLsave_system(void) { |
FFN(siLsave_system)(void) { |
848 |
int i; |
int i; |
849 |
|
|
850 |
#ifdef HAVE_YP_UNBIND |
#ifdef HAVE_YP_UNBIND |
986 |
|
|
987 |
make_si_function("SAVE-SYSTEM", siLsave_system); |
make_si_function("SAVE-SYSTEM", siLsave_system); |
988 |
make_si_sfun("CATCH-FATAL",siLcatch_fatal,ARGTYPE1(f_fixnum)); |
make_si_sfun("CATCH-FATAL",siLcatch_fatal,ARGTYPE1(f_fixnum)); |
989 |
|
make_si_function("WARN-VERSION",Lidentity); |
990 |
|
|
991 |
} |
} |