>>878
> ただ、コメントにあるように効率的に処理するために一度に複数のトークンを切り出すのが理想的ですが
なぜトークンを切り出す関数を別に作らない?
(t (values :token (get-token c in)))
とかすれば, ええんちゃう?