cl-grep

commit 015273a44c07a63c77b8be5854387579961b8d6d
parent a6df71856fbf9c16777f10fb540e676b4f968158
Author: ChanderG <[email protected]>
Date:   Wed,  3 Dec 2025 10:20:03 +0530

add file extension blacklist

Diffstat:
M
grep.lisp
 | 
3
+++

1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/grep.lisp b/grep.lisp
@@ -35,6 +35,9 @@
     (when (member lc blacklist)
       (lo "Skipping ignorable file: ~a" file)
       (return-from queue-file nil))
+    (let ((blacklist (list "pwd")))
+      (when (member (pathname-type file) blacklist :test #'equalp)
+        (return-from queue-file nil)))
     ;; do the actual thing here
     (lq:push-queue file *queue*)))