Common Lisp中如何获取当前文件名？是否有Python __file__的等效实现？

核心结论 #

Common Lisp 标准中没有和 Python __file__ 完全对等的全局运行时特殊变量，但有多种成熟方案可以实现「在Lisp文件内部获取当前文件信息」的需求，完全能满足你基于文件名命名Fiveam测试套件的场景。

1. 标准内置实现（无需第三方依赖） #

CL 标准明确定义了两个动态变量，分别对应编译、加载场景下的当前文件路径：

• *compile-file-pathname*：调用compile-file编译.lisp源文件时，会被自动绑定为当前被编译文件的完整路径名
• *load-pathname*：调用load加载源文件或编译后的.fasl文件时，会被自动绑定为当前被加载文件的完整路径名

由于你要开发的是生成测试套件的宏，宏的展开时机刚好在编译/加载阶段，直接在宏定义中读取这两个变量即可实现需求，参考示例：

(defmacro define-file-test-suite ()
  (let* ((current-file (or *compile-file-pathname* *load-pathname*
                           (error "该宏仅能在文件编译/加载时调用")))
         (suite-name (pathname-name current-file))) ; 提取文件名作为套件名
    `(fiveam:def-suite ,(intern (string-upcase suite-name))
       :description ,(format nil "对应源文件：~a" current-file))))

直接在你的源文件中调用这个宏，就能自动基于当前文件名生成测试套件。

2. 跨实现运行时方案 #

如果需要在代码运行阶段（而非宏展开阶段）获取当前文件路径，可以用ASDF自带的UIOP工具库的封装接口uiop:current-lisp-file-pathname，该接口已经适配了所有主流Common Lisp实现的私有扩展，无需额外安装依赖，直接调用即可拿到当前执行代码所属的源文件路径。

更稳妥的替代方案 #

如果后续项目规模会扩大，完全不依赖编译/加载环境变量的方案可控性更高：

• 手动传入套件名：就是你提到的直接传入basename的方案，优势是完全不受文件重命名、移动位置的影响，测试套件名长期稳定
• 基于ASDF系统命名：如果项目用ASDF管理，可以在宏内读取当前代码所属的ASDF系统名+模块路径生成套件名，命名更规范，也不会出现不同目录下同名文件的套件名冲突问题。

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