From 92ede0c5d9b1b85412506b57397ca71bba755e82 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Sun, 26 Oct 2025 10:42:56 -0700 Subject: [PATCH] Fix regexp searching --- clash/clash.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/clash/clash.lisp b/clash/clash.lisp index 2ba760a..3a68dbd 100644 --- a/clash/clash.lisp +++ b/clash/clash.lisp @@ -213,8 +213,10 @@ The following suffixes are recognized (in additon to \"B\"): case-insensitive) "Compare TRASHINFO's name or path to FILTER using the provided matching options." - (let* ((orig-path (trashinfo-original-path trashinfo)) - (target (if full-path orig-path (file-or-dir-namestring orig-path)))) + (let* ((orig-path (trashinfo-original-path trashinfo :resolve t)) + (target (if full-path + (uiop:native-namestring orig-path) + (file-or-dir-namestring orig-path)))) (cond ((and exact case-insensitive) (equalp target filter)) (exact (equal target filter)) @@ -223,8 +225,10 @@ options." (declaim (inline compare-trashinfo-to-scanner)) (defun compare-trashinfo-to-scanner (trashinfo filter full-path exact) "Compare TRASHINFO's name or path to FILTER, which is a cl-ppcre scanner." - (let* ((orig-path (trashinfo-original-path trashinfo)) - (target (if full-path orig-path (file-or-dir-namestring orig-path)))) + (let* ((orig-path (trashinfo-original-path trashinfo :resolve t)) + (target (if full-path + (uiop:native-namestring orig-path) + (file-or-dir-namestring orig-path)))) (multiple-value-bind (start end) (cl-ppcre:scan filter target) (and start (or (not exact)