mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 09:20:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

LOAD must save the value of *READTABLE*

Browse source
This commit is contained in:
jjgarcia 2004-11-22 14:31:37 +00:00
parent 9eb3a5b814
commit 6c445495ae
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/load.d
View file

@ -349,13 +349,14 @@ NOT_A_FILENAME:
filename);
}
bds_bind(@'*package*', symbol_value(@'*package*'));
bds_bind(@'*readtable*', symbol_value(@'*readtable*'));
bds_bind(@'*load-pathname*', filename);
bds_bind(@'*load-truename*', cl_truename(filename));
if (Null(function))
ok = si_load_source(filename, verbose, print);
else
ok = funcall(4, function, filename, verbose, print);
bds_unwind_n(3);
bds_unwind_n(4);
if (!Null(ok))
FEerror("LOAD: Could not load file ~S (Error: ~S)",
2, filename, ok);