diff options
Diffstat (limited to 'lisp/klatre/klatre.lisp')
| -rw-r--r-- | lisp/klatre/klatre.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp index e10ddeea4e35..7fb70463a632 100644 --- a/lisp/klatre/klatre.lisp +++ b/lisp/klatre/klatre.lisp @@ -86,6 +86,12 @@ separated by SEP." (local-time:format-timestring nil timestamp :format dottime-format :timezone local-time:+utc-zone+) + (format-dottime-offset offset))) + +(defun format-dottime-offset (offset) + "Render OFFSET in hours in the format specified by dottime." + (check-type offset integer) + (concatenate 'string ; render sign manually since format prints it after padding (if (>= offset 0) "+" "-") (format nil "~2,'0D" (abs offset)))) |