Merge branch 'accel' of /var/git/clsql/ into accel

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 36fc90a9d25525cfaec3336f43985f0fd33ddda0..155b59732ffd1de487d0a7e6c4c7af9a0a814814 100644 (file)
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -475,8 +475,7 @@
 
 (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)