X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;h=38ad86f12f577676c2e959649a971205a0e86f0a;hp=39d9e4dc3483a70272ee06d2bdef50185556e2ea;hb=b766d0c5e07e0ecd1c3b696d70a6857cb54f9a77;hpb=529452ae19c763cb1ed262e13bb589a8b6614e35 diff --git a/sql/time.lisp b/sql/time.lisp index 39d9e4d..38ad86f 100644 --- a/sql/time.lisp +++ b/sql/time.lisp @@ -146,7 +146,7 @@ (declare (ignore _sec _min _hour _day _month _year _day-of-week)) (when dst? (incf tz -1)) - (values (- (* tz 60 60)) tz)))) + (values (* tz 60 60) tz)))) (defun time-to-utc (in) "Ensures that if we have a time thats not in UTC, treat it as a localtime,