# File lib/rufus/treechecker.rb, line 303
      def check_pattern(sexp, pat)

        return false if sexp.length < pat.length

        (1..pat.length - 1).each do |i|
          #puts '.'
          #p (pat[i], sexp[i])
          #p (pat[i] != :any and pat[i] != sexp[i])
          return false if (pat[i] != :any and pat[i] != sexp[i])
        end

        true # we have a match
      end