Чтение в последовательности из текстового файла в 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)))))