anchor.diff:  %% List fields
   get_field(#ptr{ type={list, Type} }=Ptr, Object) ->
       case dereference_ptr(Ptr, Object) of
  -        #ptr_ref{ 
  +        #list_ptr{ 
              size=composite, 
              segment=S }=R ->
               {ok, T} = get_type(Type, Object),
  
positive.code:       _/binary>> = Segment,
  
      case ptr_type(Offset band 3) of
          %% struct ??
          list ->
              #ptr_ref{
                 offset = Pos + (Offset bsr 2) + 1,
                 size = list_element_size(Size band 7),
                 count = Size bsr 3,
  
negative.code:     <<_:Offset/binary-unit:64,
        Text:TextLen/binary,
        _/binary>> = Segment,
      Text;
  
  %% Struct field
  get_field(#ptr{ type={struct, Type} }=Ptr, Object) ->
      {ok, T} = get_type(Type, Object),
      case dereference_ptr(Ptr, Object) of
          O when is_record(O, object) ->
              O#object{ type=T }
      end.
  
  
  %% List field helpers
  