diff options
Diffstat (limited to 'lib.c')
| -rw-r--r-- | lib.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -84,7 +84,7 @@ int async_sig_enabled = 0; val packages; val system_package, keyword_package, user_package; -val package_alist_s; +val public_package, package_alist_s; val package_s, system_package_s, keyword_package_s, user_package_s; val null_s, t, cons_s, str_s, chr_s, fixnum_s, sym_s, pkg_s, fun_s, vec_s; @@ -10665,7 +10665,7 @@ static void obj_init(void) */ protect(&packages, &system_package, &keyword_package, - &user_package, &null_string, &nil_string, + &user_package, &public_package, &null_string, &nil_string, &null_list, &equal_f, &eq_f, &eql_f, &car_f, &cdr_f, &null_f, &list_f, &identity_f, &less_f, &greater_f, &prog_string, &env_list, @@ -10679,6 +10679,7 @@ static void obj_init(void) system_package = make_package(lit("sys")); keyword_package = make_package(lit("keyword")); user_package = make_package(lit("usr")); + public_package = make_package(lit("pub")); rehome_sym(hash_s, user_package); @@ -10693,6 +10694,7 @@ static void obj_init(void) set(mkloc(t->s.package, t), user_package); set_package_fallback_list(system_package, cons(user_package, nil)); + set_package_fallback_list(public_package, cons(user_package, nil)); null_s = intern(lit("null"), user_package); cons_s = intern(lit("cons"), user_package); |