(let ((element (element (parent component))))
(unless (item-at found-elements element)
(setf (item-at found-elements element) t)
(let ((element (element (parent component))))
(unless (item-at found-elements element)
(setf (item-at found-elements element) t)