From 00a1e0c15d9a62d93b187a16052a9e6e3c46790a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 10 Jul 2015 21:49:43 -0700 Subject: * eval.c (eval_init): Register bindable as intrinsic. * txr.1: Documented. --- ChangeLog | 6 ++++++ eval.c | 2 +- txr.1 | 20 ++++++++++++++++++++ 3 files changed, 27 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index a32c860b..710b3f54 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2015-07-10 Kaz Kylheku + + * eval.c (eval_init): Register bindable as intrinsic. + + * txr.1: Documented. + 2015-07-10 Kaz Kylheku New placelet macro. 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 -- cgit v1.2.3