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/lib.h b/lib.h
index 1c1b9f29..1a81ed83 100644
--- a/lib.h
+++ b/lib.h
@@ -752,6 +752,7 @@ val sign_extend(val num, val nbits);
 val ash(val a, val bits);
 val bit(val a, val bit);
 val maskv(struct args *bits);
+val logcount(val n);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);