* eval.c (eval_init): New functions countqual, countql, countq

and count_if registered as intrinsics.

* lib.c (countqual, countql, countq, count_if): New functions.

* lib.h (countqual, countql, countq, count_if): Declared.

* txr.1: New functions documented.

1 files changed, 33 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 45780d73..c38de95c 100644
--- a/txr.1
+++ b/txr.1
@@ -6626,6 +6626,21 @@ Examples:
 
   [(remql* 13 (range 1)) 0..100]
 
+.SS Functions countqual, countql and countq
+
+.TP
+Syntax:
+
+  (countq <object> <list>)
+  (countql <object> <list>)
+  (countqual <object> <list>)
+
+.TP
+Description
+
+The countq, countql and countqual functions count the number of objects
+in <list> which are eq, eql or equal to <object>, and return the count.
+
 .SH APPLICATIVE LIST PROCESSING
 
 .SS Functions remove-if, keep-if, remove-if* and keep-if*
@@ -6676,6 +6691,24 @@ Examples:
              '(("abcd" 4) ("defg" 5)))
   -> (("defg 5))
 
+.SS Function count-if
+
+.TP
+Syntax:
+
+  (count-if <predicate-function> <list> : <key-function>)
+
+.TP
+Description:
+
+The countove-if function counts the numer of elements of <list> which satisfy
+<predicate-function> and returns the count.
+
+The optional <key-function> specifies how each element from the <list> is
+transformed to an argument to <predicate-function>. If this argument is omitted
+or specified as nil, then the predicate function is applied to the elements
+directly, a behavior which is identical to <key-function> being (fun identity).
+
 .SS Function tree-find
 
 .TP