r10667: 22 Aug 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * uffi/clsql-uffi-loader.lisp: Commit patch from astor@pvv.ntnu.no to
        display search path when error occurs loading foreign library.

diff --git a/ChangeLog b/ChangeLog
index fafea66bdede8f369984f75b0d714b6ed9a8e824..04c934568ecc536d2af200948589dac90a13de9e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+22 Aug 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * uffi/clsql-uffi-loader.lisp: Commit patch from astor@pvv.ntnu.no to
+       display search path when error occurs loading foreign library.
+       
 05 Jul 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.2.1
        * doc/appendix.xml: Incorporate Edi Weitz's notes into documentation

diff --git a/uffi/clsql-uffi-loader.lisp b/uffi/clsql-uffi-loader.lisp
index dc6eebc87c26618bc5b0e0d20c171bdb80dcf395..1655ed27cc29ebd5f6baf8d3f4e46f8ce7fd7311 100644 (file)
--- a/uffi/clsql-uffi-loader.lisp
+++ b/uffi/clsql-uffi-loader.lisp
@@ -37,8 +37,9 @@
                                       (warn "~A" c)
                                       nil))))
       (when errorp
-        (error "Couldn't load foreign librar~@P ~{~S~^, ~}."
-               (length filenames) filenames))))
+       (error "Couldn't load foreign librar~@P ~{~S~^, ~}. (searched ~S)"
+               (length filenames) filenames
+              'clsql:*foreign-library-search-paths*))))
 
 (defvar *clsql-uffi-library-filenames*
     (list #+(or 64bit x86-64) "clsql_uffi64"