diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:28:23 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:28:23 -0700 |
| commit | dd5ce5c86b2b9debf9890884e8e2e4b8ad9465e6 (patch) | |
| tree | 2d60abc4cded981f66d2336990d1a99fde425911 /database/run.lisp | |
| parent | cd5d87c4f56375bd722bd6beefe2e0705326c07c (diff) | |
| download | lispruns-dd5ce5c86b2b9debf9890884e8e2e4b8ad9465e6.tar.gz lispruns-dd5ce5c86b2b9debf9890884e8e2e4b8ad9465e6.zip | |
add actual assocation between the statistics elements
Diffstat (limited to 'database/run.lisp')
| -rw-r--r-- | database/run.lisp | 17 |
1 files changed, 9 insertions, 8 deletions
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)))))) |