From deaa7016f6ed29521697ffcf1c39720bafa73fcb Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 10:26:26 -0600
Subject: bugfix in data store directory initialization

---
 src/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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+)))))
 
-- 
cgit v1.2.3