SA
чего интересует
когда оно пропустит символ
или когда оно его неправильно трансформирует
Size: a a a
2020 October 21
a
Ну и не просто имплементацию, а спецификацию еще, потому что мне на самом деле совершенно неочивдно, что именно этот макрос должен делать.
SA
SA
dotsplit берет строку
и сплитит ее по точке
и сплитит ее по точке
SA
трансформ берет лист строк и превращает его в ну
SA
нестед slot-value формы
SA
там реверсед хуйня то есть например
new.right.parent превращается в '("parent" "right" "new")SA
так что последнйи символ не проебываем а так нестим
SA
ну а
SA
(rec (ls)
(mapcar (lambda (object)
(cond ((and (symbolp object) (not (keywordp object)))
(transform (dotsplit (string object))))
((consp object)
(rec object))
(t object)))
ls))
SA
это уж к тебе вопросы ты говорил что у меня ошибка в обходчике
a
CL-USER> (macroexpand-1 `(with-snames (let (x.a) x.a)))
(PROGN
(LET ((SLOT-VALUE RB-TREE::X 'RB-TREE::A))
(SLOT-VALUE RB-TREE::X 'RB-TREE::A)))
T
ну вот уже.
SA
SA
а че это такое
SA
че за лет лол
SA
как интересно ты собрался объявить чей то слот)
SA
в чем блин смысл
SA
короче ничего нигде не будет работать если неправильный синтаксис писать
SA
но такой случай не особо интересует