[armedbear-cvs] r13436 - trunk/abcl/contrib/jss

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Aug  4 08:07:25 2011
New Revision: 13436

Log:
Fix JSS load by adding missing file.

Added:
   trunk/abcl/contrib/jss/classpath.lisp

Added: trunk/abcl/contrib/jss/classpath.lisp
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/abcl/contrib/jss/classpath.lisp	Thu Aug  4 08:07:25 2011	(r13436)
@@ -0,0 +1,14 @@
+(in-package :java)
+
+(defmethod add-to-classpath :after ((uri-or-uris t) &optional classloader)
+  (declare (ignore classloader))
+  (let ((paths (if (listp uri-or-uris)
+                   uri-or-uris
+                   (list uri-or-uris))))
+    (dolist (path paths)
+      (let ((absolute (namestring (truename path))))
+        (cond ((equal (pathname-type absolute) "jar")
+               (jss:jar-import absolute))
+              ((ext:file-directory-p absolute)
+               (jss:classfiles-import absolute)))))))
+