-(let ((dt-fn (lambda (useconds-since-2000)
- (let ((sec (truncate
- (/ useconds-since-2000
- 1000000)))
- (usec (mod useconds-since-2000
- 1000000)))
- (clsql:make-time :year 2000 :second sec :usec usec)))))
+
+
+(labels ((d-fn (days-since-2000)
+ (clsql:make-date :year 2000 :day (+ 1 days-since-2000)))
+ (dt-tz-fn (useconds-since-2000
+ &aux (dt (dt-fn useconds-since-2000)))
+ (setf (clsql-sys::time-is-utc? dt) t)
+ dt)
+ (dt-fn (useconds-since-2000)
+ (multiple-value-bind (sec usec)
+ (floor useconds-since-2000 1000000)
+ (clsql:make-time :year 2000 :second sec :usec usec))))