re: lisp newbie here

Alex Mizrahi wrote:

in kmrcl package you can find such implementations:
 
(defun alist-plist (alist)
  (apply #'append (mapcar #'(lambda (x) (list (car x) (cdr x))) alist)))

Did you see the idiocy?
  #'(lambda

Lambda is a macro that expands to (function (lambda ...)).
Users of CL are extremely eager to produce the
ugliest code possible.


Gauche Scheme

(define (alist->plist alist)
  (append-map
    list
    (map car alist)
    (map cdr alist)))


Another way:

(use util.match)

(define (alist->plist alist)
  (match alist
    [((k . v) ...)
      (append-map list k v)]))