From c7141dca180aa1c03c7d0306d1d9c78a67b2fecc Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 4 Feb 2011 22:57:00 +0100 Subject: [PATCH] Added loader for fasc extension as bytecodes, instead of reusing fasb for them --- src/c/main.d | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/c/main.d b/src/c/main.d index 192893ea9..e5647160c 100644 --- a/src/c/main.d +++ b/src/c/main.d @@ -344,7 +344,9 @@ ecl_def_ct_base_string(str_fas,"fas",3,static,const); ecl_def_ct_base_string(str_fasl,"fasl",4,static,const); #endif ecl_def_ct_base_string(str_fasb,"fasb",4,static,const); +ecl_def_ct_base_string(str_fasc,"fasc",4,static,const); ecl_def_ct_base_string(str_FASB,"FASB",4,static,const); +ecl_def_ct_base_string(str_FASC,"FASC",4,static,const); ecl_def_ct_base_string(str_lsp,"lsp",3,static,const); ecl_def_ct_base_string(str_LSP,"LSP",3,static,const); ecl_def_ct_base_string(str_lisp,"lisp",4,static,const); @@ -695,6 +697,7 @@ cl_boot(int argc, char **argv) 10,CONS(str_fas, @'si::load-binary'), CONS(str_fasl, @'si::load-binary'), CONS(str_fasb, @'si::load-binary'), + CONS(str_FASB, @'si::load-binary'), #else 7, #endif @@ -702,8 +705,8 @@ cl_boot(int argc, char **argv) CONS(str_lisp, @'si::load-source'), CONS(str_LSP, @'si::load-source'), CONS(str_LISP, @'si::load-source'), - CONS(str_fasb, @'si::load-source'), - CONS(str_FASB, @'si::load-source'), + CONS(str_fasc, @'si::load-source'), + CONS(str_FASC, @'si::load-source'), CONS(Cnil, @'si::load-source')); ECL_SET(@'si::*load-hooks*', aux); init_error();