diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 10:26:26 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 10:26:26 -0600 |
| commit | deaa7016f6ed29521697ffcf1c39720bafa73fcb (patch) | |
| tree | 1b87428766abb587f809f32dc4546f89106a4e36 | |
| parent | f3982e7652d5a6e79d3fe68c4f16943bdb0e5abc (diff) | |
bugfix in data store directory initialization
| -rw-r--r-- | src/main.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index 2fe9f9a..0dfc7a7 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -200,7 +200,9 @@ "oneliners-api-datastore") (defun data-store-path (store-dir) - (let ((store-dir (or store-dir (pathname-directory (user-homedir-pathname))))) + (let ((store-dir + (pathname-directory + (if store-dir store-dir (user-homedir-pathname))))) (make-pathname :directory (append store-dir (list +data-store-directory-name+))))) |