blob: 5603623366b35c2172993b869cfcffb6f86c0e2a (
plain)
1
2
3
4
5
6
7
8
9
10
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)))))
|