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

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Oct 11 04:33:22 2012
New Revision: 14177

Log:
TRUENAME now sets DEVICE to :UNSPECIFIC from NIL on non-MSDOG.

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	Thu Oct 11 04:33:19 2012	(r14176)
+++ trunk/abcl/src/org/armedbear/lisp/Pathname.java	Thu Oct 11 04:33:22 2012	(r14177)
@@ -2167,6 +2167,9 @@
                         return error(new FileError(e.getMessage(), pathname));
                     }
                 }
+                if (Utilities.isPlatformUnix) {
+                  result.device = Keyword.UNSPECIFIC;
+                }
                 return result;
             }
         } else if (pathname.isURL()) {