X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql-socket3%2Fsql.lisp;h=12929c6e85d3cc9ba20c46e9a2960a87cddf38bf;hp=8edacf12995ae4c2f14f88d427120b4917d47b53;hb=refs%2Fheads%2Ftimestamp-utc-no-localtime;hpb=b766d0c5e07e0ecd1c3b696d70a6857cb54f9a77

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 8edacf1..12929c6 100644
--- a/db-postgresql-socket3/sql.lisp
+++ b/db-postgresql-socket3/sql.lisp
@@ -37,10 +37,9 @@
            (setf (clsql-sys::time-is-utc? dt) t)
            dt)
          (dt-fn (useconds-since-2000)
-           (let* ((sec (floor useconds-since-2000 1000000))
-                  (usec (mod useconds-since-2000 1000000))
-                  (time (clsql:make-time :year 2000 :second sec :usec usec)))
-             time)))
+           (multiple-value-bind (sec usec)
+               (floor useconds-since-2000 1000000)
+             (clsql:make-time :year 2000 :second sec :usec usec))))
   (cl-postgres:set-sql-datetime-readers
    :table *sqlreader*
    :timestamp #'dt-fn