(pathname-directory "./../lib/abcl-aio.jar") -> (:RELATIVE "lib")

[alanruttenberg]

That's wrong. Should be (:relative :up "lib").

(pathname-directory "../lib/abcl-aio.jar") gets the right answer

[alanruttenberg]

diff --git a/src/org/armedbear/lisp/Pathname.java b/src/org/armedbear/lisp/Pathname.java
index ac2bbf35..77280326 100644
--- a/src/org/armedbear/lisp/Pathname.java
+++ b/src/org/armedbear/lisp/Pathname.java
@@ -296,6 +296,8 @@ public class Pathname extends LispObject
       result.setDirectory(new Cons(Keyword.RELATIVE));
       return result;
     } 
+    if (s.startsWith("./"))
+      { s = s.substring(2); }
     if (s.equals("..") || s.equals("../")) {
       result.setDirectory(list(Keyword.RELATIVE, Keyword.UP));
       return result;

[easye]

Present in abcl-1.9.2

CL-USER> (pathname-directory "./../lib/abcl-aio.jar")
(:RELATIVE :UP "lib")
CL-USER> (lisp-implementation-version)
"1.9.3-dev"
"OpenJDK_64-Bit_Server_VM-MacPorts-17.0.8+7"
"aarch64-Mac_OS_X-13.5.1"
CL-USER>