Lisp comum:obtendo versão de um pacote ASDF

Question

Eu sei que posso obter o número da versão do próprio ASDF com (asdf:asdf-version).Mas o mesmo não funciona com todos os outros pacotes que carrego usando ASDF, por exemplo. (my-system:my-system-version).Existe alguma maneira programática de obter o valor de um :version palavra-chave em uma definição de sistema?

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

Estou escrevendo um servidor HTTP simples e gostaria de incluir o número da versão no cabeçalho HTTP do servidor.De qualquer forma, é comum que qualquer programa possa imprimir seu número de versão em algum lugar para informação do usuário.Claro, gostaria que o número da versão fosse definido apenas em um local, pois posso esquecer de atualizá-lo em vários locais.

Answer 1

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