Deprecated undocumented *user-package* etc.

* eval.c (eval_init): Do not register *user-package*,
or *system-package* or *keyword-package* variables
unless in compatibility mode. We don't document this
in the compatibility notes since the variables are not
documented.

* tests/009/json.txr: Change use of *keyword-package*
to keyword-package.

1 files changed, 5 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index ec7af348..c3392acd 100644
--- a/eval.c
+++ b/eval.c
@@ -5194,9 +5194,11 @@ void eval_init(void)
   reg_varl(keyword_package_s = intern(lit("keyword-package"), user_package_var),
            keyword_package_var);
 
-  reg_varl(intern(lit("*user-package*"), user_package), user_package_var);
-  reg_varl(intern(lit("*system-package*"), user_package), system_package_var);
-  reg_varl(intern(lit("*keyword-package*"), user_package), keyword_package_var);
+  if (opt_compat && opt_compat <= 156) {
+    reg_varl(intern(lit("*user-package*"), user_package), user_package_var);
+    reg_varl(intern(lit("*system-package*"), user_package), system_package_var);
+    reg_varl(intern(lit("*keyword-package*"), user_package), keyword_package_var);
+  }
 
   reg_fun(intern(lit("make-sym"), user_package), func_n1(make_sym));
   reg_fun(intern(lit("gensym"), user_package), func_n1o(gensym, 0));