Changeset 14195


Ignore:
Timestamp:
10/13/12 15:19:20 (8 years ago)
Author:
Mark Evenson
Message:

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/).

Location:
trunk/abcl/contrib/abcl-asdf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd

    r14185 r14195  
    33(asdf:defsystem :abcl-asdf
    44  :author "Mark Evenson"
    5   :version "0.8.0"
     5  :version "0.9.0"
    66  :depends-on (jss)
    77  :components
  • trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp

    r14193 r14195  
    104104classpath separator string.  Can possibly be a single entry denoting a
    105105remote binary artifact."
    106   (with-slots (name group-id artifact-id version) mvn-component
    107     (if (find-mvn)
    108         (resolve-dependencies group-id artifact-id version))
    109     (cond
    110           ((string= name
    111                     "net.java.dev.jna/jna/3.4.0"
    112                     (let ((uri #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar"))
    113                       (values (namestring uri) uri))))
    114           (t
    115            (error "Failed to resolve MVN component name ~A." name)))))
    116 
     106  (macrolet ((aif (something consequence alternative))
     107             `(let ((it ,(something)))
     108                (if it
     109                    consequence
     110                    alternative)))
     111    (let ((name (slot-value mvn-component 'asdf::name))
     112          (group-id (slot-value mvn-component 'asdf::group-id))
     113          (artifact-id (slot-value mvn-component 'asdf::artifact-id))
     114          (version (let ((it (slot-value mvn-component 'asdf::version)))
     115                     (cond
     116                       ((not it)
     117                        it)
     118                       (t
     119                        "LATEST")))))
     120      (if (find-mvn)
     121          (resolve-dependencies group-id artifact-id version)
     122          (cond
     123            ((string= name
     124                      "net.java.dev.jna/jna/3.4.0"
     125                      (let ((uri #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar"))
     126                        (values (namestring uri) uri))))
     127            (t
     128             (error "Failed to resolve MVN component name ~A." name)))))))
     129 
    117130(defun as-classpath (classpath)
    118131  "Break apart the JVM CLASSPATH string into a list of its consituents."
Note: See TracChangeset for help on using the changeset viewer.