New writer (SETF SLOT-DEFINITION).
Don't set slots with :INITARG.  Use TYPEP.