diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-07-10 16:18:36 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-07-10 16:18:36 -0700 |
| commit | e7bcc0e863cc3e8aec0a5de8de4fd6debdec9896 (patch) | |
| tree | 1f6b79ae8e7f2ed6cf95c08777bc9dee87c867ab | |
| parent | e718ef491df8afb2fa80b8d1d9c88a402d4e90ec (diff) | |
| download | lispruns-e7bcc0e863cc3e8aec0a5de8de4fd6debdec9896.tar.gz lispruns-e7bcc0e863cc3e8aec0a5de8de4fd6debdec9896.zip | |
Add manual accessors to fix weird accessor issues on linux
| -rw-r--r-- | database/category.lisp | 2 | ||||
| -rw-r--r-- | 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) |