Changeset 13321

Timestamp:

06/10/11 10:12:24 (12 years ago)

Author:

Mark Evenson

Message:

Use TRUENAME when determining name for hierarchial zip archives.

Fixes the three arg SYSTEM:ZIP under OSX.

File:

• trunk/abcl/src/org/armedbear/lisp/zip.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/zip.java

@@ -107 +107 @@
             ZipOutputStream out =
                 new ZipOutputStream(new FileOutputStream(zipfileNamestring));
-            Pathname root = (Pathname)coerceToPathname(third);
+            Pathname root = (Pathname) Pathname.truename(coerceToPathname(third));
             String rootPath = root.getDirectoryNamestring();
             int rootPathLength = rootPath.length();
@@ -113 +113 @@
             LispObject list = second;
             while (list != NIL) {
-                Pathname pathname = coerceToPathname(list.car());
+                Pathname pathname = (Pathname) Pathname.truename(coerceToPathname(list.car()));
                 String namestring = pathname.getNamestring();
                 if (namestring == null) {