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

[Mark Evenson]

Author: mevenson
Date: Sat May  1 09:17:30 2010
New Revision: 12642

Log:
Enable ASDF2 to work under Windows.

Under Windows, allow Pathname TYPE components to end with ".lnk"
allowing ASDF2 to use Windows shortcut code.



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	Sat May  1 09:17:30 2010
@@ -680,10 +680,13 @@
             sb.append('.');
             if (type instanceof AbstractString) {
                 String t = type.getStringValue();
-                if (t.indexOf('.') >= 0) {
-                    Debug.assertTrue(namestring == null);
-                    return null;
-                }
+		// Allow Windows shortcuts to include TYPE
+		if (!(t.endsWith(".lnk") && Utilities.isPlatformWindows)) {
+		    if (t.indexOf('.') >= 0) {
+			Debug.assertTrue(namestring == null);
+			return null;
+		    }
+		}
                 sb.append(t);
             } else if (type == Keyword.WILD) {
                 sb.append('*');