From d378f2aaaf89268bb78401ea8f87c5526c3bd89d Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Wed, 7 Apr 2010 20:42:00 +0200
Subject: [PATCH] Add .fasb as one of the file extensions understood by LOAD

---
 src/CHANGELOG | 8 ++++++++
 src/c/main.d  | 3 ++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 1367d2087..5c143d8d1 100755
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -1,3 +1,11 @@
+ECL 10.4.2:
+===========
+
+* Visible changes:
+
+ - "fasb" is now a valid FASL file type, accepted by ECL even in absence of
+   ASDF.
+
 ECL 10.4.1:
 ===========
 
diff --git a/src/c/main.d b/src/c/main.d
index 177e5058d..9aac10987 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -658,8 +658,9 @@ cl_boot(int argc, char **argv)
 #endif
 	aux = cl_list(
 #ifdef ENABLE_DLOPEN
-		9,CONS(make_constant_base_string("fas"), @'si::load-binary'),
+		10,CONS(make_constant_base_string("fas"), @'si::load-binary'),
 		CONS(make_constant_base_string("fasl"), @'si::load-binary'),
+		CONS(make_constant_base_string("fasb"), @'si::load-binary'),
 #else
 		7,
 #endif