VL
чтобы было элегантно и удобно
Size: a a a
2020 July 31
DL
ну, для мапов немного усложнено, конечно
DL
но зато какие возможности появились
VL
а консы не?
стоп, я проверил
VL
destructuring-bind умеет в консы
VL
нихрена се
VL
я не знал
PG
конечно умеет
PG
(defmacro destructuring-dolist (pat-seq-res &rest body)
"\n\n(fn (PATTERN SEQUENCE &optional RESULT) BODY...)"
(declare (indent 1))
(destructuring-bind (pat seq &rest res) pat-seq-res
(let ((elt (gensym "dd-tempvar")))
`(dolist (,elt ,seq ,@res)
(cl-destructuring-bind ,pat ,elt
,@body)))))
имя покороче нужно, правда
PG
а так няшно
VL
конечно умеет
I am once again извиняюсь за дезинформацию
VL
а elisp же в TCO не умеет, верно?
VL
(defmacro destructuring-dolist (pat-seq-res &rest body)
"\n\n(fn (PATTERN SEQUENCE &optional RESULT) BODY...)"
(declare (indent 1))
(destructuring-bind (pat seq &rest res) pat-seq-res
(let ((elt (gensym "dd-tempvar")))
`(dolist (,elt ,seq ,@res)
(cl-destructuring-bind ,pat ,elt
,@body)))))
кста, я нашел еще pcase-dolist
VL
и pcase-let 🌝
PG
Это уже какой-то питон получается
VL
pcase-lambda
