18 lines
507 B
Common Lisp
18 lines
507 B
Common Lisp
|
(mito:deftable run ()
|
||
|
|
((category :col-type category))
|
||
|
|
(:record-timestamps nil)
|
||
|
|
(:conc-name run-))
|
||
|
|
|
||
|
|
(mito:deftable run-split ()
|
||
|
|
((run :col-type run)
|
||
|
|
(category-split :col-type category-split)
|
||
|
|
(start-time :col-type (or :datetime :null))
|
||
|
|
(end-time :col-type (or :datetime :null)))
|
||
|
|
(:record-timestamps nil)
|
||
|
|
(:conc-name run-split-))
|
||
|
|
|
||
|
|
(defun run-splits (run)
|
||
|
|
(mito:select-dao 'run-split
|
||
|
|
(sxql:order-by :category_split_id)
|
||
|
|
(sxql:where (:= :run run))))
|