source:
branches/typed-asm/abcl/contrib/jss/classpath.lisp
Last change on this file was 13436, checked in by , 13 years ago | |
---|---|
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.