main.lisp: Use `find-if` in `requested-extension-p`

I've been reading Practical Common Lisp's "Collections" chapter
(http://www.gigamonkeys.com/book/collections.html) and it seemed like
`find-if` would be nicer here than what I wrote before.

1 files changed, 5 insertions, 6 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index a75fbc3..6abe363 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -66,13 +66,12 @@
 
 (defun reload-extensions (targets extension-ids)
   (labels ((requested-extension-p (target)
-             (dolist (id extension-ids)
-               (if (uiop:string-prefix-p
+             (find-if
+               #'(lambda (id)
+                   (uiop:string-prefix-p
                      (concatenate 'string "chrome-extension://" id)
-                     (json-obj-get target "url"))
-                   (return-from requested-extension-p t)))
-
-             nil))
+                     (json-obj-get target "url")))
+               extension-ids)))
 
     (dolist (extension (filter #'requested-extension-p targets))
       (attach-to-target extension))))