Common Lisp：获取ASDF包的版本

Question

我知道我可以使用(asdf:asdf-version)获取ASDF本身的版本号。但是同样的情况不适用于我使用ASDF加载的所有其他软件包，例如(my-system:my-system-version)。是否有任何编程方法可以在系统定义中获取:version关键字的值？

(defsystem my-system
   ...
   :version "0.1"
   ...)

我正在编写一个简单的HTTP服务器，并希望在Server HTTP标头中包含版本号。无论如何，任何程序都需要能够在某处打印出用于获取用户信息的版本号。当然，我希望只在一个地方定义版本号，因为我可能忘记在多个地方更新它。

Answer 1

(slot-value (asdf:find-system 'my-system) 'asdf:version)