如何在Common Lisp中递归读取文件至末尾（禁用循环语句）

要递归读取文件内容并自动判断文件结束，无需依赖计数器，直接利用Common Lisp read函数的参数即可实现：

核心思路 #

read函数支持两个关键参数：

• eof-error-p：设为nil时，读到文件尾不会抛出错误
• eof-value：指定读到文件尾时返回的值（比如nil）

通过这两个参数，就能在递归中判断是否已经读完文件，从而终止递归。

修改后的递归函数 #

;; 调用方式：(get-problemas)
(defun get-problemas (&optional file (problemas '()))
  (cond
    ;; 第一次调用时打开文件，传入文件流
    ((null file)
     (with-open-file (stream "C:/Users/nunor/Desktop/problemas.dat" :direction :input :if-does-not-exist nil)
       (get-problemas stream problemas)))
    ;; 已打开文件，递归读取内容
    (t
     (let ((next-item (read file nil nil))) ; EOF时返回nil，不报错
       (if next-item
           ;; 读到内容，继续递归，将新元素加入列表头部
           (get-problemas file (cons next-item problemas))
           ;; 读到文件尾，反转列表（恢复文件中的顺序）并返回
           (reverse problemas))))))

代码说明 #

1. 初始调用：直接调用(get-problemas)即可，无需传入计数器或文件参数。
2. 文件打开：第一次进入函数时，file为nil，通过with-open-file打开目标文件，自动处理文件的关闭（即使递归过程中出现异常，也会安全关闭文件）。
3. 读取判断：(read file nil nil)每次读取一个S表达式，当文件读完时返回nil，此时终止递归。
4. 列表顺序：用cons将新元素加入列表头部，最后通过reverse反转列表，保证输出顺序和文件内容一致。

对比原代码的优势 #

• 无需硬编码计数器（比如原代码中的6），文件内容增删后无需修改函数。
• 自动处理文件结束逻辑，更符合文件读取的通用场景。
• 避免了内置函数名冲突（原代码中用open作为变量名，open是Common Lisp内置函数，建议改用stream这类无冲突名称）。

内容的提问来源于stack exchange，提问作者nunoreis