Update date/time format to include zeroes correctly

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 8afc8403111cedf3a474fa72ed4cb23b19e581fb..c7a079e64dc718199ccf365729f18574b878eecd 100644 (file)
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -8,7 +8,7 @@
 (defun job-info->line (job-info)
  (format nil "~A (~A) ~A"
   (subseq (first job-info) 0 8)
-  (format nil "~{~A/~A/~A ~A:~A~}"
+  (format nil "~{~2,,,'0@A/~2,,,'0@A/~A ~2,,,'0@A:~2,,,'0@A~}"
    (utils:time-as-list (third job-info) :month :date :year :hr :min))
   (case (second job-info)
    (:succeeded (format nil "~c[1;32mPassed~c[0m" #\Esc #\Esc))