mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Hannu Koivisto: Now respects if-does-not-exist argument in all case

Browse source
This commit is contained in:
jjgarcia 2002-02-12 15:59:15 +00:00
parent e76f6f9831
commit 33263c74c5
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/load.d
View file

@ -146,9 +146,11 @@ GO_ON:
/* If filename already has an extension, make sure
that the file exists */
filename = coerce_to_filename(pathname);
if (!file_exists(filename))
FEcannot_open(filename);
function = cdr(assoc(pathname->pathname.type, hooks));
if (!file_exists(filename)) {
filename = Cnil;
} else {
function = cdr(assoc(pathname->pathname.type, hooks));
}
} else loop_for_in(hooks) {
/* Otherwise try with known extensions until a matching
file is found */