mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

ambrevar: Fix build.

master
Pierre Neidhardt 2020-11-30 12:43:18 +01:00
parent 06c7565d06
commit 0e993eabb3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.local/share/common-lisp/source/ambrevar/shell.lisp
View File

@ -44,8 +44,8 @@ If target is a file, return FILES?.
Useful for `walk'."
(lambda (directory)
(if (uiop:directory-exists-p directory)
(let ((recursive-files? (or (uiop:directory-files directory)
(uiop:subdirectories directory))))
(let ((files-or-dirs? (or (uiop:directory-files directory)
(uiop:subdirectories directory))))
(or (and empty?
(not files-or-dirs?))
(and non-empty?
@ -88,7 +88,7 @@ Without PREDICATES, list all files."
"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
(delete-empty-directory-upward
(uiop:pathname-parent-directory-pathname
(uiop:ensure-directory-pathname directory))))
directory))