Commit fbb75a0f authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

bytecmp: load correctly cancatanated fasc files

The manual claims that fasc files may be concatanated and the result will be
loadable. Fixes #649.
parent b9a3d859
...@@ -155,6 +155,9 @@ si_load_bytecodes(cl_object source, cl_object verbose, cl_object print, cl_objec ...@@ -155,6 +155,9 @@ si_load_bytecodes(cl_object source, cl_object verbose, cl_object print, cl_objec
if (ECL_LISTP(forms)) { if (ECL_LISTP(forms)) {
cl_object x = ECL_CONS_CAR(forms); cl_object x = ECL_CONS_CAR(forms);
forms = ECL_CONS_CDR(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) { if (ecl_t_of(x) == t_bytecodes) {
_ecl_funcall1(x); _ecl_funcall1(x);
continue; continue;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment