aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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+)))))