I was surprised when I didn't found ‘cl-any’ function. Now it's clear — its name is ‘cl-some’. Oops :-)
>From 0ca666e091735c82a5f197b43bd2317c2b2e4b84 Mon Sep 17 00:00:00 2001 From: Alex Kost <[email protected]> Date: Tue, 15 Sep 2015 21:36:23 +0300 Subject: [PATCH] emacs: Replace 'guix-any' with 'cl-some'. * emacs/guix-utils.el (guix-any): Remove. * emacs/guix-command.el (guix-command-improve-argument): Use 'cl-some' instead of 'guix-any'. --- emacs/guix-command.el | 6 +++--- emacs/guix-utils.el | 8 -------- 2 files changed, 3 insertions(+), 11 deletions(-) diff --git a/emacs/guix-command.el b/emacs/guix-command.el index ddafac9..6fdfb93 100644 --- a/emacs/guix-command.el +++ b/emacs/guix-command.el @@ -305,9 +305,9 @@ to be modified." (defun guix-command-improve-argument (argument improvers) "Return ARGUMENT modified with IMPROVERS." - (or (guix-any (lambda (improver) - (funcall improver argument)) - improvers) + (or (cl-some (lambda (improver) + (funcall improver argument)) + improvers) argument)) (defun guix-command-improve-arguments (arguments commands) diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el index 682609d..d1f088b 100644 --- a/emacs/guix-utils.el +++ b/emacs/guix-utils.el @@ -226,14 +226,6 @@ single argument." (while (re-search-forward ,regexp nil t) ,@body))) -(defun guix-any (pred lst) - "Test whether any element from LST satisfies PRED. -If so, return the return value from the successful PRED call. -Return nil otherwise." - (when lst - (or (funcall pred (car lst)) - (guix-any pred (cdr lst))))) - ;;; Alist accessors -- 2.5.0
