如何定义能正确打印自身定义时刻时间的Common Lisp宏？

首先你编写的宏本身没有语法错误，核心问题是对Lisp宏的执行规则存在认知偏差：

• 执行defmacro定义宏的动作，只是将一个「负责生成代码的展开函数」注册到Lisp环境中，宏函数体内的代码不会在宏被定义的时候自动执行。
• 只有当解析器读到以宏名为开头的表达式、需要对这个表达式完成代码展开的阶段，宏体内的逻辑才会真正运行。
• 你在宏体内调用的get-decoded-time属于典型的展开期逻辑，执行时机完全由宏调用的展开触发点决定，并非你预期的「宏定义时刻」。

1. 直接用sbcl --script myprogram.lisp运行的场景 #

这种运行模式的执行逻辑和交互式REPL完全一致：从文件第一行开始逐行处理，每读到一个顶层表达式就依次完成「读取→宏展开→求值执行」的完整流程，全部执行完再处理下一行。
对应到你的代码的执行流：

1. 读到defmacro print-fixed-time段落：注册宏展开函数，完成宏定义，不做其他动作。
2. 读到第一个(print-fixed-time)：此时立刻触发宏展开，执行宏体内的get-decoded-time拿到当前时间（比如02:34:10），生成硬编码了这个时间值的format语句，执行语句完成第一次打印。
3. 读到(sleep 10)：执行休眠10秒。
4. 读到第二个(print-fixed-time)：此时再次触发宏展开，又一次执行get-decoded-time——这时候距离第一次取时间已经过了10秒，自然拿到的是10秒后的时间，生成对应的format语句执行，第二次打印的时间和第一次差了10秒。

2. 先编译成fasl再运行的场景 #

用compile-file编译源文件时，整个流程只做「全量读取→全量宏展开→把展开后的代码编译为可执行字节码」的动作，全程不会执行任何业务逻辑代码，所有宏展开动作都集中在编译阶段的极短时间（通常几毫秒）内完成。
对应到你的代码的编译流程：

1. 读到defmacro print-fixed-time段落：注册宏展开函数。
2. 读到第一个(print-fixed-time)：触发第一次宏展开，调用get-decoded-time拿到编译那一刻的时间（比如06:15:18），生成带这个硬编码时间值的format代码，编译为字节码存到fasl文件中，此时不会执行format打印。
3. 读到(sleep 10)：编译对应的休眠逻辑为字节码存起来。
4. 读到第二个(print-fixed-time)：触发第二次宏展开——由于和第一次展开的时间间隔只有几毫秒，get-decoded-time拿到的时间值和第一次完全一致，同样把带这个时间值的format代码编译进fasl。

所有代码编译完成后，fasl文件里已经不存在任何宏相关的逻辑，只剩下两个硬编码了相同时间值的format语句、一个sleep语句。等运行fasl的时候，不管中间休眠多久，执行format时用的都是编译阶段就写死的时间值，自然两次输出完全一致。

这种“两次输出一致”的结果本质是巧合：如果源文件规模足够大，编译耗时超过1秒，两次宏展开取到的时间同样会出现偏差，这套实现根本没有真正捕获到宏定义时刻的固定时间。

如果真的要实现「打印宏定义时刻的固定时间」的需求，需要把取时间的逻辑放到宏定义的阶段执行，而不是等宏展开的时候再取，比如：

;; 宏定义时刻立刻取一次时间，绑定为全局变量
(defvar *macro-define-timestamp*
  (multiple-value-list (get-decoded-time)))

(defmacro print-fixed-time ()
  ;; 宏展开时直接使用提前绑定好的时间值，不再调用get-decoded-time
  `(format t "~2,'0D:~2,'0D:~2,'0D~%"
           ,(nth 2 *macro-define-timestamp*)
           ,(nth 1 *macro-define-timestamp*)
           ,(nth 0 *macro-define-timestamp*)))

这种写法下，不管是逐行脚本执行，还是批量编译成字节码，两次打印的时间都会是宏定义那一刻的固定值，不会因为执行流程的差异出现结果偏差。

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