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

Fixed typo in queue_signal(): instead of popping a cons from the signal queue, the cons was discarded.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-27 23:40:11 +01:00
parent d674020bd8
commit c4a538dd27
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/unixint.d
View file

@ -377,7 +377,7 @@ queue_signal(cl_env_ptr env, cl_object code, int allocate)
if (allocate) {
record = ecl_list1(ECL_NIL);
} else {
record = ECL_CONS_CAR(env->signal_queue);
record = env->signal_queue;
if (record != ECL_NIL) {
env->signal_queue = ECL_CONS_CDR(record);
}