通用Lisp:获取ASDF包的版本

Question

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

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

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

Answer 1

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