X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;h=078e4aa5c39efe888bbfa539c3dc2afb46042d68;hp=8cc77241b14ac8a2c31b6a06e43854799c270484;hb=0e0e260d3c6a995e46336c0b9b08ef19d941bb8b;hpb=56f742e5470609250c9c842b3ae258c267d3902d

diff --git a/sql/time.lisp b/sql/time.lisp
index 8cc7724..078e4aa 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -938,7 +938,7 @@ with the given options"
   (let ((mjd (time-mjd date))
         (sec (time-second date))
         (usec (time-usec date)))
-    (multiple-value-bind (usec-new sec)
+    (multiple-value-bind (sec-new usec-new)
         (floor (+ usec
                   (* 1000000
                      (+ sec second