Lisp comune: ottenere la versione di un pacchetto ASDF

Question

So che posso ottenere il numero di versione di ASDF stesso con (asdf:asdf-version).Ma lo stesso non funziona con tutti gli altri pacchetti che carico usando Asdf, ad es.(my-system:my-system-version).C'è un modo programmatico per ottenere il valore di una parola chiave :version in una definizione di sistema?

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

.

Sto scrivendo un semplice server HTTP e vorrei includere il numero di versione nell'intestazione HTTP del server.Ad ogni modo, è una necessità comune per qualsiasi programma essere in grado di stampare il suo numero di versione da qualche parte per le informazioni dell'utente.Certo, vorrei che il numero di versione da definire solo in un unico posto, dal momento che potrei dimenticare di aggiornarlo in più luoghi.

Answer 1

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

.