X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-dbi.lisp;h=0b88ee20695267bc10612a2928595d29d7fdb57b;hb=fa0cd19178ce76b6b7e7292bf4ce012303c95c1f;hp=86929d7806ccf502df78415fb84417fcdb99728e;hpb=3223e968d7001e7f778539b7f2a12111e1ab2fed;p=clsql.git

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index 86929d7..0b88ee2 100644
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -465,6 +465,10 @@ This makes the functions db-execute-command and db-query thread safe."
 		 (#.odbc::$SQL_C_SSHORT :short)
 		 (#.odbc::$SQL_C_STINYINT :short)
 		 (#.odbc::$SQL_C_SBIGINT #.odbc::$ODBC-BIG-TYPE)
+		 (#.odbc::$SQL_C_CHAR
+		    (or (case (aref column-sql-types i)
+			  (#.odbc::$SQL_NUMERIC :double))
+			T))
 		 (t t)))
 	      (t t)))))
   query)