mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

si::*interrupts-enabled* -> ext::*interrupts-enabled*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-05 15:14:39 +01:00
parent 5918c54f23
commit 01678b0ddf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixint.d
View file

@ -247,7 +247,7 @@ static bool
interrupts_disabled_by_lisp(cl_env_ptr the_env)
{
return (ecl_get_option(ECL_OPT_BOOTED) &&
ecl_symbol_value(@'si::*interrupts-enabled*') == Cnil);
ecl_symbol_value(@'ext::*interrupts-enabled*') == Cnil);
}
static cl_object pop_signal(cl_env_ptr env);
@ -1193,7 +1193,7 @@ init_unixint(int pass)
create_signal_code_constants();
install_fpe_signal_handlers();
install_signal_handling_thread();
ECL_SET(@'si::*interrupts-enabled*', Ct);
ECL_SET(@'ext::*interrupts-enabled*', Ct);
ecl_process_env()->disable_interrupts = 0;
}
}