If running on a threaded lisp try loading libmysqlclient_r

http://dev.mysql.com/doc/refman/5.1/en/threaded-clients.html

diff --git a/ChangeLog b/ChangeLog
index 8b7aecf3d251ff05f16983f99d48932d191da25c..69b816850a3c13911b1cf0da0a2711f8f07af0e2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2012-02-22  Nathan Bird  <nathan@acceleration.net>
+
+       * db-mysql/mysql-loader.lisp (*mysql-library-candidate-names*): If
+       running on a threaded lisp try loading libmysqlclient_r (the
+       threaded build) first. from
+       http://dev.mysql.com/doc/refman/5.1/en/threaded-clients.html
+
 2012-01-05  Nathan Bird  <nathan@acceleration.net>
 
        * db-odbc/odbc-dbi.lisp: handle sql decimal type in the same way

diff --git a/db-mysql/mysql-loader.lisp b/db-mysql/mysql-loader.lisp
index afea3e5415359a5dd155b1ff1a86c95c0335d050..cb75e5e5b3959db88f637aa4a94a2dcf499ce256 100644 (file)
--- a/db-mysql/mysql-loader.lisp
+++ b/db-mysql/mysql-loader.lisp
@@ -22,7 +22,12 @@
     "clsql_mysql"))
 
 (defvar *mysql-library-candidate-names*
-  '("libmysqlclient" "libmysql"))
+  '(
+    #+(or allegro cmu lispworks openmcl sb-thread scl) "libmysqlclient_r"
+    "libmysqlclient"
+    "libmysql"))
+
+
 
 (defvar *mysql-supporting-libraries* '("c")
   "Used only by CMU. List of library flags needed to be passed to ld to