|
Last change
on this file since 13883 was
13436,
checked in by Mark Evenson, 11 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.
