Do not use any

It does not behave as one would expect.

Author: tarsius

lisp/forge-commands.el

@@ -665,9 +665,10 @@ With prefix argument MENU, also show the topic menu."
                                  $
                                (magit-get-upstream-branch $))
                              (car (member $ targets)))
-                       (any (##car (member (concat remote "/" %) targets))
-                            (delete-dups (cons (oref repo default-branch)
-                                               magit-main-branch-names)))))))
+                       (seq-some (##car (member (concat remote "/" %) targets))
+                                 (delete-dups
+                                  (cons (oref repo default-branch)
+                                        magit-main-branch-names)))))))
     (list source target)))
 
 (defun forge-create-post (&optional quote)

lisp/forge-core.el

@@ -239,10 +239,11 @@ Entries have the form (GITHOST APIHOST WEBHOST CLASS).
 If no entry matches, return nil, or signal an error if optional DEMAND
 is non-nil."
   (or (assoc host forge-alist)
-      (assoc (any (##and (string-prefix-p "hostname" %)
-                         (substring % 9))
-                  (ignore-errors
-                    (process-lines-ignore-status "ssh" "-G" host)))
+      (assoc (seq-some (lambda (line)
+                         (and (string-prefix-p "hostname" line)
+                              (substring line 9)))
+                       (ignore-errors
+                         (process-lines-ignore-status "ssh" "-G" host)))
              forge-alist)
       (car (cl-member host forge-alist :test #'equal :key #'caddr))
       (and demand

lisp/forge-github.el

@@ -1236,12 +1236,12 @@
   ;; then taking the first found file.  Too bad; that's what we do.
   (let ((branch (forge--get-default-branch repo))
         (case-fold-search t))
-    (any (lambda (file)
-           (and (string-match-p "\
+    (seq-some (lambda (file)
+                (and (string-match-p "\
 \\`\\(.github/\\|docs/\\)?pull_request_template\\(\\.[a-zA-Z0-9]+\\)?\\'" file)
-                (list (concat branch ":" file))))
-         (magit-git-items "ls-tree" "-z" "--full-tree" "--name-only"
-                          "-r" branch))))
+                     (list (concat branch ":" file))))
+              (magit-git-items "ls-tree" "-z" "--full-tree" "--name-only"
+                               "-r" branch))))
 
 (cl-defmethod forge--set-default-branch ((repo forge-github-repository) branch)
   (forge-rest repo "PATCH" "/repos/:owner/:repo"