説明
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} }