+(defun show-project (name)
+ (mapcar
+ (lambda (branch-info)
+ (format t "~A: ~A at ~A~%"
+ (first branch-info)
+ (case (second branch-info)
+ (:succeeded (format nil "~c[1;32mPassed~c[0m" #\Esc #\Esc))
+ (:failed (format nil "~c[1;31mFailed~c[0m" #\Esc #\Esc))
+ (:queued "In queue")
+ (:no-candle-file "No candle file present")
+ (:in-progress "In progress"))
+ (format nil "~{~A/~A/~A ~A:~A~}"
+ (utils:time-as-list (third branch-info) :month :date :year :hr :min))))
+ (sort (communication:query `(candle:project-branch-information ,name)) #'< :key #'third)))
+