No need to check truename of file
This commit is contained in:
parent
8ecf15f226
commit
d21ec8e4ee
1 changed files with 1 additions and 1 deletions
|
@ -34,7 +34,7 @@
|
||||||
"Prepare and ensure a database file at FILE-STR path."
|
"Prepare and ensure a database file at FILE-STR path."
|
||||||
(check-type file string)
|
(check-type file string)
|
||||||
(let ((path (uiop:merge-pathnames* file)))
|
(let ((path (uiop:merge-pathnames* file)))
|
||||||
(ensure-file-exist (truename path))))
|
(ensure-file-exist path)))
|
||||||
|
|
||||||
(defun make-surveys-db-file ()
|
(defun make-surveys-db-file ()
|
||||||
(make-db-file "surveys-db.lisp"))
|
(make-db-file "surveys-db.lisp"))
|
||||||
|
|
Loading…
Add table
Reference in a new issue