Common Lisp:version eines ASDF-Pakets abrufen

Question

Ich weiß, dass ich die Versionsnummer von ASDF selbst erhalten kann mit (asdf:asdf-version).Aber das gleiche funktioniert nicht mit allen anderen Paketen, die ich mit ASDF lade, zB. (my-system:my-system-version).Gibt es eine programmatische Möglichkeit, den Wert von a zu ermitteln :version schlüsselwort in einer Systemdefinition?

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

Ich schreibe einen einfachen HTTP-Server und möchte die Versionsnummer in den HTTP-Header des Servers aufnehmen.Auf jeden Fall ist es für jedes Programm üblich, seine Versionsnummer irgendwo zur Benutzerinformation ausdrucken zu können.Natürlich möchte ich, dass die Versionsnummer nur an einer Stelle definiert wird, da ich möglicherweise vergesse, sie an mehreren Stellen zu aktualisieren.

Answer 1

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