lispでの文字読み込み

質問

lispでの文字読み込み

以下のようなテキストをcommon lispで読み込んでいます。
--a.txt--
あああ
いいい

ううう
ええええ
---------

このような感じで。
(let (in str)
(with-open-file (in "a.txt" :direction :input)
(setf str (read-as-string in nil))
)
)

このときに、いいいの下の空行を読み込むにはどうしたらよいでしょうか？
読み込むというか、空行があることが検出できればいいんですが。

回答No.1

cametan_42 · ベストアンサー

ちょっと何がやりたいのかイマイチ見えないんですが、例えばこう。

;;; 実行例
CL-USER> (defparameter *str* nil)
*STR*
CL-USER> (let ((in (open "a.txt")))
　　　　　　(when in
　　　　　　　(loop for line = (read-line in nil)
　　　　　　　　　　while line do (setf *str* (cons line *str*))
　　　　　　　　　　finally (setf *str* (reverse *str*)))
　　　　　　　(close in)))
T
CL-USER> *str*
("あああ" "いいい" "" "ううう" "えええ")

なお、read-as-stringって関数はANSIでは定義されてません。

お礼

できました。ありがとうございます。