>>216
(get-output-string-stream)
で作ったストリームで *standard-output* を let で上書き，，，でできますか?