Mathematica: Clear all variables except one

To clear all variables except x, for example, then input the following

AppendTo[$ContextPath, "special`"];

special`x;

Source: http://mathematica.stackexchange.com/questions/10970/how-to-clear-all-variables-except-one