# File lib/rufus/treechecker.rb, line 442
    def exclude_class_tinkering (*args)

      @current_set.exclude_pattern(
        [ :sclass ], 'opening the metaclass of an instance is forbidden')

      Array(args.last[:except]).each { |e|
        expand_class(e).each do |c|
          @current_set.accept_pattern([ :class, :any, c ])
        end
      } if args.last.is_a?(Hash)

      @current_set.exclude_pattern(
        [ :class ], 'defining a class is forbidden')
    end