從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)))))