SA
хз, я опредленно имею к этому отношение
Size: a a a
2020 July 15
SA
я говорил про то что я не смогу делать типа
SA
такое
SA
.....
,@(loop :for name: in names
:collect `[name])
SA
типа того
AE
Чот у тебя запятые разъехались.
AE
И да, а почему не сможешь?
SA
SA
оно так работает?
SA
я никогда не проверял
AE
Ща проверю.
VM
Не сможешь, потому что обычные макросы работают после reader-макросов.
VM
То есть, ты не сможешь сгенерить код, который должен читаться раньше.
SA
(defmacro with-dot-syntax (single-form)
(labels ((expand (ls)
(if (= 2 (length ls))
`(slot-value ,(intern (cadr ls)) ',(intern (car ls)))
(destructuring-bind (head . tail) ls
`(slot-value ,(expand tail) ',(intern head)))))
(transform (name)
(if (not (keywordp name))
(let ((strname (string name)))
(if (and (/= 0 (count #\. strname :test #'char=))
(char/= #\. (char strname 0) (char strname (1- (length strname)))))
(expand (reverse (uiop:split-string strname :separator ".")))
name))
name))
(map-transform (object)
(if (atom object)
(transform object)
(mapcar #'map-transform object))))
(map-transform single-form)))
SA
вот
SA
теперь и с несколькими точками
2020 July 16
SA
uiop:split-stringSA
рот ебал писать свой сплит
AE
Можно ещё
split-sequence заюзать.SA
это не в ядре