X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-sql.lisp;h=51d366b9360ccd2de9eab7e3b1ed4119127e152c;hb=afc88420d03b627b214473078c3adc201de2de80;hp=0da1a04d4dd0c9143055ce613f116b87be05b3a4;hpb=a4097e19c5157e87b9991549bc44f3ef598aeb90;p=clsql.git

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 0da1a04..51d366b 100644
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -60,6 +60,9 @@
 	     :errno nil
 	     :error "Connection failed")))))
 
+(defmethod database-underlying-type ((database odbc-database))
+  (odbc-db-type database))
+
 (defun store-type-of-connected-database (db)
   (let* ((odbc-conn (database-odbc-conn db))
 	 (server-name (odbc-dbi::get-odbc-info odbc-conn odbc::$SQL_SERVER_NAME))