Changeset 12667


Ignore:
Timestamp:
05/11/10 14:45:53 (14 years ago)
Author:
Mark Evenson
Message:

Fix WILD-PATHNAME-P to check for pathname components which are strings containing "*".

Not working for pathnames whose HOST or DEVICE containing "*".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Pathname.java

    r12653 r12667  
    16731673                return true;
    16741674            }
     1675            Cons d = (Cons) directory;
     1676            while (true) {
     1677                if (d.car() instanceof AbstractString) {
     1678                    String s = d.car().writeToString();
     1679                    if (s.contains("*")) {
     1680                        return true;
     1681                    }
     1682                }
     1683                if (d.cdr() == NIL || ! (d.cdr() instanceof Cons)) {
     1684                    break;
     1685                }
     1686                d = (Cons)d.cdr();
     1687            }
    16751688        }
    16761689        if (name == Keyword.WILD || name == Keyword.WILD_INFERIORS) {
    16771690            return true;
    16781691        }
     1692        if (name instanceof AbstractString) {
     1693            if (name.writeToString().contains("*")) {
     1694                return true;
     1695            }
     1696        }
    16791697        if (type == Keyword.WILD || type == Keyword.WILD_INFERIORS) {
    16801698            return true;
     1699        }
     1700        if (type instanceof AbstractString) {
     1701            if (type.writeToString().contains("*")) {
     1702                return true;
     1703            }
    16811704        }
    16821705        if (version == Keyword.WILD || version == Keyword.WILD_INFERIORS) {
Note: See TracChangeset for help on using the changeset viewer.