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

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Aug  1 14:34:43 2011
New Revision: 13432

Log:
Fix the ABCL-ASDF:*ADDED-TO-CLASSPATH* to actually record additions.

The use of this variable is perhaps slightly obsolescent with the use
of JAVA:DUMP-CLASSPATH, but provides a convenient shortcut to
quickly find out what has been added by JAVA:ADD-TO-CLASSPATH.

Modified:
   trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd
   trunk/abcl/contrib/abcl-asdf/asdf-jar.lisp

Modified: trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd	Mon Aug  1 14:34:35 2011	(r13431)
+++ trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd	Mon Aug  1 14:34:43 2011	(r13432)
@@ -3,7 +3,7 @@
 
 (defsystem :abcl-asdf
   :author "Mark Evenson"
-  :version "0.3.1"
+  :version "0.3.2"
   :depends-on ("jss") 
   :components 
   ((:module base :pathname "" :components

Modified: trunk/abcl/contrib/abcl-asdf/asdf-jar.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/asdf-jar.lisp	Mon Aug  1 14:34:35 2011	(r13431)
+++ trunk/abcl/contrib/abcl-asdf/asdf-jar.lisp	Mon Aug  1 14:34:43 2011	(r13432)
@@ -27,6 +27,14 @@
                 (return-from need-to-add-directory-jar? t)))
   nil)
 
+(defmethod java:add-to-classpath :around ((uri-or-uris t) &optional classloader)
+  (declare (ignore classloader))
+  (call-next-method)
+  (if (listp uri-or-uris)
+      (dolist (uri uri-or-uris)
+        (pushnew uri *added-to-classpath*))
+      (pushnew uri-or-uris *added-to-classpath*)))
+
 (in-package :asdf)
 
 (defclass jar-directory (static-file) ())