mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 17:20:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

The value of *LOAD-PATHNAME* should be a pathname

Browse source
This commit is contained in:
jjgarcia 2005-05-20 15:20:20 +00:00
parent 3af1590f08
commit 1874635c95
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -176,6 +176,8 @@ ECL 0.9f
dispatcher, so that if the user defines a dispatcher for #f, it is
automagically set for #F and viceversa.
- The value of *LOAD-PATHNAME* should be a pathname.
* MOP Compatibility:
- We have implemented the *-SLOT-DEFINITION classes, as well as the protocol

2
src/c/load.d
View file

@ -348,7 +348,7 @@ NOT_A_FILENAME:
}
bds_bind(@'*package*', symbol_value(@'*package*'));
bds_bind(@'*readtable*', symbol_value(@'*readtable*'));
bds_bind(@'*load-pathname*', filename);
bds_bind(@'*load-pathname*', cl_pathname(filename));
bds_bind(@'*load-truename*', cl_truename(filename));
if (Null(function))
ok = si_load_source(filename, verbose, print);