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 (let* ((tmpdir (or temp-parent-directory
(os-utils:default-temp-dir))) (os-utils:default-temp-dir)))
(directory-path (if tmpdir (directory-path (if tmpdir
(nix:mkdtemp (format nil "~a~a" (nix:mkdtemp (format nil "~a~aXXXXXX"
tmpdir tmpdir
config:+program-name+)) config:+program-name+))
(nix:mkdtemp (format nil "~atmp~a" (nix:mkdtemp (format nil "~atmp~aXXXXXX"
*directory-sep* *directory-sep*
config:+program-name+))))) config:+program-name+)))))
(push directory-path *temporary-directories-created*) (push directory-path *temporary-directories-created*)