(loop for search-path in clsql:*foreign-library-search-paths*
thereis (try-load (merge-pathnames pn search-path))))))
(when errorp
- (error "Couldn't load foreign librar~@P ~{~S~^, ~}. (searched ~S)"
+ (error "Couldn't load foreign librar~@P ~{~S~^, ~}. (searched ~S: ~S)"
(length filenames) filenames
- 'clsql:*foreign-library-search-paths*)))))
+ 'clsql:*foreign-library-search-paths* clsql:*foreign-library-search-paths*)))))
;; searches clsql_uffi64 to accomodate both 32-bit and 64-bit libraries on same system
(defvar *clsql-uffi-library-filenames*
(defvar *uffi-library-loaded* nil
"T if foreign library was able to be loaded successfully")
-(defun load-uffi-foreign-library ()
- (clsql:push-library-path clsql-uffi-system::*clsql-uffi-library-dir*)
- (find-and-load-foreign-library *clsql-uffi-library-filenames*
- :module "clsql-uffi"
- :supporting-libraries
- *clsql-uffi-supporting-libraries*)
- (setq *uffi-library-loaded* t))
+;; (defun load-uffi-foreign-library ()
+;; (clsql:push-library-path clsql-uffi-system::*clsql-uffi-library-dir*)
+;; (find-and-load-foreign-library *clsql-uffi-library-filenames*
+;; :module "clsql-uffi"
+;; :supporting-libraries
+;; *clsql-uffi-supporting-libraries*)
+;; (setq *uffi-library-loaded* t))
-(load-uffi-foreign-library)
+;; (load-uffi-foreign-library)