[Mailman-Users] Where is "create" source code?

tcl-object.tcl :   proc new { className args } { set o [SplitObject getid] if [catch "$className create $o $args" msg] {  if [string match "__FAILED_SHADOW_OBJECT_" $msg] {   # The shadow object failed to be allocated.   delete $o   return ""  }  global errorInfo  error "class $className:

[Mailman-Users] Where is "create" source code?

tcl-object.tcl :   proc new { className args } { set o [SplitObject getid] if [catch "$className create $o $args" msg] {  if [string match "__FAILED_SHADOW_OBJECT_" $msg] {   # The shadow object failed to be allocated.   delete $o   return ""  }  global errorInfo  error "class $className: