common-lisp - ASDF システムのバージョンを取得する

Question

ASDF システムで設定できる他のものの中に:versionプロパティがあります。実行時にそれを読み取る方法はありますか? みたいな(system-version :my-system-name)？

asdf:version-satisfies、およびがあることは知っていますがasdf:asdf-version、この場合はどちらも私が望むことをしません。

Answer 1

コードは次のとおりです。

(defun system-version (system-designator)
  (let ((system (asdf:find-system system-designator nil)))
    (when (and system (slot-boundp system 'asdf:version))
      (asdf:component-version system))))

それはこのように動作します：

CL-USER> (system-version :cffi)
"0.10.7.1"
CL-USER> (system-version :foo)
NIL