From e7bcc0e863cc3e8aec0a5de8de4fd6debdec9896 Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Sun, 10 Jul 2022 16:18:36 -0700 Subject: [PATCH] Add manual accessors to fix weird accessor issues on linux --- database/category.lisp | 2 +- database/run.lisp | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/database/category.lisp b/database/category.lisp index 70fb49b..0e902ae 100644 --- a/database/category.lisp +++ b/database/category.lisp @@ -6,7 +6,7 @@ (mito:deftable category-split () ((name :col-type (:varchar 128)) - (category :col-type category)) + (category :col-type category :accessor category-split-category)) (:record-timestamps nil) (:conc-name category-split-)) diff --git a/database/run.lisp b/database/run.lisp index 5b7d24b..a2d7cf1 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -1,11 +1,11 @@ (mito:deftable run () - ((category :col-type category)) + ((category :col-type category :accessor run-category)) (:record-timestamps nil) (:conc-name run-)) (mito:deftable run-split () - ((run :col-type run) - (category-split :col-type category-split) + ((run :col-type run :accessor run-split-run) + (category-split :col-type category-split :accessor run-split-category-split) (start-timestamp :col-type (or :bigint :null)) (end-timestamp :col-type (or :bigint :null))) (:record-timestamps nil)