From 0f82f4d309d861b377645694f2d3d8e5897b07bb Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Mon, 24 Aug 2009 09:53:50 -0400 Subject: [PATCH] From "Michael Pheasant " Database-list ignores a supplied database name and instead uses "mysql". It is possible that a mysql userid has permissions to issue "show databases" but no permission to connect to db "mysql". database-list gives an error in this scenario. The following patch overcomes this by using the user-supplied db name or else "mysql" if nil supplied. --- db-mysql/mysql-sql.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index 36fc90a..155b597 100644 --- 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) -- 2.34.1