anchor.diff:              else filters
           // no need for explicit deny if we allow everything
           match filters with 
  -        | [Allow ((Match.Peer "*",_), _)] -> ()
  +        | [Allow ((Match.Peer Any,_), _)] -> ()
           | _ -> filters <- List.rev (Deny :: filters)
           // build the final configuration
           let deviceConf = 
  
positive.code:                 sprintf "predicate %s. Possibly enable prepending: -prepending:on" (string pred)
              error msg
  
  let private checkAggregateLocs ins _ prefix links = 
      if Set.contains "out" ins then
          let msg = 
              sprintf "Cannot aggregate on external location: " + 
  
negative.code:                 if lp <> 100 then
                      bprintf sb " (LP=%d)" lp
                  for (peer, acts) in es do
                      bprintf sb "\n    Export: [Peer<-%s" (string peer)
                      if acts <> [] then
                          let str = Common.List.joinBy "," (List.map string acts)
                          sb.Append(", " + str) |> ignore
  