Rewrote (SETF FDEFINITION) to conform to recent decisions.