Re: "assoc" for returning ALL associations for a given key

[Pascal J. Bourguignon]

florian <lorian@fsavigny.de> writes:
> [...]
> But I am wondering whether that would have been necessary - perhaps I
> am overlooking something? Otherwise, would anybody care to comment
> about the efficiency of the above function?

(require 'cl)
(remove* key a-list :key (function car) :test-not (function eql))


(let ((key :one)
      (a-list '((:one . "un")   (:two . "deux")
                (:one . "eins") (:two . "zwei")
                (:one . "one")  (:two . "two"))))
  (remove* key a-list :key (function car) :test-not (function eql)))
-> ((:one . "un") (:one . "eins") (:one . "one"))



-- 
__Pascal Bourguignon__