aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-28 10:26:26 -0600
committerColin Okay <okay@toyful.space>2022-02-28 10:26:26 -0600
commitdeaa7016f6ed29521697ffcf1c39720bafa73fcb (patch)
tree1b87428766abb587f809f32dc4546f89106a4e36 /src
parentf3982e7652d5a6e79d3fe68c4f16943bdb0e5abc (diff)
bugfix in data store directory initialization
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp4
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+)))))