diff options
author | colin <colin@cicadas.surf> | 2023-03-05 16:36:44 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-03-05 16:36:44 -0800 |
commit | f7abccc38ceda7024ca375d34ed88f4fb561ef02 (patch) | |
tree | 432d6673e9e8d53b5fbc43e25a684b654f6dea1d /src/init.lisp | |
parent | 89d0d687992b41f7f0f9b0d3da19d9d587f06010 (diff) |
Reorganized codebase
Diffstat (limited to 'src/init.lisp')
-rw-r--r-- | src/init.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/init.lisp b/src/init.lisp new file mode 100644 index 0000000..68b2a16 --- /dev/null +++ b/src/init.lisp @@ -0,0 +1,12 @@ +;;;; init.lisp + +(in-package #:dnd) + +(defun init-db (&optional config) + (unless (boundp 'db:*store*) + (unless config + nil ; TODO: handle the case where we have a config + (make-instance + 'db:mp-store + :directory (merge-pathnames "dnd-store/" (user-homedir-pathname)) + :subsystems (list (make-instance 'db:store-object-subsystem)))))) |