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