RetroBBS - comp.lang.lisp - .Re: getting list of keys

.Re: getting list of keys

<suq24r$1l2i$1@gioia.aioe.org>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16897&group=comp.lang.lisp#16897

Path: i2pn2.org!i2pn.org!aioe.org!gSXBwBB/iIprw9K3nELhqg.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: getting list of keys
Date: Sat, 19 Feb 2022 06:19:07 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <suq24r$1l2i$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="54354"; posting-host="gSXBwBB/iIprw9K3nELhqg.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Sat, 19 Feb 2022 06:19 UTC

> > an `update' function for the mp3 database.
> > I need a function for doing something like this with a list:
> >
> > * (xxxx (list :artist "something" :song "sss"))
> > => (:artist :song)
> >
> > Thanks in advance, and sorry for my bad english.
> > --
> > Pablo.
>
> CL-USER> (loop :for (x y) :on (list :artist "something" :song "sss") :by #'cddr
> :collect x)
> (:ARTIST :SONG)

Gauche Scheme and Racket using unfold from SRFI-1.

(use srfi-1) ;; unfold for Gauche
or
(require srfi/1) ;; unfold for Racket

(unfold null? car cddr '(:artist "something" :song "sss"))
===>
(:artist :song)

Linux - Das System fuer schlaue Maedchen ;) -- banshee

devel / comp.lang.lisp / .Re: getting list of keys

devel / comp.lang.lisp / .Re: getting list of keys