From 6e02b093c56decee148388b86caf6bc890d1d437 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 4 Oct 2005 11:19:24 +0000
Subject: [PATCH] ECL's LOAD-FOREIGN-LIBRARY can only handle modules whose
 access path is known

---
 src/lsp/ffi.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index e3a7e1473..9aee273d8 100644
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -607,6 +607,8 @@
 
 (defmacro load-foreign-library (filename &key module supporting-libraries force-load)
   (declare (ignore module force-load supporting-libraries))
+  (unless (constantp filename)
+    (error "~&LOAD-FOREIGN-LIBRARY: ~A is not a constant expression. This is currently not supported." filename))
   `(eval-when (:compile-toplevel)
      (do-load-foreign-library ,filename)))