r9508: condition fixes

[clsql.git] / db-mysql / mysql-sql.lisp

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index f85ffac9abcf37698a5316f31b2937b256aef7f8..513c9ed3602db3c95cf602a1ec7ad23201213ba5 100644 (file)
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -117,7 +117,7 @@
                      db-native 0 socket-native 0))
                    (progn
                      (setq error-occurred t)
-                     (error 'sql-connect-error
+                     (error 'sql-connection-error
                             :database-type database-type
                             :connection-spec connection-spec
                             :error-id (mysql-errno mysql-ptr)