在Common Lisp中，有无更简洁方式避免闭包捕获变化变量？

你有一个接收函数并返回新函数的get-graphing-fn，尝试用以下代码收集一系列行为不同的函数（每个依赖循环变量i的当前值），但代码无法正常工作：

(loop for i from 0 to 5
    collect (get-graphing-fn (lambda (x) (sin (+ x (* i 1))))))

问题出在闭包捕获的是循环变量i的引用，而非迭代时的具体值——所有收集到的函数最终都会使用循环结束时i的最终值（也就是6），不符合预期。

你已经知道用let创建新变量来保存当前值的写法，但觉得繁琐，下面是几种更优雅的实现方式：

1. 简化局部变量绑定 #

直接在collect的表达式里用let遮蔽循环变量，不需要额外命名新变量：

(loop for i from 0 to 5
    collect (let ((i i))
              (get-graphing-fn (lambda (x) (sin (+ x (* i 1)))))))

这里的let ((i i))会创建一个新的局部i，它的值是当前迭代中循环变量i的副本，闭包捕获的是这个局部变量，每个迭代都会生成独立的绑定，避免共享引用。

2. 用立即执行的匿名函数传递值 #

通过调用一个匿名函数，把当前i作为参数传入，让闭包捕获这个参数：

(loop for i from 0 to 5
    collect (funcall (lambda (index)
                       (get-graphing-fn (lambda (x) (sin (+ x (* index 1))))))
                     i))

每次迭代时，当前的i会被传递给匿名函数的index参数，闭包捕获的是这个局部参数，同样能保证每个函数使用独立的值。

3. 修改get-graphing-fn接口（最优解） #

如果可以调整get-graphing-fn的定义，让它直接接收偏移量参数，而非接收一个捕获变量的lambda，就能从根源避免闭包问题：

;; 修改后的get-graphing-fn
(defun get-graphing-fn (offset)
  (lambda (x) (sin (+ x offset))))

;; 调用代码更简洁
(loop for i from 0 to 5
    collect (get-graphing-fn i))

这种方式不仅代码更简洁，还让逻辑更清晰——每个调用get-graphing-fn时传入的i都会成为闭包捕获的独立参数，自然每个返回的函数行为不同。

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