Changeset 13302

Timestamp:

05/27/11 13:06:26 (11 years ago)

Author:

Mark Evenson

Message:

Include the version in the internal PATHNAME copy contructor.

With this change, MERGE-PATHNAMES should now follow ANSI for version
arguments, finally closing ticket #150.

File:

• trunk/abcl/src/org/armedbear/lisp/Pathname.java (modified) (1 diff)

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

@@ -169 +169 @@
             }
         }
+  if (p.version != NIL) {
+      if (p.version instanceof Symbol) {
+    version = p.version;
+      } else if (p.version instanceof LispInteger) {
+    version = p.version;
+      } else {
+    Debug.assertTrue(false);
+      }
+  }
     }