説明
let constant proc-attributes:AdjectiveMask =
{bit-or
global-procedure-attributes,
class-procedure-attributes
}
let constant mask-1:AdjectiveMask = 1
let constant override-attributes:AdjectiveMask =
{bit-or
{bit-sll mask-1, BindingAdjective.open.index},
{bit-sll mask-1, BindingAdjective.sealed.index},
{bit-sll mask-1, BindingAdjective.final.index}
}