From e6d1bcd4c0c019a9b0c120370e801d5247221c36 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 14 Feb 2015 18:29:07 +0200
Subject: [PATCH] Add SBCL

---
 js/90-divine-format.js       | 6 ++++++
 lib/Plack/App/Gruntmaster.pm | 1 +
 tmpl/pb_entry.en             | 1 +
 3 files changed, 8 insertions(+)

diff --git a/js/90-divine-format.js b/js/90-divine-format.js
index 5a1a7d6..cb9b6ab 100644
--- a/js/90-divine-format.js
+++ b/js/90-divine-format.js
@@ -23,6 +23,12 @@
 		case 'lhs':
 			format = 'HASKELL';
 			break;
+		case 'lisp':
+		case 'lsp':
+		case 'cl':
+		case 'l':
+			format = 'SBCL';
+			break;
 		case 'java':
 			format = 'JAVA';
 			break;
diff --git a/lib/Plack/App/Gruntmaster.pm b/lib/Plack/App/Gruntmaster.pm
index 3ec4e78..66b5b6e 100644
--- a/lib/Plack/App/Gruntmaster.pm
+++ b/lib/Plack/App/Gruntmaster.pm
@@ -47,6 +47,7 @@ use constant FORMAT_EXTENSION => {
 	PASCAL => 'pas',
 	PERL => 'pl',
 	PYTHON => 'py',
+	SBCL => 'l',
 };
 
 use constant NOT_FOUND => [404, ['Content-Type' => 'text/plain'], ['Not found']];
diff --git a/tmpl/pb_entry.en b/tmpl/pb_entry.en
index c76c56c..1518841 100644
--- a/tmpl/pb_entry.en
+++ b/tmpl/pb_entry.en
@@ -40,6 +40,7 @@ To submit solutions to this problem, please visit the problem <a href="/pb/id">o
 <option value="PASCAL">Pascal (fpc)</option>
 <option value="PERL">Perl (perl)</option>
 <option value="PYTHON">Python (python)</option>
+<option value="SBCL">Common Lisp (sbcl)</option>
 </select></div>
 
 <input type="submit" value="Submit job" class="btn btn-primary">
-- 
2.39.2