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

Change erase dry-run output format

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-10-25 19:37:27 -07:00
parent e7c7c0fea1
commit c2e8792c2c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cl-xdg-trash/trash.lisp
View File

@ -352,7 +352,9 @@ DRY-RUN, don't actually delete anything."
(trash-directory (trashinfo-trash-directory trashinfo)) (trash-directory (trashinfo-trash-directory trashinfo))
(name (trashinfo-name trashinfo))) (name (trashinfo-name trashinfo)))
(if dry-run (if dry-run
(format t "deleting: ~S~%deleting: ~S~%" info-file trashed-file) (format t "Deleting ~S~%Deleting ~S~%"
(uiop:native-namestring info-file)
(uiop:native-namestring trashed-file))
(handler-case (handler-case
(progn (progn
(delete-file info-file) (delete-file info-file)