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

[clsql.git] / uffi / clsql-uffi-loader.lisp

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"