[armedbear-cvs] r12544 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Mon Mar 15 09:55:15 2010
New Revision: 12544

Log:
Fix win32 bugs with :ABSOLUTE directory entries for jar pathnames.



Modified:
   trunk/abcl/src/org/armedbear/lisp/Pathname.java

Modified: trunk/abcl/src/org/armedbear/lisp/Pathname.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Pathname.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Pathname.java	Mon Mar 15 09:55:15 2010
@@ -534,8 +534,10 @@
         }
         String directoryNamestring = getDirectoryNamestring();
         if (isJar()) {
-            if (directoryNamestring.startsWith(File.separator)) {
+            if (directoryNamestring.startsWith("/")) {
                 sb.append(directoryNamestring.substring(1));
+            } else {
+                sb.append(directoryNamestring);
             }
         } else {
             sb.append(directoryNamestring);
@@ -652,7 +654,6 @@
 		    result.append(c);
 		}
 	    }
-	    return result.toString();
         } else  {
             result.append(path);
         }