file - 从 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)))))