* eval.c (symbol_value, boundp, fboundp): New functions.

(eval_init): New functions registred as intrinsics.

* txr.1: Documented.

1 files changed, 19 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 9bb509ef..a14d56d2 100644
--- a/eval.c
+++ b/eval.c
@@ -1903,11 +1903,27 @@ static val lazy_mappendv(val fun, val list_of_lists)
   return lazy_appendv(lazy_mapcarv(fun, list_of_lists));
 }
 
+static val symbol_value(val sym)
+{
+  return cdr(lookup_var(nil, sym));
+}
+
 static val symbol_function(val sym)
 {
   return cdr(lookup_fun(nil, sym));
 }
 
+static val boundp(val sym)
+{
+  return if3(lookup_var(nil, sym), t, nil);
+}
+
+static val fboundp(val sym)
+{
+  return if3(lookup_fun(nil, sym), t,
+             if3(gethash(op_table, sym), t, nil));
+}
+
 static val rangev_func(val env, val lcons)
 {
   cons_bind (from, to_step, env);
@@ -2534,7 +2550,10 @@ void eval_init(void)
   reg_fun(intern(lit("refset"), user_package), func_n3(refset));
   reg_fun(intern(lit("replace"), user_package), func_n4o(replace, 2));
 
+  reg_fun(intern(lit("symbol-value"), user_package), func_n1(symbol_value));
   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("func-get-form"), user_package), func_n1(func_get_form));
   reg_fun(intern(lit("func-get-env"), user_package), func_n1(func_get_env));
   reg_fun(intern(lit("functionp"), user_package), func_n1(functionp));