cond+comments

(let ((a 1)
        (b 2)
        (c 1)
        (d 1))
    (cond ((eql a b) 1)
          ((eql a c) "First comment" 3) ; Second
          ((eql a d) 3)))