Added proper (SETF USER-NAME) function