(defun alist-to-plist (alist)
  (let (result)
    (dolist (elt alist result)
      (push (cdr elt) result)
      (push (car elt) result))))

(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)))))

(defun alist-to-plist (alist)
  (thread-last alist
    (mapcar (lambda (x)
              (list (car x)
                    (cdr x))))
    (apply #'append)))

(defun alist-to-plist (alist plist)
  (pcase alist
    (`((,key . ,value) . ,rest)
     (alist-to-plist rest (cl-list* key value plist)))
    (_ plist)))

(defun alist-to-plist (alist)
  (reduce (lambda (acc x)
            (append acc (list (car x)
                              (cdr x))))
          alist
          :initial-value nil))

(defun alist-to-plist (alist)
  (loop for (key . value) in alist
        nconc (list key value)))