(defun ~D (number &optional stream &key mincol pad-char) (format stream "~v,vD" mincol pad-char number))