From a9ac64e495d6b8d4d22ef419b2d2046c5fbac2d1 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Thu, 9 Aug 2007 20:56:49 +0000
Subject: [PATCH] LOAD-FOREIGN-MODULE now also accepts pathnames

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

diff --git a/src/c/ffi.d b/src/c/ffi.d
index 5b03e8550..e55b9d29b 100644
--- a/src/c/ffi.d
+++ b/src/c/ffi.d
@@ -417,6 +417,8 @@ si_load_foreign_module(cl_object filename)
 	cl_object output;
 	int i;
 
+	filename = cl_namestring(cl_truename(filename));
+
 #ifdef ECL_THREADS
 	mp_get_lock(1, ecl_symbol_value(@'mp::+load-compile-lock+'));
 	CL_UNWIND_PROTECT_BEGIN {