Lisp中AVG变量未绑定错误排查：成绩数组求和函数问题

你遇到的这个错误，核心问题出在变量作用域的语法使用错误上。咱们一步步拆解问题，再给出修复后的代码：

问题根源 #

看你代码里的这段：

(let ((examScore 0) (avg 0)))

这里的let括号在声明完变量后直接闭合了！let的语法要求所有需要使用这些局部变量的代码，必须放在let的括号内部——你后续的setf、dotimes等操作都在let的作用域之外，Lisp根本找不到你声明的avg变量，自然会抛出「unbound」错误。

另外，你代码里的testScore没有提前声明为局部变量，会默认变成全局变量，这不是好的编程习惯，咱们一起修正。

修复后的完整代码 #

(defun readTestScores ()
  (let ((examScore 0)
        (avg 0)
        (testScore (make-array 7)))  ; 把数组也纳入局部作用域
    (format t "~&ENTER EXAM SCORE ~23T: ")
    (setq examScore (read))
    (format t "~&ENTER ALL TEST SCORES ~23T: ")
    ; 读取7个测试分数存入数组
    (dotimes (i 7)
      (setf (aref testScore i) (read)))
    ; 累加所有分数到avg
    (dotimes (i 7)
      (incf avg (aref testScore i)))
    ; 输出结果（可选）
    (format t "~&Total score: ~a, Average score: ~a" avg (/ avg 7.0))
    avg))  ; 返回平均值作为函数结果

关键修正点 #

1. 修正let的作用域：把所有需要使用avg、examScore、testScore的代码，全部包裹在let的括号内部，确保变量在有效作用域内被访问。
2. 使用incf简化累加：incf avg (aref testScore i)等价于setf avg (+ avg (aref testScore i))，写法更简洁符合Lisp风格。
3. 处理浮点数平均值：用/ avg 7.0而不是/ avg 7，避免整数除法导致结果被截断（比如总分21的话，21/7是3，21/7.0是3.0）。
4. 统一局部变量：把testScore也放进let，避免全局变量带来的潜在问题。

额外小提示 #

Lisp社区通常更偏好连字符命名法（比如test-score代替testScore），不过这只是风格问题，不影响代码运行。

内容的提问来源于stack exchange，提问作者Greg. O Hajdu