如何在Common Lisp中重载/重编译文件并移除失效函数（无需重启镜像）

开发过程中删除源文件函数后，系统仍保留旧定义是常见问题，以下是几种无需重启镜像就能同步定义的实用方法：

1. 手动清理单个/批量废弃函数 #

编译加载新代码前，显式解绑不再需要的函数：

• 单个函数处理：

  (fmakunbound 'old-function)
  

• 批量处理多个废弃函数：

  (dolist (fn '(func-a func-b func-c))
    (when (fboundp fn)  ; 先检查符号是否绑定函数，避免报错
      (fmakunbound fn)))
  

执行完上述代码后，重新加载你的源文件即可。

2. 包级批量清理（适合项目代码在独立包的场景） #

如果你的代码都在专属包（比如:my-app）里，可以一次性清空包内所有函数绑定，再重新加载完整代码：

(do-symbols (sym :my-app)
  (when (fboundp sym)
    (fmakunbound sym)))

这种方式会清除包内所有函数定义，所以要确保后续加载的源文件包含所有需要保留的函数。如果还要清理宏定义，可额外添加：(when (macro-function sym) (makunbound sym))。

3. 结合ASDF强制重载（使用ASDF管理项目时） #

如果用ASDF做项目管理，可先清理目标包的旧定义，再强制重新加载整个系统：

;; 先清理包内函数
(do-symbols (sym :my-app)
  (when (fboundp sym)
    (fmakunbound sym)))
;; 强制重新编译加载系统
(asdf:load-system :my-app :force t)

:force t参数会强制ASDF重新编译所有文件，确保加载的是最新的源文件内容。

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