Is there a way to construct format-control that will leave strings of certain small lengths as they are and shorten longer strings as:
(defparameter *control*) ;;
