Did anybody write when-let-cond?

Question

I was thinking about a cond with a twist

(let ((a 0))
  (let* ((result nil))
    (tagbody
       (let ((b1 (+ 0 a)))
         (when (eq b1 1)
           (print &q