Why
(every (lambda (x) (equal? x 'a)) '(a b c a))
won't work