>>872
ありがとうございます
指摘を受けてloopのacrossを使って全文字を処理するようこう書き換えました
http://paste.lisp.org/display/127669
処理できたようなのですが、なぜかサンプルと同じように動きません
http://lispuser.net/memo/lisp/2006-03-30-23-58.html
の「つくったら早速 REPL で試してみましょう．」以下と同じく出力されると思うのですが

>>873
http://blogs.yahoo.co.jp/oiron_abok/archive/2011/9/21
これを見てcl-lexをいじってみたのですが#\newlineと#\spaceの検出方法がわかりませんでした