Posted to tcl by evilotto at Fri Sep 08 16:26:06 GMT 2017view raw

  1. % set a [dict create z [list z y]] ; ::tcl::unsupported::representation [dict get $a z]
  2. value is a list with a refcount of 3, object pointer at 0xc0f8f0, internal representation 0xc55eb0:(nil), no string representation
  3. % set a
  4. z {z y}
  5. % ::tcl::unsupported::representation [dict get $a z]
  6. value is a list with a refcount of 3, object pointer at 0xc0f8f0, internal representation 0xc55eb0:(nil), string representation "z y"
  7. %
  8.