diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d index f749abcf4..9816d1643 100644 --- a/src/c/alloc_2.d +++ b/src/c/alloc_2.d @@ -268,7 +268,7 @@ allocate_object_own(register struct ecl_type_information *type_info) if( (op = *opp) == 0 ) { UNLOCK(); op = (ptr_t)GENERAL_MALLOC((word)lb, cl_object_kind); - if (0 == op){ + if (0 == op) { ecl_enable_interrupts_env(the_env); return 0; } diff --git a/src/c/main.d b/src/c/main.d index 973cd7bad..d9ee8a8eb 100755 --- a/src/c/main.d +++ b/src/c/main.d @@ -569,7 +569,7 @@ cl_boot(int argc, char **argv) /* * Initialize the per-thread data. * This cannot come later, because we need to be able to bind - * ext::*interrupts-enabled while creating packages. + * ext::*interrupts-enabled* while creating packages. */ init_big(); ecl_init_env(env); diff --git a/src/c/threads/process.d b/src/c/threads/process.d index 05ba5fe93..5bddc3697 100755 --- a/src/c/threads/process.d +++ b/src/c/threads/process.d @@ -618,7 +618,7 @@ mp_process_enable(cl_object process) @':disable', ECL_T); process->process.phase = ECL_PROCESS_INACTIVE; process->process.env = NULL; - if(process_env != NULL) + if (process_env != NULL) _ecl_dealloc_env(process_env); } /* Unleash the thread */ diff --git a/src/c/unixint.d b/src/c/unixint.d index 4ec5a3580..127d2c87b 100644 --- a/src/c/unixint.d +++ b/src/c/unixint.d @@ -823,7 +823,7 @@ si_check_pending_interrupts(void) void ecl_check_pending_interrupts(cl_env_ptr env) { - if(env->interrupt_struct->pending_interrupt != ECL_NIL) + if (env->interrupt_struct->pending_interrupt != ECL_NIL) handle_all_queued_interrupt_safe(env); }