From 01678b0ddfebd81d5e6b40ee4d0cb77983bcf424 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 5 Mar 2011 15:14:39 +0100 Subject: [PATCH] si::*interrupts-enabled* -> ext::*interrupts-enabled* --- src/c/unixint.d | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c/unixint.d b/src/c/unixint.d index 9810edd6d..0fd86cef5 100644 --- a/src/c/unixint.d +++ b/src/c/unixint.d @@ -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; } }