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

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Jun 10 03:12:24 2011
New Revision: 13321

Log:
Use TRUENAME when determining name for hierarchial zip archives.

Fixes the three arg SYSTEM:ZIP under OSX.

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

Modified: trunk/abcl/src/org/armedbear/lisp/zip.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/zip.java	Fri Jun 10 03:12:02 2011	(r13320)
+++ trunk/abcl/src/org/armedbear/lisp/zip.java	Fri Jun 10 03:12:24 2011	(r13321)
@@ -106,13 +106,13 @@
                                               zipfilePathname.writeToString()));
             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();
             Set<String> directories = new HashSet<String>();
             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) {
                     // Clean up before signalling error.