В качестве альтернативы, отфильтруйте список для непринятых элементов, используя lmap
(или явный цикл, используя foreach
):
lmap el $list1 {if {[string first . $el] >= 0} {continue} else {set el}}
См. также соответствующее обсуждение фильтрующих списков, например lmap` для фильтрации списка строк