: mark-shadowed-slots ( tuple -- marked ) [ [ +shadowed+ ] keep ] [ class all-slots ] bi dup [ name>> ] map duplicates sets:members [ swap [ name>> = ] with filter but-last [ offset>> set-slot ] 2 nwith each ] 3 nwith each ;