(let ((options '(a b c)))
  (case 'a
    ((options) #t)
    (else #f)))