Общий Лисп:получение версии пакета ASDF

Question

Я знаю, что могу получить номер версии самого ASDF с помощью (asdf:asdf-version).Но то же самое не работает со всеми другими пакетами, которые я загружаю с помощью 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)