-proc async-notif-or-resp-varies {async_values asid l} {
- set ll [llength [split $l ,]]
- if {$ll == $async_values} {
- async-notif $asid $l
- } elseif {$ll == $async_values+1} {
- sync-reply $l
- } else {
- bad-data $l "async-notif-or-resp-varies $ll"
- }
-}