allow setting the odbc::*time-conversion-function* to work by

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

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index caa549e94c72f6db9b6771a071c0c48eff09c461..4611cfe232aad6b728d12626b6eac3ea1d6d4f4d 100644 (file)
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -104,7 +104,7 @@
                      :accessor data-ptrs)
    (column-out-len-ptrs :initform (make-array 0 :adjustable t :fill-pointer t)
                         :accessor column-out-len-ptrs)
-   (column-precisions :initform (make-array 0 :element-type 'fixnum :adjustable t :fill-pointer t)
+   (column-precisions :initform (make-array 0 :element-type 'integer :adjustable t :fill-pointer t)
                       :accessor column-precisions)
    (column-scales :initform (make-array 0 :element-type 'fixnum :adjustable t :fill-pointer t)
                   :accessor column-scales)
@@ -465,6 +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
+                   (case (aref column-sql-types i)
+                     (#.odbc::$SQL_NUMERIC :double)
+                     (t t)))
                 (t t)))
              (t t)))))
   query)