X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=uffi%2Fclsql-uffi-loader.lisp;h=47a1f6ad2f86e4f35b0dc9f57df8c3e51e9dc677;hp=115209a9afda21a8de6af86f1c5b64be06fc7c98;hb=ed84c1274e0eb175d877ee982298091dd2e2f034;hpb=8d81b287b236153458f2375298fe7212a0f60022 diff --git a/uffi/clsql-uffi-loader.lisp b/uffi/clsql-uffi-loader.lisp index 115209a..47a1f6a 100644 --- a/uffi/clsql-uffi-loader.lisp +++ b/uffi/clsql-uffi-loader.lisp @@ -35,9 +35,9 @@ well as any of the filenames in any of the clsql:*foreign-library-search-paths*" (loop for name in filenames for pn = (make-pathname :name name :type type) thereis (or + (try-load pn) (loop for search-path in clsql:*foreign-library-search-paths* - thereis (try-load (merge-pathnames pn search-path))) - (try-load pn)))) + thereis (try-load (merge-pathnames pn search-path)))))) (when errorp (error "Couldn't load foreign librar~@P ~{~S~^, ~}. (searched ~S)" (length filenames) filenames