diff options
Diffstat (limited to 'database/run.lisp')
| -rw-r--r-- | database/run.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/database/run.lisp b/database/run.lisp index 739dc96..adee23a 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -24,12 +24,16 @@ (if start (floor (* 100 (local-time:timestamp-difference end start)))))) -(defun format-elapsed-time (run-split) +(defun run-split-format-elapsed-time (run-split) (let ((elapsed (run-split-elapsed-time run-split))) (if elapsed (format-time (make-time-alist elapsed)) "-"))) +;;(defun best-split (category-split) +;; (mito:select-dao 'run-split +;; (sxql:order-by (:- V + ;; Returns stuff like PB, best of each split, etc. (defun run-statistics (category) `((asdf . 1))) |