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

[Mark Evenson]

Author: mevenson
Date: Sat May  1 03:37:20 2010
New Revision: 12641

Log:
Fix recursion bug in constructing Pathnames from "file" scheme URLs.

Found by Alan Ruttenberg.



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	Sat May  1 03:37:20 2010
@@ -345,7 +345,7 @@
             }
             String scheme = url.getProtocol();
             if (scheme.equals("file")) {
-                Pathname p = new Pathname(s);
+                Pathname p = new Pathname(url.getFile());
                 this.host = p.host;
                 this.device = p.device;
                 this.directory = p.directory;