summaryrefslogtreecommitdiff
path: root/init.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'init.lisp')
-rw-r--r--init.lisp11
1 files changed, 11 insertions, 0 deletions
diff --git a/init.lisp b/init.lisp
new file mode 100644
index 0000000..5603623
--- /dev/null
+++ b/init.lisp
@@ -0,0 +1,11 @@
+;;;; init.lisp
+
+(in-package #:dungeons-and-deadlines)
+
+(defun init-db (&optional config)
+ (if config
+ nil
+ (make-instance
+ 'db:mp-store
+ :directory (merge-pathnames "dnd-store/" (user-homedir-pathname))
+ :subsystems (list (make-instance 'db:store-object-subsystem)))))