No need to check truename of file

This commit is contained in:
Marcus Kammer 2024-06-06 17:33:22 +02:00
parent 8ecf15f226
commit d21ec8e4ee

View file

@ -34,7 +34,7 @@
"Prepare and ensure a database file at FILE-STR path."
(check-type file string)
(let ((path (uiop:merge-pathnames* file)))
(ensure-file-exist (truename path))))
(ensure-file-exist path)))
(defun make-surveys-db-file ()
(make-db-file "surveys-db.lisp"))