mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 17:20:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

The symbol *interrupt-enable* might not be defined before the first interrupt comes

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-05 10:21:13 +02:00
parent a11903a1fe
commit a117628dc4
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/unixint.d
View file

@ -249,7 +249,8 @@ signal_catcher(int sig)
int old_GC_enabled = GC_enabled();
#endif
if (!ecl_interrupt_enable ||
ecl_symbol_value(@'si::*interrupt-enable*') == Cnil) {
(ecl_get_option(ECL_OPT_BOOTED) &&
ecl_symbol_value(@'si::*interrupt-enable*') == Cnil)) {
mysignal(sig, signal_catcher);
cl_env.interrupt_pending = sig;
return;
@ -473,7 +474,7 @@ init_unixint(int pass)
cl_core.system_package);
si_Xmake_constant(name, MAKE_FIXNUM(known_signals[i].code));
}
ECL_SET(@'si::*interrupt-enable*', Ct);
}
ECL_SET(@'si::*interrupt-enable*', Ct);
ecl_interrupt_enable = 1;
}