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

bytecmp: load correctly cancatanated fasc files

Browse source 
The manual claims that fasc files may be concatanated and the result will be
loadable. Fixes #649.
This commit is contained in:
Daniel Kochmański 2021-08-13 09:48:27 +02:00
parent b9a3d859e9
commit fbb75a0fc5
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/load.d
View file

@ -155,6 +155,9 @@ si_load_bytecodes(cl_object source, cl_object verbose, cl_object print, cl_objec
if (ECL_LISTP(forms)) {
cl_object x = ECL_CONS_CAR(forms);
forms = ECL_CONS_CDR(forms);
if (Null(forms)) {
forms = cl_read(3, strm, ECL_NIL, ECL_NIL);
}
if (ecl_t_of(x) == t_bytecodes) {
_ecl_funcall1(x);
continue;