Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: b3fde57b by Raymond Toy at 2025-02-14T14:35:56-08:00 Append a "/" to the resulting dirname Append a "/" to make the returned string a directory. Thus, calling `pathname` on the result returns a pathname that is a directory, instead of a (possible) directory and a pathname-name. - - - - - 1 changed file: - src/code/extensions.lisp Changes: ===================================== src/code/extensions.lisp ===================================== @@ -672,8 +672,9 @@ (unix::unix-mkdtemp (concatenate 'string ,template "XXXXXX"))) (unless ,dirname - (error "Unable to create temp directory: ~A" + (error "Unable to create temporary directory: ~A" (unix:get-unix-error-msg ,err))) + (setf ,dirname (concatenate 'string ,dirname "/")) (locally ,@decls ,@forms)) ;; Remove the temp directory and all its contents. Is there a View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b3fde57b5f4478a40f05fb4d... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b3fde57b5f4478a40f05fb4d... You're receiving this email because of your account on gitlab.common-lisp.net.