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.
parent a493e27b
......@@ -168,6 +168,15 @@ public class Pathname extends LispObject {
Debug.assertTrue(false);
}
}
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);
}
}
}
public Pathname(String s) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment