SA
Size: a a a
SA
SA
a
SA
SA
SA
SA
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