* tv-utils.el: Use cl-case.