Posted to tcl by mjanssen at Fri May 08 14:46:51 GMT 2009view pretty
% proc f x {puts [info globals x*] ; upvar #0 [lindex $x 0] local ; if {![info exists local]} {set local "" ; puts "set to default"}}
(bin) 58 % f x1
x1 x2
(bin) 59 % f x2
x1 x2
(bin) 60 % f x3
x1 x2
set to default
(bin) 61 % f x4
x1 x2 x3