(plan 3)

(let ((a 'a)
      (b 'b))
  (expect "equal to itself" (equal a a))
  (expect "equal to identical keyword" (equal a 'a))
  (expect "not equal to different keyword" (not (equal a 'b))))