3 files changed, 27 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index a32c860b..710b3f54 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2015-07-10  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (eval_init): Register bindable as intrinsic.
+
+	* txr.1: Documented.
+
+2015-07-10  Kaz Kylheku  <kaz@kylheku.com>
+
 	New placelet macro.
 
 	* lisplib.c (place_set_entries): Add placelet to list of names.
diff --git a/eval.c b/eval.c
index eae9e467..8993dca3 100644
--- a/eval.c
+++ b/eval.c
@@ -4351,7 +4351,7 @@ void eval_init(void)
   reg_fun(intern(lit("symbol-package"), user_package), func_n1(symbol_package));
   reg_fun(intern(lit("packagep"), user_package), func_n1(packagep));
   reg_fun(intern(lit("keywordp"), user_package), func_n1(keywordp));
-
+  reg_fun(intern(lit("bindable"), user_package), func_n1(bindable));
   reg_fun(intern(lit("mkstring"), user_package), func_n2(mkstring));
   reg_fun(intern(lit("copy-str"), user_package), func_n1(copy_str));
   reg_fun(intern(lit("upcase-str"), user_package), func_n1(upcase_str));
diff --git a/txr.1 b/txr.1
index ae27cc45..cbc37a1c 100644
--- a/txr.1
+++ b/txr.1
@@ -25320,6 +25320,26 @@ is a keyword symbol, otherwise it
 returns
 .codn nil .
 
+.coNP Function @ bindable
+.synb
+.mets (bindable << obj )
+.syne
+.desc
+The
+.code bindable
+function returns
+.code t
+if
+.meta obj
+is a bindable symbol, otherwise it returns
+.codn nil .
+
+All symbols are bindable, except for keyword symbols, and the
+special symbols
+.code t
+and
+.codn nil.
+
 .SS* Pseudo-random Numbers
 .coNP Special variable @ *random-state*
 .desc