From e82c757f2b20155011538811bc1e2381ca58caca Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Mon, 17 Jun 2024 18:04:09 +0200 Subject: [PATCH] Show app directory at loading --- src/fileops.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/fileops.lisp b/src/fileops.lisp index ea3b5b8..d26e765 100644 --- a/src/fileops.lisp +++ b/src/fileops.lisp @@ -21,9 +21,7 @@ application." (defun ensure-data-dir () "Ensure the data directory exists, create it if necessary, and return its path." - (let ((data-dir (data-dir))) - (ensure-directories-exist (data-dir)) - data-dir)) + (ensure-directories-exist (data-dir))) (defun ensure-file-exist (pathname) "Ensure that a file specified by PATHNAME exists, create it if it doesn't." @@ -72,3 +70,7 @@ within the data directory." (defun public-dir () (uiop:merge-pathnames* #P"public/" (app-dir))) + +(ensure-directories-exist (public-dir)) + +(format t "App Data Directory: ~a~%" (app-dir))