не совсем понятна цель процедуры
зачем делать из строки tsvector? зачем нужен record set?

из parse() можно делать выборку по определенному tokid, очевидно, чтобы исключить пробелы. для уникальных слов можно сделать distinct. но все это жуткий misdesign, полнотекстовый поиск не предназначен для такого, понятное дело. я бы делал эту задачу каким-нибудь другим способом.

сходу не могу вспомнить, есть ли функция "показать токены данного парсера" в 8.2 (в 8.3 точно есть), но анализ запроса вроде такого:

test=# select * from parse('aaa bbb adsada-adasd, !$# &');
tokid | token
-------+--------------
1 | aaa
12 |
1 | bbb
12 |
2 |
12 |
16 | adsada-adasd
11 | adsada
12 | -
11 | adasd
12 | , !$#
12 | &
(12 rows)

показывает, что вам нужно выбрасывать tokid = 12.

Еще, кстати, в tsearch2 есть функции для анализа состояния GiST индекса -- в частности, можно узнать количество уникальных токенов.

сорри, при копипасте из psql побились русские буквы, так что пропали токены nlword

это вам нужно документацию хорошенько и с самого начала почитать

test=# select to_tsvector('utf8_russian', 'преклонился');
to_tsvector
------------------
'преклониться':1
(1 row)

tsvector содержит, разумеется, нормализованные в соотв-ии с заданным словарем лексемы.

это stemming
у вас плохо настроен tsearch2

судя по приведенному вами примеру, русский настроен плохо
о других языках судить не могу