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

[Mark Evenson]

Author: mevenson
Date: Wed Feb 17 09:15:36 2010
New Revision: 12485

Log:
Allow pathnames for filenames starting with "." to have TYPE.



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	Wed Feb 17 09:15:36 2010
@@ -364,7 +364,7 @@
             }
             directory = parseDirectory(d);
         }
-        if (s.startsWith(".")) {
+        if (s.startsWith(".") && s.indexOf(".", 1) == -1) {
             name = new SimpleString(s);
             return;
         }