| author | Camm Maguire <camm@debian.org> | 2016年02月02日 22:03:21 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2016年02月02日 22:03:21 +0000 |
| commit | c7d8a9ed03a30c8cea4a2a7b6c84c7622ca670ae (patch) | |
| tree | f82ba7b01eb3b97543c7e524c28bcaa45d368b9e | |
| parent | 039dfbf5d734b616484e0adc10fe06a32daf348b (diff) | |
| download | gcl-simplified_conditions.tar.gz | |
| -rw-r--r-- | gcl/unixport/sys_init.c | 6 |
diff --git a/gcl/unixport/sys_init.c b/gcl/unixport/sys_init.c index c5433e7ac..d940481d9 100644 --- a/gcl/unixport/sys_init.c +++ b/gcl/unixport/sys_init.c @@ -6,13 +6,17 @@ gcl_init_init() build_symbol_table(); -#ifdef pre_gcl +#if defined(pre_gcl) || defined(ansi_gcl) { object features; extern int in_pre_gcl; features=find_symbol(make_simple_string("*FEATURES*"),system_package); +#if defined(pre_gcl) features->s.s_dbind=make_cons(make_keyword("PRE-GCL"),features->s.s_dbind); in_pre_gcl=1; +#else + features->s.s_dbind=make_cons(make_keyword("ANSI-CL"),make_cons(make_keyword("COMMON-LISP"),features->s.s_dbind)); +#endif } #endif |