diff --git a/frontend/static/languages/_groups.json b/frontend/static/languages/_groups.json
index 89a2fac99..49b7c94c1 100644
--- a/frontend/static/languages/_groups.json
+++ b/frontend/static/languages/_groups.json
@@ -587,7 +587,8 @@
       "code_v",
       "code_ook",
       "code_typescript",
-      "code_cobol"
+      "code_cobol",
+      "code_common_lisp"
     ]
   }
 ]
diff --git a/frontend/static/languages/_list.json b/frontend/static/languages/_list.json
index 994a8c3ef..d01377f04 100644
--- a/frontend/static/languages/_list.json
+++ b/frontend/static/languages/_list.json
@@ -340,4 +340,5 @@
   ,"code_typescript"
   ,"xhosa"
   ,"code_cobol"
+  ,"code_common_lisp"
 ]
diff --git a/frontend/static/languages/code_common_lisp.json b/frontend/static/languages/code_common_lisp.json
new file mode 100644
index 000000000..16364cab5
--- /dev/null
+++ b/frontend/static/languages/code_common_lisp.json
@@ -0,0 +1,210 @@
+{
+  "name": "code_common_lisp",
+  "noLazyMode": true,
+  "words": [
+    "defun",
+    "list",
+    "if",
+    "quote",
+    "lambda",
+    "let",
+    "format",
+    "nil",
+    "t",
+    "eq",
+    "eql",
+    "equal",
+    "equalp",
+    "dolist",
+    "dotimes",
+    "&optional",
+    "&rest",
+    "&key",
+    "when",
+    "return-from",
+    "funcall",
+    "apply",
+    "loop",
+    "for",
+    "repeat",
+    "setf",
+    "defparameter",
+    "defvar",
+    "defconstant",
+    "setq",
+    "print",
+    "aref",
+    "field",
+    "incf",
+    "decf",
+    "random",
+    "push",
+    "pop",
+    "pushnew",
+    "rotatef",
+    "shiftf",
+    "declare",
+    "special",
+    "locally",
+    "progn",
+    "defmacro",
+    "unless",
+    "cond",
+    "and",
+    "or",
+    "not",
+    "do",
+    "across",
+    "below",
+    "collecting",
+    "counting",
+    "finally",
+    "from",
+    "append",
+    "macroexpand",
+    "report-result",
+    "check",
+    "#c",
+    "floor",
+    "ceiling",
+    "truncate",
+    "round",
+    "mod",
+    "rem",
+    "min",
+    "max",
+    "zerop",
+    "minusp",
+    "plusp",
+    "evenp",
+    "oddp",
+    "log",
+    "exp",
+    "expt",
+    "sin",
+    "cos",
+    "tan",
+    "asin",
+    "acos",
+    "atan",
+    "sinh",
+    "cosh",
+    "tanh",
+    "asinh",
+    "acosh",
+    "atanh",
+    "char-equal",
+    "char-not-greaterp",
+    "char-not-lesserp",
+    "char-not-equal",
+    "char-lessp",
+    "char-greaterp",
+    "string-equal",
+    "string-not-greaterp",
+    "string-not-lesserp",
+    "string-not-equal",
+    "string-lessp",
+    "string-greaterp",
+    "vector",
+    "read",
+    "make-array",
+    "vector-push",
+    "vector-pop",
+    "vector-push-extend",
+    "bit",
+    "character",
+    "elt",
+    "count",
+    "find",
+    "position",
+    "remove",
+    "substitute",
+    "copy-seq",
+    "reverse",
+    "concatenate",
+    "string",
+    "sort",
+    "stable-sort",
+    "subseq",
+    "mismatch",
+    "every",
+    "some",
+    "notany",
+    "notevery",
+    "merge",
+    "map",
+    "map-into",
+    "reduce",
+    "make-hash-table",
+    "gethash",
+    "multiple-value-bind",
+    "remhash",
+    "clrhash",
+    "maphash",
+    "cons",
+    "car",
+    "cdr",
+    "nreverse",
+    "delete",
+    "delete-duplicates",
+    "nconc",
+    "nsubstitute",
+    "copy-list",
+    "first",
+    "second",
+    "third",
+    "fourth",
+    "fifth",
+    "sixth",
+    "seventh",
+    "eigth",
+    "ninth",
+    "tenth",
+    "rest",
+    "nth",
+    "caar",
+    "cadr",
+    "caadr",
+    "mapcar",
+    "mapcon",
+    "maplist",
+    "copytree",
+    "subst",
+    "adjoin",
+    "member",
+    "intersection",
+    "union",
+    "set-difference",
+    "set-exclusive-or",
+    "subsetp",
+    "assoc",
+    "acons",
+    "copy-alist",
+    "pairlis",
+    "getf",
+    "remf",
+    "symbol-plist",
+    "remprop",
+    "get-properties",
+    "destructuring-bind",
+    "&whole",
+    "open",
+    "read-line",
+    "read-char",
+    "close",
+    "read-byte",
+    "read-sequence",
+    "write-char",
+    "write-line",
+    "write-string",
+    "terpri",
+    "fresh-line",
+    "write-squence",
+    "write-byte",
+    "pathname",
+    "defgeneric",
+    "defmethod",
+    "defclass",
+    "make-instance"
+  ]
+}