Adding mboundp and mmakunbound.

* eval.c (mboundp, mmakunbound): New static functions.
(eval_init): Registering mboundp and mmakunbound intrinsics.

* txr.1: Documenting new functions. Also clarifying that
fboundp checks for an operator macro binding (not a symbol
macro binding).

1 files changed, 14 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 9e2b73e1..c2c62b6c 100644
--- a/eval.c
+++ b/eval.c
@@ -3710,6 +3710,11 @@ val fboundp(val sym)
              gethash(op_table, sym), t);
 }
 
+static val mboundp(val sym)
+{
+  return tnil(lookup_mac(nil, sym));
+}
+
 val special_operator_p(val sym)
 {
   return if2(gethash(op_table, sym), t);
@@ -3732,6 +3737,13 @@ static val fmakunbound(val sym)
   return sym;
 }
 
+static val mmakunbound(val sym)
+{
+  lisplib_try_load(sym),
+  remhash(top_mb, sym);
+  return sym;
+}
+
 static val range_func(val env, val lcons)
 {
   cons_bind (from, to_step, env);
@@ -4977,8 +4989,10 @@ void eval_init(void)
   reg_fun(intern(lit("symbol-function"), user_package), func_n1(symbol_function));
   reg_fun(intern(lit("boundp"), user_package), func_n1(boundp));
   reg_fun(intern(lit("fboundp"), user_package), func_n1(fboundp));
+  reg_fun(intern(lit("mboundp"), user_package), func_n1(mboundp));
   reg_fun(intern(lit("makunbound"), user_package), func_n1(makunbound));
   reg_fun(intern(lit("fmakunbound"), user_package), func_n1(fmakunbound));
+  reg_fun(intern(lit("mmakunbound"), user_package), func_n1(mmakunbound));
   reg_fun(intern(lit("special-operator-p"), user_package), func_n1(special_operator_p));
   reg_fun(intern(lit("special-var-p"), user_package), func_n1(special_var_p));
   reg_fun(sys_mark_special_s, func_n1(mark_special));