gzippedストリームを行単位で読み取る一般的なlisp

Question

現在、私はZIPファイルを1行ずつ読み込み、さらに各行を処理して何かを行うという問題を扱っています。

私は、次のコードを使用して標準入力から読み込むために管理：

(defun process() 

    (princ (split-sequence:split-sequence #\Space (read-line)))) 

(defun main (args) 
    (process)) 

*これはと私はそれを実行したコマンドライン・ツール

次のようになります。これは正常に動作します

cat file.txt | ./executable 

最初の行だけを出力します。私は最初の部分に何らかの形のループを挿入しなければならないと考えていますが、これはどうすればよいか分かりません。

ありがとうございました！

Answer 1

私が使用してこれを解く：

(loop for line = (read-line) ; stream, no error, :eof value 
    until (eq line :eof) 
    do (princ line))