Explicit definition of (SETF CHILD)
Removed useless DEFGENERIC.  Renaming.