cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed 'fs:temporary-directory'.

This commit is contained in:
cage 2024-09-15 14:43:11 +02:00
parent 6db8efc934
commit 21dfefe0a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/filesystem-utils.lisp
View File

@ -503,10 +503,10 @@ symbolic link."
(let* ((tmpdir (or temp-parent-directory
(os-utils:default-temp-dir)))
(directory-path (if tmpdir
(nix:mkdtemp (format nil "~a~a"
(nix:mkdtemp (format nil "~a~aXXXXXX"
tmpdir
config:+program-name+))
(nix:mkdtemp (format nil "~atmp~a"
(nix:mkdtemp (format nil "~atmp~aXXXXXX"
*directory-sep*
config:+program-name+)))))
(push directory-path *temporary-directories-created*)