Zander671/cl-xdg-trash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix ignored directories appearing in output sometimes

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-10-25 19:07:06 -07:00
parent fa9af1d225
commit 22ef933933
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
clash/clash.lisp
View File

@ -419,7 +419,7 @@ list of trash directories that were present in INFOS."
(nconc path-and-infos (nconc path-and-infos
(mapcar #'list (mapcar #'list
(when all-dirs (when all-dirs
(set-difference (cl-xdg-trash:list-trash-directories) (set-difference (list-nonexcluded-trash-dirs cmd)
dirs :test #'uiop:pathname-equal)))))) dirs :test #'uiop:pathname-equal))))))
(all-dirs (error "Can't have -D without -d")) (all-dirs (error "Can't have -D without -d"))
(no-sort infos) (no-sort infos)