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

        return false if sexp.length < pat.length

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

        return true # we have a match
      end