Re: alist and multiple values for one key

[Oliver Scholz]

ncauderan@hotmail.com (Norbert C.) writes:

> Hi,
>
>        I would lile to find the "good way" to retrieve multiple values
> for a given key in an alist.
>
>        But I didn't find a natural way to do it. For example :
> (setq trees '((pine . cones) (pine . acorns) (oak . acorns) (maple .
> seeds)))
> ==> ((pine . cones) (pine . acorns) (oak . acorns) (maple . seeds))
> (assoc 'pine trees)
> ==> (pine . cones)
>
> What I'd like is something that returns each value associated with
> 'pine.

If I don't want to `(require 'cl)' I use something like this:

(delq nil
      (mapcar (lambda (elt)
                (if (eq (car elt) 'pine) elt nil))
              mtrees))

You see this (delq nil (mapcar ... in Emacs' sources at some places,
too.


    Oliver
-- 
2 Pluviôse an 211 de la Révolution
Liberté, Egalité, Fraternité!