Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <Nobody447095@here-nor-there.org>
Newsgroups: comp.lang.lisp
Subject: re: lisp newbie here
Date: Sun, 14 Jul 2024 09:41:55 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 32
Message-ID: <v706gv$3a5o$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Sun, 14 Jul 2024 11:41:56 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="2af9a93e51c2354c9c01f27f8d2b9bf3";
	logging-data="108728"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+9h9f6GRHMKHF5OF85nwcu"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:+9BJR9v+qXsWRWXXliR9tNeXeBw=
Bytes: 1437

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