1 diff -ur clsql/db-mysql/mysql-loader.lisp clsql-debian/db-mysql/mysql-loader.lisp
2 --- clsql/db-mysql/mysql-loader.lisp 2005-06-08 13:21:08.816849000 -0600
3 +++ clsql-debian/db-mysql/mysql-loader.lisp 2005-06-08 17:33:33.547500816 -0600
5 *mysql-library-loaded*)
7 (defmethod clsql-sys:database-type-load-foreign ((database-type (eql :mysql)))
8 - (clsql-uffi:find-and-load-foreign-library *mysql-library-candidate-names*
10 - :supporting-libraries *mysql-supporting-libraries*)
11 + (if (probe-file #p"/usr/lib/clsql/clsql_mysql.so")
12 + (uffi:load-foriegn-library #p"/usr/lib/clsql/clsql_mysql.so")
13 + (clsql-uffi:find-and-load-foreign-library *mysql-library-candidate-names*
15 + :supporting-libraries *mysql-supporting-libraries*))
16 (clsql-uffi:find-and-load-foreign-library *clsql-mysql-library-candidate-names*
18 :supporting-libraries *mysql-supporting-libraries*)
19 diff -ur clsql/uffi/clsql-uffi-loader.lisp clsql-debian/uffi/clsql-uffi-loader.lisp
20 --- clsql/uffi/clsql-uffi-loader.lisp 2005-06-08 13:25:29.006295000 -0600
21 +++ clsql-debian/uffi/clsql-uffi-loader.lisp 2005-06-08 17:34:29.748956896 -0600
23 "T if foreign library was able to be loaded successfully")
25 (defun load-uffi-foreign-library ()
26 - (find-and-load-foreign-library *clsql-uffi-library-filenames*
27 - :module "clsql-uffi"
28 - :supporting-libraries
29 - *clsql-uffi-supporting-libraries*)
30 + (if (probe-file #p"/usr/lib/clsql/clsql_uffi.so")
31 + (uffi:load-foriegn-library #p"/usr/lib/clsql/clsql_uffi.so")
32 + (find-and-load-foreign-library *clsql-uffi-library-filenames*
33 + :module "clsql-uffi"
34 + :supporting-libraries
35 + *clsql-uffi-supporting-libraries*))
36 (setq *uffi-library-loaded* t))
38 (load-uffi-foreign-library)