Common lisp 如何使用格式函数的公共lisp读取文件？

这是我自己写的：

(defun test (x)
  (with-open-file (stream x :if-does-not-exist nil)
     (let ((read-line-1 (read-line stream))
          ((read-line-2 (read-line stream)))
       (format t "This is the test-1     ~s~%" read-line-1)
       (format t "This is the test-2     ~s~%" read-line-2))))

---

我只想知道如何读取一个文件，谢谢

您的代码中有一个基本的打字错误，在

read-line-2

的绑定周围有一个额外的括号。你可能想要的是

   (let ((read-line-1 (read-line-stream))
         (read-line-2 (read-line-stream))) ...

如果您在一个编辑器中输入您发布的代码，该编辑器根据标准自动缩进Lisp代码，您将看到

format

行实际上要求绑定名为format的变量。如果你试图编译你发布的代码，你的编译器可能会抱怨

（read-line-2…

不是一个符号

如果您修复了这个额外的括号，那么问题的第二部分可能是参数x需要是“路径名指示符”，您可能没有为实现正确指定它

    (test-2 #P"/home/user/fammmm/foo.txt")

可能是你想要的。

你想要什么：打印（如问题标题）还是阅读（如问题标题）？你想做什么以及你实际的问题是什么还不清楚。