From ed84c1274e0eb175d877ee982298091dd2e2f034 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 30 Dec 2006 21:32:22 +0000 Subject: [PATCH] r11415: change log order attempts per Edi Weitz --- uffi/clsql-uffi-loader.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.34.1