r9959: more odbc v3 conversions

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

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 9f88a9c6e751d7b8c8b1d8ad8b19306d64f73042..31d8a4ecd5692cba9324f68c395a6a978fb92715 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -50,8 +50,9 @@
          (store-type-of-connected-database db)
          ;; Ensure this database type is initialized so can check capabilities of
          ;; underlying database
-         (initialize-database-type :database-type db-type)
+         (initialize-database-type :database-type database-type)
          db)
+      #+ignore
       (error ()        ;; Init or Connect failed
        (error 'sql-connection-error
               :database-type database-type