Function: cl-every

cl-every is an autoloaded and byte-compiled function defined in cl-extra.el.gz.

Signature

(cl-every PREDICATE SEQ...)

Documentation

Return true if PREDICATE is true of every element of SEQ or SEQs.

View in manual

Aliases

every (obsolete since 27.1) org-every (obsolete since 9.0)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-extra.el.gz
;;;###autoload
(defun cl-every (pred seq &rest rest)
  "Return true if PREDICATE is true of every element of SEQ or SEQs.
\n(fn PREDICATE SEQ...)"
  (declare (important-return-value t))
  (if (or rest (nlistp seq))
      (catch 'cl-every
        (apply #'cl-map nil
               (lambda (&rest x)
                 (or (apply pred x) (throw 'cl-every nil)))
               seq rest) t)
    (while (and seq (funcall pred (car seq)))
      (setq seq (cdr seq)))
    (null seq)))