From: Russ Tyndall <russ@acceleration.net>
Date: Tue, 19 Jan 2010 15:22:53 +0000 (-0500)
Subject: allow setting the odbc::*time-conversion-function* to work by
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=6828cb461404126aa0c334fe2b669d435304f73e;p=clsql.git

allow setting the odbc::*time-conversion-function* to work by
specifying the output type of timestamps to :time instead of T (which
caused an after the fact conversion to string)
---

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index 0b88ee2..4611cfe 100644
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -465,10 +465,11 @@ 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_TYPE_TIMESTAMP :time)
 		 (#.odbc::$SQL_C_CHAR
-		    (or (case (aref column-sql-types i)
-			  (#.odbc::$SQL_NUMERIC :double))
-			T))
+		    (case (aref column-sql-types i)
+		      (#.odbc::$SQL_NUMERIC :double)
+		      (t t)))
 		 (t t)))
 	      (t t)))))
   query)