cl-grep

commit 023ef0b91d4493a0a16279a4c9515344debd5a84
parent 353ba1fd8687c7efba0741d38167c4419724f616
Author: ChanderG <[email protected]>
Date:   Wed,  3 Dec 2025 18:18:16 +0530

consolidate single file print cmds; NO improv in perf

expected some perf improv due to single format call instead of n
but to no avail...

Diffstat:
M
grep.lisp
 | 
5
+----

1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/grep.lisp b/grep.lisp
@@ -43,10 +43,7 @@
          (return))
       (let ((name (file-result-name task))
             (results (file-result-entries task)))
-        (format t "~a: ~%" name)
-        (loop for l in results do
-              (format t "~a~%" l))
-        (format t "~%")))))
+        (format t "~a: ~%~{~A~%~}~%" name results)))))
 
 (defun queue-file (file)
   (lo "Visiting file: ~a" file)