dearwolf/aider
1
0
Fork 0
mirror of https://github.com/Aider-AI/aider.git synced 2025-05-29 16:54:59 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

feat: Add CommonLisp language support to TestRepoMapAllLanguages

Browse source
This commit is contained in:
Paul Gauthier (aider) 2025-03-12 15:02:55 -07:00
parent 7c1d2d75e0
commit 544d58ddbd
2 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tests/basic/test_repomap.py
View file

@ -306,6 +306,7 @@ class TestRepoMapAllLanguages(unittest.TestCase):
"hcl": ("tf", "aws_vpc"), "hcl": ("tf", "aws_vpc"),
"arduino": ("ino", "setup"), "arduino": ("ino", "setup"),
"chatito": ("chatito", "intent"), "chatito": ("chatito", "intent"),
"commonlisp": ("lisp", "greet"),
} }
fixtures_dir = Path(__file__).parent.parent / "fixtures" / "languages" fixtures_dir = Path(__file__).parent.parent / "fixtures" / "languages"

17
tests/fixtures/languages/commonlisp/test.lisp vendored Normal file
View file

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