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

[Mark Evenson]

Author: mevenson
Date: Tue Mar 16 06:43:53 2010
New Revision: 12549

Log:
Allow TYPE to be :UNSPECIFIC.

Fixes bug where the following would fail:

  (make-pathname :directory '(:relative) :name "file"
               :type :unspecific :host nil :device nil)


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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Pathname.java	Tue Mar 16 06:43:53 2010
@@ -552,7 +552,7 @@
         } else if (name == Keyword.WILD) {
             sb.append('*');
         }
-        if (type != NIL) {
+        if (type != NIL && type != Keyword.UNSPECIFIC) {
             sb.append('.');
             if (type instanceof AbstractString) {
                 String t = type.getStringValue();