File: classpath.lisp

package info (click to toggle)
abcl 1.9.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 12,064 kB
  • sloc: lisp: 63,756; java: 63,092; xml: 4,300; sh: 409; makefile: 25; awk: 3
file content (14 lines) | stat: -rw-r--r-- 515 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
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)))))))