(uffi:find-foreign-library
'("odbc32" "libodbc" "libiodbc")
`(,(make-pathname :directory (pathname-directory *load-truename*))
+ #+64bit "/usr/lib64/"
"/usr/lib/"
"/sw/lib/"
"/usr/local/lib/"
"/home/kevin/debian/src/clsql/db-odbc/"
+ "/windows/system32/"
"/odbc/lib/opt/")
:drive-letters '("C")))
(defvar *odbc-library-loaded* nil
"T if foreign library was able to be loaded successfully")
-(defmethod clsql-base-sys:database-type-library-loaded ((database-type (eql :odbc)))
+(defmethod clsql-sys:database-type-library-loaded ((database-type (eql :odbc)))
*odbc-library-loaded*)
-(defmethod clsql-base-sys:database-type-load-foreign ((database-type (eql :odbc)))
- (uffi:load-foreign-library *odbc-library-path*)
+(defmethod clsql-sys:database-type-load-foreign ((database-type (eql :odbc)))
+ (uffi:load-foreign-library *odbc-library-path*
+ :module "odbc")
(setq *odbc-library-loaded* t))
-(clsql-base-sys:database-type-load-foreign :odbc)
+(clsql-sys:database-type-load-foreign :odbc)