ambrevar/shell: Add delete-empty-directory-upward.
parent
d84761789b
commit
fdaeb32b90
|
@ -83,6 +83,16 @@ Without PREDICATES, list all files."
|
||||||
(let ((*finder-include-directories* nil))
|
(let ((*finder-include-directories* nil))
|
||||||
(apply #'walk root predicates)))
|
(apply #'walk root predicates)))
|
||||||
|
|
||||||
|
(export-always 'delete-empty-directory-upward)
|
||||||
|
(defun delete-empty-directory-upward (directory)
|
||||||
|
"Delete directory and its parents until non-empty.
|
||||||
|
Return the first non-deleted directory."
|
||||||
|
(or (and (ignore-errors (uiop:delete-empty-directory directory))
|
||||||
|
(delete-directory-upward
|
||||||
|
(uiop:pathname-parent-directory-pathname
|
||||||
|
(uiop:ensure-directory-pathname directory))))
|
||||||
|
directory))
|
||||||
|
|
||||||
(export-always 'make-directory)
|
(export-always 'make-directory)
|
||||||
(defun make-directory (path)
|
(defun make-directory (path)
|
||||||
"Including parents."
|
"Including parents."
|
||||||
|
|
Loading…
Reference in New Issue