: find-com-interface-definition ( name -- definition )
[
dup +com-interface-definitions+ get-global at*
- [ nip ] [ drop no-com-interface ] if
+ [ nip ] [ drop throw-no-com-interface ] if
] [ f ] if* ;
: save-com-interface-definition ( definition -- )