From ca0cd6368e2847f7852e68dd370b41fbf1ad076f Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Thu, 5 Jan 2012 17:33:40 -0500 Subject: [PATCH] Handle sql decimal type identically to sql numeric type--read into a double. --- ChangeLog | 5 +++++ db-odbc/odbc-dbi.lisp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c49345b..8b7aecf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-01-05 Nathan Bird + + * 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 * sql/operations.lisp diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp index a3eb50b..90cea24 100644 --- 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))) -- 2.34.1