Function Ti-Column-Count

Part of:

package cl-perec
( ti-column-count < instance > )