From dd4b85c483a4e0d7e5515d4bb653a09731b2b5b8 Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Tue, 2 Feb 2010 15:52:47 -0500 Subject: [PATCH] In ODBC time conversion take into account the fraction if we have it. --- db-odbc/odbc-api.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 2.34.1