一般的なLisp：ASDFパッケージのバージョンを取得する

Question

私は(asdf:asdf-version)を使用してASDF自体のバージョン番号を取得できることを知っています。しかし、同じことは、ASDFを使用して負荷をかける他のすべてのパッケージでは機能しません。(my-system:my-system-version)。システム定義で:versionキーワードの値を取得するプログラムの方法はありますか？

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

.

私は単純なHTTPサーバーを書いていて、サーバーのHTTPヘッダーにバージョン番号を含めたいと思います。とにかく、どんなプログラムでも、そのバージョン番号をユーザー情報のどこかに印刷することができるのは一般的な必要性です。もちろん、私は複数の場所でそれを更新することを忘れているかもしれないので、バージョン番号は一箇所でのみ定義されるようにしたいです。

Answer 1

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

.