Lisp宏运行报错：值H2O非LIST类型，需提取文件元素生成目标列表

问题背景 #

要读取的文件格式为每行一个S表达式：

(H2O 50)
(O2 50)
...

编写的宏定义如下：

(defmacro readextracttolist (filevar filename nthmember listname)
  (list 'progn 
    (list 'defparameter filevar (list 'open filename))
    (list 'loop 'for 'line '= (list 'read filevar 'nil ':eof)
          'until (list 'eq 'line ':eof)
          'do
          (list 'setq listname (list 'append listname (list 'elt 'line nthmember))))))

执行命令：

(readextracttolist xx "syminput_0.txt" 0 usedmollist)

出现错误：

The value
  H2O
is not of type
  LIST

期望得到结果：

list USEDMOLLIST:
(H2O O2)

错误原因 #

1. 目标列表未初始化：usedmollist未预先绑定为nil，首次执行append时，若变量未定义或绑定值不是列表，会触发类型错误。
2. 宏代码构建逻辑错误：原宏用(list 'elt 'line nthmember)生成的表达式虽能获取元素，但未处理目标列表的初始合法性；同时直接用open打开文件后未关闭，会造成资源泄漏。
3. 全局变量滥用：用defparameter定义文件变量会创建全局绑定，每次调用宏都会覆盖，不符合局部资源的使用规范。

修复后的宏定义 #

改用反引号简化宏编写，用with-open-file自动管理文件生命周期，同时初始化目标列表：

(defmacro readextracttolist (filename nthmember listname)
  `(progn
     (defparameter ,listname nil)
     (with-open-file (file ,filename :direction :input)
       (loop for line = (read file nil :eof)
             until (eq line :eof)
             do (setq ,listname (append ,listname (list (elt line ,nthmember))))))))

修复说明 #

• 移除冗余的filevar参数，通过with-open-file创建局部文件变量，自动完成文件关闭，避免资源泄漏。
• 宏内直接初始化listname为nil，确保append操作始终合法。
• 用反引号+逗号的准引用语法，正确将参数插入生成的代码中，保证(elt line ,nthmember)能正确获取每行S表达式的指定元素。
• 每次将元素包装为单元素列表后再append，符合append对参数必须为列表的要求。

验证执行 #

执行命令：

(readextracttolist "syminput_0.txt" 0 usedmollist)

查看结果：

usedmollist
;; 输出：(H2O O2)

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