From c96650531c57f546f73a930404840509368ef2cd Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 3 Oct 2010 23:22:31 +0200
Subject: [PATCH] When dlopen and friends fail, the cblock got inserted in the
 library list (A Gavrilov)

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

diff --git a/src/c/load.d b/src/c/load.d
index 91b64a1ab..062ad42b8 100755
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -259,7 +259,14 @@ ecl_library_open(cl_object filename, bool force_reload) {
 		block = other;
 	} else {
 		si_set_finalizer(block, Ct);
+#if 0
+                if (block->cblock.handle != NULL)
+                        cl_core.libraries = CONS(block, cl_core.libraries);
+                else
+                        ecl_library_close(block);
+#else
 		cl_core.libraries = CONS(block, cl_core.libraries);
+#endif
 	}
 	}
 	return block;