Lisp común: obtener la versión de un paquete ASDF

Question

Sé que puedo obtener el número de versión de ASDF con (asdf:asdf-version).Pero lo mismo no funciona con todos los demás paquetes que carga usando ASDF, por ejemplo.(my-system:my-system-version).¿Hay alguna forma programática de obtener el valor de una palabra clave :version en una definición del sistema?

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

Estoy escribiendo un servidor HTTP simple y desea incluir el número de versión en el encabezado HTTP del servidor.De todos modos, es una necesidad común de que cualquier programa pueda imprimir su número de versión en algún lugar para la información del usuario.Por supuesto, me gustaría que el número de versión se definiera solo en un solo lugar, ya que puedo olvidarlo de actualizarlo en varios lugares.

Answer 1

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