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

cosmetic: fixed some typos and style issues

Browse source
This commit is contained in:
Marius Gerbershagen 2018-03-26 21:10:29 +02:00
parent 9fe9334538
commit 146b4a6ae1
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/alloc_2.d
View file

@ -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;
}

2
src/c/main.d
View file

@ -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);

2
src/c/threads/process.d
View file

@ -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 */

2
src/c/unixint.d
View file

@ -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);
}