如何避免代码生成场景下的SBCL编译错误？

这是个典型的编译期与运行期执行时机的问题，我来帮你理清楚原因和解决方案：

问题根源 #

你在命令行用sbcl --script test.lisp能正常运行，是因为脚本直接进入运行期：先执行defun say-hello，再通过eval定义test函数，最后调用test，整个流程按顺序执行没有问题。

但用compile-file的时候，SBCL的编译器会先对所有顶层代码做静态分析。此时eval里的defun test是运行期才会执行的代码，编译器在编译阶段看不到test函数的定义，当它处理到顶层的(test)调用时，就会抛出“undefined function TEST”的错误。

解决方案 #

有两种常用的修复方式，你可以根据场景选择：

方式1：用eval-when强制编译期执行定义 #

通过eval-when指定代码在编译期、加载期和运行期都执行，这样编译器在编译阶段就会先定义好test函数，后续调用就不会报错了：

(defun say-hello () `(princ "test"))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (eval `(defun test () ,(say-hello))))

(test)

:compile-toplevel确保代码在编译阶段执行，:load-toplevel保证加载编译后的文件时也会执行，:execute则覆盖直接运行脚本的场景。

方式2：用compile直接定义编译后的函数 #

如果你希望生成的函数是编译优化过的，可以直接用compile函数来设置符号的函数定义，这种方式更简洁，也能避免eval的编译期问题：

(defun say-hello () `(princ "test"))

(setf (symbol-function 'test)
      (compile nil `(lambda () ,(say-hello))))

(test)

这里compile会把生成的lambda表达式编译成机器码，直接赋值给test符号的函数槽，不管是编译还是运行阶段都能正常识别。

额外提示 #

如果你的场景是更复杂的代码生成，推荐用宏来替代eval——宏是在编译期展开的，能让编译器直接看到生成的代码，既安全又能享受编译优化，是Lisp里代码生成的惯用方式。比如上面的例子可以改成宏：

(defmacro def-say-function (name)
  `(defun ,name () (princ "test")))

(def-say-function test)

(test)

这种方式完全不会有编译期的问题，代码也更符合Lisp的风格。

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