From dd5ce5c86b2b9debf9890884e8e2e4b8ad9465e6 Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Sat, 4 Jun 2022 13:28:23 -0700 Subject: add actual assocation between the statistics elements --- database/run.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'database') diff --git a/database/run.lisp b/database/run.lisp index 3166041..5b7d24b 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -69,12 +69,13 @@ (sxql:where (:= :category_id (mito:object-id category))))) -(defun statistics (category-splits) - `((SPLIT-PBS ,(mapcar (lambda (category) (getf (best-category-split category) :ELAPSED)) csplits)) - (BEST-CATEGORY-RUN-SPLITS ,(or - (mapcar (lambda (split) - (millis-since-internal-timestamp 0 (run-split-elapsed-time split))) - (ignore-errors - (run-splits (mito:find-dao 'run :id (getf (best-category-run category) :RUN-ID))))) - (mapcar (lambda (csplit) nil) csplits))))) +(defun statistics (category) + (let ((csplits (category-splits category))) + `((SPLIT-PBS . ,(mapcar (lambda (csplit) (getf (best-category-split csplit) :ELAPSED)) csplits)) + (BEST-CATEGORY-RUN-SPLITS . ,(or + (mapcar (lambda (split) + (millis-since-internal-timestamp 0 (run-split-elapsed-time split))) + (ignore-errors + (run-splits (mito:find-dao 'run :id (getf (best-category-run category) :RUN-ID))))) + (mapcar (lambda (csplit) nil) csplits)))))) -- cgit v1.2.3-70-g09d2