diff options
| author | Linus Nordberg <linus@nordberg.se> | 2009-06-26 07:04:52 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2009-06-26 07:04:52 +0200 |
| commit | cf9c330668cdd350c067669b926f3af7e355f2a4 (patch) | |
| tree | be2e7fe9e2da63dd229442c8bb6172c64d8caa86 /src/util.lisp | |
| parent | 7be08db4bf7bce7f31004225c2eb0777c6d51e86 (diff) | |
* src/bgpstore.lisp: Display counter.
* src/util.lisp (iso-date): New function.
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/util.lisp b/src/util.lisp index 32f7d73..87661a0 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -55,3 +55,13 @@ BUGS: (read-byte (usocket:socket-stream sock) nil))) (defun close-reader () (usocket:socket-close sock))) + +(defun iso-date (universal-time &optional (include-seconds nil)) + "Return a string denoting UNIVERSAL-TIME" + (multiple-value-bind (second minute hour day month year) + (decode-universal-time universal-time) + (if include-seconds + (format nil "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D" + year month day hour minute second) + (format nil "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D" + year month day hour minute)))) |