Changeset 12469


Ignore:
Timestamp:
02/14/10 09:07:54 (11 years ago)
Author:
Mark Evenson
Message:

Ensure that FILE-ERROR always has a value for PATHNAME.

Fixes ANSI LOAD.ERROR.1.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r12288 r12469  
    7070        setFormatControl(message);
    7171        setFormatArguments(NIL);
     72        setPathname(NIL);
    7273    }
    7374
  • trunk/abcl/src/org/armedbear/lisp/Load.java

    r12431 r12469  
    145145        if (truename == null || truename.equals(NIL)) {
    146146            if (ifDoesNotExist) {
    147                 return error(new FileError("File not found: " + pathname));
     147                return error(new FileError("File not found.", pathname));
    148148            } else {
    149                 Debug.trace("Failed to load " + pathname.getNamestring());
     149                Debug.warn("Failed to load " + pathname.getNamestring());
    150150                return NIL;
    151151            }
Note: See TracChangeset for help on using the changeset viewer.