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

Events in the signal queue should be appended, not prepended to the list

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-27 23:43:17 +01:00
parent c4a538dd27
commit 15033d5a8a
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

@ -383,9 +383,10 @@ queue_signal(cl_env_ptr env, cl_object code, int allocate)
}
}
if (record != ECL_NIL) {
ECL_RPLACD(record, env->pending_interrupt);
ECL_RPLACA(record, code);
env->pending_interrupt = record;
env->pending_interrupt =
ecl_nconc(env->pending_interrupt,
record);
}
} ECL_WITH_SPINLOCK_END;
}