aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-25 10:02:52 -0500
committerColin Okay <colin@cicadas.surf>2022-10-25 10:02:52 -0500
commit1c73e820d0995e0aa74d0725c39f5c3b5e59d2e6 (patch)
tree917087a43c1848c6f33a3f6a72101311ec179dc3
parent369912230263eb2cd10df336f9e0e9db13e5a7ff (diff)
Refactor: secs-to-hms
-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)))