diff options
author | colin <colin@cicadas.surf> | 2023-01-21 09:49:39 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-01-21 09:49:39 -0800 |
commit | 6b1c9d7ae508c41848828939454945bf2addb994 (patch) | |
tree | 05210e5b7bc1735031ae3df0c7f75becdbe6b6e1 /init.lisp | |
parent | b1c6b6ecf3476beb82f7b39516b94863e12c37f8 (diff) |
Refactor+Fix: with-hero-session macro; packaging and init
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)))))) |