Changeset 12608


Ignore:
Timestamp:
04/15/10 14:27:16 (13 years ago)
Author:
Mark Evenson
Message:

Don't throw LispError? on non existent jar for DIRECTORY.

File:
1 edited

Legend:

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

    r12607 r12608  
    15441544            jarPathname.type = NIL;
    15451545            jarPathname.invalidateNamestring();
    1546             // will propagate an appropiate Lisp error if jarPathname
    1547             // doesn't exist.
    1548             LispObject jarTruename = truename(jarPathname, true);
    1549 
     1546            LispObject jarTruename = truename(jarPathname, false);
     1547           
     1548            // We can't match anything in a non-existent jar
     1549            if (jarTruename == NIL) {
     1550                return NIL;
     1551            }
     1552           
    15501553            LispObject result = NIL;
    15511554            String wild = "/" + pathname.asEntryPath();
Note: See TracChangeset for help on using the changeset viewer.