From c6c5e79ccf9edcca047018af9712e4e4c04cc924 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 9 Sep 2013 09:27:00 +0200
Subject: [PATCH] Add .cl as a Common Lisp file extension.

---
 lib/linguist/languages.yml      |  1 +
 samples/Common Lisp/sample.lisp | 21 +++++++++++++++++++++
 samples/OpenCL/sample.cl        | 23 +++++++++++++++++++++++
 3 files changed, 45 insertions(+)
 create mode 100644 samples/Common Lisp/sample.lisp
 create mode 100644 samples/OpenCL/sample.cl

diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index 4a31dbc8..a627bf46 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -281,6 +281,7 @@ Common Lisp:
   primary_extension: .lisp
   extensions:
   - .asd
+  - .cl
   - .lsp
   - .ny
   - .podsl
diff --git a/samples/Common Lisp/sample.lisp b/samples/Common Lisp/sample.lisp
new file mode 100644
index 00000000..9bef6781
--- /dev/null
+++ b/samples/Common Lisp/sample.lisp	
@@ -0,0 +1,21 @@
+;;;; -*- lisp -*-
+
+(in-package :foo)
+
+;;; Header comment.
+(defvar *foo*)
+
+(eval-when (:execute :compile-toplevel :load-toplevel)
+  (defun add (x &optional y &key z)
+    (declare (ignore z))
+    ;; Inline comment.
+    (+ x (or y 1))))
+
+#|
+Multi-line comment.
+|#
+
+(defmacro foo (x &body b)
+  (if x
+      `(1+ ,x)   ;After-line comment.
+      42))
diff --git a/samples/OpenCL/sample.cl b/samples/OpenCL/sample.cl
new file mode 100644
index 00000000..9360b8e3
--- /dev/null
+++ b/samples/OpenCL/sample.cl
@@ -0,0 +1,23 @@
+/* Old-style comment. */
+
+// New-style comment.
+
+typedef float foo_t;
+
+#ifndef ZERO
+#define ZERO (0.0)
+#endif
+
+#define FOO(x) ((x) + \
+  ZERO)
+
+__kernel
+void foo(__global const foo_t * x, __local foo_t y, const uint n)
+{
+  barrier(CLK_LOCAL_MEM_FENCE);
+
+  if (n > 42) {
+    *x += y;
+  }
+}
+