(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))