Add a rule for comparing strings with eq

[Fuco1]

(let ((a "a"))
  (eq a a)) ;; => t

(let ((a "a")
      (b "a"))
  (eq a b)) ;; => nil

I can not imagine when the first is much useful... Probably this is an error. It should be a warning but configurable.