mirror of
https://github.com/Aider-AI/aider.git
synced 2025-05-30 17:24:59 +00:00
17 lines
523 B
Common Lisp
17 lines
523 B
Common Lisp
;;; 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))))
|