Use %SYS-CLEARENV in (SETF ENVIRONMENT).