SA
а можно кстати и с несколькими точками
Size: a a a
2020 July 15
SA
ебли будет чутка побольше правда но
SA
ваще не проблема
AE
а можно кстати и с несколькими точками
У меня кстати несколько поддерживаются.
SA
в эту штуку можно че угодно завернуть
SA
ОКЕЙ
SA
у него несколько поддерживается
SA
мб напишу щас
SA
мб лень
SA
идея понятна?
SA
код волкер не лучшее решение любой проблемы но
SA
код волкер >>>> ридер макрос
AE
код волкер >>>> ридер макрос
А это почему.
SA
потомушто с ридер макросами гомоиконичность тютю
SA
их никуда не запихнешь больше кроме как руками писать
SA
вообще ничего не сделаешь с ними
LL
(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)))
Круто
YK
кстати, интересно в каком лиспе ридер макросы появились впервые
AE
потомушто с ридер макросами гомоиконичность тютю
Ээээ?
AE
Это почему?