New functions, subtypep and typep.

* eval.c (eval_init): Register subtypep and typep.

* eval.h (list_s): Existing variable declared.

* lib.c (atom_s, integer_s, number_s, sequence_s, string_s):
new symbol variables.
(subtypep, typep): New functions.
(obj_init): Initialize new symbol variables.

* lib.c (atom_s, integer_s, number_s, sequence_s, string_s):
Declared.

* txr.1: Documented type hierarchy and the new functions.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index b4dd6bfe..dda00b49 100644
--- a/eval.c
+++ b/eval.c
@@ -4164,6 +4164,8 @@ void eval_init(void)
   reg_fun(intern(lit("list*"), user_package), func_n0v(list_star_intrinsic));
   reg_fun(identity_s, identity_f);
   reg_fun(intern(lit("typeof"), user_package), func_n1(typeof));
+  reg_fun(intern(lit("subtypep"), user_package), func_n2(subtypep));
+  reg_fun(intern(lit("typep"), user_package), func_n2(typep));
 
   reg_fun(intern(lit("atom"), user_package), func_n1(atom));
   reg_fun(intern(lit("null"), user_package), null_f);