X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-mysql%2Fmysql-loader.lisp;h=0ec9c03c2f74e592575605f6ececc8e776bfa609;hb=868b0433b0430c362da1d5fd1d7cba63757d07e1;hp=b102fcbdade60dc945193ece7b7ca4551d1310fe;hpb=18e34efea688a6758b6e997401fbc3f241da98f3;p=clsql.git diff --git a/db-mysql/mysql-loader.lisp b/db-mysql/mysql-loader.lisp index b102fcb..0ec9c03 100644 --- a/db-mysql/mysql-loader.lisp +++ b/db-mysql/mysql-loader.lisp @@ -18,13 +18,9 @@ (in-package #:mysql) -(defparameter *clsql-mysql-library-candidate-names* +(defparameter *clsql-mysql-library-candidate-names* (list #+(or 64bit x86-64) "clsql_mysql64" - #+(or 64bit x86-64) (make-pathname :name "clsql_mysql64" - :directory (pathname-directory *load-truename*)) - "clsql_mysql" - (make-pathname :name "clsql_mysql" - :directory (pathname-directory *load-truename*)))) + "clsql_mysql")) (defvar *mysql-library-candidate-names* '("libmysqlclient" "libmysql")) @@ -39,13 +35,15 @@ set to the right path before compiling or loading the system.") (defmethod clsql-sys:database-type-library-loaded ((database-type (eql :mysql))) *mysql-library-loaded*) - + (defmethod clsql-sys:database-type-load-foreign ((database-type (eql :mysql))) + (clsql:push-library-path + (make-pathname :directory clsql-mysql-system::*library-file-dir*)) (clsql-uffi:find-and-load-foreign-library *mysql-library-candidate-names* - :module "mysql" + :module "mysql" :supporting-libraries *mysql-supporting-libraries*) (clsql-uffi:find-and-load-foreign-library *clsql-mysql-library-candidate-names* - :module "clsql-mysql" + :module "clsql-mysql" :supporting-libraries *mysql-supporting-libraries*) (setq *mysql-library-loaded* t))