Index: cffi/src/odbc/odbc-utilities.lisp
===================================================================
--- cffi/src/odbc/odbc-utilities.lisp	(revision cffi,1)
+++ cffi/src/odbc/odbc-utilities.lisp	(revision cffi,3)
@@ -12,4 +12,6 @@
 (defvar *default-oracle-dsn* "default-oracle-dsn")
 (defvar *default-sql-server-dsn* "default-sql-server-dsn")
+(defvar *default-mysql-dsn* "default-mysql-dsn")
+
 
 
@@ -42,4 +44,9 @@
                      )))
 
+(defun connect-mysql (server user password)
+  (connect-generic :dsn *default-mysql-dsn*
+                   :server server :uid user :pwd password))
+
+
 (defun with-prepared-statement-fun (con string params fun)
   (let ((stm (apply #'prepare-statement con string params)))