如何在Common Lisp配置文件中为未加载库设置默认配置？

针对你需要在.sbclrc这类配置文件中实现类似Emacs eval-after-load的功能（即第三方库加载完成后自动执行配置代码），以下是几种安全且跨实现的方案，优先基于ASDF/Quicklisp的标准机制：

1. 利用ASDF原生系统加载钩子（推荐） #

ASDF 3.1及以上版本提供了asdf:*system-loaded-hooks*全局变量，它是一个函数列表，每当任意ASDF系统加载完成后，列表中的每个函数都会被调用，参数为加载完成的系统对象。这是官方推荐的扩展方式，无需覆写核心方法，兼容性和安全性都有保障。

针对Quickproject的配置示例 #

在.sbclrc中添加以下代码：

;; 为quickproject添加加载后钩子
(push (lambda (system)
        ;; 匹配系统名称，确保只在quickproject加载后执行
        (when (string= (asdf:component-name system) "quickproject")
          (setf quickproject:*template-directory* "~/projects/template/"
                quickproject:*author* "my name <etcetc>")))
      asdf:*system-loaded-hooks*)

封装成Emacs风格的宏（可选） #

如果需要频繁为多个库配置，可以封装一个类似eval-after-load的宏，简化写法：

(defmacro eval-after-load (system-name &body body)
  `(push (lambda (system)
           (when (string= (asdf:component-name system) ,system-name)
             ,@body))
         asdf:*system-loaded-hooks*))

;; 使用示例
(eval-after-load "quickproject"
  (setf quickproject:*template-directory* "~/projects/template/"
        quickproject:*author* "my name <etcetc>"))

;; 可为多个库添加配置
(eval-after-load "clack"
  (setf clack:*default-port* 8080))

2. Quicklisp加载时的:after-load参数 #

如果是通过ql:quickload手动加载库，可以直接使用:after-load参数指定加载后执行的代码，但这种方式适合单次加载，而非配置文件中预先设置全局规则：

(ql:quickload "quickproject" :after-load (lambda ()
                                           (setf quickproject:*template-directory* "~/projects/template/"
                                                 quickproject:*author* "my name <etcetc>")))

方案对比 #

• 你之前使用的asdf:operate:after覆写方法，由于修改了ASDF核心方法的行为，当ASDF版本更新时可能出现兼容性问题，不推荐长期使用。
• asdf:*system-loaded-hooks*是ASDF官方提供的扩展点，属于标准机制，跨所有支持ASDF 3.1+的Common Lisp实现（包括SBCL、CCL、CMUCL等），安全性和兼容性最佳。

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