Function: cond*-and

cond*-and is a byte-compiled function defined in cond-star.el.gz.

Signature

(cond*-and CONJUNCTS)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cond-star.el.gz
;; Construct a simplified equivalent to `(and . ,CONJUNCTS),
;; assuming that it will be used only as a truth value.
;; We don't bother checking for nil in CONJUNCTS
;; because that would not normally happen.
(defun cond*-and (conjuncts)
  (setq conjuncts (remq t conjuncts))
  (if (null conjuncts)
      t
    (if (null (cdr conjuncts))
        (car conjuncts)
      `(and . ,conjuncts))))