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

- fixed 'filesystem-utils:temporary-directory'.

This commit is contained in:
cage 2024-02-04 15:39:33 +01:00
parent e458dd8eb9
commit d083ef7bf2
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/filesystem-utils.lisp
View File

@ -419,17 +419,17 @@
(defparameter *temporary-directories-created* ()) (defparameter *temporary-directories-created* ())
(defun temporary-directory (&optional (temp-parent-directory nil)) (defun temporary-directory (&optional (temp-parent-directory nil))
(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~a"
tmpdir tmpdir
config:+program-name+)) config:+program-name+))
(nix:mkdtemp (format nil "~atmp~a" (nix:mkdtemp (format nil "~atmp~a"
*directory-sep* *directory-sep*
config:+program-name+))))) config:+program-name+)))))
(push directory-path *temporary-directories-created*) (push directory-path *temporary-directories-created*)
directory-path))) directory-path))
(cffi:defcfun (ffi-fnmatch "fnmatch") (cffi:defcfun (ffi-fnmatch "fnmatch")
:int :int