Сплин

 В предыдущем посте, я показал как писать простые макросы на лиспе

ниже пример обобщенных методов и использования макросов в своем коде.

1 2 3 4 5 6 7

(defstruct person name) (defgeneric hello (obj) (:documentation "Say hello to object.")) (defmethod hello ((obj person)) (writeln "Hello, " (person-name obj) "!"))