better eieio-object-name-string