cptr: new functions.

* eval.c (eval_init): Register cptr-int, ctpr-obj, cptr-zap
and cptr-free functions and cptr-null variable.

* lib.c (cptr_int, cptr_obj, cptr_zap, cptr_free): New
functions.

* lib.c (cptr_int, cptr_obj, cptr_zap, cptr_free): Declared.

1 files changed, 6 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 60766b4b..97004bd5 100644
--- a/eval.c
+++ b/eval.c
@@ -6157,6 +6157,12 @@ void eval_init(void)
   reg_fun(intern(lit("rlcp"), user_package), func_n2(rlcp));
   reg_fun(intern(lit("rlcp-tree"), user_package), func_n2(rlcp_tree));
 
+  reg_fun(intern(lit("cptr-int"), user_package), func_n1(cptr_int));
+  reg_fun(intern(lit("cptr-obj"), user_package), func_n1(cptr_obj));
+  reg_fun(intern(lit("cptr-zap"), user_package), func_n1(cptr_zap));
+  reg_fun(intern(lit("cptr-free"), user_package), func_n1(cptr_free));
+  reg_varl(intern(lit("cptr-null"), user_package), cptr(0));
+
   eval_error_s = intern(lit("eval-error"), user_package);
   uw_register_subtype(eval_error_s, error_s);