mlafon

# tip457-perfs.tcl

set loops 10000000
set hasArgspec [expr {![catch {info argspec specifier}]}]

# default implementation, no argspec, no named arguments
proc p1 {a b {c 0} {d 0} {e 0} {f 0} {g 0} {h 0} {i 0} {j 0}} {
  list $a $b $c $d $e $f $g $h $i $j
}