From fbb75a0fc524e3280d89d8abf3be2ee9924955c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 13 Aug 2021 09:48:27 +0200
Subject: [PATCH] bytecmp: load correctly cancatanated fasc files

The manual claims that fasc files may be concatanated and the result will be
loadable. Fixes #649.
---
 src/c/load.d | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/c/load.d b/src/c/load.d
index 97264ad51..1b70c8079 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -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;