diff --git a/docs/changelog.lisp b/docs/changelog.lisp index 43f60af..edc9ecd 100644 --- a/docs/changelog.lisp +++ b/docs/changelog.lisp @@ -9,6 +9,8 @@ "ASDF" "REPL" "HTTP")) + (0.3.1 2023-02-10 + "* Now it is possible to load the library on ASDF 3.3.1.") (0.3.0 2022-11-09 "* Now docs/changelog.lisp will be recognized when system version is extracted.") (0.2.0 2022-11-07 diff --git a/src/system.lisp b/src/system.lisp index 396e400..0aef3e4 100644 --- a/src/system.lisp +++ b/src/system.lisp @@ -26,10 +26,14 @@ (unless (asdf:component-version system) (setf (asdf:component-version system) (get-version))) - - (unless (asdf:system-version system) - (setf (slot-value system 'asdf:version) - (get-version))) + + ;; ASDF before 3.3.2.11 didn't provide version slot on systems + (when (find-symbol "SYSTEM-VERSION" (find-package "ASDF")) + (unless (uiop:symbol-call "ASDF" + "SYSTEM-VERSION" + system) + (setf (slot-value system 'asdf:version) + (get-version)))) (unless (asdf:system-long-description system) (setf (slot-value system 'asdf::long-description)