Returns a TYPE-TAG for the type of OBJECT.
The TYPE-TAG is as for type-of but includes the extended types.