794 |
} |
} |
795 |
|
|
796 |
void |
void |
797 |
|
siLuser_init(void) { |
798 |
|
check_arg(0); |
799 |
|
sLApackageA->s.s_dbind = user_package; |
800 |
|
user_init(); |
801 |
|
vs_base[0] = Cnil; |
802 |
|
} |
803 |
|
|
804 |
|
void |
805 |
siLaddress(void) { |
siLaddress(void) { |
806 |
check_arg(1); |
check_arg(1); |
807 |
vs_base[0] = make_fixnum((long)vs_base[0]); |
vs_base[0] = make_fixnum((long)vs_base[0]); |
907 |
make_si_function("CHECK-VS", siLcheck_vs); |
make_si_function("CHECK-VS", siLcheck_vs); |
908 |
make_si_function("RESET-STACK-LIMITS", siLreset_stack_limits); |
make_si_function("RESET-STACK-LIMITS", siLreset_stack_limits); |
909 |
make_si_function("INIT-SYSTEM", siLinit_system); |
make_si_function("INIT-SYSTEM", siLinit_system); |
910 |
|
make_si_function("USER-INIT", siLuser_init); |
911 |
make_si_function("ADDRESS", siLaddress); |
make_si_function("ADDRESS", siLaddress); |
912 |
make_si_function("NANI", siLnani); |
make_si_function("NANI", siLnani); |
913 |
make_si_function("INITIALIZATION-FAILURE", |
make_si_function("INITIALIZATION-FAILURE", |