From 3946e2031f3bf2638bd85ebf268422914b36dc95 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Mon, 22 Jan 2018 21:56:46 +0100
Subject: [PATCH] threading: lock signal_queue_spinlock in queue_signal with
 the right thread

---
 src/c/unixint.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixint.d b/src/c/unixint.d
index 8c97e6bef..3c062fd55 100644
--- a/src/c/unixint.d
+++ b/src/c/unixint.d
@@ -375,7 +375,7 @@ handle_all_queued(cl_env_ptr env)
 static void
 queue_signal(cl_env_ptr env, cl_object code, int allocate)
 {
-        ECL_WITH_SPINLOCK_BEGIN(env, &env->interrupt_struct->signal_queue_spinlock) {
+        ECL_WITH_SPINLOCK_BEGIN(ecl_process_env(), &env->interrupt_struct->signal_queue_spinlock) {
                 cl_object record;
                 if (allocate) {
                         record = ecl_list1(ECL_NIL);