From 15033d5a8ad7297e5f76e2e70446b0eea2f2d2a7 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 27 Nov 2012 23:43:17 +0100
Subject: [PATCH] Events in the signal queue should be appended, not prepended
 to the list

---
 src/c/unixint.d | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/c/unixint.d b/src/c/unixint.d
index 651ba71fa..8a3cae9dc 100644
--- a/src/c/unixint.d
+++ b/src/c/unixint.d
@@ -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;
 }