From 33478b2d238ded92156f0c37d0da820e55ba07b4 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Fri, 10 Apr 2015 11:57:39 +0200 Subject: [PATCH] Make Common Lisp heuristic case insensitive. --- lib/linguist/heuristics.rb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb index e196e8bf..b1adbd18 100644 --- a/lib/linguist/heuristics.rb +++ b/lib/linguist/heuristics.rb @@ -129,7 +129,7 @@ module Linguist end disambiguate "Common Lisp", "OpenCL", "Cool" do |data| - if data.include?("(defun ") + if /^\s*\((defun|in-package|defpackage) /i.match(data) Language["Common Lisp"] elsif /^class/x.match(data) Language["Cool"] @@ -215,7 +215,7 @@ module Linguist end disambiguate "Common Lisp", "NewLisp" do |data| - if /^\s*\((defun|in-package|defpackage) /.match(data) + if /^\s*\((defun|in-package|defpackage) /i.match(data) Language["Common Lisp"] elsif /^\s*\(define /.match(data) Language["NewLisp"]