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

[vvoutilainen at common-lisp.net]

Author: vvoutilainen
Date: Mon May 23 09:27:17 2011
New Revision: 13288

Log:
Revert the earlier attempt to fix the version copying issue,
it badly breaks quicklisp.

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	Mon May 23 08:46:06 2011	(r13287)
+++ trunk/abcl/src/org/armedbear/lisp/Pathname.java	Mon May 23 09:27:17 2011	(r13288)
@@ -1254,7 +1254,6 @@
         boolean nameSupplied = false;
         boolean typeSupplied = false;
         boolean directorySupplied = false;
-        boolean versionSupplied = false;
         for (int i = 0; i < args.length; i += 2) {
             LispObject key = args[i];
             LispObject value = args[i + 1];
@@ -1291,7 +1290,6 @@
                 typeSupplied = true;
             } else if (key == Keyword.VERSION) {
                 version = value;
-                versionSupplied = true;
             } else if (key == Keyword.DEFAULTS) {
                 defaults = coerceToPathname(value);
             } else if (key == Keyword.CASE) {
@@ -1314,9 +1312,6 @@
             if (!typeSupplied) {
                 type = defaults.type;
             }
-            if (!versionSupplied) {
-                version = defaults.version;
-            }
         }
         final Pathname p;
         final boolean logical;