From 29bc665a5ebf8d968729dd38dfd5c71e51d82541 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Sun, 12 Oct 2008 00:07:43 +0200
Subject: [PATCH] Protect shared library operations from interrupts.

---
 src/c/load.d | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/c/load.d b/src/c/load.d
index 77c8e985a..87be3204d 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -319,6 +319,7 @@ ecl_library_close(cl_object block) {
 		if (verbose) {
 			fprintf(stderr, ";;; Freeing library %s\n", filename);
 		}
+		ecl_disable_interrupts();
 #ifdef HAVE_DLFCN_H
 		dlclose(block->cblock.handle);
 #endif
@@ -328,6 +329,7 @@ ecl_library_close(cl_object block) {
 #if defined(mingw32) || defined(_MSC_VER)
 		FreeLibrary(block->cblock.handle);
 #endif
+		ecl_enable_interrupts();
         }
 	if (block->cblock.self_destruct) {
 		if (verbose) {