diff options
Diffstat (limited to 'init.lisp')
-rw-r--r-- | init.lisp | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -3,9 +3,10 @@ (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))))) + (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)))))) |