Нашёл решение вчерашней проблемы. Выглядит примерно так:
(defmacro gensetup (name doc-string &rest body)
(let
((stroka (list (quote :documentation) (eval doc-string))))
`(defgeneric ,name ,body ,stroka)))Данный код - работоспособен, но не рабочий, поскольку в макросе имеются протечки. Однако я не стал здесь затуманивать идею
(
Read more... )