diff --git a/cl-xdg-trash/trash.lisp b/cl-xdg-trash/trash.lisp index f01d4c1..5e92f21 100644 --- 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)