logcount: new function.

This is in ANSI CL; potentially useful and hard to
implement efficiently in user code.

* arith.c (logcount): New function.

* eval.c (eval_init): Register logcount intrinsic.

* lib.h (logcount): Declared.

* mpi/mi.c (s_mp_count_ones): New static function.
(mp_count_ones): New function.

* mpi/mpi.h (mp_count_ones): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 98d8cfdf..e621db2d 100644
--- a/eval.c
+++ b/eval.c
@@ -6481,6 +6481,7 @@ void eval_init(void)
   reg_fun(intern(lit("bit"), user_package), func_n2(bit));
   reg_fun(intern(lit("mask"), user_package), func_n0v(maskv));
   reg_fun(intern(lit("width"), user_package), func_n1(width));
+  reg_fun(intern(lit("logcount"), user_package), func_n1(logcount));
 
   reg_fun(intern(lit("sort-group"), user_package), func_n3o(sort_group, 1));
   reg_fun(intern(lit("unique"), user_package), func_n2ov(unique, 1));