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))))))