diff options
-rw-r--r-- | web/panettone/src/panettone.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index 827f00f40790..b654dc1d6a87 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -158,7 +158,11 @@ updated issue" (defun initialize-persistence (data-dir) "Initialize the Panettone persistence system, storing data in DATA-DIR" (ensure-directories-exist data-dir) - (setq *p-system* (cl-prevalence:make-prevalence-system data-dir)) + (setq *p-system* + (cl-prevalence:make-prevalence-system + (concatenate 'string + data-dir + "/snapshot.xml"))) (when (null (list-issues *p-system*)) |