projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix for time.lisp's roll function
[clsql.git]
/
sql
/
time.lisp
diff --git
a/sql/time.lisp
b/sql/time.lisp
index 7024fe31c13e4c61010e54f8acec7482cc493ad2..554bc17984fa5c1931706b632eb8eaf8dcb3b079 100644
(file)
--- a/
sql/time.lisp
+++ b/
sql/time.lisp
@@
-1071,10
+1071,9
@@
with the given options"
(setf (time-mjd date) (time-mjd new-date))
(setq date new-date))))))
(let ((mjd (time-mjd date))
(setf (time-mjd date) (time-mjd new-date))
(setq date new-date))))))
(let ((mjd (time-mjd date))
- (sec (time-second date))
- (usec (time-usec date)))
+ (sec (time-second date)))
(multiple-value-bind (sec-new usec-new)
(multiple-value-bind (sec-new usec-new)
- (floor (+ usec
+ (floor (+ usec
(time-usec date)
(* 1000000
(+ sec second
(* 60 minute)
(* 1000000
(+ sec second
(* 60 minute)