proc ?lappend {v_name args} {
  upvar $v_name v
  if {![info exists v]} {
   return -code error "expected $v_name to exist!"
  }
  foreach val $args {
   lappend v $val
  }
 }
----
See also [?set],[?append]
----
[Category Command]