文字列を大文字小文字大文字小文字...に変換する

文字列を大文字小文字大文字小文字...に変換する。

(defun up-low (word)
   (format nil "~{~:@(~C~)~(~C~)~}" (coerce word 'list)))