Changeset 12642

Timestamp:

05/01/10 13:17:30 (14 years ago)

Author:

Mark Evenson

Message:

Enable ASDF2 to work under Windows.

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

File:

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

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

@@ -681 +681 @@
             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) {