anchor.diff:        case LChar.Char[0] of
           #0: Break;
           #1..#32:
  -          case AExpressionKind of
  +          case LExpressionKind of
               ekSet:
                 begin
                   while c^ in [#1..#32] do Inc(c);
  
positive.code:     Inc(c, LChar.Length);
    until (LChar.Length=0) or (c^ = #0);
  
    case AExpressionKind of
      ekText:
        if AExpressionRecord.TextMatchKind = tmkUnknown then
          AExpressionRecord.TextMatchKind:=tmkMatchTextExact;
  
negative.code:   LPrevToken: TToken = tkNone;
    LExpression: utf8string;
    LLastPercent: boolean = false;
    LExpressionKind: TExpressionKind;
  
    procedure NextValue;
    begin
  