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.

1 files changed, 2 insertions, 0 deletions

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);