"Symbols that print the same USUALLY are EQ to each other because of the use of the INTERN function."
Unusual cases, eh? Are there example’s that don’t involve uninterned symbol’s?
(eq '#:zzz '#:zzz)
nil
(flet ((f (&aux (*gensym-counter* 123)) (print (gensym)))) (eq (f) (f)))
#:g123 #:g123 nil