[ InfixWatchOnSub i j k l; if (noun == 0) return InfixDescribeWatchSub(); if (infix_term_type == INFIXTT_ROUTINE) { i = infix_parsed_lvalue/8; for (j=0,k=1:ji; l = l | k; @storeb #routine_flags_array i l; "; Watching routine ", (InfixPrintRoutine) infix_parsed_lvalue, "."; } if (metaclass(noun) == Object) { give noun infix__watching; "; Watching object ~", (name) noun, "~ (", noun, ")."; } InfixDescribeWatchSub(); ];