From 82d26bb83a07c5eac808455c3f7dab50f55f4a8a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 9 Mar 2018 06:37:02 -0800 Subject: sys package fall back on usr. * lib.c (obj_init): Give the system package a fallback list consisting of one element: the user package. This will make it easier to develop some library features that have lots of internal symbols that ought to be hidden in the system package, without having to put sys: on everything. That code will just switch to the system package. --- lib.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib.c b/lib.c index 881df208..9d312007 100644 --- a/lib.c +++ b/lib.c @@ -10498,6 +10498,8 @@ static void obj_init(void) lit("t"), nulloc), make_sym(lit("t")))); set(mkloc(t->s.package, t), user_package); + set_package_fallback_list(system_package, cons(user_package, nil)); + null_s = intern(lit("null"), user_package); cons_s = intern(lit("cons"), user_package); str_s = intern(lit("str"), user_package); -- cgit v1.2.3