[armedbear-cvs] r14189 - trunk/abcl/contrib/mvn

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Oct 12 05:52:58 2012
New Revision: 14189

Log:
jna:  introspect classpath for com.sun.jna.Native as per Anton's suggestion.

Modified:
   trunk/abcl/contrib/mvn/jna.asd

Modified: trunk/abcl/contrib/mvn/jna.asd
==============================================================================
--- trunk/abcl/contrib/mvn/jna.asd	Fri Oct 12 05:35:37 2012	(r14188)
+++ trunk/abcl/contrib/mvn/jna.asd	Fri Oct 12 05:52:58 2012	(r14189)
@@ -25,6 +25,9 @@
                   (return abcl-jar)))))
         (java:add-to-classpath (abcl-asdf:resolve
                                 "net.java.dev.jna:jna:3.4.0")))
-    (t (e) (error "Failed to resolve 'jna.jar' because~&~A." e))))
+    (t (e) 
+      (progn 
+        (unless (jss:find-java-class "com.sun.jna.Native")
+          (error "Failed to resolve 'jna.jar' because~&~A." e))))))