Revert "Rename 'any' to 'member-if' and deprecate 'cl-member-if'"

This reverts commit 2bdf15f6d8293b21234cd236f39ce68f62e1f6c3.

There is no consensus for this change.

2 files changed, 7 insertions, 14 deletions

diff --git a/doc/lispref/lists.texi b/doc/lispref/lists.texi
index b361134be59..90d0bfc4d12 100644
--- a/doc/lispref/lists.texi
+++ b/doc/lispref/lists.texi
@@ -428,26 +428,20 @@ This function returns @code{t} if @var{pred} is true for all elements in
 @end example
 @end defun
 
-@defun member-if pred list
+@defun any pred list
 This function returns non-@code{nil} if @var{pred} is true for at least
 one element in @var{list}.  The returned value is the longest @var{list}
 suffix whose first element satisfies @var{pred}.
 
 @example
 @group
-(member-if #'symbolp '(1 2 3 4))     @result{} nil
-(member-if #'symbolp '(1 2 a b 3 4)) @result{} (a b 3 4)
-(member-if #'symbolp '())            @result{} nil
+(any #'symbolp '(1 2 3 4))     @result{} nil
+(any #'symbolp '(1 2 a b 3 4)) @result{} (a b 3 4)
+(any #'symbolp '())            @result{} nil
 @end group
 @end example
 @end defun
 
-@defun any pred list
-This function is an alias for @code{member-if}.  It may be preferable in
-contexts which do not make use of the returned value, but only whether
-or not it was nil.
-@end defun
-
 @defun last list &optional n
 This function returns the last link of @var{list}.  The @code{car} of
 this link is the list's last element.  If @var{list} is null,
diff --git a/doc/misc/cl.texi b/doc/misc/cl.texi
index 86af253bdf1..bf980c0888f 100644
--- a/doc/misc/cl.texi
+++ b/doc/misc/cl.texi
@@ -3825,11 +3825,10 @@ comparisons; it is equivalent to @code{(cl-member @var{item} @var{list}
 :test 'equal)}.
 @end defun
 
+@findex cl-member-if
 @findex cl-member-if-not
-The @code{cl-member-if-not} function analogously searches for elements
-that don't satisfy a given predicate.  This is deprecated in the Common
-Lisp standard; prefer the core function @code{member-if} with a negated
-predicate function.
+The @code{cl-member-if} and @code{cl-member-if-not} functions
+analogously search for elements that satisfy a given predicate.
 
 @defun cl-tailp sublist list
 This function returns @code{t} if @var{sublist} is a sublist of