- (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))))