common lisp cond allows returning the predicate's value. This form does it via reader macros

cl-cond.clj

(defmacro cond*
  [& clauses]
  (when clauses
    (let [p (first clauses)
          return? (:return (meta p))]
      (if return?
        `(if ~p
           ~p
           (cond* ~@(next clauses)))
        `(if ~p
           ~(if (next clauses)
             (second clauses)
             (throw (IllegalArgumentException.
                     "cond requires an even number of forms")))
           (cond* ~@(nnext clauses)))))))

;;; examples:
(cond*
 p0 c0
 ^:return p1
  p2 c2
  p3 c3)

(cond*
 ^:return p1
  p2 c2
  p3 c3)