Change erase dry-run output format

2025-10-25 19:37:27 -07:00
parent e7c7c0fea1
commit c2e8792c2c
1 changed files with 3 additions and 1 deletions
--- a/cl-xdg-trash/trash.lisp
+++ b/cl-xdg-trash/trash.lisp
@ -352,7 +352,9 @@ DRY-RUN, don't actually delete anything."
        (trash-directory (trashinfo-trash-directory trashinfo))
        (name (trashinfo-name trashinfo)))
    (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
            (progn
              (delete-file info-file)