X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-sql.lisp;h=31d8a4ecd5692cba9324f68c395a6a978fb92715;hb=570798eb781157ad988bd527232bb88d51b103d7;hp=9f88a9c6e751d7b8c8b1d8ad8b19306d64f73042;hpb=5bfa219c5e3b387b9dd7c819441f0182ccb16dc8;p=clsql.git

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 9f88a9c..31d8a4e 100644
--- 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