abcl-asdf: Use the JVM's notion of the classpath separator.

parent fd519804
......@@ -64,11 +64,11 @@ Returns a string in JVM CLASSPATH format as entries delimited by classpath separ
(defun as-classpath (classpath)
"Break apart the JVM CLASSPATH string into a list of its consituents."
;;; XXX Maybe doesn't work under Windows?
(split-string classpath ":"))
(split-string classpath
(java:jfield "java.io.File" "pathSeparator")))
(defun split-string (string split-char)
(loop :for i = 0 :then (1+ j)
:as j = (position split-char string :test #'string-equal :start i)
:collect (subseq string i j)
:while j))
\ No newline at end of file
:while j))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment