anchor.diff:    else if AName = 'ADDALL' then
       AddAll(Args[0])
     else if AName = 'ASSIGN' then begin
  -    Result := VarToIntf(Args[0], IImmutableList, LList);
  +    Result := VarToIntf(Args[0], IList, LList);
       if Result then Assign(LList);
     end
     else if AName = 'CLEAR' then
  
positive.code:  *                                                        *
   * hprose common unit for delphi.                         *
   *                                                        *
   * LastModified: Dec 15, 2016                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  
negative.code: function TAbstractList.Invoke(const Name: string;
    const Arguments: TVarDataArray): Variant;
  var
    LList: IList;
    Args: TVariants;
    AName: string;
  begin
  