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