abcl-asdf-0.9.0: patching to greater global stability of distributed references.

Bump version to indicate that we have greater faith of the stability of the interface.

N.b. seems to break [Jeannie](http://bitbucket.org/easye/jeannie/).
parent a0563ac8
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
(asdf:defsystem :abcl-asdf (asdf:defsystem :abcl-asdf
:author "Mark Evenson" :author "Mark Evenson"
:version "0.8.0" :version "0.9.0"
:depends-on (jss) :depends-on (jss)
:components :components
((:module packages :pathname "" ((:module packages :pathname ""
......
...@@ -103,17 +103,30 @@ ...@@ -103,17 +103,30 @@
Returns a string in JVM CLASSPATH format as entries delimited by Returns a string in JVM CLASSPATH format as entries delimited by
classpath separator string. Can possibly be a single entry denoting a classpath separator string. Can possibly be a single entry denoting a
remote binary artifact." remote binary artifact."
(with-slots (name group-id artifact-id version) mvn-component (macrolet ((aif (something consequence alternative))
(if (find-mvn) `(let ((it ,(something)))
(resolve-dependencies group-id artifact-id version)) (if it
(cond consequence
((string= name alternative)))
"net.java.dev.jna/jna/3.4.0" (let ((name (slot-value mvn-component 'asdf::name))
(let ((uri #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar")) (group-id (slot-value mvn-component 'asdf::group-id))
(values (namestring uri) uri)))) (artifact-id (slot-value mvn-component 'asdf::artifact-id))
(t (version (let ((it (slot-value mvn-component 'asdf::version)))
(error "Failed to resolve MVN component name ~A." name))))) (cond
((not it)
it)
(t
"LATEST")))))
(if (find-mvn)
(resolve-dependencies group-id artifact-id version)
(cond
((string= name
"net.java.dev.jna/jna/3.4.0"
(let ((uri #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar"))
(values (namestring uri) uri))))
(t
(error "Failed to resolve MVN component name ~A." name)))))))
(defun as-classpath (classpath) (defun as-classpath (classpath)
"Break apart the JVM CLASSPATH string into a list of its consituents." "Break apart the JVM CLASSPATH string into a list of its consituents."
(split-string classpath (split-string classpath
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment