Re: Adding assoc-delete-all / rassoc-delete-all

[Tassilo Horn <tsdh@gnu.org>]

Thorsten Jolitz <tjolitz@gmail.com> writes:

> Reminds me of the many times I wished there would be a
>
> ,--------------------------------------------------------
> | case is an alias for `cl-case' in `cl.el'.
> | 
> | (case EXPR (KEYLIST BODY...)...)
> | 
> | Eval EXPR and choose among clauses on that value. [...]
> | Key values are compared by `eql'.
> `--------------------------------------------------------

Strange that it compares with `eql'.  Doesn't `eql' only allow comparing
floating point values in addition to what's allowed by `eq'?  And floats
don't seem to be reasonable candidates for a `case' distinction...

> that does comparison with `equal' too (or does it exist and I just
> missed it?).

No, I don't think there is.  But I think here a more versatile macro
would be better than hard-coding another version with the test fixed to
`equal' [1].  For example, Clojure has `condp' which is similar to
`case' but allows to specify the predicate.

  (condp #'equal x
    "Foo"    :foo
    1        :one
    17       :seventeen
    :neither-foo-one-or-seventeen)

Bye,
Tassilo

[1] That's a bit different for `assoc-delete-all' because the names
    `assq' and `assoc' are traditionally associated with `eq' and
    `equal'.