projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b766d0c
)
use multi-value-bind instead of two calls to the get the same data
timestamp-utc-no-localtime
author
Russ Tyndall
<russ@acceleration.net>
Thu, 8 Feb 2018 16:52:51 +0000
(11:52 -0500)
committer
Russ Tyndall
<russ@acceleration.net>
Thu, 8 Feb 2018 16:54:14 +0000
(11:54 -0500)
re ADWolf:#1408
db-postgresql-socket3/sql.lisp
patch
|
blob
|
history
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)
(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
(cl-postgres:set-sql-datetime-readers
:table *sqlreader*
:timestamp #'dt-fn