Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: 19dec394 by Raymond Toy at 2025-11-13T07:25:30-08:00 Remove old function recursive-delete-directory This was replaced by `delete-directory`. - - - - - 1 changed file: - src/code/extensions.lisp Changes: ===================================== src/code/extensions.lisp ===================================== @@ -670,23 +670,6 @@ (when (pathnamep ,filename) (delete-file ,filename)))))) -#+nil -(defun recursive-delete-directory (dir) - _N"Recursively delete the directory DIR. All files and subdirectories of - DIR are removed. DIR must be a pathname to a directory. Any NAME - or TYPE components in DIR are ignored." - (declare (type pathname dir)) - ;; Find all the files or directories in DIR. - (dolist (path (directory (merge-pathnames "*.*" dir))) - ;; If the path is a directory, recursively delete the directory. - ;; Otherwise delete the file. We do not follow any symlinks. - (if (eq (unix:unix-file-kind (namestring path)) :directory) - (recursive-delete-directory path) - (delete-file path))) - ;; Finally delete the directory. - (unix:unix-rmdir (namestring dir)) - (values)) - (defun delete-directory (dirname &key recursive) _N"Delete the directory Dirname. If the Recursive is non-NIL, recursively delete the directory Dirname including all files and View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/19dec394ac637e3090500a6d... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/19dec394ac637e3090500a6d... You're receiving this email because of your account on gitlab.common-lisp.net.