diff options
| -rw-r--r-- | l/src/main.lisp | 11 |
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)))) |