diff --git a/tests/basic/test_repomap.py b/tests/basic/test_repomap.py
index 5de500578..9c39c9c88 100644
--- a/tests/basic/test_repomap.py
+++ b/tests/basic/test_repomap.py
@@ -306,6 +306,7 @@ class TestRepoMapAllLanguages(unittest.TestCase):
             "hcl": ("tf", "aws_vpc"),
             "arduino": ("ino", "setup"),
             "chatito": ("chatito", "intent"),
+            "commonlisp": ("lisp", "greet"),
         }
 
         fixtures_dir = Path(__file__).parent.parent / "fixtures" / "languages"
diff --git a/tests/fixtures/languages/commonlisp/test.lisp b/tests/fixtures/languages/commonlisp/test.lisp
new file mode 100644
index 000000000..5cf2173cd
--- /dev/null
+++ b/tests/fixtures/languages/commonlisp/test.lisp
@@ -0,0 +1,17 @@
+;;; Simple Common Lisp example
+
+(defun greet (name)
+  "Return a greeting string for NAME."
+  (format nil "Hello, ~a!" name))
+
+(defvar *greeting-style* 'formal
+  "Style to use for greetings.")
+
+(defclass person ()
+  ((name :initarg :name :accessor person-name)
+   (age :initarg :age :accessor person-age))
+  (:documentation "A class representing a person."))
+
+(defmethod print-object ((obj person) stream)
+  (print-unreadable-object (obj stream :type t)
+    (format stream "~a, age ~a" (person-name obj) (person-age obj))))