        var_list = who;
        for var_index = 1:length(var_list)
            kill = 1;
            for dont_delete_index = 1:length(do_not_delete);
                if strcmp(var_list{var_index},do_not_delete{dont_delete_index})
                    kill = 0;
                end
            end;
            if kill == 1
                clear(var_list{var_index})
            end;
        end;