class BOOL_STRING General cluster: base description: "Packed boolean strings" create: make Ancestors ANY TO_SPECIAL [T] Queries count: INTEGER_32 infix "@" (i: INTEGER_32): BOOLEAN infix "and" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING infix "or" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING infix "xor" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING item alias "[]" (i: INTEGER_32): BOOLEAN left_shifted (n: INTEGER_32): [like Current] BOOL_STRING prefix "not": [like Current] BOOL_STRING right_shifted (n: INTEGER_32): [like Current] BOOL_STRING valid_index (i: INTEGER_32): BOOLEAN Commands all_false all_true make (n: INTEGER_32) put (v: [like item] BOOLEAN; i: INTEGER_32)