Changeset 12667
- Timestamp:
- 05/11/10 14:45:53 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Pathname.java
r12653 r12667 1673 1673 return true; 1674 1674 } 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 } 1675 1688 } 1676 1689 if (name == Keyword.WILD || name == Keyword.WILD_INFERIORS) { 1677 1690 return true; 1678 1691 } 1692 if (name instanceof AbstractString) { 1693 if (name.writeToString().contains("*")) { 1694 return true; 1695 } 1696 } 1679 1697 if (type == Keyword.WILD || type == Keyword.WILD_INFERIORS) { 1680 1698 return true; 1699 } 1700 if (type instanceof AbstractString) { 1701 if (type.writeToString().contains("*")) { 1702 return true; 1703 } 1681 1704 } 1682 1705 if (version == Keyword.WILD || version == Keyword.WILD_INFERIORS) {
Note: See TracChangeset
for help on using the changeset viewer.