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

*SOURCE-LOCATION* is set to *LOAD-PATHNAME* not to *LOAD-TRUENAME*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-11 00:01:57 +01:00
parent 6d5084fa8d
commit 9e8d89f55b
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/CHANGELOG
View file

@ -1,3 +1,11 @@
ECL 10.3.2:
===========
* Visible changes:
- The source location annotator records the original pathnames, not the
truenames. This allows in particular moving ECL's core files.
ECL 10.3.1:
===========

3
src/c/load.d
View file

@ -471,7 +471,8 @@ si_load_source(cl_object source, cl_object verbose, cl_object print)
}
CL_UNWIND_PROTECT_BEGIN(the_env) {
cl_object form_index = MAKE_FIXNUM(0);
cl_object location = CONS(source, form_index);
cl_object pathname = ECL_SYM_VAL(the_env, @'*load-pathname*');
cl_object location = CONS(pathname, form_index);
ecl_bds_bind(the_env, @'ext::*source-location*', location);
for (;;) {
form_index = ecl_file_position(strm);