Re: lsearch proposed option

On Thu, 2 Jan 2025 21:39:32 -0000 (UTC)
Rich <rich@example.invalid> wrote:
 

aotto1968 <aotto1968@t-online.de> wrote:
>
It is preferable to start a new thread for a new topic.
>

other stuff
>
# OLD
>
proc ::myoo::ClassIs {myR cls} {
   upvar $myR my
   expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
>
# want to have
>
proc ::myoo::ClassIs {myR cls} {
   upvar $myR my
   lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
>
ONE simple FLAG erase a lot of code.
>

>
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
>

 Or simply use
 proc ::myoo::ClassIs {myR cls} {
   upvar $myR my
   expr {$cls in [set $my(__CLASS__)::__SUPER__SORTED__]}
}