From de55e069dcc1bf2a3c1fc0922aa8b863fa229f95 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 22 Aug 2005 20:24:22 +0000 Subject: [PATCH] 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. --- ChangeLog | 4 ++++ uffi/clsql-uffi-loader.lisp | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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" -- 2.34.1