File io 使用公共Lisp读取文件

我需要使用公共Lisp读取一个文本文件。必须将文件读取到列表列表中。列表中的每个列表必须由文件中的一行组成。如何做到这一点？我只是这样做了：

(let ((in (open "D:/Others/rgr.txt")))
  (format t "~a~%" (read-line in))
  (close in))

(with-open-file (in file)
  (loop for line = (read-line in nil nil)
        while line
        collect (coerce line 'list)))