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

- fixed error with foreign memory when calling FFI 'realpath'.

This commit is contained in:
cage 2024-06-01 17:24:33 +02:00
parent e5c7929166
commit 6e1274faf2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/filesystem-utils.lisp
View File

@ -311,8 +311,10 @@ symbolic link."
"NB: returns `PATH` if the FFI call to `realpath` returns NULL." "NB: returns `PATH` if the FFI call to `realpath` returns NULL."
(let ((absolute-path (let ((resolved "")) (let ((absolute-path (let ((resolved ""))
(cffi:with-foreign-string (ptr-path path) (cffi:with-foreign-string (ptr-path path)
(cffi:with-foreign-string (ptr-resolved resolved) (setf resolved
(ffi-realpath ptr-path ptr-resolved)))))) (cffi:with-foreign-pointer-as-string (ptr-resolved 4096)
(ffi-realpath ptr-path ptr-resolved))))
resolved)))
(cond (cond
((null absolute-path) ((null absolute-path)
path) path)