feat: Add CommonLisp language support to TestRepoMapAllLanguages

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"

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))))