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