class CFPropertyList::Binary

def array_to_binary(val)
  saved_object_count = @written_object_count
  @written_object_count += 1
  bdata = Binary.type_bytes("a", val.value.count) # a is 1010, type indicator for arrays
  val.value.each do |v|
    bdata += Binary.pack_it_with_size(@object_ref_size,  v.to_binary(self));
  end
  @object_table[saved_object_count] = bdata
  return saved_object_count
end