(defun filter-ucocs (ucocs &key (remove-duplicate-pfstr2 t) (sort :pfstr2))
(when remove-duplicate-pfstr2
(setq ucocs (remove-duplicates ucocs :test 'equal :key 'u::pfstr2)))
(defun filter-ucocs (ucocs &key (remove-duplicate-pfstr2 t) (sort :pfstr2))
(when remove-duplicate-pfstr2
(setq ucocs (remove-duplicates ucocs :test 'equal :key 'u::pfstr2)))