"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
>