use multi-value-bind instead of two calls to the get the same data

re ADWolf:#1408

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 8edacf12995ae4c2f14f88d427120b4917d47b53..12929c6e85d3cc9ba20c46e9a2960a87cddf38bf 100644 (file)
--- 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