X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=7c332cf5f7c8a03d0adfb01f18f1d1e505813e8b;hp=36fc90a9d25525cfaec3336f43985f0fd33ddda0;hb=eaea8232bda93fd38410e46dd22ec954b2fc4a18;hpb=aaffeb0415e1caaf1595bee7a5e9d58379c4431e

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 36fc90a..7c332cf 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -475,8 +475,8 @@
 
 (defmethod database-list (connection-spec (type (eql :mysql)))
   (destructuring-bind (host name user password &optional port) connection-spec
-    (declare (ignore name))
-    (let ((database (database-connect (list host "mysql" user password port) type)))
+    (let ((database (database-connect (list host (or name "mysql")
+                                            user password port) type)))
       (unwind-protect
            (progn
              (setf (slot-value database 'clsql-sys::state) :open)