Common Lisp:obtenir la version d'un paquet ASDF

Question

Je sais que je peux obtenir le numéro de version de FASD lui-même avec (asdf:asdf-version).Mais ce n'est pas travailler avec tous les autres paquets que je charge à l'aide de FASD, par exemple (my-system:my-system-version).Est-il programmatique de manière à obtenir la valeur d'un :version mot-clé dans un système de définition?

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

Je suis en train d'écrire un simple serveur HTTP et aimerait inclure le numéro de version du Serveur HTTP en-tête.De toute façon, c'est un besoin commun d'un programme pour être en mesure d'imprimer son numéro de version quelque part pour les informations de l'utilisateur.Bien sûr, je voudrais le numéro de la version à être défini qu'en un lieu, depuis que j'ai du oublier de le mettre à jour en plusieurs endroits.

Answer 1

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