init.lisp


1
2
3
4
5
6
7
8
9
10
11

;;;; init.lisp

(in-package #:dnd)

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