Speedup opam list on options that do not use availibility information

master_changes.md

@@ -48,6 +48,7 @@ users)
 
 ## List
   * ◈ Add a new `--latests-only` option to only list the latest packages [#5375 @kit-ty-kate]
+  * Speedup `opam list` on options that do not use availibility information [#5317 @kit-ty-kate - fix #5314]
 
 ## Show
 

src/client/opamCommands.ml

@@ -750,7 +750,30 @@ let list ?(force_search=false) cli =
     let results =
       OpamListCommand.filter ~base:all st filter
     in
-    if not no_depexts && not silent then
+    let uses_depexts = function
+      | OpamListCommand.Any
+      | OpamListCommand.Installed
+      | OpamListCommand.Root
+      | OpamListCommand.Compiler
+      | OpamListCommand.Pinned
+      | OpamListCommand.Latests_only
+      | OpamListCommand.Pattern _
+      | OpamListCommand.Atoms _
+      | OpamListCommand.Flag _
+      | OpamListCommand.Tag _
+      | OpamListCommand.From_repository _
+      | OpamListCommand.Owns_file _
+        -> false
+      | OpamListCommand.Available
+      | OpamListCommand.Installable
+      | OpamListCommand.Depends_on _
+      | OpamListCommand.Required_by _
+      | OpamListCommand.Conflicts_with _
+      | OpamListCommand.Coinstallable_with _
+      | OpamListCommand.Solution _
+        -> true
+    in
+    if not no_depexts && not silent && OpamFormula.exists uses_depexts state_selector then
       (let drop_by_depexts =
          List.fold_left (fun missing str ->
              let is_missing pkgs =