+(defun format-duration (stream seconds colon-modifier-p at-sign-modifier-p)
+ (declare (ignore colon-modifier-p at-sign-modifier-p))
+ (let ((seconds (mod (truncate seconds) 60))
+ (minutes (mod (truncate seconds 60) 60))
+ (hours (truncate seconds 3600)))
+ (format stream "~2,'0D:~2,'0D:~2,'0D" hours minutes seconds)))
+