(let ((x (:fnord 0 1 2)))
  (vcase x
     ((:fnord a b c) c)))