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

Fixes ANSI LOAD.ERROR.1.
parent 9b8bb467
......@@ -69,6 +69,7 @@ public final class FileError extends LispError
super(StandardClass.FILE_ERROR);
setFormatControl(message);
setFormatArguments(NIL);
setPathname(NIL);
}
public FileError(String message, LispObject pathname)
......
......@@ -144,9 +144,9 @@ public final class Load
if (truename == null || truename.equals(NIL)) {
if (ifDoesNotExist) {
return error(new FileError("File not found: " + pathname));
return error(new FileError("File not found.", pathname));
} else {
Debug.trace("Failed to load " + pathname.getNamestring());
Debug.warn("Failed to load " + pathname.getNamestring());
return NIL;
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment