Optimize hasAttribute to use List.exists instead of filterAttributes

Co-authored-by: michael-schwarz <13812333+michael-schwarz@users.noreply.github.com>

Author: Copilot

src/cil.ml

@@ -1427,7 +1427,7 @@ and filterAttributes (s: string) (al: attribute list) : attribute list =
 
 (* sm: *)
 let hasAttribute s al =
-  (filterAttributes s al <> [])
+  List.exists (fun (Attr(an, _)) -> an = s) al
 
 
 type attributeClass =