r11415: change log order attempts per Edi Weitz

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

diff --git a/uffi/clsql-uffi-loader.lisp b/uffi/clsql-uffi-loader.lisp
index 115209a9afda21a8de6af86f1c5b64be06fc7c98..47a1f6ad2f86e4f35b0dc9f57df8c3e51e9dc677 100644 (file)
--- 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