From: Kevin M. Rosenberg Date: Mon, 22 Aug 2005 20:24:22 +0000 (+0000) Subject: r10667: 22 Aug 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~129 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=de55e069dcc1bf2a3c1fc0922aa8b863fa229f95 r10667: 22 Aug 2005 Kevin Rosenberg * 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 fafea66..04c9345 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +22 Aug 2005 Kevin Rosenberg + * 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 * 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 dc6eebc..1655ed2 100644 --- 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"