http://www.dynamiclearningcenter.com/exercises/create-string-spec.html
にある問題の解答はこんな感じかと思うのですが、上級LISPERの方にもっと他の
書き方があるぞとかここがよくないとかご指摘いただけるとうれしいです。なんか
先生とかじゃないと解答のページへアクセスできないようなので。
formatを呼んでるところの違いがtとnilだけなのがどうにかならないかなとは
思うのですが。

(defun create-string (str1 str2 str3 &key (to 'result))
　(cond ((eq to 'result)
　　　　 (format nil "~a~a~a" str1 str2 str3))
　　　　((eq to 'print)
　　　　 (format t "~a~a~a" str1 str2 str3))
　　　　(t
　　　　 (error "invalid argument to keyword :to"))))