X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-api.lisp;h=8b9788ddd33a49461657eec9a90aae76d52a6636;hb=6828cb461404126aa0c334fe2b669d435304f73e;hp=49a6e1f6fc7a03da30960a203875639f815ae46f;hpb=847beae404b498f4d30c96b0324a3ff81022141c;p=clsql.git

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index 49a6e1f..8b9788d 100644
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -678,9 +678,11 @@ as possible second argument) to the desired representation of date/time/timestam
                    (#.$SQL_SMALLINT (get-cast-short data-ptr)) ;; ??
                    (#.$SQL_INTEGER (get-cast-int data-ptr))
                    (#.$SQL_BIGINT (get-cast-big data-ptr))
-                   (#.$SQL_DECIMAL
-                    (let ((*read-base* 10))
-                      (read-from-string (get-cast-foreign-string data-ptr))))
+                   ((#.$SQL_DECIMAL #.$SQL_NUMERIC)
+		      (let* ((*read-base* 10)
+			     (*read-default-float-format* 'double-float)
+			     (str (get-cast-foreign-string data-ptr)))
+			(read-from-string str)))
                    (#.$SQL_BIT (get-cast-byte data-ptr))
                    (t
                     (case c-type