set pre_gcl feature in sys_pre_gcl.c - gcl.git - GNU Common Lisp

diff --git a/gcl/unixport/sys_pre_gcl.c b/gcl/unixport/sys_pre_gcl.c
index e1d78b25c..3f093e480 100755
--- a/gcl/unixport/sys_pre_gcl.c
+++ b/gcl/unixport/sys_pre_gcl.c

@@ -57,9 +57,15 @@ load1(x)

void

gcl_init_init()

{

+ object features;

+ extern int pre_gcl;

build_symbol_table();

+ features=find_symbol(make_simple_string("*FEATURES*"),system_package);

+ features->s.s_dbind=make_cons(make_keyword("PRE-GCL"),features->s.s_dbind);

+ pre_gcl=1;

+

lsp_init("../lsp/gcl_export.lsp");

lsp_init("../lsp/gcl_s.lsp");