From: Nathan Bird <nathan@acceleration.net>
Date: Tue, 2 Feb 2010 20:52:47 +0000 (-0500)
Subject: In ODBC time conversion take into account the fraction if we have it.
X-Git-Tag: v5.0.0~27
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=dd4b85c483a4e0d7e5515d4bb653a09731b2b5b8

In ODBC time conversion take into account the fraction if we have it.
---

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index 50ef443..85f160a 100644
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -26,10 +26,11 @@ May be locally bound to something else if a certain type is necessary.")
 (defvar *binary-format* :unsigned-byte-vector)
 (defvar *time-conversion-function*
     (lambda (universal-time &optional fraction)
-      (declare (ignore fraction))
-      (clsql-sys:format-time
-       nil (clsql-sys:utime->time universal-time)
-       :format :iso)
+       (let ((time (clsql-sys:utime->time universal-time)))
+	 (setf time (clsql-sys:time+
+		     time
+		     (clsql-sys:make-duration :usec (/ fraction 1000))))
+	 (clsql-sys:format-time nil time :format :iso))
       #+ignore
       universal-time)
    "Bound to a function that converts from a Lisp universal time fixnum (and a fractional