[armedbear-cvs] r13861 - trunk/abcl/contrib/abcl-asdf

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Feb  6 10:20:23 2012
New Revision: 13861

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

Modified:
   trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp

Modified: trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp	Mon Feb  6 10:20:21 2012	(r13860)
+++ trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp	Mon Feb  6 10:20:23 2012	(r13861)
@@ -64,11 +64,11 @@
 
 (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))