source:
trunk/abcl/contrib/jss/classpath.lisp
| Last change on this file was 13436, checked in by , 14 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.
