anchor.diff:  procedure TObjectListOfTWriter.WriteTo(const AValue: TValue;
     const AMediaType: TMediaType; AOutputStream: TStream;
     const AActivation: IMARSActivation);
  -begin
  -  CodeSite.SendMsg('TObjectListOfTWriter');
  -
  -  var LArray : TArray<TObject> := [];
  +var
  +  LArray : TArray<TObject>;
  +begin
  +  LArray := [];
  +
     TRttiHelper.EnumerateObjectList(AValue.AsObject
     , procedure (Item: TValue)
       begin
  
positive.code:     end
    );
  
    TMARSMessageBodyWriter.WriteWith<TArrayOfObjectWriter>(TValue.From<TArray<TObject>>(LArray)
    , AMediaType, AOutputStream, AActivation
    );
  
  end;
  
  procedure RegisterWriters;
  
negative.code: uses
    System.TypInfo, Xml.XMLIntf, System.JSON
  , MARS.Core.JSON, MARS.Core.Utils, MARS.Rtti.Utils
  //, CodeSiteLogging
  ;
  
  { TObjectWriter }
  