From 98977c87dbf1d72c0a990dbb42eececaf902b322 Mon Sep 17 00:00:00 2001
From: Arfon Smith <arfon@github.com>
Date: Fri, 12 Sep 2014 16:32:21 -0500
Subject: [PATCH] Heuristics on for .cl

---
 lib/linguist/heuristics.rb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb
index b22422c3..219f6dc6 100644
--- a/lib/linguist/heuristics.rb
+++ b/lib/linguist/heuristics.rb
@@ -19,6 +19,9 @@ module Linguist
         if languages.all? { |l| ["ECL", "Prolog"].include?(l) }
           result = disambiguate_ecl(data, languages)
         end
+        if languages.all? { |l| ["Common Lisp", "OpenCL"].include?(l) }
+          result = disambiguate_cl(data, languages)
+        end
         return result
       end
     end