aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--utilities.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/utilities.lisp b/utilities.lisp
index 96f391c..d36c4db 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -99,6 +99,7 @@
(defun secs-to-hms (secs)
+ (setf secs (round secs))
(let ((hours (floor (/ secs (* 60 60))))
(mins (floor (/ (mod secs (* 60 60))
60)))