[armedbear-cvs] r13859 - trunk/abcl/contrib/abcl-asdf

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Feb  6 10:20:20 2012
New Revision: 13859

Log:
abcl-asdf:  return the connector for "https" role-hint.

Modified:
   trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp

Modified: trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp	Mon Feb  6 03:21:48 2012	(r13858)
+++ trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp	Mon Feb  6 10:20:20 2012	(r13859)
@@ -159,9 +159,14 @@
    "org.sonatype.aether.connector.wagon.WagonProvider"
    "lookup"
    (lambda (role-hint)
-     (if (string-equal "http" role-hint)
-         (some (lambda (provider) (java:jnew provider)) *http-wagon-implementations*)
-       java:+null+))
+     (cond 
+       ((find role-hint '("http" "https") :test #'string-equal)
+        (some (lambda (provider) (java:jnew provider)) *http-wagon-implementations*))
+       (t
+        (progn 
+          (format *maven-verbose* 
+                  "~&WagonProvider stub passed '~A' as a hint it couldn't satisfy.~%" role-hint)
+           java:+null+))))
    "release"
    (lambda (wagon)
      (declare (ignore wagon)))))
@@ -361,4 +366,3 @@
      #'log)))
 
          
-