Handle sql decimal type identically to sql numeric type--read into a double.

diff --git a/ChangeLog b/ChangeLog
index c49345b487680dce01820541df15583a4a99bead..8b7aecf3d251ff05f16983f99d48932d191da25c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-05  Nathan Bird  <nathan@acceleration.net>
+
+       * db-odbc/odbc-dbi.lisp: handle sql decimal type in the same way
+       as numeric type-- read into a double float.
+
 2011-01-04  Russ Tyndall  <russ@acceleration.net>
        * sql/operations.lisp
 

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index a3eb50b1817c699dd8343c53e22d205962646a45..90cea24f1e8049c863ed0e883c6033322ea1f4cb 100644 (file)
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -474,7 +474,7 @@ This makes the functions db-execute-command and db-query thread safe."
                  (#.odbc::$SQL_C_TYPE_TIMESTAMP :time)
                  (#.odbc::$SQL_C_CHAR ;; TODO: Read this as rational instead of double
                    (or (case (aref column-sql-types i)
-                         (#.odbc::$SQL_NUMERIC :double))
+                         ((#.odbc::$SQL_NUMERIC #.odbc::$SQL_DECIMAL) :double))
                        T))
 
                  (t t)))