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

parent 36d471e4
...@@ -364,7 +364,7 @@ public class Pathname extends LispObject { ...@@ -364,7 +364,7 @@ public class Pathname extends LispObject {
} }
directory = parseDirectory(d); directory = parseDirectory(d);
} }
if (s.startsWith(".")) { if (s.startsWith(".") && s.indexOf(".", 1) == -1) {
name = new SimpleString(s); name = new SimpleString(s);
return; return;
} }
......
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