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

Last change on this file was 13436, checked in by Mark Evenson, 13 years ago

Fix JSS load by adding missing file.

File size: 515 bytes
Line 
1(in-package :java)
2
3(defmethod add-to-classpath :after ((uri-or-uris t) &optional classloader)
4  (declare (ignore classloader))
5  (let ((paths (if (listp uri-or-uris)
6                   uri-or-uris
7                   (list uri-or-uris))))
8    (dolist (path paths)
9      (let ((absolute (namestring (truename path))))
10        (cond ((equal (pathname-type absolute) "jar")
11               (jss:jar-import absolute))
12              ((ext:file-directory-p absolute)
13               (jss:classfiles-import absolute)))))))
14
Note: See TracBrowser for help on using the repository browser.