Common Lispのテキストファイルから連続して読む

Question

私はテキストファイルを読み込んでそれをシーケンスにして渡したいと思っています。それ、どうやったら出来るの？

これは私がこれまで持っているものです。

(with-open-file (stream "filename.txt") 
    (format t "~a~%" (read-line stream))) 

テキストファイルは、このようなものです：

Hello this is a sentence. 
Hello this is second sentence. 

Answer 1

(with-open-file (in "filename.txt") 
    (with-output-to-string (out) 
    (loop :for line := (read-line in nil) :while line :do 
     (write-line line out)))))