Changeset 15647

Timestamp:

02/20/23 09:12:34 (10 months ago)

Author:

Mark Evenson

Message:

abcl-asdf: MAKE-LOCAL-MAVEN installs in local XDG hierarchy

Location:

trunk/abcl/contrib/abcl-asdf

Files:

• maven.lisp (modified) (1 diff)
• package.lisp (modified) (1 diff)

trunk/abcl/contrib/abcl-asdf/maven.lisp

@@ -742 +742 @@
                                 `(:repository ,repository))))))))))
 
+(defun make-local-maven ()
+  "Use ABCL-BUILD to install a local Maven, configuring it for subsequent use"
+  ;; TODO: use this in an interactive restart if Maven can't be found
+    (setf abcl-asdf:*mvn-libs-directory*
+     (multiple-value-bind (mvn entries)
+         (abcl-build:mvn/install)
+       (let* ((root
+                (first (last entries)))
+              (lib
+                (merge-pathnames  "./lib/" root )))
+         (abcl-asdf:with-aether (lib)
+           (values
+            (and
+             ;; for good measure
+             (when (asdf:clear-system :jna)
+               (asdf:make :jna))
+             lib)
+            (abcl-asdf:ensure-mvn-version)
+            (abcl-build:ensure-maven)))))))
 
 ;;; Currently the last file listed in ASDF

trunk/abcl/contrib/abcl-asdf/package.lisp

@@ -22 +22 @@
 
    #:init
+   #:make-local-maven
+   
 
 ;;; "Internal" API