init.lisp


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*)
    (if config
        nil
        (make-instance
         'db:mp-store
         :directory (merge-pathnames "dnd-store/" (user-homedir-pathname))
         :subsystems (list (make-instance 'db:store-object-subsystem))))))