Now it is possible to load the library on ASDF 3.3.1.

40ants · Feb 10, 2023 · 3b737c8 · 3b737c8
1 parent d349c21
commit 3b737c8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git 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
@@ -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)