r9318: define explicit lisp function name

diff --git a/db-mysql/mysql-client-info.lisp b/db-mysql/mysql-client-info.lisp
index 75abdd075b36c69d5439f5da6af4bc272616306a..23161efed50af6af54efda09e7c60cebc36ec476 100644 (file)
--- a/db-mysql/mysql-client-info.lisp
+++ b/db-mysql/mysql-client-info.lisp
@@ -23,7 +23,7 @@
 (defvar *mysql-client-info* nil)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (defvar *mysql-client-info* nil)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)

-  (uffi:def-function "mysql_get_client_info"
+  (uffi:def-function ("mysql_get_client_info" mysql-get-client-info)

       ()
     :module "mysql"
     :returning :cstring)
       ()
     :module "mysql"
     :returning :cstring)