anchor.diff:    end;
   
   {$IFDEF Supports_Anonymous_Method}
  -  TCompareMethod = reference to function (const Value1, Value2: Variant): Integer;
  +  TListCompareMethod = reference to function (const Value1, Value2: Variant): Integer;
   {$ELSE}
  -  TCompareMethod = function (const Value1, Value2: Variant): Integer of object;
  +  TListCompareMethod = function (const Value1, Value2: Variant): Integer of object;
   {$ENDIF}
   
     IList = interface(IImmutableList)
  
positive.code:   Sort({$IFDEF FPC}@{$ENDIF}Compare);
  end;
  
  procedure TAbstractList.Sort(CompareProc: TCompareMethod);
    function Partition(L, H: Integer): Integer;
    var
      Elem: Variant;
  
negative.code:     procedure Pack;
      procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TListCompareMethod); overload;
      procedure TrimExcess;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
  