summaryrefslogtreecommitdiff
path: root/init.lisp
blob: 68b2a1697f02e610f56fa8799394627c655b69da (plain)
1
2
3
4
5
6
7
8
9
10
11
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))))))