Этот конкретный rotatef настолько полезный, что у меня для него название есть

(defmacro npush-pop (source target)
 "Like (push (pop SOURCE) TARGET) but reuse the cons cell, and return nil."
 `(cl-rotatef ,source (cdr ,source) ,target))

PDS when

о, диды, а есть чо почитать, как capf делать?

#TIL github умеет в geojson https://github.com/gontsa/geonames-ua/blob/main/PZO/geojson/pzo-vinnytska.geojson

ping

подкатила

В метаверсе все рекрутеры будут кошкодевками

прекрасный алгоритм, я не додумался сделать reverse на оригинальном списке

попробуй мой вариант
(defun mlist->alist (keyp mlist)
 (cl-assert (funcall keyp (car mlist)) t)
 (let (alist)
   (while mlist
     (let ((value (list (pop mlist))))
       (while (and mlist (not (funcall keyp (car mlist))))
         (push (pop mlist) value))
       (push (nreverse value) alist)))
   (nreverse alist)))

по nanomsg где нормальная документация с примерами есть?

по zeromq я нашел, но у nanomsg есть отличия

пиздатый интерфейс, написать докстринг и отправить в кор

А, я затестил и забыл написать. Как-то оно сильно медленно по сравнению с остальными способами.

(benchmark-run-compiled 500
  (seq-reduce
   (lambda (acc el)
     (if (< 5 (length (symbol-name (car el))))
         (cons (list el) acc)
       (cons (append (car acc) (list el))
             (cdr acc))))   
   package-archive-contents
   '()))
;; => (1.654912268 7 1.1712598689999822)


(benchmark-run-compiled 500
  (let (values alist)
    (dolist (x (reverse package-archive-contents) alist)
      (push x values)
      (when (< 5 (length (symbol-name (car x))))
        (push values alist)
        (setf values nil)))))
;; => (1.965602425 10 1.6359300010000197)


(benchmark-run-compiled 500
  (let ((list (reverse package-archive-contents)) alist values)
    (while list
      (cl-rotatef list (cdr list) values)
      (when (< 5 (length (symbol-name (car (car values)))))
        (push values alist)
        (setf values nil)))
    alist))
;; => (1.310875462 6 0.9877555929999744)

(defun mlist->alist (keyp mlist)
  (cl-assert (funcall keyp (car mlist)) t)
  (let (alist)
    (while mlist
      (let ((value (list (pop mlist))))
        (while (and mlist (not (funcall keyp (car mlist))))
          (push (pop mlist) value))
        (push (nreverse value) alist)))
    (cl-assert (null mlist) t)
    (nreverse alist)))

(benchmark-run-compiled 500
  (mlist->alist (lambda (el) (< 5 (length (symbol-name (car el)))))
                package-archive-contents))
;; => (12.662998667 65 9.843178946000023)

надо посмотреть что там

потому что это может быть очень полезно

а, ну тут написано почему, 65 сборок мусора

Если я правильно понял, то даже без них все равно будет много. 12.6 - 9.8 = 2.8, остальные даже с gc меньше двух секунд.

у меня результаты немного другие, но это пока не важно