Changeset 12549

Timestamp:

03/16/10 10:43:53 (13 years ago)

Author:

Mark Evenson

Message:

Allow TYPE to be :UNSPECIFIC.

Fixes bug where the following would fail:

(make-pathname :directory '(:relative) :name "file"

:type :unspecific :host nil :device nil)

File:

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

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

@@ -553 +553 @@
             sb.append('*');
         }
-        if (type != NIL) {
+        if (type != NIL && type != Keyword.UNSPECIFIC) {
             sb.append('.');
             if (type instanceof AbstractString) {