From 3b737c834a36a58d26bbd08ce1d22c8a0bb7e8b7 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Fri, 10 Feb 2023 19:31:56 +0300 Subject: [PATCH] Now it is possible to load the library on ASDF 3.3.1. --- docs/changelog.lisp | 2 ++ src/system.lisp | 12 ++++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) 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)