Changeset 14193


Ignore:
Timestamp:
10/13/12 10:09:08 (8 years ago)
Author:
Mark Evenson
Message:

abcl-asdf: make 'com.sun.jna:jna' a synonym for a known, good jna mvn URI.

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

Legend:

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

    r14192 r14193  
    104104classpath separator string.  Can possibly be a single entry denoting a
    105105remote binary artifact."
    106   (let ((name (asdf::component-name mvn-component)))
     106  (with-slots (name group-id artifact-id version) mvn-component
    107107    (if (find-mvn)
    108         (with-slots (asdf::group-id asdf::artifact-id asdf::version) mvn-component
    109           (resolve-dependencies asdf::group-id asdf::artifact-id asdf::version))
    110         (cond
     108        (resolve-dependencies group-id artifact-id version))
     109    (cond
    111110          ((string= name
    112111                    "net.java.dev.jna/jna/3.4.0"
     
    114113                      (values (namestring uri) uri))))
    115114          (t
    116            (error "Failed to resolve MVN component name ~A." name))))))
     115           (error "Failed to resolve MVN component name ~A." name)))))
    117116
    118117(defun as-classpath (classpath)
  • trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp

    r14170 r14193  
    414414      ((= (length result) 3)
    415415       (resolve-dependencies (first result) (second result) (third result)))
     416      ((string= string "com.sun.jna:jna")
     417       (resolve-dependencies "net.java.dev.jna" "jna" "3.4.0"))
    416418      (t
    417419       (apply #'resolve-dependencies result)))))
Note: See TracChangeset for help on using the changeset viewer.