anchor.diff:  
       static let propertyCache = ref (Dictionary<Type, PropertyWriterInfo<'T>[]>())
       static let serializerCache = ref (Dictionary<Type, WriterFunc>())
  +    static let typeInfoCache = ref (Dictionary<Type, TypeInfo>())
   
       /// General purpose XML tags writer function
       static let writeTag (w : TextWriter) (name : string) (value : obj) writeFunc =
  
positive.code: 
      static let writeAbstractProperties (writer : TextWriter) (value : obj) =
          ()
  
      /// Build a PropertyWriterInfo object based on the
      /// specified PropertyInfo
  
negative.code: open SharpXml.Attempt
  open SharpXml.Extensions
  
  /// Record type containing the type specific information
  /// for the first element to serialize
  type internal TypeInfo = {
      Type : Type
      OriginalName : string
      ClsName : string }
  
  /// Record type containing the serialization information
  /// for a specific property member
  type internal PropertyWriterInfo<'T> = {
  