From 22ef933933c6439b386a3fa3ec2cda930b5b66fc Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Sat, 25 Oct 2025 19:07:06 -0700
Subject: [PATCH] Fix ignored directories appearing in output sometimes

---
 clash/clash.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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