SA
извините
Size: a a a
2020 July 15
AE
А чтобы уйти от ретардации with-slots и slot-value.
SA
тут 1 раз
SA
макрос на топ левеле
SA
но щас
SA
я тебе волкер напишу
AE
Давай!
AE
Алсо идеально было бы поддержать доступ через точку и без квадратных скобок, но я не придумал как.
SA
SA
сек
AE
И опять же, без лишних скоупов with-slots и огромной вербоузности slot-value.
AE
Нежелание видеть объект аргументом метода это дичь-с.
AE
Большинство методов в моих приложениях работают по такой логике.
AE
А дичь-с это ассьюмить, что есть какие-то единые для всех практики.
SA
так
SA
ща проверю работает нет
SA
пажалуста
SA
(defmacro with-dot-syntax (single-form)
(labels ((transform (name)
(if (not (keywordp name))
(let ((strname (string name)))
(if (and (= 1 (count #\. strname :test #'char=))
(char/= #\. (char strname 0))
(char/= #\. (char strname (1- (length strname)))))
(let ((part1 (intern (subseq strname 0 (position #\. strname))))
(part2 (intern (subseq strname (1+ (position #\. strname))))))
`(slot-value ,part1 ',part2))
name))
name))
(map-transform (object)
(if (atom object)
(transform object)
(mapcar #'map-transform object))))
(map-transform single-form)))
SA
можете какие хотите условия допилить если очень приперло
SA
CL-USER> (macroexpand '(with-dot-syntax (progn (+ w.y w.z m.x))))
(PROGN (+ (SLOT-VALUE W 'Y) (SLOT-VALUE W 'Z) (SLOT-VALUE M 'X)))