diff options
| -rw-r--r-- | utilities.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/utilities.lisp b/utilities.lisp index abe10b7..96f391c 100644 --- a/utilities.lisp +++ b/utilities.lisp @@ -96,3 +96,15 @@ (defun read-from-file (path) (read-from-string (alexandria:read-file-into-string path))) + + +(defun secs-to-hms (secs) + (let ((hours (floor (/ secs (* 60 60)))) + (mins (floor (/ (mod secs (* 60 60)) + 60))) + (secs (mod secs 60))) + (if (plusp hours) + (format nil "~a:~2,'0d:~2,'0d" + hours mins secs) + (format nil "~a:~2,'0d" + mins secs)))) |